📄 frmproductsae.frm
字号:
VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{FF49E21B-EA30-11D9-85DF-812F544F012A}#69.0#0"; "ctrlNSDataCombo.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmProductsAE
BorderStyle = 1 'Fixed Single
Caption = "Edit Entry"
ClientHeight = 7410
ClientLeft = 1365
ClientTop = 2085
ClientWidth = 10275
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7410
ScaleWidth = 10275
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox txtEntry
Alignment = 1 'Right Justify
Height = 285
Index = 6
Left = 1500
MaxLength = 20
TabIndex = 6
Top = 2040
Width = 1320
End
Begin TabDlg.SSTab SSTab1
Height = 3495
Left = 210
TabIndex = 30
Top = 3210
Width = 9885
_ExtentX = 17436
_ExtentY = 6165
_Version = 393216
Style = 1
Tabs = 2
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "Product Measures"
TabPicture(0) = "frmProductsAE.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label6"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label5"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label3"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label2"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label1"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label7"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label8"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label9"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "nsdUnit"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Grid"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "txtSalesPrice"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "btnRemove"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "txtOrder"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "txtOnHand"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "cmdAdd"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "txtQty"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "txtSupplierPrice"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "txtPending"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "txtIncoming"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "cmdAdjust"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).ControlCount= 20
TabCaption(1) = "Price History"
TabPicture(1) = "frmProductsAE.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "lvPriceHistory"
Tab(1).ControlCount= 1
Begin VB.CommandButton cmdAdjust
Caption = "Adjust"
Height = 315
Left = 8100
TabIndex = 43
Top = 690
Width = 615
End
Begin VB.TextBox txtIncoming
Alignment = 1 'Right Justify
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 5910
MaxLength = 10
TabIndex = 15
Text = "0"
Top = 690
Width = 720
End
Begin VB.TextBox txtPending
Alignment = 1 'Right Justify
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 5130
MaxLength = 10
TabIndex = 14
Text = "0"
Top = 690
Width = 720
End
Begin VB.TextBox txtSupplierPrice
Alignment = 1 'Right Justify
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3870
MaxLength = 10
TabIndex = 13
Text = "0.00"
Top = 690
Width = 1200
End
Begin VB.TextBox txtQty
Alignment = 1 'Right Justify
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 780
MaxLength = 10
TabIndex = 10
Top = 690
Width = 540
End
Begin VB.CommandButton cmdAdd
Caption = "Add"
Height = 315
Left = 7500
TabIndex = 17
Top = 690
Width = 495
End
Begin VB.TextBox txtOnHand
Alignment = 1 'Right Justify
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 6720
MaxLength = 10
TabIndex = 16
Text = "0"
Top = 690
Width = 720
End
Begin VB.TextBox txtOrder
Height = 315
Left = 150
TabIndex = 9
Top = 690
Width = 585
End
Begin VB.CommandButton btnRemove
Height = 275
Left = 210
Picture = "frmProductsAE.frx":0038
Style = 1 'Graphical
TabIndex = 32
ToolTipText = "Remove"
Top = 1200
Visible = 0 'False
Width = 275
End
Begin VB.TextBox txtSalesPrice
Alignment = 1 'Right Justify
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2850
MaxLength = 10
TabIndex = 12
Text = "0.00"
Top = 690
Width = 960
End
Begin MSComctlLib.ListView lvPriceHistory
Height = 2895
Left = -74880
TabIndex = 31
Top = 450
Width = 9615
_ExtentX = 16960
_ExtentY = 5106
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 4
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Object.Width = 0
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "Date"
Object.Width = 2196
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "Supplier"
Object.Width = 10769
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 3
Text = "Price"
Object.Width = 2540
EndProperty
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid Grid
Height = 2220
Left = 150
TabIndex = 33
Top = 1080
Width = 8565
_ExtentX = 15108
_ExtentY = 3916
_Version = 393216
Rows = 0
FixedRows = 0
FixedCols = 0
RowHeightMin = 275
ForeColorFixed = -2147483640
BackColorSel = 1091552
ForeColorSel = 16777215
BackColorBkg = -2147483643
GridColor = -2147483633
GridColorFixed = -2147483633
GridColorUnpopulated= -2147483633
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_NumberOfBands = 1
_Band(0).Cols = 2
_Band(0).GridLinesBand= 1
_Band(0).TextStyleBand= 0
_Band(0).TextStyleHeader= 0
End
Begin ctrlNSDataCombo.NSDataCombo nsdUnit
Height = 315
Left = 1380
TabIndex = 11
Top = 690
Width = 1440
_ExtentX = 2540
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label9
Alignment = 1 'Right Justify
Caption = "Incoming"
Height = 255
Left = 5910
TabIndex = 41
Top = 420
Width = 675
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
Caption = "Pending"
Height = 255
Left = 5130
TabIndex = 40
Top = 420
Width = 675
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
Caption = "Supplier Price"
Height = 255
Left = 3870
TabIndex = 39
Top = 420
Width = 1185
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "Qty"
Height = 285
Left = 810
TabIndex = 38
Top = 420
Width = 435
End
Begin VB.Label Label2
Caption = "Unit"
Height = 285
Left = 1410
TabIndex = 37
Top = 420
Width = 705
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "On-Hand"
Height = 255
Left = 6690
TabIndex = 36
Top = 420
Width = 675
End
Begin VB.Label Label5
Caption = "Order"
Height = 255
Left = 180
TabIndex = 35
Top = 420
Width = 555
End
Begin VB.Label Label6
Alignment = 1 'Right Justify
Caption = "Sales Price"
Height = 255
Left = 2850
TabIndex = 34
Top = 420
Width = 945
End
End
Begin VB.ComboBox cboStatus
Height = 315
ItemData = "frmProductsAE.frx":01EA
Left = 1500
List = "frmProductsAE.frx":01F7
Style = 2 'Dropdown List
TabIndex = 8
Top = 2760
Width = 1335
End
Begin VB.CommandButton cmdUsrHistory
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -