Di Terbitkan oleh Unknown 0 Comments

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);
  1. <span id="more-213"></span>
  2. 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.
  3. <pre lang="Delphi">procedure TForm1.FormCreate(Sender: TObject);
  4. var
  5. AliasBaru, Path : string;
  6. begin
  7. Path := ExtractFilePath (Application.ExeName) + 'db';
  8. AliasBaru := 'DBInventory'; // nama alias yang akan dibuat
  9. // untuk mengecek apakah nama alias sudah ada atau belum
  10. if not Session.IsAlias(AliasBaru) then
  11. begin
  12. //jika belum ada maka tambahkan nama alias
  13. Session.AddStandardAlias (AliasBaru, Path, 'PARADOX');
  14. end
  15. else
  16. begin
  17. // jika sudah ada, hapus dulu
  18. Session.DeleteAlias(AliasBaru);
  19. Session.AddStandardAlias (AliasBaru, Path, 'PARADOX');
  20. end;
  21. // menyimpan nama alias pada file konfigurasi
  22. Session.SaveConfigFile;
  23. end;

0 Responses so far.

Posting Komentar