global.bas

来自「企业人事管理系统主要功能有： ①人事档案管理：户口状况、政治面貌、生理状况、合」· BAS 代码 · 共 42 行

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