【学生】学生优化（四）修改记录及“3021”

一、点击修改记录，记录没有修改的时候也会提示修改成功。

加入一个判重。

原码：进行判断的只有一个条件，但是有的窗体是几个条件同时进行约束的。

  

   

    

     

    
    

     

      '判断是否有重复记录
     
    
   

    

     

    
    

     

          mrc.Delete
     
    
   

    

     

    
    

     

          txtSQL = "select * from result_Info where student_ID= '" & Trim(comboSID.Text) & "'"
     
    
   

    

     

    
    

     
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
     
    
   

    

     

    
    

     
    If mrcc.EOF = False Then
     
    
   

    

     

    
    

     

              MsgBox "学号重复，请重新输入！", vbOKOnly + vbExclamation, "警告"
     
    
   

    

     

    
    

     

              mrcc.Close
     
    
   

    

     

    
    

     

              comboSID.SetFocus
     
    
   

    

     

    
    

     

              comboSID.Text = ""
     
    
   

    

     

    
    

     

              txtName.Text = ""
     
    
  
 

修改：判重的时候判断所有的约束条件，只要有一个条件进行修改过就可以。

  

   

    

     

    
    

     

      '判断是否有重复记录
     
    
   

    

     

    
    

     

      ' mrc.Delete
     
    
   

    

     

    
    

     

          txtSQL = "select * from student_Info where student_ID= '" & Trim(txtSID.Text) & "' and student_Name='" & Trim(txtName.Text) & "' and student_Sex='" & Trim(comboSex.Text) & "' and born_date='" & Trim(DTPicker1.Value) & "' and class_No='" & Trim(comboClassno.Text) & "' and tele_Number= '" & Trim(txtTel.Text) & "' and ru_Date='" & Trim(DTPicker2.Value) & "'and address='" & Trim(txtAddress.Text) & "' and comment= '" & Trim(txtComment.Text) & "'"
     
    
   

    

     

    
    

     
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
     
    
   

    

     

    
    

     
    If mrcc.EOF = False Then
     
    
   

    

     

    
    

     

              MsgBox "记录重复，请重新输入！", vbOKOnly + vbExclamation, "警告"
     
    
   

    

     

    
    

     

              mrcc.Close
     
    
   

    

     

    
    

     

              txtSID.SetFocus
     
    
   

    

     

    
    

     
    Else
     
    
  
 

二、删除记录，删除数据库中的全部记录，会出现“3021”。

当数据库中的记录全部删除后，会提示记录删除完毕，并显示添加窗体。

  

   

    

     

    
    

     

      Private Sub Form_Load()
     
    
   

    

     

    
    

     

      'SQL语句进行查询
     
    
   

    

     

    
    

     

          txtSQL = "select * from class_Info"
     
    
   

    

     

    
    

     
    '执行查询操作
     
    
   

    

     

    
    

     
    Set mrc = ExecuteSQL(txtSQL, MsgText)
     
    
   

    

     

    
    

     
    
     
    
   

    

     

    
    

     
    '判断数据集中是否还有记录
     
    
   

    

     

    
    

     
    If mrc.EOF = False Then
     
    
   

    

     

    
    

     
        '移到第一条记录
     
    
   

    

     

    
    

     

              mrc.MoveFirst
     
    
   

    

     

    
    

     
        '显示数据
     
    
   

    

     

    
    

     
        Call viewdata
     
    
   

    

     

    
    

     
        '记下当前记录的位置
     
    
   

    

     

    
    

     

              mybookmark = mrc.Bookmark
     
    
   

    

     

    
    

     
        '给标志赋初值
     
    
   

    

     

    
    

     

              mcclean = True
     
    
   

    

     

    
    

     
    Else
     
    
   

    

     

    
    

     

              str1 = MsgBox("没有班级信息，是否添加班级信息？", vbOKCancel, "提示")
     
    
   

    

     

    
    

     
        If str1 = vbOK Then
     
    
   

    

     

    
    

     

                  Unload Me
     
    
   

    

     

    
    

     

                  frmAddclassinfo.Show
     
    
   

    

     

    
    

     
        Else
     
    
   

    

     

    
    

     

                  Unload Me
     
    
   

    

     

    
    

     
          
     
    
   

    

     

    
    

     
        End If
     
    
   

    

     

    
    

     
    End If
     
    
   

    

     

    
    

     

      End Sub
     
    
   

    

     

    
    

     
 
     
    
  
 

  
 
 

三、删除记录，删除数据库的最后一条记录，会出现“3021”。

直接加入一个跳转，当删除最后一条记录，出现“3021”，就直接跳转到提示框，然后进入添加窗体。

  

   

    

     

    
    

     

      Private Sub cmdDelete_Click()
     
    
   

    

     

    
    

     

      On Error GoTo 1
     
    
   

    

     

    
    

     
 
     
    
   

    

     

    
    

     

      ？？？？
     
    
   

    

     

    
    

     

      ？？？？
     
    
   

    

     

    
    

     

      ？？？？
     
    
   

    

     

    
    

     

      ？？？？
     
    
   

    

     

    
    

     
 
     
    
   

    

     

    
    

     

      1:
     
    
   

    

     

    
    

     
    If Err = 3021 Then
     
    
   

    

     

    
    

     

              MsgBox "没有数据了，是否添加数据？", vbOKOnly + vbExclamation, "提示"
     
    
   

    

     

    
    

     
        If vbOK Then
     
    
   

    

     

    
    

     

                  Unload Me
     
    
   

    

     

    
    

     

                  frmAddclassinfo.Show
     
    
   

    

     

    
    

     
        Else
     
    
   

    

     

    
    

     

                  txtClassno.Text = "'"
     
    
   

    

     

    
    

     

                  comboGrade.Text = ""
     
    
   

    

     

    
    

     

                  txtDirector.Text = ""
     
    
   

    

     

    
    

     

                  txtClassroom.Text = ""
     
    
   

    

     

    
    

     
        End If
     
    
   

    

     

    
    

     
    End If
     
    
   

    

     

    
    

     

      end sub
     
    
  
 

  
 
 

四、进入修改窗体之前，先判断是否还有数据。

判断数据库是否为空，如果为空，则不加载窗体，并进入添加窗体。（在主窗体完成）

  

   

    

     

    
    

     

      Private Sub changeclass_Click()
     
    
   

    

     

    
    

     
    Dim mrc As ADODB.Recordset
     
    
   

    

     

    
    

     
    Dim txtsql As String
     
    
   

    

     

    
    

     
    Dim msgtext As String
     
    
   

    

     

    
    

     
    '连接数据库
     
    
   

    

     

    
    

     

          txtsql = "select * from class_info"
     
    
   

    

     

    
    

     
     Set mrc = ExecuteSQL(txtsql, msgtext)
     
    
   

    

     

    
    

     
     
     
    
   

    

     

    
    

     
     '判断是否为空
     
    
   

    

     

    
    

     
     If mrc.RecordCount <> 0 Then
     
    
   

    

     

    
    

     

               frmModifyclassinfo.Show
     
    
   

    

     

    
    

     
     Else
     
    
   

    

     

    
    

     

               MsgBox "没有班级信息，请先添加！", vbOKOnly + vbExclamation, "提示"
     
    
   

    

     

    
    

     

               Unload Me
     
    
   

    

     

    
    

     
         '跳转到添加窗体
     
    
   

    

     

    
    

     

               frmAddclassinfo.Show
     
    
   

    

     

    
    

     
     End If
     
    
   

    

     

    
    

     

      End Sub
     
    
   

    

     

    
    

     
 
     
    
  
 

  
 
 

文章来源: blog.csdn.net，作者：张艳伟_Laura，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/Laura__zhang/article/details/99776668