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;
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;
Bos matur nuwun yo .. iki sing tak golekki taknggo tugas akhir...
ReplyDeletetrimakasih...
ok ini cocok untuk awal belajar delphi...
ReplyDeleteuntuk script Sql bisa dijelasin gak?
terima kasih.
@anonymous
ReplyDeletesql bagian mana? karena terlalu luas. coba aja yang tag database di blog ini.
yang mysql donk gan
ReplyDelete