VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "客戶管理信息系統(tǒng)"
   ClientHeight    =   4695
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7335
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu Menu_SystemMange 
      Caption         =   "系統(tǒng)管理"
      Begin VB.Menu Menu_AddUser 
         Caption         =   "添加用戶"
      End
      Begin VB.Menu Menu_ChangePWD 
         Caption         =   "修改密碼"
      End
      Begin VB.Menu Menu_Exit 
         Caption         =   "退出系統(tǒng)"
      End
   End
   Begin VB.Menu Menu_PerMange 
      Caption         =   "個(gè)人信息管理"
      Begin VB.Menu Menu_AddPer 
         Caption         =   "添加個(gè)人信息"
      End
      Begin VB.Menu Menu_ChangePer 
         Caption         =   "修改個(gè)人信息"
      End
      Begin VB.Menu Menu_CheckPer 
         Caption         =   "查詢個(gè)人信息"
      End
   End
   Begin VB.Menu Menu_ComMange 
      Caption         =   "企業(yè)信息管理"
      Begin VB.Menu Menu_ChangeCom 
         Caption         =   "修改企業(yè)信息"
      End
      Begin VB.Menu Menu_CheckCom 
         Caption         =   "查詢企業(yè)信息"
      End
      Begin VB.Menu Menu_DelCom 
         Caption         =   "刪除企業(yè)信息"
      End
   End
   Begin VB.Menu Menu_Tools 
      Caption         =   "工具"
      Begin VB.Menu Menu_SendMail 
         Caption         =   "發(fā)送電子郵件"
      End
      Begin VB.Menu Menu_DataExport 
         Caption         =   "數(shù)據(jù)導(dǎo)出"
      End
   End
   Begin VB.Menu Menu_Help 
      Caption         =   "幫助"
      Begin VB.Menu Menu_About 
         Caption         =   "關(guān)于"
      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()                  '關(guān)于對(duì)話框
    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()              '修改個(gè)人信息
    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()               '查詢個(gè)人信息
    frmCheckPerson.Show
    frmCheckPerson.ZOrder 0
End Sub

Private Sub Menu_DataExport_Click()             '導(dǎo)出數(shù)據(jù)
    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()                   '退出系統(tǒng)
    Unload Me
    Exit Sub
End Sub

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