📄 frmsuppliersae.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid GridStocks
Height = 2310
Left = 150
TabIndex = 51
ToolTipText = "Double item's to view landed cost"
Top = 990
Width = 10245
_ExtentX = 18071
_ExtentY = 4075
_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 MSHierarchicalFlexGridLib.MSHFlexGrid GridBanks
Height = 2280
Left = -74850
TabIndex = 59
Top = 1020
Width = 8955
_ExtentX = 15796
_ExtentY = 4022
_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 nsdBank
Height = 315
Left = -74850
TabIndex = 26
Top = 660
Width = 2250
_ExtentX = 3969
_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 Label1
Caption = "Bank"
Height = 225
Left = -74850
TabIndex = 63
Top = 450
Width = 525
End
Begin VB.Label Label4
Caption = "Account Name"
Height = 255
Left = -68700
TabIndex = 62
Top = 450
Width = 1365
End
Begin VB.Label Label3
Caption = "Acct. No."
Height = 225
Left = -70620
TabIndex = 61
Top = 480
Width = 885
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "Branch"
Height = 225
Left = -72510
TabIndex = 60
Top = 480
Width = 525
End
Begin VB.Label Labels
BackStyle = 0 'Transparent
Caption = "Product"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000011D&
Height = 240
Index = 13
Left = 180
TabIndex = 57
Top = 420
Width = 1515
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Supplier Price"
Height = 240
Index = 9
Left = 7140
TabIndex = 56
Top = 420
Width = 1140
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Ext. Disc in Amt"
Height = 210
Index = 8
Left = 5880
TabIndex = 55
Top = 420
Width = 1140
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Ext. Disc in %"
Height = 240
Index = 14
Left = 4680
TabIndex = 54
Top = 420
Width = 1140
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Ext. Price"
Height = 240
Index = 15
Left = 8370
TabIndex = 53
Top = 420
Width = 1140
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Disc in %"
Height = 240
Index = 16
Left = 3600
TabIndex = 52
Top = 420
Width = 1140
End
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "Freight Payment Period"
Height = 240
Index = 17
Left = 90
TabIndex = 64
Top = 1604
Width = 2115
End
Begin VB.Label Label9
Alignment = 1 'Right Justify
Caption = "Credit Option"
Height = 255
Left = 5130
TabIndex = 49
Top = 2010
Width = 1185
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
Caption = "General Disc (%)"
Height = 255
Left = 5130
TabIndex = 48
Top = 903
Width = 1185
End
Begin VB.Label Label6
Alignment = 1 'Right Justify
Caption = "Credit Limit"
Height = 255
Left = 5130
TabIndex = 47
Top = 1641
Width = 1185
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
Caption = "Credit Term"
Height = 255
Left = 5130
TabIndex = 46
Top = 1272
Width = 1185
End
Begin VB.Label Label7
Caption = "Notes"
Height = 255
Left = 5130
TabIndex = 44
Top = 2340
Width = 1185
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "Fax"
Height = 240
Index = 7
Left = 90
TabIndex = 43
Top = 2316
Width = 2115
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "Cellphone"
Height = 240
Index = 5
Left = 90
TabIndex = 42
Top = 2672
Width = 2115
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "City"
Height = 255
Index = 0
Left = 5130
TabIndex = 41
Top = 534
Width = 1185
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "Location"
Height = 240
Index = 11
Left = 90
TabIndex = 40
Top = 536
Width = 2115
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "Contact Person"
Height = 240
Index = 10
Left = 90
TabIndex = 39
Top = 3390
Width = 2115
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "Owner"
Height = 240
Index = 6
Left = 90
TabIndex = 38
Top = 3028
Width = 2115
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "Tel. No."
Height = 240
Index = 4
Left = 90
TabIndex = 37
Top = 1960
Width = 2115
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "Freight Payment Agreement"
Height = 240
Index = 3
Left = 90
TabIndex = 36
Top = 1248
Width = 2115
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "Mode of Delivery"
Height = 240
Index = 2
Left = 90
TabIndex = 35
Top = 892
Width = 2115
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "Company"
Height = 240
Index = 1
Left = 90
TabIndex = 34
Top = 180
Width = 2115
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "Area Address"
Height = 255
Index = 12
Left = 5130
TabIndex = 33
Top = 165
Width = 1185
End
End
Attribute VB_Name = "frmSuppliersAE"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public State As FormState 'Variable used to determine on how the form used
Public PK As Long 'Variable used to get what record is going to edit
Public srcText As TextBox 'Used in pop-up mode
Public srcTextAdd As TextBox 'Used in pop-up mode -> Display the customer address
Public srcTextCP As TextBox 'Used in pop-up mode -> Display the customer contact person
Public srcTextDisc As Object 'Used in pop-up mode -> Display the customer Discount (can be combo or textbox)
Dim cIRowCountBank As Integer
Dim cIRowCountStock As Integer
Dim HaveAction As Boolean 'Variable used to detect if the user perform some action
Dim rs As New Recordset
Dim blnRemarks As Boolean
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -