дай пожалуйста,я как раз такую же прогу делаю
я вот так сделал:
Add(MainForm,2953706,574,175) { Visible=1 Point(doVisible) } Add(Hashsum,3907444,189,168) { link(onResult,15123568:doValue,[]) link(Data,10063372:Var1,[(195,156)(171,156)(171,212)(146,212)]) } Add(StrList,2181515,364,238) { Strings=#65:1406F37190E825427440BC020919218A;B0C5ACD7607D104B629FDA93293BE8FE| Point(doGetIndex) Point(onGetIndex) link(onGetIndex,10282377:doCase,[]) } Add(Hashsum,14587763,238,224) { link(onResult,11778726:doValue,[]) link(Data,10063372:Var2,[(244,212)(153,212)]) } Add(Memory,15123568,322,168) { } Add(Memory,11778726,287,224) { link(onData,1032:doString,[(333,230)(333,263)(303,263)(303,286)]) } Add(FormatStr,1032,315,280) { Mask="%1;%2" link(onFString,2181515:doGetIndex,[]) link(Str1,11778726:Value,[(321,268)(293,268)]) link(Str2,15123568:Value,[]) } Add(Message,11150997,476,252) { Message="Неправильный логин или пароль!" Caption="!" Icon=1 } Add(Case,10282377,420,245) { Value=String(-1) link(onNextCase,3729991:doMessage,[(464,251)(464,209)]) link(onTrue,11150997:doMessage,[]) } Add(ChildForm,10063372,140,168) { link(onEvent1,3907444:doHashsum,[]) link(onEvent2,14587763:doHashsum,[(205,181)(205,230)]) } BEGIN_SDK Add(EditMulti,14692192,21,21) { EventCount=2 WorkCount=1 VarCount=2 link(Var1,8244052:Text,[(27,158)(118,158)]) link(Var2,12895761:Text,[(34,158)(174,158)]) link(doWork1,8910591:doClose,[(28,27)(28,132)]) } Add(MainForm,8910591,35,105) { Left=35 Top=105 Width=326 Height=247 BorderStyle=3 } Add(Edit,8244052,112,63) { Left=45 Top=60 Width=225 Height=25 Font=[Arial,12,0,0,204] Text="hiasm" Alignment=2 } Add(Edit,12895761,168,63) { Left=46 Top=115 Width=225 Height=25 Font=[Arial,12,0,0,204] Text="gogo" Alignment=2 } Add(Label,5391872,49,28) { Left=46 Top=32 Width=66 Height=28 Font=[Arial,16,0,0,204] Caption="Логин:" } Add(Label,13245645,49,63) { Left=44 Top=87 Width=81 Height=28 Font=[Arial,16,0,0,204] Caption="Пароль:" } Add(Button,11899524,189,154) { Left=111 Top=160 Width=88 Height=35 Caption="Вход!" link(onClick,16050579:doEvent1,[]) } Add(Hub,16050579,238,154) { link(onEvent1,14692192:onEvent1,[(286,160)(286,27)]) link(onEvent2,14692192:onEvent2,[(286,167)(286,34)]) } END_SDK Add(StyleXP,12386712,21,147) { } Add(Message,3729991,476,203) { Message="Вы успешно вошли!" Caption="!" Icon=3 link(onMessage,4627319:doEvent1,[]) } Add(Button,6158275,14,84) { Left=305 Top=155 } Add(Button,16147765,14,84) { Left=190 Top=145 } Add(Button,1469058,14,84) { Left=75 Top=270 } Add(Edit,10895210,14,84) { Left=120 Top=65 } Add(Edit,6265827,14,84) { Left=235 Top=210 } Add(CheckBox,16465411,14,84) { Left=70 Top=145 } Add(Hub,4627319,525,203) { link(onEvent1,2953706:doVisible,[]) link(onEvent2,10063372:doWork1,[(551,216)(551,195)(128,195)(128,174)]) } Add(PointHint,14335201,406,315) { Info=#15:Это база данных| Width=127 link(Data,2181515:Text,[(438,303)(370,303)]) }
создание базы:
Add(MainForm,2953706,21,105) { Caption="Создание базы" } Add(Memo,9280701,287,301) { Top=80 Width=494 Height=310 Align=4 ScrollBars=2 } Add(Hashsum,3907444,105,189) { link(onResult,15123568:doValue,[]) link(Data,8244052:Text,[]) } Add(Hashsum,14587763,154,245) { link(onResult,11778726:doValue,[]) link(Data,12895761:Text,[]) } Add(Memory,15123568,238,189) { } Add(Memory,11778726,203,245) { link(onData,1032:doString,[(249,251)(249,284)(219,284)(219,307)]) } Add(FormatStr,1032,231,301) { Mask="%1;%2" link(onFString,9280701:doAdd,[]) link(Str1,11778726:Value,[(237,289)(209,289)]) link(Str2,15123568:Value,[]) } Add(Edit,8244052,105,126) { Left=5 Top=5 Width=225 Height=25 Font=[Arial,12,0,0,204] Text="" Alignment=2 } Add(Edit,12895761,154,126) { Left=5 Top=40 Width=225 Height=25 Font=[Arial,12,0,0,204] Text="" Alignment=2 } Add(Button,11899524,21,189) { Left=241 Top=13 Width=88 Height=35 Caption="Добавить" link(onClick,16050579:doEvent1,[]) } Add(Hub,16050579,70,189) { link(onEvent1,3907444:doHashsum,[]) link(onEvent2,14587763:doHashsum,[(119,202)(119,251)]) } Add(StyleXP,6487781,21,147) { }
|