Welcome

Welcome, thanks to look my blog

Friday, 18 April 2014

membuat alias otomatis database paradok di delphi 7

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
var
   AliasBaru, Path: string;
begin
   Path := ExtractFilePath ('E:\aPresensi Client\ePresensiClient.exe') + 'data';
   AliasBaru := 'Diny'; // nama alias yang akan dibuat
   // untuk mengecek apakah nama alias sudah ada atau belum
   if not Session.IsAlias(AliasBaru) then
   begin
      //jika belum ada maka tambahkan nama alias
      Session.AddStandardAlias (AliasBaru, Path, 'PARADOX');
   end
   else
   begin
      // jika sudah ada, hapus dulu
      Session.DeleteAlias(AliasBaru);
      Session.AddStandardAlias (AliasBaru, Path, 'PARADOX');
   end;

   // menyimpan nama alias pada file konfigurasi
   Session.SaveConfigFile;
end;

end.

No comments:

Post a Comment