dijexi.com

No

Action

1

File->New->Application

Save All

create direktori "ikan"

Project: ikan.dpr

File: unit1.pas

2

Komponen Panel1

kiri

Komponen Panel2

kanan

3

Komponen Tabel

Tab BDE: Table

Properti:

DatabaseName: DBDEMOS

TableName: biolife.dbf

Active: True

4

Komponen Datasource

Tab DataAccess

Properti

DataSet: Table1

5

Komponen DBGrid

Tab DataControl

Properti

DataSource: DataSource1

6

Komponen DBText

Idem, di atas Panel1

Properti

DataSource: DataSource1

DataField: Common_Name

Align: Top

Font: Verdana, 14

Alignment: Center

7

Komponen DBText

Idem, di atas Panel2

Properti

DataSource: DataSource1

DataField: Species_name

AutoSize: True

Align: Top

Font: Verdana, 14

Alignment: Center

8

Komponen DBImage

Idem, di atas Panel1

Properti

DataSource: DataSource1

DataField: Graphics

Align:Client

9

Komponen DBMemo

Idem, di atas Panel2, dibawah DBText2

Properti

DataSource: DataSource1

DataField: Notes

10

Komponen BitBtn 1

Tab Additional

Properti

Kind: bkOK

Caption: Print Report

11

Komponen BitBtn 2

Tab Additional

Properti

Kind: bkClose

12

Supaya hanya beberapa field saja yang muncul pada db grid

Properti FieldDefs Table1

Double Click Table1

Klik Kanan

Add All Fields

Species No: properti Visible=false

Notes : properti Visible=false

Graphics: properti Visible=false

13

Format numerik kolom Lengh_In

Properti FieldDefs Table1

Double Click Table1

Klik Kolom Lengh_In

DisplayFormat : 0.00

14

Format Panjang kolom Common_Name

Properti FieldDefs Table1

Double Click Table1

Klik kolom Common_Name

DisplayWidth: 20

No

Action

1

Komponen RvTableConnection

Tab Rave

Properti

Table: Table1

2

Komponen RvProject

Tab Rave

DoubleClick -> buka Rave Designer

New Data Object

Direct Data View , RvDataSetConnection1, Finish

3

Tools -> Report Wizard

Simple Table

DataVIew1 -> Next

All , pilih semua field, Next, Next

Daftar Ikan -> Next

Body Font=10

Generate

4

View Report

Save Report -> Ikan.Rav

5

Edit Report

Species No

No

Common_Name

Common Name

Length (cm)

Cm

Length_in

Inch.

Besarkan Ukuran Report

Besarkan Ukuran Deatil Band

6

Field Graphics

Standard->BitMap Component

Letakkan di detail band,

kecilkan ukurannya

Properti:

DataView: DataView1

DataField: Graphics

7

View Report

8

Properti RvReport

Filename

Ikan.rav

9

Bind event Print Report

OnClick

RvProject1.Open;

RvProject1.ExecuteReport(‘Report1′);

No

Action

1

Komponen GroupBox

Tab Standard

2

Komponen ComboBox1

Tab Standard

3

Komponen ComboBox2

Tab Standard

4

Komponen CheckBox1

Tab Standard

Property

Caption = Filter Aktif

5

Event CheckBox1

OnClick

if CheckBox1.Checked then

begin

Table1.Filter := ‘ [Length (cm)] >= ‘ + ComboBox1.Text;

Table1.Filter := Table1.Filter +
‘ and [Length (cm)] <= ‘ + ComboBox2.Text;

Table1.Filtered:=True;

end

else

Table1.Filtered:=False;

4

Event Form onCreate

procedure TForm1.FormCreate(Sender: TObject);

var

i: integer; n: string;

begin

for i:= 1 to 30 do

begin

n := IntToStr(i*10);

ComboBox1.Items.Add(n);

ComboBox2.Items.Add(n);

end;

ComboBox1.ItemIndex:=0;

ComboBox2.ItemIndex:=0;

end;

5

Event ComboBox

OnChange

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if CheckBox1.Checked then

CheckBox1Click(nil);

end;

procedure TForm1.ComboBox2Change(Sender: TObject);

begin

if CheckBox1.Checked then

CheckBox1Click(nil);

end;

6

Coba jalankan,

Pilih filter, aktifkan filter,

Kosongkan comboBox

Ok

Error

7

Menghandle error

Tambahkan pada CheckBox onClick

if ComboBox1.Text = ” then ComboBox1.Text :=’0′;

if ComboBox2.Text = ” then ComboBox2.Text :=’0′;