📄 frmpurchaseorderae.frm
字号:
BackColor = &H00E6FFFF&
ForeColor = &H00000000&
Height = 285
Left = 10410
Locked = -1 'True
TabIndex = 29
TabStop = 0 'False
Text = "0.00"
Top = 7680
Width = 1425
End
Begin VB.TextBox txtTaxBase
Alignment = 1 'Right Justify
BackColor = &H00E6FFFF&
Height = 285
Left = 10410
TabIndex = 27
TabStop = 0 'False
Top = 6930
Visible = 0 'False
Width = 1425
End
Begin VB.TextBox txtVat
Alignment = 1 'Right Justify
BackColor = &H00E6FFFF&
Height = 285
Left = 10410
TabIndex = 28
TabStop = 0 'False
Top = 7230
Visible = 0 'False
Width = 1425
End
Begin Inventory.ctrlLiner ctrlLiner1
Height = 30
Left = 150
TabIndex = 31
Top = 8100
Width = 11670
_ExtentX = 20585
_ExtentY = 53
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid Grid
Height = 2640
Left = 150
TabIndex = 32
Top = 3660
Width = 11685
_ExtentX = 20611
_ExtentY = 4657
_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 nsdVendor
Height = 315
Left = 1770
TabIndex = 1
Top = 1050
Width = 3690
_ExtentX = 6509
_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.CommandButton cmdSave
Caption = "Save"
Height = 315
Left = 9090
TabIndex = 20
Top = 8250
Width = 1335
End
Begin MSComCtl2.DTPicker dtpDate
Height = 285
Left = 6900
TabIndex = 5
Top = 720
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
CustomFormat = "MMM-dd-yyyy"
Format = 44630019
CurrentDate = 38207
End
Begin VB.TextBox txtDate
Height = 285
Left = 6900
Locked = -1 'True
TabIndex = 22
Top = 720
Visible = 0 'False
Width = 1455
End
Begin MSComCtl2.DTPicker dtpDeliveryDate
Height = 285
Left = 6900
TabIndex = 8
Top = 1770
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
CustomFormat = "MMM-dd-yyyy"
Format = 44630019
CurrentDate = 38207
End
Begin VB.TextBox txtDeliveryDate
Height = 285
Left = 6900
TabIndex = 62
Top = 1770
Visible = 0 'False
Width = 1455
End
Begin VB.Label Label17
Alignment = 1 'Right Justify
Caption = "Credit Term"
Height = 255
Left = 5520
TabIndex = 63
Top = 1410
Width = 1305
End
Begin VB.Label Label14
Alignment = 1 'Right Justify
Caption = "Delivery Time"
Height = 285
Left = 5550
TabIndex = 61
Top = 2130
Width = 1275
End
Begin VB.Label Label13
Alignment = 1 'Right Justify
Caption = "Delivery Date"
Height = 285
Left = 5550
TabIndex = 60
Top = 1770
Width = 1275
End
Begin VB.Label Label12
Alignment = 1 'Right Justify
Caption = "Status"
Height = 255
Left = 8940
TabIndex = 59
Top = 2130
Width = 1275
End
Begin VB.Shape Shape4
BorderColor = &H80000006&
BorderWidth = 2
Height = 8715
Left = 60
Top = 60
Width = 11955
End
Begin VB.Shape Shape1
Height = 8055
Left = 120
Top = 600
Width = 11805
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
Caption = "General Disc (%)"
Height = 255
Left = 420
TabIndex = 56
Top = 2130
Width = 1305
End
Begin VB.Label Label6
Alignment = 1 'Right Justify
Caption = "Contact"
Height = 225
Left = 180
TabIndex = 55
Top = 1770
Width = 1545
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "Local Purchase Details"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000014&
Height = 210
Left = 210
TabIndex = 43
Top = 3360
Width = 4365
End
Begin VB.Label lblTitle
BackStyle = 0 'Transparent
Caption = "Purchase Order"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 240
TabIndex = 41
Top = 150
Width = 4905
End
Begin VB.Label Label16
Alignment = 1 'Right Justify
Caption = "Salesman"
Height = 225
Left = 180
TabIndex = 54
Top = 1440
Width = 1545
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "PO Date"
Height = 285
Index = 1
Left = 5550
TabIndex = 53
Top = 705
Width = 1275
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "Supplier"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 0
Left = 180
TabIndex = 52
Top = 1080
Width = 1545
End
Begin VB.Label Label15
Alignment = 1 'Right Justify
Caption = "Location"
Height = 285
Left = 5550
TabIndex = 51
Top = 1035
Width = 1275
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "PO No."
Height = 225
Left = 180
TabIndex = 50
Top = 750
Width = 1545
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
Caption = "Discount"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000011D&
Height = 240
Left = 8310
TabIndex = 49
Top = 6660
Width = 2040
End
Begin VB.Label Labels
Caption = "Notes"
Height = 240
Index = 4
Left = 150
TabIndex = 48
Top = 6630
Width = 990
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "Gross"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000011D&
Height = 240
Left = 8310
TabIndex = 47
Top = 6360
Width = 2040
End
Begin VB.Line Line2
BorderColor = &H80000014&
Index = 1
X1 = 180
X2 = 11850
Y1 = 2550
Y2 = 2550
End
Begin VB.Line Line1
BorderColor = &H80000010&
BorderWidth = 2
Index = 1
X1 = 180
X2 = 11850
Y1 = 2580
Y2 = 2580
End
Begin VB.Label Label9
Alignment = 1 'Right Justify
Caption = "Net"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -