modulelogin.bas

本公司开发得大请油田人事管理系统c/s结构

Attribute VB_Name = "ModuleLogin"
Option Explicit
'全局数据库连接量
Public g_oConnection4This As New ADODB.Connection
Public g_bIsInitSystemSet As Boolean
Public g_bConnect As Boolean
'数据传输

'登录单位全局变量
Public g_str4LoginUnit As String
Public g_str4LoginUnitLevel As String '0 小队，1大队，2公司，3厂处，4局
Public g_str4LoginUnitName As String
Public g_str4EmpLoginUnit As String
Public Const C_SMALL_LEVEL = 0
Public Const C_LARGE_LEVEL = 1
Public Const C_COMPANY_LEVEL = 2
Public Const C_FACTORY_LEVEL = 3
Public Const C_BUREAUE_LEVEL = 4
Public g_lOprroleNo As Long
Public g_lEmpNo As Long
Public g_strDateTime4Start As String
'单位长度
Public Const C_BUREAUE_LENGTH = 3
Public Const C_FACTORY_LENGTH = 6
Public Const C_COMPANY_LENGTH = 9
Public Const C_LARGE_LENGTH = 12
Public Const C_SMALL_LENGTH = 15

Public Function FileMove(ByVal strFileName4Source As String, ByVal strFileName4Destination As String) As Boolean
    FileMove = True
On Error GoTo ErrHandle
    FileCopy strFileName4Source, strFileName4Destination
    Kill strFileName4Source
    Exit Function
ErrHandle:
    FileMove = False
End Function
'得到订阅名(服务器)
Public Function GetLocalOrgan() As String
    Dim oCommand4Database As New ADODB.Command
    Dim Params4Database As ADODB.Parameters
    Dim Rs4GetlocalOrgan As New ADODB.Recordset
    With oCommand4Database
        Set .ActiveConnection = g_oConnection4This
        .CommandType = adCmdStoredProc
        .CommandTimeout = 0
        Set Params4Database = .Parameters
        Params4Database.Append .CreateParameter("@publication", adVarChar, adParamInput, 128)
        Params4Database.Append .CreateParameter("@publisher", adVarChar, adParamInput, 128)
        Params4Database.Append .CreateParameter("@publisher_db", adVarChar, adParamInput, 128)
        Params4Database.Append .CreateParameter("@subscription_type", adVarChar, adParamInput, 128)
        .CommandText = "sp_helpmergepullsubscription"
    End With
    'Params4Database.Append oCommand4Database.CreateParameter("RETURN_VALUE", adInteger, adParamOutput)
    Params4Database("@publication") = "%"
    Params4Database("@publisher") = "%"
    Params4Database("@publisher_db") = "hrp"
    Params4Database("@subscription_type") = "both"
    Set Rs4GetlocalOrgan = oCommand4Database.Execute()
    If Rs4GetlocalOrgan.State = adStateOpen Then
        Do While Rs4GetlocalOrgan.EOF = False
            GetLocalOrgan = GetLocalOrgan & "," & Rs4GetlocalOrgan.Fields("publication")
            Rs4GetlocalOrgan.MoveNext
        Loop
        GetLocalOrgan = right(GetLocalOrgan, Len(GetLocalOrgan) - 1)
        GetLocalOrgan = Replace(GetLocalOrgan, "hrp", "")
        Rs4GetlocalOrgan.Close
    End If
    Set Rs4GetlocalOrgan = Nothing
    'GetLocalOrgan = "001023"
End Function

Public Sub InitConnection(ByVal ServerName As String, Optional Pwd As String, Optional Uid As String, Optional DataName As String)
On Error GoTo HaveError
    If Uid = "" Then Uid = "hrp"
    If Pwd = "" Then Pwd = "hrp"
    If DataName = "" Then DataName = "hrp"
    If g_oConnection4This.State = adStateOpen Then g_oConnection4This.Close
    g_oConnection4This.ConnectionTimeout = 0.1
    g_oConnection4This.CommandTimeout = 0
    g_oConnection4This.Open "driver={sql server};server=" & ServerName & ";uid=" & Uid & ";pwd=" & Pwd & ";database=" & DataName
    g_bConnect = True
    Exit Sub
HaveError:
    MsgBox "不能连接到数据库，请检查网络连接和配置!", vbOKOnly + vbQuestion, "错误"
End Sub