Kekurangan dan Kelebihan Database Desktop

Sebagai referensi dalam membuat program, pengetahuan tentang database sangatlah diperlukan. Karena hal ini menyangkut masalah kecepatan, flexiblelitas, keamanan data dan kemudahan dalam mebuat coding program.
Sebagai bahan pertimbangan dalam membuat program yang menggunakan database Paradox mari kita hitung hitung antara hal positif dan negatifnya.
Berikut keuntungan menggunkanan database Paradox :

• Programmer tidak perlu Install database lagi saat delphi sudah ada, karena database paradox dan pengolahnya database dekstop merupakan bawaan dari delphi itu sendiri
• Data relatif kecil
• Mudah dicopy
• Cocok untuk belajar
• Database Gratis (tidak beli)
• Cocok untuk dekstop single user

Beberapa sisi negatif dari Database paradox :

• Dia selalu terikat dengan BDE (Borland Database Engine)
• Saat deploy ke end user harus mengikutkan component component BDE
• Sering Terjadi kerusakan Index
• Apabila index terhapus database akan erorr atau terjadi masalah karena tabel dan index disimpan secara terpisah
• Sering terjadi penguncian data oleh file PDOXUSRS.NET apabila programmer tidak jeli dalam mengakses table.
• terjadi kesulitan saat diakses secara bersama atau multi user
• Multi user dilakukan dengan sharing folder (full shares) sehingga client bisa mengobok obok data di server.
• Bila terjadi pemutusan arus listrik mendadak data akan mengalami kerusakan fatal.

kesimpulan dari penggunaan paradox adalah enak buat belajar delphi dan beresiko apabila dibuat untuk komersial ditinjau dari keamanan data dan informasi data itu sendiri. Karena paradox dengan mudah bisa dibaca melalui microsoft acces.

Membuat Animasi Label Gerak di Delphi

Kali ini masih membahas animasi,setelah dulu dibahas mengenai LABEL BERGERAK dalam VB
Sekarang kita bahas untuk versi delphinya.Untuk lebih jelasnya silahkan ikuti langkah-langkahnya…
Caranya :
1. Buat form yang terdiri dari 3 objek komponen

1 buah Label
1 buah Panel
1 buah Timer

2. Dan atur properties dari timer. Ubah intervalnya menjadi 5,yang awalnya 1000
maksud properties interval adalah berfungsi untuk mengatur penundaan eksekusi program yang sedang berjalan atau running. Jika nilai yang ada dalam properties interval semakin diperkecil, kecepatan pergerakan animasi akan semakin cepat. untuk 1 detiknya diwakili dengan angka 1000
3. Setelah diatur seperti diatas, double klik komponen timer untuk memberikan kode tambahan.
4. Tambahkan kode seperti dibawah ini

5. Running aplikasi dengan menekan tombol F9, dan lihat hasilnya
Selamat Mencoba. . .

Cara Mengetahui Umur Windows

Untuk mengetahuinya Anda dapat menggunakan function di bawah ini.

1. function UpTime: string;  


2. const  


3. ticksperday : integer = 1000 * 60 * 60 * 24;  


4. ticksperhour : integer = 1000 * 60 * 60;  


5. ticksperminute : integer = 1000 * 60;  


6. tickspersecond : integer = 1000;  


7. var  


8. t : longword;  


9. d, h, m, s : integer;  


10. begin  


11. t := GetTickCount;  


12. d := t div ticksperday;  


13. dec(t, d * ticksperday);  


14. h := t div ticksperhour;  


15. dec(t, h * ticksperhour);  


16. m := t div ticksperminute;  


17. dec(t, m * ticksperminute);  


18. s := t div tickspersecond;  


19. Result := ‘Uptime: ‘+IntToStr(d)+ ‘ Hari ‘+IntToStr(h)+‘      Jam     ‘+IntToStr(m)+‘ Menit ‘+IntToStr(s)+‘ Detik’;  


20. end;  

Sedangkan cara pemanggilannya adalah sebagai berikut:

1. procedure TForm1.Button1Click(Sender: TObject);  


2. begin  


3. Label1.Caption:=UpTime;  


4. end;  

 

Cara Membuat “Menu” di delphi

ikuti langkah-langkah berikut untuk membuat menu .

1. Buat Project sebuah baru anda, dari menu File -> New -> Application,maka akan otomatis ada form1
2. Buat beberapa form baru di dalam project anda tersebut. Dari menu File -> New -> Form, pada contoh ini saya membuat 3 form yaitu Form1 (sebagai menu utama), Form2 dan Form3 sebagai Form prompt ketika di klik salah satu menu.

1. Jangan lupa menyimpan project dan form-form anda, dari menu File -> Save All.
2. Mulai membuat menu pada Form1 letakkan object MainMenu yang ada ditab Standar. Klik kanan pada MainMenu1 -> Menu Designer. maka akan ada tampilan edit menu.
3. 
4. Klik pada area biru gambar diatas, kemudian pada properties Caption ketikkan
5. “Menu“, kemudian enter. Satu menu utama sudah terbuat.Untuk membuat menu dari Menu, klik pada menu document, akan ada satu area menu yang masih kosong, klik kemudian pada caption ketikkan Baru dan enter, dan seterusnya untuk menu-menu lain. Untuk membuat garis pembatas antar menu, cukup ketikkan - (tanda min), pada caption.
   Untuk membuat sub menu dari menu Baru, klik kanan pada Menu Baru -> Create Sub Menu, klik pada satu area kosong dari sub menu baru, kemudian ketik Form2. Demikianjuga untuk membuat menu-menu.
   Close windows editor menu untuk selesai dan kembali ke design Form1. Jika berhasil maka pada form1 sudah ada menu-menu yang kita buat.
   
6. Membuat Form show/dan showmodal.untuk contoh ini, Form2 akan ditampilkan jika dipilih menu Form2 -> Buka.
   pilih menu Document dan klik Buka, maka akan masuk ke lebar source code, Kodenya adalah

   Form2.Show;

   
   
   atau bisa juga
   
   
   

   Form2.ShowModal.

   
   
   Apa perbedaan antara kedua kodenya?
   
   
   Jika menggunakan fungsi show, maka form1 dan form2 bisa bertukar tempat, artinya form1 bisa diatas Form2 dan Form2 bisa diatas form1. Tapi ShowModal akan membuat Form1 sebagai menu utama selalu berada dibelakang, dan Form2 akan selalu berada diatas (Always on Top).
   
   
7. Simpan kembali project anda.
8. Run / F9 untuk eksekusi.ketika run akan ada pesan berikut
9.   Pilih Yes, bahwa benar Form1 mereferensikan form2 di unitnya.
   
   
10. 
    
    Selamat Mencoba
    
    

Case . . . OF dalam Delphi

Selain if delphi juga mengenal Case. berbeda di dalam menggunakan if dengan
Case, Jika menggunakan if expresi pembandingnya bisa menggunakan type data
string, integer, dan lainnya.
Namun Case kita hanya bisa menggunakan type data Char atau angka.
contoh :
If Edit1.text:=' ' then tetapi case tidak bisa menggunakan cara seperti diatas.
Format Case :

1. case expressi of caseList1:   
2. statement1; ...   
3. case List n:   
4. statement n;   
5. end  

contoh : untuk demo ini buatlah aplikasi baru, tambahkan edit1, button1 dan memo1. berikut ini listing programnya

1. procedure TForm1.Button1Click(Sender: TObject);   
2. var angka:integer;   
3. pesan:string;   
4. begin   
5. angka:=strtoint(edit1.text);   
6. case angka of 1: pesan:='angka 1';   
7. 5: pesan:='Bilangan Ganjil';   
8. 6..10 : pesan:='angka antara 6 sampai 10';  
9.  11..20 : begin showmessage('ada 2 statatement pakai begin end');   
10. pesan :='Bilangan antara 11 sampai 20';   
11. end;   
12. end;   
13. memo1.lines.add(pesan);   
14. end;   
15. end.  

Mengecek Variabel Angka Atau Bukan

Sering kita membutuhkan validasi untuk mengecek apakah variabel yang kita inputkan termasuk angka atau bukan. Maksudnya alpabet atau numerik.
Disini contoh penggunaan fungsi Isnumeric yaitu fungsi untuk mengecek apakah berbentuk angka atau bukan dari suatu inputan string.
Ikuti langkah berikut,
1. Buat aplikasi baru
2. Tambahkan komponen Tbutton dan Tedit.
3. Ketikan listing atau script dibawah ini ke headernya

1. function IsNumeric(const AString: string):   
2. Boolean;   
3. var   
4. LCode: Integer; LVoid: Integer;   
5. begin Val(AString, LVoid, LCode);   
6. Result := LCode = 0;   
7. end;  

4. Kemudian pada tombol satu  ketikan listing seperti di bawah ini

1. procedure TForm1.Button1Click(Sender: TObject);   
2. begin if IsNumeric(edit1.Text) then showmessage('angka') else showmessage('Bukan angka');   
3. end;   
4.    

Fungsi POS

Fungsi POS kalau di perumahaan saya ada beberapa makna, terutama sebagai pos ronda. terkandang sebagai pos ngrumpi dan cangkrukan,ada juga posyandu.
Namun  dalam Delphi POS merupakan fungsi yang menghasilkan nilai angka dalam sebuah pencarian di dalam text.
Syntax :
function Pos(Substr: string; S: string): Integer;
Contoh 1 :

1. var S: string;  
2. begin  
3. S := '   123.5';  
4.   { mengubah spasi menjadi angka nol }  
5. while Pos(' ', S) > 0 do  
6. S[Pos(' ', S)] := '0';  
7. end;  

Cara baca :

• while Pos(' ', S) > 0 do //–>mencari selama masih ada “spasi” atau nilai POS lebih > 0
• S[Pos(' ', S)] := '0'; //--> mengganti spasi dengan nol (0)

contoh 2 :

1. procedure TForm1.Button2Click(Sender: TObject);  
2. var i:integer;  
3. data:string;  
4. hasil:string;  
5. begin  
6. data:='     LAB E SORE                                 Compaq Evo D510 CMT';  
7. if pos(‘LAB E SORE',data)>0 then  
8. begin 
9. hasil:=AnsiReplaceStr(data, 'LAB E SORE', ' ');  
10.   hasil:=trim(hasil);  
11.   showmessage(hasil);  
12. end;   
13. end;  

Cara baca :

• if pos('LAB E SORE',data)>0 then --> jika ketemu 'LAB E SORE’  maka lakukan penggantian text dengan spasi