Delphi-DB: Contoh Form Login

Implementasi ini merupakan contoh paling sederhana untuk mencoba koneksi dataabase di delphi7. Contoh ini merupakan awal yg bagus untuk mulia belajar delphi. BANZAI
1. Atur Database dengan Database Desktop
- Alias: dbQ
- Tabel: tUser
- Field: FUser[A],FNama,FPass[A]
- isi dengan dua data
2. Buat Form fLogin
- Komponen:
+ Edit: Edit1, Edit2
+ Button: Button1
+ Table: Table1
+ DataSource: DataSource1
+ Query: Query1
3. Bagian kode:
- event pada FormActivate

procedure TForm1.FormCreate(Sender: TObject);
begin
table1.DatabaseName := 'dbQ' ;
table1.TableName := 'tUser.db';
table1.Active:= true;
datasource1.DataSet:= table1;
Query1.DataSource:=DataSource1;
Query1.Active:=false;
end;

- event klik pada Button1

procedure TForm1.Button1Click(Sender: TObject);
var
str1:String;
begin
with Query1 do begin
Close;
SQL.Clear;
SQL.Add('SELECT count(*) as jml FROM tUser WHERE FUser = :f1 AND FPass = :f2 ');
Params[0].AsString:=Edit1.Text;
Params[1].AsString:=Edit2.Text;
Active:=true;
Open;
str1:=Query1['jml'];
Active:=False;
end;
if strtoint(str1)>0 then
begin
ShowMessage('Login Berhasil');
with Query1 do begin
Close;
SQL.Clear;
SQL.Add('SELECT FNama FROM tUser WHERE FUser = :f1 AND FPass = :f2 ');
Params[0].AsString:=Edit1.Text;
Params[1].AsString:=Edit2.Text;
Active:=true;
Open;
str1:=Query1['FNama'];
Active:=False;
end;
ShowMessage('Selamat Datang '+str1);
end
else
begin
showMessage('Login gagal');
end;
end;