moduser.frm

学籍管理系统 建立学生学籍管理系统

VERSION 5.00
Begin VB.Form modUser 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "修改用户信息"
   ClientHeight    =   4605
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6390
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4605
   ScaleWidth      =   6390
   Begin VB.Frame Frame1 
      Caption         =   "注册用户信息"
      Height          =   1575
      Left            =   120
      TabIndex        =   11
      Top             =   120
      Width           =   6135
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   1560
         TabIndex        =   15
         Top             =   480
         Width           =   735
      End
      Begin VB.TextBox Text2 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   3720
         TabIndex        =   14
         Top             =   480
         Width           =   2055
      End
      Begin VB.TextBox Text3 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   3720
         TabIndex        =   13
         Top             =   960
         Width           =   2055
      End
      Begin VB.ComboBox Combo1 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         ItemData        =   "modUser.frx":0000
         Left            =   1560
         List            =   "modUser.frx":000A
         TabIndex        =   12
         Text            =   "Combo1"
         Top             =   960
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "用户编号："
         Height          =   255
         Left            =   360
         TabIndex        =   19
         Top             =   480
         Width           =   1215
      End
      Begin VB.Label Label2 
         Caption         =   "用 户 名："
         Height          =   255
         Left            =   2640
         TabIndex        =   18
         Top             =   480
         Width           =   975
      End
      Begin VB.Label Label3 
         Caption         =   "密    码："
         Height          =   255
         Left            =   2640
         TabIndex        =   17
         Top             =   960
         Width           =   975
      End
      Begin VB.Label Label4 
         Caption         =   "操作权限："
         Height          =   255
         Left            =   360
         TabIndex        =   16
         Top             =   960
         Width           =   1095
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "浏览用户信息"
      Height          =   975
      Left            =   120
      TabIndex        =   6
      Top             =   1800
      Width           =   6135
      Begin VB.CommandButton Command1 
         Caption         =   "第一条记录(&F)"
         Height          =   375
         Left            =   240
         TabIndex        =   10
         Top             =   360
         Width           =   1335
      End
      Begin VB.CommandButton Command2 
         Caption         =   "上一条记录(&P)"
         Height          =   375
         Left            =   1680
         TabIndex        =   9
         Top             =   360
         Width           =   1335
      End
      Begin VB.CommandButton Command3 
         Caption         =   "下一条记录(&N)"
         Height          =   375
         Left            =   3120
         TabIndex        =   8
         Top             =   360
         Width           =   1335
      End
      Begin VB.CommandButton Command4 
         Caption         =   "末一条记录(&L)"
         Height          =   375
         Left            =   4560
         TabIndex        =   7
         Top             =   360
         Width           =   1335
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "修改用户信息"
      Height          =   975
      Left            =   120
      TabIndex        =   1
      Top             =   2880
      Width           =   6135
      Begin VB.CommandButton Command5 
         Caption         =   "修改记录(&X)"
         Height          =   375
         Left            =   240
         TabIndex        =   5
         ToolTipText     =   "点击该按钮后，修改数据"
         Top             =   360
         Width           =   1335
      End
      Begin VB.CommandButton Command6 
         Caption         =   "更新数据(&U)"
         Height          =   375
         Left            =   1680
         TabIndex        =   4
         ToolTipText     =   "保存更改结果"
         Top             =   360
         Width           =   1335
      End
      Begin VB.CommandButton Command7 
         Caption         =   "取消修改(&C)"
         Height          =   375
         Left            =   3120
         TabIndex        =   3
         ToolTipText     =   "取消对当前记录进行的修改"
         Top             =   360
         Width           =   1335
      End
      Begin VB.CommandButton Command8 
         Caption         =   "删除记录(&D)"
         Height          =   375
         Left            =   4560
         TabIndex        =   2
         ToolTipText     =   "删除当前记录"
         Top             =   360
         Width           =   1335
      End
   End
   Begin VB.CommandButton Command9 
      Caption         =   "返回(&B)"
      Height          =   375
      Left            =   4680
      TabIndex        =   0
      Top             =   4080
      Width           =   1335
   End
End
Attribute VB_Name = "modUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim MRC As ADODB.Recordset
Dim myBookmark As Variant
Dim mcclean, IsValid As Boolean
Public UserID As String
Public Sub viewData()
Text1.Text = MRC.Fields(0)
UserID = Text1.Text
Text2.Text = MRC.Fields(1)
Text3.Text = MRC.Fields(2)
Combo1.Text = MRC.Fields(3)
End Sub
Public Sub dataClear()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
End Sub

Private Sub Command1_Click()
MRC.MoveFirst
    Call viewData
End Sub

Private Sub Command2_Click()
MRC.MovePrevious
    If MRC.BOF Then
    MsgBox "该记录为第一条记录！", vbOKOnly + vbExclamation, "学籍管理系统"
    MRC.MoveLast
    End If
    Call viewData
End Sub

Private Sub Command3_Click()
MRC.MoveNext
    If MRC.EOF Then
    MsgBox "该记录为最后一条记录！", vbOKOnly + vbExclamation, "学籍管理系统"
    MRC.MoveFirst
    End If
    Call viewData
End Sub

Private Sub Command4_Click()
 MRC.MoveLast
    Call viewData
End Sub

Private Sub Command5_Click()
IsValid = True
Frame2.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False

Text2.Enabled = True
Text3.Enabled = True
Combo1.Enabled = True
Combo1.ToolTipText = "分配操作权限"
End Sub

Private Sub Command6_Click()
Dim DelSQL As String
Dim DelMsg As String
Dim DEL As ADODB.Recordset
Dim insSQL As String
Dim InsMsg As String
Dim INS As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim QUE As ADODB.Recordset

If Not (IsValid) Then
MsgBox "请先请先点击[修改信息]按钮！", vbOKOnly + vbExclamation, "学籍管理系统"
Else
If Not (Testtxt(Text1) And Testtxt(Text2) And Testtxt(Text3) And Testtxt(Combo1)) Then
MsgBox "请填写完整用户信息！", vbOKOnly + vbExclamation, "学籍管理系统"
Exit Sub
End If
DelSQL = "DELETE FROM USERLOGIN WHERE UserID='" & UserID & "'"
Set DEL = ExecuteSQL(DelSQL, DelMsg)

txtSQL = "SELECT * FROM USERLOGIN WHERE UserName='" & Text2.Text & "'"
Set QUE = ExecuteSQL(txtSQL, MsgText)
If Not (QUE.EOF) Then
MsgBox "数据库中已经存在用户名为[" & Text2.Text & "]的记录，请查证后重新填写！", vbOKOnly + vbExclamation, "学籍管理系统"
Text2.Text = ""
Exit Sub
End If

insSQL = "INSERT INTO USERLOGIN VALUES('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Combo1.Text & "',1,'Student')"
Set INS = ExecuteSQL(insSQL, InsMsg)
If (InsMsg = "INSERT query successful") Then
MsgBox "数据修改完毕！", vbOKOnly + vbInformation, "学籍管理系统"
End If
End If
IsValid = False
Frame2.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
txtSQL = "select * from  userLogin WHERE SystemName='Student' "
Set MRC = ExecuteSQL(txtSQL, MsgText)

End Sub

Private Sub Command7_Click()
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from  userLogin WHERE SystemName='Student' "
Set MRC = ExecuteSQL(txtSQL, MsgText)
Call Me.viewData
IsValid = False
Frame2.Enabled = True
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End Sub

Private Sub Command8_Click()
Dim DelSQL As String
Dim DelMsg As String
Dim DEL As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim SEL As ADODB.Recordset
str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
If (vbOK) Then
   DelSQL = "DELETE FROM USERLOGIN WHERE UserID='" & Text1.Text & "'"
   Set DEL = ExecuteSQL(DelSQL, DelMsg)
   txtSQL = "SELECT * FROM USERLOGIN WHERE SystemName='Student'"
   Set SEL = ExecuteSQL(txtSQL, MsgText)
   If (SEL.EOF) Then
   Call dataClear
   MsgBox "表中没有数据！", vbOKOnly + vbExclamation, "学籍管理系统"
   Else
   MRC.MoveNext
     If (MRC.EOF) Then
         MRC.MoveFirst
     End If
End If
End If

End Sub

Private Sub Command9_Click()
Unload Me
End Sub

Private Sub Form_Load()
 Dim txtSQL As String
 Dim MsgText As String
 Me.Move (frmMain.ScaleWidth - Me.Width) / 2, (frmMain.ScaleHeight - Me.Height) / 2
 txtSQL = "select * from  userLogin WHERE SystemName='Student'"
 Set MRC = ExecuteSQL(txtSQL, MsgText)
 If Not MRC.EOF Then
 MRC.MoveFirst
 Call viewData
 mcbookmark = MRC.Bookmark
 mcclean = True
 IsValid = False
 Text1.Enabled = False
 Text2.Enabled = False
 Text3.Enabled = False
 Combo1.Enabled = False
 Else
    MsgBox "表中没有数据！", vbOKOnly + vbCritical, "警告"

    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Combo1.Enabled = False

   Frame2.Enabled = False
   Frame3.Enabled = False
   Command1.Enabled = False
   Command2.Enabled = False
   Command3.Enabled = False
   Command4.Enabled = False
   Command5.Enabled = False
   Command6.Enabled = False
   Command7.Enabled = False
   Command8.Enabled = False
End If
End Sub