module1.bas

来自「VB编写的汽车训练场管理系统。可做毕业设计参考/」· BAS 代码 · 共 49 行

Attribute VB_Name = "Module1"
Public Cn As New ADODB.Connection
Public Qx(1 To 8) As String
Public Qxxx As String
Public Dlsj As String
Public Yh As String
Public Ma As String
Public Dj_Zt As Boolean '登记窗体是否在最前
Public Sf_Zt As Boolean '收费窗体是否在最前
Public DJg_nOperation As Integer
Public Yj(1 To 6) As Integer
Public LSSql As String
Public SFBB As String
Public Function MaJz(Ma As String) As Double
    Dim i As Integer
    Dim K As Double
    For i = 1 To Len(Ma)
        K = K + Asc(Mid(Ma, i, 1))
    Next
    K = (K + 12321) / 23.56
    MaJz = Round(K, 5)
End Function
Public Sub DJQD()
   Dim status As CGSTATUS
   If DJg_nOperation = OPD_NONE Then
        DJ1.CGCard.Clear
        status = DJ1.CGCard.OpenSnapEx
        If (Not CG_SUCCESS(status)) Then
            MsgBox DJ1.CGCard.GetErrorString(status)
        Else
            status = DJ1.CGCard.StartSnapEx(0, True, 2)
            If (Not CG_SUCCESS(status)) Then
                MsgBox DJ1.CGCard.GetErrorString(status)
            Else
                DJg_nOperation = OPD_SNAP_EX
                DJ1.CGCard.Clear
            End If
        End If
   Else
        status = DJ1.CGCard.CloseSnapEx
        If (Not CG_SUCCESS(status)) Then
            MsgBox DJ1.CGCard.GetErrorString(status)
        Else
            DJg_nOperation = OPD_NONE
        End If
   End If
    
End Sub