Percetakan Undangan pernikahan, Khitan, Dll

Kabar Gembira Buat Warga Batam.
Kami menerima pesanan undangan dengan berbagai macam model dengan harga terjangkau ( makin besar quantity makin murah harganya)
buat yang tidak bisa datang ke tempat kami, kami akan datang ke tempat anda dengan membawa sample/ contoh 2 undangan. ( ada lebih dari 200 contoh undangan)

***menerima pembuata undangan dengan desain khusus

Percetakan " Nael"
Perum. Fortuna Raya Blok AA/16
Batu aji - Batam.
Telp. 081364942877 (Nanang)

Dunia Komputer

Mungkin sebagaian orang dulunya berkata saya paling pintar masalah komputer, tetapi apakah sampai saat ini dia bisa berkata begitu? jika sampai saat ini di masih mampu mengikuti setiap perkembangan komputer maka dia adalah orang yang paling rajin belajar. tapi lain halnya buat dia yang mengembangkan teknologi komputer, mereka harus berlomba dengan zaman untuk dapat menciptakan teknologi komputer yang lebih canggih dan dapat memenuhi kebutuhan manusia. untuk menjadi ahli dalam bidang komputer maka diperlukan seumur hidup kita untuk belajar, karena mungkin sekarang kita belajar bahasa C++ maka akan muncul bahasa lainnya yang baru.

Penomoran Otomatis Delphi 07

var kd,st,newKd:string;
i,n:integer;
....
ADOTable1.Last;
if not(ADOTable1.eof and ADOTable1.Bof) then
begin
kd:=ADOTable1.FieldByName('kode').AsString;
// auto generate
for i:=1 to 2 do
st:=st+kd[i+1];
n:=strtoint(st)+1;
case length(inttostr(n)) of
1 : newKd:='K0'+inttostr(n);
2 : newKd:='K'+inttostr(n);
end;
end
else newKd:='K01';
Edit1.Text:=newKd;