global.bas

企业人事管理系统主要功能有： ①人事档案管理：户口状况、政治面貌、生理状况、合同管理等； ②考勤加班出差管理； ③人事变动：新进员工登记、员工离职登记、人事变更记录； ④考核奖惩； ⑤员工培

Attribute VB_Name = "Module1"
Option Explicit

'连接数据库的全局变量
Global str_CS As String
Global str_RS As String
Global Ado_Conn As ADODB.Connection
Global Ado_RS As ADODB.Recordset

'传递参数的全局变量
Global ID As String     '全局ID号 
Global user_Position As String
Global PriForm As String  '用于转换窗体时记录前一个窗体


'连接数据库
'参数 (ADODB.Connection,ADODB.Recordset,Adodc的ConnectionString,Adodc的RecordSource)
Public Sub SqlConnect(ByVal Ado_Connection As ADODB.Connection, _
                      ByVal Ado_Recordset As ADODB.Recordset, _
                            Ado_ConnectionString As String, _
                            Ado_RecordSource As String)
    Ado_Connection.ConnectionString = Ado_ConnectionString
    Ado_Connection.ConnectionTimeout = 30
    Ado_Connection.Open
    Ado_Recordset.Open Ado_RecordSource, Ado_Connection
End Sub


'断开数据库连接
'参数 ((Adodc控件名字)
Public Sub SqlDisConnect(ByVal AdoRecordset As ADODB.Recordset)
    If AdoRecordset.State Then AdoRecordset.Close
End Sub


'确定退出系统
Public Sub SureExit()
    Dim Is_Exit As Integer
    Is_Exit = MsgBox("确定退出本系统？", vbQuestion + vbYesNo, "退出系统")
    If Is_Exit = vbYes Then End
End Sub