module1.bas

学院MIS管理系统,适合大部分毕业生,请大家支持

Attribute VB_Name = "Module1"
Public fMainForm As FrmMain
Public username As String
Public mydata As Date
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1


Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
'传递参数SQL传递查询结果，MsgString传递查询信息。以一个数据集对象的形式返回
 Dim cnn As ADODB.Connection
 '定义连接
 Dim rst As ADODB.Recordset
 '定义字符串
 Dim sTokens() As String
 '异常处理
 On Error GoTo ExecuteSQL_Error
 '用Split函数产生一个包含各个子串的数组
 sTokens = Split(SQL)
 '创建连接
 Set cnn = New ADODB.Connection
 '打开连接
 cnn.Open ConnectString
 '判断字符串是否包含有指定的内容
 If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
 '执行查询结果
 cnn.Execute SQL
 '返回查询结果
 MsgString = sTokens(0) & "query successful"
 Else
 '创建数据集对象
 Set rst = New ADODB.Recordset
 '返回查询结果
 rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
 '返回记录集对象
 Set ExecuteSQL = rst
 MsgString = "查询到" & rst.RecordCount & "条记录"
 End If
ExecuteSQL_Exit:
 '清空数据集对象
  Set rst = Nothing
'中断连接
  Set cnn = Nothing
  Exit Function
'错误类型判断
ExecuteSQL_Error:
   MsgString = "查询错误" & Err.Description
   Resume ExecuteSQL_Exit
End Function
Public Function ConnectString() As String
 '设置与数据源的连接
 ConnectString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Office_manage;Data Source=MENG"
 End Function
Public Function Testtxt(txt As String) As Boolean
'判断输入的内容是否为空
If Trim(txt) = "" Then
  Testtxt = False
Else
  Testtxt = True
End If
End Function
Sub Main()
    '初始化用户名，显示登陆前等待画面
    username = ""
    frmcover.Show
End Sub