PROGRAM INPUT DATA KARYAWAN MENGGUNAKAN DELPHI

Oleh peistar

Tuesday, 19 July 2016

Bagikan :

Tweet

Data karyawan sangat diperlukan dalam setiap perusahaan oleh karena itu saya akan memberikan tutorial mengenai cara membuat program input data karyawan dengan menggunakan bahasa pemrograman Delphi 7 dengan lebih mudah. Dengan adanya program ini diharapkan dapat membantu perusahaan dalam menyimpan data khususnya karyawan.

Adapun langkah – langkah pengerjaanya sebagai berikut :

- Langkah Pertama : Buatlah database seperti gambar dibawah ini dengan nama dbPerusahaan dan nama Tabel Karyawan.

Tampilan Tabel Karyawan

- Langkah Kedua : Tampilkan ketiga Componen berikut dan kemudian setting kedatabase yang telah kita buat.
1. ADOConnection1
2. ADOTable1
3. DataSource1

Tampilan Komponen Koneksi

- Langkah Ketiga : Desainlah Form Input data Karyawan seperti Gambar dibawah ini.

Tampilan Desain Form Input

- Langkah Keempat : Masukan Coding Program dibawah ini kedalam Button yang telah kita buat dan pastikan saudara memasukan  Coding Program dengan benar.

Coding Program Simpan (Button Simpan) :
ADOTable1.Append;
ADOTable1.FieldByName('NIK').AsString:=Edit1.Text;
ADOTable1.FieldByName('Nama').AsString:=Edit2.Text;
ADOTable1.FieldByName('Tgl_Lahir').AsDateTime:=DateTimePicker1.Date;
ADOTable1.FieldByName('Tempat_Lahir').AsString:=Edit3.Text;
ADOTable1.FieldByName('Jenis_Kelamin').AsString:=ComboBox1.Text;
ADOTable1.FieldByName('Alamat').AsString:=Edit4.Text;
ADOTable1.FieldByName('No_Tlpn').AsString:=Edit5.Text;
ADOTable1.Post;
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
ComboBox1.Text :='Pilih';
edit4.Text :='';
edit5.Text :='';

Coding Program Edit (Button Edit) :
ADOTable1.Edit;
ADOTable1.FieldByName('Kd_Barang').AsString:=Edit1.Text;
ADOTable1.FieldByName('Nama_Barang').AsString:=Edit2.Text;
ADOTable1.FieldByName('Satuan').AsString:=Edit3.Text;
ADOTable1.FieldByName('Harga_Beli').AsString:=Edit4.Text;
ADOTable1.FieldByName('Harga_Jual').AsString:=Edit5.Text;
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
ComboBox1.Text :='Pilih';
edit4.Text :='';
edit5.Text :='';

Coding Program Delete (Button Delete) :
ADOTable1.Delete;
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
ComboBox1.Text :='Pilih';
edit4.Text :='';
edit5.Text :='';

Coding Program Cancel (Button Cancel) :
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
ComboBox1.Text :='Pilih';
edit4.Text :='';
edit5.Text :='';

Coding Program Close (Button Close) :
Close

Coding Program Panggila Data dari DBGrid :
Edit1.Text:=ADOTable1.Fields[0].AsString;
Edit2.Text:=ADOTable1.Fields[1].AsString;
Edit3.Text:=ADOTable1.Fields[3].AsString;
ComboBox1.Text:=ADOTable1.Fields[4].AsString;
Edit4.Text:=ADOTable1.Fields[5].AsString;
Edit5.Text:=ADOTable1.Fields[6].AsString;

Catatan : Pastikan koneksi yang saudara setting sudah benar atau saudara bisa juga telusuri link berikut ini koneksi database Microsoft Access dengan bahasa pemrograman Delphi 7

Tampilan Akhir

Demikianlah tutorial mengenai pembuatan Program Input Data Karyawan Menggunakan Delphi 7 yang singkat ini semoga bermanfaat untuk kita semua terimakasih banyak atas kunjungan saudara. Wasalammmm....!!!

Tag : Pemrograman Delphi 7