Berikut ini Fungsi Login Form
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
unit ULogin;
interface
uses
Windows, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
DB, ADODB;
type
TFrmLogin =
class(TForm)
Label1: TLabel;
edusername: TEdit;
Label2: TLabel;
edpassword: TEdit;
Button1: TButton;
ADOQuery1:
TADOQuery;
ADOConnection1:
TADOConnection;
Button2: TButton;
Label3: TLabel;
procedure
Button1Click(Sender: TObject);
procedure
FormCreate(Sender: TObject);
procedure
Button2Click(Sender: TObject);
private
{ Private
declarations }
public
{ Public
declarations }
end;
var
FrmLogin: TFrmLogin;
implementation
uses
// XPMan agar tampilan form seperti button mengikuti theme
pada windows
// Tambahkan unit UHasilLogin ke ULogin dengan menekan Alt +
F11, atau dengan mengetiknya saja
XPMan, UHasilLogin,
Unit1;
{$R *.dfm}
procedure TFrmLogin.FormCreate(Sender: TObject);
var
s : Char;
alamatdb : WideString;
begin
//Frm_utama.Hide;
// Manipulasi
cursors crSQLWait agar tidak tampil
Screen.Cursors[crSQLWait]
:= Screen.Cursors[crDefault];
//edusername.SetFocus;
// atur tampilan
form
s := '*';
edusername.Text := '';
edpassword.PasswordChar := s;
edpassword.Text := '';
// atur koneksi pada
ADOConnection
// script ini
berguna untuk mengatur koneksi database pada aplikasi
// agar aplikasi
dapat memproses database yang dipilih di komputer
// manapun tanpa
harus mempunyai path/alamat database yang sama.
alamatdb :=
ExtractFilePath(Application.ExeName) + 'data.mdb';
with ADOConnection1 do begin
Connected := False;
LoginPrompt := False;
Mode := cmShareDenyNone;
ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
alamatdb + ';Persist Security Info=False';
end;
ADOConnection1.Connected := True;
end;
procedure TFrmLogin.Button1Click(Sender: TObject);
begin
with ADOQuery1 do begin
Close;
SQL.Clear; // bersihkan perintah sql jika
ada
SQL.Add('select * from login where
username='+
QuotedStr(edusername.Text));
Open;
end; // end with
// jika tidak
ditemukan data yang dicari maka
// tampilkan pesan
if ADOQuery1.RecordCount = 0 then
Application.MessageBox('Maap, username
tersebut tidak ada', 'Informasi',
MB_OK or MB_ICONINFORMATION)
else begin
if
ADOQuery1.FieldByName('password').AsString <> edpassword.Text
then Application.MessageBox('Pastikan
username atau password benar', 'Error',
MB_OK or MB_ICONERROR)
else begin
Hide;
Frm_utama.Show;
end
end;
end;
procedure TFrmLogin.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
+++++++++++++++++++++++++++++++++++++++++
