VB+SQL2000课程设计-大学生奖助学金管理信息系统数据库的设计与实现

1、摘要：高校学生奖助学金是政府、高校自身、团体或个人给予学习成绩优良及经济困难学生的奖金。近几年来,中央和地方财政不断增加对高校贫困生资助的投入,再加上各类基金会和企业设立的奖助学金,使奖助学金面越来越广,量越来越大,涉及的学生越来越多。奖助学金是党和政府或企业对品学兼优及家庭经济困难学生的奖励和扶助。所以，有关大学生的各种信息也成倍增长。面对庞大的信息量，就需要有大学生奖助学金信息管理系统来提高这些学生的管理工作效率。本文设计了基于VB+SQL大学生奖助学金信息管理系统，通过这样的系统，可以做到信息的规范管理、科学统计、和快速的查询，从而减少管理方面的工作量。 第一章 系统设计系统功能分析系统

2、功能分析是在系统开发的总体任务的基础上完成的。本大学生奖助学金信息管理系统要完成的功能有：有关学生信息的输入，包括学生的基本信息，所在班级等；学生信息查询，包括学生的基本基本信息等；学生信息的修改；学生成绩信息的输入；学生成绩信息的修改；学生成绩信息的查询；学生成绩信息的统计；奖助学金信息的输入；奖助学金信息的设置和修改；奖助学金评定信息的输入；奖助学金评定信息的修改；奖助学金评定信息的查询；奖助学金评定信息的统计；系统功能模块分析对上述的各项功能进行集中、分块，按照结构化程序设计的要求，得到下图所示的系统功能模块图。大学生奖助学金管理信息系统学生信息管理成绩信息管理奖助学金管理奖助学金评定管

3、理系统管理学生信息管理学生信息查询学生信息修改学生信息添加成绩信息管理成绩信息查询成绩信息修改成绩信息添加奖助学金评定管理奖助学金评定查询奖助学金评定修改奖助学金评定添加奖助学金管理奖助学金修改奖助学金添加系统管理用户管理密码管理 第二章 数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构程序设计可以提高数据库存储的效率，保证数据的完整和一致。同时，合理的数据库结构将有利于程序实现。设计数据库系统应该首先了解用户各个方面的需求，包括现有的以及将来的可能的增加的需求。数据库需求分析用户的需求具体体现在各种信息的

4、提供、保存、更新和查询，这就是要求的数据库结能能充分满足各种信息输入和输出。收集基本数据、数据结构以及数据的流程，组成一份详尽的数据字典，为今后的具体设计带下基础。再仔细分析调查有关大学生奖助学金信息需求的基础上，将得到如下图本系统所处理的数据流程。学生登记基本信息输入学生信息管理奖助学金评定信息输入成绩信息输入奖助学金评定管理成绩信息管理奖助学金设置奖助学金管理大学生奖助学金管理信息系统E-R图针对一般大学生奖助学金信息管理系统的需求，通过对评定过程的内容和数据流程分析，设计如下面的数据项和数据结构。学生基本信息：包括学号、姓名、性别、出生日期、班号、联系号码、政治面貌、家庭住址和家庭生活描

5、述等数据项。学生成绩信息：包括考号、学号、姓名、班号、分数等数据项。学生奖助学金评定信息：包括评定编码、学号、姓名、考号、奖学金标号和助学金标号等数据项。奖学金信息：包括奖学金标号、类别、等级、金额等数据项。助学金信息：包括助学金标号、类别、等级、金额等数据项。 有了上面 数据结构、数据项、和数据流程，就可以进行下面的数据库设计。2、数据库概念结构设计 得到上面的数据项和数据结构以后，就可以设计出能够满足客户需求的各种实体，以及它们之间的关系，为以后的逻辑结构设计打下基础。这些实体包括各种具体的信息，通过相互之的作用形成数据的流动。 根据实体之间具体描述E-R图如下所示。 学号姓名名名性别出生

6、日期班号政治面貌家庭住址联系号码学生家庭生活描述学生实体E-R图奖学金标号奖学金类别奖学金等级奖学金奖学金实体E-R图奖学金额助学金标号助学金类别助学金等级助学金助学金实体E-R图助学金额实体与实体之间的关系E-R如下图所示。学生审核过程奖助学金评定助学金奖学金各实体之间关系E-R图3、数据库逻辑结构设计现在需要将上面的数据库概念结构转化为SQL Server 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。上面实体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系。大学生奖助学金信息管理系统数据库中的歌表格的设计如下表。每个表格表示在数据库中的一个表。 stu

7、dent_Info 学生基本信息表列名数据类型可否为空说明student_IDint(4)NOT NULL学号（主键）student_Namechar(10)NULL姓名student_Genderchar(2)NULL性别born_Datedatetime(8)NULL出生日期class_Noint(4)NULL班号tele_Numberchar(10)NULL联系 political_Lanchar(10)NULL政治面貌addressvarchar(50)NULL家庭住址life_Homevarchar(200)NULL家庭生活描述 result_Info 学生成绩信息表列名数据类型可否

8、为空说明exam_Nochar(10)NOT NULL考号（主键）student_IDint(4)NOT NULL学号student_Namechar(10)NULL姓名class_Noint(4)NULL班号resultchar(10)NULL分数 SG_Info 学生奖助学金评定表列名数据类型可否为空说明SG_IDChar(10)NOT NULL评定编码（主键）student_IDint(4)NOT NULL学号student_Namechar(10)NULL姓名exam_Nochar(10)NOT NULL考号scholarship_IDchar(10)NOT NULL奖学金标号gran

9、t_IDchar(10)NOT NULL助学金标号 scholarship_Info 奖学金表列名数据类型可否为空说明scholarship_IDchar(10)NOT NULL奖学金标号（主键）scholarship_Kindchar(10)NULL奖学金类别scholarship_Levelchar(10)NULL奖学金等级scholarship_Moneymoney(8)NULL奖学金额 grant_Info 助学金表列名数据类型可否为空说明grant_IDchar(10)NOT NULL助学金标号（主键）grant_Kindchar(10)NULL助学金类别grant_Levelcha

10、r(10)NULL助学金等级grant_Moneymoney(8)NULL助学金额 User_Info 系统用户表列名数据类型可否为空说明user_IDchar(10)NOT NULL用户名称（主键）user_PWDchar(10)NULL用户密码user_Deschar(10)NULL用户描述 第三章 界面设计 登录界面： 为了保证系统安全性，防止对系统资源的非法使用，在一开始进入系统时，会显示用户登录窗口，以检验与确认用户身份，如下图主系统界面： 在用户正确输入用户名和密码后，点击确认后出现系统的主菜单界面，如下图 下面列出部分功能模块界面：总结刚刚看到这个大学生奖助学金信息管理题目的时候

11、，确实不是很懂，因为我不懂这些奖助学金的流程是怎样的，不知从何建立数据库及里面的数据项和数据结构。后来想想，要换一个题目不，发现自己会做的题目，人家早就换了。所以只能做这个题目了，只能到处收集资料，了解相关内容了。本来想用VC+做平台的感觉，需要些时间了，设计紧。后来选择VB了，快点啊，但是VB早就不记得了，只能花些时间回去看了。在想好思路好了，确定数据库后，开始构思数据项和数据结构了，以及之间的关联后。还有考虑系统设计，怎么管理系统，该用哪些功能模块。一切搞完后，开始建立数据库了。再用VB+SQL2000做系统时候，碰到很多问题，也是问别人的，或者百度等搜资料方法的，最后也终于做完了。通过这

12、个大学生奖助学金信息管理系统设计，从今学到了很多知识，并且引申了很多知识点，最重要还是懂得一个系统开发流程了。不过感觉数据库的后台工作真的很重要的，就是架构一个好的数据库，真的费劲，要有想法，考虑的东西真的要很前和预知一些问题才行了，要不后面工作真的坐不下去的。其次选择的平台的，都是一些添加、删除、查询也没太多问题了，只要对一种语言熟悉就好了。不管怎么说，为毕业后设计论文打下了基础了。参考文献【1】刘炳文 Visual Basic程序设计教程（第三版）【2】李华飚 Visual Basic数据库编程【3】王玉 SQL Server数据库应用技术【4】王珊 数据库系统概论（第四版）附录：（功能模

13、块代码）登录 Option ExplicitPublic OK As Integer记录确定次数Dim miCount As IntegerPrivate Sub cmdCancel_Click()OK = FalseEnd SubPrivate Sub cmdOK_Click()用来存放记录SQL 语句Dim txtSQL As String用来存放记录集对象用来存放返回信息Dim MsgText As StringUserName = If Trim(txtUserName.Text = ) ThenMsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vbExclama

14、tion, 警告ElsetxtSQL = select * from user_Info where user_ID= & txtUserName.Text & Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = True ThenMsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(mrc.Fields(1) = Trim(txtPassword.Text) ThenOK = TrueUserName = Trim(txtUserName.Text) ElseMsgB

15、ox 输入密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告txtPassword.Text = End If End IfEnd IfmiCount = miCount + 1If miCount = 3 Then End IfExit SubEnd SubPrivate Sub Form_Load()OK = FalsemiCount = 0End SubPrivate Sub From_()End Sub系统添加用户代码Private Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdOK_Click

16、()Dim txtSQL As StringDim MsgText As StringIf Trim(txtUserName.Text) = ThenMsgBox 请输入用户名称！, vbOKOnly + vbExclamation, 警告Exit SubElsetxtSQL = select * from user_InfoSet mrc = ExecuteSQL(txtSQL, MsgText)While (mrc.EOF = False) If Trim(mrc.Fields(0) = Trim(txtUserName.Text) Then MsgBox 用户已经存在，请重新输入用户名！

17、, vbOKOnly + vbExclamation, 警告 txtUserName.Text = txtPassword1.Text = txtPassword2.Text = Exit Sub Else End If Wend End If If Trim(txtPassword1.Text) Trim(txtPassword2.Text) Then MsgBox 两次输入密码不一样，请确认！, vbOKOnly + vbExclamation, 警告 txtPassword1.Text = txtPassword2.Text = Exit Sub Else If txtPassword1

18、.Text = Then MsgBox 密码不能为空！, vbOKOnly + vbExclamation, 警告 txtPassword1.Text = txtPassword2.Text = Else mrc.Fields(0) = Trim(txtUserName.Text) mrc.Fields(1) = Trim(txtPassword1.Text) MsgBox 添加用户成功！, vbOKOnly + vbExclamation, 添加用户 End If End IfEnd Sub修改密码Private Sub cmdCancel_Click()Unload MeEnd SubPr

19、ivate Sub cmdOK_Click()Dim txtSQL, MsgText As StringIf Trim(txtPassword1.Text) Trim(txtPassword2.Text) Then MsgBox 密码输入不正确！, vbOKOnly + vbExclamation, 警告 txtPassword1.Text = Else txtSQL = select * from user_Info where user_ID= & UserName & Set mrc = ExecuteSQL(txtSQL, MsgText) MsgBox 密码修改成功！, vbOKOn

20、ly + vbExclamation, 修改密码 End IfEnd SubPrivate Sub Form_Load()End Sub学生信息管理 添加学生信息Private Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdOK_Click()Dim txtSQL, MsgText As String判断是否输入学号If Not Testtxt(txtSID.Text) ThenMsgBox 请输入学号！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入姓名 If Not Testt

21、xt(txtName.Text) ThenMsgBox 请输入姓名！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入性别 If Not Testtxt(comboGender.Text) ThenMsgBox 请选择性别！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入出生日期 If Not Testtxt(txtBorndate.Text) ThenMsgBox 请输入出生日期！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入

22、班号 If Not Testtxt(comboClassno.Text) ThenMsgBox 请选择班号！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入联系号码 If Not Testtxt(txtTel.Text) ThenMsgBox 请输入联系号码！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入政治面貌 If Not Testtxt(txtPolitical.Text) ThenMsgBox 请输入入校日期！, vbOKOnly + vbExclamation, 警告Ex

23、it Sub End If 判断是否输入家庭住址 If Not Testtxt(txtAddress.Text) ThenMsgBox 请输入家庭住址！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断输入学号是否是数字 If Not IsNumeric(Trim(txtSID.Text) ThenMsgBox 学号请输入入数字！, vbOKOnly + vbExclamation, 警告Exit Sub End If txtSQL = select * from student_Info where student_ID= & Trim(txtS

24、ID.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText) 判断是否有重复记录 If mrc.EOF = False Then MsgBox 学号重复，请重新输入！, vbOKOnly + vbExclamation, 警告 Else 判断是输入的出生日期是否按格式 If Not IsDate(txtBorndate.Text) Then MsgBox 出生时间应输入日期格式(yyyy-mm-dd)！, vbOKOnly + vbExclamation, 警告 Else txtBorndate = Format(txtBorndate, yyyy-mm-d

25、d) txtSQL = select * from student_Info Set mrc = ExecuteSQL(txtSQL, MsgText)ext) mrc.Fields(1) = Trim(txtName.Text) mrc.Fields(2) = Trim(comboGender.Text) mrc.Fields(3) = Trim(txtBorndate.Text) mrc.Fields(4) = Trim(comboClassno.Text) mrc.Fields(5) = Trim(txtTel.Text) mrc.Fields(6) = Trim(txtPolitica

26、l.Text) mrc.Fields(7) = Trim(txtAddress.Text) mrc.Fields(8) = Trim(txtLife.Text) MsgBox 添加学籍信息成功！, vbOKOnly + vbExclamation, 警告 End If End IfEnd SubPrivate Sub Form_Load()Dim txtSQL, MsgText As StringDim i As Integer为下拉列表框添加内容comboGender.AddItem 男comboGender.AddItem 女txtSQL = select * from student_I

27、nfoSet mrc = ExecuteSQL(txtSQL, MsgText)添加内容到列表框comboClassno.AddItem mrc.Fields(4)Next iEnd SubPrivate Sub txtBormdate_Change()End Sub修改学生信息Dim mrc As ADODB.Recordset: Dim myBookmark As Variant: Dim mcclean As Boolean 判断是否修改记录Private Sub cmdCancel_Click()If mcclean = False ThenFrame2.Enabled = True使

28、各个按钮生效 cmdFirst.Enabled = True cmdLast.Enabled = Trueabled = True cmdNext.Enabled = True 使各个文本框失效 txtSID.Enabled = False txtName.Enabled = False comboGender.Enabled = False txtBorndate.Enabled = False comboClassno.Enabled = False txtTel.Enabled = False txtPolitical.Enabled = False txtAddress.Enabled

29、 = False txtLife.Enabled = False 回到开始记录位置 mrc.Bookmark = myBookmark Call viewData Else MsgBox 什么都没有修改！, vbOKOnly + vbExclamation, 警告 mcclean = True End IfEnd SubPrivate Sub cmdDelete_Click()记下当前记录位置str2$ = MsgBox(是否删除当前记录？, vbOKCancel, 删除当前记录)If str2$ = vbOK Then If mrc.EOF Then mrc.Bookmark = myBoo

30、kmark 调用显示数据 Call viewData Else 回到原来位置 mrc.Bookmark = myBookmark 调用显示数据 Call viewData End If Elsemrc.Bookmark = myBookmarkCall viewDataEnd If使移动记录按钮失效cmdFirst.Enabled = TruecmdLast.Enabled = TruecmdPrevious.Enabled = TruecmdNext.Enabled = TrueEnd SubPrivate Sub cmdEditt_Click()Dim txtSQL, MsgText As

31、 Stringmcclean = True使移动记录按钮失效cmdFirst.Enabled = Falsed = FalsecmdPrevious.Enabled = FalsecmdNext.Enabled = FalsecmdUpdate.Enabled = TruecmdCancel.Enabled = TruecmdDelete.Enabled = True使各个文本框有效txtSID.Enabled = TruetxtName.Enabled = TruecomboGender.Enabled = TruetxtBorndate.Enabled = TruecomboClassno

32、.Enabled = TruetxtTel.Enabled = TruetxtPolitical.Enabled = TruetxtAddress.Enabled = TruetxtLife.Enabled = True记下当前记录位置End SubPrivate Sub cmdFirst_Click()Call viewDataEnd SubPrivate Sub cmdLast_Click()mCall viewDataEnd SubPrivate Sub cmdNext_Click()If mrc.EOF ThenEnd IfCall viewDataEnd SubPrivate Sub

33、 cmdPrevious_Click()If mrc.BOF ThenEnd IfCall viewDataEnd SubPrivate Sub cmdUpdate_Click()Dim txtSQL As StringDim MsgText As String判断是否处于修改状态If mcclean = False ThenMsgBox 请先修改学籍信息！, vbOKOnly + vbExclamation, 警告Exit SubElse用一个控件可使用性判断可否修改If txtName.Enabled = False ThenMsgBox 请点击 修改记录 按钮才能更新！, vbOKOnl

34、y + vbExclamation, 警告Else判断是否输入学号If Not Testtxt(txtSID.Text) ThenMsgBox 请输入学号！, vbOKOnly + vbExclamation, 警告Exit SubEnd If 判断是否输入姓名 If Not Testtxt(txtName.Text) ThenMsgBox 请输入姓名！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入性别ext) ThenMsgBox 请选择性别！, vbOKOnly + vbExclamation, 警告Exit Sub End If

35、判断是否输入出生日期 If Not Testtxt(txtBorndate.Text) ThenMsgBox 请输入出生日期！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入班号 If Not Testtxt(comboClassno.Text) ThenMsgBox 请选择班号！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入联系号码 If Not Testtxt(txtTel.Text) ThenMsgBox 请输入联系号码！, vbOKOnly + vbExclamation,

36、 警告Exit Sub End If 判断是否输入政治面貌 If Not Testtxt(txtPolitical.Text) ThenMsgBox 请输入入校日期！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入家庭住址 If Not Testtxt(txtAddress.Text) ThenMsgBox 请输入家庭住址！, vbOKOnly + vbExclamation, 警告txtAddExit SubEnd If判断学号是否位数字If Not IsNumeric(Trim(txtSID.Text) ThenMsgBox 学号请输

37、入数字！, vbOKOnly + vbExclamation, 警告Exit SubEnd IftxtSQL = select * from student_Info where student_ID= & Trim(txtSID.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText)判断是否有重复记录If mrc.EOF = False ThenMsgBox 学号重复，请重新输入！, vbOKOnly + vbExclamation, 警告Else判断是输入的出生日期是否按格式 If Not IsDate(txtBorndate.Text) Then Ms

38、gBox 出生时间应输入日期格式(yyyy-mm-dd)！, vbOKOnly + vbExclamation, 警告 Else txtBorndate = Format(txtBorndate, yyyy-mm-dd) mrc.Bookmark = myBookmark mrc.Fields(0) = Trim(txtSID.Text) mrc.Fields(1) = Trim(txtName.Text) mrc.Fields(2) = Trim(comboGender.Text) mrc.Fields(3) = Trim(txtBorndate.Text) mrc.Fields(4) =

39、Trim(comboClassno.Text) mrc.Fields(5) = Trim(txtTel.Text) mrc.Fields(6) = Trim(txtPolitical.Text) mrc.Fields(7) = Trim(txtAddress.Text) mrc.Fields(8) = Trim(txtLife.Text) MsgBox 修改学籍信息成功！, vbOKOnly + vbExclamation, 修改学籍信息 mrc.Bookmark = myBookmark Call viewData Frame2.Enabled = True 使各个按钮生效 cmdFirst

40、.Enabled = True cmdLast.Enabled = True cmdPrevious.Enabled = Trued = True 使各个文本框失效 txtSID.Enabled = False txtName.Enabled = False comboGender.Enabled = False txtBorndate.Enabled = False comboClassno.Enabled = False txtTel.Enabled = False txtPolitical.Enabled = False txtAddress.Enabled = False txtLif

41、e.Enabled = False mcclean = True End If End If End If End IfEnd SubPrivate Sub Form_Load()Dim txtSQL, MsgText As StringtxtSID.Enabled = FalsetxtName.Enabled = FalsecomboGender.Enabled = FalsetxtBorndate.Enabled = FalsecomboClassno.Enabled = FalsetxtTel.Enabled = FalsetxtPolitical.Enabled = FalsetxtA

42、ddress.Enabled = FalsetxtLife.Enabled = FalsecmdUpdate.Enabled = FalsecmdCancel.Enabled = FalsecmdDelete.Enabled = FalsetxtSQL = select * from student_Info Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenCall viewData Else MsgBox 没有记录！, vbOKOnly + vbExclamation, 警告 Exit SubEnd IfEnd SubP

43、ublic Sub viewData()If Not IsNull(mrc!student_ID) ThentxtSID.Text = mrc!student_IDEnd IfIf Not IsNull(mrc!student_Name) ThentxtName.Text = mrc!student_NameEnd IfIf Not IsNull(mrc!student_Gender) ThencomboGender.Text = mrc!student_GenderEnd IfIf Not IsNull(mrc!born_Date) ThentxtBorndate.Text = mrc!bo

44、rn_DateEnd IfIf Not IsNull(mrc!class_No) ThencomboClassno.Text = mrc!class_NoEnd IfIf Not IsNull(mrc!tele_Number) ThentxtTel.Text = mrc!tele_NumberEnd IfIf Not IsNull(mrc!political_Lan) ThentxtPolitical.Text = mrc!political_LanEnd IfIf Not IsNull(mrc!address) ThentxtAddress.Text = mrc!addressEnd IfI

45、f Not IsNull(mrc!life_Home) ThentxtLife.Text = mrc!life_HomeEnd IfEnd Sub 查看学生信息Private Sub DBGrid1_Click()End SubPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub cmdInquire_Click()Dim txtSQL, MsgText As StringDim dd(4) As BooleantxtSQL = select * from student_Info 判断是否选择学号查询方式If Check1.Value

46、Then If Trim(txtSID.Text) = Then sMeg = 学号不能为空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Exit Sub Else If Not IsNumeric(Trim(txtSID.Text) Then MsgBox 请输入数字, vbOKOnly + vbExclamation, 警告 Exit Sub End If dd(0) = True txtSQL = txtSQL & where student_ID= & Trim(txtSID.Text) & End IfEnd If判断是否选择姓名查询方式If

47、Check2.Value Then If Trim(txtName.Text) = Then sMeg = 姓名不能为空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Exit Sub Else dd(1) = True If dd(0) Then txtSQL = txtSQL & and student_Name= & txtName.Text & Else txtSQL = txtSQL & where student_Name= & txtName.Text & End If End If End If 判断是否选择班号查询方式 If Check3

48、.Value Then If Trim(txtClassno.Text) = Then sMeg = 班号不能为空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Exit Sub Else dd(2) = True If dd(0) Or dd(1) Then txtSQL = txtSQL & and class_No= & txtClassno.Text & Else txtSQL = txtSQL & where class_No= & txtClassno.Text & End If End IfEnd IfIf Not (dd(0) Or dd(

49、1) Or dd(2) Or dd(3) Then MsgBox 请设置查询方式！, vbOKOnly + vbExclamation, 警告 Exit Sub End If txtSQL = txtSQL & order by student_ID Set mrc = ExecuteSQL(txtSQL, MsgText) With myFlexgrid .Rows = 2 .CellAlignment = 4 .TextMatrix(1, 0) = 学号 .TextMatrix(1, 1) = 姓名 .TextMatrix(1, 2) = 性别 .TextMatrix(1, 3) = 出生

50、日期 .TextMatrix(1, 4) = 班号 .TextMatrix(1, 5) = 联系 .TextMatrix(1, 6) = 政治面貌 .TextMatrix(1, 7) = 家庭住址 判断是否移动到数据集对象的最后一条记录 .Rows = .Rows + 1 .CellAlignment = 4 .TextMatrix(.Rows - 1, 0) = mrc.Fields(0) .TextMatrix(.Rows - 1, 1) = mrc.Fields(1) .TextMatrix(.Rows - 1, 2) = mrc.Fields(2) .TextMatrix(.Rows

51、- 1, 3) = Format(mrc.Fields(3), yyyy-mm-dd) .TextMatrix(.Rows - 1, 4) = mrc.Fields(4) .TextMatrix(.Rows - 1, 5) = mrc.Fields(5) .TextMatrix(.Rows - 1, 6) = mrc.Fields(6) .TextMatrix(.Rows - 1, 7) = mrc.Fields(7) Loop End WithEnd SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Sin

52、gle)End Sub奖助学金管理 添加奖助学金信息Private Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdCancel1_Click()Unload MeEnd SubPrivate Sub cmdOK_Click()Dim txtSQL, MsgText As String判断是否输入标号号If Not Testtxt(txtID.Text) ThenMsgBox 请输入标号！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入类别 If Not Testtxt(txtKin

53、d.Text) ThenMsgBox 请输入类别！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入等级 If Not Testtxt(txtLevel.Text) ThenMsgBox 请输入等级！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入金额 If Not Testtxt(txtMoney.Text) ThenMsgBox 请输入金额！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断输入学号是否是数字 If Not IsNume

54、ric(Trim(txtID.Text) ThenMsgBox 标号请输入入数字！, vbOKOnly + vbExclamation, 警告Exit Sub End If txtSQL = select * from scholarship_Info where scholarship_ID= & Trim(txtID.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText) 判断是否有重复记录 If mrc.EOF = False Then MsgBox 标号重复，请重新输入！, vbOKOnly + vbExclamation, 警告 Else txtS

55、QL = select * from scholarship_Info Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.Fields(0) = Trim(txtID.Text) mrc.Fields(1) = Trim(txtKind.Text) mrc.Fields(2) = Trim(txtLevel.Text) mrc.Fields(3) = Trim(txtMoney.Text) MsgBox 添加奖学金信息成功！, vbOKOnly + vbExclamation, 警告 End ifEnd SubPrivate Sub cmdOK1_Click(

56、)Dim txtSQL, MsgText As String判断是否输入标号号If Not Testtxt(txtID1.Text) ThenMsgBox 请输入标号！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入类别 If Not Testtxt(txtKind1.Text) ThenMsgBox 请输入类别！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断是否输入等级 If Not Testtxt(txtLevel1.Text) ThenMsgBox 请输入等级！, vbOKOnly

57、+ vbExclamation, 警告Exit Sub End If 判断是否输入金额 If Not Testtxt(txtMoney1.Text) ThenMsgBox 请输入金额！, vbOKOnly + vbExclamation, 警告Exit Sub End If 判断输入学号是否是数字 If Not IsNumeric(Trim(txtID1.Text) ThenMsgBox 标号请输入数字！, vbOKOnly + vbExclamation, 警告Exit Sub End If txtSQL = select * from grant_Info where grant_ID=

58、& Trim(txtID1.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText) 判断是否有重复记录 If mrc.EOF = False Then MsgBox 标号重复，请重新输入！, vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from grant_Info Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.Fields(0) = Trim(txtID1.Text) mrc.Fields(1) = Trim(txtKind1.Text) mrc.Fields

59、(2) = Trim(txtLevel1.Text) mrc.Fields(3) = Trim(txtMoney1.Text) MsgBox 添加助学金信息成功！, vbOKOnly + vbExclamation, 警告 End IfEnd SubPrivate Sub txtLexel1_Change()End SubPrivate Sub Form_Load()End Sub修改奖助学金信息Dim mrc, mrc1 As ADODB.Recordset: Dim myBookmark, myBook1 As Variant: Dim mcclean, mcclean1 As Boole

60、an 判断是否修改记录Private Sub cmdCancel_Click()If mcclean = False ThenFrame2.Enabled = True使各个按钮生效 cmdFirst.Enabled = True cmdLast.Enabled = True cmdPrevious.Enabled = True cmdNext.Enabled = True 使各个文本框失效 txtID.Enabled = False txtKind.Enabled = False txtLevel.Enabled = False txtMoney.Enabled = False 回到开始记录