frmrightgroup.frm

智能邮件管理信息系统

VERSION 5.00
Begin VB.Form frmOperatorGrp 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "增加操作员组"
   ClientHeight    =   1515
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4545
   HelpContextID   =   80003
   Icon            =   "frmOperatorGrp.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1515
   ScaleWidth      =   4545
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox txtGroup 
      Height          =   285
      Left            =   330
      TabIndex        =   4
      Top             =   600
      Width           =   2535
   End
   Begin VB.CommandButton cmdOK 
      Height          =   350
      Index           =   2
      Left            =   3240
      Style           =   1  'Graphical
      TabIndex        =   3
      Tag             =   "1009"
      Top             =   840
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Height          =   350
      Index           =   1
      Left            =   3240
      Style           =   1  'Graphical
      TabIndex        =   2
      Tag             =   "1002"
      Top             =   480
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Height          =   350
      Index           =   0
      Left            =   3240
      Style           =   1  'Graphical
      TabIndex        =   1
      Tag             =   "1001"
      Top             =   120
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "操作员组(&G)"
      Height          =   195
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   1035
   End
End
Attribute VB_Name = "frmOperatorGrp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'@Module Name:  frmOperatorGrp
'@Main Func:    操作员组卡片模块
'@Author:       苏梦
'@Last Modify:  2000-06-24
'@Include:
'@Interface:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Option Compare Text

Private mblnIsChanged As Boolean
Private mblnIsList As Boolean
Private mblnIsInit As Boolean
Private mblnIsNew As Boolean
Private mlngGroupID As Long
Private mlngDGroupID As Long
Private mstrGroupName As String
                         
'@Function Name:    AddCard                            
'@Main Func:        新增接口                           
'@Author:           苏梦                               
'@Last Modify:      2000-06-23                         
'@Param:            strGroupName     默认名称          
'@Param:            IsList      是否是列表调用         
'@Returns:          Long                               
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function AddCard(Optional strGroupName As String = "", _ 
    Optional ByVal IsList As Boolean = False) As Long             
                                                                  
    cmdOK(2).Default = True                                       
    mstrGroupName = strGroupName                                  
    mlngGroupID = 0                                               
    mblnIsNew = True                                              
    mblnIsList = IsList                                           
    InitCard strGroupName                                         
    Show vbModal                                                  
    AddCard = mlngGroupID                                         
End Function                                                      
                                                                  
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'@Function Name:    EditCard                                      
'@Main Func:        修改接口                                      
'@Author:           苏梦                    
'@Last Modify:      2000-06-23                                    
'@Param:            lngID       ID                                
'@Param:            strGroupName    组名                          
'@Returns:                                                        
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''& vbCrLfPublic Sub EditCard(lngid As Long, strGroupName As String)        
                                                                  
    mstrGroupName = strGroupName                                  
    If Trim(strGroupName) = "" Then                             
        ShowMsg 0, "请先选择一个操作员组,再进行修改！", _       
            vbExclamation, "修改操作员组"                       
        Unload Me                                                 
    Else                                                          
        If Not CheckIDUsed("OperatorGroup", "lngOperatorGroupID", lngid) Then 
            ShowMsg 0, "“" & strGroupName & "”操作员组不存在,不能进行修改！", _ 
                vbExclamation, "修改操作员组"              
            Unload Me                                                          
        Else                                                                   
            mlngGroupID = lngid                                                
            mblnIsNew = False                                                  
            Caption = "修改操作员组"                                         
            cmdOK(2).Visible = False                                           
            InitCard                                                           
            Show vbModal                                                       
        End If                                                                 
    End If                                                                     
End Sub                                                                        
                                                                               
Private Sub cmdOK_Click(Index As Integer)                                      
    If Index = 0 Then                                                          
        If Not SaveCard Then                                                   
            txtGroup.SetFocus                                                  
            Exit Sub                                                           
        End If                                                                 
    ElseIf Index = 2 Then