skjzpreveiw.frm
来自「这是一款用VB开发功的具有基本功能的酒店管理系统。是一款进行二次开发的不错的代码」· FRM 代码 · 共 434 行 · 第 1/2 页
FRM
434 行
End Sub
Private Sub Form_Resize()
With preview1
.Width = IIf(ScaleWidth - (.left) * 2 > 0, ScaleWidth - (.left) * 2, 0)
.Height = IIf(ScaleHeight - .top > 0, ScaleHeight - .top, 0)
preview1.Refresh
End With
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button = "退出" Then
Unload Me
Exit Sub
End If
Dim X
Dim psm
Dim zm
Dim FS, ZFS
On Error GoTo EXITERROR
ZFS = Check1.Value + 1
zm = Val(Combo1.Text)
Sr = 1440
If Button = "打印" Then
CommonDialog1.ShowPrinter
p.PrintStartDoc Printer, zm
End If
If Button = "预览" Then
p.PrintStartDoc preview1, zm
End If
p.ForeColor = &H0&
p.ForeColor = &HFF0000
p.CurrentY = 1.2 * Sr
For FS = 1 To ZFS
p.CurrentX = 1.5 * Sr
p.FontName = "宋体"
p.FontItalic = True
p.FontSize = 12
p.PrintPrint STRBGNAME
p.CurrentX = 2.2 * Sr
p.CurrentY = p.CurrentY - 240.485 / 2
p.FontSize = 18
p.FontItalic = False
p.PrintPrint KRJZ1.Label1(0).Caption
p.FontSize = 11
p.NewLine
p.NewLine
p.CurrentX = 2.2 * Sr
p.PrintPrint "日期:" & Format(Now(), "LONG DATE") & Space(12) & "№" & KRJZ1.Label1(18).Caption
p.NewLineBG 0
p.CurrentY = p.CurrentY + 80
p.CurrentX = 200
p.BoxOut "客人姓名", 1200, "C", 100, "1111"
p.BoxOut " " & KRJZ1.Label1(27).Caption, 1600, "L", 100, "1111"
p.BoxOut "性别", 800, "C", 100, "1111"
p.BoxOut KRJZ1.Label1(29).Caption, 730, "C", 100, "1111"
p.BoxOut "房号", 800, "C", 100, "1111"
p.BoxOut KRJZ1.Label1(31).Caption, 800, "C", 100, "1111"
p.BoxOut "房价", 805, "C", 100, "1111"
p.BoxOut KRJZ1.Label1(36).Caption, 1525, "C", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut "入住日期", 1200, "C", 100, "1111"
p.BoxOut KRJZ1.Label1(28).Caption, 1600, "C", 100, "1111"
p.BoxOut "离住日期", 1210, "C", 100, "1111"
p.BoxOut KRJZ1.Label1(30).Caption, 1600, "C", 100, "1111"
p.BoxOut "保证金", 1145, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(0).Caption, 1525, "L", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut "客", 490, "C", 100, "1010"
p.BoxOut "房租费", 850, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(1).Caption, 1450, "R", 100, "1111"
p.BoxOut "停车费", 1210, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(6).Caption, 1600, "R", 100, "1111"
p.BoxOut "舞 厅", 1150, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(11).Caption, 1520, "R", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut "房", 490, "C", 100, "1010"
p.BoxOut "商 品", 850, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(2).Caption, 1450, "R", 100, "1111"
p.BoxOut "电话费", 1210, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(7).Caption, 1600, "R", 100, "1111"
p.BoxOut "旅游费", 1150, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(12).Caption, 1520, "R", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 102
p.BoxOut "部", 490, "C", 100, "1011"
p.BoxOut "加床费", 850, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(3).Caption, 1450, "R", 100, "1111"
p.BoxOut "商务费", 1210, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(8).Caption, 1600, "R", 100, "1111"
p.BoxOut "赔偿费", 1150, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(13).Caption, 1520, "R", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut "膳", 490, "C", 100, "1010"
p.BoxOut "餐饮费", 850, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(4).Caption, 1450, "R", 100, "1111"
p.BoxOut "会 议", 1210, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(9).Caption, 1600, "R", 100, "1111"
p.BoxOut "其 他", 1150, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(14).Caption, 1520, "R", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut "食", 490, "C", 100, "1010"
p.BoxOut "酒 水", 850, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(5).Caption, 1450, "R", 100, "1111"
p.BoxOut "酒 吧", 1210, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(10).Caption, 1600, "R", 100, "1111"
p.BoxOut "合 计", 1150, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(15).Caption, 1520, "R", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut KRJZ1.Label1(35).Caption, 1350, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(16).Caption, 1450, "R", 100, "1111"
p.BoxOut "结帐收现", 1210, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(18).Caption, 1600, "R", 100, "1111"
p.BoxOut "下欠金额", 1150, "C", 100, "1111"
p.BoxOut KRJZ1.Label4(17).Caption, 1520, "R", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 98
p.BoxOut "合计金额<大写>", 1890, "C", 100, "1111"
p.BoxOut KRJZ1.Label1(34).Caption, 6430, "L", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut " 备 注：", 5000, "L", 10, "1110"
p.BoxOut "挂", 400, "C", 10, "1110"
p.BoxOut "", 2910, "C", 10, "1110"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 10
p.BoxOut " ", 5000, "L", 10, "1010"
p.BoxOut "帐", 400, "C", 10, "1010"
p.BoxOut "", 2910, "C", 10, "1010"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 10
p.BoxOut " ", 5000, "L", 10, "1010"
p.BoxOut "签", 400, "C", 10, "1010"
p.BoxOut "签名(盖章):", 2910, "C", 10, "1010"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 10
p.BoxOut " ", 5000, "L", 10, "1011"
p.BoxOut "单", 400, "C", 10, "1011"
p.BoxOut " 年 月 日", 2910, "C", 10, "1011"
p.NewLineBG 0
p.CurrentX = 300
p.CurrentY = p.CurrentY + 100
p.PrintPrint "负责人： 制单：" & frmLogin.CZYXM & Space(8 - LenB(frmLogin.CZYXM)) & " 收款: 总1页第1页"
p.NewLine
p.NewLine
p.NewLine
p.NewLine
p.NewLine
If FS = 1 Then
p.PrintLine p.CurrentX, p.CurrentY, p.PaperWidth, p.CurrentY
p.NewLine
p.NewLine
p.NewLine
p.NewLine
p.NewLine
End If
Next
p.EndDoc
Exit Sub
EXITERROR:
If Err.Number = 32755 Then
Exit Sub
Else
MsgBox CStr(Err.Number) & "-" & Err.Description, vbCritical, "错误信息"
Exit Sub
End If
End Sub
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
If ButtonMenu = "25%" Then
Combo1.Text = "0.25"
Else
If ButtonMenu = "50%" Then
Combo1.Text = "0.5"
Else
If ButtonMenu = "100%" Then
Combo1.Text = "1"
Else
If ButtonMenu = "200%" Then
Combo1.Text = "2"
Else
If ButtonMenu = "300%" Then
Combo1.Text = "3"
End If
End If
End If
End If
End If
Toolbar1_ButtonClick Toolbar1.Buttons(2)
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?