[PembekalanPRAKERIN2015] Isi Data

//=== ISI DATA ========================================================
procedure TForm1.isiData(Sender: TObject);
begin
  ZTable1.FieldByName('NIK').AsString := Edit1.Text;
  ZTable1.FieldByName('nama_karyawan').AsString := Edit2.Text;
  if RadioButton1.Checked then
  begin
    ZTable1.FieldByName('jenis_kelamin').AsString := RadioButton1.Caption;
  end else
  begin
    ZTable1.FieldByName('jenis_kelamin').AsString := RadioButton2.Caption;
  end;
  ZTable1.FieldByName('tempat_lahir').AsString := Edit3.Text;

  ZTable1.FieldByName('tanggal_lahir').AsString := FormatDateTime('dd/mm/yyyy',DateTimePicker1.DateTime);
  ZTable1.FieldByName('jabatan').AsString := ComboBox1.Text;
  ZTable1.Post;
end;
//=====================================================================