Evgen818,
Add(SQLite_Exec,10345960,413,196) { SQL="CREATE TABLE oper (id INTEGER PRIMARY KEY AUTOINCREMENT,FIO TEXT,KOD NUM ) " link(onError,48623:doWork,[(473,202)(473,201)]) link(dbHandle,12309576:Var,[]) } Add(MainForm,14831007,105,168) { Width=633 link(onCreate,10011731:doEvent1,[]) } Add(SQLite_DB,1490210,259,238) { link(onOpen,8899049:doValue,[]) link(onError,16713527:doWork,[(371,251)(371,257)]) link(FileName,12907843:Var3,[(265,149)]) } Add(GlobalVar,8899049,301,238) { Name="dbV" } Add(FileTools,739652,252,161) { @Hint=#19:Проверка наличия БД| link(onEnd,14172316:doValue,[(310,167)(310,146)]) link(FileName,12907843:Var2,[]) } Add(Hub,10011731,168,182) { OutCount=5 link(onEvent1,739652:doFileExists,[]) link(onEvent2,1490210:doOpen,[(220,195)(220,244)]) link(onEvent3,2233826:doCompare,[]) link(onEvent4,12174927:doEvent1,[(184,209)(184,538)]) } Add(GetDataEx,12907843,245,140) { link(Data,6816851:Value,[]) } Add(If_else,2233826,322,196) { Op2=Integer(0) link(onTrue,10345960:doExec,[]) link(Op1,14172316:Value,[]) } Add(Memory,14172316,322,140) { @Hint=#6:Имя БД| } Add(GlobalVar,12309576,413,161) { Name="dbV" } Add(Edit,9607550,343,357) { Left=5 Top=85 Width=180 TabOrder=1 Text="" } Add(Button,13272033,189,434) { Left=5 Top=115 Caption="Внести" Data=Integer(1) link(onClick,6989287:doEvent1,[]) } Add(FormatStr,12878242,315,434) { Mask="INSERT INTO oper values(NULL,"%1", "%2")" link(onFString,10337356:doExec,[]) link(Str1,13321150:Text,[(321,412)(293,412)]) link(Str2,9607550:Text,[(328,412)(349,412)]) } Add(SQLite_Exec,10337356,371,434) { link(onError,508852:doWork,[(413,440)(413,439)]) link(dbHandle,13428702:Var,[]) } Add(GlobalVar,13428702,371,413) { Name="dbV" } Add(Hub,6989287,259,434) { OutCount=3 link(onEvent1,12878242:doString,[]) link(onEvent2,11719003:doWork,[(281,447)(281,489)]) } Add(Edit,13321150,287,357) { Left=5 Top=35 Width=180 TabOrder=1 Text="" } Add(Label,4827442,287,315) { Left=10 Top=15 Caption="ФИО" } Add(Label,7665367,343,315) { Left=5 Top=65 Caption="КОД" } Add(Hub,12174927,185,532) { InCount=2 OutCount=3 link(onEvent1,12470231:doClear,[(377,538)(377,531)]) link(onEvent2,3172968:doQuery,[(279,545)(279,538)]) } Add(LineBreakEx,4071508,129,539) { Caption="New" Type=1 link(OnEvent,12174927:doEvent2,[]) } Add(LineBreakEx,11719003,290,483) { Caption="New" } Add(LineBreakEx,508852,423,433) { Caption="onError" } Add(LineBreakEx,48623,500,195) { Caption="onError" } Add(LineBreakEx,16713527,451,251) { Caption="onError" } Add(Message,13069546,549,308) { Caption="Error" } Add(LineBreakEx,1742818,458,308) { Caption="onError" Type=1 link(OnEvent,13069546:doMessage,[]) } Add(Memory,6816851,252,98) { @Hint=#6:Имя БД| Default=String(oper) } Add(StringTable,12470231,555,518) { Left=195 Top=15 Width=411 Height=136 Grid=0 ClearAll=0 Redaction=1 ColumnClick=1 Point(doAddColumn) Point(doSort) Point(onBeforeLineChange) Point(onDblClick) Point(Strings) } Add(GlobalVar,6924038,359,490) { Name="dbV" } Add(SQLite_Query,3172968,359,532) { SQL="Select id AS Номер, FIO AS ФИО,KOD AS Код FROM oper" link(onQuery,16174478:doStr,[(441,538)(441,496)]) link(onColumns,16353804:doEnum,[(441,545)(441,559)]) link(onError,12428361:doWork,[(410,552)(410,573)]) link(dbHandle,6924038:Var,[]) } Add(MT_String,16174478,492,490) { link(onResult,12470231:doAdd,[(540,496)(540,524)]) } Add(LineBreakEx,12428361,429,567) { Caption="onError" } Add(MT_Enum,16353804,492,553) { link(onItem,12470231:doAddColumn,[]) }
|