Home » Semua post berkategori Pemogram Delphi
Tampilkan postingan dengan label Pemogram Delphi. Tampilkan semua postingan
Tampilkan postingan dengan label Pemogram Delphi. Tampilkan semua postingan

Komponen- Komponen Quick Report

Assalamualaikum Wr.Wb
Hay Teman teman, bagaimana kabar nya, semoga kabarnya baik baik saja. . .
Amiinnnnn. . . .
Di Postingan kali ini saya mau mengajak teman teman ubtuk belajar Komponen- Komponen Quick Report  Dalam Pemograman Delphi. Langsung saja. . .

QuickRep
QuikcRep adalah form dasar dari keseluruhan report yang akan
dibuat. Untuk menggunakannya, kita dapat langsung meletakkannya
pada form. Ketika diletakkan pada form, QuickRep masih kosong
dan belum memiliki band. Karenanya kita harus meletakkan band
atau komponen report lainnya pada komponen ini. QuickRep ini
merupakan container untuk komponen-komponen quick report yang
lain. Dengan kata lain, kita meletakan komponen-komponen quick
report lainnya di atas komponen QuickRep ini.
  


QRSubDetail
QRSubDetail biasanya digunakan pada laporan dalam bentuk
master-detail yang akan dicetak setelah detail band. Band ini
mempunyai dataset sendiri dan dicetak dari awal record  sampai
dengan akhir record pada dataset tersebut.

QRStringsBand
QRStringsBand meletakan band yang berisi strings pada report.

QRBand
QBBand adalah band elemen dasar dari band-band yang ada dan
dengan mudah dapat diubah tipe band-nya hanya dengan mengatur
properti BandType sesuai tujuan band tersebut. Jika kita meletakkan
TQRBand pada QuickRep, lalu mengisi BandType dengan “rbTitle”,
fungsi band ini menjadi tipe Title Band.

QRChildBand
QRChildBand digunakan    untuk     mencetak     laporan     yang
komponennya panjang dan menyebabkan band yang ada tidak
cukup sehingga   komponen   tersebut   harus    dipindahkan  ke
QRChildBand pada saat proses.

QRGroup
Band ini memungkinkan Anda membagi band yang ada menjadi
bagian-bagian menurut grup. Anda dapat menentukan kapan band
ini dicetak dengan rumus. Jika perhitungan rumus pada record
sekarang dan sebelumnya tidak sama, band ini akan dicetak.

QRLabel
QR Label digunakan untuk mencetak teks pada laporan. Berguna
untuk memberi keterangan seperti label pada form, serta bersifat
statik. Untuk mengatur teks yang akan dicetak label, digunakan
properti caption.

QRDBText
QRDBText adalah versi data-aware TQRLabel. Band ini berfungsi
untuk mencetak nilai yang ada pada field suatu database. Di
dalamnya juga termasuk calculated field, text field, string field, atau
macam field numeric, field tanggal, field memo. Koneksikan pada
data field dengan mengatur properti DataSource dan DataField.

QRExpr
Band ini digunakan untuk mencetak field database, kalkulasi dan
static text. Pada properti Expression dapat dimasukkan ekspresi
untuk keperluan seperti menghitung subtotal, total, dan sebagainya.

QRSysData
QRSysData digunakan untuk mencetak informasi sistem seperti title
report, nomor halaman, jam, tanggal,  dan sebagainya. 

QRMemo
QRMemo digunakan untuk mencetak text berjumlah besar yang
bukan dari suatu field di database. 

QRRichText
Band ini digunakan untuk memasukkan rich text pada report.

QRDBRichText
Band ini digunakan untuk mengakses field DBRichText pada report.

QRShape
QRShape digunakan untuk menggambar bentuk bangun seperti
kotak, lingkaran, dan garis pada report.

QRImage
QRImage digunakan untuk menampilkan gambar pada report.
Format image yang didukung disesuaikan dengan class TPicture.

QRDBImage
QRBDImage digunakan untuk mencetak image yang disimpan di
suatu field database (BLOB field). 

QRPreview
Band ini digunakan untuk melihat preview report pada layer.

QRTextFilter
QRTextFilter digunakan untuk mengekspor isi dari report ke format
text.

QRHTMLFilter
Band ini digunakan untuk mengekspor isi dari report ke HTML.
QRChart
Band ini digunakan untuk mencetak chart di laporan. QRChart
mempunyai fungsi yang sama dengan TDBChart.

Bagaimana teman,Gampang kan memahami nya. . .
Semoga Artikel ini bermafaat bagi teman teman semua. . .
Aminnnn. . . . .
Unknown / Minggu, 30 Juni 2013 / Tulis Komentar / Baca Selengkapnya »

mengkoneksikan Database M. Access ke Delphi


Karena project Prjpustaka sebelumnya sudah dibuat, pada modul 4. Membuat menu, maka pada kesempatan ini adalah melengkapi frmanggota yaitu dengan cara:
1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik Borland Delphi 7, Klik Delphi 7.
2. Klik menu File, klik Open Project, tentukan folder tempat anda menyimpan project PRjpustaka, lalu klik prjpustaka dan klik open
3. Klik Menu file, Klik New, klik form, ganti caption pada properties dengan Input Data Anggota, dan pada name ketikkan frmanggota.
4. Klik menu View, lalu klik forms dan double klik frmenu, klik file pada frmmenu, klik anggota dan ketikkan :
frmanggota.show;
5. Klik menu View, lalu klik forms dan double klik frmanggota, lengkapi form tersebut seperti gambar berikut :
Gambar 1. Membuat form anggota

Catatan :
Form diatas terdiri dari :
Palette standard : Label, Edit, Button dan RadioGroup (items diisi dengan laki-laki dan perempuan, column diisi dengan 2)
Palette Data controls : DBGrid
Palette ADO : Ado Connection
Palette DataAcces : DataSource
Palette Win32 : DatetimePicker
6. Mengkoneksikan database
Klik ADOQuery1 pada Form, klik ConnectionString (…), klik Build, Klik Microsoft Office 12.0 Acces Database Engine OLEDB Provider (untuk office 2007) tetapi kalau menggunakan office XP dapat dipilih Microsoft jet OLEDB 4.0, test connection
Dan klik next, pada data source ketikkan : D:\perpustakaan\perpustakaan.accdb, dan yang terakhir klik test connection.
Gambar 2. mengkoneksikan Database M. Access

7. apabila test connection tampil keterangan tes connection succeeded, maka koneksinya sudah benar, tutup semua windows koneksi dengan cara klik OK. kembali ke frmanggota.
8. Masih pada Adoquery1, klik SQL pada properties, lalu ketikkan :
select * From anggota
Dan Klik Active pada properties ganti false menjadi true.
9. Mengaktifkan DataSource, yaitu dengan cara klik Datasource pada form anggota, lalu klik Dataset pilih Adoquery1
10. Mengkoneksikan DBGrid dengan Data, yaitu dengan cara klik DBGrid, lalu klik Datasource dan pilih datasource1
11. Membuat koding pada pada radiogroup dengan cara dauble klik radiogroup lalu ketik listing berikut :
view source
print?
1
procedure TForm2.RadioGroup1Click(Sender: TObject);
2
begin

3
if radiogroup1.ItemIndex = 0 then
4
jenis := 'L'

5
else
6
jenis := 'P';

7
end;
12. Membuat Koding program pada tombol Insert, double klik tombol insert ketikkan listing berikut :
view source
print?
01
procedure TFrmanggota.Button1Click(Sender: TObject);
02
begin

03
adoquery1.Close;
04
adoquery1.SQL.clear;

05
adoquery1.SQL.Add ('insert into anggota(idanggota,nama,tgl_lhr,jenis) values ("'+ edit1.text +'","'+edit2.text+'","'+jenis+'","'+datetostr(datetimepicker1.date)+'")');
06
adoquery1.ExecSQL;

07
adoquery1.SQL.Clear;
08
adoquery1.SQL.add('Select * from anggota');

09
adoquery1.Open;
10
edit1.text =’’;

11
kosong;
12
end;
13. Membuat Koding program pada tombol update, double klik tombol update ketikkan listing berikut :
view source
print?
01
procedure TFrmanggota.Button2Click(Sender: TObject);
02
begin

03
adoquery1.Close;
04
adoquery1.SQL.Clear;

05
adoquery1.SQL.add('update anggota set nama ="'+ edit2.Text +'", jenis="'+ jenis +'", tgl_lhr =”’+ datetostr(datetimepicker1.date) +’” where id_anggota ="'+ edit1.Text +'"');
06
adoquery1.ExecSQL;

07
adoquery1.SQL.clear;
08
adoquery1.SQL.Add('Select * from anggota');

09
adoquery1.Open;
10
edit1.text =’’;

11
kosong;
12
end;
14. Membuat Koding program pada tombol Delete, double klik tombol delete ketikkan listing berikut :
view source
print?
01
procedure TFrmanggota.Button3Click(Sender: TObject);
02
begin

03
adoquery1.Close;
04
adoquery1.SQL.Clear;

05
adoquery1.SQL.add('delete from anggota where idanggota ="'+ edit1.Text +'"');
06
adoquery1.ExecSQL;

07
adoquery1.SQL.clear;
08
adoquery1.SQL.Add('Select * from anggota');

09
adoquery1.Open;
10
edit1.text =’’;

11
kosong;
12
end;
15. Membuat Koding program pada tombol close, double klik tombol close ketikkan listing berikut :
view source
print?
1
procedure TFrmanggota.Button4Click(Sender: TObject);
2
begin

3
frmanggota.Close;
4
end;
16. Membuat koding untuk filter pada edit1, apabila dimasukkan data dan ternyata data tersebut sudah ada maka akan ditampilkan datanya tetapi kalau belum ada maka kursor akan bergerak ke edit2. adapun caranya adalah klik edit1, lalu klik Events pada object inspector dan double klik pada Onkeypress, lalu ketik listing berikut :
view source
print?
01
procedure TFrmanggota.Edit1KeyPress(Sender: TObject; var Key: Char);
02
begin

03
if key=#13 then
04
begin

05
adoquery1.Close;
06
adoquery1.SQL.Clear;

07
adoquery1.SQL.add('select * from anggota where idanggota ="'+ edit1.Text +'"');
08
adoquery1.open;

09
if not adoquery1.Eof then
10
begin

11
edit2.Text := adoquery1.Fields[1].AsString;
12
edit3.Text := adoquery1.Fields[2].AsString;

13
if adoquery1.Fields[3].AsString = 'L' then
14
radiogroup1.ItemIndex :=0

15
else
16
radiogroup1.ItemIndex :=1;

17
datetimepicker1.DateTime := adoquery1.Fields[4].AsDateTime;
18
end

19
else
20
edit2.SetFocus;

21
end;
22
end;

17. Membuat procedure kosong, ketik listing berikut :
view source
print?
1
procedure TFrmanggota.kosong();
2
begin

3
edit2.text :='';
4
end;
18. Pada form Active (OnActive) ketik listing berikut :
view source
print?
1
procedure TFrmanggota.FormActivate(Sender: TObject);
2
begin

3
edit1.text ='';
4
kosong;


Unknown / Jumat, 24 Mei 2013 / Tulis Komentar / Baca Selengkapnya »
Langganan: Postingan (Atom)