Dede Kurniadi Rotating Header Image
viewporntube indobokep classicrentcar borneowebhosting informasiku pontitravel pontiarmada classicborneorentcar

bagaimana caranya membuat nama alias secara langsung pada saat aplikasi dijalankan

Salah satu hal yang sering terjadi saat memindah aplikasi yang Anda buat dari satu komputer ke komputer lain adalah masalah nama alias. Seperti yang telah Anda ketahui, nama alias digunakan untuk menunjukkan letak database yang digunakan. Jika Anda memindah aplikasi ke komputer lain tanpa membuat sebuah alias baru maka akan muncul pesan “…….unknown database……..”.

Untuk mencegah hal tersebut Anda dapat menambahkan sedikit kode untuk membuat alias secara langsung (on the fly). Jadi saat aplikasi dijalankan, akan dicek dulu apakah nama alias yang digunakan sudah ada atau belum. Jika belum secara otomatis program akan membuatnya. Untuk membuat alias Anda dapat menggunakan prosedur AddStandardAlias yang dideklarasikan sebagai berikut:

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

Parameter pertama (Name) adalah nama alias yang akan dibuat. Parameter kedua (Path) digunakan untuk menunjukkan letak database. Sedangkan DefaultDriver digunakan untuk menentukan jenis tabel. DefaultDriver harus berisi salah satu dari “Paradox,” “DBASE,” atau “ASCIIDRV”. Di bawah ini merupakan contoh cara membuat alias dengan Path menunjuk pada folder db di bawah folder dimana file exe terletak.

procedure TForm1.FormCreate(Sender: TObject);
var
AliasBaru, Path : string;
begin
Path := ExtractFilePath (Application.ExeName) + ‘db’;
AliasBaru := ‘DBInventory’; // 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

3 Comments

  1. untung says:

    saya udah mencoba scrip yang di atas tapi waktu di compile di If not sessionnya ada keterangan kyak gini mas…
    [Error] UnitUtama.pas(183): Undeclared identifier: ‘Session’
    mohon bantuannya ya mas…
    trima kasi.

  2. yuda says:

    Saya sudah coba cara tersebut dan tidak muncul lagi “database not found” tetapi program saya tetap tidak jalan di komputer lain bahkan setelah program delhpinya saya install di komputer tersebut.

    Error yang muncul kira-2 seperti ini :
    “File Project 1 raise exception…..path or file not found….!.

    Tolong pencerahannya.
    Terima kasih.

  3. haris says:

    mas untuk pendeklarasian nya itu dimana kurang jelas apa menggunakan funtion atau procedure

Leave a Reply

Your email address will not be published. Required fields are marked *