Modul 9. Membuat Form Transaksi Pengembalian Dan Membuat Toolbar Pada Aplikasi Perpustakaan

Form Pengembalian akan kita buat dengan nama frmkembali dan disimpan dalam kembaliU.pas. Form ini sangat mirip dengan form peminjaman terdahulu, hanya saja tentunya mengacu kepada tabel kembali dan det_kembali.

Perbedaan lainnya adalah pada form kali ini kita akan membuat toolbar yaitu tombol kecil-kecil bergambar (ikon) yang akan memudahkan user untuk melakukan sebuah perintah.

Bila dirun dan dipanggil, maka frmkembali akan tampil sbb:

Pembuatan form dan kode untuk frmkembali ini sangat mirip dengan frmpinjam, maka pada kesempatan ini kita akan membahas cara membuat toolbar. 

Seret dan letakkan komponen toolbar dari pallete win32 ke dalam form. Klik kanan pada toolbar1 dan klik NewButton sampai 3 kali, setelah itu klik NewSparator kemudian NewButton lagi sampai terlihat seperti gambar di atas.

Untuk mengisi ikon, letakkan komponent Imagelist1 masih dari pallete win32. Set properti Toolbar1.Image = Imagelist1. Kemudian barulah kita memilih gambar ikon dari library kita melalui Imagelist1.

Klik Add dan Anda akan memilih file ikon. Urutan yang akan tertera pada toolbar1 sesuai dengan Imagelist1.

Maka frmkembali akan tampak sbb pada design time

Akhirnya kode lengkap untuk kembaliU.pas adalah sbb:

unit KembaliU;

interface

uses

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

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

  ExtCtrls, ImgList, Menus, ToolWin;

type

  TfrmKembali = class(TForm)

    MainMenu1: TMainMenu;

    ToolBar1: TToolBar;

    ToolButton1: TToolButton;

    ToolButton2: TToolButton;

    ToolButton3: TToolButton;

    ToolButton4: TToolButton;

    ToolButton5: TToolButton;

    ToolButton6: TToolButton;

    ransaksi1: TMenuItem;

    ambahKembali1: TMenuItem;

    HapusKembali1: TMenuItem;

    RekamKembali1: TMenuItem;

    Buku1: TMenuItem;

    ambahBuku1: TMenuItem;

    HapusBuku1: TMenuItem;

    SimpanBuku1: TMenuItem;

    ImageList1: TImageList;

    ToolButton7: TToolButton;

    Panel1: TPanel;

    Panel2: TPanel;

    DBGrid1: TDBGrid;

    Label1: TLabel;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBLookupComboBox1: TDBLookupComboBox;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    DateTimePicker1: TDateTimePicker;

    DBNavigator1: TDBNavigator;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    DBNavigator2: TDBNavigator;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    ADOTable2: TADOTable;

    ADOTable3: TADOTable;

    ADOTable4: TADOTable;

    DataSource1: TDataSource;

    DataSource2: TDataSource;

    DataSource3: TDataSource;

    ADOTable2ID_DetKembali: TAutoIncField;

    ADOTable2ID_Kembali: TWideStringField;

    ADOTable2ID_Buku: TWideStringField;

    ADOTable2JudulBuku: TStringField;

    procedure DateTimePicker1Change(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure ambahKembali1Click(Sender: TObject);

    procedure HapusKembali1Click(Sender: TObject);

    procedure RekamKembali1Click(Sender: TObject);

    procedure ambahBuku1Click(Sender: TObject);

    procedure HapusBuku1Click(Sender: TObject);

    procedure SimpanBuku1Click(Sender: TObject);

    procedure ToolButton1Click(Sender: TObject);

    procedure ToolButton2Click(Sender: TObject);

    procedure ToolButton3Click(Sender: TObject);

    procedure ToolButton5Click(Sender: TObject);

    procedure ToolButton6Click(Sender: TObject);

    procedure ToolButton7Click(Sender: TObject);

    procedure DBGrid1EditButtonClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  frmKembali: TfrmKembali;

implementation

uses pilihKembaliU;

{$R *.dfm}

procedure TfrmKembali.DateTimePicker1Change(Sender: TObject);

begin

ADOTable1.Edit;

DBEdit2.Text := DateToStr(DateTimePicker1.date);

end;

procedure TfrmKembali.FormCreate(Sender: TObject);

begin

DateTimePicker1.Date:=Date;

end;

procedure TfrmKembali.Button4Click(Sender: TObject);

begin

close;

end;

procedure TfrmKembali.Button1Click(Sender: TObject);

begin

ADOTable2.Append;

end;

procedure TfrmKembali.Button2Click(Sender: TObject);

begin

ADOTable2.Delete; 

end;

procedure TfrmKembali.Button3Click(Sender: TObject);

begin

ADOTable2.Post;

end;

procedure TfrmKembali.ambahKembali1Click(Sender: TObject);

begin

ADOTable1.Append; 

end;

procedure TfrmKembali.HapusKembali1Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

procedure TfrmKembali.RekamKembali1Click(Sender: TObject);

begin

ADOTable1.Post; 

end;

procedure TfrmKembali.ambahBuku1Click(Sender: TObject);

begin

ADOTable2.Append;

end;

procedure TfrmKembali.HapusBuku1Click(Sender: TObject);

begin

ADOTable2.Delete;

end;

procedure TfrmKembali.SimpanBuku1Click(Sender: TObject);

begin

ADOTable2.Post; 

end;

procedure TfrmKembali.ToolButton1Click(Sender: TObject);

begin

ADOTable1.Append;

end;

procedure TfrmKembali.ToolButton2Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

procedure TfrmKembali.ToolButton3Click(Sender: TObject);

begin

ADOTable1.Post; 

end;

procedure TfrmKembali.ToolButton5Click(Sender: TObject);

begin

ADOTable2.Append; 

end;

procedure TfrmKembali.ToolButton6Click(Sender: TObject);

begin

ADOTable2.Delete;

end;

procedure TfrmKembali.ToolButton7Click(Sender: TObject);

begin

ADOTable2.Post; 

end;

procedure TfrmKembali.DBGrid1EditButtonClick(Sender: TObject);

begin

frmpilihbukukembali.Show;

end;

end.