frmadduser.frm

北大青鸟教学管理系统是学习规范编程范本.功能非常完备,代码编写有章法,不可多得

VERSION 5.00
Begin VB.Form frmAddUser 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "增加用户"
   ClientHeight    =   2775
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4485
   ForeColor       =   &H8000000F&
   Icon            =   "frmAddUser.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2775
   ScaleWidth      =   4485
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Caption         =   "基本信息"
      Height          =   2535
      Left            =   120
      TabIndex        =   5
      Top             =   120
      Width           =   3135
      Begin VB.ComboBox cmbPopedom 
         Height          =   300
         ItemData        =   "frmAddUser.frx":0442
         Left            =   1080
         List            =   "frmAddUser.frx":044C
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   1120
         Width           =   1935
      End
      Begin VB.ComboBox cmbStatus 
         Height          =   300
         ItemData        =   "frmAddUser.frx":0464
         Left            =   1080
         List            =   "frmAddUser.frx":046E
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   680
         Width           =   1935
      End
      Begin VB.TextBox txtRemark 
         Height          =   735
         Left            =   1080
         TabIndex        =   3
         Top             =   1560
         Width           =   1935
      End
      Begin VB.TextBox txtUserName 
         Height          =   300
         Left            =   1080
         TabIndex        =   0
         Top             =   240
         Width           =   1935
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "用户权限"
         Height          =   180
         Left            =   195
         TabIndex        =   10
         Top             =   1180
         Width           =   720
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "状态"
         Height          =   180
         Left            =   200
         TabIndex        =   9
         Top             =   740
         Width           =   360
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "用户名"
         Height          =   180
         Left            =   200
         TabIndex        =   8
         Top             =   300
         Width           =   540
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "备注"
         Height          =   180
         Left            =   195
         TabIndex        =   7
         Top             =   1560
         Width           =   360
      End
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   375
      Left            =   3360
      TabIndex        =   4
      Top             =   240
      Width           =   1095
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   3360
      TabIndex        =   6
      Top             =   720
      Width           =   1095
   End
End
Attribute VB_Name = "frmAddUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
Dim Exist_flag As Boolean   '判断用户是否已经存在
Dim intIndex As Integer

On Error GoTo Err_AddUser
    If txtUserName <> Empty Then
        frmUserG.MsFGUserInfo.Col = 1   '定位到用户名这列
        For intIndex = 2 To frmUserG.MsFGUserInfo.Rows - 1
            frmUserG.MsFGUserInfo.Row = intIndex
            If txtUserName = frmUserG.MsFGUserInfo.Text Then
                Exist_flag = True
                MsgBox "用户" & txtUserName & "已经存在....", vbInformation + vbOKOnly, "错误"
                Exit For
            End If
        Next intIndex
        If Exist_flag = False Then  '添加用户信息到记录集
            frmUserG.MsFGUserInfo.AddItem Empty
            frmUserG.MsFGUserInfo.Row = frmUserG.MsFGUserInfo.Rows - 1
            frmUserG.MsFGUserInfo.Col = 0
            frmUserG.MsFGUserInfo.Text = frmUserG.MsFGUserInfo.Rows - 2
            frmUserG.MsFGUserInfo.Col = 1
            frmUserG.MsFGUserInfo.Text = txtUserName

            frmUserG.MsFGUserInfo.Col = 2
            frmUserG.MsFGUserInfo.Text = Date
            If cmbStatus.Text = "注销" Then
                frmUserG.MsFGUserInfo.Col = 3
                frmUserG.MsFGUserInfo.Text = Date
            End If
            frmUserG.MsFGUserInfo.Col = 4
            frmUserG.MsFGUserInfo.Text = cmbStatus.Text
            frmUserG.MsFGUserInfo.Col = 5
            frmUserG.MsFGUserInfo.Text = cmbPopedom.Text
            frmUserG.MsFGUserInfo.Col = 6
            frmUserG.MsFGUserInfo.Text = txtRemark
            MsgBox "用户添加成功....", vbInformation + vbOKOnly, "成功"
        End If
        Unload Me
    Else
        MsgBox "请输入完整信息", vbCritical + vbOKOnly, "数据不完整"
    End If
    Exit Sub
Err_AddUser:
    MsgBox "未知错误:" & Err.Description & vbCrLf & "错误代号:" & Err.Number, vbCritical + vbOKOnly, "未知错误"
End Sub

Private Sub Form_Load()
    cmbPopedom.ListIndex = 0
    cmbStatus.ListIndex = 0
End Sub