VB学生成绩管理系统.docx

1、VB学生成绩管理系统vb学生成绩管理系统Vb+sql学生成绩管理系统 一、实验目的 1.综合掌握实验一到实验六的内容。 2.掌握编程语言与数据库连接及访问表记录的方法。 二、实验准备 1.综合以前所学知识，结合某种编程语言开发完整的系统; 2.预习数据库与编程语言链接的相关内容; 四、系统功能流程图 学生成绩管理系统 用户登录 学生成绩管理系统 课程信息管理 成绩信息管理 学生信息管理 班级信息管理 添加 添加 添加 添加 修改 修改 修改 修改 删除 删除 删除 删除 查询 查询 五、实验内容及步骤 Sql建表: create table student ( student_ID char(

2、4) NOT NULL , student_Name char(10) NOT NULL , student_Sex char(2) NULL , born_Date datetime NULL , class_NO char(10) NULL , tele_Number char(10) NULL , ru_Date datetime NULL , address varchar(50) NULL , comment varchar(200) NULL ) create table result ( exam_No char(10) NOT NULL , student_ID char(4)

3、 NOT NULL , student_Name char(10) NULL , class_No char(10) NULL , course_Name char(10) NULL , result float NULL ) create table course ( course_No char(10) NOT NULL , course_Name char(10) NULL , course_Type char(10) NULL , course_Des char(50) NULL ) create table class ( class_No char(10) NOT NULL , g

4、rade char(10) NULL , director char(10) NULL , classroom_No char(10) NULL ) 六、Vb开发 欢迎界面 欢迎界面 设计思想: 以动画形式开始整个程序 设计代码: Option Explicit Dim Proba, Proba2 As Integer Dim Boja2 As String Private Function Zrak(slika As PictureBox, StartX As Integer, StartY As Integer, Levo As Integer, Desno As Integer, Boj

5、a As String) Me.ScaleMode = vbPixels With slika .ScaleMode = vbPixels .AutoRedraw = True End With For Proba2 = 0 To slika.ScaleWidth DoEvents For Proba = 0 To slika.ScaleHeight Boja2 = slika.Point(Proba2, Proba) Line (StartX, StartY)-(Levo + Proba2, Desno + Proba), Boja2 Next Line (StartX, StartY)-(

6、Levo + Proba2, Desno + slika.ScaleHeight), Boja Next For Proba2 = 0 To slika.ScaleHeight Line (StartX, StartY)-(Levo + slika.ScaleWidth, Desno + Proba2), Boja Next End Function Private Sub Form_Activate() Timer1.Enabled = True End Sub Private Sub Form_Click() Unload Me frmLogin.Show Timer1.Enabled =

7、 False End Sub Private Sub Picture1_Click() End Sub Private Sub Timer1_Timer() Dim i, j As Integer Zrak Picture1, 565, 295, 0, 0, Me.BackColor If Timer1.Interval = 1000 Then For i = 0 To 100 For j = 0 To 100 DoEvents Next Next End If Call Form_Click End Sub 登陆界面 登陆界面 设计思想: 输入用户名和密码进入学生成绩管理系统 设计代码: O

8、ption Explicit Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() 设置全局变量为 false 不提示失败的登录 LoginSucceeded = False Me.Hide End Sub Private Sub cmdOK_Click() 检查正确的密码 If txtPassword = 0 Then 将代码放在这里传递 成功到 calling 函数 设置全局变量时最容易的 LoginSucceeded = True Unload Me Form2.Show Me.Hide Else MsgBox 无效

9、的密码，请重试!, , 登录 txtPassword.SetFocus SendKeys Home+End End If End SubPrivate Sub Form_Load() End Sub 主界面 主界面 设计思想: 点击按钮进入不同的管理界面。 设计代码: Private Sub Command1_Click() Unload Me Form1.Show End Sub Private Sub Command2_Click() Unload Me Form9.Show End Sub Private Sub Command3_Click() Unload Me Form7.Show

10、 End Sub Private Sub Command4_Click() Unload Me Form8.Show End Sub Private Sub Form_Load() End Sub 学生信息管理界面 学生信息界面 设计思想: 点击按钮来实现系统的修改、添加、删除和查询。 设计代码: Private Sub Command1_Click() Unload Me Form2.Show End Sub Private Sub Command2_Click() Adodc1.Recordset.MoveFirst End Sub Private Sub Command3_Click()

11、 Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveLast End Sub Private Sub Command4_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End Sub Private Sub Command5_Click() Adodc1.Recordset.MoveLast End Sub Private Sub Command6_Cli

12、ck() Adodc1.Recordset.Update End Sub Private Sub Command7_Click() Adodc1.Recordset.AddNew End Sub Private Sub Command8_Click() Dim ask As Integer ask = MsgBox(是否删除, vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End I

13、f End Sub Private Sub Command9_Click() Unload Me Form6.Show End Sub 学生信息管理界面查询界面 学生信息查询界面 设计思想: 实现学生信息按学号或姓名或班号的查询。 设计代码: Private Sub Command2_Click() If Text1 Then Adodc1.RecordSource = select * from xt27result where student_NAME= & Text1.Text & ElseIf Text2 Then Adodci1.RecordSource = select * fro

14、m xt27result where student_ID= & Text2.Text & ElseIf Text3 Then Adodc1.RecordSource = select * from xt27result where course_Name= & Text3.Text & End If Adodc1.Refresh End Sub Private Sub Command3_Click() Unload Me Form1.Show End Sub 班级信息管界面 班级信息界面 设计思想: 点击按钮来实现系统的修改、添加、删除和查询。 设计代码: Private Sub addCo

15、mmand_Click() Adodc1.Recordset.AddNew End Sub Private Sub Command1_Click() Unload Me Form2.Show End Sub Private Sub deleteCommand_Click() Dim ask As Integer ask = MsgBox(是否删除, vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.Mov

16、eLast End If End Sub Private Sub updateCommand_Click() Adodc1.Recordset.Update End Sub Private Sub Command2_Click() Adodc1.Recordset.MoveFirst End Sub Private Sub Command3_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveLast End Sub Private Sub Command4_Click(

17、) Adodc1.Recordset.MoveNext If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End Sub Private Sub Command5_Click() Adodc1.Recordset.MoveLast End Sub Private Sub Form_Load() End Sub 课程信息管理界面 课程信息界面 设计思想: 点击按钮来实现系统的修改、添加、删除。 设计代码: Private Sub Command1_Click() Unload Me Form2.Show End Sub Private

18、 Sub Command2_Click() Adodc1.Recordset.MoveFirst End Sub Private Sub Command3_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveLast End Sub Private Sub Command4_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End Sub Pr

19、ivate Sub Command5_Click() Adodc1.Recordset.MoveLast End Sub Private Sub Command6_Click() Adodc1.Recordset.Update End Sub Private Sub Command7_Click() Adodc1.Recordset.AddNew End Sub Private Sub Command8_Click() Dim ask As Integer ask = MsgBox(是否删除, vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete A

20、dodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End Sub Private Sub Form_Load() End Sub 成绩信息管理界面 学生成绩管理界面 设计思想: 点击按钮来实现系统的修改、添加、删除和查询。 设计代码: Private Sub Command1_Click() Unload Me Form2.Show End Sub Private Sub Command2_Click() Adodc1.Recordset.MoveFirst End Su

21、b Private Sub Command3_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveLast End Sub Private Sub Command4_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End Sub Private Sub Command5_Click() Adodc1.Recordset.MoveLast En

22、d Sub Private Sub Command6_Click() Adodc1.Recordset.Update End Sub Private Sub Command7_Click() Adodc1.Recordset.AddNew End Sub Private Sub Command8_Click() Dim ask As Integer ask = MsgBox(是否删除, vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then A

23、dodc1.Recordset.MoveLast End If End Sub Private Sub Command9_Click() Unload Me Form5.Show End Sub Private Sub Form_Load() End Sub 成绩信息管理界面查询界面 成绩查询界面 设计思想: 实现学生信息按学号或姓名或班号的查询。 设计代码: Private Sub Command2_Click() If Text1 Then Adodc1.RecordSource = select * from xt27student where student_ID= & Text1.T

24、ext & ElseIf Text2 Then Adodc1.RecordSource = select * from xt27student where student_NAME= & Text2.Text & ElseIf Text3 Then Adodc1.RecordSource = select * from xt27student where class_NO= & Text3.Text & End If Adodc1.Refresh End Sub Private Sub Command3_Click() Unload Me Form1.Show End Sub Private

25、Sub Form_Load() End Sub 总 结 在此大作业设计中，我遇到的困难很多，在解决它们的同时我又学到了很多，受益匪浅，特别是如何分析、建立、开发一个系统。 我认为在一个系统开发的过程中编码不是最重要的，重要的是分析系统、建立起系统模型。在分析一个系统前，我们必须要对将要开发的系统所涉及到的各方面知识有一个认识，然后将系统的模型建立起来。而且一个成功的软件要符合用户的需要，要以用户为中心，开发出用户想要的软件，而不能自以为是、想当然的做。 在程序编写中，我认识到系统应有简便的界面，良好的程序风格。拥有这些条件，程序的可读性才会好，开发的复杂度才能大大减少，修改代码时更加容易下手。 (进行管理系统开发这样的作业，要有恒心，要这次大作业给我的感受有1能静下新来做，而不能浮躁。2(要善于同别人交流与合作，善于获取各种有用的资源。3(要真真实实的多查资料，多问，多看。