Koding button Delphi 7 Login Cancel simpan Edit Hamos

Koding button

 Delphi7 Login  Cancel simpan  Edit Hamos 

Kodin button Login

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if(edit1.Text ='admin') and (edit2.Text ='admin')then

begin

form1.Hide;

form2.show;

end

else

begin

showmessage('User atau Password anda salah')

end

Kodin button Cancel

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

close;

end;

end.

Kodin button simpan

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

ADOQuery1.Append;

ADOQuery1.FieldByName('naran').AsString:=Edit1.Text;

ADOQuery1.FieldByName('fatin_moris').AsString:=Edit2.Text;

ADOQuery1.FieldByName('data_moris').AsString:=Edit3.Text;

ADOQuery1.FieldByName('hela_fatin').AsString:=edit4.Text;

ADOQuery1.FieldByName('sexo').AsString:=combobox1.Text;

ADOQuery1.FieldByName('telefone').AsString:=edit5.Text;

ADOQuery1.Post;

end;

kodin button Edit

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

ADOQuery1.Edit;

edit1.Focused;

edit1.Text:=ADOQuery1['naran'];

edit2.Text:=ADOQuery1['fatin_moris'];

edit3.Text:=ADOQuery1['data_moris'];

edit4.Text:=ADOQuery1['hela_fatin'];

combobox1.Text:=ADOQuery1['sexo'];

edit5.Text:=ADOQuery1['telefone'];

ADOQuery1.Refresh;

end;

Kodin button Hamos

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

ADOQuery1.Delete;

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

combobox1.Text:='';

edit5.Text:='';

end;