Inspirion's Blog

8.  Tekan Browse dan tujukan pada folder yang kita buat table untuk yang pertama tadi.
9.  tekan keep New >OK>yes
10.Buka form pada Delphi dan tambahkan komponen-komponen berikut ini





















11. Koneksikan
12. Klick pada table >lihat di properties
13. Cari databasename>pilih dbperjalanan yg kita buat tadi
14. Cari tableName >pilih tblbiro.db yg sudah dibuat
15. Klick datasource >lihat pada properties >cari DataSet>pilih table1
16. Klick DBgrid >lihat pada properties>DataSource>ganti Datasource1
17. Klick kembali di table >lihat properties>Active>ganti dg True
18. Jika benar maka akan terlihat seperti bi bawah ini

19.setelah selesai buat form  didesign seperti dibawah ini

20.tinggal isikan listing-listing ne....

21. klick satu tempat kosong di form kemudian double klick, isikan program listing sebagai berikut. procedure TForm1.FormCreate(Sender: TObject); 

begin 

ednomor.Text:=''; 

ednama.Text:=''; 

cmbkode.Text:=''; 

edjurusan.Text:=''; 

edbiaya.Text:=''; 

edpajak.Text:=''; 

edtotal.Text:=''; 

end; 

22. double klick pada cmbkode tulis listing sbb: 

procedure TForm1.cmbKodeChange(Sender: TObject); 

begin 

if cmbkode.ItemIndex=0 then 

begin 

edjurusan.Text:='Bandung';

edbiaya.Text:=inttostr(75000); 

end;

if cmbkode.ItemIndex=1 then

begin 

edjurusan.Text:='Jakarta'; 

edbiaya.Text:=inttostr(60000); 

end;

if cmbkode.ItemIndex=2 then

begin 

edjurusan.Text:='Surabaya'; 

edbiaya.Text:=inttostr(50000); 

end;

edpajak.Text:=floattostr(strtofloat(edbiaya.Text)*0.1); edtotal.Text:=floattostr(strtofloat(edbiaya.Text)+strtofloat(edpajak.Text)); 

end; 

23. double klick pada btSimpan tulis listing sbb: 

procedure TForm1.btSimpanClick(Sender: TObject); 

begin 

tblbiro.Append;

tblbiro['nomor']:=ednomor.Text; 

tblbiro['nama']:=ednama.Text; 

tblbiro['jurusan']:=edjurusan.Text;

tblbiro['biaya']:=edbiaya.Text; 

tblbiro['pajak']:=edpajak.Text; 

tblbiro['total']:=edtotal.Text;

tblbiro.Post; 

tblbiro.ApplyUpdates; 

tblbiro.Active:=false; 

tblbiro.Active:=true; 

showmessage('Data Sudah Tersimpan'); 

formcreate(sender); ednomor.SetFocus; 

end; 

24. double klick pada btBatal tulis listing berikut: 

procedure TForm1.btBatalClick(Sender: TObject); 

begin

formcreate(sender); 

ednomor.SetFocus; 

end; 

25. listing pada btkeluar 

procedure TForm1.btKeluarClick(Sender: TObject);

begin 

application.Terminate; 

end; 

26. Untuk listing lengkapnya bisa didownload Disini