PEMROGRAMAN DATABASE DENGAN DELPHI DAN MICROSOFT ACCESS Nama Project: Aplikasi Penjualan Buku Desain Tabel Dengan Database Access: Tabel: buku_tb No. Nama Field 1 Id_buku 2 Judul 3 Id_penerbit 4 Id_penulis 5 Id_kategori 6 Harga
Tipe Data Char (10) Varchar (50) Char (10) Char (10) Char (10) Double
Keterangan Primary key
Tabel: penerbit_tb No. Nama Field 1 Id_penerbit 2 Nama_penerbit 3 Alamat 4 Kota 5 Email
Tipe Data Char (10) Varchar (25) Varchar(25) Varchar(25) Varchar(25)
Keterangan Primary key
Tabel: penulis_tb No. Nama Field 1 Id_penulis 2 Nama_penulis 3 Email
Tipe Data Char (10) Varchar (25) Varchar(25)
Keterangan Primary key
Tabel: kategori_buku_tb No. Nama Field 1 Id_kategori 2 Nama_kategori
Tipe Data Char (10) Varchar (25)
Keterangan Primary key
Tabel: kustomer_tb No. Nama Field 1 Id_kustomer 2 Nama_kustomer 3 Alamat 4 Kota
Tipe Data Char (10) Varchar (25) Varchar(25) Varchar(25)
Keterangan Primary key
Dodit Suprianto, Tutorial Delphi, 2013, email:
[email protected] Site: http://doditsuprianto.web.id, http://audiorakitan.com, http://audiorakitan.web.id, http://elkit.web.id, http://stones.web.id
5 6
Telp Email
Varchar(25) Varchar(25)
Tabel: penjualan_header_tb No. Nama Field 1 Id_jual_header 2 Tanggal_jual 3 Id_kustomer
Tipe Data Char (10) Date Char(10)
Keterangan Primary key
Tabel: penjualan_detail_tb No. Nama Field 1 Id_jual_detil 2 Id_jual_header 3 Id_buku 4 Harga 5 Jumlah
Tipe Data Integer (autonumber) Char(10) Char(10) Double Integer
Keterangan Primary key
Cara membuat tabel pada Access: 1.
Ciptakan file database Access, pilih tipe data mdb, beri nama filenya dan letakkan di folder pilihan Anda, kemudian klik tombol create.
2.
Klik kanan pada table1 dan pilih “design view”, simpan menjadi buku_tb, kemudian buat struktur tabelnya.
Dodit Suprianto, Tutorial Delphi, 2013, email:
[email protected] Site: http://doditsuprianto.web.id, http://audiorakitan.com, http://audiorakitan.web.id, http://elkit.web.id, http://stones.web.id
3.
Buat semua table dengan cara yang sama. Klik menu Create > Table Design.
Dodit Suprianto, Tutorial Delphi, 2013, email:
[email protected] Site: http://doditsuprianto.web.id, http://audiorakitan.com, http://audiorakitan.web.id, http://elkit.web.id, http://stones.web.id
Buat rancangan skema ER-Model dengan cara sebagai berikut
Klik menu Database Tools > Relationships Tambahkan semua tabel ke dalam skema
Buat relasi antar table seperti berikut
Dodit Suprianto, Tutorial Delphi, 2013, email:
[email protected] Site: http://doditsuprianto.web.id, http://audiorakitan.com, http://audiorakitan.web.id, http://elkit.web.id, http://stones.web.id
Membuat menu MDIForm 1. 2.
Buat Aplikasi, klik menu File > New > Application Perubahan properti pada Form1 Caption = “Aplikasi Penjualan Buku” FormStyle = fsMDIForm Name = frmMDI WindowStated = wsMaximized 3. Tambahkan komponen menu, klik kanan Standard > Main Menu, klik Menu Designer.
Dodit Suprianto, Tutorial Delphi, 2013, email:
[email protected] Site: http://doditsuprianto.web.id, http://audiorakitan.com, http://audiorakitan.web.id, http://elkit.web.id, http://stones.web.id
4.
Buat 5 MDIChild Klik menu File > New > Form No Nama Form 1 frmKategoriBuku 2 frmPenerbit 3 frmPenulis 4 frmKatalogBuku 5 frmPenjualan
Naka halam program UKategoriBuku UPenerbit UPenulis UKatalogBuku Upenjualan
Caption Kategori Buku Penerbit Penulis Katalog Buku Penjualan
FormStyle fsMDIChild fsMDIChild fsMDIChild fsMDIChild fsMDIChild
Simpan semua file kemudian buat kode program pada semua form anak dengan event onClose procedure TfrmKategoriBuku.FormClose(Sender: TObject; var Action: TCloseAction); begin frmKategoriBuku :=nil; Action := caFree; end;
Dodit Suprianto, Tutorial Delphi, 2013, email:
[email protected] Site: http://doditsuprianto.web.id, http://audiorakitan.com, http://audiorakitan.web.id, http://elkit.web.id, http://stones.web.id
procedure TfrmPenerbit.FormClose(Sender: TObject; var Action: TCloseAction); begin frmPenerbit :=nil; Action := caFree; end; procedure TfrmPenulis.FormClose(Sender: TObject; var Action: TCloseAction); begin frmPenulis :=nil; Action := caFree; end; procedure TfrmKatalogBuku.FormClose(Sender: TObject; var Action: TCloseAction); begin frmKatalogBuku :=nil; Action := caFree; end; procedure TfrmPenjualan.FormClose(Sender: TObject; var Action: TCloseAction); begin frmPenjualan :=nil; Action := caFree; end;
5.
Ubah kode pada dile UMDI.pas dan tambahkah Uses seperti berikut unit UMDI; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, UKategoriBuku, UPenerbit, UPenulis, UKatalogBuku, UPenjualan;
6.
Klik pada masing-masing menu dan tambahkan kode program berikut unit UMDI; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, UKategoriBuku, UPenerbit, UPenulis, UKatalogBuku, UPenjualan; type TfrmMDI = class(TForm) MainMenu1: TMainMenu; File1: TMenuItem; KategoriBuku1: TMenuItem; Penerbi1: TMenuItem; Penulis1: TMenuItem; N1: TMenuItem; KatalogBuku1: TMenuItem; ransaksi1: TMenuItem; Penjualan1: TMenuItem; Pembelian1: TMenuItem; Laporan1: TMenuItem; Penjualan2: TMenuItem; Pembelian2: TMenuItem; PerKategoriBuku1: TMenuItem; PerPenulis1: TMenuItem; PerPenerbit1: TMenuItem; RekapPerBulan1: TMenuItem; procedure KategoriBuku1Click(Sender: TObject); procedure Penerbi1Click(Sender: TObject);
Dodit Suprianto, Tutorial Delphi, 2013, email:
[email protected] Site: http://doditsuprianto.web.id, http://audiorakitan.com, http://audiorakitan.web.id, http://elkit.web.id, http://stones.web.id
procedure Penulis1Click(Sender: TObject); procedure KatalogBuku1Click(Sender: TObject); procedure Penjualan1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var frmMDI: TfrmMDI; implementation {$R *.dfm} procedure TfrmMDI.KategoriBuku1Click(Sender: TObject); var fKategoriBuku : TfrmKategoriBuku; begin fKategoriBuku := TfrmKategoriBuku.Create(Self); fKategoriBuku.Show; end; procedure TfrmMDI.Penerbi1Click(Sender: TObject); var fPenerbit : TfrmPenerbit; begin fPenerbit := TfrmPenerbit.Create(Self); fPenerbit.Show; end; procedure TfrmMDI.Penulis1Click(Sender: TObject); var fPenulis : TfrmPenulis; begin fPenulis := TfrmPenulis.Create(Self); fPenulis.Show; end; procedure TfrmMDI.KatalogBuku1Click(Sender: TObject); var fKatalog : TfrmKatalogBuku; begin fKatalog := TfrmKatalogBuku.Create(Self); fKatalog.Show; end; procedure TfrmMDI.Penjualan1Click(Sender: TObject); var fPenjualan : TfrmPenjualan; begin fPenjualan := TfrmPenjualan.Create(Self); fPenjualan.Show; end; end.
7.
Klik menu Project > Options Letakkan semua form child ke sebelah kanan dan sisakan satu form MDI di sebelah kiri
Dodit Suprianto, Tutorial Delphi, 2013, email:
[email protected] Site: http://doditsuprianto.web.id, http://audiorakitan.com, http://audiorakitan.web.id, http://elkit.web.id, http://stones.web.id
8.
Jalankan
---- Bagian Pertama ------- Tunggu Bagian Berikutnya ----
Dodit Suprianto, Tutorial Delphi, 2013, email:
[email protected] Site: http://doditsuprianto.web.id, http://audiorakitan.com, http://audiorakitan.web.id, http://elkit.web.id, http://stones.web.id