MIMPI DAN SEBUAH CITA-CITA

Bagi aku mimpi itu adalah dimana kita memiliki sebuah target yang harus kita capai dengan sebuah usaha yang cukup keras yang dimana kita sebagai manusia akan memulai dari nol atau dari garis start yang tujuannya adalah garis finish yang dimana dalam garis finish itu tergantung mimpi kita yang tinggi. Menurut aku mimpi itu gak usah takut untuk di gantung lebih tinggi dan lebih tinggi lagi karena semakin mimpi itu kita gantung tinggi kita akan makin semangat dalam wujudkan mimpi kita itu seperti kata pepatah yang bilang "gantung mimpimu setinggi langit"  itu yang bikin selalu jadi sebuah motivasi aku dan dalam hidup yang aku jalani saat ini.
Kali cita-cita menurut aku si itu adalah mimpi yang berkaitan dengan sebuah target yang mengarah pada materi biasanya si ya kyak contohnya pekerjaan gitu nah terkandang juga cita-cita itu ada yang simple aja seperti pengen bahagian orang tua nah kalau sebenarnya mau membahagian orang tua si kalau menurut aku pribadi gak perlu dengan sebuah materi yang berlimpah terus kita kasihkan ke orang tua kita. Tapi bisa kita tunjukaan dengan prestasi misalnya atau gak dengan ketekunan kita dalam menuntut ilmu itu sebenar simpel aja kan untuk cita-cita yang pengennya nyenengin atau bahagiainn orang tua kita.

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.