Koding/Source kode , Simpan, Ubah, Hapus pada Delphi 7

Hallo Sahabat setia Blogger pada kesempatan Kali ini saya mau share lagi tentang ilmu yang baru saja saya dapat yakni  tentang Pemprograman berbasis Dekstop yaitu Delphi7 ,Mungkin bagi kalian yang sudah sering memprogram sudah tidak asing lagi mendengar kata delphi7 tadi yang perlu di ingat saya disini meletakkan koding/Sourcekodenya masih pada Button ,sebenarnya yang lebih bagus itu jika kodingnya itu disimpan dalam bentuk DLL tapi untuk yang permulaan ini cukup Koding pada Button saja dulu supaya ketika dijelaskan tentang DLL mudah pahamnya ,..Ok langsung saya saya akan bagikan kepada kalian kodingnya..

Koding Simpan

procedure TFORM_DATA_TAGIHAN.SBsimpanClick(Sender: TObject);
begin
  try
         if Trim(ComboBox1.Text)='' then
        begin
          Beep;
          MessageDlg('Nama Client Belum Anda Isi',mtWarning,[mbOK],0);
          ComboBox1.SetFocus;
        end else
      if Trim(ComboBox2.Text)='' then
        begin
          Beep;
          MessageDlg('Nomor Client Belum Anda Isi',mtWarning,[mbOK],0);
          ComboBox2.SetFocus;
        end else

      if Trim(EDIT1.Text)='' then
        begin
          Beep;
          MessageDlg('Nomor Aplikasi Belum Anda Isi',mtWarning,[mbOK],0);
          EDIT1.SetFocus;
        end else

      if Trim(EDIT2.Text)='' then
        begin
          Beep;
          MessageDlg('Nomor Tagihan Belum Anda Isi',mtWarning,[mbOK],0);
          EDIT2.SetFocus;
        end else

      if Trim(DateTimePicker1.Name)='' then
        begin
          Beep;
          MessageDlg('Tanggal Cetak Belum Anda Isi',mtWarning,[mbOK],0);
          DateTimePicker1.SetFocus;
        end else

        if Trim(EDIT3.Name)='' then
        begin
          Beep;
          MessageDlg('Tagihan BHP Belum Anda Isi',mtWarning,[mbOK],0);
          EDIT3.SetFocus;
        end else

        if Trim(EDIT4.Name)='' then
        begin
          Beep;
          MessageDlg('Tagihan Denda Belum Anda Isi',mtWarning,[mbOK],0);
          EDIT4.SetFocus;
        end else

        if Trim(DateTimePicker2.Name)='' then
        begin
          Beep;
          MessageDlg('Periode Pembayaran Belum Anda Isi',mtWarning,[mbOK],0);
          DateTimePicker2.SetFocus;
        end else

        if Trim(DateTimePicker3.Name)='' then
        begin
          Beep;
          MessageDlg('Periode Pembayaran Belum Anda Isi',mtWarning,[mbOK],0);
          DateTimePicker3.SetFocus;
        end else

        if Trim(DateTimePicker4.Name)='' then
        begin
          Beep;
          MessageDlg('Batas Akhir Pembayaran Belum Anda Isi',mtWarning,[mbOK],0);
          DateTimePicker4.SetFocus;
        end else

        if Trim(ComboBox3.Name)='' then
        begin
          Beep;
          MessageDlg('Status Belum Anda Isi',mtWarning,[mbOK],0);
          ComboBox3.SetFocus;
        end else

      if Dm.ZQ_DATATAGIHAN.Locate('nomor_aplikasi',Edit1.Text,[]) then
        begin
          Beep;
          ComboBox1.Text :=Dm.ZQ_DATATAGIHAN.fieldbyname('nama_client').AsString;
          ComboBox2.Text :=Dm.ZQ_DATATAGIHAN.fieldbyname('Nomor_client').AsString;
          EDIT1.Text :=Dm.ZQ_DATATAGIHAN.fieldbyname('nomor_aplikasi').AsString;
          EDIT2.Text :=Dm.ZQ_DATATAGIHAN.fieldbyname('nomor_tagihan').AsString;
          DateTimePicker1.Date :=Dm.ZQ_DATATAGIHAN.fieldbyname('tanggal_cetak').AsDateTime;
          EDIT3.Text :=Dm.ZQ_DATATAGIHAN.fieldbyname('tagihan').AsString;
          EDIT4.Text :=Dm.ZQ_DATATAGIHAN.fieldbyname('tagihan_denda').AsString;
          DateTimePicker2.Date :=Dm.ZQ_DATATAGIHAN.fieldbyname('periode1').AsDateTime;
          DateTimePicker3.Date :=Dm.ZQ_DATATAGIHAN.fieldbyname('periode2').AsDateTime;
          DateTimePicker4.Date :=Dm.ZQ_DATATAGIHAN.fieldbyname('batas_akhir_pembayaran').AsDateTime;
          ComboBox3.Text :=Dm.ZQ_DATATAGIHAN.fieldbyname('status').AsString;

        end else
        begin
          with Dm.ZQ_DATATAGIHAN do
            begin
              Append;
              FieldByName('nama_client').AsString :=ComboBox1.Text;
              FieldByName('nomor_client').AsString :=ComboBox2.Text;
              FieldByName('nomor_aplikasi').AsString :=EDIT1.Text;
              FieldByName('nomor_tagihan').AsString :=EDIT2.Text;
              FieldByName('tanggal_cetak').AsDateTime :=DateTimePicker1.Date;
              FieldByName('tagihan').AsString :=EDIT3.Text;
              FieldByName('tagihan_denda').AsString :=EDIT4.Text;
              FieldByName('periode1').AsDateTime :=DateTimePicker2.Date;
              FieldByName('periode2').AsDateTime :=DateTimePicker3.Date;
              FieldByName('batas_akhir_pembayaran').AsDateTime :=DateTimePicker4.Date;
              FieldByName('status').AsString :=ComboBox3.Text;

              Post;

              SBsimpan.Click;
              ShowMessage('Data Berhasil Di Simpan');
              SBbersihkan.Enabled :=True;
              end;
          end;

             except
   on salah:Exception do
   MessageDlg(salah.Message,mtError,[mbok],0);
  end;

end;


#Note:
Banyak atau tidaknya kodingnya tergantung dari form inputan yang kalian buat jika kalian mengguanakan Banyak inputan maka kodingnya pun otomatis harus banyak.. seperti koding saya di atas saya mengguanakan 11 Inputan yang mana Namanya harus disesuaikan..oh ya untuk Database disini saya mengguanakn MySQL dan Untuk Connection disini saya Menggunakan  Dm(Data Modul)  Jika ada yang bertanya apa itu Fungsinya Data Modul,,,? Fungsinya data modul buat tempat menaruh beberapa atribut seperti  zConnection. zQuery dll...
dm ( DataModule)
ZQ(ZQuery)

Ok Itu dulu yang dapat saya bagikan Mungkin ada Banyak pertanyaan ,,,silahkan Berkomentar d bawah akan saya jawab ...oh saya Tulisan saya ini tidak bisa diCopy jadi sudah saya siapkan link Download buat koding diatas bukan Hanya Simpan  tapi Beserta Ubah dan Hapusnya...
Wassalam..