vrental_module1.bas

来自「中小型图书会员制租赁管理系统,采用ACCESS数据库。」· BAS 代码 · 共 52 行

Attribute VB_Name = "VRENTAL_MODULE1"
Option Explicit
Public booksnum  '用来添加文籍时自动编号的变量
Global LogOnResult As String '用户详细数据
Global gVarUserID, gVarDateEntered, gVarUserName, gVarPassword, gVarAccessLevel, _
       gVarFirstName, gVarMiddleName, gVarFamilyName, gVarBirthday, gVarAge, gVarSex, gVarHomeAddress, gVarContactNumber, _
       gVarComments, gVarLogInDate, gVarLogInTime As String
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uflags As Long) As Long
Sub AssignUserInfoToGlobalVar(UserInfo As String)
    Dim TDM
    Dim loop1, counter As Integer
    Dim tmpString, Char As String
    counter = 1
    gVarLogInTime = Format$(Now, "hh:mm:ss") '  取得登陆时的时间
    gVarLogInDate = Format$(Now, "mm/dd/yyyy") ' 取得登陆时的日期
    For loop1 = 1 To Len(UserInfo)
        TDM = DoEvents()
        Char = Mid(UserInfo, loop1, 1)
        If Char = Chr(10) Then   '假如是换行符的话，则
           tmpString = Trim(Mid(tmpString, InStr(1, tmpString, ":", 1) + 2, Len(tmpString) - InStr(1, tmpString, ":", 1)))
              If counter = 1 Then gVarUserID = tmpString
              If counter = 2 Then gVarDateEntered = tmpString
              If counter = 3 Then gVarUserName = tmpString
              If counter = 4 Then gVarPassword = tmpString
              If counter = 5 Then gVarAccessLevel = tmpString
              If counter = 6 Then gVarFirstName = tmpString
              If counter = 7 Then gVarMiddleName = tmpString
              If counter = 8 Then gVarFamilyName = tmpString
              If counter = 9 Then gVarBirthday = tmpString
              If counter = 10 Then gVarAge = tmpString
              If counter = 11 Then gVarSex = tmpString
              If counter = 12 Then gVarHomeAddress = tmpString
              If counter = 13 Then gVarContactNumber = tmpString
              If counter = 14 Then gVarComments = tmpString
              If counter = 15 Then gVarLogInDate = tmpString
              If counter = 16 Then gVarLogInTime = tmpString
           tmpString = ""
           counter = counter + 1
        End If
        If Char <> Chr(13) And Char <> Chr(10) Then tmpString = tmpString & Char
    Next loop1
 ' MsgBox gVarUserID & vbCrLf & gVarDateEntered & vbCrLf & gVarUserName _
          & vbCrLf & gVarPassword & vbCrLf & gVarAccessLevel _
          & vbCrLf & gVarFirstName & vbCrLf & gVarMiddleName _
          & vbCrLf & gVarFamilyName & vbCrLf & gVarBirthday _
          & vbCrLf & gVarAge & vbCrLf & gVarSex & vbCrLf & gVarHomeAddress _
          & vbCrLf & gVarContactNumber & vbCrLf & gVarComments _
          & vbCrLf & gVarLogInDate & vbCrLf & gVarLogInTime
End Sub