VERSION 5.00
Begin VB.MDIForm CECMISfrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "法院执行案件信息管理系统"
   ClientHeight    =   10650
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   15330
   LinkTopic       =   "MDIForm1"
   Picture         =   "CECMISfrmMain.frx":0000
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu judge_m 
      Caption         =   "法官信息管理"
      Begin VB.Menu judge_search 
         Caption         =   "查询法官信息"
      End
      Begin VB.Menu judge_edit 
         Caption         =   "编辑法官信息"
      End
   End
   Begin VB.Menu lawyer_m 
      Caption         =   "律师信息管理"
      Begin VB.Menu lawyer_search 
         Caption         =   "查询律师信息"
      End
      Begin VB.Menu lawyer_edit 
         Caption         =   "编辑律师信息"
      End
   End
   Begin VB.Menu case_m 
      Caption         =   "案例信息管理"
      Begin VB.Menu case_search 
         Caption         =   "查询案例"
      End
      Begin VB.Menu case_edit 
         Caption         =   "编辑案例"
      End
   End
   Begin VB.Menu system_manage 
      Caption         =   "系统管理"
      Begin VB.Menu system_exit 
         Caption         =   "系统退出"
      End
      Begin VB.Menu system_login 
         Caption         =   "系统登陆"
      End
   End
End
Attribute VB_Name = "CECMISfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub case_edit_Click()
If usertype = 1 Then
    modicase.Show 1
Else
    MsgBox "仅限制系统管理员有权限进行此操作！", vbOKOnly + vbExclamation, ""
End If
End Sub

Private Sub case_search_Click()
findcase.Show
End Sub

Private Sub judge_edit_Click()
If usertype = 1 Then
    modijudge.Show 1
Else
    MsgBox "仅限制系统管理员有权限进行此操作！", vbOKOnly + vbExclamation, ""
End If
End Sub

Private Sub judge_search_Click()
    findjudge.Show
End Sub

Private Sub lawyer_edit_Click()
If usertype = 1 Then
    modilawyer.Show 1
Else
    MsgBox "仅限制系统管理员有权限进行此操作！", vbOKOnly + vbExclamation, ""
End If
End Sub

Private Sub lawyer_search_Click()
findlawyer.Show 1
End Sub

Private Sub system_exit_Click()
Unload Me
End Sub

Private Sub system_login_Click()
frmlogin.Show
End Sub
