📄 qcsh.dfm
字号:
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object GroupBox4: TGroupBox
Left = 331
Top = 4
Width = 280
Height = 195
Caption = '质检结果'
TabOrder = 1
object Label12: TLabel
Left = 11
Top = 94
Width = 90
Height = 12
Caption = '不合格处理方式:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 10
Top = 128
Width = 30
Height = 12
Caption = '备注:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 10
Top = 23
Width = 54
Height = 12
Caption = '合格数量:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 10
Top = 58
Width = 66
Height = 12
Caption = '不合格数量:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object scQcsdMode: TSDComboBox
Left = 104
Top = 91
Width = 149
Height = 20
Style = csDropDownList
Color = 16441822
Ctl3D = False
Enabled = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 2
KeyItem = cbItem2
ReadOnly = True
end
object memQcsdDesc: TMemo
Left = 46
Top = 131
Width = 219
Height = 48
Color = 16441822
Ctl3D = False
Lines.Strings = (
'')
ParentCtl3D = False
TabOrder = 3
end
object seQcsdYQty: TSDEdit
Left = 77
Top = 18
Width = 156
Height = 18
Ctl3D = False
MaxLength = 13
ParentColor = True
ParentCtl3D = False
TabOrder = 0
Text = '0'
DigLen = 4
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
object seQcsdNQty: TSDEdit
Left = 77
Top = 57
Width = 157
Height = 18
Ctl3D = False
MaxLength = 13
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 1
Text = '0'
DigLen = 4
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
end
end
inherited sbBar: TStatusBar
Top = 411
Width = 739
Height = 28
end
inherited CoolBar1: TCoolBar
Width = 739
Bands = <
item
Control = tbMainBar
ImageIndex = -1
MinHeight = 35
Width = 739
end>
inherited tbMainBar: TToolBar
Width = 726
inherited tbAddDetail: TToolButton
Visible = False
end
end
end
object fpQcshHead: TFloatPanel [4]
Left = 0
Top = 39
Width = 739
Height = 122
Align = alTop
Color = clWhite
Caption = 'fpQcshHead'
ParentColor = False
TabOrder = 2
object Label1: TLabel
Left = 13
Top = 17
Width = 54
Height = 12
Caption = '质检单号:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 13
Top = 57
Width = 54
Height = 12
Caption = '质检日期:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 337
Top = 90
Width = 54
Height = 12
Caption = '系统日期:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 13
Top = 92
Width = 54
Height = 12
Caption = '质检类型:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 337
Top = 15
Width = 54
Height = 12
Caption = '送检单号:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object labSysDate: TLabel
Left = 399
Top = 89
Width = 42
Height = 12
Caption = 'SysDate'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 337
Top = 54
Width = 42
Height = 12
Caption = '质检员:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object seQcshCode: TSDEdit
Left = 70
Top = 13
Width = 147
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 0
Text = 'seQcshCode'
OnKeyDown = seQcshCodeKeyDown
SplitSymbol = ' | '
end
object deQcshDate: TDateEdit
Left = 70
Top = 54
Width = 112
Height = 18
LineOffset = 2
LineColor = clGreen
LineVisible = False
CDate = '2001-05-11'
InitDate = '2001-05-11'
ModalResult = 0
TabOrder = 1
Color = 50331647
Ctl3D = False
ParentCtl3D = False
end
object scQcshType: TSDComboBox
Left = 70
Top = 86
Width = 157
Height = 20
Style = csDropDownList
Ctl3D = False
ItemHeight = 12
ParentColor = True
ParentCtl3D = False
TabOrder = 2
KeyItem = cbItem2
end
object scQcshUser: TSDComboBox
Left = 396
Top = 49
Width = 157
Height = 20
Ctl3D = False
ItemHeight = 12
ParentColor = True
ParentCtl3D = False
TabOrder = 3
Text = 'scQcshUser'
KeyItem = cbItem2
end
object seQcshDocCode: TSDEdit
Left = 396
Top = 10
Width = 158
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 4
Text = 'seQcsdGoods'
OnButtonClick = seQcshDocCodeButtonClick
ButtonVisible = True
SplitSymbol = ' | '
end
end
object FloatPanel3: TFloatPanel [5]
Left = 0
Top = 373
Width = 739
Height = 38
Align = alBottom
Color = clWhite
Enabled = False
Caption = 'FloatPanel3'
ParentColor = False
TabOrder = 5
object Label2: TLabel
Left = 494
Top = 9
Width = 48
Height = 12
Anchors = [akTop, akRight]
Caption = '审核人:'
end
object labQcshChecker: TLabel
Left = 543
Top = 9
Width = 84
Height = 12
Anchors = [akTop, akRight]
Caption = 'labQcshChecker'
end
object cbxQcshCheck: TCheckBox
Left = 67
Top = 7
Width = 69
Height = 17
Caption = '单已审核'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
end
end
inherited MainMenu1: TMainMenu
Left = 689
Top = 5
inherited muFile: TMenuItem
inherited muAddDetail: TMenuItem
Visible = False
end
end
end
inherited ImageList1: TImageList
Left = 693
Top = 46
end
inherited BillPrintDlg: TPrintDialog
Left = 658
Top = 5
end
inherited BillPrnSetupDlg: TPrinterSetupDialog
Left = 623
Top = 5
end
inherited pmDetail: TPopupMenu
Left = 690
Top = 270
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -