Tampilkan postingan dengan label Delphi. Tampilkan semua postingan
Tampilkan postingan dengan label Delphi. Tampilkan semua postingan

Minggu, 15 Desember 2013

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. buka project manager ( Ctrl + Alt + F11 ), klik kanan lalu install  pada ZComponentDesign70.bpl



8. setelah itu muncul pesan bahwa komponen tersebut sudah terinstal


9. maka akan muncul component zeos pada pages Zeos Access

10. proses instal komponen zeos telah berhasil, setelah itu kita akan menambahkan library path pada delphi , bertujuan untuk memanggil source zeos bila nanti digunakan dalam pembuatan program ( ngoding ) source zeos tersebut bisa kita ambil dari folder build, contoh : D:\hariracenter\delphi\zeos\packages\delphi7\build
untuk cara menambahkan, pilih pada menu tool environment option



lalu.........
trus....
Lanjut...
ZEOSDBO-7.1.2-stable sudah siap digunakan di delphi 7.

Senin, 09 Desember 2013

charticha.blogspot.com/
Penggunaan 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;


procedure TForm1.Button1Click(Sender: TObject);
var
t:tsession;
begin
t:=tsession.Create(self);
t.SessionName:='sesionku';
t.AddStandardAlias('coba','c:\data','paradox');
t.SaveConfigFile;
t.Free;
end;

 Catatan :
  • Nama alias coba
  • alamat folder database C:\data
  • driver paradox
jalankan program dan buka BDE apakah sudah terbentuk atau belum.

                     => Drag Files ke FROM Delphi
                     => Menampilkan SEARCH dalam Tabel Delphi

Minggu, 08 Desember 2013

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, information dan yang lainnya.
- QRSysData, untuk menampilkan tanggal dan jam (qrstime,qrsdate,qrsdatetime), jumlah record (qrsdetailcount), Nomor urut record (qrsdetailno), nomor halaman (qrspagenumber).
- QRShape, untuk mengambar bentuk - bentuk tertentu misalnya garis, lingkaran, bujur sangkar dan lainnya.
- QRImage, untuk menampilkan picture dari file tertentu.

                Penulis akan membuat tampilan laporan seperti berikut ini:

charticha.blogspot.com/

Sebelum membuat tampilan lebih dulu kita kopi Table1 di Form1 dan di-paste pada Quick Report. Pastikan property Active pada Table1 adalah true, cek isi property TableName dan property DatabaseName apakah sudah betul. Kemudian ubah property DataSet di Quick Report ke nama tabel yang kita gunakan (Table1).

Untuk laporan diatas terdiri dari 4 (empat) bagian , kita akan membuat masing masing bagian dengan menggunakan QRSBand.

charticha.blogspot.com/

2. Menghubungkan form dengan Quick Report

Kita tambahkan komponen button "preview" dan "print" yang akan menghubungkan form dengan Quick Report. Untuk menghubungkan Unit1 (Form1) dengan Unit2 (QuickReport) maka ditulis perintah sesudah perintah implementation.
uses Unit2; // uses namaunitlaporan;

Program button preview:
procedure TForm1.btnviewClick(Sender: TObject);
begin
quickreport.Preview;
//namalaporan.preview (untuk menampilkan laporan)
end;

Program button print:
procedure TForm1.btnprintClick(Sender: TObject);
begin
quickreport.Print;
// namalaporan.print (untuk menge-print laporan langsung
// dari form tanpa masuk ke tampilan laporan)
end;

Demikian artikel tentang membuat laporan (report) sederhana dari database dengan menggunakan Quick Report.
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/ ceklis pada Read-only . OK



Rabu, 04 Desember 2013


charticha.blogspot.com/





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 '+
                    'FROM tbFoto, tbAlbum  where tbAlbum.Kode_Album=tbFoto.Kode_Album and '+ vtabel +'.'+
                     ComboBox1.Text + ' Like '+ QuotedStr('*'+edCari.Text+'*');
         DM.AQSearch.Open;
        end;
    end;
end;


Kamis, 23 Mei 2013

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.    Form1: TForm1;

23.  implementation

24.  uses

25.    // menginclude shellapi ke program

26.    ShellAPI;

27.  {$R *.DFM}

28.  procedure TForm1.AcceptFiles(var msg: TMessage);

29.  const

30.    cnMaxFileNameLen = 255;

31.  var

32.    i,

33.      nCount: integer;

34.    acFileName: array[0..cnMaxFileNameLen] of char;

35.  begin

36.    // menghitung jumlah file yang di drag

37.    nCount := DragQueryFile(msg.WParam,

38.      $FFFFFFFF,

39.      acFileName,

40.      cnMaxFileNameLen);

41.    // pengulangan jumlah file yang di blok

42.    for i := 0 to nCount - 1 do

43.    begin

44.      DragQueryFile(msg.WParam, i,

45.        acFileName, cnMaxFileNameLen);

46.      // memasukan alamat file yang didrag ke listbox

47.      ListBox1.Items.Add(acFileName);

48.    end;

49.  //jika ingin menampilkan gambar gunakan

50.    //image1.Picture.LoadFromFile(acFileName);

51.  //jika ingin menampilkan web gunakan

52.    //WebBrowser1.Navigate(acFileName);

53.    DragFinish(msg.WParam);

54.  end;

55.  

56.  procedure TForm1.FormCreate(Sender: TObject);

57.  begin

58.    // mengijinkan file untuk di drag di form

59.    DragAcceptFiles(Handle, True);

60.  end;

61.  end.

Senin, 20 Mei 2013


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 form2, form1 tidak ditampilkan.

[code language="html"]procedure Tpasswordform.FormActivate(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
end;[/code]
[8]    Simpan file form passwordform anda dengan nama uPasswd.PAS
[9]    Sorot kembali form userform anda. Tambahkan uses uPasswd pada klausa uses seperti tampak pada kode berikut :
[code language="html"]uses
Windows, Messages, ��� ,StdCtrls, uPasswd;[/code]
[10]    Sorot komponen tombol Test Password. Ketik kode berikut untuk event handler onclick sebagai berikut :
[code language="html"]procedure Tuserform.Button1Click(Sender: TObject);
begin
if passwordform.ShowModal=mrOK then
begin
if ((uppercase(edit1.text)=uppercase(passwordform.Edit1.text)) and
(uppercase(edit2.text)=uppercase(passwordform.Edit2.text))) then
showmessage('Username dan Password cocok')
else
showmessage('Username dan Password tidak cocok');
end
else
showmessage ('Pemasukan password batal');
end;[/code]








procedure TForm1.Button1Click(Sender: TObject);
var
s: String[255];
c:
 array[0..255] of Byte absolute s;
i:
 Integer;
begin
{Encode Password}
s := Edit1.Text;
for i := 1 to Ord(s[0]) do c[i] := 23 xor c[i];
Label5.Caption := s;
{Decode Password}
s := Label5.Caption;
for i := 1 to Length(s) do s[i] := Char(23 xor Ord(c[i]));
Label6.Caption := s;
end;
End;