📄 unitquality.dfm
字号:
object frmQuality: TfrmQuality
Left = 192
Top = 133
Width = 544
Height = 375
BorderIcons = [biMaximize]
Caption = #21697#36136#20195#30721#35774#32622
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 421
Top = 0
Width = 115
Height = 348
Align = alRight
BevelInner = bvRaised
BevelOuter = bvLowered
Color = 15263976
TabOrder = 0
object btnAdd: TButton
Left = 19
Top = 14
Width = 75
Height = 25
Caption = #22686#21152'(&A)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = btnAddClick
end
object btnCancel: TButton
Left = 19
Top = 174
Width = 75
Height = 25
Caption = #21462#28040'(&C)'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = btnCancelClick
end
object btnErase: TButton
Left = 19
Top = 54
Width = 75
Height = 25
Caption = #21024#38500'(&D)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btnEraseClick
end
object btnMod: TButton
Left = 19
Top = 94
Width = 75
Height = 25
Caption = #20462#25913'(&M)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = btnModClick
end
object btnSave: TButton
Left = 19
Top = 134
Width = 75
Height = 25
Caption = #20445#23384'(&S)'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = btnSaveClick
end
object btnExit: TButton
Left = 19
Top = 214
Width = 75
Height = 25
Caption = #36864#20986'(&X)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = btnExitClick
end
end
object Panel1: TPanel
Left = 128
Top = 0
Width = 293
Height = 348
Align = alRight
BevelInner = bvRaised
BevelOuter = bvLowered
Color = 15263976
Enabled = False
TabOrder = 1
object Label3: TLabel
Left = 24
Top = 23
Width = 60
Height = 14
Caption = #21697#36136#20195#30721
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 24
Top = 86
Width = 60
Height = 14
Caption = #21697#36136#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 56
Top = 47
Width = 168
Height = 14
Caption = '('#21697#36136#20195#30721#20026#20108#20301','#22914':01)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 56
Top = 119
Width = 181
Height = 14
Caption = '('#21697#36136#21517#31216#19981#36229#36807#21313#20010#27721#23383')'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object edtQualityNo: TEdit
Left = 102
Top = 19
Width = 155
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
MaxLength = 2
ParentFont = False
TabOrder = 0
OnExit = edtQualityNoExit
OnKeyPress = edtQualityNoKeyPress
end
object edtQuality: TEdit
Left = 102
Top = 82
Width = 158
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
MaxLength = 20
ParentFont = False
TabOrder = 1
OnKeyPress = edtQualityKeyPress
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 128
Height = 348
Align = alClient
DataSource = dsQuality
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'QualityNo'
Title.Alignment = taCenter
Title.Caption = #21697#36136#20195#30721
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'Quality'
Title.Alignment = taCenter
Title.Caption = #21697#36136#21517#31216
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 150
Visible = True
end>
end
object dsQuality: TDataSource
DataSet = DM.qry_Quality
OnDataChange = dsQualityDataChange
Left = 40
Top = 64
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -