SQL Server 2000 dan MySQL

SQL Server 2000 dan MySQL adalah suatu database yang sangat baik untuk digunakan dalam pembuatan aplikasi. Baik itu aplikasi windows dekstop maupun jaringan. Sql Server 2000 maupun MySql dapat diaplikasikan tidak hanya pada Bahasa Pemrogram Visual Basic saja, akan tetapi juga dapat diaplikasikan dengan bahasa pemrograman yang lain, seperti Borland Delphi, Visual C+, Php dan lain2.

Kedua database tersebut juga memiliki kelebiahn dan keuntungan masing2, untuk dapat mempelajari lebih lengkap silahkan download disini : Sql Server 2000 dan Mysql

Website PTP.Nusantara VII (Persero) – Content

Website PTP.Nusantara VII (Persero) – Content

Shared via AddThis

Mengakses Database pada Mengakses Database pada Delphi dengan ADO

Bahasa pemrograman Delphi dapat digunakan untuk berbagai keperluan baik untuk
perhitungan matematis, aplikasi perkantoran, aplikasi multimedia, pembuatan aplikasi pengolah,
aplikasi kontrol industri sampai kepada aplikasi database. Pada materi ini akan dijelaskan bagaimana
cara mengakses database MS Acces dalam Delphi menggunakan Komponen ADO.

Mungkin anda pernah atau bahkan sering mengembangkan program database dengan Delphi
atau Visual Basic. Anda dapat menggunakan database paradox, dbase maupun MS Acces, dan
mungkin anda mengalami masalah dalam distribusi file yang anda bangun mempunyai ukuran yang
sangat besar karena anda harus menyertakan file database beserta kelengkapannya.

Untuk lebih lengkapnya silahkan download disini.

Warna pada DBGrid sesuai data

Pertanyaan :

Bagaimana memberi warna pada DBGrid sesuai dengan data yang telah kita tentukan, misalnya warna biru pada record dengan data Population lebih besar dari 2,5 juta ?

Jawaban :

Caranya cukup mudah, Anda tinggal menambahkan kode berikut ini pada event OnDrawColumncell dari DBGrid.:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Table1.FieldByName(‘Population‘).AsInteger > 25000000 then
TDBGrid(Sender).Canvas.Brush.Color := $00E9D358;
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Apabila Anda ingin mengganti dengan field (kolom) lain, Anda tinggal mengganti tulisan “Population” di atas dengan nama field yang Anda inginkan beserta tipe datanya.

Contoh :

Table1.FieldByName(‘Continent‘).AsString = ‘South America‘

Memberi warna record aktif pada TDBGrid

Mungkin Anda ingin memberi warna record aktif pada TDBGrid dengan warna yang lain (tidak sama dengan warna record yang tidak atif). Untuk itu tambahkan kode berikut ini pada even DBGrid.OnDrawColumnCell :

type
TCustomDBGridCracker = class(TCustomDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TCustomDBGridCracker(Sender) do
if DataLink.ActiveRecord = Row – 1 then
Canvas.Brush.Color := clRed
else
Canvas.Brush.Color := clWhite;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column,      State);
end;

Membuat Control Seperti Windows XP dengan Manifest pada Visual Basic

Penampilan dalam pembuatan program, merupakan salah satu faktor utama agar kita dilirik oleh si pemakai. Tentu saja tampilan yang dibuat harus sebagus mungkin, control-control pada windows XP merupakan daya tarik tersendiri bagi pengguna, jika kita hanya menampilkan kontrol seperti tampilan windows 2000 atau 98 tentu kelihatan agak kurang menarik.

Untuk membuat control tersebut ada beberapa cara yang bisa kita lakukan, salah satunya adalah dengan menggunakan file manifest.

File ini merupakan sebuah file berformat XML, yang akan dibaca oleh program, dan program secara otomatis akan mengkonversi control-control yang digunakan dalam form menjadi bentuk tampilan windows XP.

Langkahnya:
1. Buat file manifest

Buka notepad, kemudian buat kode berikut (Ada dalam source code

2. Simpan kode tersebut

Yang harus diperhatikan dalam membuat sebuah file manifest, kita harus menyimpan sesuai dengan nama file exenya, misalkan nama file exenya adalah Project1.exe, maka nama file manifestnya adalah: Project1.exe.manifest

3. Kompile program anda

Untuk melihat tampilan hasil, kita harus mengkompilasi program, sebab manifest hanya bisa berjalan jika program kita telah menjadi exe, setelah dikompilasi baru kemudian dijalankan untuk melihat hasilnya