LA : DATABASE DELPHI

Dapat didownload di : https://www.dropbox.com/s/6el2rcpkqq7r44f/4%20LAPORAN%20AKHIR%20Database%20Delphi.docx?dl=0

CODING

unit Unit1;

interface

uses

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

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls;

type

  TForm1 = class(TForm)

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    Label1: TLabel;

    Timer1: TTimer;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

application.terminate;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label1.Visible then Label1.Visible := False

else Label1.Visible := True;

if Label1.Left = -176 then Label1.Left:=345;

Label1.Left:= Label1.Left -20;

end; end.

LOGIKA

Program ini dibuat untuk mengkoneksikan database (tabel-tabel) pada microsoft access ke dalam program Delphi. Komponen- komponen yang berperan penting dalam progam ini adalah:

a. ADO Connection yang dalam progam ini menjadi ADOConnection1, yang berfungsi untuk menentukan parameter koneksi untuk sambungan ke database.

Dalam properties ADO Connection yang berada pada Object Inspetor kita mengubah:

• LoginPrompt yang awalnya bernilai True diubah menjadi False. 
• ConnectionString memilih database yang telah dibuat, yang berfungsi untuk memilih database yang akan di koneksikan.
• Connected yang awalnya bernilai False diubah menjadi True, yang berfungsi untuk mengizinkan terjadinya koneksi.

b. ADOTable yang dalam program ini menjadi ADOTable1, yang berfungsi mengkoneksikan ke table master.

Dalam properties ADOTable yang berada pada Object Inspetor  kita mengubah :

• Connection memilih ADOConnection1, yang berfungsi untuk mengkoneksikan ADOTabel dengan ADOConnection1.
• TableName memilih nama tabel yang telah dibuat, yang berfungsi untuk memasukan table yang telah dipilih.
• Active  yang awalnya bernilai False diubah menjadi True, yang berfungsi untuk mengaktifkan sebuah koneksi antara ADOTabel dengan ADOConnection1.

c. DataSource yang dalam program ini menjadi DataSource1, yang berfungsi untuk sebagai penghubung antara DataAccess dengan data Aware-visual control.

Dalam properties DataSource yang berada pada Object Inspetor  kita mengubah:

• DataSet memilih ADOTable1, yang berfungsi untuk memasukan setingan data yang ada dalam ADOTable1.

d. DbNavigator yang dalam program ini menjadi DbNavigator1, yang  berfungsi melakukan navigasi dan modifikasi terhadap data.

Dalam properties DbNavigator yang berada pada Object Inspetor  kita mengubah:

• DataSource memilih DataSource1, yang berfungsi untuk memasukan bahwa DataSource1, lah yang akan dinavigasikan.
• ShowHint yang awalnya bernilai False menjadi True, yang berfungsi untuk mengizinkan memunculkan  tanda.

e. DbGrid yang dalam program ini menjadi DbGrid1, yang berfungsi Menampilkan tabel atau query dalam format tabular.

Dalam properties DbNavigator yang berada pada Object Inspetor  kita mengubah:

• DataSource memilih DataSource1, yang berfungsi untuk menampilkan database yang telah terkoneksi dengan DataSource1.

Dan komponen-komponen tambahan yaitu Label1, Timer1 dan Button1

• Timer 1 berfungsi untuk menggeser posisi text pada label1 sehingga seolah olah dapat bergerak.
• Button1 berfungsi untuk keluar dari program.