[дум]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

procedure TForm14.Button1Click(Sender: TObject); var i,g,e:integer; begin r:='leo'; s:='12345'; w:=логин.text; t:=пароль.Text; if (t=r) and (w=s) then begin   button4.Visible:=true;   button1.Visible:=false;   DBGrid1.Visible:=true;   DBNavigator1.Visible:=true; end else begin for I := 1 to 300 do         begin     if (w=f[i])and (y[i]=t) then     begin    edit3.Visible:=true;    edit4.Visible:=true;    cчёт.Visible:=true;    label1.Visible:=true;    label4.Visible:=true;    label2.Visible:=true;    label3.Visible:=true;    button2.Visible:=true;    button3.Visible:=true;    button4.Visible:=true;    button5.Visible:=true;    логин.Visible:=false;    пароль.Visible:=false;    button1.Visible:=false;    for g := 1 to i do    begin    ADOTable1.First;     ADOTable1.Next;    if g=i then    begin      E:=ADOTable1.Fields[1].AsInteger;        end;     end;       label1.Caption:=inttostr(E div 10000000000);     j:=E mod 10000000000;     label2.Caption:=inttostr(j div 100000);     label3.Caption:=inttostr(E mod 100000);