and2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Text1.Text=""
'Text2.Text=""
Text3.Text=""
Combo1.Text=""
Combo1.AddItem("必修")
Combo1.AddItem("选修")
Combo1.AddItem("自开")
EndSub
PrivateSubText3_Change()
EndSub
成绩统计分析(如:界面如图七)
(图七)
代码如下:
PrivateSubCommand1_Click()
DimSQLoriginalAsString
DimSQLaddAsString
DimSQLorderAsString
DimstrSqlAsString
ResumeNext
SQLoriginal="SELECT*FROM成绩表"
SQLadd="WHERE学号=学号AND姓名=姓名"
SQLorder=""
IfCheck1.Value=1AndIsNumeric(Text1)Then
SQLadd=SQLadd+"and学号='"+Text1+"'"
EndIf
IfCheck2.Value=1AndNotIsNull(Text2)Then
SQLadd=SQLadd+"and姓名='"+Text2+"'"
EndIf
IfCheck3.Value=1AndNotIsNull(Text3)Then
SQLadd=SQLadd+"and考试科目='"+Text3+"'"
EndIf
IfCheck4.Value=1Then
SQLadd=SQLadd+"and科目分数<60"
EndIf
strSql=SQLoriginal+SQLadd+SQLorde
IfDat_Main.rsDat_ChengJ.State=1Then
Dat_Main.rsDat_ChengJ.Close
EndIf
Dat_Main.rsDat_ChengJ.OpenstrSql
Dat_ChengJ.ShowvbModal
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
'Text4.Text=""
EndSub
PrivateSubText1_Change()
EndSub
交费统计分析(如:界面如图八)
(图八)
代码如下:
PrivateSubCommand1_Click()
DimSQLoriginalAsString
DimSQLaddAsString
DimSQLorderAsString
DimstrSqlAsString
SQLoriginal="SELECT学号,姓名,学期,本学期应交费用,实际交费,本次欠费FROM交费表"
SQLadd="WHERE学号=学号AND姓名=姓名"
SQLorder=""
IfCheck1.Value=1AndIsNumeric(Text1)Then
SQLadd=SQLadd+"and学号='"+Text1+"'"
EndIf
IfCheck2.Value=1AndNotIsNull(Text2)Then
SQLadd=SQLadd+"and姓名='"+Text2+"'"
EndIf
IfCheck3.Value=1AndIsNumeric(Text3)Then
SQLadd=SQLadd+"and实际交费='"+Text3+"'"
EndIf
IfCheck4.Value=1AndIsNumeric(Text4)Then
SQLadd=SQLadd+"and本次欠费='"+Text4+"'"
EndIf
strSql=SQLoriginal+SQLadd+SQLorde
IfDat_Main.rsDat_JiaoF.State=1Then
Dat_Main.rsDat_JiaoF.Close
EndIf
Dat_Main.rsDat_JiaoF.OpenstrSql
Dat_JiaoF.ShowvbModal
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
PrivateSubText1_Change()
EndSub
结束语
学生信息管理系统(课程设置和打印统计)的完成,它在审核这一功能中能够对不同情况的资料进行设置和打印,针对需要的信息进行设置和打印。
后记
本系统能够顺利完成,非常感谢指导老师陈志卫老师,同时,也感谢和我一起合作完成本系统的另两位同学。对于本人来说,通过这次毕业设计,也是对自己在这三年学习的一个检验和平时学习的一种结累,可以在学习中提高自己,也充分体现学有所用,学以致用的学习倡导。
在此,我对三年来辅导过我的各位任课老师深表感谢
主要参考文献
本系统的过程中,主要的参考文献有:
《VisualBasic6.0》林陈雷人民邮电出版社
《面向对象程序设计系列教材》龚沛曾高等教育出版社
《VisualBasic6.0编程实例精解》何文俊
《学用VisualBasic编程》潭浩西安电子科技大学出版社
《VisualBasic6.0数据库开发与专业应用》敬铮国防工业出版社
《VisualBasic6.0数据库程序设计高手》温贤发科学出版社
??
??
??
??
毕业论文--学生信息管理系统毕业设计用纸
上一篇:
vb学生信息管理系统(VB+sql)+毕业论文万字(论文和程序)
下一篇:
法律专业开题报告范文