Database Pada Delphi

LAPORAN AKHIR PRAKTIKUM

Mata Praktikum : ALGORITMA PEMROGRAMAN 2A

Nama : HERI PURDIAWAN

NPM : 53411333

Kelas : 1IA06

Praktikum ke- : 4

Tanggal : 05 APRIL 2012

Materi : DATABASE PADA DELPHI

Ketua Asisten : Andi Winarno

Paraf Asisten :

Nama Asisten :

Jumlah Lembar : 9 Lembar

LABORATORIUM INFORMATIKA

UNIVERSITAS GUNADARMA

2012

LISTING PROGRAM

==============================================================

Dibawah ini listing program untuk form1

==============================================================

unit Unit3;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Delphi1;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if (edit1.text='masuk') and (edit2.text='1ia06') then

begin

form1.Hide;

form2.show;

end

else

begin

messagedlg ( ' maaf user id dan password Anda salah'

,mtwarning,[mbok],0);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

end.

==============================================================

LOGIKA PROGRAM

Bahasa pemrograman Delphi juga memiliki percabangan database dan pada kali ini akan dijelaskan tentang database tersebut.

Maka simaklah penjelasan-penjelasan dibawah ini dengan cermat sehingga dapat dipahami dengan mudah.

procedure TForm1.Button1Click(Sender: TObject);

begin

if (edit1.text='masuk') and (edit2.text='1ia06') then

Diatas ini adalah potongan listing program yang berfungsi untuk memasukkan nama dan password yang digunakan untuk membuka form berikutnya. Saat aplikasi ini di run atau dengan menekan tombol F9 maka tampilan yang akan dahulu ditampilkan adalah form1 dan disitu terdapat nama dan password, maka masukkan nama dan password yang tertera di listing program diatas tadi.

begin

form1.Hide;

form2.show;

Potongan script listing program diatas maksudnya yaitu akan menampilkan form2 dan akan menghilangkan form1.

else

Di atas adalah potongan script listing program yang digunakan sebagai percabangan dimana disitu terdapat kondisi true dan false.

begin

messagedlg ( ' maaf user id dan password Anda salah'

,mtwarning,[mbok],0);

Pada penggalan script listing program diatas yaitu berfungsi untuk menampilkan pesan, pesan yang ditampilkan adalah “maaf user dan id dan password Anda salah”.

Namun potongan-potongan itu adalah satu paket yaitu jika memasukkan nama dan password salah maka akan menampilkan pesan “maaf user dan id dan password Anda salah”. Tetapi jika memasukkan nama dan password benar maka akan menampilkan form2.

Berikut ini penjelasan komponen-komponen yang digunakan di form2, karena sebagian besar tidak menggunakan listing program.

Gambar diatas berfungsi untuk menghubungkan database dari Ms.Access.

Gambar diatas berfungsi untuk mengambil table yang ada

didatabase yaitu database di Ms.Access yang akan ditampilkan di Delphi.

Gambar data diatas adalah Data Source yang berfungsi untuk pengambilan data-data field yang ada di table, seperti gambar table dibawah ini.

Gambar diatas yaitu tampilan yang berupa table yang ada di Delphi yang bentuk tabelnya sama seperti table yang di Ms.Access, gambar dibawah ini yaitu tampilan dari Ms.Access yang dihubungkan di Delphi.

Gambar diatas adalah DBNavigator. DBNavigator ini memiliki banyak fungsi-fungsi yaitu untuk mengendalikan-mengendalikan database seperti menambahkan database, menghapus database , dll.

OUTPUT PROGRAM

Gambar dibawah ini adalah output yang pertama kali tampil saat di run atau menekan tombol F9 dan terdapat nama dan password yang harus dimasukkan.