Seputar Ilmu

Zeos adalah salah satu komponen library delphi untuk mengakses database mysql, Zeos tidak hanya untuk MySQL, tapi juga Interbase, Firebird, SQLite dan lainnya. Namun kita batasi saja pada MySQL, ya. Mengingat ruang dan yang paling penting, MySQL adalah database open source terbaik dan paling populer saat ini. 1. Disini saya menggunakan ZEOSDBO-7.1.2-stable bisa didownload di http://sourceforge.net/projects/zeoslib/files/?source=navbar 2. Exstraks file yang didownload tadi, contoh : saya ekstraks di D:\hariracenter\delphi\zeos 3. Lalu buka program Delphi 7 , lalu buka file ZeosDbo.BPG di folder hasil ekstract tadi D:\hariracenter\delphi\zeos\packages\delphi7 4. Setelah terbuka, lalu buka project manager ( Ctrl + Alt + F11 ) 5. Klik kanan lalu pilih Build All From Here 6. Lalu setelah proses berhasil , akan muncul folder Build di directory tempat anda exstract tadi , contoh :  D:\hariracenter\delphi\zeos\packages\delphi7\build   7. buk...

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...

Quick Report adalah suatu komponen penulisan laporan sederhana dari database dimana komponennya sudah terinstall ketika kita menginstall program Delphi. Kali ini penulis akan membuat penulisan laporan dari database mahasiswa dari artikel yang telah disebutkan di atas. 1. Membuat Quick Report Pertama kali kita buat tampilan baru QReport melalui File - New - Report. Jika Anda tidak menemui menu report maka pilih menu File - New - Other - New - Report. Kemudian kita buat tampilan laporan yang kita inginkan. Kali ini penulis ingin menuliskan judul dari laporan, lambang, daftar mahasiswa, jumlah mahasiswa, tanggal, jam, serta nomor halaman, maka diperlukan komponen sebagai berikut: - QRBand, untuk memberikan batasan - batasan sesuai dengan jenis penulisan. - QRLabel, untuk menampilkan tulisan yang kita inginkan - QRDBtext, untuk menampilkan data field yang kita inginkan - QRExpr, untuk melakukan mengolah data field database dengan operasi matematika, statistic , tanggal dan waktu,logical, i...

pagi all , hari minggu ngoprek delphi wahhh galau, apa lagi kalau gagal instal muncul pesan "Unable to rename 'C:\Program Files\Borland\Delphi7\Bin\delphi32.$$$' to 'C:\Program Files\Borland\Delphi7\Bin\delphi32.dro' "  tambah galau deh..... searching bentar ehhh akhirnya dapet juga cara penyelesaiannya...... dah terbukti 99% berhasil..... 1. Buka folder C:\Program Files\Borland\Delphi7, cari folder BIN, klik kanan pada folder BIN pilih properties     Hilangkan tanda biru/ ceklis pada Read-only . OK 2. Klik kanan lagi pada folder BIN, pilih properties, pada tab security pilih edit     pastikan semua permission for users terceklis Allow Tab Security Edit Scurity 3. Buka Folder Bin cari file application yang bernama delphi32 (ukuran 533 kB) , Klik kanan, pilih Properties.     Pada tab Compatibility, ceklist pada Run this program as an administrator 4. cari folder Projects klik kanan pada folder Projects pilih properties     Hilangkan tanda biru...

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. ...

Program Login Password : Untuk Form 1 var Form1: TForm1; i:integer; implementation uses Unit2; {$R *.dfm} procedure TForm1.btncancelClick(Sender: TObject); begin close; end; procedure TForm1.btnloginClick(Sender: TObject); begin if edit1.Text ='ratih' then if edit2.Text ='ratih' then timer1.Enabled:=true else showmessage('password yang anda masukkan salah') else showmessage('username yang anda masukkan salah') end; procedure TForm1.Timer1Timer(Sender: TObject); begin inc(i); progressbar1.Position :=i; if progressbar1.Position =50 then begin timer1.Enabled:=false; i:=0; form2.Show; form1.Hide; end; end; end. Untuk Form 2 procedure TForm2.btnexitClick(Sender: TObject); begin application.Terminate ; // keluar dari aplikasi end; Ketika dijalankan dan ketika user tidak mengetikkan username 'ratih' dan password 'ratih' maka akan muncul peringatan. Jika benar maka timer1 menjalankan progressbar sampai posisinya bernilai 50. setelah itu muncul f...