Add(MainForm,1130157,259,154)
{
 Width=718
 Height=406
}
Add(Button,5667771,287,231)
{
 Left=10
 Top=60
 Width=80
 Caption="Создать"
 link(onClick,7707573:doOpen,[])
}
Add(Edit,14560686,343,182)
{
 Left=10
 Top=30
 Width=120
 Text="asd.db"
}
Add(Label,121854,343,140)
{
 Left=10
 Top=5
 Width=123
 Height=17
 Caption="Название базы данных"
}
Add(MTStrTbl,4626275,539,231)
{
 Left=160
 Top=10
 Width=530
 Height=200
 Name="mytbl"
}
Add(DS_SQLite,7707573,343,231)
{
 Name="mdb"
 WaitClose=0
 link(onOpen,16718266:doExec,[])
 link(FileName,14560686:Text,[])
}
Add(DSC_Exec,16718266,399,231)
{
 SQL="CREATE TABLE IF NOT EXISTS[tab1](\r\n  [id] INTEGER PRIMARY KEY AUTOINCREMENT, \r\n  [date] DATE, \r\n  [familia] TEXT, \r\n  [opisanie] TEXT, \r\n  [work] TEXT, \r\n  [summa] TEXT);\r\nINSERT\r\nINTO\r\n  [tab1](\r\n    [date],\r\n    [familia],\r\n    [opisanie],\r\n    [work],\r\n    [summa])\r\nVALUES(\r\n    '2024-09-21',\r\n    'Пупкин Николай Владимирович',\r\n    'работа',\r\n    'решил',\r\n    '2500');\r\n"
 DSManager="mdb"
 link(onExec,12956405:doQuery,[])
}
Add(DSC_Query,12956405,448,231)
{
 SQL="SELECT \r\n  date AS Дата,\r\n  familia AS Фамилия,\r\n  opisanie AS Описание,\r\n  work AS Работа,\r\n  summa AS Сумма \r\nFROM tab1;\r\n"
 DSManager="mdb"
 link(onQuery,5392188:doAddRow,[])
 link(onColumns,5392188:doAddCols,[])
}
Add(MST_DB,5392188,497,231)
{
 MSTControl="mytbl"
}