医疗纠纷检索系统程序清单.docVIP

附录1 程序清单 1 标准模块 Option Explicit 表示当前的用户名称 Public gsUserName As String 改变用来保存当前的用户类型，其中0表示，1表示Public gnUserType As Integer Public gsNum As String 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 Private Declare Function Lstrcpy Lib kernel32 Alias lstrcpyA (lpString1 As Any, lpString2 As Any) As Long Public conn As New ADODB.Connection 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 App.PrevInstance Then End strConn = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ws conn.Open driver={SQL Server};server=ws;database=ws;Persist Security Info=False frmlogin.Show End Sub 2 主窗体MDIForm1代码： Option Explicit Public Loading As String Private Sub about_Click() Load frmabout frmabout.Show End Sub Private Sub doctorabout_Click() Unload frmuser Unload changpsw Unload Form7 Unload Form3 Unload frmcount Unload frmabout Form5.Option2.Value = True Form5.Caption = 医师管理 StatusBar1.Panels(2).Text = 当前操作： 医师管理 Load Form5 Form5.Show 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@163.com, vbNullString, vbNullString, vbNormalFocus End Sub Private Sub exit_Click() Unload Me End Sub Private Sub helpzhuti_Click() Shell hh.exe help.chm, vbNormalFocus End Sub Private Sub lognew_Click() Unload changpsw Unload Form5 Unload Form7 Unload Form3 Unload frmcount Unload frmabout Load frmuser frmuser.Show End Sub Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(真的要退出本系统吗？, vbQuestion + vbYesNo + vbDefaultButton2, 退出) = vbNo Then Cancel = 1