HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуПодскажите лучший вариант для базы данных ← Ctrl1234Ctrl →
Этот топик читают: Гость
Ответов: 133
Рейтинг: 0
#31: 2024-09-22 09:35:06 ЛС | профиль | цитата
sla8a, да, как раз разобрался )
Остался последний шаг, а как поиск делать? Например я написал слово и мне выделилась строчка с таким словом?
карма: 1

0
Ответов: 2236
Рейтинг: 676
#32: 2024-09-22 09:54:02 ЛС | профиль | цитата
Если вопрос о базе данных то:
SELECT value FROM tab1 WHERE value LIKE '%слово%'


Редактировалось 1 раз(а), последний 2024-09-22 09:55:29
карма: 11

0
Ответов: 133
Рейтинг: 0
#33: 2024-09-22 10:08:54 ЛС | профиль | цитата
sla8a, хм получается надо будет сделать отдельное появляющееся окошко.
А если по MT таблице поиск с установкой фокуса на нужную строчку?
карма: 1

0
Ответов: 2236
Рейтинг: 676
#34: 2024-09-22 10:22:03 ЛС | профиль | цитата
Serascer писал(а):
А если по MT таблице поиск с установкой фокуса на нужную строчку?
Перебрать все строки таблицы и сравнить данные из нужного столбц(а/ов) с введенной строкой, если есть совпадение, то выделить. В таблице рыскайте с помощью MST_ArrayRows или MST_Matrix, а строку сравнивать можно StrMask (вкладка строки) и выделить с помощью MST_SelectRow.
карма: 11

0
Ответов: 133
Рейтинг: 0
#35: 2024-09-22 10:23:14 ЛС | профиль | цитата
sla8a, Спасибо, попробую
карма: 1

0
Ответов: 2236
Рейтинг: 676
#36: 2024-09-22 10:38:38 ЛС | профиль | цитата
Но как по мне такой подход не правильный. Для себя делал по другому:
1. Нажимаешь кнопку или сочетания клавиш и включаешь окно фильтра.
2. Задаёшь нужные параметры. К примеру: с даты по дату и плюс все записи где данные равны: нет.
3. В таблицу вносятся только строки совподающие заданному фильтру.
4. Отображается количество совподений: найдено 10 из 2045.
5. После работы с этими записями, отключить фильтр нажатием на кнопку или сочетанием клавиш.
6. Отобразятся все записи в таблицет: показано 2045 из 2045.

Из плюсов такого интерфейса:
-Все запросы через базу данных
-Отображаются только нужные строки. Если из 2045 строк надо будет работать с 5, 127,378,1206 строками то это очень не удобно, да и можно пропустить нужную при скроллинге

Конечно вариантом и вариаций много, но лучше не выводить не нужную информацию и не перегружать интерфейс. Нету смысла в выводе 20000 строк или в 200 кнопках на экране.
карма: 11

0
Ответов: 133
Рейтинг: 0
#37: 2024-09-22 10:51:41 ЛС | профиль | цитата
sla8a, ну в принципе я так и хотел бы, отдельным окном и работа с базой. МТ потоки для меня тёмный лес
карма: 1

0
Ответов: 2236
Рейтинг: 676
#38: 2024-09-22 10:59:00 ЛС | профиль | цитата
Serascer писал(а):
МТ потоки для меня тёмный лес
Что сложного в МТ потоках?
Представьте себе строку в которой данные разделены символом разделителем - §
данные1§данные2§35657§данные3
Так МТ потоки это таже строка, только без символа разделители. С помощью элементов из вкладки МТ потоки. Можно создать, разобрать или добавить нужные данные из МТ потока
карма: 11

0
Ответов: 133
Рейтинг: 0
#39: 2024-09-22 11:07:20 ЛС | профиль | цитата
sla8a, Я верно использую команду SQL запроса? Что-то не работает поиск. Это Дочерняя форма, которая открывается при нажатии кнопки
Add(EditMulti,740293,21,14)
{
 EventCount=1
 WorkCount=1
 DataCount=1
 Width=797
 Height=480
 link(doWork1,6789909:doVisible,[(67,20)(67,62)])
}
Add(MainForm,6789909,140,28)
{
 Left=35
 Top=105
 Width=1317
 Height=338
 Visible=1
 Position=3
 Point(doVisible)
 Point(onClose)
 link(onClose,7936292:doClear,[(278,55)(278,104)])
}
Add(Button,8958237,203,154)
{
 Left=10
 Top=70
 Width=110
 Height=30
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Искать"
 link(onClick,10677122:doString,[])
}
Add(Edit,5217928,259,77)
{
 Left=10
 Top=30
 Width=310
 Text=""
}
Add(DSC_Exec,182429,329,154)
{
 DSManager="parent.mdb"
 link(onExec,11513766:doAddRow,[])
}
Add(Label,2720308,259,35)
{
 Left=10
 Top=10
 Width=53
 Height=17
 Caption="Фамилия"
}
Add(FormatStr,10677122,259,154)
{
 DataCount=6
 Mask="SELECT value FROM tab1 WHERE value LIKE '%%1%'"
 link(onFString,182429:doExec,[])
 link(Str1,5217928:Text,[])
}
Add(MTStrTbl,9246759,259,217)
{
 Left=10
 Top=110
 Width=1280
 Height=180
 Name="mtstsearch"
 Columns=#4:№=40|7:Дата=70|11:Фамилия=300|12:Описание=400|10:Работа=400|8:Сумма=65|
 ChangeWidth=1
 Point(doSetFocus)
 Point(Row)
 Point(onDblClick)
}
Add(MST_DB,11513766,385,154)
{
 MSTControl="mtstsearch"
}
Add(MST_Clear,7936292,385,98)
{
 MSTControl="mtstsearch"
}


Редактировалось 1 раз(а), последний 2024-09-22 11:07:34
карма: 1

0
Ответов: 2236
Рейтинг: 676
#40: 2024-09-22 11:17:14 ЛС | профиль | цитата
Serascer, элемент FormatStr использует символ %
Вместо:
SELECT value FROM tab1 WHERE value LIKE '%%1%'

поставь:
SELECT value FROM tab1 WHERE value LIKE '^%1^'
и после замени символ ^ на % элементом Replace (вкладка Строки/Замена).
Не помню как экранировать этот символ, но как вариант пойдёт.
И пользуйся Debug (правый клик на линии и установка или в вкладке Помошника). Поможет понять какие данные идут по потоку (по линии).
карма: 11

0
Ответов: 133
Рейтинг: 0
#41: 2024-09-22 11:32:56 ЛС | профиль | цитата
sla8a, понятно, запрос теперь выглядит нормально. А вот в таблице ничего не добавляется. Я сделал все так же как и на основной форме, но ничего не происходит. Можете сказать почему?
Вот полный код программы. При нажатии на кнопку Поиск появляется та дочерняя форма

Add(MainForm,7745805,413,168)
{
 Width=1317
 Height=819
 Caption="База ремонтов"
 Position=1
 Point(onClose)
 link(onCreate,6126171:doOpen,[])
 link(onClose,6126171:doClose,[])
}
Add(Button,2538230,462,287)
{
 Left=10
 Top=10
 Width=110
 Caption="Добавить"
 link(onClick,3731829:doWork1,[])
}
Add(MTStrTbl,947388,413,224)
{
 Left=10
 Top=40
 Width=1280
 Height=305
 Name="mtst"
 Columns=#4:№=40|7:Дата=70|11:Фамилия=300|12:Описание=400|10:Работа=400|8:Сумма=65|
 ChangeWidth=1
 Point(doSetFocus)
 Point(Row)
 Point(onDblClick)
 link(onClick,6602222:doWork1,[(471,230)(471,461)])
}
Add(Button,4446188,462,371)
{
 Left=130
 Top=10
 Width=110
 Caption="Изменить"
 link(onClick,39975:doWork1,[])
}
Add(Button,15445199,441,546)
{
 Left=250
 Top=10
 Width=110
 Caption="Поиск"
 link(onClick,382362:doWork1,[])
}
Add(DS_SQLite,6126171,567,182)
{
 Name="mdb"
 FileName="Clients.db"
 WaitClose=0
 link(onOpen,7203295:doExec,[])
}
Add(DSC_Exec,7203295,623,182)
{
 SQL="CREATE TABLE IF NOT EXISTS[tab1](\r\n  [id] INTEGER PRIMARY KEY AUTOINCREMENT, \r\n  [date] TEXT, \r\n  [familia] TEXT, \r\n  [opisanie] TEXT, \r\n  [work] TEXT, \r\n  [summa] TEXT);"
 DSManager="mdb"
 link(onExec,8256804:doEvent1,[])
}
Add(DSC_Query,301125,728,189)
{
 SQL="SELECT\r\n  id, \r\n  date,\r\n  familia,\r\n  opisanie,\r\n  work,\r\n  summa \r\nFROM tab1;\r\n"
 DSManager="mdb"
 link(onQuery,5887078:doAddRow,[])
}
Add(MST_DB,5887078,784,189)
{
 MSTControl="mtst"
}
Add(Hub,8256804,679,182)
{
 InCount=3
 OutCount=3
 link(onEvent1,15751595:doClear,[(703,188)(703,153)])
 link(onEvent2,301125:doQuery,[])
 link(onEvent3,13789751:doSortDigit,[(711,202)(711,244)])
}
Add(MST_Clear,15751595,728,147)
{
 MSTControl="mtst"
}
Add(MST_SortInCol,13789751,728,231)
{
 MethodSort=1
 MSTControl="mtst"
 Point(doSortDigit)
}
Add(ChildForm,3731829,511,287)
{
 link(onEvent1,8256804:doEvent2,[(611,293)(611,195)])
}
BEGIN_SDK
  Add(EditMulti,1491838,21,14)
  {
   EventCount=1
   WorkCount=1
   Width=573
   Height=291
   link(doWork1,475173:doEvent1,[(67,20)(67,62)])
  }
  Add(MainForm,13367302,119,28)
  {
   Left=35
   Top=105
   Width=906
   Height=338
   Visible=1
   Position=3
   Point(doVisible)
  }
  Add(Button,1416819,168,189)
  {
   Left=390
   Top=255
   Width=110
   Height=30
   Font=[MS Sans Serif,8,1,0,1]
   Caption="Добавить"
   link(onClick,15597162:doString,[])
  }
  Add(Edit,13718670,294,112)
  {
   Left=130
   Top=30
   Width=310
   Text=""
  }
  Add(Label,10493128,224,28)
  {
   Left=10
   Top=5
   Width=30
   Height=17
   Caption="Дата"
  }
  Add(DSC_Exec,12580462,301,189)
  {
   DSManager="parent.mdb"
   link(onExec,2150116:doEvent1,[])
  }
  Add(Label,8723371,294,70)
  {
   Left=130
   Top=10
   Width=53
   Height=17
   Caption="Фамилия"
  }
  Add(Edit,1991437,336,112)
  {
   Left=5
   Top=80
   Width=435
   Height=110
   Text=""
  }
  Add(Label,10818380,336,70)
  {
   Left=5
   Top=60
   Width=54
   Height=17
   Caption="Описание"
  }
  Add(Label,7006651,378,70)
  {
   Left=450
   Top=60
   Width=40
   Height=17
   Caption="Работа"
  }
  Add(Edit,6769963,378,112)
  {
   Left=450
   Top=80
   Width=435
   Height=110
   Text=""
  }
  Add(Edit,10926788,420,112)
  {
   Left=5
   Top=220
   Width=120
   Text=""
   DataType=1
  }
  Add(Label,14976561,420,70)
  {
   Left=5
   Top=200
   Width=39
   Height=17
   Caption="Сумма"
  }
  Add(DateConvertor,5015877,224,112)
  {
   Mode=9
   Format="dd-MM-yyyy"
   Point(Result)
   Point(Data)
   link(Data,12298793:DateTime,[(230,107)(237,107)])
  }
  Add(FormatStr,15597162,224,189)
  {
   DataCount=5
   Mask="INSERT\r\nINTO\r\n  [tab1](\r\n    [date],\r\n    [familia],\r\n    [opisanie],\r\n    [work],\r\n    [summa])\r\nVALUES(\r\n    '%1',\r\n    '%2',\r\n    '%3',\r\n    '%4',\r\n    %5);\r\n"
   link(onFString,12580462:doExec,[])
   link(Str1,5015877:Result,[])
   link(Str2,13718670:Text,[(237,152)(300,152)])
   link(Str3,1991437:Text,[(244,159)(342,159)])
   link(Str4,6769963:Text,[(251,166)(384,166)])
   link(Str5,10926788:Text,[(258,173)(426,173)])
  }
  Add(Hub,2150116,378,189)
  {
   link(onEvent1,1491838:onEvent1,[(466,195)(466,20)])
   link(onEvent2,14722169:doDeferredEvent,[(410,202)(410,230)])
  }
  Add(DoData,7108916,476,224)
  {
   Data=Integer(0)
   link(onEventData,475173:doEvent2,[(521,230)(521,274)(67,274)(67,69)])
  }
  Add(DeferredEvent,14722169,420,224)
  {
   link(onDeferredEvent,7108916:doData,[])
  }
  Add(Hub,475173,77,56)
  {
   InCount=2
   link(onEvent1,13367302:doVisible,[])
   link(onEvent2,3131699:doWork1,[(109,69)(109,97)(186,97)])
  }
  Add(Time,12298793,224,70)
  {
   Time_Date=1
   Format="D M:Y"
   Point(DateTime)
  }
  Add(HubEx,3131699,182,112)
  {
   link(onEvent,5015877:doConvert,[])
  }
  Add(DatePicker,11740223,112,112)
  {
   Left=5
   Top=30
   Width=115
   Height=21
   link(onChange,3131699:doWork2,[])
  }
END_SDK
Add(ChildForm,39975,511,371)
{
 link(onEvent1,8256804:doEvent3,[(611,377)(611,202)])
 link(Data1,2754020:Var3,[(517,292)])
}
BEGIN_SDK
  Add(EditMulti,13011679,21,14)
  {
   EventCount=1
   WorkCount=1
   DataCount=1
   Width=797
   Height=480
   link(doWork1,5832317:doEvent1,[(67,20)(67,62)])
  }
  Add(MainForm,928490,119,28)
  {
   Left=35
   Top=105
   Width=906
   Height=338
   Visible=1
   Position=3
   Point(doVisible)
  }
  Add(Button,12215766,203,301)
  {
   Left=390
   Top=255
   Width=110
   Height=30
   Font=[MS Sans Serif,8,1,0,1]
   Caption="Изменить"
   link(onClick,3129647:doString,[])
  }
  Add(Edit,14344690,371,224)
  {
   Left=150
   Top=30
   Width=310
   Text=""
  }
  Add(Label,8784403,245,98)
  {
   Left=5
   Top=30
   Width=57
   Height=29
   Font=[MS Sans Serif,15,1,0,1]
   Caption="Дата"
  }
  Add(DSC_Exec,6409374,378,301)
  {
   DSManager="parent.mdb"
   link(onExec,3089475:doEvent1,[])
  }
  Add(Label,3803848,371,182)
  {
   Left=150
   Top=10
   Width=53
   Height=17
   Caption="Фамилия"
  }
  Add(Edit,5654748,413,224)
  {
   Left=5
   Top=80
   Width=435
   Height=110
   Text=""
  }
  Add(Label,3257238,413,182)
  {
   Left=5
   Top=60
   Width=54
   Height=17
   Caption="Описание"
  }
  Add(Label,10297054,455,182)
  {
   Left=450
   Top=60
   Width=40
   Height=17
   Caption="Работа"
  }
  Add(Edit,11170679,455,224)
  {
   Left=450
   Top=80
   Width=435
   Height=110
   Text=""
  }
  Add(Edit,6100857,497,224)
  {
   Left=5
   Top=220
   Width=120
   Text=""
   DataType=1
  }
  Add(Label,10505365,497,182)
  {
   Left=5
   Top=200
   Width=39
   Height=17
   Caption="Сумма"
  }
  Add(FormatStr,3129647,301,301)
  {
   DataCount=6
   Mask="UPDATE\r\n  [tab1]\r\nSET\r\n  [familia] = '%2',\r\n  [opisanie] = '%3',\r\n  [work] = '%4',\r\n  [summa] = '%5'\r\nWHERE\r\n  [id] = %6;"
   link(onFString,6409374:doExec,[])
   link(Str2,14344690:Text,[(314,264)(377,264)])
   link(Str3,5654748:Text,[(321,271)(419,271)])
   link(Str4,11170679:Text,[(328,278)(461,278)])
   link(Str5,6100857:Text,[(335,285)(503,285)])
   link(Str6,4755838:Value,[(342,279)(244,279)])
  }
  Add(Hub,3089475,441,301)
  {
   link(onEvent1,13011679:onEvent1,[(466,307)(466,20)])
   link(onEvent2,2868402:doDeferredEvent,[(476,314)(476,342)])
  }
  Add(DoData,8975738,553,336)
  {
   Data=Integer(0)
   link(onEventData,5832317:doEvent2,[(597,342)(597,206)(65,206)(65,69)])
  }
  Add(DeferredEvent,2868402,497,336)
  {
   link(onDeferredEvent,8975738:doData,[])
  }
  Add(Hub,5832317,77,56)
  {
   InCount=2
   OutCount=3
   link(onEvent1,928490:doVisible,[])
   link(onEvent2,8170284:doSeparateMT,[(129,69)(129,139)])
  }
  Add(MT_MultiData,8170284,168,133)
  {
   Count=6
   Point(Data)
   Point(RemaindData)
   link(onData1,4755838:doValue,[(219,139)(219,230)])
   link(onData2,8784403:doText,[(212,146)(212,104)])
   link(onData3,14344690:doText,[(286,153)(286,230)])
   link(onData4,5654748:doText,[(306,160)(306,230)])
   link(onData5,11170679:doText,[(328,167)(328,230)])
   link(onData6,6100857:doText,[(348,174)(348,230)])
   link(Data,13011679:Data1,[(174,73)(27,73)])
  }
  Add(Memory,4755838,238,224)
  {
  }
  Add(Label,2151521,245,56)
  {
   Left=5
   Top=10
   Width=30
   Height=17
   Caption="Дата"
  }
END_SDK
Add(GetDataEx,2754020,434,287)
{
 Angle=3
 link(Data,947388:Select,[(419,292)])
}
Add(ChildGroupBox,6602222,497,455)
{
 link(Data1,2754020:Var1,[(503,281)(440,281)])
}
BEGIN_SDK
  Add(EditMulti,7158192,21,21)
  {
   WorkCount=1
   DataCount=1
   Width=797
   Height=550
   link(doWork1,10638613:doSeparateMT,[(67,27)(67,111)(164,118)(164,188)])
  }
  Add(GroupBox,11911772,35,35)
  {
   Left=10
   Top=360
   Width=895
   Height=410
   Caption=""
  }
  Add(Label,11604296,280,105)
  {
   Left=5
   Top=10
   Width=30
   Height=17
   Caption="Дата"
  }
  Add(Edit,11671383,406,273)
  {
   Left=150
   Top=30
   Width=310
   Enabled=1
   Text=""
   ReadOnly=0
  }
  Add(Label,8815771,280,147)
  {
   Left=5
   Top=30
   Width=57
   Height=29
   Font=[MS Sans Serif,15,1,0,1]
   Caption="Дата"
  }
  Add(Label,5413725,406,231)
  {
   Left=150
   Top=10
   Width=53
   Height=17
   Caption="Фамилия"
  }
  Add(Edit,12428065,448,273)
  {
   Left=5
   Top=80
   Width=435
   Height=110
   Enabled=1
   Text=""
   ReadOnly=0
  }
  Add(Label,8424378,448,231)
  {
   Left=5
   Top=60
   Width=54
   Height=17
   Caption="Описание"
  }
  Add(Label,11726734,490,231)
  {
   Left=450
   Top=60
   Width=40
   Height=17
   Caption="Работа"
  }
  Add(Edit,1011414,490,273)
  {
   Left=450
   Top=80
   Width=435
   Height=110
   Enabled=1
   Text=""
   ReadOnly=0
  }
  Add(Edit,2308080,532,273)
  {
   Left=5
   Top=220
   Width=120
   Enabled=1
   Text=""
   DataType=1
   ReadOnly=0
  }
  Add(Label,881908,532,231)
  {
   Left=5
   Top=200
   Width=39
   Height=17
   Caption="Сумма"
  }
  Add(MT_MultiData,10638613,203,182)
  {
   Count=6
   Point(Data)
   Point(RemaindData)
   link(onData2,8815771:doText,[(247,195)(247,153)])
   link(onData3,11671383:doText,[(321,202)(321,279)])
   link(onData4,12428065:doText,[(341,209)(341,279)])
   link(onData5,1011414:doText,[(363,216)(363,279)])
   link(onData6,2308080:doText,[(383,223)(383,279)])
   link(Data,7158192:Data1,[(209,102)(27,102)])
  }
END_SDK
Add(ChildForm,382362,490,546)
{
}
BEGIN_SDK
  Add(EditMulti,740293,21,14)
  {
   EventCount=1
   WorkCount=1
   DataCount=1
   Width=797
   Height=480
   link(doWork1,6789909:doVisible,[(67,20)(67,62)])
  }
  Add(MainForm,6789909,140,28)
  {
   Left=35
   Top=105
   Width=1317
   Height=338
   Visible=1
   Position=3
   Point(doVisible)
   Point(onClose)
   link(onClose,7936292:doClear,[(278,55)(278,97)])
  }
  Add(Button,8958237,203,154)
  {
   Left=10
   Top=70
   Width=110
   Height=30
   Font=[MS Sans Serif,8,1,0,1]
   Caption="Искать"
   link(onClick,10677122:doString,[])
  }
  Add(Edit,5217928,259,112)
  {
   Left=10
   Top=30
   Width=310
   Text=""
  }
  Add(Label,2720308,259,35)
  {
   Left=10
   Top=10
   Width=53
   Height=17
   Caption="Фамилия"
  }
  Add(FormatStr,10677122,259,154)
  {
   DataCount=1
   Mask="SELECT value FROM tab1 WHERE value LIKE '^%1^'"
   link(onFString,7157604:doReplace,[])
   link(Str1,5217928:Text,[])
  }
  Add(MTStrTbl,9246759,154,147)
  {
   Left=10
   Top=110
   Width=1280
   Height=180
   Name="mtstsearch"
   Columns=#4:№=40|7:Дата=70|11:Фамилия=300|12:Описание=400|10:Работа=400|8:Сумма=65|
   ChangeWidth=1
   Point(doSetFocus)
   Point(Row)
   Point(onDblClick)
  }
  Add(MST_DB,11513766,448,154)
  {
   MSTControl="mtstsearch"
  }
  Add(MST_Clear,7936292,385,91)
  {
   MSTControl="mtstsearch"
  }
  Add(Replace,7157604,322,154)
  {
   SubStr="^"
   DestStr="%"
   link(onReplace,2595244:doQuery,[])
  }
  Add(DSC_Query,2595244,385,154)
  {
   DSManager="parent.mdb"
   link(onQuery,11513766:doAddRow,[])
  }
END_SDK


Редактировалось 2 раз(а), последний 2024-09-22 11:55:17
карма: 1

0
Ответов: 2236
Рейтинг: 676
#42: 2024-09-22 12:03:59 ЛС | профиль | цитата
Serascer, я сейчас не за компьютером и проверить не смогу, но как минимум этот запрос не верный:
SELECT value FROM tab1 WHERE value LIKE '^%1^'"
Вместо Value нужно поставить нужный вам столбец из таблицы балы данных. В ваше случае это familia
SELECT familia FROM tab1 WHERE familia LIKE '^%1^'"
Да и если нужны все данные записи, то перечисляет их после SELECT в нужном порядке к примеру:
SELECT familia, opisanie, work FROM tab1 WHERE familia LIKE '^%1^'"

Редактировалось 1 раз(а), последний 2024-09-22 12:06:50
карма: 11

0
Ответов: 133
Рейтинг: 0
#43: 2024-09-22 12:08:42 ЛС | профиль | цитата
sla8a, аааа вот оно что ) то-то я чуял подвох где-то, спасибо большое. Первый раз работаю с sql
карма: 1

0
Ответов: 2236
Рейтинг: 676
#44: 2024-09-22 12:17:47 ЛС | профиль | цитата
Serascer писал(а):
Первый раз работаю с sql
После SELECT вы перечесляете те данные которые вам нужны и в нужной вам последовательности. Так же в запросе к базе данных есть много плюшек. Можно к примеру использовать CASE и выдавать в таблицу (интерфейсу) к примеру если WORK равно 0 то выдать строку НЕ РАБОТАЕ, а если WORK = 1, то выдать строку РАБОТАЕТ.
В интернете можно смотреть описания и примеры запросов по sqlite, они в большинстве будут работать в HiAsm.
карма: 11

0
Ответов: 133
Рейтинг: 0
#45: 2024-09-22 12:22:43 ЛС | профиль | цитата
Вот что вышло ) По идее закончил с программой, совместные усилия оказались успешные 

Add(MainForm,2953706,140,105)
{
 Width=1416
 Height=819
 Caption="База ремонтов"
 Position=1
 Point(onClose)
 link(onCreate,6126171:doOpen,[])
 link(onClose,6126171:doClose,[])
}
Add(Button,2538230,189,224)
{
 Left=10
 Top=10
 Width=110
 Caption="Добавить"
 link(onClick,3731829:doWork1,[])
}
Add(MTStrTbl,947388,140,161)
{
 Left=10
 Top=40
 Width=1380
 Height=305
 Name="mtst"
 Columns=#4:№=40|7:Дата=70|11:Фамилия=300|11:Телефон=100|12:Описание=400|10:Работа=400|8:Сумма=65|
 ChangeWidth=1
 Point(doSetFocus)
 Point(Row)
 Point(onDblClick)
 link(onClick,6602222:doWork1,[(198,167)(198,398)])
}
Add(Button,4446188,189,308)
{
 Left=130
 Top=10
 Width=110
 Caption="Изменить"
 link(onClick,39975:doWork1,[])
}
Add(Button,15445199,175,497)
{
 Left=250
 Top=10
 Width=110
 Caption="Поиск"
 link(onClick,382362:doWork1,[])
}
Add(DS_SQLite,6126171,294,119)
{
 Name="mdb"
 FileName="Clients.db"
 WaitClose=0
 link(onOpen,7203295:doExec,[])
}
Add(DSC_Exec,7203295,350,119)
{
 SQL="CREATE TABLE IF NOT EXISTS[tab1](\r\n  [id] INTEGER PRIMARY KEY AUTOINCREMENT, \r\n  [date] TEXT, \r\n  [familia] TEXT, \r\n  [tel] TEXT, \r\n  [opisanie] TEXT, \r\n  [work] TEXT, \r\n  [summa] TEXT);"
 DSManager="mdb"
 link(onExec,8256804:doEvent1,[])
}
Add(DSC_Query,301125,455,126)
{
 SQL="SELECT\r\n  id, \r\n  date,\r\n  familia,\r\n  tel,\r\n  opisanie,\r\n  work,\r\n  summa \r\nFROM tab1;\r\n"
 DSManager="mdb"
 link(onQuery,5887078:doAddRow,[])
}
Add(MST_DB,5887078,511,126)
{
 MSTControl="mtst"
}
Add(Hub,8256804,406,119)
{
 InCount=3
 OutCount=3
 link(onEvent1,15751595:doClear,[(430,125)(430,90)])
 link(onEvent2,301125:doQuery,[])
 link(onEvent3,13789751:doSortDigit,[(438,139)(438,181)])
}
Add(MST_Clear,15751595,455,84)
{
 MSTControl="mtst"
}
Add(MST_SortInCol,13789751,455,168)
{
 MethodSort=1
 MSTControl="mtst"
 Point(doSortDigit)
}
Add(ChildForm,3731829,238,224)
{
 link(onEvent1,8256804:doEvent2,[(338,230)(338,132)])
}
BEGIN_SDK
  Add(EditMulti,1491838,21,14)
  {
   EventCount=1
   WorkCount=1
   Width=573
   Height=291
   link(doWork1,475173:doEvent1,[(67,20)(67,62)])
  }
  Add(MainForm,13367302,119,28)
  {
   Left=35
   Top=105
   Width=906
   Height=338
   Visible=1
   Position=3
   Point(doVisible)
  }
  Add(Button,1416819,168,189)
  {
   Left=390
   Top=255
   Width=110
   Height=30
   Font=[MS Sans Serif,8,1,0,1]
   Caption="Добавить"
   link(onClick,15597162:doString,[])
  }
  Add(Edit,13718670,266,112)
  {
   Left=130
   Top=30
   Width=310
   Text=""
  }
  Add(Label,10493128,224,28)
  {
   Left=10
   Top=5
   Width=30
   Height=17
   Caption="Дата"
  }
  Add(DSC_Exec,12580462,301,189)
  {
   DSManager="parent.mdb"
   link(onExec,2150116:doEvent1,[])
  }
  Add(Label,8723371,266,70)
  {
   Left=130
   Top=10
   Width=53
   Height=17
   Caption="Фамилия"
  }
  Add(Edit,1991437,350,112)
  {
   Left=5
   Top=80
   Width=435
   Height=110
   Text=""
  }
  Add(Label,10818380,350,70)
  {
   Left=5
   Top=60
   Width=54
   Height=17
   Caption="Описание"
  }
  Add(Label,7006651,392,70)
  {
   Left=450
   Top=60
   Width=40
   Height=17
   Caption="Работа"
  }
  Add(Edit,6769963,392,112)
  {
   Left=450
   Top=80
   Width=435
   Height=110
   Text=""
  }
  Add(Edit,10926788,434,112)
  {
   Left=5
   Top=220
   Width=120
   Text=""
   DataType=1
  }
  Add(Label,14976561,434,70)
  {
   Left=5
   Top=200
   Width=39
   Height=17
   Caption="Сумма"
  }
  Add(DateConvertor,5015877,224,112)
  {
   Mode=9
   Format="dd-MM-yyyy"
   Point(Result)
   Point(Data)
   link(Data,12298793:DateTime,[(230,107)(237,107)])
  }
  Add(FormatStr,15597162,224,189)
  {
   DataCount=6
   Mask="INSERT\r\nINTO\r\n  [tab1](\r\n    [date],\r\n    [familia],\r\n    [tel],\r\n    [opisanie],\r\n    [work],\r\n    [summa])\r\nVALUES(\r\n    '%1',\r\n    '%2',\r\n    '%3',\r\n    '%4',\r\n    '%5',\r\n    %6);\r\n"
   link(onFString,12580462:doExec,[])
   link(Str1,5015877:Result,[])
   link(Str2,13718670:Text,[(237,152)(272,152)])
   link(Str3,338662:Text,[(244,167)(314,167)])
   link(Str4,1991437:Text,[(251,167)(356,167)])
   link(Str5,6769963:Text,[(258,167)(398,167)])
   link(Str6,10926788:Text,[(265,167)(440,167)])
  }
  Add(Hub,2150116,378,189)
  {
   link(onEvent1,1491838:onEvent1,[(466,195)(466,20)])
   link(onEvent2,14722169:doDeferredEvent,[(410,202)(410,230)])
  }
  Add(DoData,7108916,476,224)
  {
   Data=Integer(0)
   link(onEventData,475173:doEvent2,[(521,230)(521,274)(67,274)(67,69)])
  }
  Add(DeferredEvent,14722169,420,224)
  {
   link(onDeferredEvent,7108916:doData,[])
  }
  Add(Hub,475173,77,56)
  {
   InCount=2
   link(onEvent1,13367302:doVisible,[])
   link(onEvent2,3131699:doWork1,[(109,69)(109,97)(186,97)])
  }
  Add(Time,12298793,224,70)
  {
   Time_Date=1
   Format="D M:Y"
   Point(DateTime)
  }
  Add(HubEx,3131699,182,112)
  {
   link(onEvent,5015877:doConvert,[])
  }
  Add(DatePicker,11740223,112,112)
  {
   Left=5
   Top=30
   Width=115
   Height=21
   link(onChange,3131699:doWork2,[])
  }
  Add(Edit,338662,308,112)
  {
   Left=450
   Top=30
   Width=180
   Text=""
  }
  Add(Label,7630534,308,70)
  {
   Left=450
   Top=10
   Width=49
   Height=17
   Caption="Телефон"
  }
END_SDK
Add(ChildForm,39975,238,308)
{
 link(onEvent1,8256804:doEvent3,[(338,314)(338,139)])
 link(Data1,2754020:Var3,[(244,229)])
}
BEGIN_SDK
  Add(EditMulti,13011679,21,14)
  {
   EventCount=1
   WorkCount=1
   DataCount=1
   Width=797
   Height=480
   link(doWork1,5832317:doEvent1,[(67,20)(67,62)])
  }
  Add(MainForm,928490,119,28)
  {
   Left=35
   Top=105
   Width=906
   Height=338
   Visible=1
   Position=3
   Point(doVisible)
  }
  Add(Button,12215766,203,301)
  {
   Left=390
   Top=255
   Width=110
   Height=30
   Font=[MS Sans Serif,8,1,0,1]
   Caption="Изменить"
   link(onClick,3129647:doString,[])
  }
  Add(Edit,14344690,329,224)
  {
   Left=130
   Top=30
   Width=310
   Text=""
  }
  Add(Label,8784403,245,98)
  {
   Left=5
   Top=30
   Width=57
   Height=29
   Font=[MS Sans Serif,15,1,0,1]
   Caption="Дата"
  }
  Add(DSC_Exec,6409374,378,301)
  {
   DSManager="parent.mdb"
   link(onExec,3089475:doEvent1,[])
  }
  Add(Label,3803848,329,182)
  {
   Left=130
   Top=10
   Width=53
   Height=17
   Caption="Фамилия"
  }
  Add(Edit,5654748,413,224)
  {
   Left=5
   Top=80
   Width=435
   Height=110
   Text=""
  }
  Add(Label,3257238,413,182)
  {
   Left=5
   Top=60
   Width=54
   Height=17
   Caption="Описание"
  }
  Add(Label,10297054,455,182)
  {
   Left=450
   Top=60
   Width=40
   Height=17
   Caption="Работа"
  }
  Add(Edit,11170679,455,224)
  {
   Left=450
   Top=80
   Width=435
   Height=110
   Text=""
  }
  Add(Edit,6100857,497,224)
  {
   Left=5
   Top=220
   Width=120
   Text=""
   DataType=1
  }
  Add(Label,10505365,497,182)
  {
   Left=5
   Top=200
   Width=39
   Height=17
   Caption="Сумма"
  }
  Add(FormatStr,3129647,301,301)
  {
   DataCount=7
   Mask="UPDATE\r\n  [tab1]\r\nSET\r\n  [familia] = '%2',\r\n  [tel] = '%3',\r\n  [opisanie] = '%4',\r\n  [work] = '%5',\r\n  [summa] = '%6'\r\nWHERE\r\n  [id] = %7;"
   link(onFString,6409374:doExec,[])
   link(Str2,14344690:Text,[(314,264)(335,264)])
   link(Str3,11779834:Text,[(321,279)(377,279)])
   link(Str4,5654748:Text,[(328,279)(419,279)])
   link(Str5,11170679:Text,[(335,279)(461,279)])
   link(Str6,6100857:Text,[(342,279)(503,279)])
   link(Str7,4755838:Value,[(349,279)(244,279)])
  }
  Add(Hub,3089475,441,301)
  {
   link(onEvent1,13011679:onEvent1,[(466,307)(466,20)])
   link(onEvent2,2868402:doDeferredEvent,[(476,314)(476,342)])
  }
  Add(DoData,8975738,553,336)
  {
   Data=Integer(0)
   link(onEventData,5832317:doEvent2,[(597,342)(597,206)(65,206)(65,69)])
  }
  Add(DeferredEvent,2868402,497,336)
  {
   link(onDeferredEvent,8975738:doData,[])
  }
  Add(Hub,5832317,77,56)
  {
   InCount=2
   OutCount=3
   link(onEvent1,928490:doVisible,[])
   link(onEvent2,8170284:doSeparateMT,[(129,69)(129,139)])
  }
  Add(MT_MultiData,8170284,168,133)
  {
   Count=7
   Point(Data)
   Point(RemaindData)
   link(onData1,4755838:doValue,[(219,139)(219,230)])
   link(onData2,8784403:doText,[(212,146)(212,104)])
   link(onData3,14344690:doText,[(286,153)(286,230)])
   link(onData4,11779834:doText,[(286,160)(286,230)])
   link(onData5,5654748:doText,[(306,167)(306,230)])
   link(onData6,11170679:doText,[(328,174)(328,230)])
   link(Data,13011679:Data1,[(174,73)(27,73)])
   link(onData7,6100857:doText,[(348,181)(348,230)])
  }
  Add(Memory,4755838,238,224)
  {
  }
  Add(Label,2151521,245,56)
  {
   Left=5
   Top=10
   Width=30
   Height=17
   Caption="Дата"
  }
  Add(Edit,11779834,371,224)
  {
   Left=450
   Top=30
   Width=180
   Text=""
  }
  Add(Label,3672410,371,182)
  {
   Left=450
   Top=10
   Width=49
   Height=17
   Caption="Телефон"
  }
END_SDK
Add(GetDataEx,2754020,161,224)
{
 Angle=3
 link(Data,947388:Select,[(146,229)])
}
Add(ChildGroupBox,6602222,224,392)
{
 link(Data1,2754020:Var1,[(230,218)(167,218)])
}
BEGIN_SDK
  Add(EditMulti,7158192,21,21)
  {
   WorkCount=1
   DataCount=1
   Width=797
   Height=550
   link(doWork1,10638613:doSeparateMT,[(67,27)(67,111)(164,118)(164,188)])
  }
  Add(GroupBox,11911772,35,35)
  {
   Left=10
   Top=360
   Width=895
   Height=410
   Caption=""
  }
  Add(Label,11604296,280,105)
  {
   Left=5
   Top=10
   Width=30
   Height=17
   Caption="Дата"
  }
  Add(Edit,11671383,399,273)
  {
   Left=130
   Top=30
   Width=310
   Enabled=1
   Text=""
   ReadOnly=0
  }
  Add(Label,8815771,280,147)
  {
   Left=5
   Top=30
   Width=57
   Height=29
   Font=[MS Sans Serif,15,1,0,1]
   Caption="Дата"
  }
  Add(Label,5413725,399,231)
  {
   Left=130
   Top=10
   Width=53
   Height=17
   Caption="Фамилия"
  }
  Add(Edit,12428065,483,273)
  {
   Left=5
   Top=80
   Width=435
   Height=110
   Enabled=1
   Text=""
   ReadOnly=0
  }
  Add(Label,8424378,483,231)
  {
   Left=5
   Top=60
   Width=54
   Height=17
   Caption="Описание"
  }
  Add(Label,11726734,525,231)
  {
   Left=450
   Top=60
   Width=40
   Height=17
   Caption="Работа"
  }
  Add(Edit,1011414,525,273)
  {
   Left=450
   Top=80
   Width=435
   Height=110
   Enabled=1
   Text=""
   ReadOnly=0
  }
  Add(Edit,2308080,567,273)
  {
   Left=5
   Top=220
   Width=120
   Enabled=1
   Text=""
   DataType=1
   ReadOnly=0
  }
  Add(Label,881908,567,231)
  {
   Left=5
   Top=200
   Width=39
   Height=17
   Caption="Сумма"
  }
  Add(MT_MultiData,10638613,203,182)
  {
   Count=7
   Point(Data)
   Point(RemaindData)
   link(onData2,8815771:doText,[(247,195)(247,153)])
   link(onData3,11671383:doText,[(321,202)(321,279)])
   link(onData4,13541262:doText,[(338,209)(338,279)])
   link(onData5,12428065:doText,[(359,216)(359,279)])
   link(onData6,1011414:doText,[(380,223)(380,279)])
   link(Data,7158192:Data1,[(209,102)(27,102)])
   link(onData7,2308080:doText,[(401,230)(401,279)])
  }
  Add(Edit,13541262,441,273)
  {
   Left=450
   Top=30
   Width=180
   Enabled=1
   Text=""
   ReadOnly=0
  }
  Add(Label,1608245,441,231)
  {
   Left=450
   Top=10
   Width=49
   Height=17
   Caption="Телефон"
  }
END_SDK
Add(ChildForm,382362,217,497)
{
}
BEGIN_SDK
  Add(EditMulti,740293,21,14)
  {
   EventCount=1
   WorkCount=1
   DataCount=1
   Width=797
   Height=480
   link(doWork1,6789909:doVisible,[(67,20)(67,62)])
  }
  Add(MainForm,6789909,140,28)
  {
   Left=35
   Top=105
   Width=1416
   Height=759
   Visible=1
   Position=3
   Point(doVisible)
   Point(onClose)
   link(onClose,7936292:doClear,[(278,55)(278,97)])
  }
  Add(Button,8958237,203,154)
  {
   Left=10
   Top=70
   Width=110
   Height=30
   Font=[MS Sans Serif,8,1,0,1]
   Caption="Искать"
   link(onClick,10677122:doString,[])
  }
  Add(Edit,5217928,259,112)
  {
   Left=10
   Top=30
   Width=310
   Text=""
  }
  Add(Label,2720308,259,70)
  {
   Left=10
   Top=10
   Width=53
   Height=17
   Caption="Фамилия"
  }
  Add(FormatStr,10677122,259,154)
  {
   DataCount=1
   Mask="SELECT id, date, familia, tel, opisanie, work, summa FROM tab1 WHERE familia LIKE '^%1^'"
   link(onFString,7157604:doReplace,[])
   link(Str1,5217928:Text,[])
  }
  Add(MTStrTbl,9246759,112,147)
  {
   Left=10
   Top=110
   Width=1380
   Height=180
   Name="mtstsearch"
   Columns=#4:№=40|7:Дата=70|11:Фамилия=300|11:Телефон=100|12:Описание=400|10:Работа=400|8:Сумма=65|
   ChangeWidth=1
   Point(doSetFocus)
   Point(Row)
   Point(onDblClick)
   link(onClick,5804836:doWork1,[(152,153)(152,223)])
  }
  Add(MST_DB,11513766,448,154)
  {
   MSTControl="mtstsearch"
  }
  Add(MST_Clear,7936292,385,91)
  {
   MSTControl="mtstsearch"
  }
  Add(Replace,7157604,322,154)
  {
   SubStr="^"
   DestStr="%"
   link(onReplace,2595244:doQuery,[])
  }
  Add(DSC_Query,2595244,385,154)
  {
   DSManager="parent.mdb"
   link(onQuery,11513766:doAddRow,[])
  }
  Add(Edit,2992831,259,259)
  {
   Left=380
   Top=30
   Width=310
   Text=""
  }
  Add(Label,10230231,259,217)
  {
   Left=380
   Top=10
   Width=49
   Height=17
   Caption="Телефон"
  }
  Add(Button,12181062,217,301)
  {
   Left=380
   Top=65
   Width=110
   Height=30
   Font=[MS Sans Serif,8,1,0,1]
   Caption="Искать"
   link(onClick,9994550:doString,[])
  }
  Add(FormatStr,9994550,259,301)
  {
   DataCount=1
   Mask="SELECT id, date, familia, tel, opisanie, work, summa FROM tab1 WHERE tel LIKE '^%1^'"
   link(onFString,1808222:doReplace,[])
   link(Str1,2992831:Text,[])
  }
  Add(MST_DB,1556406,448,301)
  {
   MSTControl="mtstsearch"
  }
  Add(Replace,1808222,322,301)
  {
   SubStr="^"
   DestStr="%"
   link(onReplace,227670:doQuery,[])
  }
  Add(DSC_Query,227670,385,301)
  {
   DSManager="parent.mdb"
   link(onQuery,1556406:doAddRow,[])
  }
  Add(ChildGroupBox,5804836,161,217)
  {
   link(Data1,9246759:Select,[(167,201)(118,201)])
  }
  BEGIN_SDK
    Add(EditMulti,16335083,21,21)
    {
     WorkCount=1
     DataCount=1
     Width=797
     Height=550
     link(doWork1,16079741:doSeparateMT,[(67,27)(67,111)(164,118)(164,188)])
    }
    Add(GroupBox,9125319,35,35)
    {
     Left=10
     Top=300
     Width=895
     Height=410
     Caption=""
    }
    Add(Label,777029,280,105)
    {
     Left=5
     Top=10
     Width=30
     Height=17
     Caption="Дата"
    }
    Add(Edit,12525761,399,273)
    {
     Left=130
     Top=30
     Width=310
     Enabled=1
     Text=""
     ReadOnly=0
    }
    Add(Label,1738305,280,147)
    {
     Left=5
     Top=30
     Width=57
     Height=29
     Font=[MS Sans Serif,15,1,0,1]
     Caption="Дата"
    }
    Add(Label,16581666,399,231)
    {
     Left=130
     Top=10
     Width=53
     Height=17
     Caption="Фамилия"
    }
    Add(Edit,4494717,483,273)
    {
     Left=5
     Top=80
     Width=435
     Height=110
     Enabled=1
     Text=""
     ReadOnly=0
    }
    Add(Label,16500743,483,231)
    {
     Left=5
     Top=60
     Width=54
     Height=17
     Caption="Описание"
    }
    Add(Label,9936782,525,231)
    {
     Left=450
     Top=60
     Width=40
     Height=17
     Caption="Работа"
    }
    Add(Edit,4156242,525,273)
    {
     Left=450
     Top=80
     Width=435
     Height=110
     Enabled=1
     Text=""
     ReadOnly=0
    }
    Add(Edit,2090202,567,273)
    {
     Left=5
     Top=220
     Width=120
     Enabled=1
     Text=""
     DataType=1
     ReadOnly=0
    }
    Add(Label,7769607,567,231)
    {
     Left=5
     Top=200
     Width=39
     Height=17
     Caption="Сумма"
    }
    Add(MT_MultiData,16079741,203,182)
    {
     Count=7
     Point(Data)
     Point(RemaindData)
     link(onData2,1738305:doText,[(247,195)(247,153)])
     link(onData3,12525761:doText,[(321,202)(321,279)])
     link(onData4,14363825:doText,[(338,209)(338,279)])
     link(onData5,4494717:doText,[(359,216)(359,279)])
     link(onData6,4156242:doText,[(380,223)(380,279)])
     link(onData7,2090202:doText,[(401,230)(401,279)])
     link(Data,16335083:Data1,[(209,102)(27,102)])
    }
    Add(Edit,14363825,441,273)
    {
     Left=450
     Top=30
     Width=180
     Enabled=1
     Text=""
    }
    Add(Label,12376104,441,231)
    {
     Left=450
     Top=10
     Width=49
     Height=17
     Caption="Телефон"
    }
  END_SDK
END_SDK
карма: 1

0
ФорумыПомощь по пакетуПодскажите лучший вариант для базы данных ← Ctrl1234Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика