Welcome to Abdul Malik Ikhsan's Blog

Pengunaan Config Global pada Delphi

Posted in Tutorial Delphi by samsonasik on November 2, 2007

Sama dengan pemrograman lain, penggunaan config global untuk memudahkan coding dan syntax yang tidak perlu, karena berisi coding-coding generic untuk program tersebut,
Contoh penggunaan di database seperti ini :
Misalkan kita punya Server bernama Serverku, dengan database SQLServer2000 :
Kita buat database dbtest, dengan tabel matakuliah yang berisi kode_matakuliah dan nama_matakuliah bertipe string untuk memudahkan. Ok, sekarang kita buat Datamodule (File->New->Datamodule) — Bernama DM, kita simpan dengan nama file umodul.pas, berikut code unitnya :

Code:

unit umodul;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB;
type
TDM = class(TDataModule)
ADO: TADOConnection;
//Properti Nama Adoquery
Q: TADOQuery;
//Properti Nama Datasource
D: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;

implementation

{$R *.DFM}

end.

———-
Let’s go to global generic code :
Buat Unit baru, bukan form baru lho, tapi unit Baru(File ->New ->Unit) : Kita simpan dengan nama file uconfig.pas, berikut code-nya

Code:
unit uconfig;
interface
procedure db;
procedure seleksi(perintah:String);
implementation
uses umodul;
procedure db;
begin
with DM.ADO do
begin
ConnectionString :=’Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=testdb;Data Source=Serverku’;
LoginPrompt :=False;
end;
end;

procedure seleksi;
begin
with DM do
begin
ADO.Close;
q.Close;
q.SQL.Clear;
q.SQL.Add(perintah);
ADO.Open;
q.Open;
q.Active:=True;
end;
end;

end.

————————–
Dari configurasi global di atas, kita bisa panggil di form secara hemat :
Kita buat satu form, tambahkan object DBGrid ke dalam object form, arahkan Datasource ke DM.D , berikut coding unitnya :

Code:
unit uutama;
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses umodul,uconfig;
{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
db;
seleksi(‘select * from matakuliah’);
end;

end.

—————
Run program, akan tampil daftar matakuliah, dari sini kita bisa mengembangkan sendiri, selamat mencoba .

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: