> Numpang nanya ... Gimana sih enaknya mendefinisikan parameter
> koneksi ke FB (pake IBDatabase). Karena sangat konyol kalo .. kita
> definisikan scr designtime (Login Prompt:=False), misal
> user_name=sysdba dan password=masterkey. Sementara saya inginnya
> bukan tampil Login dulu ke Database, kemudian baru login Aplikasi
> (maksudnya cek di tabel user). --> Login Prompt:=True; (Sangat
> membingungkan bagi user ...)
Salah satu alternatifnya, gunakan encrypted data file. sebagai contoh
dalam hal ini barangkali anda bisa gunakan Registry Data File yang
pernah saya buat dan bisa anda download di:
http://delphi.log.web.id/blogs/delphi/000183.html
Tentu anda bisa mengubah metode enkripsi yang digunakan pada library
tersebut supaya lebih kuat. :-)
Cara penggunaan class TfxRegFile tersebut sangat mirip dengan
TRegistry standar yang terdapat di delphi, dan contoh implementasinya
terhadap permasalahan anda barangkali sebagai berikut:
// ---------------------------
uses IBDatabaseEdit, fxRegFile;
{$R *.dfm}
procedure TfrmMain.FormCreate(Sender: TObject);
{**********************************************
description:
Inisialisasi aplikasi
**********************************************}
begin
IBDatabase1.LoginPrompt := False;
end;
procedure TfrmMain.Button1Click(Sender: TObject);
{**********************************************
description:
Setting Koneksi dan simpan pada
registry data file
**********************************************}
begin
if EditIBDatabase(IBDatabase1) then
with TfxRegFile.Create('setting.rdb') do
try
OpenKey('\\Software\MyApp\Settings');
WriteString('Database', IBDatabase1.DatabaseName);
WriteString('UserName', IBDatabase1.Params.Values['user_name']);
WriteString('Password', IBDatabase1.Params.Values['password']);
finally
Free;
end;
end;
procedure TfrmMain.Button2Click(Sender: TObject);
{**********************************************
description:
Load setting dari data file
**********************************************}
begin
if FileExists('setting.rdb') then
with TfxRegFile.Create('setting.rdb') do
try
OpenKey('\\Software\MyApp\Settings');
if ValueExists('Database') then
IBDatabase1.DatabaseName := ReadString('Database');
if ValueExists('UserName') then
IBDatabase1.Params.Values['user_name'] := ReadString('UserName');
if ValueExists('Password') then
IBDatabase1.Params.Values['password'] := ReadString('Password');
finally
Free;
end;
end;
procedure TfrmMain.Button3Click(Sender: TObject);
{**********************************************
description:
Coba akses ke database.
**********************************************}
begin
IBDatabase1.Connected := not IBDatabase1.Connected;
if IBDatabase1.Connected then
Button3.Caption := 'Disconnect'
else
Button3.Caption := 'Connect';
end;
// ---------------------------
Mudah-mudahan sesuai seperti yang anda maksudkan. :-)
--
Salam,
-Jaimy Azle
===========================================================
|| Personal Weblogs: http://jaim.log.web.id ||
|| Personal Delphi Weblogs: http://delphi.log.web.id ||
* Pengantar Pemrograman Database C/S, Delphi dan Firebird
http://delphi.log.web.id/blogs/delphi/000152.html
===========================================================
I wonder what sort of lobbying Microsoft did behind the scenes
to get Borland to abandon win32 in favor of .Dot. Something
like, "We'd like to make you an offer you can't refuse..."
-- Jeff Undercash
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
| Yahoo! Groups Sponsor | |
|
|
Yahoo! Groups Links
- To visit your group on the web, go to:
http://groups.yahoo.com/group/Delphindo/
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
