modprint.bas

星级酒店管理系统（附带系统自写控件源码）

Attribute VB_Name = "modPrint"
Public nID As String
Public cFK As Currency
Public sUser As String
Public NoTitle As Boolean                 '是否打印标题
    
Public Sub Main()
   
  '没有参数时为空
   If Command = "" Then
      MsgBox "没有数据，无法打印！   ", vbInformation, "提示: By Yan Jinghui"
   Else
      Constr = ";UID=;PWD=BXS3s44yiA"
      Condata = GetSetting("DH", "Data", "Path")
      If Condata = "" Then Exit Sub  '没有数据
      StartPrint Command
   End If
   
  '显示打印对话框
   PrintForm.Show 1
   
End Sub

Public Sub StartPrint(strCommand As String)

    Dim lLengther As Integer
    Dim StartNO As Integer
    Dim StartFK As Integer
    Dim StartST As Integer
    Dim StartUS As Integer
        strCommand = strCommand
        lLengther = Len(strCommand)
        StartNO = InStr(1, strCommand, "ST=", vbTextCompare)
        StartFK = InStr(StartNO + 3, strCommand, "FK=", vbTextCompare)
        StartUS = InStr(StartFK + 3, strCommand, "US=", vbTextCompare)
    '赋值
     nID = Mid(strCommand, 4, StartFK - 3 - StartNO) '单号
     cFK = Val(Mid(strCommand, StartFK + 3, StartUS - StartFK - 3))  '付款
     sUser = Mid(strCommand, StartUS + 3, lLengther - StartUS)  '收银员
     
End Sub