KONEKSI DATABASE DARI DELPHI 7 KE MS.ACCES(Lanjutan)

PENYEWAAN STUDIO MUSIK ONE TO ONE(2)

 Kali ini penulis masih membuat koneksi dari database yang sama yaitu studiomusik.mdb,hanya formnya yang berbeda.Bagi yang belum lihat cara membuat databasenya bisa lihat di sini :KONEKSI DATABASE DARI DELPHI 7 KE MS.ACCES.
Berikut adalah desain Form
 DESIGN FORM ANGGOTA

Object	Properties
Table 1	Name : tbpelanggan Databasename : studio_musik Table Name : Pelanggan Active : True
Data Source 1	Name : ds_pelanggan Dataset : tbpelanggan

Object	Properties
DBGrid1	DataSource : ds_pelanggan

Cara kerja program:

.  Ketika diaktifkan semua dalam kondisi nonaktif,button Tambah dan keluar True

.  Button Tambah di klik  Form2 kondisi aktif dan bersih,krusor pada ID Pelanggan/edit1,button tambah false,button simpan,batal,keluar kondisi true.                    

.  Id pelanggan,nama,alamat,notlp diinput manual,klik simpan akan tersimpan otomatis ditabel anggota.

.  Klik batal form dalam kondisi bersih.

.  Klik keluar akan tampil peringatan”Yakin Ingin Keluar Dari Form?” klik ok akan keluar.

Listing program Form Anggota:

  public

  procedure aktif;

  procedure nonaktif;

  procedure bersih;

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

procedure tform2.aktif;

begin

edit1.Enabled:=true;

edit2.Enabled:=true;

edit3.Enabled:=true;

edit4.Enabled:=true;

end;

procedure tform2.nonaktif;

begin

edit1.Enabled:=false;

edit2.Enabled:=false;

edit3.Enabled:=false;

edit4.Enabled:=false;

end;

procedure tform2.bersih;

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

end;

procedure TForm2.FormActivate(Sender: TObject);

begin

nonaktif;

btambah.Enabled:=true;

bsimpan.Enabled:=false;

bbatal.Enabled:=false;

end;

procedure TForm2.btambahClick(Sender: TObject);

begin

bersih;

aktif;

bsimpan.Enabled:=true;

bbatal.Enabled:=true;

btambah.Enabled:=false;

edit1.SetFocus;

end;

procedure TForm2.bbatalClick(Sender: TObject);

begin

bersih;

bsimpan.Enabled:=false;

bbatal.Enabled:=false;

btambah.Enabled:=true;

end;

procedure TForm2.bkeluarClick(Sender: TObject);

begin

if (application.MessageBox('Yakin Ingin Keluar dari Form??','Pesan',MB_YESNO+32)=idyes)then

close

end;

procedure TForm2.bsimpanClick(Sender: TObject);

begin

tb_pelanggan.Append;

tb_pelanggan['idpel']:=edit1.Text;

tb_pelanggan['nmpel']:=edit2.Text;

tb_pelanggan['alamat']:=edit3.Text;

tb_pelanggan['notlp']:=edit4.Text;

tb_pelanggan.Post;

bsimpan.Enabled:=false;

btambah.Enabled:=true;

end;

end.

Semoga bermanfaat