📄 editpd.frm
字号:
VERSION 5.00
Object = "{097F6A0C-0018-11D9-BA52-000D87CBA130}#1.0#0"; "TextEx.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form EditPd
Caption = "修改派车单"
ClientHeight = 6990
ClientLeft = 60
ClientTop = 405
ClientWidth = 8850
Icon = "EditPd.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6990
ScaleWidth = 8850
WindowState = 2 'Maximized
Begin VB.TextBox Text2
Height = 300
Left = 1440
TabIndex = 64
Top = 6480
Width = 2295
End
Begin VB.TextBox Text1
Height = 300
Left = 5400
TabIndex = 63
Top = 6000
Width = 2655
End
Begin VB.CommandButton Command4
Caption = "改"
Height = 375
Left = 8160
TabIndex = 60
Top = 5400
Width = 495
End
Begin VB.CommandButton Command5
Caption = "删"
Height = 375
Left = 8160
TabIndex = 59
Top = 4920
Width = 495
End
Begin VB.CommandButton Command6
Caption = "增"
Height = 375
Left = 8160
TabIndex = 58
Top = 4440
Width = 495
End
Begin VB.TextBox p1
Height = 300
Index = 5
Left = 6120
TabIndex = 57
Top = 4440
Width = 1935
End
Begin VB.TextBox p1
Alignment = 1 'Right Justify
Height = 300
Index = 4
Left = 4800
TabIndex = 56
Top = 4440
Width = 1215
End
Begin VB.TextBox p1
Alignment = 1 'Right Justify
Height = 300
Index = 3
Left = 3480
TabIndex = 55
Top = 4440
Width = 1215
End
Begin VB.TextBox p1
Alignment = 1 'Right Justify
Height = 300
Index = 2
Left = 2520
TabIndex = 54
Top = 4440
Width = 855
End
Begin VB.TextBox p1
Height = 300
Index = 1
Left = 1560
TabIndex = 53
Top = 4440
Width = 855
End
Begin VB.TextBox p1
Height = 300
Index = 0
Left = 120
TabIndex = 52
Top = 4440
Width = 1335
End
Begin VB.CommandButton Command3
Caption = "改"
Height = 375
Left = 8160
TabIndex = 47
Top = 3120
Width = 495
End
Begin VB.CommandButton Command2
Caption = "删"
Height = 375
Left = 8160
TabIndex = 46
Top = 2640
Width = 495
End
Begin VB.CommandButton Command1
Caption = "增"
Height = 375
Left = 8160
TabIndex = 45
Top = 2160
Width = 495
End
Begin VB.TextBox h1
Height = 300
Index = 7
Left = 6960
TabIndex = 44
Top = 2160
Width = 1095
End
Begin VB.TextBox h1
Height = 300
Index = 6
Left = 5760
TabIndex = 43
Top = 2160
Width = 1095
End
Begin VB.TextBox h1
Alignment = 1 'Right Justify
Height = 300
Index = 5
Left = 4800
TabIndex = 42
Top = 2160
Width = 855
End
Begin VB.TextBox h1
Alignment = 1 'Right Justify
Height = 300
Index = 4
Left = 3720
TabIndex = 41
Top = 2160
Width = 975
End
Begin VB.TextBox h1
Alignment = 1 'Right Justify
Height = 300
Index = 3
Left = 2880
TabIndex = 40
Top = 2160
Width = 735
End
Begin VB.TextBox h1
Alignment = 1 'Right Justify
Height = 300
Index = 2
Left = 2160
TabIndex = 39
Top = 2160
Width = 615
End
Begin VB.TextBox h1
Height = 300
Index = 1
Left = 1440
TabIndex = 38
Top = 2160
Width = 615
End
Begin VB.TextBox h1
Height = 300
Index = 0
Left = 120
TabIndex = 37
Top = 2160
Width = 1215
End
Begin VB.Frame Frame1
Caption = "基本信息"
Height = 1455
Left = 120
TabIndex = 5
Top = 360
Width = 7935
Begin VB.TextBox VbTextEx4
Height = 300
Left = 1080
TabIndex = 34
Top = 660
Width = 6735
End
Begin VB.TextBox VbTextEx2
Height = 300
Left = 3360
TabIndex = 32
Top = 300
Width = 1695
End
Begin TextEx.VbTextEx VbTextEx1
Height = 300
Left = 1080
TabIndex = 31
Top = 300
Width = 1455
_ExtentX = 2566
_ExtentY = 529
AllowedKeys = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
AutoSelectAll = -1 'True
End
Begin TextEx.VbTextEx VbTextEx3
Height = 300
Left = 6120
TabIndex = 33
Top = 300
Width = 1695
_ExtentX = 2990
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin TextEx.VbTextEx VbTextEx5
Height = 300
Left = 1080
TabIndex = 35
Top = 1020
Width = 3975
_ExtentX = 7011
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin TextEx.VbTextEx VbTextEx6
Height = 300
Left = 6120
TabIndex = 36
Top = 1020
Width = 1695
_ExtentX = 2990
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "发货日期："
Height = 180
Left = 120
TabIndex = 11
Top = 360
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "承运人："
Height = 180
Left = 2640
TabIndex = 10
Top = 360
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "车 号："
Height = 180
Left = 5160
TabIndex = 9
Top = 360
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "收货单位："
Height = 180
Left = 120
TabIndex = 8
Top = 720
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "仓库地址："
Height = 180
Left = 120
TabIndex = 7
Top = 1080
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "收货电话："
Height = 180
Left = 5160
TabIndex = 6
Top = 1080
Width = 900
End
End
Begin VB.CommandButton Command7
Caption = "保存"
Height = 375
Left = 4200
TabIndex = 4
Top = 6480
Width = 1215
End
Begin VB.CommandButton Command9
Caption = "派单打印"
Height = 375
Left = 5520
TabIndex = 3
Top = 6480
Width = 1215
End
Begin VB.CommandButton Command8
Caption = "退回"
Height = 375
Left = 6840
TabIndex = 2
Top = 6480
Width = 1215
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSG1
Height = 1215
Left = 120
TabIndex = 48
Top = 2520
Width = 7935
_ExtentX = 13996
_ExtentY = 2143
_Version = 393216
FillStyle = 1
SelectionMode = 2
AllowUserResizing= 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin TextEx.VbTextEx hssum
Height = 300
Left = 1560
TabIndex = 50
Top = 3840
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -