📄 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -