📄 frmpurchases_main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmPurchases_Main
BorderStyle = 1 'Fixed Single
Caption = "Purchase Orders Management"
ClientHeight = 5280
ClientLeft = -135
ClientTop = 435
ClientWidth = 9465
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmPurchases_Main.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5280
ScaleWidth = 9465
StartUpPosition = 2 'CenterScreen
Begin VB.CheckBox cash
Caption = "Credit Purchase"
Height = 255
Left = 4320
TabIndex = 7
ToolTipText = "Check this if purchase is done in credit terms"
Top = 3000
Width = 1575
End
Begin VB.Frame Frame1
Height = 1095
Left = 4080
TabIndex = 8
Top = 3000
Width = 3735
Begin VB.TextBox ref
Height = 285
Left = 1080
TabIndex = 10
ToolTipText = "Reference from Supplier."
Top = 720
Width = 1095
End
Begin VB.ComboBox supplier
Height = 315
Left = 1080
Style = 2 'Dropdown List
TabIndex = 9
ToolTipText = "Supplier involved in this credit Purchase Order"
Top = 360
Width = 2535
End
Begin VB.Label Label6
Caption = "Reference:"
Height = 255
Left = 120
TabIndex = 26
Top = 720
Width = 855
End
Begin VB.Label Label3
Caption = "Supplier ID:"
Height = 255
Left = 120
TabIndex = 25
Top = 360
Width = 975
End
End
Begin VB.CommandButton cmdNew
Caption = "&New"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8040
TabIndex = 11
ToolTipText = "Click here to create a new Purchase Order."
Top = 3360
Width = 1335
End
Begin VB.CommandButton cmdClose
Caption = "&Close"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8040
TabIndex = 14
ToolTipText = "Click here to close this window"
Top = 4800
Width = 1335
End
Begin VB.CommandButton cmdEdit
Caption = "&Edit"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8040
TabIndex = 12
ToolTipText = "Click here to edit the current selected Purchase Order"
Top = 3840
Width = 1335
End
Begin VB.CommandButton cmdDelete
Caption = "&Delete"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8040
TabIndex = 13
ToolTipText = "Click here to delete the selected Purchase Order if any."
Top = 4320
Width = 1335
End
Begin VB.ComboBox cmbDate
Height = 315
Index = 2
Left = 2640
Style = 2 'Dropdown List
TabIndex = 4
ToolTipText = "Year."
Top = 3360
Width = 855
End
Begin VB.ComboBox cmbDate
Height = 315
Index = 1
ItemData = "frmPurchases_Main.frx":08CA
Left = 1920
List = "frmPurchases_Main.frx":08F2
Style = 2 'Dropdown List
TabIndex = 3
ToolTipText = "Month."
Top = 3360
Width = 615
End
Begin VB.ComboBox cmbDate
Height = 315
Index = 0
ItemData = "frmPurchases_Main.frx":0926
Left = 1200
List = "frmPurchases_Main.frx":0987
Style = 2 'Dropdown List
TabIndex = 2
ToolTipText = "Day."
Top = 3360
Width = 615
End
Begin VB.TextBox notes
Height = 855
Left = 1200
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 6
ToolTipText = "Remarks made during the creation of the Purchase Order."
Top = 4320
Width = 2535
End
Begin VB.ComboBox employee
Height = 315
Left = 1200
Style = 2 'Dropdown List
TabIndex = 5
ToolTipText = "Employee responsible for this Purchase Order."
Top = 3840
Width = 2535
End
Begin VB.TextBox po
Height = 285
Left = 1200
TabIndex = 1
ToolTipText = "Purchase Order Number."
Top = 3000
Width = 1335
End
Begin MSComctlLib.ListView lvPO
Height = 1935
Left = 120
TabIndex = 0
ToolTipText = "List of Purchase Orders."
Top = 960
Width = 9255
_ExtentX = 16325
_ExtentY = 3413
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
Appearance = 1
NumItems = 0
End
Begin VB.CommandButton cmdSave
Caption = "&Save"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8040
TabIndex = 15
ToolTipText = "Click here to save the changes."
Top = 4320
Width = 1335
End
Begin VB.CommandButton cmdCancel
Caption = "&Cancel"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8040
TabIndex = 16
ToolTipText = "Click here to cancel editing."
Top = 4800
Width = 1335
End
Begin VB.Label lblEmp
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 255
Left = 8760
TabIndex = 24
Top = 3000
Visible = 0 'False
Width = 255
End
Begin VB.Label lblPO
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 255
Left = 9120
TabIndex = 23
Top = 3000
Visible = 0 'False
Width = 255
End
Begin VB.Label lblSupp
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 255
Left = 8400
TabIndex = 22
Top = 3000
Visible = 0 'False
Width = 255
End
Begin VB.Label Label5
Caption = "Remark:"
Height = 255
Left = 120
TabIndex = 21
Top = 4320
Width = 1095
End
Begin VB.Label Label4
Caption = "Issued By:"
Height = 255
Left = 120
TabIndex = 20
Top = 3840
Width = 1095
End
Begin VB.Label Label2
Caption = "Date:"
Height = 255
Left = 120
TabIndex = 19
Top = 3360
Width = 1095
End
Begin VB.Label Label1
Caption = "PO Number:"
Height = 255
Left = 120
TabIndex = 18
Top = 3000
Width = 1095
End
Begin VB.Image Image1
Height = 480
Left = 120
Picture = "frmPurchases_Main.frx":0A07
Top = 120
Width = 480
End
Begin VB.Label lblNotes
BackStyle = 0 'Transparent
Caption = "lblNotes"
ForeColor = &H00FFFFFF&
Height = 615
Left = 840
TabIndex = 17
Top = 120
Width = 8415
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -