Seputar Ilmu

P enggunaan 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 i...

procedure TfrSearch.RadioButton1Click(Sender: TObject); begin   with ComboBox1 do     begin       Items.Add('Album_Name');       Items.Add('Lokasi');     end;     vtabel:='tbAlbum'; end; procedure TfrSearch.RadioButton2Click(Sender: TObject); begin   with ComboBox1 do     begin       Items.Add('Date');       Items.Add('Person');     end;     vtabel:='tbFoto'; end; procedure TfrSearch.edCariChange(Sender: TObject); begin     if edCari.Text<>'' then     begin       with DM.AQSearch do         begin          DM.AQSearch.Close;          DM.AQSearch.SQL.Clear;          DM.AQSearch.SQL.Text:='SELECT tbFoto.Filename, tbFoto.Resolusi, tbFoto.Foto, tbFoto.Person, tbAlbum.Lokasi '+               ...

1.  unit Unit1; 2.  interface 3.  uses 4.    Windows, Messages, SysUtils, Classes, 5.    Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg, 6.    OleCtrls, SHDocVw; 7.  type 8.    TForm1 = class(TForm) 9.      Image1: TImage; 10.      ListBox1: TListBox; 11.      WebBrowser1: TWebBrowser; 12.      procedure FormCreate(Sender: TObject); 13.    private 14.      { Private declarations } 15.    public 16.      { Public declarations } 17.      // mendeklarasikan procedure acceptfiles 18.      procedure AcceptFiles(var msg: TMessage); 19.        message WM_DROPFILES; 20.      end; 21.  var 22. ...