Membuat AutoNumber dengan tanggal di Delphi 7

         Salam gan, Dalam artikel ini saya akan membahas tentang membuat AutoNumber dengan tanggal di Delphi 7,Dalam Program database pasti diperlukan yang namanya kode dalam penomoran atau ID.nya. dalam kode nya ada berbagai teknik untuk menentukan code terebut. nah langsung saja saya akan menerangkan dan memberi syntax nya kepada kalian..
Pertama, Buka Delphi 7 terlebih dahulu..
lalu buat form nya seperti dibawah ini.
- 2 Edit.
- 2 ComboBox.
- 1 DateTimePicker.
- 4 Button : 1. Tambah (Untuk Menambahkan)., 2. Ubah(Untuk Mengubah Data)., 3. Hapus(Untuk Menghapus)., 4. Keluar.


- 1 DBGrid.
- 1 AdoConnecting.
- 1 AdoQuery
- 1 DataSource.

Untuk Pencarian nya Akan saya posting di beda artikel. Okey, Setelah selesai membuat nya kita lanjut menuju ke Ms. Access. ->
Buat Field Access nya seperti berikut :

Setelah itu menuju ke Delphi 7 lagi..
Buat procedure Autonumbernya dulu. >> Tulis Fungsi Procedure nya di bawah Public seperti dibawah ini.

lalu tulis Procedurenya di bawah implementation {$R *.dfm} , Syntaxnya Sebagai berikut:

procedure TForm1.auto;
var  urut,intno: integer;
     thn,bln,tgl,code:string;
     y,d,M : word;
begin
  DecodeDate(DateTimePicker1.Date, y,M,d );
  thn:=IntToStr(y);
  bln:=IntToStr(M);
  tgl:=IntToStr(d);

  urut:=ADOQuery1.RecordCount+0001;
  code:=thn+bln+tgl+inttostr(urut);
  Edit1.Text:=code+'0001';
end;

lalu ketikkan procedure untuk menampilkan nya jg :

procedure TForm1.tampil;
begin
  with ADOQuery1 do
begin
  Active:=False;
  Close;
  SQL.Clear;
  SQL.Text:='Select *from data';
  Open;
end;
DataSource1.DataSet:=ADOQuery1;
DBGrid1.DataSource:=DataSource1;
end;


lalu Menuju ke Button Tambah>> Klik 2 kali >> Masukkan Syntax Seperti berikut.
begin
with ADOQuery1 do
begin
  Active:=False;
  Close;
  SQL.Clear;
  SQL.Text:='Insert into data values '+'('+QuotedStr(Edit1.Text)+','+
            ''+QuotedStr(Edit2.Text)+','+
            ''+QuotedStr(ComboBox1.Text)+','+
            ''+QuotedStr(DateToStr(DateTimePicker1.Date))+','+
            ''+QuotedStr(ComboBox2.Text)+')';
  ExecSQL;
end;
tampil;     // Untuk menampilkan Data ke DBGrid.
end;

untuk Button Ubah ketikan seperti berikut :
begin
with ADOQuery1 do
begin
  Active:=False;
  Close;
  SQL.Clear;
  SQL.Text:='update data set nama='+QuotedStr(Edit2.Text)+','+
            'jenis_kelamin='+QuotedStr(ComboBox1.Text)+','+
            'tanggal='+DateToStr(DateTimePicker1.Date)+','+
            'ka_pro='+QuotedStr(ComboBox2.Text)+' '+
            'where code='+QuotedStr(Edit1.Text);
  ExecSQL;
end;
tampil;
end;

Dan Untuk Hapus :
begin
with ADOQuery1 do
begin
  Active:=False;
  Close;
  SQL.Clear;
  SQL.Text:='delete from data where code='+QuotedStr(Edit1.Text);
  ExecSQL;
end;
tampil;
end;      

         
Selanjutnya, untuk menampilkan data ke DBGrid pindah fungsi Tampil: tadi ke OnFormShow. Propertis > Event > OnShow.
lalu untuk menampilkan AutoNumbernya Klik pada DataTimePicker1 >> menuju ke Event >> OnExit.
ketikkan auto; ke situ.

Jalankan dan  isi, Liat Hasilnya....
Okey, terimakasih Telah membaca Artikel saya, semoga bermanfaat :)

http://clickduit.com/referral/636c6a1f