ucgjh_lb.dfm
来自「工廠採購管理系統」· DFM 代码 · 共 555 行 · 第 1/2 页
DFM
555 行
Left = 712
Top = 8
Width = 121
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 6
OnClick = ComboBox1Click
end
object ComboBox2: TComboBox
Left = 552
Top = 8
Width = 129
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 7
OnChange = ComboBox2Change
end
end
object Panel2: TPanel
Left = 0
Top = 41
Width = 933
Height = 405
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object DBGridEh1: TDBGridEh
Left = 0
Top = 0
Width = 933
Height = 405
Align = alClient
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
FooterRowCount = 1
ParentFont = False
ReadOnly = True
SumList.Active = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnTitleClick = DBGridEh1TitleClick
Columns = <
item
EditButtons = <>
FieldName = #37319#36141#35745#21010#21333#21495
Footers = <
item
Value = #21512#35745#65306
ValueType = fvtStaticText
end>
end
item
EditButtons = <>
FieldName = #37319#36141#38656#27714#21333#21495
Footers = <>
end
item
EditButtons = <>
FieldName = #20379#24212#21830#21517#31216
Footers = <>
Width = 154
end
item
EditButtons = <>
FieldName = #23457#26680
Footers = <>
Width = 33
end
item
EditButtons = <>
FieldName = #19979#21333
Footers = <>
Width = 34
end
item
EditButtons = <>
FieldName = #29289#26009#20195#30721
Footers = <>
end
item
EditButtons = <>
FieldName = #29289#26009#21517#31216
Footers = <>
Width = 114
end
item
EditButtons = <>
FieldName = #29289#26009#39068#33394
Footers = <>
end
item
EditButtons = <>
FieldName = #29289#26009#33394#21495
Footers = <>
end
item
EditButtons = <>
FieldName = #20379#24212#21830
Footers = <>
end
item
EditButtons = <>
FieldName = #38656#27714#25968#37327
Footers = <
item
FieldName = #38656#27714#25968#37327
ValueType = fvtSum
end>
Width = 110
end
item
EditButtons = <>
FieldName = #35745#21010#25968#37327
Footers = <
item
FieldName = #35745#21010#25968#37327
ValueType = fvtSum
end>
Width = 103
end
item
EditButtons = <>
FieldName = #21333#20301
Footers = <>
end
item
EditButtons = <>
FieldName = #36127#36131#20154
Footers = <>
end
item
EditButtons = <>
FieldName = #35745#21010#26085#26399
Footers = <>
Width = 88
end
item
EditButtons = <>
FieldName = #21040#36135#26085#26399
Footers = <>
Width = 92
end
item
EditButtons = <>
FieldName = #22791#27880
Footers = <>
end>
end
end
object ADOQuery1: TADOQuery
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from view_cgjhlb')
Left = 320
Top = 224
object ADOQuery1DSDesigner: TStringField
FieldName = #37319#36141#35745#21010#21333#21495
FixedChar = True
Size = 13
end
object ADOQuery1DSDesigner2: TStringField
FieldName = #37319#36141#38656#27714#21333#21495
FixedChar = True
Size = 13
end
object ADOQuery1DSDesigner3: TStringField
FieldName = #20379#24212#21830#20195#30721
FixedChar = True
Size = 10
end
object ADOQuery1DSDesigner4: TStringField
FieldName = #20379#24212#21830#21517#31216
FixedChar = True
Size = 40
end
object ADOQuery1DSDesigner5: TBooleanField
FieldName = #23457#26680
end
object ADOQuery1DSDesigner6: TBooleanField
FieldName = #19979#21333
end
object ADOQuery1DSDesigner7: TStringField
FieldName = #29289#26009#20195#30721
FixedChar = True
Size = 10
end
object ADOQuery1DSDesigner8: TStringField
FieldName = #29289#26009#21517#31216
FixedChar = True
Size = 60
end
object ADOQuery1DSDesigner9: TStringField
FieldName = #29289#26009#39068#33394
FixedChar = True
Size = 12
end
object ADOQuery1DSDesigner10: TStringField
FieldName = #29289#26009#33394#21495
FixedChar = True
Size = 6
end
object ADOQuery1DSDesigner11: TStringField
FieldName = #20379#24212#21830
FixedChar = True
Size = 10
end
object ADOQuery1DSDesigner12: TBCDField
FieldName = #38656#27714#25968#37327
Precision = 18
Size = 0
end
object ADOQuery1DSDesigner13: TBCDField
FieldName = #35745#21010#25968#37327
Precision = 18
Size = 0
end
object ADOQuery1DSDesigner14: TStringField
FieldName = #21333#20301
FixedChar = True
Size = 4
end
object ADOQuery1DSDesigner15: TStringField
FieldName = #36127#36131#20154
FixedChar = True
Size = 10
end
object ADOQuery1DSDesigner16: TDateTimeField
FieldName = #35745#21010#26085#26399
end
object ADOQuery1DSDesigner17: TDateTimeField
FieldName = #21040#36135#26085#26399
end
object ADOQuery1DSDesigner18: TMemoField
FieldName = #22791#27880
BlobType = ftMemo
end
end
object ADOQuery2: TADOQuery
Parameters = <>
Left = 392
Top = 200
end
object DataSource1: TDataSource
AutoEdit = False
DataSet = ADOQuery1
Left = 240
Top = 224
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?