PRAKTIKUM PEMVIS VII DATA BASE

I.                   Deskripsi Program

Program ini merupaka program yang dibuat menggunakan Delphi XE 4. Program ini adalah program untuk rental buku atau yang lebih dikenal dengan peminjaman buku agar data-data peminjaman buku dapat terkontrol dengan baik. Disini menggunakan beberapa komponen diantaranya adalah Page Control, Adotable, ADOConnection serta DBgrid lalu juga ada komponen seperti label, edit, radiobutton, dan button. Untuk Button disini menggunakan 6 buah button yaitu Button untuk tambah, edit, batal, cari, hapus, dan keluar.

II.     Interface Program   

A.    Tambah Dan Edit

B.    Lihat Data

 
C. Data Pada Ms. Acsess

I.                   Source Code

unit bukulagi;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,

  Vcl.DBGrids, Vcl.StdCtrls, Vcl.Mask, Vcl.ExtCtrls, Vcl.ComCtrls;

type

  TForm58 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    RadioGroup1: TRadioGroup;

    Button1: TButton;

    Button2: TButton;

    Label5: TLabel;

    Edit3: TEdit;

    Button3: TButton;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    Edit4: TEdit;

    Label6: TLabel;

    Button4: TButton;

    Button5: TButton;

    Edit6: TEdit;

    Button6: TButton;

    DBGrid1: TDBGrid;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form58: TForm58;

implementation

{$R *.dfm}

procedure TForm58.Button1Click(Sender: TObject);

begin

adotable1.Append;

adotable1.Open;

adotable1.FieldByName('KodeBuku').AsString:=edit1.Text;

adotable1.FieldByName('JudulBuku').AsString:=edit2.Text;

if radiogroup1.ItemIndex = 0 then

begin

   edit3.Text := '3000';

   adotable1.FieldByName('JenisBuku').AsString := 'Komik';

end;

if radiogroup1.ItemIndex = 1 then

begin

  edit3.Text:='5000';

  adotable1.FieldByName('JenisBuku').AsString:='Novel';

end;

if radiogroup1.ItemIndex = 2 then

begin

  edit3.Text :='3500';

  adotable1.FieldByName('JenisBuku').AsString:='Pelajaran';

end;

if radiogroup1.ItemIndex = 3 then

begin

  edit3.Text :='2500';

  adotable1.FieldByName('JenisBuku').AsString:='Cerita Anak';

end;

adotable1.FieldByName('JmlBuku').AsString:=edit6.Text;

adotable1.FieldByName('Harga').AsString:=edit3.Text;

adotable1.Post;

end;

procedure TForm58.Button2Click(Sender: TObject);

begin

adotable1.Edit;

edit1.SetFocus;

end;

procedure TForm58.Button3Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

edit6.Clear;

edit3.Clear;

end;

procedure TForm58.Button4Click(Sender: TObject);

begin

if adotable1.Locate ('JudulBuku',edit4.Text,[]) then

begin

  edit1.Text := adotable1 ['KodeBuku'];

  edit3.Text := adotable1 ['Harga'];

end;

end;

procedure TForm58.Button5Click(Sender: TObject);

begin

adotable1.Delete;

end;

procedure TForm58.Button6Click(Sender: TObject);

begin

application.Terminate;

end;

end.

IV.                   Output

-          Tampilan utama pada program database pada rental buku.