?? unit_query_lr.dfm
字號:
inherited form_query_lr: Tform_query_lr
Left = 204
Top = 184
Caption = #38144#21806#21333#21697#21033#28070#26597#35810
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 786
Height = 73
Align = alTop
BevelInner = bvLowered
TabOrder = 0
object Label2: TLabel
Left = 17
Top = 13
Width = 78
Height = 13
Caption = #21333#25454#26085#26399#20174#65306
end
object Label3: TLabel
Left = 518
Top = 13
Width = 39
Height = 13
Caption = #23458#25143#65306
end
object Label1: TLabel
Left = 347
Top = 13
Width = 65
Height = 13
Caption = #38144#21806#21333#21495#65306
end
object Label8: TLabel
Left = 210
Top = 11
Width = 13
Height = 13
Caption = #33267
end
object BitBtn_find: TBitBtn
Left = 467
Top = 41
Width = 75
Height = 25
Caption = #26597#35810
TabOrder = 5
OnClick = BitBtn_findClick
end
object BitBtn_quit: TBitBtn
Left = 665
Top = 41
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 7
OnClick = BitBtn_quitClick
end
object DateEdit_begin: TDateEdit
Left = 93
Top = 8
Width = 106
Height = 21
Color = 16572566
DefaultToday = True
NumGlyphs = 2
TabOrder = 0
end
object DateEdit_end: TDateEdit
Left = 234
Top = 8
Width = 106
Height = 21
Color = 16572566
DefaultToday = True
NumGlyphs = 2
TabOrder = 1
end
object Edit_jhdh: TEdit
Left = 410
Top = 8
Width = 105
Height = 21
Color = 16572566
TabOrder = 2
end
object Edit_gys: TEdit
Left = 554
Top = 8
Width = 169
Height = 21
Color = 16572566
TabOrder = 3
end
object BitBtn_print: TBitBtn
Left = 562
Top = 41
Width = 75
Height = 25
Caption = #25171#21360
TabOrder = 6
OnClick = BitBtn_printClick
end
object Button1: TButton
Left = 728
Top = 7
Width = 24
Height = 20
Caption = '..'
TabOrder = 4
OnClick = Button1Click
end
end
object DBGridEh1: TDBGridEh
Left = 0
Top = 73
Width = 786
Height = 384
Align = alClient
AutoFitColWidths = True
Color = 16382446
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
FooterColor = clWindow
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clRed
FooterFont.Height = -13
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
ParentFont = False
ReadOnly = True
SumList.Active = True
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 't0301'
Footer.Alignment = taCenter
Footer.Value = #21512#35745#65306
Footer.ValueType = fvtStaticText
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21333#25454#21495
Width = 80
end
item
EditButtons = <>
FieldName = 't0302'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #38144#21806#26085#26399
Width = 66
end
item
EditButtons = <>
FieldName = #23458#25143#21517#31216
Footers = <>
Title.Alignment = taCenter
Width = 150
end
item
EditButtons = <>
FieldName = #21830#21697#21517#31216
Footers = <>
Title.Alignment = taCenter
Width = 150
end
item
EditButtons = <>
FieldName = #35268#26684
Footers = <>
Title.Alignment = taCenter
Width = 80
end
item
EditButtons = <>
FieldName = #21333#20301
Footers = <>
Title.Alignment = taCenter
Width = 40
end
item
EditButtons = <>
FieldName = 't0403'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21333#20215
Width = 60
end
item
EditButtons = <>
FieldName = 't0406'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #25968#37327
Width = 50
end
item
EditButtons = <>
FieldName = 't0404'
Footer.FieldName = 't0404'
Footer.ValueType = fvtSum
Footers = <>
Title.Alignment = taCenter
Title.Caption = #37329#39069
Width = 60
end
item
EditButtons = <>
FieldName = 't0407'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21378#20215
Width = 80
end
item
EditButtons = <>
FieldName = #21333#21697#21033#28070
Footer.FieldName = #21333#21697#21033#28070
Footer.ValueType = fvtSum
Footers = <>
Width = 80
end>
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 160
Top = 224
end
object ADOQuery1: TADOQuery
Connection = Form_main.ADOCn
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select *,(t0404-t0407*t0406) as '#21333#21697#21033#28070','
'(select t0202 from t02 where t0200=t03.t0304) as '#23458#25143#21517#31216','
'(select t0707 from t07 where t0700=t04.t0402) as '#21333#20301','
'(select t0702 from t07 where t0700=t04.t0402) as '#21830#21697#21517#31216','
'(select t0703 from t07 where t0700=t04.t0402) as '#35268#26684
'from t03 , t04'
'where t03.t0300=t04.t0401')
Left = 128
Top = 224
end
object ADOQuery2: TADOQuery
Connection = Form_main.ADOCn
Parameters = <>
Left = 640
Top = 216
end
object RMDBDataSet1: TRMDBDataSet
DataSet = ADOQuery1
Left = 336
Top = 200
end
object RMReport1: TRMReport
Dataset = RMDBDataSet1
InitialZoom = pzPageWidth
ModifyPrepared = True
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit]
Left = 304
Top = 200
ReportForm = {28000000}
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -