Untuk membuat aplikasi data guru menggunakan Delphi terlebih dahulu kita ha harus membuat databases “guru” menggunakan Microsoft acces, buat dua buah tabel yakni tabel “Log in” dan “guru”.
Selanjutnya buka Delphi anda dan buat form seperti berikut:
-ADO QUERY > Connectionstring> build > Microsoft jet
4.0 Ole provider >pilih database anda> OK
-ADO QUERY > SQL > select * from login
-ADO QUERY > active
-DATA SOURCE > data set > ado query1
Pada button login masukkan koding:
adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from
login where username=:user and password=:pass');
adoquery1.Parameters.ParamByName('user').Value:=edit1.Text;
adoquery1.Parameters.ParamByName('pass').Value:=edit2.text;
adoquery1.Open;
if adoquery1.RecordCount<=0
then
begin
messagedlg ('login gagal, please
try again', mtinformation, [mbOK],0);
edit1.SetFocus;
end else
begin
form1.Hide;
form2.show;
end;
end;
dan pada button keluar masukan koding:
close;
Selanjutnya
buat form2 dan desain tamplannya seperti
berikut:
Masukkan Dbgrid, adoquery, datasource dan button-button
seperti desain di atas
-Atur koneksi database pada adoquery seperti sebelumnya,
namun anda ubah koding SQL nya menjadi
“select * from guru”.
-Dbgrid >dataset
>adoquery (agar dbgridnnya terkoneksi dengan database).
Selanjutnya
buat reportnya dengan fle > new > report
Dan desain seperti gambar berikut menggunakan QRlabel,
QRdbtext, dan jangan lupa tambahkan adoquery dan koneksikan dengan database
sperti sebelumnya.
Sekarang tingal kita masukkan koding untuk form2:
Ket: A = adoquery
Koding tambah:
A.Append;
Koding simpan:
A.Post;
Koding edit:
A.Edit;
Koding hapus:
A.Delete;
Koding keluar:
CLOSE;
Koding cari:
if a.Locate('nip',edit1.text,[])
then
begin
dbedit3.Text:=a['nip'];
dbedit1.Text:=a['nama'];
dbedit2.Text:=a['alamat'];
dbedit3.Text:=a['materi ajar'];
a.Edit;
end else
messageDlg('data tidak di temukan',mtinformation,[mbOk],0)
end;
koding report:
quickreport.preview;
maka
database data guru pun jadi dan siap gunakan..
