📄 frmprint.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmPrint
BorderStyle = 1 'Fixed Single
Caption = "飞单系统"
ClientHeight = 6690
ClientLeft = 45
ClientTop = 330
ClientWidth = 10365
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmPrint.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6690
ScaleWidth = 10365
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer2
Interval = 10000
Left = 3540
Top = 75
End
Begin VB.CommandButton cmdClose
Cancel = -1 'True
Caption = "关闭(&C)"
Height = 405
Left = 8535
TabIndex = 4
Top = 210
Width = 1530
End
Begin VB.CommandButton cmdPrint
Caption = "打印(&P)"
Height = 405
Left = 6840
TabIndex = 3
Top = 210
Width = 1530
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新(&R)"
Height = 405
Left = 5220
TabIndex = 2
Top = 210
Width = 1530
End
Begin VB.Frame Frame1
Caption = "未打印菜单列表"
ForeColor = &H8000000D&
Height = 5730
Left = 90
TabIndex = 1
Top = 870
Width = 10170
Begin MSComctlLib.ListView lstPro
Height = 5400
Left = 75
TabIndex = 5
ToolTipText = "待打印点菜列表"
Top = 255
Width = 10005
_ExtentX = 17648
_ExtentY = 9525
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 10
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "编号"
Object.Width = 882
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "助记码"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "菜 名"
Object.Width = 2469
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 3
Text = "单价"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 4
Text = "数量"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 5
Text = "加工"
Object.Width = 1235
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 6
Text = "金额"
Object.Width = 2116
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 7
Text = "时间"
Object.Width = 1941
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 8
Text = "操作员"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 9
Text = "餐桌号"
Object.Width = 1940
EndProperty
End
End
Begin VB.Timer Timer1
Interval = 10000
Left = 2865
Top = 0
End
Begin VB.Shape shpCircle
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 210
Left = 405
Top = 150
Width = 270
End
Begin VB.Line Line7
BorderColor = &H80000009&
Index = 2
X1 = 8520
X2 = 10065
Y1 = 615
Y2 = 615
End
Begin VB.Line Line6
BorderColor = &H80000009&
Index = 2
X1 = 10065
X2 = 10065
Y1 = 615
Y2 = 180
End
Begin VB.Line Line5
BorderColor = &H8000000C&
Index = 2
X1 = 8520
X2 = 10080
Y1 = 195
Y2 = 195
End
Begin VB.Line Line4
BorderColor = &H8000000C&
Index = 2
X1 = 8520
X2 = 8520
Y1 = 195
Y2 = 630
End
Begin VB.Line Line7
BorderColor = &H80000009&
Index = 1
X1 = 6825
X2 = 8370
Y1 = 615
Y2 = 615
End
Begin VB.Line Line6
BorderColor = &H80000009&
Index = 1
X1 = 8370
X2 = 8370
Y1 = 615
Y2 = 180
End
Begin VB.Line Line5
BorderColor = &H8000000C&
Index = 1
X1 = 6825
X2 = 8385
Y1 = 195
Y2 = 195
End
Begin VB.Line Line4
BorderColor = &H8000000C&
Index = 1
X1 = 6825
X2 = 6825
Y1 = 195
Y2 = 630
End
Begin VB.Line Line7
BorderColor = &H80000009&
Index = 0
X1 = 5205
X2 = 6750
Y1 = 615
Y2 = 615
End
Begin VB.Line Line6
BorderColor = &H80000009&
Index = 0
X1 = 6750
X2 = 6750
Y1 = 615
Y2 = 180
End
Begin VB.Line Line5
BorderColor = &H8000000C&
Index = 0
X1 = 5205
X2 = 6765
Y1 = 195
Y2 = 195
End
Begin VB.Line Line4
BorderColor = &H8000000C&
Index = 0
X1 = 5205
X2 = 5205
Y1 = 195
Y2 = 630
End
Begin VB.Line Line3
BorderColor = &H80000009&
X1 = 10215
X2 = 10215
Y1 = 45
Y2 = 765
End
Begin VB.Line Line2
BorderColor = &H8000000C&
X1 = 90
X2 = 90
Y1 = 750
Y2 = 45
End
Begin VB.Line Line1
BorderColor = &H8000000C&
Index = 1
X1 = 90
X2 = 10230
Y1 = 45
Y2 = 45
End
Begin VB.Line Line1
BorderColor = &H80000009&
Index = 0
X1 = 105
X2 = 10230
Y1 = 750
Y2 = 750
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "每10秒钟打印更新。"
Height = 210
Left = 870
TabIndex = 0
Top = 330
Width = 1890
End
Begin VB.Image Image1
Height = 480
Left = 285
Picture = "frmPrint.frx":030A
Top = 150
Width = 480
End
End
Attribute VB_Name = "frmPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim IsRunning As Boolean '正在运行时
Dim IsPrinting As Boolean '正在打印时
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdPrint_Click()
If IsPrinting = True Then
MsgBox "正在打印,请等待...", vbInformation
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -