08 January 2008

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;

4 °C:

SMK Muhammadiyah Kretek said...

Bos matur nuwun yo .. iki sing tak golekki taknggo tugas akhir...

trimakasih...

Anonymous said...

ok ini cocok untuk awal belajar delphi...

untuk script Sql bisa dijelasin gak?

terima kasih.

om4gus said...

@anonymous
sql bagian mana? karena terlalu luas. coba aja yang tag database di blog ini.

Nazuafree said...

yang mysql donk gan

Post a Comment