On Wednesday, July 02, 2003 2:05 PM Ariefn wrote:
>
> Note: Kalau Part A lalu Part B dijalankan, ShowMessage benar. Dan program
jalan normal.
>
Yang saya coba ndak ada masalah tuh, coba lihat kode berikut:
Salam,
-Jaimy
--
"...Tuhan, andai ini merupakan satu titik hidayah, walaupun imanku belum
seujung kuku hitam, aku hanya ingin detik ini hingga nafasku yang saat nanti
tersisa, tahajud dan shalatku meninggalkan bekas, saat aku melipat
sajadahku..."
--------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, IBDatabase, IBDatabaseINI, DBLogDlg;
type
TForm1 = class(TForm)
btnConnect: TButton;
IBDatabase1: TIBDatabase;
btnSave: TButton;
btnLoad: TButton;
IBDatabaseINI1: TIBDatabaseINI;
procedure btnConnectClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnLoadClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnConnectClick(Sender: TObject);
begin
IBDatabase1.Connected := not IBDatabase1.Connected;
if IBDatabase1.Connected then
btnConnect.Caption := 'Disconnect'
else
btnConnect.Caption := 'Connect';
end;
procedure TForm1.btnSaveClick(Sender: TObject);
begin
IBDatabase1.Connected := False;
// never save password
IBDatabase1.Params.Values['password'] := '';
IBDatabaseINI1.ReadFromDatabase;
IBDatabaseINI1.SaveToINI;
end;
procedure TForm1.btnLoadClick(Sender: TObject);
begin
IBDatabase1.Connected := False;
IBDatabaseINI1.ReadFromINI;
IBDatabaseINI1.WriteToDatabase(IBDatabase1);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
IBDatabase1.Connected := False;
IBDatabase1.LoginPrompt:= True;
IBDatabaseINI1.Database := IBDatabase1;
IBDatabaseINI1.FileName := ExtractFilePath(ParamStr(0))+'test.ini';
if not FileExists(IBDatabaseINI1.FileName) then
begin
IBDatabase1.DatabaseName := 'localhost:d:\database\test.ib';
IBDatabase1.Params.Values['user_name'] := 'sysdba';
end else
btnLoadClick(Self);
end;
end.
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get A Free Psychic Reading! Your Online Answer To Life's Important Questions.
http://us.click.yahoo.com/Lj3uPC/Me7FAA/ySSFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
