g.Visible=True
Label1.Caption=jk.Caption
EndSub
PrivateSubmz_avg_Click()
ResumeNext
'Data1.Recordset.AddNew
Data1.RecordSource="selectint(20*avg(ps))/20as平时,int(20*avg(qz))/20as期中,int(20*avg(qm))/20as期未frommz"
Data1.Recordset.Update
Data1.Refresh
MSFlexGrid1.Refresh
EndSub
PrivateSubmz_Click()
GoToero
Data1.RecordSource=mz
Data1.Refresh
ero:
jgl_cyy.Visible=False
jgl_english.Visible=False
jgl_jk.Visible=False
jgl_mz.Visible=False
jgl_photoshop.Visible=False
cyy_avg.Visible=False
english_avg.Visible=False
jk_avg.Visible=False
mz_avg.Visible=False
photoshop_avg.Visible=False
jgl_mz.Visible=True
mz_avg.Visible=True
Label1.Caption=mz.Caption
EndSub
PrivateSubenglish_avg_Click()
ResumeNext
'Data1.Recordset.AddNew
Data1.RecordSource="selectint(20*avg(ps))/20as平时,int(20*avg(qz))/20as期中,int(20*avg(qm))/20as期未fromenglish"
Data1.Recordset.Update
Data1.Refresh
MSFlexGrid1.Refresh
EndSub
PrivateSubphotoshop_avg_Click()
ResumeNext
'Data1.Recordset.AddNew
Data1.RecordSource="selectint(20*avg(ps))/20as平时,int(20*avg(qz))/20as期中,int(20*avg(qm))/20as期未fromphotoshop"
Data1.Recordset.Update
Data1.Refresh
MSFlexGrid1.Refresh
EndSub
PrivateSubPhotoshop_Click()
GoToero
Data1.RecordSource=photoshop
Data1.Refresh
ero:
jgl_cyy.Visible=False
jgl_english.Visible=False
jgl_jk.Visible=False
jgl_mz.Visible=False
jgl_photoshop.Visible=False
cyy_avg.Visible=False
english_avg.Visible=False
jk_avg.Visible=False
mz_avg.Visible=False
photoshop_avg.Visible=False
photoshop_avg.Visible=True
jgl_photoshop.Visible=True
Label1.Caption=photoshop.Caption
EndSub
5.活动记录界面设计
代码分析:
DimbAsInteger
DimoAsInteger
DimyAsInteger
PrivateSubCommand1_Click()
DimaAsString
DimqAsInteger
Ifisadtr=TrueThen
Ify=0Then
IfText1.Text=""Then
q=MsgBox("你要添加一条空记录吗?",vbYesNo)
Ifq=6Then
b=Text4.Text
b=b+1
a=Text1.Text
Open"d:\bjglxt\班级事件\cc.txt"ForRandomAs#2
Open"d:\bjglxt\班级事件\dd.txt"ForRandomAs#1
Put#1,b,a
Put#2,,b
Text4.Text=b
Close
EndIf
EndIf
IfText1.Text<>""Then
b=Text4.Text
b=b+1
a=Text1.Text
Open"d:\bjglxt\班级事件\cc.txt"ForRandomAs#2
Open"d:\bjglxt\班级事件\dd.txt"ForRandomAs#1
Put#1,b,a
Put#2,,b
Text4.Text=b
Close
EndIf
ElseIfy=1Then
MsgBox("请你先清空在写入内容后点添加")
EndIf
Else
MsgBox"你不是管理员,请先登陆管理员",,"提示"
EndIf
EndSub
PrivateSubCommand2_Click()
y=1
DimcAsInteger
DimaAsString
Ifo=1Then
IfCInt(Text3.Text)>CInt(Text4.Text)OrCInt(Text3.Text)=0Then
MsgBox("没有此记录")
ElseIfCInt(Text3.Text)>0AndCInt(Text3.Text)<=CInt(Text4.Text)Then
c=CInt(Text3.Text)
Open"d:\bjglxt\班级事件\\dd.txt"ForRandomAs#1
Get#1,c,a
Ifa=""Then
MsgBox("您当时添加的是一条空记录")
Text1.Text=a
ElseIfa<>""Then
Text1.Text=a
EndIf
Close
EndIf
ElseIfo=0Then
MsgBox("请输入正确的记录号(只限数字且不要超出记录条数)")
EndIf
Timer1.Enabled=True
EndSub
PrivateSubCommand3_Click()
Text1.Text=""
Text3.Text=""
y=0
EndSub
PrivateSubCommand4_Click()
EndSub
PrivateSubForm_Load()
y=0
o=0
DimcAsInteger
Open"d:\bjglxt\班级事件\cc.txt"ForRandomAs#2
Get#2,,c
Text4.Text=c
Close
EndSub
PrivateSubTimer1_Timer()
IfText3.Text<>""Then
o=1
IfText3.Text>="a"AndText3.Text<="z"Then
'Timer1.Enabled=False
MsgBox("请输入正确的记录号(只限数字)")
Text3.Text=""
EndIf
ElseIfText3.Text=""Then
o=0
EndIf
EndSub
6:班级荣誉:
代码分析:
DimbAsInteger
DimoAsInteger
DimyAsInteger
PrivateSubCommand1_Click()
DimaAsString
DimqAsInteger
Ifisadtr=TrueThen
Ify=0Then
IfText1.Text=""Then
q=MsgBox("你要添加一条空记录吗?",vbYesNo)
Ifq=6Then
b=Text4.Text
b=b+1
a=Text1.Text
Open"d:\bjglxt\班级事件\cc.txt"ForRandomAs#2
Open"d:\bjglxt\班级事件\dd.txt"ForRandomAs#1
Put#1,b,a
Put#2,,b
Text4.Text=b
Close
EndIf
EndIf
IfText1.Text<>""Then
b=Text4.Text
b=b+1
a=Text1.Text
Open"d:\bjglxt\班级事件\cc.txt"ForRandomAs#2
Open"d:\bjglxt\班级事件\dd.txt"ForRandomAs#1
Put#1,b,a
Put#2,,b
Text4.Text=b
Close
EndIf
ElseIfy=1Then
MsgBox("请你先清空在写入内容后点添加")
EndIf
Else
MsgBox"你不是管理员,请先登陆管理员",,"提示"
EndIf
EndSub
PrivateSubCommand2_Click()
y=1
DimcAsInteger
DimaAsString
Ifo=1Then
IfCInt(Text3.Text)>CInt(Text4.Text)OrCInt(Text3.Text)=0Then
MsgBox("没有此记录")
ElseIfCInt(Text3.Text)>0AndCInt(Text3.Text)<=CInt(Text4.Text)Then
c=CInt(Text3.Text)
Open"d:\bjglxt\班级事件\dd.txt"ForRandomAs#1
Get#1,c,a
Ifa=""Then
MsgBox("您当时添加的是一条空记录")
Text1.Text=a
ElseIfa<>""Then
Text1.Text=a
EndIf
Close
EndIf
ElseIfo=0Then
MsgBox("请输入正确的记录号(只限数字且不要超出记录条数)")
EndIf
Timer1.Enabled=True
EndSub
PrivateSubCommand3_Click()
Text1.Text=""
Text3.Text=""
y=0
EndSub
PrivateSubCommand4_Click()
EndSub
PrivateSubForm_Load()
y=0
o=0
DimcAsInteger
Open"d:\bjglxt\班级事件\cc.txt"ForRandomAs#2
Get#2,,c
Text4.Text=c
Close
EndSub
PrivateSubTimer1_Timer()
IfText3.Text<>""Then
o=1
IfText3.Text>="a"AndText3.Text<="z"Then
'Timer1.Enabled=False
MsgBox("请输入正确的记录号(只限数字)")
Text3.Text=""
EndIf
ElseIfText3.Text=""Then
o=0
EndIf
EndSub
7:管理员界面设计
代码分析:
PrivateSubCMD_OK_Click()
GoToero
Data1.Refresh
ero:
EndSub
PrivateSubCMD_RESET_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
EndSub
PrivateSubCommand1_Click()
Command4.Enabled=True
GoToero1
Data1.Recordset.AddNew
ero1:
'MsgBox"不能添加数据",,"提示"
EndSub
PrivateSubCommand2_Click()
Command4.Enabled=True
GoToero2
Data1.Recordset.Delete
ero2:
EndSub
PrivateSubCommand3_Click()
Command4.Enabled=True
GoToero3
Data1.Recordset.Edit
ero3:
'MsgBox"不能编辑数据",,"提示"
EndSub
PrivateSubCommand4_Click()
GoToero
Data1.Refresh
ero:
EndSub
PrivateSubcmd_boot_Click()
GoToero
Data1.Recordset.MoveLast
cmd_n.Enabled=False
cmd_f.Enabled=True
ero:
EndSub
PrivateSubCmd_f_Click()
IfData1.Recordset.BOF<>TrueThen
cmd_n.Enabled=True
GoToero
Data1.Recordset.MovePrevious
ero:
Else
cmd_f.Enabled=False
cmd_n.Enabled=True
Data1.Recordset.MoveFirst
EndIf
EndSub
PrivateSubCmd_n_Click()
IfData1.Recordset.EOF<>TrueThen
cmd_f.Enabled=True
GoToero
Data1.Recordset.MoveNext
ero:
Else
cmd_n.Enabled=False
cmd_f.Enabled=True
Data1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCmd_top_Click()
GoToero
Data1.Recordset.MoveFirst
cmd_f.Enabled=False
cmd_n.Enabled=True
ero:
EndSub
PrivateSubcyy_Click()
cjgl_gly_cyy.Show
UnloadMe
EndSub
PrivateSubenglish_Click()
cjgl_gly_english.Show
UnloadMe
EndSub
PrivateSubjk_Click()
cjgl_gly_jk.Show
UnloadMe
EndSub
PrivateSubmz_Click()
cjgl_gly_mz.Show
UnloadMe
EndSub
PrivateSubPhotoshop_Click()
cjgl_gly_photoshop.Show
UnloadMe
EndSub
结束语
本软件的设计目的是为班级维护方面为班主任以及班级管理人员提供方便和帮助。通过这几个月的毕业设计,我学到很多以前没有学到的visualbasic开发技术,在软件工程学上更是取得了很大的进步。经过大量的测试和试用,作者深信本软件达到了方便和实用的设计目的,并在软件界面和易用实用等方面有着独到之处。
虽然软件基本达到设计要求并且达到同行的先进水平,但由于作者水平有限,软件存在bug也是在所难免的,您的意见和建议将极大的帮助我改进并完善软件。真诚的希望你的参与。
致谢
我首先感谢我的指导老师吕老师,在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做,这样会有好的创意,才能更有作为。
在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年,在生活和学习上给了我很大的帮助。
参考文献
1陈明.软件工程学教程.科技出版社,2002
2萨师煊,王珊.数据库系统概论.第三版.高等教育出版社,2000
3飞思科技产品研发中心.visua
上一篇:
VB班主任管理系统(论文和程序)
下一篇:
陕西师范大学远程教育学院毕业论文