附录1 程序清单
1 标准模块
Option Explicit
'表示当前的用户名称
Public gsUserName As String
'改变用来保存当前的用户类型,其中0表示普通用户,1表示管理员
Public gnUserType As Integer
Public gsNum As String
Public Declare Function ShellExecute Lib "" 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
Private Declare Function Lstrcpy Lib "kernel32" Alias "lstrcpyA" (lpString1 As Any, lpString2 As Any) As Long
Public conn As New
Public i, j As Integer
Public SortCol As Integer, SortMode As Integer
Public s, y
Public sqlstr As String
Public strConn As String
Public Sub Main()
Dim DBName As String
If Then End
strConn = "Provider=;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ws"
"driver={SQL Server};server=ws;database=ws;Persist Security Info=False"
End Sub
2 主窗体MDIForm1代码:
Option Explicit
Public Loading As String
Private Sub about_Click()
Load frmabout
End Sub
Private Sub doctorabout_Click()
Unload frmuser
Unload changpsw
Unload Form7
Unload Form3
Unload frmcount
Unload frmabout
= True
= "医师管理"
(2).Text = "当前操作: " & "医师管理"
Load Form5
End Sub
Private Sub email1_Click()
ShellExecute 0&, vbNullString, "MailTo:haoxiangfei@", vbNullString, vbNullString, vbNormalFocus
End Sub
Private Sub email2_Click()
ShellExecute 0&, vbNullString, "MailTo:wangyidishi@", vbNullString, vbNullString, vbNormalFocus
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub helpzhuti_Click()
Shell " ", vbNormalFocus
End Sub
Private Sub lognew_Click()
Unload changpsw
Unload Form5
Unload Form7
Unload Form3
Unload frmcount
Unload frmabout
Load frmuser
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox
VB医疗纠纷检索系统程序清单论文 来自淘豆网www.taodocs.com转载请标明出处.