Pada tutorial dibawah ini akan
dibahas step by step bagaimana membuat aplikasi penyimpanan data sederhana menggunakan
Delphi sebagai Aplikasinya dan MySQL databasenya. selanjutnya nanti bisa
dikembangkan kearah yang lebih komplek. Dimana cara kerja aplikasi adalah dapat bisa
diInput dan diedit oleh user. Berikut Tahapannya
1.
Pastikan Telah Membuat Database dan Tabelnya
2.
Buat Data Module Terlebih Dahulu Untuk Membuat
Koneksi Ke Database. Tutorialnya Disni
3.
Selanjutnya Desain Form Seperti di Bawah ini
 |
DESAIN FORM INPUT DATA PRAKTIKUM |
4.
Kemudian Atur Properti Masing-Masing Komponen
Nama Komponen
|
Caption
|
Name
|
Keterangan
|
Edit Text 1
|
-
|
Ed_ip
|
|
Edit Text 2
|
-
|
Ed_np
|
|
Button 1
|
Tambah
|
Bt_tambah
|
|
Button 2
|
Simpan
|
Bt_simpan
|
|
Button 3
|
Batal
|
Bt_batal
|
|
Button 4
|
Close
|
Bt_close
|
|
Label 1
|
Kode Praktikum
|
Label1
|
|
Label 2
|
Nama Praktikum
|
Label2
|
|
Data Grid
|
Name : Gride_praktikum, Data
Source : datasource1
|
||
TZquery
|
Name : qpraktikum, Connection
: dbkoneksi
|
||
Data Source
|
Name : datasource1, dataset :
qpraktikum
|
||
5.
Buat Codingnya Seperti dibawah ini
-
Tambahkan variabel Global dan Uses Unit Modul
Data
var
FMaster_Nama_Praktikum:
TFMaster_Nama_Praktikum;
sts : Smallint;
implementation
uses Umodul_koneksi1;
{$R *.dfm}
-
Selanjutnya Lihat Codingnya seperti terlihat
pada tabel dibawah ini
Nama Komponen
|
Form
|
Event
|
On Show, On Close
|
Coding
|
procedure TFMaster_Nama_Praktikum.FormShow(Sender: TObject);
begin
Qpraktikum.Close;
Qpraktikum.Open;
end;
procedure TFMaster_Nama_Praktikum.FormClose(Sender: TObject; var
Action: TCloseAction);
begin
QPraktikum.Close;
end;
|
Keterangan
|
Coding diatas Befungsi Untuk Membuka dan Menutup Koneksi Database
MySQL
|
Nama Komponen
|
Button Tambah
|
Event
|
On Click
|
Coding
|
procedure TFMaster_Nama_Praktikum.bt_tambahClick(Sender: TObject);
begin
sts := 1;
ed_ip.SetFocus;
end;
|
Keterangan
|
·
Coding diatas Berfungsi untuk Mengaktifkan
Status Jika di Klik Tombol Tambah maka status = 1 artinya mengirim data
variabel bernilai 1 (untuk simpan data)
·
Sedangkan ed_ip.setfokus artinya ketika tombol
di eksekusi maka set fokus berada di edit id praktikum.
|
Nama Komponen
|
Button Simpan
|
Event
|
On Click
|
Coding
|
procedure TFMaster_Nama_Praktikum.bt_simpanClick(Sender: TObject);
Begin
if sts = 1 then //simpan data
begin
with dm.qr do
begin
close;
sql.Clear;
sql.Add('insert
into tnama_praktikum(id_praktikum,nama_praktikum) ');
sql.Add('
values(:id,:np)');
ParamByName('id').AsString := ed_ip.Text;
ParamByName('np').AsString := ed_np.Text;
ExecSQL;
close;
ShowMessage('Data
Berhasil Disimpan',);
end;
end;
if sts = 0 then // Upadate Data
Begin
with dm.qr do
begin
close;
sql.Clear;
sql.Add('update
tnama_praktikum set id_praktikum=:ip, ');
sql.Add('nama_praktikum=:np where
id_praktikum="'+ed_ip.Text+'"');
ParamByName('ip').AsString := ed_ip.Text;
ParamByName('np').AsString := ed_np.Text;
ExecSQL;
ShowMessage('Data
Berhasil Di Update');
close;
end;
end;
ed_ip.Text := '';
ed_np.Text := '';
qpraktikum.Refresh
end;
|
Keterangan
|
Coding diatas Berfungsi untuk
menyimpan dan mengupdate data yang selanjutnya akan di simpan di database.
Jika Variabel bernilai 1 berarti proses simpan data akan di eksekusi. Dan
jika variabel bernila 0 maka proses update data yang akan di proses
|
Nama Komponen
|
Button Batal
|
Event
|
On Click
|
Coding
|
procedure TFMaster_Nama_Praktikum.bt_batalClick(Sender: TObject);
begin
ed_ip.Text := '';
ed_np.Text := '';
bt_simpan.Caption :=
'Simpan';
end;
|
Keterangan
|
Coding Diatas Berfungsi untuk Membersihkan EditText dan Membuat
Object Button Simpan Judulnya adalah Simpan.
|
Nama Komponen
|
Button Close
|
Event
|
On Click
|
Coding
|
procedure
TFMaster_Nama_Praktikum.bt_closeClick(Sender: TObject);
begin
if(Application.MessageBox('Yakin
Akan Keluar Dari Program','Konfirmasi Ulang',MB_YesNo)=id_yes) then
Begin
close;
end;
end;
|
Keterangan
|
Coding Diatas Berfungsi keluar dari Program dengan Fungsi MessegBox
(Pesan Konfirmasi)
|
6.
Uji Coba Aplikasi Untuk Input dan Edit Data. Hasilnya seperti Terlihat pada gambar dibawah ini
 |
| UJI COBA APLIKASI PROSES INSERT DAN UPDATE DATA |
Demikian Tutorial Singkat Membuat Aplikasi Input dan Edit
Data di Delphi.
Selamat Mencoba
PADEPOKAN IT COURSE
IT Tutorial, Training Center, & IT Solution
No comments:
Post a Comment