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
0 komentar:
Post a Comment
ilmu lebih berharga dari pada uang