📄 frmorder.frm
字号:
Left = 465
ScaleHeight = 5895
ScaleWidth = 11310
TabIndex = 24
Top = 480
Visible = 0 'False
Width = 11370
Begin VB.PictureBox picTool
BackColor = &H80000004&
BorderStyle = 0 'None
Height = 495
Left = -15
ScaleHeight = 495
ScaleWidth = 11280
TabIndex = 26
Top = 4710
Width = 11280
Begin VB.CommandButton Command6
Caption = "新建(&N)"
Height = 390
Left = 7740
TabIndex = 57
Top = 30
Width = 1260
End
Begin VB.CommandButton cmdExit
BackColor = &H00FFFFFF&
Caption = "返回(&R)"
Height = 390
Left = 9345
MaskColor = &H00FFFFFF&
TabIndex = 30
Top = 30
Width = 1230
End
Begin VB.CommandButton Command1
Caption = "查找(&S)"
Enabled = 0 'False
Height = 390
Left = 5055
TabIndex = 29
Top = 30
Width = 1260
End
Begin VB.CommandButton Command2
Caption = "目录(&B)"
Height = 390
Left = 6405
TabIndex = 27
Top = 30
Width = 1260
End
Begin 给出焦点文本框.FocusText txtSearch
Height = 315
Left = 1500
TabIndex = 28
Top = 60
Width = 3435
_ExtentX = 6059
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotBackColor = 16777215
GotForeColor = 12582912
LostBackColor = 14737632
LostForeColor = 12582912
PreControl = "Grid1"
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "供应商姓名:"
Height = 180
Index = 8
Left = 315
TabIndex = 25
Top = 105
Width = 990
End
End
Begin MSFlexGridLib.MSFlexGrid Grid2
Height = 3825
Left = 120
TabIndex = 4
Top = 165
Width = 5130
_ExtentX = 9049
_ExtentY = 6747
_Version = 393216
BackColorSel = 14737632
ForeColorSel = 192
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 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
End
End
Begin VB.PictureBox picOperator
BackColor = &H8000000A&
Height = 6060
Left = 615
ScaleHeight = 6000
ScaleWidth = 11745
TabIndex = 9
Top = 1305
Width = 11805
Begin VB.CommandButton cmdSelect
Caption = "&B"
Height = 270
Left = 4365
TabIndex = 2
Top = 360
Visible = 0 'False
Width = 330
End
Begin 给出焦点文本框.FocusText txtEdit
Height = 315
Left = 2910
TabIndex = 1
Top = 345
Visible = 0 'False
Width = 1875
_ExtentX = 3307
_ExtentY = 556
Enabled = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotBackColor = 12648447
GotForeColor = 0
End
Begin 给出焦点文本框.FocusText txtUnitID
Height = 300
Left = 1815
TabIndex = 0
Top = 900
Width = 3390
_ExtentX = 5980
_ExtentY = 529
BackColor = 16777215
Enabled = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotBackColor = 12648447
GotForeColor = 16711680
LostBackColor = 16777215
LostForeColor = 32768
LineOut = 1
End
Begin Threed.SSCommand cmdSelectGuest
Height = 315
Left = 5220
TabIndex = 6
ToolTipText = "选择供应商编号？"
Top = 900
Width = 345
_Version = 65536
_ExtentX = 609
_ExtentY = 556
_StockProps = 78
ForeColor = 33023
Enabled = 0 'False
BevelWidth = 1
RoundedCorners = 0 'False
Outline = 0 'False
AutoSize = 1
MouseIcon = "frmOrder.frx":08CA
Picture = "frmOrder.frx":08E6
End
Begin MSComCtl2.DTPicker dpDate
Height = 300
Left = 9885
TabIndex = 7
Top = 1305
Width = 1725
_ExtentX = 3043
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 24576001
CurrentDate = 36942
End
Begin VB.Frame Frame1
Height = 540
Left = 135
TabIndex = 16
Top = 5130
Width = 11520
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "操作员："
Height = 180
Index = 5
Left = 285
TabIndex = 23
Top = 240
Width = 720
End
Begin VB.Label lbOperator
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "无名氏"
Height = 180
Left = 1305
TabIndex = 22
Top = 240
Width = 540
End
Begin VB.Label lbAmo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
Height = 180
Left = 10125
TabIndex = 21
Top = 225
Width = 90
End
Begin VB.Label lbQua
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
Height = 180
Left = 7050
TabIndex = 20
Top = 225
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "金额合计："
Height = 180
Index = 7
Left = 9000
TabIndex = 18
Top = 240
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "数量合计："
Height = 180
Index = 6
Left = 5925
TabIndex = 17
Top = 240
Width = 900
End
End
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 2955
Left = 105
TabIndex = 3
Top = 1755
Width = 5460
_ExtentX = 9631
_ExtentY = 5212
_Version = 393216
BackColorSel = 16777215
ForeColorSel = 8388608
AllowBigSelection= 0 'False
Enabled = -1 'True
FocusRect = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Image imgSuccess
Height = 900
Left = 7500
Picture = "frmOrder.frx":0C00
Top = -915
Visible = 0 'False
Width = 900
End
Begin VB.Image imgExcute
Height = 900
Left = 7470
Picture = "frmOrder.frx":16C8
Top = -1830
Visible = 0 'False
Width = 900
End
Begin VB.Image imgDraft
Height = 900
Left = 7305
Picture = "frmOrder.frx":2225
Top = -3180
Visible = 0 'False
Width = 900
End
Begin VB.Image imgStatus
Height = 720
Left = 5865
Top = 795
Width = 960
End
Begin VB.Label lbUnit
AutoSize = -1 'True
BackStyle = 0 'Transparent
ForeColor = &H000080FF&
Height = 180
Left = 1845
TabIndex = 19
Top = 1365
Width = 90
End
Begin VB.Shape Shape1
Height = 765
Index = 1
Left = 180
Top = 870
Width = 5445
End
Begin VB.Line Line2
X1 = 1065
X2 = 5610
Y1 = 1230
Y2 = 1230
End
Begin VB.Line Line1
X1 = 1065
X2 = 1065
Y1 = 870
Y2 = 1605
End
Begin VB.Shape Shape1
Height = 855
Index = 0
Left = 150
Top = 825
Width = 5535
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "名称："
Height = 180
Index = 4
Left = 1185
TabIndex = 15
Top = 1365
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "编号："
Height = 180
Index = 3
Left = 1185
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -