mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-21 02:25:58 +02:00
127 lines
2.6 KiB
Plaintext
127 lines
2.6 KiB
Plaintext
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
|