修改&删除学生信息.frm

初学vb,做的第一个系统.一个星期内看vb并做完这个系统的.

            rs.MoveNext
        Next i
        rs.Close
    End If
    adoconn.Close
End Sub
'选择政治面貌
Private Sub Combo2_click()
    policy = Combo2.Text
    adoconn.Open
    rs.Open "select * from policy where name='" & policy & "'", adoconn
    If rs.Fields("name") = policy Then
        policy_id = rs.Fields("id")
    End If
    rs.Close
    adoconn.Close
End Sub
'选择学院，并加载该学院专业列表
Private Sub Combo3_click()
    Dim i As Integer
        
    '获取学院名称
    college = Combo3.Text

    '获取学院编号
    adoconn.Open
    rs.Open "select * from college", adoconn
    rs.MoveFirst
    For i = 0 To rs.RecordCount - 1
        If college = rs.Fields("name") Then
            college_id = rs.Fields("id")
            Exit For
        End If
        rs.MoveNext
    Next i
    rs.Close
    adoconn.Close
    
    '加载专业列表
    Call major_combo
    
    '修改学院用
    adoconn.Open
    rs.Open "select * from college where name='" & college & "'", adoconn
    If rs.Fields("name") = college Then
        college_id = rs.Fields("id")
    End If
    rs.Close
    adoconn.Close
End Sub
'选择专业
Private Sub Combo4_click()
    major = Combo4.Text
    adoconn.Open
    rs.Open "select * from major where name='" & major & "'", adoconn
    If rs.Fields("name") = major Then
        major_id = rs.Fields("id")
    End If
    rs.Close
    adoconn.Close
End Sub

'查询
Private Sub Command1_Click()
    Call connect
    stu_no = Text1.Text
    If Len(stu_no) = 0 Then
        MsgBox "请先输入学号！"
        Text1.SetFocus
        Exit Sub
    Else
        Dim i As Integer
        adoconn.Open
        rs.Open "select * from stu", adoconn
        If rs.RecordCount = 0 Then
            MsgBox "当前没有任何学生记录，请先添加！"
            adoconn.Close
            Unload Me
            stu_manage.Show
            Exit Sub
        End If
        
        rs.MoveFirst
        For i = 0 To rs.RecordCount - 1
            If stu_no = rs.Fields("no") Then
                GoTo find
            Else
                rs.MoveNext
            End If
        Next i
        MsgBox "该学号不存在，请重试！"
        Text1.SetFocus
        rs.Close
        adoconn.Close
        Exit Sub
    End If
    
find:
    unshow.Caption = ""
    
    stu_name = rs.Fields("name")
    sex = rs.Fields("sex")
    birth = rs.Fields("birth")
    nation_id = rs.Fields("nation")
    policy_id = rs.Fields("policy")
    address = rs.Fields("addr")
    post = rs.Fields("post")
    enter = rs.Fields("enter_year")
    college_id = rs.Fields("college")
    major_id = rs.Fields("major")
    class = rs.Fields("class")
    
    rs.Close
    
    '获取民族名称
    rs.Open "select * from nation", adoconn
    rs.MoveFirst
    For i = 0 To rs.RecordCount - 1
        If nation_id = rs.Fields("id") Then
            nation = rs.Fields("name")
        End If
        rs.MoveNext
    Next i
    rs.Close
    
    '获取政治面貌
    rs.Open "select * from policy", adoconn
    rs.MoveFirst
    For i = 0 To rs.RecordCount - 1
        If policy_id = rs.Fields("id") Then
            policy = rs.Fields("name")
        End If
        rs.MoveNext
    Next i
    rs.Close
    
    '获取学院
    rs.Open "select * from college", adoconn
    rs.MoveFirst
    For i = 0 To rs.RecordCount - 1
        If college_id = rs.Fields("id") Then
            college = rs.Fields("name")
        End If
        rs.MoveNext
    Next i
    rs.Close
    
    '获取专业
    rs.Open "select * from major where college='" & college_id & "'", adoconn
    If rs.RecordCount = 0 Then
        major = "未知"
    Else
        rs.MoveFirst
        For i = 0 To rs.RecordCount - 1
            If major_id = rs.Fields("id") Then
                major = rs.Fields("name")
                Exit For
            End If
            rs.MoveNext
        Next i
        If i = rs.RecordCount Then
            major = "未知"
        End If
    End If
    rs.Close
    adoconn.Close
    
    Call load
    Call major_combo
    
    Text2.Text = stu_name
    Text3.Text = sex
    Text4.Text = birth
    Combo1.Text = nation
    Combo2.Text = policy
    Text5.Text = address
    Text6.Text = post
    Combo5.Text = enter
    Combo3.Text = college
    Combo4.Text = major
    Text8.Text = class
End Sub
'修改
Private Sub Command3_Click()
    Dim r As Integer
    stu_no = Text1.Text
        
    '没有输入学号
    If Len(stu_no) = 0 Then
            MsgBox "请先输入学号！"
            Text1.SetFocus
            Exit Sub
    End If
    
    '没有点击查询
    If Len(unshow.Caption) <> 0 Then
        MsgBox "请先查询出该生所有信息！"
        Exit Sub
    End If
    
    '确认修改
    r = MsgBox("是否修改？", 4 + 32 + 0, "确认修改")
    If r = 6 Then
    '选择是
        Dim i As Integer
        adoconn.Open
        rs.Open "select * from stu where no='" & stu_no & "'", adoconn
        If rs.RecordCount = 0 Then
            MsgBox "当前没有任何学生记录，请先添加！"
            adoconn.Close
            Unload Me
            stu_manage.Show
        End If
        rs.MoveFirst
        rs.Fields("no") = Text1.Text
        rs.Fields("name") = Text2.Text
        rs.Fields("sex") = Text3.Text
        rs.Fields("birth") = Text4.Text
        rs.Fields("nation") = nation_id
        rs.Fields("policy") = policy_id
        rs.Fields("addr") = Text5.Text
        rs.Fields("post") = Text6.Text
        rs.Fields("enter_year") = Combo5.Text
        rs.Fields("college") = college_id
        rs.Fields("major") = major_id
        rs.Fields("class") = Text8.Text
        rs.Update
        rs.Close
        adoconn.Close
        MsgBox "修改成功！"
        Call Command1_Click
    End If
    
End Sub
'删除
Private Sub Command4_Click()
    Dim r As Integer
    stu_no = Text1.Text
                
    '没有输入学号
    If Len(stu_no) = 0 Then
        MsgBox "请先输入学号！"
        Text1.SetFocus
        Exit Sub
    End If
    
    '没有点击查询
    If Len(unshow.Caption) <> 0 Then
        MsgBox "请先查询出该生所有信息！"
        Exit Sub
    End If
    
    '确认删除
    r = MsgBox("是否删除？", 4 + 32 + 0, "确认删除")
    If r = 6 Then
    '选择是
        Dim i As Integer
        adoconn.Open
        rs.Open "select * from stu where no='" & stu_no & "'", adoconn
        If rs.RecordCount = 0 Then
            MsgBox "当前没有任何学生记录，请先添加！"
            adoconn.Close
            Unload Me
            stu_manage.Show
        End If
        rs.Close
        rs.Open "delete from stu where no='" & stu_no & "'", adoconn
        adoconn.Close '关闭数据库连接
        Call clear '清空文本框和组合框数据
        MsgBox "删除成功！"
        unshow.Caption = "unshow" '可以为空串外的任意字符串
    End If
End Sub
'清空所有文本框和组合框
Public Sub clear()
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        Text4.Text = ""
        Text5.Text = ""
        Text6.Text = ""
       ' Text7.Text = ""
        Text8.Text = ""
      '  Combo1.Text = ""
      '  Combo2.Text = ""
      '  Combo3.Text = ""
      '  Combo4.Text = ""
        Text1.SetFocus
End Sub
'加载下拉列表
Private Sub load()
    Dim i As Integer
    adoconn.Open
    
    '加载民族列表
    Combo1.clear
    rs.Open "select * from nation", adoconn
    rs.MoveFirst
    For i = 0 To rs.RecordCount - 1
        Combo1.AddItem rs.Fields("name")
        rs.MoveNext
    Next i
    rs.Close
    
    '加载政治面貌
    Combo2.clear
    rs.Open "select * from policy", adoconn
    rs.MoveFirst
    For i = 0 To rs.RecordCount - 1
        Combo2.AddItem rs.Fields("name")
        rs.MoveNext
    Next i
    rs.Close
    
    '加载学院
    Combo3.clear
    rs.Open "select * from college", adoconn
    rs.MoveFirst
    For i = 0 To rs.RecordCount - 1
        Combo3.AddItem rs.Fields("name")
        rs.MoveNext
    Next i
    rs.Close
    
    adoconn.Close
End Sub

Private Sub Form_Load()
    'unshow用于判断修改或删除前有没有点击查询
    '加载时为非空值
    '点击查询 若没填写编号，不作处理，仍为非空值(要求输入编号，返回输入编号)
    '           若未找到数据，也不作处理，仍为非空值
    '           若找到数据，则可以修改、删除，设为空值
    '点击修改 确认修改时 点击是 修改完后调用“查询”，一定可以找到数据，不作处理，仍为空值
    '                    点击否 不作处理，可以继续修改或删除，仍为空值
    '点击修改 确认删除时 点击是 设为非空不
    '                    点击否 不作处理，仍为空值
    unshow.Caption = "unshow"
    Combo5.AddItem "2000"
    Combo5.AddItem "2001"
    Combo5.AddItem "2002"
    Combo5.AddItem "2003"
    Combo5.AddItem "2004"
    Combo5.AddItem "2005"
    Combo5.AddItem "2006"
    Combo5.AddItem "2007"
    Combo5.AddItem "2008"
    Combo5.AddItem "2009"
    Combo5.AddItem "2010"
End Sub