📄 ugysdd.dfm
字号:
Top = 168
Width = 63
Height = 13
Caption = #22791' '#27880' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 16
Top = 400
Width = 60
Height = 13
Caption = #25805' '#20316' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 16
Top = 144
Width = 60
Height = 13
Caption = #22320' '#22336' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 16
Top = 120
Width = 63
Height = 13
Caption = #20184#27454#26041#24335' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label21: TLabel
Left = 296
Top = 128
Width = 63
Height = 13
Caption = #24065' '#21035' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 304
Top = 400
Width = 57
Height = 13
Caption = #26085' '#26399' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBEdit1: TDBEdit
Left = 80
Top = 24
Width = 185
Height = 24
DataField = #20379#24212#21830#20195#30721
DataSource = DataSource6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object DBEdit3: TDBEdit
Left = 80
Top = 48
Width = 185
Height = 24
DataField = #20379#24212#21830#21517#31216
DataSource = DataSource6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object DBEdit5: TDBEdit
Left = 80
Top = 72
Width = 185
Height = 24
DataField = #20256#30495
DataSource = DataSource6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object DBEdit7: TDBEdit
Left = 360
Top = 24
Width = 193
Height = 24
DataField = #32852#31995#20154
DataSource = DataSource6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object DBEdit10: TDBEdit
Left = 360
Top = 72
Width = 193
Height = 24
DataField = #30005#35805
DataSource = DataSource6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object DBEdit11: TDBEdit
Left = 360
Top = 96
Width = 193
Height = 24
DataField = 'EMAIL'
DataSource = DataSource6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object DBEdit13: TDBEdit
Left = 80
Top = 96
Width = 185
Height = 24
DataField = #32593#31449
DataSource = DataSource6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object DBMemo1: TDBMemo
Left = 80
Top = 168
Width = 473
Height = 217
DataField = #22791#27880
DataSource = DataSource6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 7
end
object DBEdit2: TDBEdit
Left = 80
Top = 392
Width = 201
Height = 24
DataField = #25805#20316
DataSource = DataSource6
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object DBEdit4: TDBEdit
Left = 360
Top = 392
Width = 193
Height = 24
DataField = #26085#26399
DataSource = DataSource6
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
end
object DBEdit9: TDBEdit
Left = 80
Top = 144
Width = 473
Height = 24
DataField = #22320#22336
DataSource = DataSource6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
end
object RzDBLookupComboBox2: TRzDBLookupComboBox
Left = 80
Top = 120
Width = 185
Height = 24
DataField = #20184#27454#26041#24335
DataSource = DataSource6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyField = 'classname'
ListField = 'classname'
ListSource = dm1.Dpayment
ParentFont = False
TabOrder = 11
end
object RzDBLookupComboBox6: TRzDBLookupComboBox
Left = 360
Top = 120
Width = 193
Height = 24
DataField = #24065#21035
DataSource = DataSource6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyField = 'classname'
ListField = 'classname'
ListSource = dm1.Dbb
ParentFont = False
TabOrder = 12
end
object DBEdit6: TDBEdit
Left = 360
Top = 48
Width = 193
Height = 24
DataField = #22320#21306
DataSource = DataSource6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 13
end
end
end
end
end
object Panel3: TPanel
Left = 0
Top = 41
Width = 169
Height = 503
Align = alLeft
BevelOuter = bvNone
TabOrder = 2
object TreeView1: TTreeView
Left = 0
Top = 0
Width = 169
Height = 503
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Indent = 19
ParentFont = False
TabOrder = 0
OnChange = TreeView1Change
end
end
object ADOQuery1: TADOQuery
Parameters = <>
SQL.Strings = (
'select ddhm as '#35746#21333#21495#30721',xqdh as '#38656#27714#21333#21495',jhdh as '#35745#21010#21333#21495',bjdh as '#25253#20215#21333#21495',djr a' +
's '#30331#35760#20154',lxr as '#32852#32476#20154',gysdm as '#20379#24212#21830#20195#30721',gysmc as '#20379#24212#21830#21517#31216','
'fkfs as '#20184#27454#26041#24335',bb as '#24065#21035',cgrq as '#37319#36141#26085#26399',ldrq as '#33853#21333#26085#26399' from cgdd_main o' +
'rder by ddhm asc')
Left = 336
Top = 224
end
object ADOQuery2: TADOQuery
Parameters = <>
Left = 384
Top = 192
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 304
Top = 168
end
object ADOQuery3: TADOQuery
Parameters = <>
SQL.Strings = (
'select cgdd_detail.wldm,wlmc,wlys,wlsh,cgdw,cgdd_detail.dj,cgdd_' +
'detail.xql,cgdd_detail.dj*cgdd_detail.xql as je from'
'cgdd_detail,wldmk where cgdd_detail.wldm=wldmk.wldm order by cgd' +
'd_detail.wldm asc')
Left = 456
Top = 208
end
object DataSource2: TDataSource
DataSet = ADOQuery3
Left = 384
Top = 248
end
object frReport1: TfrReport
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
Left = 312
Top = 288
ReportForm = {18000000}
end
object DataSource3: TDataSource
DataSet = ADOQuery4
Left = 544
Top = 256
end
object ADOQuery4: TADOQuery
Parameters = <>
Left = 344
Top = 232
end
object ADOQuery5: TADOQuery
Parameters = <>
Left = 352
Top = 240
end
object ADOQuery6: TADOQuery
Parameters = <>
Left = 360
Top = 248
end
object DataSource4: TDataSource
DataSet = ADOQuery5
Left = 280
Top = 320
end
object DataSource5: TDataSource
DataSet = ADOQuery6
Left = 232
Top = 312
end
object DataSource6: TDataSource
DataSet = ADOQuery7
Left = 392
Top = 304
end
object ADOQuery7: TADOQuery
Parameters = <>
Left = 496
Top = 264
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -