affair.frm

事务管理

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H00C0FFC0&
   Caption         =   "事务管理系统"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   1020
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Menu file_manage 
      Caption         =   "文件管理"
      Begin VB.Menu xingwen 
         Caption         =   "行文管理"
      End
      Begin VB.Menu xinhan 
         Caption         =   "信函管理"
      End
      Begin VB.Menu baobiaofasong 
         Caption         =   "报表发送管理"
      End
      Begin VB.Menu tousu 
         Caption         =   "客户投诉管理"
      End
   End
   Begin VB.Menu cheliang_manage 
      Caption         =   "车辆管理"
      Begin VB.Menu chedengji 
         Caption         =   "车辆登记"
      End
      Begin VB.Menu cheshiyong 
         Caption         =   "车辆使用"
      End
      Begin VB.Menu cheshigu 
         Caption         =   "车辆事故"
      End
   End
   Begin VB.Menu caichan_manage 
      Caption         =   "财产管理"
      Begin VB.Menu caichandengji 
         Caption         =   "财产登记"
      End
      Begin VB.Menu caichanweixiu 
         Caption         =   "财产维修"
      End
      Begin VB.Menu caichantoubao 
         Caption         =   "财产投保"
      End
      Begin VB.Menu caichanzengjian 
         Caption         =   "财产增减"
      End
   End
   Begin VB.Menu huiyi_manage 
      Caption         =   "会议管理"
   End
   Begin VB.Menu zhiban_manage 
      Caption         =   "值班管理"
   End
   Begin VB.Menu shigu_manage 
      Caption         =   "事故管理"
   End
   Begin VB.Menu tian_manage 
      Caption         =   "提案管理"
   End
   Begin VB.Menu xitong_manage 
      Caption         =   "系统管理"
      Begin VB.Menu adduser 
         Caption         =   "增加用户"
      End
      Begin VB.Menu changepw 
         Caption         =   "更改密码"
      End
      Begin VB.Menu exit 
         Caption         =   "退出系统"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub adduser_Click()
frmadduser.Show 1
frmadduser.SetFocus
End Sub

Private Sub baobiaofasong_Click()
select_menu = "baobiao"
frmwenjian.Show
frmwenjian.SetFocus
End Sub

Private Sub caichandengji_Click()
select_menu = "caichandengji"
frmcaichan.Show
frmcaichan.SetFocus
End Sub

Private Sub caichantoubao_Click()
select_menu = "caichantoubao"
frmcaichan.Show
frmcaichan.SetFocus
End Sub

Private Sub caichanweixiu_Click()
select_menu = "caichanweixiu"
frmcaichan.Show
frmcaichan.SetFocus
End Sub

Private Sub caichanzengjian_Click()
select_menu = "caichanzengjian"
frmcaichan.Show
frmcaichan.SetFocus
End Sub

Private Sub changepw_Click()
frmchangepwd.Show
frmchangepwd.SetFocus
End Sub

Private Sub chedengji_Click()
select_menu = "dengji"
frmcheliang.Show
frmcheliang.SetFocus
End Sub

Private Sub chefeiyong_Click()
select_menu = "feiyong"
frmcheliang.Show
frmcheliang.SetFocus
End Sub

Private Sub chengepw_Click()
frmchangepwd.Show
frmchangepwd.SetFocus
End Sub

Private Sub cheshigu_Click()
select_menu = "shigu"
frmcheliang.Show
frmcheliang.SetFocus
End Sub

Private Sub cheshiyong_Click()
select_menu = "shiyong"
frmcheliang.Show
frmcheliang.SetFocus
End Sub

Private Sub exit_Click()
Unload Me
End Sub

Private Sub huiyi_manage_Click()
frmhuiyi.Show
frmhuiyi.SetFocus
End Sub

Private Sub MDIForm_Load()
If userpow = "guest" Then
   adduser.Enabled = False
End If
select_menu = ""
End Sub

Private Sub shigu_manage_Click()
frmshigu.Show
frmshigu.SetFocus
End Sub

Private Sub tian_manage_Click()
frmtian.Show
frmtian.SetFocus
End Sub

Private Sub tousu_Click()
select_menu = "kehu"
frmwenjian.Show
frmwenjian.SetFocus
End Sub

Private Sub xingwen_Click()
select_menu = "xingwen"
frmwenjian.Show
frmwenjian.SetFocus
End Sub

Private Sub xinhan_Click()
select_menu = "xinhan"
frmwenjian.Show
frmwenjian.SetFocus
End Sub

Private Sub zhiban_manage_Click()
frmzhiban.Show
frmzhiban.SetFocus
End Sub