[text] tes

Viewer

  1. 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;
  2.   begin
  3.     try
  4.       if(
  5.           (Trim(edNIK_0816.Text) = '') and
  6.           (Trim(edNama_0816.Text) = '')
  7.         ) Then
  8.         begin
  9.           Beep;
  10.           MessageDlg('Silahkan pilih data terlebih dahulu untuk melakukan proses ubah', mtWarning, [mbOK],0);
  11.         end else
  12.         begin
  13.           if not karyawan_0816.IsEmpty then
  14.           begin
  15.             if MessageDlg('Anda Yakin Ingin Menghapus Data ?',mtConfirmation,[mbOK,mbCancel],0)=mrOk then
  16.             begin
  17.               karyawan_0816.Delete;
  18.               edNIK_0816.Clear;
  19.               edNama_0816.Clear;
  20.               edAlamat_0816.Clear;
  21.               edTelp_0816.Clear;
  22.               cbJK_0816.Text := '-- PILIH DATA --';
  23.               cbJabatan_0816.Text := '-- PILIH DATA --';
  24.               cbGolongan_0816.Text := '-- PILIH DATA --';
  25.               edpokok_0816.Clear;
  26.               edTunjangan_0816.Clear;
  27.               edtotal_0816.Clear;
  28.  
  29.               MessageDlg('Data Berhasil di Hapus', mtInformation, [mbOK], 0);
  30.             end else Exit;
  31.  
  32.           end else Exit;
  33.  
  34.         end;
  35.  
  36.       except
  37.         on err:Exception do
  38.         MessageDlg(err.Message, mtWarning, [mbOK],0);
  39.     end;
  40.   end;

Editor

You can edit this paste and save as new:


File Description
  • tes
  • Paste Code
  • 27 Jan-2021
  • 1.4 Kb
You can Share it: