?? frmmerchitem.frm
字號:
VERSION 5.00
Begin VB.Form frmMerchItem
BorderStyle = 3 'Fixed Dialog
Caption = "添加商品"
ClientHeight = 5655
ClientLeft = 45
ClientTop = 330
ClientWidth = 3045
Icon = "frmMerchItem.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 377
ScaleMode = 3 'Pixel
ScaleWidth = 203
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.CheckBox ChCX
Caption = "促銷"
Height = 300
Left = 240
TabIndex = 8
Top = 3480
Width = 720
End
Begin VB.CheckBox Ch1
Caption = "允許銷售"
Height = 255
Left = 240
TabIndex = 6
Top = 3120
Value = 1 'Checked
Width = 1095
End
Begin VB.CheckBox Ch2
Caption = "允許打折"
Height = 255
Left = 1440
TabIndex = 7
Top = 3120
Value = 1 'Checked
Width = 1095
End
Begin MySuperMarket.FTextBox txtPrice
Height = 300
Left = 960
TabIndex = 2
Top = 900
Width = 1935
_extentx = 3413
_extenty = 529
font = "frmMerchItem.frx":000C
fontname = "宋體"
fontsize = 9
text = "0"
autoselall = -1 'True
isnumber = -1 'True
maxlength = 10
End
Begin MySuperMarket.FCombo cboProvide
Height = 300
Left = 960
TabIndex = 11
TabStop = 0 'False
Top = 2340
Width = 1935
_extentx = 3413
_extenty = 529
font = "frmMerchItem.frx":0030
listindex = -1
enabledtext = 0 'False
enabledtext = 0 'False
End
Begin MySuperMarket.FCombo cboFactory
Height = 300
Left = 960
TabIndex = 12
TabStop = 0 'False
Top = 1980
Width = 1935
_extentx = 3413
_extenty = 529
font = "frmMerchItem.frx":0054
listindex = -1
enabledtext = 0 'False
enabledtext = 0 'False
End
Begin MySuperMarket.FTextBox txtBarCode
Height = 300
Left = 960
TabIndex = 0
Top = 180
Width = 1935
_extentx = 3413
_extenty = 529
font = "frmMerchItem.frx":0078
fontname = "宋體"
fontsize = 9
autoselall = -1 'True
End
Begin MySuperMarket.FTextBox txtName
Height = 300
Left = 960
TabIndex = 1
Top = 540
Width = 1935
_extentx = 3413
_extenty = 529
font = "frmMerchItem.frx":009C
fontname = "宋體"
fontsize = 9
autoselall = -1 'True
End
Begin MySuperMarket.FTextBox txtCautionNum
Height = 300
Left = 960
TabIndex = 4
Top = 1620
Width = 1935
_extentx = 3413
_extenty = 529
font = "frmMerchItem.frx":00C0
fontname = "宋體"
fontsize = 9
text = "0"
autoselall = -1 'True
isnumber = -1 'True
maxlength = 8
afterdecimal = 0
End
Begin MySuperMarket.FTextBox txtMerchNum
Height = 300
Left = 960
TabIndex = 3
Top = 1260
Width = 1935
_extentx = 3413
_extenty = 529
font = "frmMerchItem.frx":00E4
fontname = "宋體"
fontsize = 9
text = "0"
autoselall = -1 'True
isnumber = -1 'True
maxlength = 8
afterdecimal = 0
End
Begin MySuperMarket.XPButton cmdExit
Cancel = -1 'True
Height = 345
Left = 1800
TabIndex = 10
Top = 5160
Width = 1095
_extentx = 1931
_extenty = 609
caption = "取消"
capalign = 2
backstyle = 2
font = "frmMerchItem.frx":0108
mode = 0
value = 0 'False
cback = -2147483633
End
Begin MySuperMarket.XPButton cmdOK
Height = 345
Left = 600
TabIndex = 9
Top = 5160
Width = 1095
_extentx = 1931
_extenty = 609
caption = "確定"
capalign = 2
backstyle = 2
font = "frmMerchItem.frx":012C
mode = 0
value = 0 'False
enabled = 0 'False
cback = -2147483633
End
Begin VB.Frame Frame1
Enabled = 0 'False
Height = 1410
Left = 360
TabIndex = 20
Top = 3600
Width = 2535
Begin MySuperMarket.FTextBox txtDateS
Height = 300
Left = 840
TabIndex = 22
Top = 600
Width = 1515
_extentx = 2672
_extenty = 529
font = "frmMerchItem.frx":0154
fontname = "宋體"
fontsize = 9
autoselall = -1 'True
End
Begin MySuperMarket.FTextBox txtSPrice
Height = 300
Left = 840
TabIndex = 21
Top = 240
Width = 1515
_extentx = 2672
_extenty = 529
font = "frmMerchItem.frx":0178
fontname = "宋體"
fontsize = 9
autoselall = -1 'True
isnumber = -1 'True
maxlength = 10
End
Begin MySuperMarket.FTextBox txtDateE
Height = 300
Left = 840
TabIndex = 24
Top = 960
Width = 1515
_extentx = 2672
_extenty = 529
font = "frmMerchItem.frx":019C
fontname = "宋體"
fontsize = 9
autoselall = -1 'True
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "價 格:"
Height = 180
Left = 120
TabIndex = 26
Top = 300
Width = 630
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "起日期:"
Height = 180
Left = 120
TabIndex = 25
Top = 660
Width = 630
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "止日期:"
Height = 180
Left = 120
TabIndex = 23
Top = 1020
Width = 630
End
End
Begin MySuperMarket.FTextBox txtPlanNum
Height = 300
Left = 1320
TabIndex = 5
Top = 2700
Width = 1575
_extentx = 2778
_extenty = 529
font = "frmMerchItem.frx":01C0
fontname = "宋體"
fontsize = 9
text = "10"
autoselall = -1 'True
isnumber = -1 'True
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -