VB学生成绩管理系统

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

2、nt_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_

3、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 , 呕心沥血整理word1用心、精心、决心、匠心course_Type char(10) NULL , course_Des char(50) NULL ) create table class (class_No char(10) NOT NULL ,gr

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

5、) Me.ScaleMode = vbPixels With slika .ScaleMode = vbPixels .AutoRedraw = True End With For Proba2 = 0 To slika.ScaleWidth DoEventsFor Proba = 0 To slika.ScaleHeightBoja2 = slika.Point(Proba2, Proba)Line (StartX, StartY)-(Levo + Proba2, Desno + Proba), Boja2 NextLine (StartX, StartY)-(Levo + Proba2,

6、Desno + slika.ScaleHeight), BojaNextFor Proba2 = 0 To slika.ScaleHeightLine (StartX, StartY)-(Levo + slika.ScaleWidth, Desno + Proba2), BojaNextEnd FunctionPrivate Sub Form_Activate()Timer1.Enabled = True End Sub Private Sub Form_Click() Unload Me frmLogin.Show呕心沥血整理word8Timerl.Enabled = FalseEnd Su

7、bPrivate Sub Picture1_Click()End SubPrivate Sub Timer1_Timer()Dim i, j As IntegerZrak Picture1, 565, 295, 0, 0, Me.BackColorIf Timer1.Interval = 1000 ThenFor i = 0 To 100For j = 0 To 100DoEventsNextNextEnd IfCall Form_ClickEnd Sub登陆界面登陆界面设计思想：输入用户名和密码进入学生成绩管理系统设计代码：Option ExplicitPublic LoginSucceed

8、ed As BooleanPrivate Sub cmdCancel_Click()设置全局变量为false不提示失败的登录LoginSucceeded = FalseMe.HideEnd SubPrivate Sub cmdOK_Click()'检查正确的密码If txtPassword = "0" Then将代码放在这里传递成功到calling 函数设置全局变量时最容易的LoginSucceeded = TrueUnload MeForm2.ShowMe.HideElseMsgBox "无效的密码，请重试！"，" 登录"t

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

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

11、c1.Recordset.BOF Then Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.BOFThen Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command5_Click() Adodc1.Recordset.MoveLast End SubPrivate Sub Command6_Click() Adodc1.Recordset.Update End SubPrivate

12、Sub Command7_Click() Adodc1.Recordset.AddNew End SubPrivate Sub Command8_Click() Dim ask As Integerask = MsgBox("是否删除,",vbYesNo) If ask = 6 ThenAdodcI.Recordset.Delete AdodcI.Recordset.MoveNext If Adodc1.Recordset.EOF ThenAdodcI.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command9_Click() U

13、nload MeForm6.ShowEnd Sub学生信息管理界面查询界面学生信息查询界面设计思想：实现学生信息按学号或姓名或班号的查询。设计代码：Private Sub Command2_Click()If Text1 > "" ThenAdodc1.RecordSource = "select * from xt27result where student_NAME='" &Text1.Text & " ”ElseIf Text2 > "" ThenAdodci1.RecordSour

14、ce = "select * from xt27result where student_ID='" &Text2.Text & 口”ElseIf Text3 > "" ThenAdodcl.RecordSource = "select * from xt27result where course_Name='" &Text3.Text & 口”End IfAdodcl.RefreshEnd SubPrivate Sub Command3_Click() Unload MeForm

15、l.ShowEnd Sub班级信息管界面班级信息界面设计思想：点击按钮来实现系统的修改、添加、删除和查询。设计代码：Private Sub addCommand_Click() Adodcl.Recordset.AddNewEnd SubPrivate Sub Command1_Click() Unload MeForm2.ShowEnd SubPrivate Sub deleteCommand_Click() Dim ask As Integer ask = MsgBox("是否删除,",vbYesNo)If ask = 6 ThenAdodcI.Recordset.De

16、leteAdodcI.Recordset.MoveNext If Adodc1.Recordset.EOF ThenAdodcI.Recordset.MoveLastEnd IfEnd SubPrivate Sub updateCommand_Click() Adodc1.Recordset.UpdateEnd SubPrivate Sub Command2_Click() Adodc1.Recordset.MoveFirst End SubPrivate Sub Command3_Click() Adodc1.Recordset.MovePrevious IfAdodc1.Recordset

17、.BOF Then Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.BOFThen Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command5_Click() Adodc1.Recordset.MoveLast End SubPrivate Sub Form_Load()End Sub课程信息管理界面课程信息界面设计思想：点击按钮来实现系统的修改、添加、删除。设计代码：Private

18、 Sub Command1_Click() Unload MeForm2.ShowEnd SubPrivate Sub Command2_Click() Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command3_Click() Adodc1.Recordset.MovePrevious IfAdodc1.Recordset.BOF Then Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MoveNext If Adodc1.Record

19、set.BOFThen Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command5_Click() Adodc1.Recordset.MoveLast End SubPrivate Sub Command6_Click() Adodc1.Recordset.Update End SubPrivate Sub Command7_Click() Adodc1.Recordset.AddNew End SubPrivate Sub Command8_Click() Dim ask As Integerask = MsgBox("是否删除,&q

20、uot;,vbYesNo) If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNext If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Form_Load()End Sub成绩信息管理界面学生成绩管理界面 设计思想：点击按钮来实现系统的修改、添加、删除和查询。设计代码：Private Sub Command1_Click() Unload MeForm2.ShowEnd SubPrivate Sub Command2_C

21、lick() AdodcI.Recordset.MoveFirst End SubPrivate Sub Command3_Click() AdodcI.Recordset.MovePrevious IfAdodc1.Recordset.BOF Then Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command5_Cl

22、ick() Adodc1.Recordset.MoveLast End SubPrivate Sub Command6_Click() Adodc1.Recordset.Update End SubPrivate Sub Command7_Click() Adodc1.Recordset.AddNew End SubPrivate Sub Command8_Click() Dim ask As Integer ask = MsgBox("是否删除,",vbYesNo) If ask = 6 ThenAdodc1.Recordset.Delete Adodc1.Records

23、et.MoveNext If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd 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='" &Textl.Text & " ”ElseIf