frmstudentupdate.frm

这是一个选课系统

    Text(8).Text = mrc.Fields(8)
    Text(9).Text = mrc.Fields(9)
End Sub


Private Sub SmartNetXpButton1_Click()
     mrc.MoveFirst
     Call viewData
End Sub


Private Sub SmartNetXpButton2_Click()
   mrc.MovePrevious
    If mrc.BOF Then
        mrc.MoveLast
    End If
    Call viewData
End Sub



Private Sub SmartNetXpButton3_Click()
    mrc.MoveNext
    If mrc.EOF Then
        mrc.MoveFirst
    End If
    Call viewData
End Sub


Private Sub SmartNetXpButton4_Click()
   mrc.MoveLast
    Call viewData
End Sub


 
Private Sub SmartNetXpButton5_Click()
    mcclean = False
    sign = 1   '表示点击修改
    SmartNetXpButton1.Enabled = False
    SmartNetXpButton2.Enabled = False
    SmartNetXpButton3.Enabled = False
    SmartNetXpButton4.Enabled = False
        
    Text(0).Enabled = True
    Text(1).Enabled = True
    Combo1.Enabled = True
    Text(3).Enabled = True
    Text(4).Enabled = True
    Text(5).Enabled = True
    Text(6).Enabled = True
    Text(7).Enabled = True
    Text(8).Enabled = True
    Text(9).Enabled = True
    
    myBookmark = mrc.Bookmark
End Sub



Private Sub SmartNetXpButton6_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)    '单击确定
  
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrcc As ADODB.Recordset
     Dim txtstring As String      '用于将信息添加到用户表
    Dim mrc1 As ADODB.Recordset   '用于将信息添加到用户表
    If mcclean Then
        MsgBox "请先点击修改或添加按钮！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    
    If Not Testtxt(Text(0).Text) Then
        MsgBox "请输入学号！", vbOKOnly + vbExclamation, "警告"
        Text(0).SetFocus
        Exit Sub
    End If
    
    'If Not IsNumeric(Trim(Text2.Text)) Then
     '   MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
       ' Exit Sub
       ' Text2.SetFocus
  '  End If
    
        
    If Not Testtxt(Text(1).Text) Then
        MsgBox "请输入姓名！", vbOKOnly + vbExclamation, "警告"
        Text(1).SetFocus
        
        Exit Sub
    End If
    
    If Not Testtxt(Combo1.Text) Then
        MsgBox "请输入性别！", vbOKOnly + vbExclamation, "警告"
        Combo1.SetFocus
        Exit Sub
    Else
        If Trim(Combo1.Text) <> "男" And Trim(Combo1.Text) <> "女" Then
           MsgBox "输入性别有错误！", vbOKOnly + vbExclamation, "警告"
           Combo1.Text = ""
           Combo1.SetFocus
           Exit Sub
        End If
    End If
    
    
    If Not Testtxt(Text(3).Text) Then
        MsgBox "请输入出生日期！", vbOKOnly + vbExclamation, "警告"
        Text(3).SetFocus
        Exit Sub
     Else
        If Not IsDate(Text(3).Text) Then
             MsgBox "输入日期应输入日期格式(yyyy-mm-dd)!", vbOKOnly + vbExclamation, "警告"
             Exit Sub
             Text(3).SetFocus
         Else
            Text(3) = Format(Text(3), "yyyy-mm-dd")
         End If
    
    End If
    
    
    
    If Not Testtxt(Text(4).Text) Then
        MsgBox "请输入所属院系！", vbOKOnly + vbExclamation, "警告"
        Text(4).SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text(5).Text) Then
        MsgBox "请输入年级！", vbOKOnly + vbExclamation, "警告"
        Text(5).SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text(6).Text) Then
        MsgBox "请输入所学专业！", vbOKOnly + vbExclamation, "警告"
        Text(6).SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text(7).Text) Then
        MsgBox "请输入联系方式！", vbOKOnly + vbExclamation, "警告"
        Text(7).SetFocus
        Exit Sub
   ' Else
      ' If Len(Trim(Text(7).Text)) <> 7 Or Len(Trim(Text(7).Text)) <> 11 Then
          '  MsgBox "输入电话号码不正确", vbOKOnly + vbExclamation, "警告"
           ' Text(7).Text = ""
          '  Text(7).SetFocus
           ' Exit Sub
        ' End If
    End If
    
    
    
    If sign = 1 Then mrc.Delete
    
    If sign = 0 Then
     On Error Resume Next
     
        txtstring = "select * from user_if"
        Set mrc1 = MyDB.ExecuteSQL(txtstring, MsgText)
        mrc1.AddNew
        mrc1.Fields(0) = Trim(Text(0).Text)
        mrc1.Fields(1) = Trim(Text(0).Text)
        mrc1.Fields(2) = 2
        mrc1.Update
        mrc1.Close
    End If
    
    On Error Resume Next
    
    
    txtSQL = "select * from student where Sno = '" & Trim(Text(0).Text) & "'"
     Set mrcc = MyDB.ExecuteSQL(txtSQL, MsgText)
        If mrcc.EOF = False Then
           MsgBox "该学生已存在，不需要在添加，请重新输入！", vbOKOnly + vbExclamation, "警告"
           mrcc.Close
           Text(0).SetFocus
           Exit Sub
       Else
        mrcc.Close
        mrc.AddNew
        mrc.Fields(0) = Trim(Text(0).Text)
        mrc.Fields(1) = Trim(Text(1).Text)
        mrc.Fields(2) = Trim(Combo1.Text)
        mrc.Fields(3) = Trim(Text(3).Text)
        mrc.Fields(4) = Trim(Text(4).Text)
        mrc.Fields(5) = Trim(Text(5).Text)
        mrc.Fields(6) = Trim(Text(6).Text)
        mrc.Fields(7) = Trim(Text(7).Text)
        mrc.Fields(8) = Trim(Text(8).Text)
        mrc.Fields(9) = Trim(Text(9).Text)
        mrc.Update
        MsgBox "修改信息成功！", vbOKOnly + vbExclamation, "提示"
        mrc.Bookmark = myBookmark
        Call viewData
        
        SmartNetXpButton1.Enabled = True
        SmartNetXpButton2.Enabled = True
        SmartNetXpButton3.Enabled = True
        SmartNetXpButton4.Enabled = True
        
        Text(0).Enabled = False
        Text(1).Enabled = False
        Combo1.Enabled = False
        Text(3).Enabled = False
        Text(4).Enabled = False
        Text(5).Enabled = False
        Text(6).Enabled = False
        Text(7).Enabled = False
        Text(8).Enabled = False
        Text(9).Enabled = False
        mcclean = True
    End If
End Sub

Private Sub SmartNetXpButton7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If Not mcclean Then
       
        SmartNetXpButton1.Enabled = True
        SmartNetXpButton2.Enabled = True
        SmartNetXpButton3.Enabled = True
        SmartNetXpButton4.Enabled = True
            
        Text(0).Enabled = False
        Text(1).Enabled = False
        Combo1.Enabled = False
        Text(3).Enabled = False
        Text(4).Enabled = False
        Text(5).Enabled = False
        Text(6).Enabled = False
        Text(7).Enabled = False
        Text(8).Enabled = False
        Text(9).Enabled = False
        mrc.Bookmark = myBookmark
        Call viewData
    Else
        MsgBox "你没有修改数据！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
        
    End If
    mcclean = True
End Sub

Private Sub SmartNetXpButton8_Click()
     mcclean = False
    sign = 0   '表示点击添加
    
    SmartNetXpButton1.Enabled = False
    SmartNetXpButton2.Enabled = False
    SmartNetXpButton3.Enabled = False
    SmartNetXpButton4.Enabled = False
          
    Text(0).Enabled = True
    Text(1).Enabled = True
    Combo1.Enabled = True
    Text(3).Enabled = True
    Text(4).Enabled = True
    Text(5).Enabled = True
    Text(6).Enabled = True
    Text(7).Enabled = True
    Text(8).Enabled = True
    Text(9).Enabled = True
    
    Text(0).Text = ""
    Text(1).Text = ""
    Combo1.Text = ""
    Text(3).Text = ""
    Text(7).Text = ""
    Text(8).Text = ""
    Text(9).Text = ""
    
    myBookmark = mrc.Bookmark
    
    
    
End Sub

Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
  If Index < 9 Then
    
      If KeyAscii = 13 Then
         If Index = 1 Then
          Combo1.SetFocus
         Else
         
          Text(Index + 1).SetFocus
         End If
  
     End If
 End If
         
  
End Sub

Private Sub SmartNetXpButton9_Click()
    Dim txtstring As String
    Dim now_no As String           '用于标记当前要删除的学号
    Dim MsgText As String
    myBookmark = mrc.Bookmark
    str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
    If str2$ = vbOK Then
           now_no = Trim(Text(0).Text)
            mrc.MoveNext
            If mrc.EOF Then
                mrc.MoveFirst
                myBookmark = mrc.Bookmark
                mrc.MoveLast
                mrc.Delete
                mrc.Bookmark = myBookmark
                Call viewData
            Else
                myBookmark = mrc.Bookmark
                mrc.MovePrevious
                mrc.Delete
                mrc.Bookmark = myBookmark
                Call viewData
            End If
       txtstring = "delete  from user_if where Uname='" & now_no & "'"
       Call MyDB.ExecuteSQL(txtstring, MsgText)
       
    
    
    Else
        mrc.Bookmark = myBookmark
        Call viewData
    End If
End Sub

Private Sub imgTitleclose_Click()
    intNumField = -2
    Unload Me
End Sub

Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMinimize_Click()
    Me.WindowState = 1
End Sub

Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub