TUGAS SOFTSKILL PTI&NI MEMBUAT DATABASE PADA DELPHI v7.0

Pada kesempatan kali ini saya akan membuat database pada delphi yang bia kita gunakan untuk menambahkan sesuatu ke dalam database melalui program delphi.

Sofware yang dibutuhkan :

1. Delphi v.7

2. Ms.Access 2007/2010/2013.

1. Langkah pertama kita buka MS.access dan buat blank database seperti dibawah ini.

2. Langkah kedua klik kanan pada tab table1 dan pilih design view.

3. Setelah di klik kita masukkan saja "Mahasiswa"

4. Setelah itu kita masukkan tab apasaja yang akan di buat contoh seperti gambar di bawah.

5. Kita save database yang telah di buat di Ms.Accesss setelah itu kita bukua program Delphinya, pada program delphi kita buat desain form seperti gambar di bawah.

6. Setelah kita membuat desain seperti di atas kita harus menghubungkan tabel pada Ms.Access dengan Delphi agar terhubung :

1. Propertise Pada ADOConnection

2. Propertise Pada ADOTable

3. Propertise Pada DataSource

4. Propertise Pada DBGrid 

5. Propertise Pada DBNavigator.

7. Ketika semua componet telah di atur sama dengan propertise maka , waktunya kita memasukan kodingan , double klik pada button masukkan kodingan seperti berikut 

PENJELASAN KODE PROGRAM 

procedure TForm1.Button2Click(Sender: TObject);beginedit1.clear;edit2.clear;edit3.clear;edit4.clear;end;

pada kode program di atas di jelaskan bahwa edit1.berarti apapun yg ada di edit1 akan di hapus ketikan di 

klik tombol button2 begitu seterusnya pada edit2,3,4.

procedure TForm1.Button1Click(Sender: TObject);beginAdotable1.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;

pada kode program di atas dijelaskan Adotable1.FieldByName('NPM').AsString := edit1.text;     bahwa table1 yang berlabel NPM akan diisikan dengan edit1.text, berlabel NAMA akan diisikan dengan edit2.text, label KELAS akan diisikan dengan edit3.text, label ALAMAT akan diisikan dengan edit4.text.

OUTPUT PROGRAM

Kita masukan NPM,NAMA,ALAMAT,KELAS, Setelah Itu kita klik INPUT.

Sekian dari saya mengenai database pada delphi.

Posted in TUGAS