📄 areacoalinfo_unt.dfm
字号:
inherited AreaCoalInfo_Frm: TAreaCoalInfo_Frm
Left = 190
Top = 150
VertScrollBar.Range = 0
Align = alClient
BorderIcons = []
BorderStyle = bsNone
Caption = 'AreaCoalInfo_Frm'
PixelsPerInch = 96
TextHeight = 13
inherited Panel2: TPanel
object Label1: TLabel [0]
Tag = 11
Left = 16
Top = 72
Width = 49
Height = 25
AutoSize = False
Caption = #37319#21306#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel [1]
Tag = 13
Left = 200
Top = 72
Width = 41
Height = 25
AutoSize = False
Caption = #29028#23618#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel [2]
Tag = 15
Left = 328
Top = 72
Width = 89
Height = 25
AutoSize = False
Caption = #35813#29028#23618#21547#37327#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
inherited DBGrid1: TDBGrid
Columns = <
item
Expanded = False
FieldName = 'Id'
Visible = True
end
item
Expanded = False
FieldName = #37319#21306
Visible = True
end
item
Expanded = False
FieldName = 'Sequence'
Visible = True
end
item
Expanded = False
FieldName = #29028#23618
Visible = True
end
item
Expanded = False
FieldName = 'Coal_Percent'
Visible = True
end>
end
object DBLookupComboBox1: TDBLookupComboBox
Tag = 12
Left = 72
Top = 72
Width = 121
Height = 21
DataField = 'Area_Id'
DataSource = Base_DataS
Enabled = False
ImeName = #32043#20809#25340#38899#36755#20837#27861
KeyField = 'Area_Id'
ListField = 'Area_Name'
ListSource = Area_DataS
TabOrder = 1
OnKeyDown = DBLookupComboBox1KeyDown
end
object DBLookupComboBox2: TDBLookupComboBox
Tag = 14
Left = 248
Top = 72
Width = 81
Height = 21
DataField = 'Coal_Id'
DataSource = Base_DataS
Enabled = False
ImeName = #32043#20809#25340#38899#36755#20837#27861
KeyField = 'Coal_Id'
ListField = 'Coal_Name'
ListSource = Coal_DataS
TabOrder = 2
OnKeyDown = DBLookupComboBox2KeyDown
end
object DBEdit1: TDBEdit
Tag = 16
Left = 408
Top = 72
Width = 97
Height = 21
DataField = 'Coal_Percent'
DataSource = Base_DataS
Enabled = False
ImeName = #32043#20809#25340#38899#36755#20837#27861
TabOrder = 3
OnKeyDown = DBEdit1KeyDown
end
end
inherited Base_DataS: TDataSource
DataSet = Data_Frm.AreaCoal_AdoTab
Left = 232
Top = 48
end
object Area_DataS: TDataSource
DataSet = Data_Frm.Area_AdoTab
Left = 264
Top = 48
end
object Coal_DataS: TDataSource
DataSet = Data_Frm.Coal_AdoTab
Left = 296
Top = 48
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -