module1.bas

这是一个毕业设计论文

Attribute VB_Name = "Module1"

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
Global UserText As String, PurView As String '用户名和权限
Global strSearchString As String '查询字符串
'Global strFileType As String, strFileID As String '文件类型
Global ConStr As String, IT As Boolean '连接字符串
Global Conn As Connection
Public Pno As String '病人编号
Public Dno As String '医生编号
Public Sno As String  '科室编号

Public Sub GetStatus(StatusString As String)
    frmMain.StatusBar.Panels.Item(2).Text = StatusString
End Sub

Public Sub checkPath()
On Error GoTo errHnd:
Set Conn = New Connection
Conn.Open ConStr
strCorrect = True
Exit Sub
errHnd:
   MsgBox " 您的数据库未能与系统建立连接，请检查数据库服务是否已经开启！", vbOKOnly + vbExclamation, "数据库联接错误"
 

End Sub


Private Sub Main()
'ConStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Medical;Data Source=JIAOYANG"
ConStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=medical;Data Source=WTW12"
    frmLogin.Show
End Sub