Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

VIDEO TUTORIAL MIKROTIK VIDEO + MODUL TRAINING ORDER BISA VIA TOKOPEDIA KLIK LINK GAMBAR

VIDEO TUTORIAL MIKROTIK  VIDEO + MODUL TRAINING ORDER BISA  VIA TOKOPEDIA KLIK LINK GAMBAR
Update Video Tutorial > Lebih dari 350 Video Tutorial MIkrotik

Jadwal Training Mikrotik Running Setiap Awal dan Akhir Bulan

Excel Fundamental, Excel Advanced, Dan Excel Programming VBA

IT TRAINING CENTER CONTACT : 0812-1451-8859 / 081-1219-8859

Step By Step Pemrograman Delphi dan MySQL Membuat Aplikasi Insert, Update data Studi Kasus Input Data Praktikum


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

Share

Artikel Lainnya :



No comments:

Post a Comment

Training Bulan ini

Padepokan IT Course

Lokasi Training
Jl. H.Gofur Komplek Graha Bukit Raya 1 Blok G3 No 16 Lantai 3, Cilame, Bandung Barat

Telp : 081214518859 (WhatsApp)
E-Mail : padepokanit.course@gmail.com
Instagram : @padepokanit
Website : www.padepokanit.com

Info Site

User Online Padepokan-IT Course

IT Tutorial, Training & IT Solution