📄 frmsuppliersae.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 = "{FF49E21B-EA30-11D9-85DF-812F544F012A}#69.0#0"; "ctrlNSDataCombo.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmSuppliersAE
BorderStyle = 1 'Fixed Single
Caption = "Edit Entry"
ClientHeight = 8085
ClientLeft = 2190
ClientTop = 1335
ClientWidth = 10890
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8085
ScaleWidth = 10890
StartUpPosition = 2 'CenterScreen
Begin VB.ComboBox cboFreightPeriod
Height = 315
ItemData = "frmSuppliersAE.frx":0000
Left = 2310
List = "frmSuppliersAE.frx":000A
Style = 2 'Dropdown List
TabIndex = 4
Top = 1604
Width = 2490
End
Begin VB.ComboBox cboCreditOption
Height = 315
ItemData = "frmSuppliersAE.frx":0021
Left = 6360
List = "frmSuppliersAE.frx":002E
TabIndex = 15
Text = "Upon Order"
Top = 1980
Width = 2265
End
Begin VB.TextBox txtEntry
Alignment = 1 'Right Justify
Height = 285
Index = 15
Left = 6360
TabIndex = 12
Text = "0"
Top = 891
Width = 885
End
Begin VB.TextBox txtEntry
Alignment = 1 'Right Justify
Height = 285
Index = 12
Left = 6360
TabIndex = 13
Text = "0"
Top = 1254
Width = 1245
End
Begin VB.TextBox txtEntry
Alignment = 1 'Right Justify
Height = 285
Index = 13
Left = 6360
TabIndex = 14
Text = "0.00"
Top = 1617
Width = 1245
End
Begin VB.TextBox txtEntry
Height = 1005
Index = 14
Left = 5100
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 16
Top = 2640
Width = 5655
End
Begin VB.TextBox txtEntry
Height = 285
Index = 11
Left = 2310
MaxLength = 100
TabIndex = 6
Top = 2316
Width = 2490
End
Begin VB.TextBox txtEntry
Height = 285
Index = 6
Left = 2310
MaxLength = 100
TabIndex = 7
Top = 2657
Width = 2490
End
Begin VB.TextBox txtEntry
Height = 285
Index = 5
Left = 6360
TabIndex = 11
Top = 528
Width = 2475
End
Begin VB.TextBox txtEntry
Height = 285
Index = 3
Left = 2310
MaxLength = 100
TabIndex = 9
Top = 3345
Width = 2490
End
Begin VB.ComboBox cboFreightAgreement
Height = 315
ItemData = "frmSuppliersAE.frx":005B
Left = 2310
List = "frmSuppliersAE.frx":006E
Style = 2 'Dropdown List
TabIndex = 3
Top = 1233
Width = 2490
End
Begin VB.ComboBox cboDelivery
Height = 315
ItemData = "frmSuppliersAE.frx":00E7
Left = 2310
List = "frmSuppliersAE.frx":00F1
Style = 2 'Dropdown List
TabIndex = 2
Top = 862
Width = 2490
End
Begin VB.CommandButton cmdUsrHistory
Caption = "&Modification History"
Height = 315
Left = 180
TabIndex = 31
Top = 7650
Width = 1680
End
Begin VB.TextBox txtEntry
Height = 285
Index = 2
Left = 2310
MaxLength = 100
TabIndex = 8
Top = 2998
Width = 2490
End
Begin VB.TextBox txtEntry
Height = 285
Index = 1
Left = 2310
MaxLength = 100
TabIndex = 5
Top = 1975
Width = 2490
End
Begin VB.TextBox txtEntry
Height = 285
Index = 0
Left = 2310
MaxLength = 100
TabIndex = 0
Tag = "Company"
Top = 150
Width = 2520
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Height = 315
Left = 9285
TabIndex = 25
Top = 7680
Width = 1335
End
Begin VB.CommandButton cmdSave
Caption = "&Save"
Default = -1 'True
Height = 315
Left = 7830
TabIndex = 24
Top = 7680
Width = 1335
End
Begin VB.TextBox txtEntry
Height = 285
Index = 4
Left = 6360
TabIndex = 10
Top = 165
Width = 2475
End
Begin Inventory.ctrlLiner ctrlLiner1
Height = 30
Left = 150
TabIndex = 32
Top = 7545
Width = 10485
_ExtentX = 18494
_ExtentY = 53
End
Begin MSDataListLib.DataCombo dcLocation
Height = 315
Left = 2310
TabIndex = 1
Top = 491
Width = 2490
_ExtentX = 4392
_ExtentY = 556
_Version = 393216
Style = 2
BackColor = -2147483643
ForeColor = -2147483640
Text = ""
End
Begin TabDlg.SSTab SSTab1
Height = 3525
Left = 210
TabIndex = 45
Top = 3870
Width = 10545
_ExtentX = 18600
_ExtentY = 6218
_Version = 393216
Style = 1
Tabs = 2
TabHeight = 520
TabCaption(0) = "Products"
TabPicture(0) = "frmSuppliersAE.frx":0108
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Labels(16)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Labels(15)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Labels(14)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Labels(8)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Labels(9)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Labels(13)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "GridStocks"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "nsdStock"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "txtDiscPercent"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "txtExtPrice"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "btnRemoveStock"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "txtExtDiscPercent"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "txtExtDiscAmount"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "txtUnitPrice"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "cmdAddStock"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).ControlCount= 15
TabCaption(1) = "Banks"
TabPicture(1) = "frmSuppliersAE.frx":0124
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label2"
Tab(1).Control(1)= "Label3"
Tab(1).Control(2)= "Label4"
Tab(1).Control(3)= "Label1"
Tab(1).Control(4)= "nsdBank"
Tab(1).Control(5)= "GridBanks"
Tab(1).Control(6)= "txtAcctNo"
Tab(1).Control(7)= "txtAcctName"
Tab(1).Control(8)= "btnAddBank"
Tab(1).Control(9)= "txtBranch"
Tab(1).Control(10)= "btnRemoveBank"
Tab(1).ControlCount= 11
Begin VB.CommandButton btnRemoveBank
Height = 275
Left = -74790
Picture = "frmSuppliersAE.frx":0140
Style = 1 'Graphical
TabIndex = 58
ToolTipText = "Remove"
Top = 1140
Visible = 0 'False
Width = 275
End
Begin VB.TextBox txtBranch
Height = 285
Left = -72540
Locked = -1 'True
TabIndex = 27
Top = 690
Width = 1875
End
Begin VB.CommandButton btnAddBank
Caption = "Add"
Height = 315
Left = -66690
TabIndex = 30
Top = 660
Width = 765
End
Begin VB.TextBox txtAcctName
Height = 285
Left = -68700
TabIndex = 29
Top = 690
Width = 1965
End
Begin VB.TextBox txtAcctNo
Height = 285
Left = -70620
TabIndex = 28
Top = 690
Width = 1875
End
Begin VB.CommandButton cmdAddStock
Caption = "Add"
Height = 315
Left = 9570
TabIndex = 23
Top = 630
Width = 840
End
Begin VB.TextBox txtUnitPrice
Alignment = 1 'Right Justify
Height = 285
Left = 7110
TabIndex = 21
Text = "0.00"
Top = 660
Width = 1185
End
Begin VB.TextBox txtExtDiscAmount
Alignment = 1 'Right Justify
Height = 285
Left = 5880
TabIndex = 20
Text = "0.00"
Top = 660
Width = 1185
End
Begin VB.TextBox txtExtDiscPercent
Alignment = 1 'Right Justify
Height = 285
Left = 4800
TabIndex = 19
Text = "0.00"
Top = 660
Width = 1035
End
Begin VB.CommandButton btnRemoveStock
Height = 275
Left = 210
Picture = "frmSuppliersAE.frx":02F2
Style = 1 'Graphical
TabIndex = 50
ToolTipText = "Remove"
Top = 1140
Visible = 0 'False
Width = 275
End
Begin VB.TextBox txtExtPrice
Alignment = 1 'Right Justify
Height = 285
Left = 8340
TabIndex = 22
Text = "0.00"
Top = 660
Width = 1185
End
Begin VB.TextBox txtDiscPercent
Alignment = 1 'Right Justify
Height = 285
Left = 3720
TabIndex = 18
Text = "0.00"
Top = 660
Width = 1035
End
Begin ctrlNSDataCombo.NSDataCombo nsdStock
Height = 315
Left = 150
TabIndex = 17
Top = 630
Width = 3540
_ExtentX = 6244
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -