Сформируем диалог, который покажет таблицу из большой таблицы из базы данных SQLite.

Если в качестве пути к базе данных указать любое имя, то база данных будет создана в памяти компьютера.




int iListBox_MD, iButton_Ok_MD;
int iTable_MD;
int iDialog_MD;

int main()
{
       int iSQLite;
       object("create", "ts_dbsqlite", iSQLite);
       int ires;
       ires = ts_dbsqlite(iSQLite, "init");
       if (ires != 0) {
               return -1;
       }
       cout << "init success\n";
       ires = ts_dbsqlite(iSQLite, "open_db", "E:/Work/ЛПП2402-SQLite/q.db");
       if (ires != 0) {
               return -1;
       }
       cout << "connection success\n";

       string query = "select * from my_first where (id <= 10000)OR(id >= 90000)";
       
       int j = 0;

       ires = ts_dbsqlite(iSQLite, "prepare_v2_query", query);
       if (ires != 0) {
               return -1;
       }
       cout << "query success\n";

       ires = ts_dbsqlite(iSQLite, "column_count");
       cout << "num fields = " << ires << "\n";

       int iTable;
       object("create", "ts_table", iTable);

       ts_dbsqlite(iSQLite, "export_to_table", iTable, 0,"string",1,"string", 2, "string");
       string sstr;
       ts_table(iTable, "print_to_str", sstr);
       coutvar << sstr;

       ts_dbsqlite(iSQLite, "finalize_stmt");
       ts_dbsqlite(iSQLite, "close_db");

       // Create Dialog
       int x, y, w, h, offset;

       object("create", "ts_dialog", iDialog_MD);
       ts_dialog(iDialog_MD, "init_dialog", "palette", 0, 0, 350, 400);
       ts_dialog(iDialog_MD, "set_as_main_panel");
       ts_dialog(iDialog_MD, "SetGrowType", 3);

       ts_dialog(iDialog_MD, "SetTitle", "Наменования материалов для заказчика");

       object("create", "ts_dialogcontrol", iListBox_MD, "iListBox_MD");

       ts_dialogcontrol(iListBox_MD, "init_control", "singlesellistbox", iDialog_MD, 5, 5, 340, 350, 48, 20);
       ts_dialogcontrol(iListBox_MD, "SetAnchorToPanelResize", 0, 0, 1, 1);

       ts_table(iTable, "set_columns_width_when_export", 100);

       ts_table(iTable, "export_to_dialogcontrol", iListBox_MD, -1, -1);

       x = 10;
       w = 98;
       int delta = 10;
       x = x + w + delta;
       y = 370;
       h = 20;

       x = x + w + delta;
       object("create", "ts_dialogcontrol", iButton_Ok_MD, "iButton_Ok_MD");
       ts_dialogcontrol(iButton_Ok_MD, "init_control", "button", iDialog_MD, x, y, w, h);
       ts_dialogcontrol(iButton_Ok_MD, "eventreaction", "Event_ButtonClicked", "Event_ButtonClicked_MD");
       ts_dialogcontrol(iButton_Ok_MD, "settext", "Ok");
       ts_dialogcontrol(iButton_Ok_MD, "SetAnchorToPanelResize", 1, 1, 0, 0);

       bool bres;
       ts_dialog(iDialog_MD, "invoke", bres);

       //<-
       object("delete", iTable);
       object("delete", iSQLite);
}

int Event_ButtonClicked_MD(int iDescr, string sDescr)
{
       if (sDescr == "iButton_Ok_MD") {
               ts_dialog(iDialog_MD, "SendCloseRequest");
       }
}