Penomoran Otomatis

ga banyak bacot lah langsung aja ke coding 

procedure TForm1.sBitBtn1Click(Sender: TObject);
var
 i : integer;
 a : string;
begin
 i := 0;
 // pertama ambil nilai angka saja.
 a := copy(sEdit1.Text,4,7);
 // arti perintahnya adalah ambil 7 karakter pada sEdit1
 // dimulai dari huruf ke 4 sampai akhir string
 // variabel a berisi string dengan nilai 0000000
 // maka kita akan konversikan ke integer yang akan menghasilkan nilai 0 saja.
 // dan kita akan menambahkan 1 kenaikan nilai pada setiap kita klik
 i := StrToInt(a)+1;
 a := IntToStr(i);
 // i akan bernilai a + 1, yg artinya akan terus bertambah 1 setiap button di gunakan.
 // cek berapa karakter nilai yang baru ?
 // jika nilai 1 - 9 maka String yang tetap adalah 'No.000000x' dan nilai yang berubah dibelakangnya.
 // selanjutnya jika 10 - 99 dianggap 2 karakter maka yang tetap adalah 'No.00000xx' x yang berubah nilainya
 if Length(a) = 1 then
  sEdit1.Text := 'No.000000'+a;
 if Length(a) = 2 then
  sEdit1.Text := 'No.00000'+a;
 if Length(a) = 3 then
  sEdit1.Text := 'No.0000'+a;
 if Length(a) = 4 then
  sEdit1.Text := 'No.000'+a;
 if Length(a) = 5 then
  sEdit1.Text := 'No.00'+a;
 if Length(a) = 6 then
  sEdit1.Text := 'No.0'+a;
 if Length(a) = 7 then
  sEdit1.Text := 'No.'+a;
end;

Delphi syntax:

function Copy(S; Index, Count: Integer): string;
function Copy(S; Index, Count: Integer): array;

S : String
Index : Awal Karakter yang akan diambil
Count : Jumlah Karakter yang akan diambil

Form Login Sederhana

My Note

Penting untuk saya ingat,
Dahulukan membaca manual book pada produk yang baru disentuh.
Jangan sok tau, bertanya lah kepada orang yang sudah tau / berpengalaman.
Perbanyaklah mendengar dan membaca, dari pada berbicara yang kurang penting.
Tertawalah setiap ada kesempatan tertawa :)

Aplha Skins Delphi 7

Download AplhaSkins 7.7 dan AlphaDB

Cara memasang pada Borland Delphi 7

- Extract File yang sudah didownload.
- Buka Borland Delphi 7.
- Tools ~ Environment Option ~ Library ~ Library Path ~ Klik tombol ...
- dan sekali lagi Klik tombol ...
- Pilihlah path / letak folder aplha skin yang diextract tadi berada.
  Contoh Punya saya berada pada Program File/Borland/AlphaSkins 7.70.
- Klik Add jika path sudah ditentukan.
- Klik Ok.dan Ok lagi.

! ingat kalau folder alpha skins dipindah / dihapus maka dapat menyebabkan error pada Delphi 7 saat digunakan.


- File ~ Close All. pada delphi 7.
- Open file acntD7_R.dpk pada folder D7. didalam folder alphaskins tadi.
- Akan muncul windows baru klik compile, tunggu sekitar 3 - 5 detik.
- lanjutkan dengan klik install. jika menampilkan pesan error maka abaikan saja.
- File ~ Close All lagi.
- Open file anctD7.dpk pada folder D7.
- Akan muncul windows baru yang sama pada proses sebelumnya.
- klik compile, lanjutkan klik install.
- sampai disini proses pemasangan alpha skin sudah selesai.

Alpha skins dapat dilihat pada tab pallete paling ujung.

Berikutnya agar alphaskins dapat digunakan dengan mudah pada tab bagian awal maka ikuti langkah langkah berikut.

- Component ~ Configure pallete...
- Geser kebagian atas dengan cara di drag and drop alphaskins pallete ( alphatools, alphastandard, alphaadditional,alphaDBControls ).

Semoga bermanfaat.