LABTI Delphi 7 - Database (Microsoft Access)

1.    Penjelasan Delphi

Pada paktikum pertemuan kedelapanini, saya mendapat  kesempatan untuk menggunakan program Delphi. Delphi adalah tools dalam pengembangan  aplikasi visual yang yang berbasis objek. Pada praktikum kali ini saya membuat aplikasi datebase program dari DelphiKomponen-komponen database dikelompokkan dalam component pallete data access data control dan BDE serta ADO. Kegunaannya adalah sebagai berikut:

1.    Data Access dan BDE

Banyak berperan pada penentuan sumber data seperti tabel, SQL, Query maupun konektivitasnya. Contoh komponen ini yaitu Table dan Data Source.

2.    Data Control

Lebih menekankan pada pengaturan data yang terpasang pada aplikasi seperti DB Label, DBNavigator, DBGrid, DBImage, DBMemo, DBEdit, DBCombobox, dan lain sebagainya.

3.    ADD

Digunakan untuk komunikasi program dengan database MS. Access sehingga data yang dibuat dengan MS. Access akan dapat diintegrasikan dengan Delphi.

      Untuk membuat database dengan Delphi sebelumnya anda harus membuat database dalam Ms. Access terlebih dahulu.

List Program

1.    Logika Program

Analisa Program

Aplikasi Program ini saya buat untuk latihan membuat program menggunakan Delphi. Versi yang di gunakan pada program ini adalah Delphi 7. Pada program ini kita menggunakan Form yang terdapat pada Delphi. Di sini kita akan membuat aplikasi datebase yang menghubungkan Ms. Access.

Penjelasan Program

 Saya menggunakan 3 CommandButton yang untuk masukkan, reset, dan exit serta 4 TextBox untuk mengisi NPM, Nama, Kelas, Alamat, membuat 5 label, serta membuat ADOConnection, ADOTable,Data Source, DB Grid, dan DB Navigator.   

Setelah saya membuat database pada MS.Access membuat batas maksimal panjang karakter yang akan dimasukkan nanti dan disave dengan format mdb dan 2002-2003. 

1.   begin

Perintah pada sintaks di atas berguna untuk memulai suatu program.

2.   adotable1.Open;

Perintah pada sintaks di atas berguna sebagai perintah untuk membuka suatu database.

3.   Adotable1.Append;

Perintah pada sintaks di atas berguna sebagai  field-field yang ada pada database akan ditampilkan jika user me run program tersebut, jika tidak ada perintah append maka field tidak akan muncul.

4.   adotable1.FieldByName('NPM').AsString := edit1.text;

adotable1.FieldByName('Nama').AsString := edit2.text;

adotable1.FieldByName('Kelas').AsString := edit3.text;

adotable1.FieldByName('Alamat').AsString := edit4.text;

Perintah pada sintaks di atas berguna untuk membentuk pendeklarasian jika user mengetikkan perintah pada field NPM, Nama, Kelas, Alamat dengan type data string dan ditampilkan pada kolom edit1, edit2, edit3, edit4 dan terkoneksi dengan database yang sudah dipilih.

5.   adotable1.Post;

Perintah sintaks di atas berguna untuk user menginputkan data pada program yang di run maka akan masuk kedalam tabel yang sudah disediakan.

6.   End

Perintah pada sintaks di atas berguna untuk menutup statement begin.

7.   procedure TForm1.ResetClick(Sender: TObject);

begin

Edit1.clear;

Edit2.clear;

Edit3.clear;

Edit4.clear;

Perintah pada sintaks di atas merupakan sintaks yang ada pada button reset dan berguna apabila user menginputkan data dan mengklik button reset akan dengan otomatis data yang akan diinputkan akan ter reset.

8.   end;

Perintah pada sintaks diatas untuk menutup sintaks begin.

Berikut ini adalah seluruh syntaks dari program database delphi

procedure TForm1.Button2Click(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('ALAMAT').AsString := Edit4.Text;

ADOTable1.Post;

           

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Application.Terminate;

end;

end.

Output