VB学生成绩管理系统

vb学生成绩管理系统

Vb+sql学生成绩管理系统一、实验目的

1.综合掌握实验一到实验六的内容。

2.掌握编程语言与数据库连接及访问表记录的方法。

二、实验准备

1.综合以前所学知识，结合某种编程语言开发完整的系统;

2.预习数据库与编程语言链接的相关内容;

四、系统功能流程图

学生成绩管理系统

用户登录

学生成绩管理系统

课程信息管理成绩信息管理学生信息管理班级信息管理添加添加添加添加

修改修改修改修改

删除删除删除删除

查询查询

五、实验内容及步骤

Sql建表:

create table student

(

student_ID char(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) 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 , grade 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, Boja 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)-(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 = 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

登陆界面

登陆界面

设计思想:

输入用户名和密码进入学生成绩管理系统

设计代码:

Option 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 "无效的密码，请重试!", , "登录"