DELPHI: Membuat Halaman Login

Halaman Login pada delphi


Sediakan 1 Edit dan 1 Button, lalu double click pada Button, dan ketik script berikut
Procedure TForm1.Button2Click(sender: TObject);
If Edit1.Text = ‘1234’ then Form2.Show
Else
Begin
Shomessage(‘Password Salah’);
Edit1.Clear;
Edit1.SetFocus;
End;

http://forum.upi.edu/v4/index.php?topic=13181.0

Cara membuat coding Findkey dengan program delphi

 Contoh Kecil Findkey Pada Delphi

untuk bisa mengecek data sudah ada atau belum, anda harus menggunakan Tedit, tidak bisa menggunakan dbedit karena data langsung di posting dan selalu ada. untuk field pengecekan, misalnya kd guru.

selanjutnya lakukan pengecekan dengan findkey atau locate.
bedanya findkey butuh index, hasil lebih cepat sedangkan locate tidak butuh file index hasil tentunya lebih lambat

contoh:
procedure Tfrmgardu.NogarduExit(Sender: TObject);
begin
if DM.dsGardu.State = dsInsert then
begin
If DM.tblGardu.FindKey( [Nogardu.Text] ) then
begin
ShowMessage('Kode '+Nogardu.Text+' sudah ada');
Nogardu.SetFocus;
end
else
begin
DM.tblGardu.Insert;
DM.tblGardunogardu.Value := Nogardu.Text;
end;
end;

http://edysoftware.com/delphi/index.php?pilih=lihat&id=152