Modul 5. Membuat Form Penerbit pada Aplikasi Perpustakaan

Melanjutkan pelajaran sebelumnya, dimana sudah dibuat UtamaU.pas dan penerbitU.pas, maka pada kesempatan ini adalah melengkapi frmpenerbit.

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, lalu klik PustakaPrj.dpr dan klik open

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

Catatan :
Form diatas terdiri dari :
Pallete standard : Label, Button, Panel
Pallete win32 : PageControl (Untuk 2 muka tampilan Baris dan tabel)
Pallete Additional : SpeedButton (maju mundur record)
Pallete Data controls : DBGrid, DBEdit
Pallete ADO : Ado Connection, ADOTable,
Pallete DataAcces : DataSource



Membuat Koding program pada tombol Maju mundur record:

procedure Tfrmpenerbit.SpeedButton1Click(Sender: TObject);

begin

DataSource1.DataSet.First;

end;

procedure Tfrmpenerbit.SpeedButton2Click(Sender: TObject);

begin

DataSource1.DataSet.Prior;

end;

procedure Tfrmpenerbit.SpeedButton3Click(Sender: TObject);

begin

DataSource1.DataSet.Next;

end;

procedure Tfrmpenerbit.SpeedButton4Click(Sender: TObject);

begin

DataSource1.DataSet.Last;

end;

Selanjutnya untuk kode tambah, hapus, simpan dan selesai

procedure Tfrmpenerbit.Button1Click(Sender: TObject);

begin

ADOTable1.Append;

end;

procedure Tfrmpenerbit.Button2Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

procedure Tfrmpenerbit.Button3Click(Sender: TObject);

begin

ADOTable1.Post;

end;

procedure Tfrmpenerbit.Button4Click(Sender: TObject);

begin

close;

end;

Setting datasource untuk masing masing object database adalah ke datasorce1, sedangkan untuk datafield dbedit masing-masing sesuai dengan field di tabel penerbit.

Adapun list kode lengkapnya untuk penerbitU.pas adalah sbb:

unit penerbitU;

interface

uses

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

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

  ComCtrls, ExtCtrls;

type

  Tfrmpenerbit = class(TForm)

    PageControl1: TPageControl;

    Panel1: TPanel;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    DBGrid1: TDBGrid;

    DataSource1: TDataSource;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    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);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  frmpenerbit: Tfrmpenerbit;

implementation

{$R *.dfm}

procedure Tfrmpenerbit.SpeedButton1Click(Sender: TObject);

begin

DataSource1.DataSet.First;

end;

procedure Tfrmpenerbit.SpeedButton2Click(Sender: TObject);

begin

DataSource1.DataSet.Prior;

end;

procedure Tfrmpenerbit.SpeedButton3Click(Sender: TObject);

begin

DataSource1.DataSet.Next;

end;

procedure Tfrmpenerbit.SpeedButton4Click(Sender: TObject);

begin

DataSource1.DataSet.Last;

end;

procedure Tfrmpenerbit.Button1Click(Sender: TObject);

begin

ADOTable1.Append;

end;

procedure Tfrmpenerbit.Button2Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

procedure Tfrmpenerbit.Button3Click(Sender: TObject);

begin

ADOTable1.Post;

end;

procedure Tfrmpenerbit.Button4Click(Sender: TObject);

begin

close;

end;

end.