frmmain.frm

档案管理

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "客户管理信息系统"
   ClientHeight    =   4695
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7335
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu Menu_SystemMange 
      Caption         =   "系统管理"
      Begin VB.Menu Menu_AddUser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu Menu_ChangePWD 
         Caption         =   "修改密码"
      End
      Begin VB.Menu Menu_Exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu Menu_PerMange 
      Caption         =   "个人信息管理"
      Begin VB.Menu Menu_AddPer 
         Caption         =   "添加个人信息"
      End
      Begin VB.Menu Menu_ChangePer 
         Caption         =   "修改个人信息"
      End
      Begin VB.Menu Menu_CheckPer 
         Caption         =   "查询个人信息"
      End
   End
   Begin VB.Menu Menu_ComMange 
      Caption         =   "企业信息管理"
      Begin VB.Menu Menu_ChangeCom 
         Caption         =   "修改企业信息"
      End
      Begin VB.Menu Menu_CheckCom 
         Caption         =   "查询企业信息"
      End
      Begin VB.Menu Menu_DelCom 
         Caption         =   "删除企业信息"
      End
   End
   Begin VB.Menu Menu_Tools 
      Caption         =   "工具"
      Begin VB.Menu Menu_SendMail 
         Caption         =   "发送电子邮件"
      End
      Begin VB.Menu Menu_DataExport 
         Caption         =   "数据导出"
      End
   End
   Begin VB.Menu Menu_Help 
      Caption         =   "帮助"
      Begin VB.Menu Menu_About 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Menu_About_Click()                  '关于对话框
    frmAbout.Show
    frmAbout.ZOrder 0
End Sub

Private Sub Menu_AddPer_Click()                 '添加客户信息
    ichangeFlag = 1
    frmAddPer.Show
    frmAddPer.ZOrder 0
End Sub

Private Sub Menu_AddUser_Click()                '添加用户
    frmAddUser.Show
    frmAddUser.ZOrder 0
End Sub

Private Sub Menu_ChangeCom_Click()              '查询公司信息
    ichangeFlag = 2
    frmComResult.Show
    frmComResult.ZOrder 0
End Sub

Private Sub Menu_ChangePer_Click()              '修改个人信息
    ichangeFlag = 2
    frmPerResult.Show
    frmPerResult.ZOrder 0
End Sub

Private Sub Menu_ChangePWD_Click()              '修改密码
    frmChangePWD.Show
    frmChangePWD.ZOrder
End Sub

Private Sub Menu_CheckCom_Click()               '修改公司信息
    frmCheckCompany.Show
    frmCheckCompany.ZOrder 0
End Sub

Private Sub Menu_CheckPer_Click()               '查询个人信息
    frmCheckPerson.Show
    frmCheckPerson.ZOrder 0
End Sub

Private Sub Menu_DataExport_Click()             '导出数据
    frmExport.Show
    frmExport.ZOrder 0
End Sub

Private Sub Menu_DelCom_Click()                 '删除公司信息
    ichangeFlag = 2
    frmComResult.Show
    frmComResult.ZOrder 0
End Sub

Private Sub Menu_Exit_Click()                   '退出系统
    Unload Me
    Exit Sub
End Sub

Private Sub Menu_SendMail_Click()               '发送Email
    ichangeFlag = 2
    frmPerResult.Show
    frmPerResult.ZOrder 0
End Sub