Membuat Kode Otomatis di delphi

Membuat Kode Otomatis di delphi.Membuat Kode otomatis atau juga bisa disebut dengan No urut otomatis ini mungkin seperti biasa sudah banyak diperbincangkan dimana, namun tulisan ini saya publikasikan untuk mengisi kekosongan waktu dan juga sudah jarangnya ane membuat postingan, tidak menutup kemungkinan juga masih banyak orang yang mencari-cari listing bagaimana cara membuat kode otomatis ini,padahal sudah banyak di mbah google.

Lihat kan ScreenShooot diatas,seperti itulah contohnhya. jadi kode otomati tersebut di buat otomatis berdasarkan tanggal , maka tiap beda tanggal atau hari kode otomatis itu No urutnya kembali lagi ke 1.

Contoh ane diatas adalah kode otomatis  untuk Nomor faktur (Misal), dan dibawah ini potongan listing source  codenya  :

 procedure TForm1.KodeOtomatis;
  var
  Kode,Nourut : string;
  i : integer;
begin
  //Format Kode : Tahun+PJ(maksudnya untuk penjualan)+TahunBulanTanggal-
  //Jadi Misal : 13PJ20130823-Nourut
  Kode :=FormatDateTime('yy', TDTTanggal.Date)+'PJ'+FormatDateTime('yyyyMMdd', TDTTanggal.Date) + '-';

  With ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select Max(right(Nofaktur, 4)) from tpenjualan ' +
              'Where left(Nofaktur, 13) = ' + QuotedStr(Kode) + ';');
      Open;
    end;
  if ADOQuery1.Fields[0].AsString = '' then
    Nourut := '0001'
  else
  if ADOQuery1.Fields[0].AsString = '9999' then
    MessageDlg('Data Hari Ini Sudah over Besok aza lagi ya !!',mtError,[mbOK],0)
  else
    Nourut := IntToStr(ADOQuery1.Fields[0].AsInteger + 1);
  if length(Nourut) < 4 then
  begin
    for i := length(Nourut) to 3 do
      Nourut := '0' + Nourut;
  end;
  EdKode.Text := Kode + Nourut;
end; 

Sedikit Penjelasan :

- untuk urutan code 11PJ20111110-0001

  > Angka 11 merupakan tahun

  > Hurup PJ merupakan tanda bahwa ini adalah kode untuk Penjualan

  > Disana ada angka 20111110 yaitu urutan dari format tanggal,jika dipisah menjadi tahun 2011 bulan 11     dan  tanggal 10

- Di sinak SQL ada yang bertuliskan (right(Nofaktur, 4)) , itu maksudnya adalah mengambil 4 angka dari sebelah kanan yaitu untuk No urut 0001, dan Where left(Nofaktur, 13) maksudnya adalah mengambil teks dari kiri sebanyak 13 digit (11PJ20111110-) yang akan difilter.

jika ada dan ketemu maka yang 4 angkat/digit tadi akan ditambahkan 1 menjadi 0002 dsb.

Pokoknya jika gx ngerti silahkan mending tanya soalnya belibet ane jelasinnya, disini ane juga kasih untuk contoh proramnya sudah beserta source code,soalnya kurang mantap jika gx skalian ane kasih,silahkan pelajari.Jika ada masalah dengan penggunaan Right atau Left,coba tambahkan

 di Uses StrUtils.
untuk penggunaanya, Tekan Tambah Dulu terus Simpan maka kode Otomatisnya nanti muncul belakangan,Oke.

Download bang Jali !! Jangan Lupa Komeng"ngya jangan asal comot...

Posted by Antas Delphi on - Rating: 4.5

Title : Membuat Kode Otomatis di delphi
Description : Membuat Kode Otomatis di delph i.Membuat Kode otomatis atau juga bisa disebut dengan No urut otomatis ini mungkin seperti biasa sudah ban...