vb学生成绩管理系统

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

2、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) NOT NULL ,student_Name char(10) NULL ,class_No char(10) NULL ,co

3、urse_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 ,grade char(10) NULL ,director char(10) NULL ,classroom_No char(10) NULL )六、Vb开发欢

4、迎界面欢迎界面设计思想： 以动画形式开始整个程序设计代码：Option ExplicitDim Proba, Proba2 As IntegerDim Boja2 As String Private Function Zrak(slika As PictureBox, StartX As Integer, StartY As Integer, Levo As Integer, Desno As Integer, Boja As String) Me.ScaleMode = vbPixels With slika .ScaleMode = vbPixels .AutoRedraw = True

5、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)-(Levo + Proba2, Desno + slika.ScaleHeight), Boja Next For Proba2 = 0 To slika.ScaleHeight

6、Line (StartX, StartY)-(Levo + slika.ScaleWidth, Desno + Proba2), Boja NextEnd FunctionPrivate Sub Form_Activate() Timer1.Enabled = TrueEnd SubPrivate Sub Form_Click() Unload Me frmLogin.Show Timer1.Enabled = FalseEnd SubPrivate Sub Picture1_Click()End SubPrivate Sub Timer1_Timer() Dim i, j As Intege

7、r 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_ClickEnd Sub登陆界面登陆界面设计思想：输入用户名和密码进入学生成绩管理系统设计代码：Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() '设置全局变量为 false '不提示失

8、败的登录 LoginSucceeded = False Me.HideEnd SubPrivate Sub cmdOK_Click() '检查正确的密码 If txtPassword = "0" Then '将代码放在这里传递 '成功到 calling 函数 '设置全局变量时最容易的 LoginSucceeded = True Unload Me Form2.Show Me.Hide Else MsgBox "无效的密码，请重试!", , "登录" txtPassword.SetFocus SendKe

9、ys "Home+End" End IfEnd SubPrivate Sub Form_Load()End Sub主界面主界面设计思想：点击按钮进入不同的管理界面。设计代码：Private Sub Command1_Click()Unload MeForm1.ShowEnd SubPrivate Sub Command2_Click()Unload MeForm9.ShowEnd SubPrivate Sub Command3_Click()Unload MeForm7.ShowEnd SubPrivate Sub Command4_Click()Unload MeForm

10、8.ShowEnd SubPrivate Sub Form_Load()End Sub学生信息管理界面学生信息界面设计思想：点击按钮来实现系统的修改、添加、删除和查询。设计代码： Private Sub Command1_Click()Unload MeForm2.ShowEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Comm

11、and6_Click()End SubPrivate Sub Command7_Click()End SubPrivate Sub Command8_Click()Dim ask As Integerask = MsgBox("是否删除？", vbYesNo)If ask = 6 ThenEnd IfEnd SubPrivate Sub Command9_Click()Unload MeForm6.ShowEnd Sub学生信息管理界面查询界面学生信息查询界面设计思想： 实现学生信息按学号或姓名或班号的查询。设计代码：Private Sub Command2_Click()

12、If Text1 > "" ThenAdodc1.RecordSource = "select * from xt27result where student_NAME='" & Text1.Text & " '"ElseIf Text2 > "" ThenAdodci1.RecordSource = "select * from xt27result where student_ID='" & Text2.Text & &qu

13、ot; '"ElseIf Text3 > "" ThenAdodc1.RecordSource = "select * from xt27result where course_Name='" & Text3.Text & " '"End IfAdodc1.RefreshEnd SubPrivate Sub Command3_Click()Unload MeForm1.ShowEnd Sub班级信息管界面班级信息界面设计思想：点击按钮来实现系统的修改、添加、删除和查询。设计代码：

14、Private Sub addCommand_Click()End SubPrivate Sub Command1_Click()Unload MeForm2.ShowEnd SubPrivate Sub deleteCommand_Click()Dim ask As Integerask = MsgBox("是否删除？", vbYesNo)If ask = 6 ThenEnd IfEnd SubPrivate Sub updateCommand_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Com

15、mand3_Click()End SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Form_Load()End Sub课程信息管理界面课程信息界面设计思想：点击按钮来实现系统的修改、添加、删除。设计代码： Private Sub Command1_Click()Unload MeForm2.ShowEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub

16、Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Command6_Click()End SubPrivate Sub Command7_Click()End SubPrivate Sub Command8_Click()Dim ask As Integerask = MsgBox("是否删除？", vbYesNo)If ask = 6 ThenEnd IfEnd SubPrivate Sub Form_Load()End Sub成绩信息管理界面学生成绩管理界面设计思想：点击按钮来实现

17、系统的修改、添加、删除和查询。设计代码：Private Sub Command1_Click()Unload MeForm2.ShowEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Command6_Click()End SubPrivate Sub Command7_Click()End SubPrivate Sub Comm

18、and8_Click()Dim ask As Integerask = MsgBox("是否删除？", vbYesNo)If ask = 6 ThenEnd IfEnd SubPrivate Sub Command9_Click()Unload MeForm5.ShowEnd SubPrivate Sub Form_Load()End Sub 成绩信息管理界面查询界面成绩查询界面设计思想： 实现学生信息按学号或姓名或班号的查询。设计代码：Private Sub Command2_Click()If Text1 > "" ThenAdodc1.RecordSource = "select * from xt27student where student_ID='" & Text1.Text & " '"ElseIf Text2 > "" ThenAdodc1.RecordSource = "select * from xt27student where student_NAME='" & Text2.Text & " '"