sediakan 3 form
pada form login
sediakan 2 edit.text
sediakan 1. ado connection
sediakan 1 ado.query
setting ado connection
Pada ADO Connection:
Double klik control ADOConnection1,
muncul dialog connectionString.
Klik tombol build…,
muncul dialog data link properties.
Jika kita ingin terhubung ke database access,
pilih Microsoft Jet 4.0 OLE DB Provider.
Klik Next. Pada tab connection, klik …
pilih database yang akan digunakan.
Klik test connection.
Pastikan kita mendapat pesan Succeded.
Klik OK. Kemudian klik OK.
Ubah nilai property
LoginPrompt menjadi false.
Cari property connected dan ubah menjadi true.
Klik control ADOTable1.
Ubah nilai property connection menjadi ADOConnection1.
Ubah property tableName dan pilih table yang akan diakses.
Ubah property active menjadi true. Klik control datasource.
Beri nilai ADOTable pada property dataset.
Klik control DBGrid1 dan pilih datasorce1 pada property datasource.
Lakukan hal yang sama pada DBNavigator.
Jadi, data pada table akan ditampilkan Jalankan program.
setting ado query
pada Connection hubungkan ke ADOConnection, Pada SQL masukkan sintaks select * from (nama database anda)
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit3, Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
with ADOQuery1 do begin
Close;
SQL.Clear;
SQL.Add('select * from login where user='+ QuotedStr(Edit1.Text));
Open;
end;
if ADOQuery1.RecordCount = 0 then
Application.MessageBox('Maaf, username tersebut tidak ada', 'Informasi', MB_OK or MB_ICONINFORMATION)
else begin
if ADOQuery1.FieldByName ('pass').AsString <> Edit2.Text
then Application.MessageBox('Pastikan username atau password benar', 'Error', MB_OK or MB_ICONERROR)
else begin
if ADOQuery1.FieldByName ('level').AsString = 'admin' then
begin
Form3.Show;
hide;
end
else
form1.show;
hide;
end;
end;
end;
end.
form login
0 komentar:
Posting Komentar