frmmain.frm

主要是基本的客户资源管理操作界面, 包含基本信息管理、客户管理商业管理等

VERSION 5.00
Begin VB.Form FrmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "客户资源管理系统"
   ClientHeight    =   8565
   ClientLeft      =   45
   ClientTop       =   615
   ClientWidth     =   12000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   Picture         =   "FrmMain.frx":0000
   ScaleHeight     =   8565
   ScaleWidth      =   12000
   StartUpPosition =   1  '所有者中心
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "客户资源管理系统"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004000&
      Height          =   840
      Left            =   2640
      TabIndex        =   0
      Top             =   3000
      Width           =   6840
   End
   Begin VB.Menu mn1 
      Caption         =   "基本信息管理"
      Begin VB.Menu mn_Area 
         Caption         =   "地域信息设置"
      End
      Begin VB.Menu mn_CType 
         Caption         =   "客户类别设置"
      End
      Begin VB.Menu mn_BType 
         Caption         =   "行业分类设置"
      End
      Begin VB.Menu mn_Title 
         Caption         =   "职务名称设置"
      End
      Begin VB.Menu mn_PType 
         Caption         =   "项目类型设置"
      End
      Begin VB.Menu mn_Sales 
         Caption         =   "销售人员管理"
      End
      Begin VB.Menu mn_Exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mn2 
      Caption         =   "客户信息管理"
      Begin VB.Menu mn_Customer 
         Caption         =   "客户单位管理"
      End
      Begin VB.Menu mn_Contact 
         Caption         =   "联系人管理"
      End
   End
   Begin VB.Menu mn3 
      Caption         =   "商业往来管理"
      Begin VB.Menu mn_Chance 
         Caption         =   "商业机会管理"
      End
      Begin VB.Menu mn_Task 
         Caption         =   "客户跟踪管理"
      End
   End
   Begin VB.Menu mn4 
      Caption         =   "系统用户管理"
      Begin VB.Menu mn_UserMan 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mn_PwdChange 
         Caption         =   "修改密码"
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  FrmLogin.Show 1
End Sub

Private Sub mn_Area_Click()
  '客户管理员可以进入
  If CurUser.UserName = "Admin" Then
    FrmAreaMan.Show 1
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub

'行业分类设置
Private Sub mn_BType_Click()
  '客户管理员可以进入
  If CurUser.UserName = "Admin" Then
    FrmTypes.nFlag = 2
    FrmTypes.Caption = "行业分类设置"
    FrmTypes.Show 1  '行业分类管理
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub

Private Sub mn_Chance_Click()
  FrmSaleMan.Show 1
End Sub

Private Sub mn_ChangeUser_Click()
  FrmLogin.Try_times = 0
  FrmLogin.Show 1
End Sub

Private Sub mn_Contact_Click()
  FrmContactMan.Show 1
End Sub

'客户类别管理
Private Sub mn_CType_Click()
  '客户管理员可以进入
  If CurUser.UserName = "Admin" Then
    FrmTypes.nFlag = 1
    FrmTypes.Caption = "客户类别设置"
    FrmTypes.Show 1  '客户类别管理
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub

Private Sub mn_Customer_Click()
  FrmCustomerMan.Show 1
End Sub

Private Sub mn_Exit_Click()
  DBapi_Disconnect
  End
End Sub
'项目类型管理
Private Sub mn_PType_Click()
  '客户管理员可以进入
  If CurUser.UserName = "Admin" Then
    FrmTypes.nFlag = 4
    FrmTypes.Caption = "项目类型设置"
    FrmTypes.Show 1  '项目类型管理
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub

Private Sub mn_PwdChange_Click()
  With FrmUserEdit
  .OriUser = CurUser.UserName
  .txtUserName = CurUser.UserName
  .Modify = True
  .Show 1
  End With
End Sub

Private Sub mn_Sales_Click()
  '客户管理员可以进入
  If CurUser.UserName = "Admin" Then
    FrmEmpMan.Show 1
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub

Private Sub mn_Task_Click()
  FrmTaskMan.Show 1
End Sub

'职务管理
Private Sub mn_Title_Click()
  '客户管理员可以进入
  If CurUser.UserName = "Admin" Then
    FrmTypes.nFlag = 3
    FrmTypes.Caption = "职务名称设置"
    FrmTypes.Show 1  '职务名称管理
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub

Private Sub mn_UserMan_Click()
  If CurUser.UserName = "Admin" Then
    FrmUserMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub