📄 unit_mater_incard.dfm
字号:
object Form_Mater_InCard: TForm_Mater_InCard
Left = 194
Top = 174
BorderStyle = bsDialog
Caption = '宁波市巨龙橡塑有限公司 原材料仓库管理系统'
ClientHeight = 235
ClientWidth = 520
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
object Label1: TLabel
Left = 288
Top = 226
Width = 56
Height = 14
Caption = '剩余库存'
Visible = False
end
object Label2: TLabel
Left = 368
Top = 226
Width = 56
Height = 14
Caption = '领料单号'
Visible = False
end
object Label3: TLabel
Left = 448
Top = 226
Width = 28
Height = 14
Caption = '库存'
Visible = False
end
object Label4: TLabel
Left = 208
Top = 226
Width = 70
Height = 14
Caption = '出入标识 '
Visible = False
end
object Label5: TLabel
Left = 32
Top = 226
Width = 42
Height = 14
Caption = '标识号'
Visible = False
end
object Label6: TLabel
Left = 104
Top = 226
Width = 84
Height = 14
Caption = '最后领料标识'
Visible = False
end
object Label7: TLabel
Left = 152
Top = 266
Width = 56
Height = 14
Caption = '领料标识'
Visible = False
end
object Panel1: TPanel
Left = 17
Top = 38
Width = 485
Height = 150
BevelInner = bvLowered
TabOrder = 0
object Panel3: TPanel
Left = 2
Top = 2
Width = 481
Height = 49
Align = alTop
AutoSize = True
BevelInner = bvLowered
TabOrder = 0
object DBEdit_InCardNum: TDBEdit
Left = 2
Top = 24
Width = 90
Height = 22
DataField = '入库单号'
DataSource = DS_InCard
TabOrder = 0
OnEnter = DBEdit_InCardNumEnter
OnExit = DBEdit_InCardNumExit
end
object DBEdit_Date: TDBEdit
Left = 389
Top = 24
Width = 88
Height = 22
DataField = '日期'
DataSource = DS_InCard
TabOrder = 1
OnEnter = DBEdit_DateEnter
OnExit = DBEdit_DateExit
end
object Panel8: TPanel
Left = 389
Top = 2
Width = 89
Height = 22
Caption = '入库日期'
TabOrder = 2
end
object Panel12: TPanel
Left = 2
Top = 2
Width = 90
Height = 22
Caption = '入库单号'
TabOrder = 3
end
object Panel13: TPanel
Left = 93
Top = 2
Width = 296
Height = 45
Caption = '入 库 单'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -32
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
end
object Panel15: TPanel
Left = 389
Top = 52
Width = 94
Height = 96
Anchors = []
TabOrder = 3
object Panel17: TPanel
Left = 1
Top = 2
Width = 92
Height = 23
BiDiMode = bdLeftToRight
Caption = '盘盈（备注）'
ParentBiDiMode = False
TabOrder = 0
end
object DBEdit1: TDBEdit
Left = 1
Top = 25
Width = 92
Height = 70
AutoSize = False
DataField = '备注'
DataSource = DS_InCard
TabOrder = 1
end
end
object Panel2: TPanel
Left = 3
Top = 52
Width = 386
Height = 48
BevelInner = bvLowered
TabOrder = 1
object DBEdit_Mater: TDBEdit
Left = 109
Top = 24
Width = 120
Height = 22
DataField = '材料名称'
DataSource = DS_InCard
TabOrder = 2
OnEnter = DBEdit_MaterEnter
OnExit = DBEdit_InCardNumExit
end
object Panel5: TPanel
Left = 49
Top = 2
Width = 60
Height = 22
Caption = '简称输入'
TabOrder = 6
end
object Panel6: TPanel
Left = 336
Top = 2
Width = 48
Height = 22
Caption = '检验员'
TabOrder = 7
end
object Panel7: TPanel
Left = 229
Top = 2
Width = 60
Height = 22
Caption = '入库数量'
TabOrder = 8
end
object Panel9: TPanel
Left = 109
Top = 2
Width = 120
Height = 22
Caption = '材 料 名 称'
TabOrder = 9
end
object Panel16: TPanel
Left = 289
Top = 2
Width = 47
Height = 22
Caption = '单 价'
TabOrder = 10
end
object DBEdit_InWt: TDBEdit
Left = 229
Top = 24
Width = 60
Height = 22
DataField = '入库数量'
DataSource = DS_InCard
TabOrder = 3
OnEnter = DBEdit_InCardNumEnter
OnExit = DBEdit_InCardNumExit
end
object DBEdit_Per: TDBEdit
Left = 289
Top = 24
Width = 47
Height = 22
DataField = '单价'
DataSource = DS_InCard
TabOrder = 4
OnEnter = DBEdit_InCardNumEnter
OnExit = DBEdit_InCardNumExit
end
object Edit_Index: TEdit
Left = 49
Top = 24
Width = 60
Height = 22
TabOrder = 1
OnChange = Edit_IndexChange
OnEnter = DBEdit_InCardNumEnter
OnExit = DBEdit_InCardNumExit
end
object DBEdit_Chk: TDBEdit
Left = 336
Top = 24
Width = 48
Height = 22
DataField = '检验员'
DataSource = DS_InCard
TabOrder = 5
OnEnter = DBEdit_ChkEnter
OnExit = DBEdit_InCardNumExit
end
object Panel19: TPanel
Left = 0
Top = 2
Width = 49
Height = 22
Caption = '库号'
TabOrder = 11
end
object DBEdit2: TDBEdit
Left = 1
Top = 24
Width = 48
Height = 22
DataField = 'Kuhao'
DataSource = DS_InCard
TabOrder = 0
OnEnter = DBEdit_InCardNumEnter
OnExit = DBEdit_InCardNumExit
end
end
object Panel4: TPanel
Left = 2
Top = 100
Width = 387
Height = 48
BevelInner = bvLowered
TabOrder = 2
object Panel14: TPanel
Left = 80
Top = 2
Width = 129
Height = 22
Caption = '进 货 地 点'
TabOrder = 3
end
object DBEdit_Add: TDBEdit
Left = 80
Top = 24
Width = 129
Height = 22
DataField = '进货地点'
DataSource = DS_InCard
TabOrder = 1
OnEnter = DBEdit_InCardNumEnter
OnExit = DBEdit_InCardNumExit
end
object Panel18: TPanel
Left = 209
Top = 2
Width = 176
Height = 22
Caption = '生 产 厂 家'
TabOrder = 4
end
object DBEdit_Fac: TDBEdit
Left = 209
Top = 24
Width = 176
Height = 22
DataField = '生产厂家'
DataSource = DS_InCard
TabOrder = 2
OnEnter = DBEdit_InCardNumEnter
OnExit = DBEdit_InCardNumExit
end
object DBEdit_Taker: TDBEdit
Left = 2
Top = 24
Width = 78
Height = 22
DataField = '采购员'
DataSource = DS_InCard
PasswordChar = '*'
TabOrder = 0
OnEnter = DBEdit_InCardNumEnter
OnExit = DBEdit_InCardNumExit
end
object Panel10: TPanel
Left = 2
Top = 2
Width = 78
Height = 22
Caption = '采购员密码'
TabOrder = 5
end
end
end
object BitBtn_Post: TBitBtn
Left = 230
Top = 194
Width = 75
Height = 25
Caption = '记入帐本'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn_PostClick
end
object BitBtn_Exit: TBitBtn
Left = 332
Top = 194
Width = 75
Height = 25
Cancel = True
Caption = '返回'
TabOrder = 2
TabStop = False
OnClick = BitBtn_ExitClick
end
object DBEdit_ReStock: TDBEdit
Left = 280
Top = 242
Width = 81
Height = 22
DataField = '剩余库存'
DataSource = DS_InCard
TabOrder = 3
Visible = False
end
object DBEdit_OutCardNum: TDBEdit
Left = 360
Top = 242
Width = 65
Height = 22
DataField = '领料单号'
DataSource = DS_InCard
TabOrder = 4
Visible = False
end
object DBEdit_Stock: TDBEdit
Left = 432
Top = 242
Width = 57
Height = 22
DataField = '库存'
DataSource = DS_InCard
TabOrder = 5
Visible = False
end
object DBEdit_IfOut: TDBEdit
Left = 200
Top = 242
Width = 81
Height = 22
DataField = '出入标识'
DataSource = DS_InCard
TabOrder = 6
Visible = False
end
object DBEdit_ID: TDBEdit
Left = 24
Top = 240
Width = 81
Height = 22
DataField = '标识号'
DataSource = DS_InCard
TabOrder = 7
Visible = False
end
object DBEdit_LastOutCardFlag: TDBEdit
Left = 112
Top = 240
Width = 81
Height = 22
DataField = '最后领料标识'
DataSource = DS_InCard
TabOrder = 8
Visible = False
end
object DBEdit_IFFirsrtOut: TDBEdit
Left = 152
Top = 280
Width = 81
Height = 22
DataField = '领料标识'
DataSource = DS_InCard
TabOrder = 9
Visible = False
end
object Panel11: TPanel
Left = 17
Top = 9
Width = 485
Height = 29
Caption = ' 宁 波 市 巨 龙 橡 塑 有 限 公 司'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
end
object Tab_InCard: TTable
DatabaseName = 'JL2000'
TableName = '原材料台帐.DB'
Left = 238
Top = 42
end
object DS_InCard: TDataSource
DataSet = Tab_InCard
Left = 262
Top = 58
end
object Qry_Exe: TQuery
DatabaseName = 'JL2000'
Left = 166
Top = 50
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -