Attribute VB_Name = "modPrint"
Public nID As String
Public cFK As Currency
Public sUser As String
Public NoTitle As Boolean                 '是否打印標(biāo)題
    
Public Sub Main()
   
  '沒有參數(shù)時(shí)為空
   If Command = "" Then
      MsgBox "沒有數(shù)據(jù)，無法打印！   ", vbInformation, "提示: By Yan Jinghui"
   Else
      Constr = ";UID=;PWD=BXS3s44yiA"
      Condata = GetSetting("DH", "Data", "Path")
      If Condata = "" Then Exit Sub  '沒有數(shù)據(jù)
      StartPrint Command
   End If
   
  '顯示打印對(duì)話框
   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) '單號(hào)
     cFK = Val(Mid(strCommand, StartFK + 3, StartUS - StartFK - 3))  '付款
     sUser = Mid(strCommand, StartUS + 3, lLengther - StartUS)  '收銀員
     
End Sub