[HELP] Kode otomatis Delphi 7

[Guesuper]

Pagi sebelumnya..



buat agan2 para master programer saya minta bantuan, saya lagi ada tugas buat program di delphi 7, tentang surat jaminan kesehatan.

saya lagi bingung untuk membuat kode otomatis (jadi generate otomatis) buat primary key nanti di data base y, itu cara y gmn y?? saya udah cari sana-sini g ada bsa terus..



ini contoh yang saya buat,,

Spoiler for contoh program:

procedure createCode(var sKode: string);

var

i, iNoUrut : integer;

sTgl,sBlnThn,sUrut:string;

begin

sBlnThn:='';

sUrut:='';

ShortDateFormat:='mmyy';

sTgl:=DateToStr(date);

for i:=3 to 6 do

sBlnThn:=sBlnThn+sKode[i];

for i:=7 to 10 do

sUrut:=sUrut+sKode[i];

if sTgl=sBlnThn then

begin

iNoUrut:=StrToInt(sUrut)+1;

sUrut:=IntToStr(iNoUrut);

if iNoUrut

Terkait:

• JUAL PAYUNG OTOMATIS ukuran MINI (otomatis buka, otomatis tutup) grosir dan eceran
• otomatis pompa air / otomatis tandon air / otomatis toren air
• [ASK DELPHI] cara bikin report di delphi
• [Delphi 7]hitung otomatis dari 2 textfield
• [Delphi 7]hitung otomatis dari 2 textfield