vb448教师评语管理系统论文access

《vb448教师评语管理系统论文access》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB448教师评语管理系统论文Access

添加学生代码设计:
PrivateSubCommand1_Click()
DimsqlAsString
IfTrim(Text1.Text)=""Then
  MsgBox"学生姓名不能为空",vbOKOnly+vbExclamation,""
  Text1.SetFocus
  ExitSub
EndIf
IfTrim(Text2.Text)=""Then
  MsgBox"学号不能为空",vb

2、OKOnly+vbExclamation,""
  Text2.SetFocus
  ExitSub
EndIf
IfTrim(Text3.Text)=""Then
  MsgBox"班级不能为空",vbOKOnly+vbExclamation,""
  Text3.SetFocus
  ExitSub
EndIf
  sql="select*from学生管理"
  rs.CursorLo

3、cation=adUseClient
  rs.Opensql,conn,adOpenKeyset,adLockPessimistic
  While(rs.EOF=False)
       IfTrim(rs.Fields(0))=Trim(Text2.Text)Then
          MsgBox"学号不能重复！",vbOKOnly+vbExc

4、lamation,""
          Text1.SetFocus
          Text1.Text=""
          Text2.Text=""
        &

5、nbsp; Text3.Text=""
          ExitSub
        Else
          rs.MoveNext
        EndIf
 &nb

6、sp; Wend
      rs.AddNew
      rs.Fields(0)=Text2.Text
      rs.Fields(1)=Text1.Text
      rs.Fields(2)=Text3.Text
      rs.Up

7、date
      rs.Close
      MsgBox"添加用户成功",vbOKOnly+vbExclamation,""
      UnloadMe
EndSub

PrivateSubCommand2_Click()<