Program Delphi

Assalamualaikum sahabat :)

Saya akan berbagi tentang sedikit dari pengetahuan saya yaitu tentang pembuatan program delphi yang dalam hal ini adalah program penginputan data KTP,berikut langkah- langkahnya :

1. Pertama sahabat harus sudah instalasi borland delphi 7
2. Buka delphi dan klik Tool>Panel untuk membuat Judul Program
3. Klik Tool>standart>edit text untuk input datanya
4. klik Tool>standart>label untuk nama inputan
5. Klik Tool>standart>button untuk memproses coding disini saya membuat contoh button SIMPAN,UBAH,HAPUS dan KELUAR

Source Code BUTTON SIMPAN

if (fnik.text = '') or (edit2.text = '') or (edit3.text = '')

     or  (edit1.text= '') or  (Fjk.text = '') or (fcom.Text = '') or (Edit7.Text = '')

     or (Edit8.Text = '') or (Edit9.Text = '') or (Edit10.Text = '') or (Frjk.text = '') or (Frmjk.text = '') or (edit13.text = '')

     or (edit14.text = '') or (fk.text = '')then

     showmessage('Isi semua item');

     if (fnik.text <>'') and (edit2.text <>'') and (edit3.text <>'')

     and (edit1.text <>'') and (Fjk.text <>'') and (fcom.Text <> '')

     and(Edit7.Text <>'')and (Edit8.Text <> '') and (Edit9.Text <> '')

     and (Edit10.Text <> '') and (Frjk.text <> '')

     and (Frmjk.text <> '') and (edit13.text <> '')

     and (edit14.text <> '') and (fk.text <>'') then

     begin

     Fktp.ADOTable1.Open;

     Fktp.ADOTable1.Append;

     Fktp.ADOTable1.FieldByName('NIK').AsString := fnik.text;

     Fktp.ADOTable1.FieldByName('Nama').AsString := edit2.text;

     Fktp.ADOTable1.FieldByName('tempat').AsString := edit3.text;

     Fktp.ADOTable1.FieldByName('Tgl lahir').AsString:= edit1.text;

     Fktp.ADOTable1.FieldByName('Jenis kelamin').AsString := Fjk.text;

     Fktp.ADOTable1.FieldByName('gol darah').AsString := fcom.text;

     Fktp.ADOTable1.FieldByName('alamat').AsString := edit7.text;

     Fktp.ADOTable1.FieldByName('RT/RW').AsString := edit8.text;

     Fktp.ADOTable1.FieldByName('Desa/kel').AsString := edit9.text;

     Fktp.ADOTable1.FieldByName('kecamatan').AsString := edit10.text;

     Fktp.ADOTable1.FieldByName('agama').AsString := Frjk.text;

     Fktp.ADOTable1.FieldByName('status').AsString := Frmjk.text;

     Fktp.ADOTable1.FieldByName('pekerjaan').AsString := edit13.text;

     Fktp.ADOTable1.FieldByName('berlaku hingga').AsString := edit14.text;

     Fktp.ADOTable1.FieldByName('kewarganegaraan').AsString := fk.text;

     Fktp.ADOTable1.Post;

     fnik.Text := '';

     edit2.Text := '';

     edit3.Text := '';

     edit1.Text := '';

     Fjk.Text := '';

     fcom.Text := '';

     edit7.Text := '';

     edit8.Text := '';

     edit9.Text := '';

     edit10.Text := '';

     Frjk.Text := '';

     Frmjk.Text := '';

     edit13.Text := '';

     edit14.Text := '';

     fk.Text := '';

     fnik.SetFocus;

Source Code BUTTON UBAH

fnik.Clear;

edit2.Clear;

edit3.Clear;

edit1.Clear;

Fjk.Clear;

fcom.Clear;

edit7.Clear;

edit8.Clear;

edit9.Clear;edit10.Clear;

Frmjk.Clear;

edit13.Clear;

edit14.Clear;

fk.Clear;

fnik.SetFocus;

Source Code Button Preview

Fktp.Show;

Source Code Button Keluar

if MessageDlg('are you sure to close this application?',mtConfirmation,[mbYes]+[mbNo],0)

= mrYes then Application.Terminate;

end;

Karena button Simpan di koneksikan dengan database

maka harus buat form baru dan berisi data base dari acces

Di form Database di koneksikan dengan ado connection,ado query, dan data acces

ADO CONNECTION