![](/img/icon_plus.gif) А так, если нужно фиксировать время внесения записи в БД
Add(MainForm,2953706,21,105) { Width=466 Point(onClose) link(onCreate,10294138:doOpen,[]) link(onClose,10294138:doClose,[]) } Add(DS_SQLite,10294138,70,119) { Name="mydb" FileName=":memory:" link(onOpen,8165484:doExec,[]) } Add(DSC_Exec,8165484,112,119) { SQL="CREATE TABLE test(\r\nid INTEGER PRIMARY KEY,\r\nname TEXT,\r\nrDate REAL DEFAULT (julianday('now','localtime'))\r\n);" DSManager="mydb" } Add(StringTable,8202161,336,168) { Left=5 Top=15 Width=435 Height=130 Columns=#2:id|3:Имя|4:Дата|5:Время| } Add(Edit,7249717,70,168) { Left=60 Top=180 Width=140 link(onEnter,3412309:doString,[]) } Add(Label,16019537,161,119) { Left=20 Top=180 Width=26 Height=17 Caption="Имя" } Add(DSC_Query,16245721,238,182) { SQL="SELECT id, name, date(rDate), time(rDate) FROM test;" DSManager="mydb" link(onQuery,5885467:doStr,[]) } Add(Hub,8895925,210,175) { link(onEvent1,8202161:doClear,[]) link(onEvent2,16245721:doQuery,[]) } Add(FormatStr,3412309,112,175) { Mask="INSERT INTO test(name) values("%1");" link(onFString,16146200:doExec,[]) } Add(DSC_Exec,16146200,161,175) { DSManager="mydb" link(onExec,8895925:doEvent1,[]) } Add(MT_String,5885467,280,182) { link(onResult,8202161:doAdd,[(327,188)(327,174)]) }
|