DATABASE PADA DELPHY VERSI 7 - MINGGU 7

1.    Penjelasan Delphi

 Delphi adalah tools dalam pengembangan  aplikasi visual yang yang berbasis objek. Praktikum ini saya membuat aplikasi dari Delphi yaitu Data mahasiswa. Berikut adalah contoh sederhana program data mahasiswa menggunakan Delphi.

2.    List Program 1

 

3.Logika Program

Kali  ini saya akan membuat database.Versi yang saya  gunakan pada  program ini adalah Delphi 7.Pada program ini saya menggunakan Form yang terdapat pada Delphi. Di sini kita akan membuat sebuah program untuk database.

Jika ingin membuat program dengan output seperti yang ada diatas  maka kita dapat menggunakan 3CommandButton yang kita buat untuk masukkan, reset, dan exit serta 4 TextBox untuk mengisi NPM,Nama, Kelas, Alamat, membuat 5 label,serta membuat ADO Connection, ADOTable,Data Source, DB Grid, dan DB Navigator. 

Tetapi kita harus buat dahulu database pada pada MS.Access            seperti pada gambar diatas, membuat batas maksimal panjang karakter yang akan dimasukkan nanti dan disave dengan format mdbdan 2002-2003.karena apabila panjang karakter tidak diatur maka yang akan terjadi karakter tersebut akan tidak sesuai dengan kebutuhan kita

Pada list program command button pertama atau Masukkan terdapat sintaks ”ADOTable1.Open;ADOTable1.Append;”, perintah ini digunakan untuk membuka ADOTable1 dan menambahkannya dengan berbagai masukkan.

Pada list sintaks berikutnya terdapat sintaks :

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

è ADOTable1.FieldByName('NAMA').AsString:=Edit2.Text;

è ADOTable1.FieldByName('KELAS').AsString:=Edit3.Text;

è ADOTable1.FieldByName('ALAMAT').AsString := Edit4.Text;

Ini berarti bahwa ADO Table1 diisi oleh NPM, Nama, Kelas, dan Alamat sebagai variable string dan berada padaTextBox 1, 2, 3, 4 .

Pada list sintaks berikutnya terdapat sintaks “ADOTable1.Post; ”perintah ini digunakan untuk memasangkan NPM, Nama, Kelas, dan Alamat pada ADO Table 1.

Pada list sintaks command button Rest berikutnyaterdapatlist sintaks:

è Edit1.Clear;

è Edit2.Clear;

è Edit3.Clear;

è Edit4.Clear;

è Edit1.SetFocus;

Sintaks ini untuk mengosongkan TextBox 1-4 agar input yang berbeda dapat kita masukkan  dengan sesuai dengan kebutuhan yang kita buat tadi dan set focus berarti ketika semuaTextBox dikosongkan akan otomatis dimulai dar iTextBox 1.

Pada list sintaks command button Exit Terdapat list sintaks “Aplication.Terminate”,ini untuk menghentikan aplikasi yang sedang berjalan.

Untuk mengkoneksikan database yang kita telah buat dengan program kita, dapat dilakukan dengan mencari melalui connectionString pada properties ADOConnection, mengganti Data Source pada DBGriddanDBNavigator dengan DS1, mengganti Table Name padaADOTable dengan nama yang sudah kita buat di MS.Access.

Berikut adalah seluruh sintaks dari Program1 :

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.

3.    Output Program