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