» » » » » » » » » » TUTORIAL INPUT DATA DELPHI 7 - DATABASE MYSQL PART-1

TUTORIAL INPUT DATA DELPHI 7 - DATABASE MYSQL PART-1

Tutorial input data dengan bahasa pemograman delphi7, menggunakan database MySQL. Pertama-tama pastikan aplikasi XAMPP anda aktif (MySQL dalam keadaan running), buka delphi7 anda buat project baru lalu desain form inputan anda sedemikian rupa (pastikan didelphi7 anda sudah terinstall zeos access), komponen-komponen yang dibutuhkan: TForm, TLabel, TButton, TEdit,  TstatusBar, TDBGrid, Komponen Zeos Access: (TZConnection, TZQuery, TDataSource).

-Berikut Contoh Tampilan Formnya:















No
Case
Name
Properties
Sett
Ket
1.
Form
Form_Input_Data
Caption
Form Input Data
Ganti icon form (optional)
BorderIcons,
biMinimize
False
Hint
Form Input Data
Icon
(Browse Gambar Type Icon)
Position
poScreenCenter
ShowHint
True
Cursor
crSizeAll
2.
Label

Caption
(Isi sesuai dengan kebutuhan)
Sesuaikan dengan case
3.
Button1
Btn_Tambah
Caption
TAMBAH
Untuk tambah data kelas
Hint
Tombol Tambah
Show Hint
True
Cursor
crHandPoint
4.
Button2
Btn_Ganti
Caption
GANTI
Untuk ganti data kelas
Hint
Tombol Ganti
Show Hint
True
Cursor
crHandPoint
5.
Button3
Btn_Hapus
Caption
HAPUS
Untuk hapus data kelas
Hint
Tombol Hapus
Show Hint
True
Cursor
crHandPoint
6.
Edit1
Edt_Cari
Anchor,akLeft
True
Untuk pencarian data kelas
Anchor,akTop
True
Anchor,akRight
True
Anchor,akBottom
False
Hint
Pencarian Data Kelas
ShowHint
True
Cursor
crBeam
7.
Edit2
Edt_ID_Kelas
Hint
ID Kelas
Untuk Tampilkan
dan
perbaharui id_kelas
Hint
ID Kelas
ShowHint
True
Cursor
crBeam
8.
Edit3
Edt_Kelas
CharCase
ecUpperCase
Untuk input kelas
Cursor
crBeam
Hint
Kelas
ShowHint
True
9.
Edit4
Edt_Bagian_Kelas
CharCase
ecUpperCase
Untuk input bagian kelas, uppercase u/ kapitalkan huruf
Cursor
crBeam
Hint
Bagian Kelas
ShowHint
True
10.
Edit5
Edt_Jurusan
CharCase
ecUpperCase
Untuk input jurusan, uppercase u/ kapitalkan huruf
Cursor
crBeam
Hint
Jurusan
ShowHint
True
11.
DBGrid
Tabel_Kelas
Anchor,akLeft
True
Tabel untuk tampilkan data kelas
Anchor,akTop
True
Anchor,Right
True
Anchor,Bottom
True
Cursor
crDrag
Data Source
(Seleksi DataSet)
Hint
Tabel Kelas
ShowHint
True
Options, dgEditing
False
Options, dgRowSelect
True
12.
Tstatus Bar
Sbar
DoubleClick àStatusBar,Aligment:
taCenter
Status Bar
àStatusBar,Text
Tutorial
Input  Data

Setelah desain form inputan data kelas selesai, langkah selanjutnya adalah buka browser ketikan xampp atau localhost pilih phpMyAdmin lalu buatkan databasenya, berikut contohnya:

-Tampilan database MySQL untuk data kelas:













     Seperti yang terlihat pada gambar diatas buatkan database dengan nama test_database serta buatkan satu tabel dengan nama tabel_kelas lalu buatkan data fieldnya, dari gambar diatas sudah dibuatkan empat data field yaitu: id_kelas dengan type integer; auto increment, kelas dengan type varchar(10), bagian_kelas dengan type varchar(5), jurusan dengan type varchar(20). Buka kembali delphi7 dan kofigurasikan databasenya. Berikut bagan case serta carasSetting dari propertiesnya:

No
Case
Name
Properties
Sett
Ket
1.
ZConnection
ZCon
Database
test_database
Sesuai dengan nama database pada MySQL.
HostName
Localhost
Protocol
MySQL
User
Root
Conected
true
2.
Zquery
ZQKelas
Conection
ZCon
Sesuai dengan nama pada TZConnetion.
SQL
Doubble Click àketik(select *from tabel_kelas)
Active
True

3.
DataSource
DSKelas
DataSet
ZQKelas(nama ZQuery)
Seleksi nama Zquery
4.
DBGrid
Tabel_Kelas
DataSource
DSKelas/nama dari datasource
Untuk tampilkan data kelas.

Setelah seleksi datasource pada komponen grid maka akan muncul kolom yang berisikan datafield dari tabel data kelas, untuk edit text pada kolom anda bisa lakukan klik ganda pada komponen grid maka akan muncul form edit kolom pilih tool add all fields dan akan tampil semua datafield dari tabel data kelas. Anda bisa atur-atur dari propertisnya.

Himbauan: saat pengetikan syntaks biasakan menggunakan (CTRL+SPASI) untuk mengurangi terjadinya kesalahan pengetikan syntaks.

-Klik ganda pada button tambah, lalu anda tuliskan syntaks berikut ini:
procedure TForm_Input_Data.Btn_TambahClick(Sender: TObject);
begin
//opsi simpan
if MessageDlg('Yakin Data '+Edt_Kelas.Text+' Ingin isimpan??..',mtConfirmation,[mbYes,mbNo],0)=idno then
begin
  if ZQKelas.RecordCount > 0 then
     ZQKelas.Cancel;
     Edt_ID_Kelas.SetFocus;
     exit;
end;
//opsi semua data
if (Edt_Kelas.Text='')or(Edt_Bagian_Kelas.Text='')or(Edt_Jurusan.Text='')or
(Edt_ID_Kelas.Text='')then
begin
  MessageDlg(' Harus Diisi Semua!..',mtError,[mbOK],0);
  Edt_ID_Kelas.SetFocus;
  exit;
end
else
//input data
if(Edt_Kelas.Text<>'')and(Edt_Bagian_Kelas.Text<>'')and(Edt_Jurusan.Text<>'')
and(Edt_ID_Kelas.Text<>'')then
ZQKelas.Append;
ZQKelas.FieldByName('id_kelas').AsString:=Edt_ID_Kelas.Text;
ZQKelas.FieldByName('kelas').AsString:=Edt_Kelas.Text;
ZQKelas.FieldByName('bagian_kelas').AsString:=Edt_Bagian_Kelas.Text;
ZQKelas.FieldByName('jurusan').AsString:=Edt_Jurusan.Text;
ZQKelas.Post;
MessageDlg('Data '+Edt_Kelas.Text+' Berhasil Tersimpan..',mtInformation,[mbOK],0);
//reset inputan
Edt_ID_Kelas.Clear;
Edt_Kelas.Clear;
Edt_Bagian_Kelas.Clear;
Edt_Jurusan.Clear;
Edt_ID_Kelas.SetFocus;
end;

-Untuk semua edit_text inputan (dari mulai id, kelas, bag_kelas, & jurusan) klik events (sebelah properties),  pilih OnKeyPress, lalu klik ganda dan masukan syntaks berikut:
procedure TForm_Input_Data.Edt_ID_KelasKeyPress(Sender: TObject;
  var Key: Char);
begin
//validasi u/ selalu onenter (masukan juga pada kelas,bag_kelas,&jurusan)
if Key=#13 then
begin
  Btn_Tambah.SetFocus;
end;
   //validasi input angka saja (hanya berlaku u/ id_kelas, karena dibuat supaya      bertype data integer)
if not (key in ['0'..'9',#8]) then
   key := #0;

-Untuk form show edittext ‘id_kelas’ on focus:
procedure TForm_Input_Data.FormShow(Sender: TObject);
begin
   //saat form show focus langsung pada edt_id_kelas
   Edt_ID_Kelas.SetFocus;

end;
Back To Top