frmmain.frm

vb做的数据库 客户管理系统

VERSION 5.00
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "客户资源管理系统"
   ClientHeight    =   8985
   ClientLeft      =   150
   ClientTop       =   480
   ClientWidth     =   11970
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmMain.frx":0000
   ScaleHeight     =   8985
   ScaleWidth      =   11970
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu mn1 
      Caption         =   "基本信息管理"
      Begin VB.Menu mn_Area 
         Caption         =   "地域信息设置"
      End
      Begin VB.Menu mn_CType 
         Caption         =   "客户类别设置"
      End
      Begin VB.Menu mn_Title 
         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 mu4 
      Caption         =   "客户需求检索"
      Begin VB.Menu mn_NmaeFind 
         Caption         =   "图名检索"
      End
      Begin VB.Menu mn_NumFind 
         Caption         =   "图号检索"
      End
   End
   Begin VB.Menu mn5 
      Caption         =   "局域网消息"
      Begin VB.Menu mn_NetSend 
         Caption         =   "发送局域网消息"
      End
      Begin VB.Menu mn_NetIP 
         Caption         =   "扫描局域网IP信息"
      End
   End
   Begin VB.Menu mn3 
      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
Option Explicit
Public g_bAdmin As Boolean


Private Sub mn_Area_Click()

 Dim a As String
  
  '客户管理员可以进入
  If CurUser.UserName = "admin" Then
'  If CurUser.UserType = 1 Then
    frmAreaMan.Show
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
  
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.Show  '客户类别管理
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub


Private Sub mn_Customer_Click()
FrmCustomerMan.Show
End Sub

Private Sub mn_Exit_Click()
DBapi_Disconnect
End
End Sub

Private Sub mn_NetIP_Click()
frmGetIP.Show
End Sub

Private Sub mn_NetSend_Click()
frmnetSend.Show
End Sub

Private Sub mn_NmaeFind_Click()
frmMapName.Show
End Sub

Private Sub mn_NumFind_Click()
frmMapNum.Show
End Sub

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

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

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

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