Friday, July 13, 2012

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














No comments:

Post a Comment