MODUL DELPHI (PEMOGRAMAN DATABASE)

1.       Aktifkan xampp panel

2.       Kemudian buka web browser : ketikkan http://localhost/phpmyadmin

3.       Buatlah database dengan nama kampus

4.       Buatlah table bernama mahasiswa dengan 3 field

5.       Instal program odbc

6.       Kemudain lakukan setting 0dbc dengan cara masuk control panel à administrative toolàdatasource (odbc)

7.       Kemudian akan tampil tampilan berikut, pilih menu add

8.       Setelah masuk ke menu add akan muncul tampilan sbb, pilihlah odbc driver

9.       Kemudian isikan seperti dibawah ini

10.   Buatlah form seperti dibawah ini dengan delphi

11.   Rincian komponen yang digunakan

gambar	Nama komponen	Setting di properties
	Label sebanyak 3 buah	Label 1 name diganti nim Label 2 name diganti nama Label3 name diganti jurusan
	Edit sebanyak 3	Edit 1 text di kosongi, Edit 2 text dikosongi, Edit3 text dikosongi,
	Button sebanyak 4	Button 1 name diganti insert Button 2 name diganti update Button 2 name diganti delete Button3 name diganti keluar
Ada di menu BDE	Query 1 Query 2	Databasename : kampus Databasename : kampus Sql diisi script : select  *from mahasiswa order by nim
Dari menu data access	Datasource	Dataset di isi query 2
Dari menu data control	Dbgrid	Datasource diganti datasource1

12.   Klik 2x pada DBgrid, lakukan setting dengan cara sbb :

-          Tambahkan colom dengan cara  klik add

-          Untukmengganti colom dengan nim, nama dan jurusan klik pada kolom ke 0, kemudian pilih properties fieldname

13.    Masuk ke unit 1 dengan cara view à units

Pada deklarasi public isikan scrip sbb

Procedure refresh;

               

14.   Kemudian pada implementation ketikkan kode dibawah ini

procedure TForm1.refresh ;

 begin

 with query2 do

begin

close;

SQL.clear;

SQL.Text:='select*from mahasiswa order by nim';

open;

end;

15.   Kemudian kembali ke form dengan cara klik view à form

16.   Klik 2x pada button/tombol insert, isikan script dibawah ini

Dibawah begin silahkan ketikkan :

with Query1 do

  begin

    Close;

    SQL.Clear;

    sql.Add('lock table barang write;');

    {perintah query untuk simpan data ke tabel}

    SQL.Text:='INSERT INTO mahasiswa values(:nim,:nama,:jurusan)';

    ParamByName('nim').AsString:=Edit1.Text;

    ParamByName('nama').AsString:=Edit2.Text;

    ParamByName('jurusan').AsString:=Edit3.Text;

    ExecSQL;

end;

refresh;

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

17.   Klik area form,kemudian Pada setting object inspector,pilih menu event, kemudian pilih oncreate klik2x  dibawah begin ketikkan scipt dibawah ini

query2.Open;

18.   Klik pada DB grid, kemudian pada object inspectoràeven pilih menu dbclick

Ketikkan script dibawah ini

edit1.Text:=DBGrid1.Fields[0].AsString;

edit1.ReadOnly:=true;

edit2.Text:=DBGrid1.Fields[1].AsString;

edit3.Text:=DBGrid1.Fields[2].AsString;

19.   Kemudian kembali pada form, klik 2x pada tombol update

Isikan script dibawah ini

                with Query1 do

  begin

  close;

  SQL.Clear;

  SQL.Text:='UPDATE mahasiswa set  nama=:nama, jurusan=:jurusan where nim=:nim';

  ParamByName('nim').AsString:=Edit1.Text;

    ParamByName('nama').AsString:=Edit2.Text;

    ParamByName('jurusan').AsString:=Edit3.Text;

    ExecSQL;

    end;

    refresh;

20.   klik 2x pada delete

with query1 do

  begin

  close;

  SQL.Clear;

  SQL.Text:='DELETE from mahasiswa where nim=:nim';

    ParamByName('nim').AsString:=DBGrid1.Fields[0].AsString;

    ExecSQL;

    end;

    refresh;

21.   klik 2x pada keluar

isikan script

close

Tweet