📄 frmusermanage.frm

📁 VB+access学生信息管理系统,基本完成了学生信息的添加,修改,打印,查询功能.大家互相学习吧.
💻 FRM
字号:
VERSION 5.00
Begin VB.Form frmUserManage 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "用户管理"
   ClientHeight    =   2625
   ClientLeft      =   4050
   ClientTop       =   4275
   ClientWidth     =   4470
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2625
   ScaleWidth      =   4470
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      Height          =   1515
      Left            =   120
      TabIndex        =   9
      Top             =   120
      Width           =   4215
      Begin VB.TextBox txtUser 
         Height          =   315
         Left            =   1260
         TabIndex        =   12
         Top             =   240
         Width           =   1695
      End
      Begin VB.TextBox txtPassword 
         Height          =   315
         Left            =   1260
         TabIndex        =   11
         Top             =   660
         Width           =   1695
      End
      Begin VB.CheckBox chkAdmin 
         Alignment       =   1  'Right Justify
         Caption         =   "超级用户"
         Height          =   315
         Left            =   300
         TabIndex        =   10
         Top             =   1080
         Width           =   1155
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "用户名"
         Height          =   180
         Left            =   300
         TabIndex        =   14
         Top             =   300
         Width           =   540
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "密  码"
         Height          =   180
         Left            =   300
         TabIndex        =   13
         Top             =   720
         Width           =   540
      End
   End
   Begin VB.CommandButton cmdEdit 
      Caption         =   "编辑"
      Height          =   315
      Left            =   300
      TabIndex        =   8
      Top             =   2160
      Width           =   735
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   315
      Left            =   3480
      TabIndex        =   7
      Top             =   2160
      Width           =   735
   End
   Begin VB.CommandButton cmdUpdate 
      Caption         =   "更新"
      Height          =   315
      Left            =   2685
      TabIndex        =   6
      Top             =   2160
      Width           =   735
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "删除"
      Height          =   315
      Left            =   1890
      TabIndex        =   5
      Top             =   2160
      Width           =   735
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加"
      Height          =   315
      Left            =   1095
      TabIndex        =   4
      Top             =   2160
      Width           =   735
   End
   Begin VB.CommandButton cmdLast 
      Caption         =   "尾记录"
      Height          =   315
      Left            =   3480
      TabIndex        =   3
      Top             =   1800
      Width           =   735
   End
   Begin VB.CommandButton cmdNext 
      Caption         =   "后一记录"
      Height          =   315
      Left            =   2325
      TabIndex        =   2
      Top             =   1800
      Width           =   1095
   End
   Begin VB.CommandButton cmdPrevious 
      Caption         =   "前一记录"
      Height          =   315
      Left            =   1110
      TabIndex        =   1
      Top             =   1800
      Width           =   1095
   End
   Begin VB.CommandButton cmdFirst 
      Caption         =   "首记录"
      Height          =   315
      Left            =   315
      TabIndex        =   0
      Top             =   1800
      Width           =   735
   End
End
Attribute VB_Name = "frmUserManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim rs As ADODB.Recordset  '记录集对象
Dim strSQL As String       '字符串变量，保存SQL语言
Dim bEdit As Boolean    '编辑状态标志
Dim bAdd As Boolean     '添加状态标志

Private Sub Form_Load()
    Set rs = New ADODB.Recordset
    strSQL = "select * from login"
    Set rs = ExecuteSQL(strSQL)
    If rs.RecordCount = 0 Then
        Call DisButtons
    Else
        rs.MoveFirst
        Call FillText
        cmdUpdate.Enabled = False
        cmdCancel.Enabled = False
    End If
    '窗体中心定位
    Call CenterPos(StudentMIS, Me)
End Sub

Private Sub cmdEdit_Click()
'编辑记录
    bEdit = True
    cmdEdit.Enabled = False
    cmdAdd.Enabled = False
    cmdDelete.Enabled = False
    cmdUpdate.Enabled = True
    cmdCancel.Enabled = True
    cmdFirst.Enabled = False
    cmdPrevious.Enabled = False
    cmdNext.Enabled = False
    cmdLast.Enabled = False
    txtUser.SetFocus
End Sub

Private Sub cmdAdd_Click()
'添加记录
    bAdd = True
    rs.AddNew
    Call ClearText
    cmdEdit.Enabled = False
    cmdAdd.Enabled = False
    cmdDelete.Enabled = False
    cmdUpdate.Enabled = True
    cmdCancel.Enabled = True
    cmdFirst.Enabled = False
    cmdPrevious.Enabled = False
    cmdNext.Enabled = False
    cmdLast.Enabled = False
    txtUser.SetFocus
End Sub

Private Sub cmdDelete_Click()
'删除当前记录
    If MsgBox("真的要删除吗？", vbYesNo + vbExclamation, "提示信息") = vbYes Then
        rs.Delete
        rs.MoveNext
        If rs.EOF And rs.RecordCount > 0 Then rs.MoveFirst
        If rs.RecordCount = 0 Then
            Call DisButtons
            Call ClearText
        Else
            Call FillText
        End If
        rs.Requery
    End If
End Sub

Private Sub cmdUpdate_Click()
'更新
    If Trim(txtUser.Text) = "" Then
        MsgBox "用户名不能为空!", vbCritical, "提示"
        txtUser.SetFocus
        Exit Sub
    End If
    If Trim(txtPassword.Text) = "" Then
        MsgBox "密码不能为空!", vbCritical, "提示"
        txtPassword.SetFocus
        Exit Sub
    End If
    If bEdit Then rs.Update
    If bAdd Then
        rs.Update
        rs.Requery
        rs.MoveLast
    End If
    Call FillText
    cmdEdit.Enabled = True
    cmdAdd.Enabled = True
    cmdDelete.Enabled = True
    cmdUpdate.Enabled = False
    cmdCancel.Enabled = False
    cmdFirst.Enabled = True
    cmdPrevious.Enabled = True
    cmdNext.Enabled = True
    cmdLast.Enabled = True
    bEdit = False
    bAdd = False
End Sub

Private Sub cmdCancel_Click()
'取消更改
    bEdit = False
    bAdd = False
    rs.CancelUpdate
    If rs.RecordCount = 0 Then
        cmdUpdate.Enabled = False
        cmdAdd.Enabled = True
        Call ClearText
        Exit Sub
    Else
        Call FillText
        cmdEdit.Enabled = True
        cmdAdd.Enabled = True
        cmdDelete.Enabled = True
        cmdUpdate.Enabled = False
        cmdCancel.Enabled = False
        cmdFirst.Enabled = True
        cmdPrevious.Enabled = True
        cmdNext.Enabled = True
        cmdLast.Enabled = True
    End If
End Sub

Private Sub cmdFirst_Click()
'第一条记录
    rs.MoveFirst
    If rs.RecordCount > 0 Then Call FillText
End Sub

Private Sub cmdPrevious_Click()
'上一条记录
    rs.MovePrevious
    If rs.BOF Then rs.MoveFirst
    If rs.RecordCount > 0 Then Call FillText
End Sub

Private Sub cmdNext_Click()
'下一条记录
    rs.MoveNext
    If rs.EOF Then rs.MoveLast
    If rs.RecordCount > 0 Then Call FillText
End Sub

Private Sub cmdLast_Click()
'最后一条记录
    rs.MoveLast
    If rs.RecordCount > 0 Then Call FillText
End Sub

Private Sub DisButtons()
'按钮禁用
    cmdEdit.Enabled = False
    cmdDelete.Enabled = False
    cmdUpdate.Enabled = False
    cmdCancel.Enabled = False
    cmdFirst.Enabled = False
    cmdPrevious.Enabled = False
    cmdNext.Enabled = False
    cmdLast.Enabled = False
End Sub

Private Sub FillText()
'用当前记录的字段内容填充文本框
    txtUser.Text = TransNull(rs.Fields(0))
    txtPassword.Text = TransNull(rs.Fields(1))
    If TransNull(rs.Fields(2)) Then
        chkAdmin.Value = 1
    Else
        chkAdmin.Value = 0
    End If
End Sub

Private Sub ClearText()
'清除文本框
    txtUser.Text = ""
    txtPassword.Text = ""
    chkAdmin.Value = False
End Sub

Private Sub txtUser_KeyPress(KeyAscii As Integer)
'用于在输入完用户名并按回车键后跳到密码输入文本框
    If KeyAscii = 13 Then txtPassword.SetFocus
End Sub

Private Sub txtPassword_KeyPress(KeyAscii As Integer)
'用于在输入完密码并按回车键后跳到超级用户输入文本框
    If KeyAscii = 13 Then chkAdmin.SetFocus
End Sub

Private Sub txtUser_LostFocus()
'文本框失去焦点
    If bEdit Or bAdd Then
        rs.Fields("user") = Trim(txtUser.Text)
    End If
End Sub

Private Sub txtPassword_LostFocus()
'文本框失去焦点
    If bEdit Or bAdd Then
        rs.Fields("password") = Trim(txtPassword.Text)
    End If
End Sub

Private Sub chkAdmin_LostFocus()
'文本框失去焦点
    If bEdit Or bAdd Then
        rs.Fields("admin") = chkAdmin.Value
    End If
End Sub
💿 文件大小 200 K
👤 上传用户 zh64077118
📂 所属分类教育系统应用
🏷️ 相关标签

#access #VB #信息管理系统 #修改
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -