module1.bas

人事管理系统

Attribute VB_Name = "Module1"
Public tb1 As String, sql1 As String
Public blnAddRS As Boolean, blnAddBM As Boolean, blnAddGCQJ As Boolean, blnAddBX As Boolean
Public myMonth As String
Public intSelMonth As Integer

Public Function cnn() As ADODB.Connection    '定义数据库连接函数
  Set cnn = New ADODB.Connection
  '返回一个数据库连接
 cnn.Open "Driver={SQL Server};Server=(local);Database=db_manmanage;Uid=sa;Pwd="
End Function
Public Function cnStr() As String
  cnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manmanage"
End Function