DATABASE menggunakan delphi | Include MS.Access

Membuat sebuah program aplikasi database mnggunakan borland delphi dan database microsoft acces.
aplikasi yg di buat adalah inventuri buku
proses yg harus ada adalah Simpan (save),Cari(search) dan Ubah (update)
Dalam tulisan ini akan dijelaskan secara ringkas mengenai cara pengaksesan database yang dibuat dengan Microsoft Acces yang kemudian data tersebut diolah/dimodifikasi dengan menggunakan program Borland Delphi 7.0. Program yang dibuat terbatas pada menampilkan membuat database, pembuatan program database, membaca database, menghapus database.

taufik_database-delphi

CODING 1
CODING 2
berikut codingan dari rekan2 kita tentang pembuatan database menggunakan DELPHI dan MS.ACCESs

procedure TForm1.saveClick(Sender: TObject); begin kode.SetFocus; if kode.Text='' then begin showmessage('Masukan Kode Buku!!'); kode.SetFocus; end else if judul.Text='' then begin showmessage('Masukan Judul!!'); judul.SetFocus; end else if pengarang.Text='' then begin showmessage('Pengarang??'); pengarang.SetFocus; end else if penerbit.Text='' then begin showmessage('Penerbit??'); penerbit.SetFocus; end else if tahun.Text='' then begin showmessage('Masukan Tahun !!'); tahun.SetFocus; end else if jumlah.Text='' then begin showmessage('Masukan Jumlah Halaman!!'); jumlah.SetFocus; end else if harga.text='' then begin showmessage('Masukan Harga!!'); harga.setfocus; end else qsimpan.SQL.Clear; qsimpan.SQL.Text:= 'insert into data(Kode_Buku, Judul, Pengarang, Penerbit, Tahun_Terbit, Jml_Halaman, Harga)values('+ quotedstr(kode.Text)+','+ quotedstr(judul.Text)+','+ quotedstr(pengarang.Text)+','+ quotedstr(penerbit.Text)+','+ quotedstr(tahun.Text)+','+ quotedstr(jumlah.Text)+','+ quotedstr(harga.Text)+')'; qsimpan.ExecSQL; showmessage('Data Telah Disimpan!!'); kode.Text:=''; judul.Text:=''; pengarang.Text:=''; penerbit.Text:=''; tahun.Text:=''; jumlah.Text:=''; harga.Text:=''; qtampil.Active:=false; qtampil.SQL.Clear; qtampil.SQL.Text:=('select * from data'); qtampil.Active:=true; end;

procedure TForm1.updateClick(Sender: TObject); begin qupdate.SQL.Clear; qupdate.SQL.Text:= 'update data set '+ 'Judul = ' + quotedstr(judul.Text)+','+ 'Pengarang= ' + quotedstr(pengarang.Text)+','+ 'Penerbit= ' + quotedstr(penerbit.Text)+','+ 'Tahun_Terbit= ' + quotedstr(tahun.Text)+','+ 'Jml_Halaman= ' + quotedstr(jumlah.Text)+','+ 'Harga=' + quotedstr(harga.Text)+ 'where Kode_Buku= ' + quotedstr(kode.Text); qupdate.ExecSQL; showmessage('Data Telah Di Update'); kode.Text:=''; judul.Text:=''; pengarang.Text:=''; penerbit.Text:=''; tahun.Text:=''; jumlah.Text; harga.Text; kode.SetFocus; qtampil.SQL.Clear; qtampil.SQL.Text:='select * from data'; qtampil.ExecSQL; qtampil.Active:=false; qtampil.Active:=true; end; procedure TForm1.DBGrid1DblClick(Sender: TObject); begin kode.Text:=dbgrid1.Fields[0].AsString; judul.Text:=dbgrid1.Fields[1].AsString; pengarang.Text:=dbgrid1.Fields[2].AsString; penerbit.Text:=dbgrid1.Fields[3].AsString; tahun.Text:=dbgrid1.Fields[4].AsString; jumlah.Text:=dbgrid1.Fields[5].AsString; harga.Text:=dbgrid1.Fields[6].AsString; end; procedure TForm1.cariChange(Sender: TObject); begin qtampil.Active:=false; qtampil.SQL.Clear; qtampil.SQL.Text:='SELECT*FROM data where Kode_Buku like'+ quotedstr('%'+ cari.Text+'%'); qtampil.Active:=True; end; procedure TForm1.cariKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then dbgrid1.SetFocus; end; procedure TForm1.DBGrid1Enter(Sender: TObject); begin kode.Text:=dbgrid1.Fields[0].AsString; judul.Text:=dbgrid1.Fields[1].AsString; pengarang.Text:=dbgrid1.Fields[2].AsString; penerbit.Text:=dbgrid1.Fields[3].AsString; tahun.Text:=dbgrid1.Fields[4].AsString; jumlah.Text:=dbgrid1.Fields[5].AsString; harga.Text:=dbgrid1.Fields[6].AsString; end; end;

procedure TFormdata.ButtonsaveClick(Sender: TObject); begin ADOTable1.Append; ADOTable1['Jenjang'] := Editjenjang.Text; ADOTable1['ProgramStudi'] := Editprodi.Text; ADOTable1['NPM'] := Editnpm.Text; ADOTable1['Nama'] := Editnama.Text; ADOTable1['TempatLahir'] := Edittempatlahir.Text; ADOTable1['TanggalLahir'] := DateTimePickerlahir.Date; ADOTable1['JenisKelamin'] := Editjeniskelamin.Text; ADOTable1['StatusMahasiswa'] := ComboBoxstatus.Text; ADOTable1['Kelas'] := Editkelas.Text; ADOTable1['TahunMasuk'] := Edittahunmasuk.Text; ADOTable1['TanggalMasuk'] := DateTimePickermasuk.Date; ADOTable1['BatasStudi'] := Editbatas.Text; ADOTable1.Post; ADOTable1.Refresh; ButtonaddClick(Sender); end; end.