Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2019-05-05 16:17:19 ЛС | профиль | цитата
Сегодня есть время.
Начну co схемы.
1. Запускаем. В таблице 5 строк.
2. Удаляем строку с id=4
3. Добавляем новую строку и...
получаем две строки с id=5
Всё. На этом можно остановиться.
Add(MainForm,2953706,21,105)
{
Width=441
Height=205
Position=1
Point(onClose)
link(onCreate,5436087:doOpen,[])
link(onClose,5436087:doClose,[])
}
Add(StringTable,13800806,287,119)
{
Left=10
Top=10
Width=370
Height=150
Columns=#4:id=0|11:Телефон=100|7:Дата=80|8:Время=80|7:Дней=50|
Grid=0
Redaction=1
Point(Strings)
Point(onMouseUp)
link(onMouseUp,3261162:doCase,[])
}
Add(Case,3261162,329,126)
{
Value=Integer(1)
link(onTrue,16735366:doPopupHere,[])
}
Add(PopupMenuEx,16735366,378,133)
{
Menu=#8:Добавить|9:Исправить|7:Удалить|
Bitmaps=[]
Point(doidxVisible)
Point(doIdxEnabled)
}
Add(DS_SQLite,5436087,84,119)
{
Name="mdb"
FileName=":memory:"
link(onOpen,12251764:doExec,[])
}
Add(DSC_Exec,12251764,133,119)
{
SQL="CREATE TABLE IF NOT EXISTS tel(\r\n id INTEGER PRIMARY KEY,\r\n tel TEXT,\r\n dt TEXT);\r\n \r\nINSERT INTO tel VALUES(1,"8900***00**","2019-03-06 16:08:51");\r\nINSERT INTO tel VALUES(2,"1254","2019-03-16 16:08:53");\r\nINSERT INTO tel VALUES(3,"5675","2019-03-26 16:08:55");\r\nINSERT INTO tel VALUES(4,"524","2019-04-06 16:08:56");\r\nINSERT INTO tel VALUES(5,"2587","2019-04-26 16:08:57"); "
DSManager="mdb"
link(onExec,9395496:doQuery,[])
}
Add(DSC_Query,9395496,196,119)
{
SQL="SELECT id, tel, date(dt), time(dt), cast(julianday("now","localtime")-julianday(dt) AS integer) FROM tel;"
DSManager="mdb"
link(onQuery,12090573:doStr,[])
link(onColumns,13800806:doClear,[])
}
Add(MT_String,12090573,245,119)
{
link(onResult,13800806:doAdd,[])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 1 раз(а), последний 2019-05-06 07:57:03