Coding Login pada Delphi

Pada kesempatan kali ini saya akan membuat sebuah artikel tentang Coding Login pada Delphi. Untuk mengamankan suatu file yang terdapat pada sebuah aplikasi yang anda buat dengan menggunakan bahasa pemograman Delphi anda harus menggunakan 'pengaman' agar seseorang yang tidak memiliki hak akses terhadap data/file yang terdapat pada aplikasi yang anda buat tidak biasa mengakses data tersebut.

Oleh karena itu, agar tidak terjadi hal-hal yang tidak diinginkan akan keamanan data anda, anda perlu membuat sebuah username dan password sebelum anda bisa mengakses data yang ada pada aplikasi yang anda buat.

Langkah pertama buatlah sebuah Database dengan menggunakan MS Office Access dengan field Username dan Password dengan tipe data Text dan

Langkah selanjutnya buatlah sebuah desain form login pada delphi yang terdiri dari 2 buah label, 2 buah TEdit, dan 1 buah Button, sehingga tampilannya menjadi seperti berikut.

Lalu tambahkan juga komponen ADOCommection dan ADOQueri lalu setting propertiesnya sebagai berikut

Objek	Properties	Nilai
ADOConnection1	ConnectionString	... -> build -> ... -> pilih database -> Ok -> Ok
	LoginPrompt	False
	Active	True
ADOQuery1	Connection	ADOConnection1
	SQL	Ketikan 'Select * From Login'; (Tanpa tanda petik dan login adalah nama tabelnya)
	Active	True

Lalu dobel klik di button masuk  dan masukan/ketikan coding berikut

procedure TForm1.Button1Click(Sender: TObject);

begin

with ADOQuery1 do begin

  Close;

  SQL.Clear;

  SQL.Add('select * from login where username='+QuotedStr(edusername.Text));

  Open;

end;

if ADOQuery1.RecordCount=0 then

Application.MessageBox('Maaf, Username Tesebut Tidak Ada','Informasi',MB_OK or MB_ICONINFORMATION)

else begin

if ADOQuery1.FieldByName('Password').AsString<>edpassword.text then

Application.MessageBox('Pastikan Password atau Usename benar','Error',MB_OK or MB_ICONERROR)

else begin

 Hide;

  Form2.Show;//sesuaikan nama form berikutnya asumsi adalah form gaji

  end

end;

end;

Langkah terakhir coba jalankan aplikasinya dengan mengklik RUN atau tekan tombol Shift+CTRL+F9 secara bersamaan ... dan lihat hasilnya!