Membuat Alias BDE Runtime pada Delphi

Penggunaan alias BDE sangat dibutuhkan dalam program, utamanya aplikasi dekstop dengan database paradox. dengan alias BDE akan memudahkan pengesetan database. Karena cukup menggunakan satu pintu atau gateway yaitu cukup memanggil nama alias. Keuntungannya kita bisa mengubah ubah alamat direktory database.

Untuk membuat alias BDE kita bisa membuka stting control Panel pada windows. namun cara tersebut sangat memakan waktu dan tidak efisien karena delphi menyediakan fungsi untuk membuat 

alias pada BDE.

Syntax :

procedure AddStandardAlias(const Name, Path, DefaultDriver: String); 

sekarang kita buat aplikasi baru :

• File --> New --> Application
• Tambahkan 1 buah button
• tekan F12 untuk masuk ke form listing
• Tambahkan dibagian uses sebuah unit DBTables sehingga seperti di bawah ini :

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, StdCtrls;

pada button1 on Click tulis listingberikut ini :

procedure TForm1.Button1Click(Sender: TObject);
var
t:tsession;
begin
t:=tsession.Create(self);
t.SessionName:='sesionku';
t.AddStandardAlias('coba','c:\data','paradox');
t.SaveConfigFile;
t.Free;
end;

 Catatan :

• Nama alias coba
• alamat folder database C:\data
• driver paradox

jalankan program dan buka BDE apakah sudah terbentuk atau belum.

Link Terkait => Membuat LOGIN PASSWORD pada Delphi

                     => Drag Files ke FROM Delphi

                     => Menampilkan SEARCH dalam Tabel Delphi

                     => Membuat Report di DELPHI dengan Menggunakan Quick REPORT

Tweet