📄 ccdwh.~dfm
字号:
Font.Style = []
ParentFont = False
end
object SpeedButton1: TSpeedButton
Left = 124
Top = 102
Width = 23
Height = 22
Caption = '...'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton3: TSpeedButton
Left = 267
Top = 100
Width = 23
Height = 22
Caption = '...'
Flat = True
OnClick = SpeedButton3Click
end
object DBEdit2: TDBEdit
Left = 24
Top = 57
Width = 100
Height = 21
DataField = #20986#20179#21333#21495
DataSource = dm.whccdds
TabOrder = 0
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 167
Top = 100
Width = 100
Height = 21
DataField = #20986#20179#31867#22411
DataSource = dm.whccdds
KeyField = #20986#20179#31867#22411'ID'
ListField = #20986#20179#31867#22411
ListSource = dm.whcclxdmds
TabOrder = 1
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 24
Top = 102
Width = 100
Height = 21
DataField = #37096#38376
DataSource = dm.whccdds
KeyField = #37096#38376'ID'
ListField = #37096#38376#21517#31216
ListSource = dm.whbmdmds
TabOrder = 2
end
object DBDateTimeEditEh1: TDBDateTimeEditEh
Left = 168
Top = 56
Width = 100
Height = 21
DataField = #26085#26399
DataSource = dm.whccdds
EditButton.Style = ebsUpDownEh
EditButtons = <>
Kind = dtkDateEh
TabOrder = 3
Visible = True
OnChange = DBDateTimeEditEh1Change
end
object Panel3: TPanel
Left = 1
Top = 1
Width = 588
Height = 34
Align = alTop
BevelInner = bvLowered
Caption = ' <--'#21333#25454#32534#36753#25353#38062
TabOrder = 4
object Label11: TLabel
Left = 429
Top = 12
Width = 65
Height = 13
Caption = #20849#26377#35760#24405#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #40657#20307
Font.Style = [fsItalic]
ParentFont = False
end
object sbt: TSpeedButton
Left = 561
Top = 6
Width = 23
Height = 22
Hint = #39#38544#34255#26465#20214#26694
Caption = #9660
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = sbtClick
end
object DBNavigator1: TDBNavigator
Left = 2
Top = 2
Width = 300
Height = 30
DataSource = dm.whccdds
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
Align = alLeft
Hints.Strings = (
#31532#19968#31508#21333#25454
#21069#19968#31508#21333#25454
#19979#19968#31508#21333#25454
#26368#21518#19968#31508#21333#25454
#22686#21152#21333#25454
#21024#38500#21333#25454
#20462#25913#21333#25454
#20445#23384#21333#25454
#21462#28040#21333#25454
#21047#26032#21333#25454)
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
end
object DBEdit3: TDBEdit
Left = 309
Top = 100
Width = 247
Height = 21
DataField = #22791#27880
DataSource = dm.whccdds
TabOrder = 5
end
object DBEdit4: TDBEdit
Left = 308
Top = 56
Width = 100
Height = 21
DataField = #39046#29992#20154
DataSource = dm.whccdds
TabOrder = 6
end
end
object GroupBox3: TGroupBox
Left = 2
Top = 158
Width = 594
Height = 185
Align = alClient
Caption = #20986#20179#21333#26126#32454
TabOrder = 1
object DBGridEh1: TDBGridEh
Left = 2
Top = 15
Width = 590
Height = 168
Align = alClient
Ctl3D = False
DataSource = dm.whccmxds
Flat = True
FooterColor = clWindow
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -13
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
ParentCtl3D = False
SumList.Active = True
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDblClick = DBGridEh1DblClick
OnEditButtonClick = DBGridEh1DblClick
Columns = <
item
ButtonStyle = cbsEllipsis
EditButtons = <>
FieldName = #26448#26009#32534#30721
Footers = <>
Width = 118
end
item
Color = clInfoBk
EditButtons = <>
FieldName = #26448#26009#21517#31216
Footer.Alignment = taCenter
Footer.Value = #21512#35745
Footer.ValueType = fvtStaticText
Footers = <>
ReadOnly = True
Width = 131
end
item
Color = clInfoBk
EditButtons = <>
FieldName = #21333#20301
Footers = <>
ReadOnly = True
Width = 29
end
item
Color = clInfoBk
EditButtons = <>
FieldName = #26448#26009#35268#26684
Footers = <>
ReadOnly = True
Width = 56
end
item
EditButtons = <>
FieldName = #25968#37327
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #21333#20215
Footers = <>
Width = 71
end
item
EditButtons = <>
FieldName = #37329#39069
Footer.ValueType = fvtSum
Footers = <>
Width = 73
end
item
EditButtons = <>
FieldName = #22791#27880
Footers = <>
Visible = False
end
item
EditButtons = <>
FieldName = #31867#22411'ID'
Footers = <>
Visible = False
end
item
EditButtons = <>
FieldName = #20986#20179'ID'
Footers = <>
Visible = False
end
item
EditButtons = <>
FieldName = #20986#20179#26126#32454'ID'
Footers = <>
Visible = False
end>
end
end
end
object Panel2: TPanel
Left = 0
Top = 418
Width = 598
Height = 22
Align = alBottom
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = ' '#26126#32454#35760#24405#32534#36753#25353#38062'-->'
TabOrder = 2
object DBNavigator2: TDBNavigator
Left = 391
Top = 0
Width = 207
Height = 22
DataSource = dm.whccmxds
VisibleButtons = [nbFirst, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
Align = alRight
Flat = True
Hints.Strings = (
#31532#19968#26465
#21069#19968#26465
#19979#19968#26465
#26368#21518#19968#26465
#22686#21152
#21024#38500
#20462#25913
#20445#23384
#21462#28040
#21047#26032)
ParentShowHint = False
ConfirmDelete = False
ShowHint = True
TabOrder = 0
end
end
object frReport1: TfrReport
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
OnGetValue = frReport1GetValue
Left = 493
Top = 60
ReportForm = {18000000}
end
object frDBDataSet1: TfrDBDataSet
DataSource = dm.whccdds
Left = 529
Top = 62
end
object frDBDataSet2: TfrDBDataSet
DataSource = dm.whccmxds
Left = 566
Top = 60
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -