📄 ufrm_basicmaterial.~dfm
字号:
inherited frm_BasicMaterial: Tfrm_BasicMaterial
Left = 228
Top = 104
Width = 666
Height = 466
Caption = 'frm_BasicMaterial'
PixelsPerInch = 96
TextHeight = 13
inherited CoolBar1: TCoolBar
Width = 658
Bands = <
item
Control = ToolBar1
ImageIndex = -1
MinHeight = 29
Width = 654
end>
inherited ToolBar1: TToolBar
Width = 641
inherited tbFilter: TToolButton
Visible = False
end
inherited ToolButton18: TToolButton
Left = 346
Wrap = False
end
inherited tbSave: TToolButton
Left = 354
Top = 0
end
inherited tbUnsave: TToolButton
Left = 384
Top = 0
end
inherited ToolButton19: TToolButton
Left = 414
Top = 0
end
inherited tbConfirm: TToolButton
Left = 421
Top = 0
end
inherited tbUnconfirm: TToolButton
Left = 451
Top = 0
end
inherited ToolButton20: TToolButton
Left = 481
Top = 0
end
inherited tbPrint: TToolButton
Left = 494
Top = 0
Visible = False
end
inherited tbExcel: TToolButton
Left = 524
Top = 0
end
inherited tbHelp: TToolButton
Left = 554
Top = 0
Visible = False
end
inherited tbother: TToolButton
Left = 584
Top = 0
Visible = False
end
end
end
inherited Page01: TPageControl
Width = 658
Height = 406
ActivePage = TabSheet1
TabIndex = 0
inherited TabSheet1: TTabSheet
inherited panelEdit: TPanel
Width = 650
Height = 375
object Label1: TLabel
Left = 32
Top = 30
Width = 60
Height = 13
Caption = #26448#36074#20195#30908#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 327
Top = 32
Width = 60
Height = 13
Caption = #26448#26009#21517#31281#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 32
Top = 78
Width = 81
Height = 13
Caption = #20986#24288#30828#24230'(HV)'#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 327
Top = 80
Width = 68
Height = 13
Caption = #23494#24230'(KG/M3):'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 32
Top = 127
Width = 60
Height = 13
Caption = #26448#26009#24615#33021#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 327
Top = 128
Width = 77
Height = 13
Caption = #21934#20729'(RMB/KG):'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 32
Top = 176
Width = 72
Height = 13
Caption = #29105#34389#29702#26041#27861#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 32
Top = 225
Width = 36
Height = 13
Caption = #20633#27880#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 327
Top = 177
Width = 60
Height = 13
Caption = #24314#31435#26085#26399#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 32
Top = 274
Width = 48
Height = 13
Caption = #30906#35469#21542#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ACTI: TDBText
Left = 119
Top = 274
Width = 65
Height = 17
DataField = 'ACTI'
DataSource = ds_master
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object F01: TDBEdit
Tag = 1
Left = 117
Top = 28
Width = 121
Height = 21
DataField = 'F01'
DataSource = ds_master
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object F02: TDBEdit
Tag = 1
Left = 419
Top = 28
Width = 121
Height = 21
DataField = 'F02'
DataSource = ds_master
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object F03: TDBEdit
Left = 117
Top = 76
Width = 121
Height = 21
DataField = 'F03'
DataSource = ds_master
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object F04: TDBEdit
Left = 419
Top = 76
Width = 121
Height = 21
DataField = 'F04'
DataSource = ds_master
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object F06: TDBEdit
Left = 419
Top = 124
Width = 121
Height = 21
DataField = 'F06'
DataSource = ds_master
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object MEMO: TDBEdit
Left = 116
Top = 221
Width = 428
Height = 21
DataField = 'MEMO'
DataSource = ds_master
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object CRET: TDBEdit
Tag = 2
Left = 419
Top = 173
Width = 121
Height = 21
DataField = 'CRET'
DataSource = ds_master
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 8
end
object F05: TDBComboBox
Left = 117
Top = 123
Width = 121
Height = 21
Style = csDropDownList
DataField = 'F05'
DataSource = ds_master
ItemHeight = 13
TabOrder = 4
end
object F07: TDBComboBox
Left = 117
Top = 172
Width = 121
Height = 21
Style = csDropDownList
DataField = 'F07'
DataSource = ds_master
ItemHeight = 13
TabOrder = 6
end
end
end
inherited TabSheet2: TTabSheet
inherited dbGrid: TdxDBGrid
Width = 650
Height = 375
Bands = <
item
end
item
end
item
end
item
end
item
end
item
end>
DefaultLayout = False
KeyField = 'F01'
ShowSummaryFooter = True
Font.Charset = DEFAULT_CHARSET
Font.Name = 'Microsoft Sans Serif'
Filter.Criteria = {00000000}
OnCustomDraw = dbGridCustomDraw
object dbGridF01: TdxDBGridMaskColumn
Caption = #20195#21495
BandIndex = 0
RowIndex = 0
FieldName = 'F01'
end
object dbGridF02: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'F02'
end
object dbGridF03: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'F03'
end
object dbGridF04: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'F04'
end
object dbGridF05: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'F05'
end
object dbGridF06: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'F06'
end
object dbGridF07: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'F07'
end
object dbc_acti: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'ACTI'
end
object dbGridOWUS: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'OWUS'
end
object dbGridGRUP: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'GRUP'
end
object dbGridCRET: TdxDBGridDateColumn
BandIndex = 0
RowIndex = 0
FieldName = 'CRET'
end
object dbGridMODU: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'MODU'
end
object dbGridMODT: TdxDBGridDateColumn
BandIndex = 0
RowIndex = 0
FieldName = 'MODT'
end
end
end
end
inherited qy_master: TQuery
DatabaseName = 'JXC_CSD'
SQL.Strings = (
'SELECT * FROM T_MATERIAL')
object qy_masterF01: TStringField
FieldName = 'F01'
Origin = 'JXC_CSD.T_MATERIAL.F01'
FixedChar = True
Size = 10
end
object qy_masterF02: TStringField
FieldName = 'F02'
Origin = 'JXC_CSD.T_MATERIAL.F02'
FixedChar = True
end
object qy_masterF03: TFloatField
FieldName = 'F03'
Origin = 'JXC_CSD.T_MATERIAL.F03'
end
object qy_masterF04: TFloatField
FieldName = 'F04'
Origin = 'JXC_CSD.T_MATERIAL.F04'
end
object qy_masterF05: TStringField
FieldName = 'F05'
Origin = 'JXC_CSD.T_MATERIAL.F05'
FixedChar = True
Size = 10
end
object qy_masterF06: TFloatField
FieldName = 'F06'
Origin = 'JXC_CSD.T_MATERIAL.F06'
end
object qy_masterF07: TStringField
FieldName = 'F07'
Origin = 'JXC_CSD.T_MATERIAL.F07'
FixedChar = True
Size = 12
end
object qy_masterMEMO: TStringField
FieldName = 'MEMO'
Origin = 'JXC_CSD.T_MATERIAL.MEMO'
FixedChar = True
Size = 200
end
object qy_masterACTI: TStringField
FieldName = 'ACTI'
Origin = 'JXC_CSD.T_MATERIAL.ACTI'
FixedChar = True
Size = 1
end
object qy_masterOWUS: TStringField
FieldName = 'OWUS'
Origin = 'JXC_CSD.T_MATERIAL.OWUS'
FixedChar = True
Size = 10
end
object qy_masterGRUP: TStringField
FieldName = 'GRUP'
Origin = 'JXC_CSD.T_MATERIAL.GRUP'
FixedChar = True
Size = 10
end
object qy_masterCRET: TDateTimeField
FieldName = 'CRET'
Origin = 'JXC_CSD.T_MATERIAL.CRET'
end
object qy_masterMODU: TStringField
FieldName = 'MODU'
Origin = 'JXC_CSD.T_MATERIAL.MODU'
FixedChar = True
Size = 10
end
object qy_masterMODT: TDateTimeField
FieldName = 'MODT'
Origin = 'JXC_CSD.T_MATERIAL.MODT'
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -