You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

170 lines
3.4 KiB
Plaintext

object Form1: TForm1
Left = 138
Top = 96
Width = 832
Height = 606
Caption = 'Form1'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
PixelsPerInch = 96
TextHeight = 12
object Label1: TLabel
Left = 288
Top = 14
Width = 48
Height = 12
Caption = '报表名称'
end
object Label2: TLabel
Left = 472
Top = 14
Width = 48
Height = 12
Caption = '报表内容'
end
object CheckListBox1: TCheckListBox
Left = 0
Top = 48
Width = 201
Height = 529
ItemHeight = 12
TabOrder = 0
end
object Button1: TButton
Left = 16
Top = 8
Width = 75
Height = 25
Caption = '设置连接'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 112
Top = 8
Width = 75
Height = 25
Caption = '连接数据'
TabOrder = 2
OnClick = Button2Click
end
object DBGrid1: TDBGrid
Left = 200
Top = 48
Width = 616
Height = 529
DataSource = DataSource1
ReadOnly = True
TabOrder = 3
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
end
object Button3: TButton
Left = 208
Top = 8
Width = 75
Height = 25
Caption = '打开报表'
TabOrder = 4
OnClick = Button3Click
end
object Edit1: TEdit
Left = 344
Top = 10
Width = 121
Height = 20
TabOrder = 5
end
object Edit2: TEdit
Left = 528
Top = 10
Width = 121
Height = 20
TabOrder = 6
end
object Button4: TButton
Left = 656
Top = 8
Width = 75
Height = 25
Caption = '设计报表'
TabOrder = 7
OnClick = Button4Click
end
object Button5: TButton
Left = 736
Top = 8
Width = 75
Height = 25
Caption = '退 出'
TabOrder = 8
OnClick = Button5Click
end
object db_old: TADOConnection
LoginPrompt = False
Left = 96
Top = 128
end
object ADOQuery1: TADOQuery
Connection = db_old
Parameters = <>
Left = 96
Top = 184
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 96
Top = 216
end
object ppDBPipeline1: TppDBPipeline
DataSource = DataSource1
UserName = 'DBPipeline1'
Left = 96
Top = 248
end
object ppReport1: TppReport
PrinterSetup.BinName = 'Default'
PrinterSetup.DocumentName = 'Report'
PrinterSetup.PaperName = '信纸'
PrinterSetup.PrinterName = 'Default'
PrinterSetup.mmMarginBottom = 6350
PrinterSetup.mmMarginLeft = 6350
PrinterSetup.mmMarginRight = 6350
PrinterSetup.mmMarginTop = 6350
PrinterSetup.mmPaperHeight = 279401
PrinterSetup.mmPaperWidth = 215900
Template.DatabaseSettings.DataPipeline = ppDBPipeline1
Template.SaveTo = stDatabase
Template.Format = ftASCII
UserName = 'Report'
DeviceType = 'Screen'
Left = 96
Top = 280
Version = '5.0'
mmColumnWidth = 0
end
object ppDesigner1: TppDesigner
Caption = 'ReportBuilder'
Position = poScreenCenter
DataSettings.SessionType = 'BDESession'
DataSettings.AllowEditSQL = False
DataSettings.SQLType = sqBDELocal
Report = ppReport1
WindowHeight = 400
WindowLeft = 100
WindowTop = 50
WindowWidth = 600
Left = 96
Top = 312
end
end