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

添加学生代码设计:
Private Sub Command1_Click()
Dim sql As String
If Trim(Text1.Text) = "" Then
   MsgBox "学生姓名不能为空", vbOKOnly + vbExclamation, ""
   Text1.SetFocus
   Exit Sub
End If
If Trim(Text2.Text) = "" Then
   MsgBox "学号不能为空", vbOKOnly + vbExclamation, ""
   Text2.SetFocus
   Exit Sub
End If
If Trim(Text3.Text) = "" Then
   MsgBox "班级不能为空", vbOKOnly + vbExclamation, ""
   Text3.SetFocus
   Exit Sub
End If
   sql = "select * from 学生管理"
   rs.CursorLocation = adUseClient
   rs.Open sql, conn, adOpenKeyset, adLockPessimistic
   While (rs.EOF = False)
        If Trim(rs.Fields(0)) = Trim(Text2.Text) Then
           MsgBox "学号不能重复！", vbOKOnly + vbExclamation, ""
           Text1.SetFocus

think58 [资料来源：THINK58.com]

           Text1.Text = ""
           Text2.Text = ""
           Text3.Text = ""
           Exit Sub
         Else
           rs.MoveNext
         End If
    Wend
       rs.AddNew
       rs.Fields(0) = Text2.Text
       rs.Fields(1) = Text1.Text
       rs.Fields(2) = Text3.Text
       rs.Update
       rs.Close
       MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""
       Unload Me

[资料来源：http://think58.com]

End Sub copyright think58 [来源：http://think58.com]

Private Sub Command2_Click()
Unload Me
End Sub copyright think58 [版权所有：http://think58.com]

3. 查找学生界面设计:
致谢 本文来自think58 [资料来源：http://www.THINK58.com]

我首先感谢我的指导老师吕老师，在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做，这样会有好的创意，才能更有作为。
在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年，在生活和学习上给了我很大的帮助。
参 考 文 献

copyright think58 [资料来源：http://THINK58.com]

[来源：http://www.think58.com]

1陈明 . 软件工程学教程 .科技出版社，2002
2 萨师煊，王珊 . 数据库系统概论 . 第三版 . 高等教育出版社，2000
3 飞思科技产品研发中心 . visual basic 6.0数据库应用开发 .电子工业出版社，2003
4 飞思科技产品研发中心 . visual basic 6.0开发者手册 . 电子工业出版社, 2002
5 申旻 . visual basic 6.0高手突破 . 清华大学出版社，2002，302
6 Steve Teixeira，Xaviver Pacheco著，龙劲松，王瑜，谢尚书译 . visual basic 6.0开发人员指南 . 机械工业出版社 .2003
7 乔林 .参透Delphi／Kylix . 中国铁道出版社 .2003
8 李维 .Inside 深入核心 VCL 架构剖析  . 电子工业出版社  .2004
9 张立科编写组  .Windows API 函数参考手册  .人民邮电出版社  .2002
严蔚敏，吴伟民  .数据结构  .第二版  .清华大学出版社  .2001
10 王珍玲 。实用软件工程教程 高等教育出版社 2004
11 （英）Ian Sommerville  机械工业出版社  2003
12 美Cantu,U.  王辉等译visual basic 6.0 从入门到精通  电子工业出版社 2003
13 李维 面向对象开发实践之路（visual basic 6.0版）(BORLAND资深顾问著名visual basic 6.0专家李维最新力作)  电子工业出版社  2005.4

本文来自think58

14 秦斌 等  visual basic 6.0数据库系统开发与应用  中国水利水电出版社  2006 .1
15 刘艺 visual basic 6.0面向对象编程思想 机械工业出版社  2003
16.visual basic 程序设计第二版 谭浩强  清华大学出版社 2003
17. visual basic6.0 程序设计教程.  胡同森 赵剑锋等. 浙江科学技术出版社,2002.1
18.软件工程学教程 (第二版) 周苏 王文 著 科学出版社 2003
19.Visual Basic 6.0 程序设计与开发技术   求是科技  人民邮电出版社 2004.9
think58.com