appendnewgroupform.frm

群里的通讯录管理 供参考 学习专用 无其他商业意义 源码较为简单

VERSION 5.00
Begin VB.Form AppendNewGroupForm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "追加新组"
   ClientHeight    =   1845
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3270
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1845
   ScaleWidth      =   3270
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdCancle 
      Caption         =   "放弃"
      Height          =   375
      Left            =   1680
      TabIndex        =   3
      Top             =   1320
      Width           =   975
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确定"
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Top             =   1320
      Width           =   975
   End
   Begin VB.TextBox txtGroupName 
      Height          =   270
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   3015
   End
   Begin VB.Label lbErrorInfo 
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   960
      Width           =   3015
   End
   Begin VB.Label Label1 
      Caption         =   "请输入新组的名称"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   1695
   End
End
Attribute VB_Name = "AppendNewGroupForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***********************************************************************
'* 文件名： databaseop.frm
'* 说  明： 追加新组窗口
'* 版  本： 2005.12.14 颜志军 初版
'***********************************************************************

Option Explicit

'***********************************************************************
'* 函数名：AppendNewGroup
'* 功  能：追加组信息
'* 参  数：newgroup                     组名
'* 返回值：Boolean              true    追加成功
'*       ：                     false   追加失败
'* 版  本：2005.12.14 颜志军 初版
'***********************************************************************
Private Function AppendNewGroup(newgroup As String) As Boolean
    '变量定义
    Dim newGroupInfo As GroupInfo   '组信息
    
    '构造组信息
    newGroupInfo.groupName = newgroup
    
    '执行追加操作
    AppendNewGroup = AppendGroup(newGroupInfo)
End Function


'***********************************************************************
'* 过程名：cmdCancle_Click
'* 功  能：“放弃”按钮响应
'* 参  数：
'* 版  本：2005.12.14 颜志军 初版
'***********************************************************************
Private Sub cmdCancle_Click()
    Unload Me
End Sub

'***********************************************************************
'* 过程名：cmdOk_Click
'* 功  能：“确定”按钮响应
'* 参  数：
'* 版  本：2005.12.14 颜志军 初版
'***********************************************************************
Private Sub cmdOk_Click()
    '变量定义
    Dim newGroupName As String      '新组名
    Dim existFlag As Boolean        '组名存在标志
    
    '取得用户输入组名
    newGroupName = txtGroupName.Text
    
    '删除首尾空格
    newGroupName = Trim(newGroupName)
    
    '新组名合法性检查
    If IsEmpty(newGroupName) Or newGroupName = "" Then
        lbErrorInfo.Caption = "组名不能为空！"
        Exit Sub
    End If
    
    '检查组名是否已经存在
    existFlag = False
    If IsExistGroup(newGroupName, existFlag) Then
        If existFlag Then
            lbErrorInfo.Caption = "组名已经存在！"
            Exit Sub
        End If
    End If
    
    '追加新组名到数据库
    If AppendNewGroup(newGroupName) Then
        Unload Me
        MainForm.RefreshTreeView
    Else
        lbErrorInfo.Caption = "追加新组失败！"
    End If
End Sub