1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
object Form1: TForm1
Left = 667
Height = 368
Top = 217
Width = 320
Caption = 'Croo-tab report demo'
ClientHeight = 368
ClientWidth = 320
OnCreate = FormCreate
LCLVersion = '1.7'
object Button1: TButton
Left = 112
Height = 25
Top = 56
Width = 97
AutoSize = True
Caption = 'Design report'
OnClick = Button1Click
TabOrder = 0
end
object Button2: TButton
Left = 112
Height = 25
Top = 120
Width = 90
AutoSize = True
Caption = 'Show report'
OnClick = Button2Click
TabOrder = 1
end
object Label1: TLabel
Left = 16
Height = 15
Top = 8
Width = 117
Caption = 'Croo-tab report demo'
ParentColor = False
end
object Label2: TLabel
Left = 16
Height = 15
Top = 24
Width = 213
Caption = 'Report used standart demo from firebird'
ParentColor = False
end
object SQLQuery1: TSQLQuery
FieldDefs = <
item
Name = 'CUST_NO'
DataType = ftInteger
Precision = -1
end
item
Name = 'CUSTOMER'
DataType = ftString
Precision = -1
Size = 25
end
item
Name = 'ORDER_YEAR'
DataType = ftSmallint
Precision = -1
end
item
Name = 'TOTAL_VALUE'
DataType = ftBCD
Precision = 9
Size = 2
end>
Database = IBConnection1
Transaction = SQLTransaction1
SQL.Strings = (
'select'
' CUSTOMER.CUST_NO,'
' CUSTOMER.CUSTOMER,'
' EXTRACT(year from sales.order_date) as order_year,'
' sales.total_value'
'from'
' SALES'
' inner join CUSTOMER on (CUSTOMER.CUST_NO = SALES.CUST_NO)'
''
)
Options = []
Params = <>
left = 24
top = 288
end
object SQLTransaction1: TSQLTransaction
Active = False
Database = IBConnection1
Options = []
left = 56
top = 248
end
object IBConnection1: TIBConnection
Connected = False
LoginPrompt = False
DatabaseName = 'employee'
KeepConnection = False
Password = 'masterkey'
Transaction = SQLTransaction1
UserName = 'sysdba'
CharSet = 'utf8'
HostName = '127.0.0.1'
Options = []
left = 24
top = 248
end
object frReport1: TfrReport
InitialZoom = pzDefault
Options = []
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
DataType = dtDataSet
left = 66
top = 183
end
object frDesigner1: TfrDesigner
left = 104
top = 183
end
object lrCrossObject1: TlrCrossObject
left = 144
top = 184
end
end
|
