moddept.frm

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

VERSION 5.00
Begin VB.Form modDept 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "修改系别"
   ClientHeight    =   4395
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5565
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4395
   ScaleWidth      =   5565
   Begin VB.CommandButton Command5 
      Caption         =   "返回(&B)"
      Height          =   495
      Left            =   3120
      TabIndex        =   11
      Top             =   3720
      Width           =   1575
   End
   Begin VB.Frame Frame3 
      Caption         =   "修改记录"
      Height          =   1095
      Left            =   120
      TabIndex        =   2
      Top             =   2400
      Width           =   5295
      Begin VB.CommandButton Command4 
         Caption         =   "更新数据(&U)"
         Height          =   495
         Left            =   3000
         TabIndex        =   10
         Top             =   360
         Width           =   1575
      End
      Begin VB.CommandButton Command3 
         Caption         =   "删除数据(&D)"
         Height          =   495
         Left            =   600
         TabIndex        =   9
         Top             =   360
         Width           =   1575
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "浏览记录"
      Height          =   1095
      Left            =   120
      TabIndex        =   1
      Top             =   1200
      Width           =   5295
      Begin VB.CommandButton Command2 
         Caption         =   "下一条记录(&N)"
         Height          =   495
         Left            =   3000
         TabIndex        =   8
         Top             =   360
         Width           =   1575
      End
      Begin VB.CommandButton Command1 
         Caption         =   "上一条记录(&P)"
         Height          =   495
         Left            =   600
         TabIndex        =   7
         Top             =   360
         Width           =   1575
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "系别名称"
      Height          =   975
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   5295
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   2760
         TabIndex        =   4
         Top             =   360
         Width           =   2295
      End
      Begin VB.TextBox Text1 
         Enabled         =   0   'False
         Height          =   375
         Left            =   1200
         TabIndex        =   3
         Top             =   360
         Width           =   495
      End
      Begin VB.Label Label2 
         Caption         =   "系别名称："
         Height          =   375
         Left            =   1800
         TabIndex        =   6
         Top             =   420
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "系别编号："
         Height          =   375
         Left            =   240
         TabIndex        =   5
         Top             =   420
         Width           =   975
      End
   End
End
Attribute VB_Name = "modDept"
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 As Boolean
Public DeptID As Integer
Public Sub viewData()
Text1.Text = MRC.Fields(0)
Text2.Text = MRC.Fields(1)
DeptID = Text1.Text
End Sub

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

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

Private Sub Command3_Click()
Dim UptSQL As String
Dim UptMsg As String
Dim UPT As ADODB.Recordset
Dim DelSQL As String
Dim DelMsg As String
Dim DEL As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim mrcA As ADODB.Recordset
str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
If str2$ = vbOK Then
   DelSQL = "DELETE FROM DEPARTMENT WHERE DeptID=" & DeptID & ""
   Set DEL = ExecuteSQL(DelSQL, DelMsg)
   UptSQL = "UPDATE DEPARTMENT SET DeptID=DeptId-1 WHERE DeptID>" & DeptID & ""
   Set UPT = ExecuteSQL(UptSQL, UptMsg)
   txtSQL = "SELECT * FROM DEPARTMENT WHERE DeptID>0"
   Set mrcA = ExecuteSQL(txtSQL, MsgText)
   If (mrcA.EOF) Then
       MsgBox "表中已经没有数据！", vbOKOnly + vbExclamation, "警告"
       Text1.Text = ""
       Text2.Text = ""
       Command1.Enabled = False
       Command2.Enabled = False
       Exit Sub
   Else
       MRC.MovePrevious
       If MRC.BOF Then
       MRC.MoveLast
       End If
   End If
Call viewData
Else
   Call viewData
End If
End Sub

Private Sub Command4_Click()
Dim UptSQL As String
Dim UptMsg As String
Dim UPT As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim mrcA As ADODB.Recordset
txtSQL = "SELECT * FROM DEPARTMENT WHERE DeptName='" & Text2.Text & "'"
Set mrcA = ExecuteSQL(txtSQL, MsgText)
If Not (mrcA.EOF) Then
MsgBox "系名为[" & Text2.Text & " 的记录已经存在]", vbOKOnly + vbExclamation, "学籍管理系统"
Else
UptSQL = "UPDATE DEPARTMENT SET DeptName='" & Text2.Text & "' WHERE DeptID=" & Text1.Text & ""
Set UPT = ExecuteSQL(UptSQL, UptMsg)
If (UptMsg = "UPDATE query successful") Then
MsgBox "修改数据成功！", vbInformation + vbOKOnly, "学籍管理系统"
End If
End If
End Sub

Private Sub Command5_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 Department WHERE DeptID>0"
Set MRC = ExecuteSQL(txtSQL, MsgText)
If Not MRC.EOF Then
MRC.MoveFirst
Call viewData
mcbookmark = MRC.Bookmark
mcclean = True
Else
MsgBox "表中没有数据！", vbOKOnly + vbExclamation, "成绩管理系统"
End If
End Sub