📄 unitprodvoucher.dfm
字号:
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 3
OnEnter = DBEdit3Enter
OnExit = DBEdit3Exit
end
object DBEdit4: TDBEdit
Left = 474
Top = 54
Width = 185
Height = 20
DataField = 'Note'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 4
OnEnter = DBEdit2Enter
end
object DBEdit5: TDBEdit
Left = 300
Top = 54
Width = 90
Height = 20
DataField = 'ProcBatID'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 5
OnEnter = DBEdit2Enter
end
object Button2: TButton
Left = 485
Top = 9
Width = 75
Height = 22
Caption = '提交'
TabOrder = 6
OnClick = Button2Click
end
object DBEdit6: TDBEdit
Left = 15
Top = 54
Width = 69
Height = 20
DataField = 'CardID'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 7
OnEnter = DBEdit2Enter
end
object DateTimePicker1: TDateTimePicker
Left = 28
Top = 5
Width = 94
Height = 22
CalAlignment = dtaLeft
Date = 37175.781931713
Time = 37175.781931713
DateFormat = dfShort
DateMode = dmComboBox
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 8
end
object DateTimePicker2: TDateTimePicker
Left = 147
Top = 5
Width = 93
Height = 22
CalAlignment = dtaLeft
Date = 37175.7820576389
Time = 37175.7820576389
DateFormat = dfShort
DateMode = dmComboBox
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 9
end
object Button3: TButton
Left = 290
Top = 6
Width = 75
Height = 22
Caption = '查询'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 10
OnClick = Button3Click
end
object BitBtn1: TBitBtn
Left = 581
Top = 8
Width = 70
Height = 22
Caption = '返回'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 11
OnClick = BitBtn1Click
end
object DBEdit7: TDBEdit
Left = 92
Top = 54
Width = 68
Height = 20
DataField = 'OutDate'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 12
OnEnter = DBEdit3Enter
end
object Button1: TButton
Left = 392
Top = 7
Width = 68
Height = 23
Caption = '修改'
TabOrder = 13
OnClick = Button1Click
end
end
end
object dtpDate: TDateTimePicker
Left = 525
Top = 11
Width = 105
Height = 22
CalAlignment = dtaLeft
Date = 36967.5852622685
Time = 36967.5852622685
DateFormat = dfShort
DateMode = dmComboBox
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 1
OnChange = dtpDateChange
end
object bbCard: TBitBtn
Left = 191
Top = 388
Width = 107
Height = 35
Caption = '填写入、出库单'
Default = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = bbCardClick
end
object bbCardView: TBitBtn
Left = 304
Top = 389
Width = 89
Height = 34
Caption = '查看修改记录'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = bbCardViewClick
end
object bbDelete: TBitBtn
Left = 400
Top = 388
Width = 89
Height = 35
Caption = '删除记录'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = bbDeleteClick
end
object bbCancel: TBitBtn
Left = 592
Top = 388
Width = 89
Height = 35
Cancel = True
Caption = '返回(Esc)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = bbCancelClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object bbViewStock: TBitBtn
Left = 497
Top = 388
Width = 89
Height = 35
Caption = '查看库存'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = bbViewStockClick
end
object Table1: TTable
DatabaseName = 'JL2000'
OnFilterRecord = Table1FilterRecord
TableName = 'ProdOutCard.DB'
Left = 524
Top = 38
object Table1CardID: TStringField
DisplayLabel = '出库单号'
DisplayWidth = 10
FieldName = 'CardID'
Size = 10
end
object Table1OutDate: TDateField
DisplayLabel = '出库日期'
DisplayWidth = 10
FieldName = 'OutDate'
end
object Table1ProdID: TStringField
DisplayLabel = '产品编号'
DisplayWidth = 10
FieldName = 'ProdID'
Size = 10
end
object Table1ProcBatID: TStringField
DisplayLabel = '生产批号'
DisplayWidth = 10
FieldName = 'ProcBatID'
Size = 10
end
object Table1Number: TIntegerField
DisplayLabel = '出库数量'
DisplayWidth = 10
FieldName = 'Number'
end
object Table1Box: TFloatField
DisplayLabel = '箱数'
DisplayWidth = 10
FieldName = 'Box'
end
object Table1OuterID: TStringField
DisplayLabel = '经手人编号'
DisplayWidth = 10
FieldName = 'OuterID'
Size = 5
end
object Table1ManufacturerID: TStringField
DisplayWidth = 14
FieldName = 'ManufacturerID'
Size = 5
end
object Table1Note: TStringField
DisplayLabel = '备 注'
DisplayWidth = 30
FieldName = 'Note'
Size = 30
end
object Table1ProdName: TStringField
DisplayLabel = '产品名称'
DisplayWidth = 14
FieldKind = fkLookup
FieldName = 'ProdName'
LookupDataSet = DM.tabProdDictionary
LookupKeyFields = 'ProdID'
LookupResultField = 'ProdName'
KeyFields = 'ProdID'
Size = 22
Lookup = True
end
object Table1FigID: TStringField
DisplayLabel = '图 号'
DisplayWidth = 12
FieldKind = fkLookup
FieldName = 'FigID'
LookupDataSet = DM.tabProdDictionary
LookupKeyFields = 'ProdID'
LookupResultField = 'FigID'
KeyFields = 'ProdID'
Size = 12
Lookup = True
end
object Table1Manufacturer: TStringField
DisplayLabel = '客户名称'
DisplayWidth = 19
FieldKind = fkLookup
FieldName = 'Manufacturer'
LookupDataSet = DM.tabManufacturer
LookupKeyFields = 'ManufacturerID'
LookupResultField = 'Manufacturer'
KeyFields = 'ManufacturerID'
Size = 26
Lookup = True
end
object Table1Outer: TStringField
DisplayLabel = '经手人'
DisplayWidth = 6
FieldKind = fkLookup
FieldName = 'Outer'
LookupDataSet = DM.tabStaff
LookupKeyFields = 'StaffID'
LookupResultField = 'StaffName'
KeyFields = 'OuterID'
Size = 8
Lookup = True
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 492
Top = 38
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -