modmain.bas

数据库实现员工的管理

Attribute VB_Name = "modMain"
Public g_dbCon As New ADODB.Connection

Sub main()
    If ConnectToServer = False Then End
    frmLogin.Show
End Sub

Public Function login(ByVal strUser As String, ByVal strPWD As String)
    If strUser = "Administrator" And strPWD = "1" Then
        login = True
    Else
        login = False
    End If
End Function

Public Function MeTrim(strstring As String)
    Dim i, j, n As Long
    strstring = LTrim(strstring)
    j = Len(strstring)
    Dim str1, str2 As String
    Do While InStr(strstring, " ") <> 0
        n = InStr(strstring, " ")
        str1 = Left(strstring, n - 1)
        str2 = Right(strstring, j - n)
        j = j - 1
        strstring = Trim(str1) + Trim(str2)
    Loop
    MeTrim = strstring
End Function

Public Function WriteInfoToText(ByVal EMPNumber As String, _
                                ByVal EMPName As String, _
                                ByVal EMPAge As String, _
                                ByVal EMPJoinAge As String, _
                                ByVal EMPAddress As String)
    Dim lngFH As Long
    lngFH = FreeFile  '使用 FreeFile 提供一个尚未使用的文件号
    Open App.Path & "emp.txt" For Append As #lngFH
        Print #lngFH, Empty
        Print #lngFH, EMPNumber
        Print #lngFH, EMPName
        Print #lngFH, EMPAge
        Print #lngFH, EMPJoinAge
        Print #lngFH, EMPAddress
    Close #lngFH
    WriteInfoToText = True
End Function