publicmodule.bas

中小型企业员工管理系统 教程 教程 教程 教程 教程

Attribute VB_Name = "PubLicModule"
'数据连接模块
Public MyStrs As String
Public DB_AdoRs As New ADODB.Recordset            '后添加一个记录集对象
Public DB_AdoRs1 As New ADODB.Recordset           '后添加一个记录集对象
Public DB_AdoRs2 As New ADODB.Recordset           '后添加一个记录集对象

'定义一个变量，用户保存员工编号信息
Public YgNums
Public Function Cnn() As ADODB.Connection     '定义连接字符串函数
   Set Cnn = New ADODB.Connection
   Cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DB_YGGL"
End Function
Public Sub main()
   MyStrs = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DB_YGGL"
   frm_xtdl.Show
End Sub