Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2009-07-06 20:43:32 ЛС | профиль | цитата
Evgen818,
Add(FormatStr,12878242,315,434)
{
Mask="INSERT INTO oper values(NULL,"%1", "%2")"
}


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,[])
}



карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:Evgen818