Modul 7. Membuat Form Buku pada Aplikasi Perpustakaan

Kali ini untuk melanjutkan Proyek Perpustakaan, akan kita buat frmBuku yaitu dengan cara:

1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik Borland Delphi 7, Klik Delphi 7.

2. Klik menu File, klik Open Project, tentukan folder tempat anda menyimpan project pustakaPrj, lalu klik pustakaPrj.dpr dan klik open

3. Klik Menu file, Klik New, klik form, ganti caption pada properties dengan Data Buku, dan pada name ketikkan frmBuku.

4. Klik menu View, lalu klik forms dan double klik mainmenu1, klik file pada mainmenu1, klik Buku dan ketikkan :

frmbuku.show; (pastikan sudah menambahkan uses BukuU.pas)

5. Klik menu View, lalu klik forms dan double klik frmbuku, lengkapi form tersebut seperti gambar berikut :

Yang khusus untuk kode pada form buku ini adalah pada komponen DBLookUpCombobox. Komponen ini menyajikan data jenis buku. Dimana pada tabel buku sesungguhnya hanya tercatat data ID_Buku.

Tetapi yang terlihat di form di atas adalah data jenis buku yang diambil dari tabel Jenis_Buku. Artinya komponen ini memang mengakses 2 tabel sekaligus.

Dalam frmBuku terdapat :

1. ADOTable1 : mengakses tabel Buku
2. ADOTable2 : mengakses tabel Jenis_Buku.

Untuk bisa membuat DBLookUpComboBox1 berfungsi, maka setlah propertinya:

-         DataSource = DataSource1

-         Datafield = ID_Jenis(dr tabel Buku)

-         ListSource = DataSource2

-         ListField = Jenis_Buku

-         KeyField = ID_Jenis (dr tabel Jenis_Buku)

Untuk Setting Komponen yang lain sama dengan yang dilakukan pada latihan sebelumnya. Hanya disesuaikan pada databasenya.

Kode lengkap dari frmBuku adalah sbb:

unit BukuU;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, DBCtrls, Mask, DB, ADODB, Grids, DBGrids,

  ExtCtrls, ComCtrls;

type

  TfrmBuku = class(TForm)

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    ADOTable2: TADOTable;

    DataSource2: TDataSource;

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBLookupComboBox1: TDBLookupComboBox;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Panel1: TPanel;

    Button4: TButton;

    DBGrid1: TDBGrid;

    Panel2: TPanel;

    DBNavigator1: TDBNavigator;

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  frmBuku: TfrmBuku;

implementation

{$R *.dfm}

procedure TfrmBuku.SpeedButton1Click(Sender: TObject);

begin

ADOTable1.First;

end;

procedure TfrmBuku.SpeedButton2Click(Sender: TObject);

begin

ADOTable1.Prior;

end;

procedure TfrmBuku.SpeedButton3Click(Sender: TObject);

begin

ADOTable1.Next;

end;

procedure TfrmBuku.SpeedButton4Click(Sender: TObject);

begin

ADOTable1.Last;

end;

procedure TfrmBuku.Button1Click(Sender: TObject);

begin

ADOTable1.Append;

end;

procedure TfrmBuku.Button2Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

procedure TfrmBuku.Button3Click(Sender: TObject);

begin

ADOTable1.Post; 

end;

end.