Membuat Aplikasi Database Dengan Borland Delphi7

Pada artikel kali ini, saya akan membagian pengetahuan yang saya dapatkan dari beberapa buku dan artikel lainnya tentang cara membuat aplikasi database dengan Borlan Delphi 7. Untuk lebih jelasnya, langsung saja kita masuk ke materi pembahasan.

Listing Program

Berikut merupakan langkah-langkah membuat program Database:

1.      Membuka aplikasi Microsoft Office Access melalui tombol start:

2.      Membuat database dengan nama “Mahasiswa.mdb” dengan menggunakan format (MS Access 2000-2003).

3.      Kemudian membuat tabel baru bernama “Mahasiswa”.

4.      Fieldnya ada 6 yaitu: NPM, Nama, Kelas, Jurusan, Nilai, dan Keterangan. Sehingga hasilnya seperti gambar ini: 

5.      Membuka aplikasi Delphi 7 pada desktopatau melalui tombol start: 

6.      Kemudian pada lembar kerja form1. Masukan komponen DataSource, ADOConnection, ADOTable, DB Grid, DB Navigator, Edit, Label, dan Button dengan men-drag & drop sehingga menjadi seperti ini: 

7.      Mengganti nama label, edittext, dan button sesuai gambar yang tertera diatas.

8.      Lalu klik kanan pada ADOConnection-nya dan edit stringnya menjadi Microsoft Jet 4.0 OLE DB Provider. Kemudian browse database yang akan dikoneksikan.

9.      Selanjutnya untuk ADOTable, pada Object Inspectornya, ubah Connection Stringnya seperti pada ADOConnection. Pilih Table Name-nya dan Ubah Status Active menjadi True.

10.  Pada DataSource, ubah DataSet-nya menjadi ADOTable.

11.  Pada DB Grid dan DB Navigator, ubah DataSource menjadi DataSource1

Membuat Source Code

1.      Double klik perintah button “simpan” dan masukkan source codenya: 

2.      Kemudian double klik perintah button “cek” dan masukkan source codenya: 

Setelah semua source code telah dibuat semua, maka secara otomatis source code tersebut akan menjadi satu seperti ini:

unit LA4;

interface

uses

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

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

type

  TForm1 = class(TForm)

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    Button1: TButton;

    Button2: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Adotable1.Open;

Adotable1.Append;

Adotable1.FieldByName('NPM').AsString:=Edit1.Text;

Adotable1.FieldByName('Nama').AsString:=Edit2.Text;

Adotable1.FieldByName('Kelas').AsString:=Edit3.Text;

Adotable1.FieldByName('Jurusan').AsString:=Edit4.Text;

Adotable1.FieldByName('Nilai').AsString:=Edit5.Text;

Adotable1.FieldByName('Keterangan').AsString:=Edit6.Text;

end;

procedure TForm1.Button2Click(Sender: TObject);

var A:real;

begin

A:=StrToFloat(Edit5.Text);

Edit6.Text:='';

if(A>=0)and(A<65)then

begin

Edit6.Text:='Tidak Lulus';

end

else if(A>=65)and(A<=100)then

begin

Edit6.Text:='Lulus';

end;

end;

end.

Output Program

Setelah source code dibuat, maka program dapat dijalankan dengan mengklik “play”dan program akan berjalan seperti tampilan berikut:

·         Memasukkan Data

·         Cek nilai jika Tidak Lulus (A>=0)and(A<65)

·         Cek nilai jika Lulus (A>=65)and(A<=100)

·         Hasil akhir dan klik simpan

Nah bagaimana? mudahkan. Jika ada yang masi bingung mengenai materi ini, bisa comment aja yaa..

terimakasih

Muhammad Subhan Sulaeman

2IA07
58412412