Nomor Otomatis Menggunakan Delphi dengan Format Tanggal

Nomor Otomatis Menggunakan Delphi dengan Format Tanggal

mungkin ada yang bingung tentang bagaimana cara membuat nomor urut atau nomor transaksi yang unik secara otomatis.
saya juga pada awalnya merasa sangat bingung sekali namun kini saya telah menemukan caranya yaitu dengan memanfaatkan tanggal yang setiap hari trus berganti.

hehehhe

baiklah begini caranya :

==>> ini merupakan procedur saat kita meng klik tombol  atau button karena saya meletakannya di event onclick button. tapi kamu bsa memodifikasinya sendiri dan meletakannya di tempat sesuai dengan kebutuhan dan keinginan kamu.


procedure TFmenu.asdClick(Sender: TObject);
var      urutan: integer;
     satu,dua,tiga,nopelanggan,nocash,nocredit:string;

     y,d,M : word;
begin

DecodeDate(now, y,M,d );
 satu:=IntToStr(y);
 dua:=IntToStr(M);
 tiga:=IntToStr(d);


  urutan:=dm.pelanggan.RecordCount+1;
  nopelanggan:=satu+'P-'+dua+tiga+'-'+inttostr(urutan);
  nocash:=satu+'C-'+dua+tiga+'-'+inttostr(urutan);
  nocredit:=satu+'K-'+dua+tiga+'-'+inttostr(urutan);

  FTransaksi.Ekdcust.Text:=nopelanggan;
  FTransaksi.Ekcash.Text:=nocash;
  FTransaksi.ekcredit.Text:=nocredit;

  FTransaksi.ShowModal;
 
end;



keterangan :
====================================
var      urutan: integer;

     satu,dua,tiga,nopelanggan,nocash,nocredit:string;

     y,d,M : word;

====================================

merupakan variabel yang digunakan untuk mempermudak membuat nomor otomatis.

===========================================

DecodeDate(now, y,M,d );

=======================

memisahkan format tanggal yang semula ex: 12/02/2011 menjadi 2011,02,12 yang tersimpan di variabel y,d,m secara berurutan.

=================

satu:=IntToStr(y);

 dua:=IntToStr(M);

 tiga:=IntToStr(d);

=================

variabel yang menampung y,m,d yang tadi kita dapat dari tanggal yang kita pcah atau pisahkan dan merubah tipenya menjadi string dengan menggunakan perintah IntToStr kepanjangannya Integer To String.

==========================================

urutan:=dm.pelanggan.RecordCount+1;

  nopelanggan:=satu+'P-'+dua+tiga+'-'+inttostr(urutan);

  nocash:=satu+'C-'+dua+tiga+'-'+inttostr(urutan);

  nocredit:=satu+'K-'+dua+tiga+'-'+inttostr(urutan);

  FTransaksi.Ekdcust.Text:=nopelanggan;

  FTransaksi.Ekcash.Text:=nocash;

  FTransaksi.ekcredit.Text:=nocredit;

  FTransaksi.ShowModal;

=========================================================================

untuk membentuk susunan dari nomor yang kita inginkan, kamu dapat memodifikasi sesuai keinginan kamu.

serta menampilkannya di form lain dan kamu juga bisa menampilkannya dimanapun dlam program delphi yang sama