- procedure hapuskaryawan(edNIK_0816, edNama_0816, edAlamat_0816, edTelp_0816, edpokok_0816, edTunjangan_0816, edtotal_0816 : TEdit; cbJK_0816, cbJabatan_0816, cbGolongan_0816 : TComboBox; karyawan_0816:TZQuery);stdcall;
- begin
- try
- if(
- (Trim(edNIK_0816.Text) = '') and
- (Trim(edNama_0816.Text) = '')
- ) Then
- begin
- Beep;
- MessageDlg('Silahkan pilih data terlebih dahulu untuk melakukan proses ubah', mtWarning, [mbOK],0);
- end else
- begin
- if not karyawan_0816.IsEmpty then
- begin
- if MessageDlg('Anda Yakin Ingin Menghapus Data ?',mtConfirmation,[mbOK,mbCancel],0)=mrOk then
- begin
- karyawan_0816.Delete;
- edNIK_0816.Clear;
- edNama_0816.Clear;
- edAlamat_0816.Clear;
- edTelp_0816.Clear;
- cbJK_0816.Text := '-- PILIH DATA --';
- cbJabatan_0816.Text := '-- PILIH DATA --';
- cbGolongan_0816.Text := '-- PILIH DATA --';
- edpokok_0816.Clear;
- edTunjangan_0816.Clear;
- edtotal_0816.Clear;
- MessageDlg('Data Berhasil di Hapus', mtInformation, [mbOK], 0);
- end else Exit;
- end else Exit;
- end;
- except
- on err:Exception do
- MessageDlg(err.Message, mtWarning, [mbOK],0);
- end;
- end;
[text] tes
Viewer
Editor
You can edit this paste and save as new: