Langsung aja ya kawan..................
Cara untuk membuat database pada Delphi yaitu :
1. Buka program Delphi
2. Pilih tools > Database Dekstop
3. Pilih File>New>Table
4. Table type isi dengan paradox7
5. Tekan save as >save dengan nama tblbiro atau sesuai keinginan.
6. Membuat table alias
7. Pilih tools>alias Manager
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
Read More..
