Praktikum-5
Pemrograman Delphi 7
Imam Gunawan, M. Kom
MEMBUAT PROGRAM TAMBAH DATA Pada delphi untuk menambahkkan record baru ke dalam suatu tabel ada dua perintah, yaitu : Append, menambah record baru di akhir tabel Insert, menambah record baru pada record yang sedang aktif Berikut ini adalah bentuk perintah untuk menambahkan record baru ke dalam suatu tabel : Table.Append; Table[‘Nama Field’] := Data; Table[‘Nama Field’] := Data; … … Table.Post; Atau Table.Insert; Table[‘Nama Field’] := Data; Table[‘Nama Field’] := Data; … … Table.Post PROGRAM TAMBAH DATA 1. Desain Form seperti dibawah ini :
Mask Edit1 Edit5 Edit4
Mask Edit2
Edit3
Edit7
Edit1
Edit8
Edit6 Edit2 RadioGroup1
DBNavigator1
Button3 Button2
DBGrid1
Button1 DataSource1 Table1
Praktikum-5
Pemrograman Delphi 7
Imam Gunawan, M. Kom
2. Ubahlah properties seperti dibawah ini : Component Pallete Tab Nama Object
BDE
Table1
DataAccess
DataSource1 DBGrid
DataControl
DBNavigator MaskEdit1
Additional
Name MaskEdit2 Edit1 Edit2 Edit3 Edit4 Edit5 Edit6 Edit7 Edit8
Standard
Object Inspector Properties Keterangan Database Name Teman TableName Sobat.db AutoRefresh True Active Name Tsobat Dataset Tsobat DataSource DataSource1 DataSource DataSource1 VisiblesButtons [nbFirst,nbPrior,nbNext,nbLast] Name MeNomor (Pilih Ekstension) EditMask !99999;1;_
Button1 Button2 Button3
RadioGroup
EditMask Name Name Name Name Name Name Name Name Name Caption Name Caption Name Caption Name Caption Columns Items
MeTanggal (Pilih date edit digid tahun menjadi 9999) !99/99/9999;1;_ EdTelpon EdAwal EdKota EdPanggilan EdNama EdAlamat EdEmail EdHP BtSimpan &Simpan BtBatal &Batal BtKeluar &Keluar RgJenis Kosongi 2 Laki-laki, Perempuan
Praktikum-5
Pemrograman Delphi 7
Imam Gunawan, M. Kom
3. Deklarasikan secara manual procedure Kosongi dalam class form 4. Buat dalam procedure kosongi Procedure Tform1.Kosongi; begin MeNomor.Text :=''; EdNama.Text :=''; EdPanggilan.Text :=''; MeTanggal.Text :=''; EdAlamat.Text :=''; EdKota.Text :=''; EdEmail.Text :=''; EdAwal.Text :=''; EdTelpon.Text :=''; EdHP.Text :=''; RgJenis.ItemIndex :=-1; end; 5. Masukan kode program pada event Oncreate dalam form, untuk memanggil procedure kosongi procedure TForm1.FormCreate(Sender: TObject); begin Kosongi; end; 6. Doubleklick Tombol Batal, ketikan kode program berikut : procedure TForm1.BtBatalClick(Sender: TObject); begin Kosongi; MeNomor.SetFocus; end; 7. Doubleklick Tombol Keluar, ketikan kode program berikut : procedure TForm1.BtKeluarClick(Sender: TObject); begin halt; end;
Praktikum-5
Pemrograman Delphi 7
Imam Gunawan, M. Kom
8. Doubleklick Tombol Simpan, ketikan kode program berikut : procedure TForm1.BtSimpanClick(Sender: TObject); var Ketemu:Boolean; procedure Pesan; //membuat procedure didalam procedure begin application.MessageBox('Masih ada yang kosong', 'Cek Input',MB_IconStop); end; begin //cek input yang dilakukan user if length(trim(MeNomor.Text))=0 then begin Pesan; //memanggil procedure pesan dari BtsimpanClick MeNomor.SetFocus; end else if length(trim(EdNama.Text))=0 then begin Pesan; EdNama.SetFocus; end else if length(trim(EdPanggilan.Text))=0 then begin Pesan; EdPanggilan.SetFocus; end else if length(trim(MeTanggal.Text))=0 then begin Pesan; MeTanggal.SetFocus; end else if length(trim(EdAlamat.Text))=0 then begin Pesan; EdAlamat.SetFocus; end else if length(trim(EdKota.Text))=0 then begin Pesan; EdKota.SetFocus; end else if length(trim(EdEmail.Text))=0 then begin Pesan; EdEmail.SetFocus; end else if length(trim(EdAwal.Text))=0 then
Praktikum-5
Pemrograman Delphi 7
Imam Gunawan, M. Kom
begin Pesan; EdAwal.SetFocus; end else if length(trim(EdTelpon.Text))=0 then begin Pesan; EdTelpon.SetFocus; end else if length(trim(EdHP.Text))=0 then begin Pesan; EdHP.SetFocus; end else if RgJenis.ItemIndex=-1 then begin Pesan; RgJenis.SetFocus; end else //jika sudah penuh semua bisa simpan begin //mencari data berdasarkan kunci utama ketemu:=TSobat.FindKey([MeNomor.Text]); if ketemu=True then //jika ketemu beri pesan data sudah ada begin application.MessageBox('Nomor sudah ada...', 'Cek Data',MB_IconInformation); MeNomor.Text:=''; MeNomor.SetFocus; end else //jika nomor tidak ada simpan tambah begin TSobat.Append; TSobat['NoTeman'] :=MeNomor.Text; TSobat['NamaLengkap'] :=EdNama.Text; TSobat['Panggilan'] :=EdPanggilan.Text; TSobat['TglLahir'] :=MeTanggal.Text; TSobat['Alamat'] :=EdAlamat.Text; TSobat['Kota'] :=EdKota.Text; TSobat['Email'] :=EdEmail.Text; TSobat['AwalKetemu'] :=EdAwal.Text; TSobat['Telpon'] :=EdTelpon.Text; TSobat['HP'] :=EdHP.Text;
Praktikum-5
Pemrograman Delphi 7
Imam Gunawan, M. Kom
case RgJenis.ItemIndex of 0: TSobat['JKelamin']:='L'; 1: TSobat['JKelamin']:='P'; end; TSobat.Post; BtBatalClick(Sender); end; end; end; 9. Simpan Project dan Unit pada folder yang sama dengan folder dimana database disimpan. Berinama PTambah dan Utambah.
