📄 frmdelivery_main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmDelivery_Main
BorderStyle = 1 'Fixed Single
Caption = "Delivery Orders Management"
ClientHeight = 8310
ClientLeft = 45
ClientTop = 345
ClientWidth = 11970
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmDelivery_Main.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8310
ScaleWidth = 11970
Begin MSComDlg.CommonDialog cdlg
Left = 5400
Top = 240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
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 = 10680
TabIndex = 19
Top = 7320
Width = 1215
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 = 10680
TabIndex = 17
Top = 6360
Width = 1215
End
Begin VB.TextBox notes
Height = 285
Left = 5520
MaxLength = 50
TabIndex = 16
Top = 7920
Width = 5055
End
Begin VB.TextBox charges
Height = 285
Left = 5520
MaxLength = 12
TabIndex = 15
Text = "0.00"
Top = 7440
Width = 1095
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 = 10680
TabIndex = 20
ToolTipText = "Click here to close this window."
Top = 7800
Width = 1215
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 = 10680
TabIndex = 18
ToolTipText = "Click here to edit the selected Delivery Order."
Top = 6840
Width = 1215
End
Begin VB.CommandButton cmdFilter
Caption = "&Filter"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3480
TabIndex = 26
Top = 960
Width = 1095
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 = 10680
TabIndex = 22
ToolTipText = "Click here to cancel editing."
Top = 7800
Width = 1215
End
Begin VB.ComboBox employee
Appearance = 0 'Flat
Height = 315
Index = 0
Left = 5520
Style = 2 'Dropdown List
TabIndex = 1
Top = 5520
Width = 2055
End
Begin VB.ComboBox employee
Appearance = 0 'Flat
Height = 315
Index = 1
Left = 5520
Style = 2 'Dropdown List
TabIndex = 5
Top = 6000
Width = 2055
End
Begin VB.ComboBox cmbDate
Height = 315
Index = 0
ItemData = "frmDelivery_Main.frx":08CA
Left = 1200
List = "frmDelivery_Main.frx":092B
Style = 2 'Dropdown List
TabIndex = 2
Top = 6000
Width = 615
End
Begin VB.ComboBox cmbDate
Height = 315
Index = 1
ItemData = "frmDelivery_Main.frx":09AB
Left = 1920
List = "frmDelivery_Main.frx":09D3
Style = 2 'Dropdown List
TabIndex = 3
ToolTipText = "Month"
Top = 6000
Width = 615
End
Begin VB.ComboBox cmbDate
Height = 315
Index = 2
Left = 2640
Style = 2 'Dropdown List
TabIndex = 4
Top = 6000
Width = 855
End
Begin VB.ComboBox customer
Appearance = 0 'Flat
Height = 315
Left = 1200
Style = 2 'Dropdown List
TabIndex = 6
Top = 6480
Width = 3015
End
Begin VB.TextBox txtPO
Height = 285
Left = 1200
MaxLength = 20
TabIndex = 10
Top = 6960
Width = 2055
End
Begin VB.TextBox txtAttn
Height = 285
Left = 1200
MaxLength = 30
TabIndex = 13
Top = 7440
Width = 2055
End
Begin VB.TextBox txtREM
Height = 285
Left = 1200
MaxLength = 30
TabIndex = 14
Top = 7920
Width = 2055
End
Begin VB.ComboBox cmbDelDate
Appearance = 0 'Flat
Height = 315
Index = 0
ItemData = "frmDelivery_Main.frx":0A07
Left = 5520
List = "frmDelivery_Main.frx":0A68
Style = 2 'Dropdown List
TabIndex = 7
Top = 6480
Width = 615
End
Begin VB.ComboBox cmbDelDate
Appearance = 0 'Flat
Height = 315
Index = 1
ItemData = "frmDelivery_Main.frx":0AE8
Left = 6240
List = "frmDelivery_Main.frx":0B10
Style = 2 'Dropdown List
TabIndex = 8
ToolTipText = "Month"
Top = 6480
Width = 615
End
Begin VB.ComboBox cmbDelDate
Appearance = 0 'Flat
Height = 315
Index = 2
Left = 6960
Style = 2 'Dropdown List
TabIndex = 9
Top = 6480
Width = 855
End
Begin VB.ComboBox cmbDelTime
Appearance = 0 'Flat
Height = 315
Index = 0
ItemData = "frmDelivery_Main.frx":0B44
Left = 5520
List = "frmDelivery_Main.frx":0B90
Style = 2 'Dropdown List
TabIndex = 11
Top = 6960
Width = 615
End
Begin VB.ComboBox cmbDelTime
Appearance = 0 'Flat
Height = 315
Index = 1
ItemData = "frmDelivery_Main.frx":0BF4
Left = 6240
List = "frmDelivery_Main.frx":0C04
Style = 2 'Dropdown List
TabIndex = 12
Top = 6960
Width = 615
End
Begin VB.TextBox doNum
Height = 285
Left = 1200
MaxLength = 10
TabIndex = 0
Top = 5520
Width = 1455
End
Begin VB.ComboBox filter
Height = 315
Index = 0
ItemData = "frmDelivery_Main.frx":0C18
Left = 1200
List = "frmDelivery_Main.frx":0C7C
Style = 2 'Dropdown List
TabIndex = 23
Top = 960
Width = 615
End
Begin VB.ComboBox filter
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -