By : Nur Rokhim
Kita akan belajar delphi 7 langsung yang menggunakan DATABASE DEKSTOP tentang aplikasi KTP sederhana ikutilah langkah-langkahnya untuk memulainya cara-caranya sebagai berikut
A. Kita Buat Dahulu Design Aplikasinya
B. Komponen Propertis Yang Digunakan
Object 8Label (Label 1 di Caption ganti PROGRAM PENYIMPANAN KTP SEDERHANA, Label 2 = TANGGAL, Label 3 = ID KTP, Label 4=Nama, Label 5=TTL, Label 6=Alamat, Label 7=No. KTP, Label 8=KETIK ID KTP), 1Groupbox di Caption ganti FORM UNTUK MENGISI DATA, 7Edit di properstis Text di kosongkan, 7Button (di Caption ganti Button 1=TAMBAH, Button 2=SIMPAN, Button 3=BATAL, Button 4=EDIT, Button 5=HAPUS, Button 6=KELUAR, Button 7=CARI), Dbgrid1, Table1 dan Datasource 1, Simpanlah design aplikasinya sesuka anda yang penting jangan di disk C.....
C. Langkah Langkah Membuatnya
Pertama-tama buatlah DATABASE DEKSTOP nya terlebih dahulu (Start->All Program->Borland Delphi 7->Database Dekstop),File->New->Table-> dan akan muncul konfirmasi pilih Paradox 7 klik Ok, Ketikkan Field Name yang diinginkan (contoh Field Name=ID_KTP Type=A Size=5 Key=* <tanda bintang sebagai primary key, dan buat yang lainnya sesuaikan type datanya), setelah terisi sesuai yang diinginkan kemudian klik Save As simpan dengan nama KTP di simpan 1folder dengan design aplikasinya tadi.
Mengkoneksikan DATABASE DEKSTOP ke aplikasi. Klik BDE->Table di propertis table setting di TableName=KTP.db (pastikan di tablename muncul nama db kita tadi) Active=True, Klik Data Acces->DataSource di propertis DataSource setting di DataSet=Table1, Klik DataControl->DBGrid dipropertis DBGrid setting di DataSource=DataSource1(pastikan di datasource muncul datasource1).
Dan DATABASE DEKSTOP sudah selasai terkoneksi
D. Listing Programnya
->Listing Program TANGGAL (double klik pada formnya dan ketikkan listing programnya seperti dibawah)
procedure TForm1.FormCreate(Sender: TObject);
begin
Dateseparator:='-';
shortdateformat:='dd/mm/yyyy';
Edit1.Text:=datetostr(date);
button2.Visible:=false;
end;
->Listing ProgramTAMBAH (double klik pada buttonnya dan ketikkan listing programnya seperti dibawah)
procedure TForm1.Button1Click(Sender: TObject);
begin
button2.Visible:=true;
button1.Visible:=false;
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
edit5.Enabled:=true;
edit6.Enabled:=true;
form1.ActiveControl:=edit1;
edit1.SetFocus;
KTP.Append;
end;
-> Listing Program SIMPAN
procedure TForm1.Button2Click(Sender: TObject);
begin
KTP['ID_KTP']:=edit2.Text;
KTP['Nama_Nur_Rokhim']:=edit3.Text;
KTP['TTL_Nur_Rokhim']:=edit4.Text;
KTP['Alamat_Nur_Rokhim']:=edit5.Text;
KTP['KTP_Nur_Rokhim']:=edit6.Text;
KTP.Post;
edit2.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
edit5.Enabled:=false;
edit6.Enabled:=false;
Button2.Visible:=false;
Button1.Visible:=true;
end;
-> Listing Program BATAL
procedure TForm1.Button6Click(Sender: TObject);
begin
KTP.First;
edit2.Text:=KTP['ID_KTP'];
edit3.Text:=KTP['Nama_Nur_Rokhim'];
edit4.Text:=KTP['TTL_Nur_Rokhim'];
edit5.Text:=KTP['Alamat_Nur_Rokhim'];
edit6.Text:=KTP['KTP_Nur_Rokhim'];
button2.Visible:=false;
button1.Visible:=true;
edit2.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
edit5.Enabled:=false;
edit6.Enabled:=false;
end;
-> Listing Program EDIT
procedure TForm1.Button3Click(Sender: TObject);
begin
edit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
edit5.Enabled:=true;
edit6.Enabled:=true;
KTP.Edit;
edit2.Text:=KTP['ID_KTP'];
edit3.Text:=KTP['Nama_Nur_Rokhim'];
edit4.Text:=KTP['TTL_Nur_Rokhim'];
edit5.Text:=KTP['Alamat_Nur_Rokhim'];
edit6.Text:=KTP['KTP_Nur_Rokhim'];
button2.Visible:=true;
button1.Visible:=false;
end;
->Listing Program HAPUS
procedure TForm1.Button4Click(Sender: TObject);
begin
if (application.MessageBox('Anda yakin akan menghapusnya??','Info',mb_yesno)=id_yes) then
KTP.Delete;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
KTP.First;
edit2.Text:=KTP['ID_KTP'];
edit3.Text:=KTP['Nama_Nur_Rokhim'];
edit4.Text:=KTP['TTL_Nur_Rokhim'];
edit5.Text:=KTP['Alamat_Nur_Rokhim'];
edit6.Text:=KTP['KTP_Nur_Rokhim'];
button2.Visible:=false;
button1.Visible:=true;
edit2.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
edit5.Enabled:=false;
edit6.Enabled:=false;
end;
->Listing Program KELUAR
procedure TForm1.Button7Click(Sender: TObject);
begin
if (application.MessageBox('Anda yakin akan keluar??','Info',mb_yesno)=id_yes) then
CLOSE;
end;
->Listing Program keypress di edit7(untuk mencari data setelah diisi kemudian dienter)
Klik edit7->events->double klik di OnKeyPress dan ketikkan listing programnya
procedure TForm1.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
button5.Click;
end;
end;
->Listing Program CARI
procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.Enabled:=true;
edit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
edit5.Enabled:=true;
if Not KTP.FindKey([edit6.Text]) then
begin
showmessage('Data Belum Ada/Tulisan Salah');
end
else
begin
edit1.Text:=KTP['ID_KTP'];
edit2.Text:=KTP['Nama_Nur_Rokhim'];
edit3.Text:=KTP['TTL_Nur_Rokhim'];
edit4.Text:=KTP['Alamat_Nur_Rokhim'];
edit5.Text:=KTP['KTP_Nur_Rokhim'];
DBGRID1.Refresh;
end;
end;
E. Melihat Hasilnya
Untuk melihat hasilnya silahkan tekan F9.... Hasilnya sebagai berikut
Dan akhirnya selamat mencoba bagi anda semua semoga bisa menambah ilmu wawasan kita di bahasa pemprograman di Delphi 7...^.^
Tidak ada komentar:
Posting Komentar