conn.bas

客 户 信 息 管 理 系 统

Attribute VB_Name = "CONN"



Public czy As String '操作员
Public czyqx As String '权限
Public yhxhcd As String '用户序号传递
Public wxidcd As String '维修单ID传递
Public hfidcd As String '回访ID传递



Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset


Public Sub OpenConn()
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.cc;Jet OLEDB:Database Password=cjw79512;Persist Security Info=False;"
End Sub
'关闭数据库连接
Public Sub CloseConn()
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

'系统名称***************************
Public Property Get xtmc() As Variant
xtmc = "客户信息管理系统"
End Property