修改成绩信息.frm

学生信息管理系统 毕业设计 vb+sql

         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   240
      TabIndex        =   21
      Top             =   1440
      Width           =   1095
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "考试类型"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   240
      TabIndex        =   20
      Top             =   720
      Width           =   1335
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "输入分数"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3720
      TabIndex        =   19
      Top             =   2160
      Width           =   1335
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "姓名"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3720
      TabIndex        =   18
      Top             =   1320
      Width           =   735
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "班级"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3720
      TabIndex        =   17
      Top             =   720
      Width           =   735
   End
End
Attribute VB_Name = "Form10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mcclean As Boolean
Dim sflag As String
Dim mrc As Adodb.Recordset
Private Sub cmdcancel_Click()
If Not mcclean Then
   cmdfirst.Enabled = True
   cmdprevious.Enabled = True
   cmdnext.Enabled = True
   cmdlast.Enabled = True
   cbotype.Enabled = False
   cboid.Enabled = False
   cbocourse.Enabled = False
   cboclass.Enabled = False
   txtname.Enabled = False
   txtgrade.Enabled = False
   mcclean = True
End If
Call viewdata
FrmMain.StatusBarmy.Panels.Item(1).Text = ""
End Sub

Private Sub cmddelete_Click()
sflag = MsgBox("是否删除当前记录?", vbOKCancel, "删除记录")
If sflay = vbOK Then
   mrc.MoveNext
   If mrc.EOF Then
     mrc.MovePrevious
     mrc.Delete
   Else
     mrc.MovePrevious
     mrc.Delete
     FrmMain.StatusBarmy.Panels.Item(1).Text = "成功删除!"
  End If
Else
  Exit Sub
End If
End Sub

Private Sub cmdexit_Click()
Me.Hide
End Sub

Private Sub cmdfirst_Click()
mrc.MoveFirst
Call viewdata
End Sub

Private Sub Cmcprevious_Click()
mrc.MovePrevious
If mrc.BOF Then
  mrc.MoveLast
End If
Call viewdata
End Sub

Private Sub cmdlast_Click()
mrc.MoveLast
Call viewdata
End Sub

Private Sub cmdnext_Click()
mrc.MoveNext
If mrc.EOF Then
   mrc.MoveFirst
End If
Call viewdata
End Sub


Private Sub cmdedit_click()
mcclean = False
cmdfirst.Enabled = False
cmdprevious.Enabled = False
cmdnext.Enabled = False
cmdlast.Enabled = False
cbotype.Enabled = True
cboid.Enabled = True
cbocourse.Enabled = True
cboclass.Enabled = True
txtname.Enabled = True
txtgrade.Enabled = True
sflag = cboid.Text
FrmMain.StatusBarmy.Panels.Item(1).Text = "当前是修改状态"

End Sub

Private Sub cmdprevious_Click()
mrc.MovePrevious
If mrc.BOF Then
  mrc.MoveLast
End If
Call viewdata
End Sub

Private Sub cmdupdata_Click()
Dim txtsql As String
Dim msgtext As String
Dim mrc As Adodb.Recordset
If mcclean Then
   FrmMain.StatusBarmy.Panels.Item(1).Text = "请先点击修改记录按钮,进入修改状态"
   Exit Sub
End If
If Not testtxt(cbotype.Text) Then
  FrmMain.StatusBarmy.Panels.Item(1).Text = "请选择考试类型!"
  cbotype.SetFocus
  Exit Sub
End If
If Not testtxt(cboid.Text) Then
  FrmMain.StatusBarmy.Panels.Item(1).Text = "请选择学号!"
  cboid.SetFocus
  Exit Sub
End If
If Not testtxt(cbocourse.Text) Then
  FrmMain.StatusBarmy.Panels.Item(1).Text = "请选择课程!"
  cbocourse.SetFocus
  Exit Sub
End If
If Not testtxt(cboclass.Text) Then
  FrmMain.StatusBarmy.Panels.Item(1).Text = "请选择班级!"
  cboclass.SetFocus
Exit Sub
End If
If Not testtxt(txtgrade.Text) Then
  FrmMain.StatusBarmy.Panels.Item(1).Text = "请输入分数!"
  txtgrade.SetFocus
  Exit Sub
End If
If Not IsNumeric(Trim(txtgrade.Text)) Then
  FrmMain.StatusBarmy.Panels.Item(1).Text = " 分数应该是数字型!"
  txtgrade.SelStart = 0
  txtgrade.SelLength = Len(txtid.Text)
  txtgrade.SetFocus
  Exit Sub
End If
txtsql = "select * from result_info where student_id='" & Trim(cboid.Text) & "'" & "and exam_type='" & Trim(cbotype.Text) & "'"
  Set mrc = executesql(txtsql, msgtext)
   txtsql = "select * from result_info where student_id='" & Trim(sflag) & "'"
   Set mrc = executesql(txtsql, msgtext)
   mrc.Fields(5) = Trim(cbotype.Text)
   mrc.Fields(0) = Trim(cboid.Text)
   mrc.Fields(1) = Trim(txtname.Text)
   mrc.Fields(2) = Trim(cboclass.Text)
   mrc.Fields(3) = Trim(cbocourse.Text)
   mrc.Fields(4) = Trim(txtgrade.Text)
   mrc.Update
   FrmMain.StatusBarmy.Panels.Item(1).Text = "修改成绩成功!"
   cmdfirst.Enabled = True
   cmdprevious.Enabled = True
   cmdnext.Enabled = True
   cmdlast.Enabled = True
   cbotype.Enabled = False
   cboid.Enabled = False
   cbocourse.Enabled = False
   cboclass.Enabled = False
   txtname.Enabled = False
   txtgrade.Enabled = False
   mcclean = True
End Sub
Private Sub Form_Load()
Dim txtsql As String
Dim msgtext As String
txtsql = "select * from result_info"
Set mrc = executesql(txtsql, msgtext)
mrc.MoveFirst
If mrc.EOF Then
  MsgBox "表信息已空!"
End If
Call viewdata
mcclean = True
cbotype.Enabled = False
cboclass.Enabled = False
cboid.Enabled = False
txtname.Enabled = False
cbocourse.Enabled = False
txtgrade.Enabled = False
End Sub
Sub viewdata()
 cbotype.Text = mrc.Fields(5)
 cboid.Text = mrc.Fields(0)
 txtname.Text = mrc.Fields(1)
 cboclass.Text = mrc.Fields(2)
 cbocourse.Text = mrc.Fields(3)
 txtgrade.Text = mrc.Fields(4)
 End Sub