Dalam membuat program aplikasi Perpustakaan dengan menggunakan Delphi 7.0 langkah pertama yang harus dilakukan adalah dengan cara :
1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik Borland Delphi 7, Klik Delphi 7.
2. Pada object Inspektor, pada bagian properties klik Caption, ketikkan Perpustakaan
3. masih pada object inspector, pada bagian properties, Klik name, ketikan FrmUtama
4. Klik tombol menu File, Klik Save all, tentukan folder yang akan digunakan untuk menyimpan program aplikasi, dan ganti unit1 pada file name, dengan UtamaU.pas, lalu Tekan tombol save, dan selanjutnya adalah ganti project1 pada file name, menjadi pustakaPrj.prj,lalu klik tombol Save.
Catatan :
Setiap kali ada penambahan form, selalu diganti caption dan name serta simpan form tersebut baru melanjutkan pekerjaan.
Setiap kali ada penambahan form, selalu diganti caption dan name serta simpan form tersebut baru melanjutkan pekerjaan.
Membuat Menu Utama
Langkah selanjutnya adalah membuat menu utama yaitu dengan cara, klik standard pada component pallete, lalu klik MainMenu (Menus), gerakkan kursor pada form (area kerja) dan klik di sembarang tempat. Dengan demikian maka object mainmenu akan terletak pada form.
Langkah selanjutnya adalah membuat menu utama yaitu dengan cara, klik standard pada component pallete, lalu klik MainMenu (Menus), gerakkan kursor pada form (area kerja) dan klik di sembarang tempat. Dengan demikian maka object mainmenu akan terletak pada form.
Klik kanan dengan mouse pada objek mainmenu di form, lalu klik Menu designer, dengan demikian akan ditampilkan windows designer.
Pada object inspector, di bagian properties, klik caption dan ketikkan File lalu tekan enter.
Klik file pada windows designer, lalu klik kotak dibawahnya, klik caption pada properties lalu ketikkan Penerbit, tekan enter. Klik kotak di bawah penerbit pada windows designer lalu klik caption pada properties ketik buku dan lanjutkan untuk menu-menu yang lain.Pada object inspector, di bagian properties, klik caption dan ketikkan File lalu tekan enter.
Tutup windows designer dengan cara klik form menu.
Tambahkan satu buah form lagi dengan cara klik Project, new dan klik form, Klik File, Klik Save, beri nama penerbitU.pas lalu klik Save.
Klik caption pada properties, lalu ketikan Tabel Penerbit, klik name pada properties lalu ketik frmpenerbit. Untuk bisa memanggil form penerbit ini, Anda harus mengikutsertakan file penerbitU.pas ke dalam program aplikasi. Caranya klik pada Delphi IDE File | Use Unit, maka akan tampil:
Dobelklik penerbitU maka frm penerbit sudah menjadi bagian dari program.
Untuk memanggil frmpenerbit dari mainmenu, Klik menu View, klik Forms, lalu double klik mainmenu1, klik File pada form menu, klik penerbit, ketikkan listing koding berikut :
Frmpenerbit.show
Jalankan program dengan cara klik menu Run, klik Run atau dapat juga menekan tombol F9, lalu klik File dan klik penerbit
Kembali ke frmUtama. Pada halaman depan akan kita isi dengan tabel buku dan pengolahan datanya cukup dengan menggunakan DBnavigator yang akan kita tempatkan di bagian bawah Form.
Untuk mempercantik dan memudahkan tampilan ketika form diresize user, maka tempatkan komponent panel dan set properti align ke Allbottom. Set caption-nya menjadi kosong. Kemudian tempatkan DBNavigator di bagian kiri dan sebuah Button di kanan.
Set properti anchor dari button1 true untuk akbottom dan akright. Pada bagian tengah form kita isikan dengan DBGrid dengan properti align=alclient
Untuk koneksi ke databasenya kita lakukan seperti pada latihan sebelumnya.
Selengkapnya, kode dari UtamaU.pas adalah sbb:
unit UtamaU;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, ADODB, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls;
type
Tfrmutama = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
Penerbit1: TMenuItem;
Buku1: TMenuItem;
Anggota1: TMenuItem;
Keluar1: TMenuItem;
ransaksi1: TMenuItem;
Peminjaman1: TMenuItem;
Pengembalian1: TMenuItem;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
Button1: TButton;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
procedure Penerbit1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Keluar1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmutama: Tfrmutama;
implementation
uses penerbitU;
{$R *.dfm}
procedure Tfrmutama.Penerbit1Click(Sender: TObject);
begin
frmpenerbit.Show;
end;
procedure Tfrmutama.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure Tfrmutama.Keluar1Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
Selamat Belajar
