MODUL DELPHI (PEMOGRAMAN DATABASE)

Posted by



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 beginketikkan 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


FOLLOW and JOIN to Get Update!

Social Media Widget SM Widgets




Demo Blog NJW V2 Updated at: 15:17:00

0 komentar:

Post a Comment

ilmu lebih berharga dari pada uang