📄
字号:
VERSION 5.00
Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Gy_Warehouse
BorderStyle = 3 'Fixed Dialog
Caption = "仓库档案设置"
ClientHeight = 7110
ClientLeft = 45
ClientTop = 330
ClientWidth = 9375
HelpContextID = 2001
Icon = "公用_仓库档案设置.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7110
ScaleWidth = 9375
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin TabDlg.SSTab StTab
Height = 6435
Left = 30
TabIndex = 18
Top = 660
Width = 9330
_ExtentX = 16457
_ExtentY = 11351
_Version = 393216
Style = 1
Tabs = 2
TabHeight = 520
TabCaption(0) = "列表视图"
TabPicture(0) = "公用_仓库档案设置.frx":08CA
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "CzxsGrid"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "单张视图"
TabPicture(1) = "公用_仓库档案设置.frx":08E6
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame1"
Tab(1).ControlCount= 1
Begin VB.Frame Frame1
Height = 6016
Left = -74909
TabIndex = 19
Top = 316
Width = 9135
Begin VB.TextBox LrText
Height = 301
Index = 6
Left = 1290
TabIndex = 6
Text = "5"
Top = 1559
Width = 1739
End
Begin VB.TextBox LrText
Height = 301
Index = 2
Left = 1290
TabIndex = 2
Text = "2"
Top = 781
Width = 1739
End
Begin VB.TextBox LrText
Height = 301
Index = 8
Left = 1290
TabIndex = 13
Text = "7"
Top = 2926
Width = 5131
End
Begin VB.TextBox LrText
Height = 301
Index = 4
Left = 1290
TabIndex = 4
Text = "3"
Top = 1170
Width = 1739
End
Begin VB.TextBox LrText
Height = 301
Index = 0
Left = 1290
TabIndex = 0
Text = "0"
Top = 389
Width = 1739
End
Begin VB.CheckBox LrCheck
Caption = "储备预警"
Height = 225
Index = 2
Left = 1290
TabIndex = 12
Top = 2625
Width = 1935
End
Begin VB.ComboBox Lrcomb
Height = 300
Index = 0
ItemData = "公用_仓库档案设置.frx":0902
Left = 1290
List = "公用_仓库档案设置.frx":0904
Style = 2 'Dropdown List
TabIndex = 8
Top = 1950
Width = 1739
End
Begin VB.CheckBox LrCheck
Caption = "存货核算系统使用"
Height = 225
Index = 0
Left = 1290
TabIndex = 10
Top = 2340
Width = 1935
End
Begin VB.TextBox LrText
Height = 301
Index = 7
Left = 4665
TabIndex = 7
Text = "6"
Top = 1559
Width = 1739
End
Begin VB.CommandButton BcCommand
Caption = "保存(&S)"
Height = 301
Left = 4110
TabIndex = 14
Top = 3510
Width = 1119
End
Begin VB.CommandButton QxCommand
Cancel = -1 'True
Caption = "取消(&C)"
Height = 301
Left = 5300
TabIndex = 15
Top = 3510
Width = 1119
End
Begin VB.CheckBox LrCheck
Caption = "货区管理"
Height = 285
Index = 1
Left = 4665
TabIndex = 11
Top = 2340
Width = 1454
End
Begin VB.TextBox LrText
Height = 301
Index = 1
Left = 4665
TabIndex = 1
Text = "1"
Top = 389
Width = 1739
End
Begin VB.TextBox LrText
Height = 301
Index = 3
Left = 4665
TabIndex = 3
Text = "2"
Top = 781
Width = 1739
End
Begin VB.TextBox LrText
Height = 301
Index = 5
Left = 4665
TabIndex = 5
Text = "4"
Top = 1170
Width = 1739
End
Begin VB.ComboBox Lrcomb
Height = 300
Index = 1
ItemData = "公用_仓库档案设置.frx":0906
Left = 4665
List = "公用_仓库档案设置.frx":0908
Style = 2 'Dropdown List
TabIndex = 9
Top = 1950
Width = 1739
End
Begin VB.CommandButton Ydcommand1
Height = 301
Index = 0
Left = 3465
Picture = "公用_仓库档案设置.frx":090A
Style = 1 'Graphical
TabIndex = 20
Top = 106
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 301
Index = 3
Left = 6376
Picture = "公用_仓库档案设置.frx":0C94
Style = 1 'Graphical
TabIndex = 16
Top = 781
Width = 300
End
Begin VB.Label lblMsg
Caption = "说明：此仓库已被使用，只能修改部分属性!"
ForeColor = &H00FF0000&
Height = 374
Left = 451
TabIndex = 34
Top = 4141
Visible = 0 'False
Width = 3886
End
Begin VB.Label TsLabel
Caption = "资金定额:"
Height = 180
Index = 9
Left = 3825
TabIndex = 33
Top = 1605
Width = 809
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "电话:"
Height = 180
Index = 5
Left = 451
TabIndex = 32
Top = 1605
Width = 451
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "仓库前缀:"
Height = 180
Index = 10
Left = 451
TabIndex = 31
Top = 826
Width = 809
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "属性:"
Height = 180
Index = 2
Left = 451
TabIndex = 28
Top = 2039
Width = 451
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "仓库编码:"
Height = 180
Index = 0
Left = 451
TabIndex = 27
Top = 435
Width = 809
End
Begin VB.Label TsLabel
Caption = "仓库名称:"
Height = 180
Index = 1
Left = 3825
TabIndex = 26
Top = 435
Width = 809
End
Begin VB.Label TsLabel
Caption = "所属部门:"
Height = 180
Index = 3
Left = 3825
TabIndex = 25
Top = 826
Width = 809
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "仓库地址:"
Height = 180
Index = 4
Left = 451
TabIndex = 24
Top = 1215
Width = 809
End
Begin VB.Label TsLabel
Caption = "负责人:"
Height = 180
Index = 6
Left = 3825
TabIndex = 23
Top = 1215
Width = 630
End
Begin VB.Label TsLabel
Caption = "计价方式:"
Height = 180
Index = 7
Left = 3825
TabIndex = 22
Top = 2039
Width = 809
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "备注:"
Height = 180
Index = 8
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -