VB项目课程设计报告Word文件下载.docx
《VB项目课程设计报告Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB项目课程设计报告Word文件下载.docx（49页珍藏版）》请在冰豆网上搜索。
（2）教师工作岗位所取得的业绩信息的录入、修改、删除、查询和统计。
（3）系统用户信息的录入、修改、删除和查询。
（4）系统数据的备份和恢复
3.12系统功能模块设计
对系统功能分析中的各项功能进行集中、分块，按照结构化程序设计的要求，得到系统功能模块图
教师管理系统
针对不同模块进行新增，查找，删除等功能
3.2数据库设计
3.2.1数据库需求分析
二：
数据库设计
1：
数据库需求分析
根据对我校有关部门进行的调查和分析,系统中各种功能所需的数据项和数据结构如下：
1Chengjibiao（成绩表）：
编号，年级，所带课程，平均成绩，班级名次
2Gz（工资表）：
编号，工龄，工龄金，基本工资，班级名次，奖金，职称，职称金，税收，总工资
3Kecheng（课程表）：
编号，所带课程，年级，学期，年度
4Move（工作调动表）：
编号，调动内容，调动日期，调动原因，备注
5Teacher（教师基本信息表）：
身份证号，编号，姓名，性别，民族，学历，职称，政治面貌，出生日期，入校日期，联系电话，家庭住址，相片
6Users（用户表）：
用户名，密码，用户身份，备注
3.2.2数据库逻辑结构设计
根据数据库需求分析，本系统的数据库逻辑结构设计如下。
教师基本信息表
教师工资表
教师工作调动表
教师课程表
教师所带课程的成绩表
用户信息设计
各种信息之间的关系设计
3.3界面设计
3.3.1系统主界面设计
3.3.2教师信息查询
3.3.3教师信息查询后显示的界面
3.3.4教师信息添加
（备注：
教师信息添加和修改是同个界面）
3.3.5教师工资查询
3.3.6查询后显示界面
3.3.7教师工资信息添加
（备注：
教师工资信息添加和修改是同个界面）
3.3.8教师工作调动查询
3.3.9调动查询后显示界面
3.3.10教师工作信息调动添加
（备注“教师工作调动添加和修改是同个界面）
3.3.11教师所带课程设置界面
3.12教师所带课程信息的添加
教师所带课程添加和修改是同个界面）
3.3.13教师所带课程成绩查询界面
3.3.14查询后显示界面
3.3.15教师所带课程成绩信息修改界面
成绩新增界面和修改界面是同个界面）
3.3.16教师信息报表的打印
教师工资打印和教师信息打印相同不再赘述）
3.3.17用户设置
3.3.18用户添加
用户信息修改和添加是同个界面）
3.3.19用户登录界面设计
3.3.20关于符中
3.3.21帮助关于教师管理系统
3.4代码设计
3.4.1教师基本信息查询页面代码
PrivateSubCommand2_Click（）
DimsqlAsString
Ifcmbbh.Text="
"
Then
MsgBox"
请选择查询条件！
ExitSub
Else
sql="
select*fromteacherwhere编号in（select编号fromteacher"
_
+"
where编号='
+cmbbh.Text+"
'
）"
EndIf
ShowDatasql,frmteachersql.fgShow
Iffrmteachersql.fgShow.Rows=1Then
对不起！
没有找到符合条件的信息！
请重新查找！
Else
UnloadMe
frmteachersql.tlBar.Buttons
（2）.Visible=False
frmteachersql.tlBar.Buttons（3）.Visible=True
frmteachersql.tlBar.Buttons（4）.Visible=True
Iffrmteachersql.Visible=FalseThenfrmteachersql.Show1
EndIf
EndSub
3.4.2教师基本信息显示
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Index
Case2
frmmoney.Show1
Case3
Withfrmmoneygx
.Caption="
修改记录"
.cmbbh.Text=fgshowgz.TextMatrix（fgshowgz.Row,0）
.txtgl.Text=fgshowgz.TextMatrix（fgshowgz.Row,1）
.txtglj.Text=fgshowgz.TextMatrix（fgshowgz.Row,2）
.txtjbgz.Text=fgshowgz.TextMatrix（fgshowgz.Row,3）
.cmbbjmc.Text=fgshowgz.TextMatrix（fgshowgz.Row,4）
.txtjj.Text=fgshowgz.TextMatrix（fgshowgz.Row,5）
.cmbzc.Text=fgshowgz.TextMatrix（fgshowgz.Row,6）
.txtzcj.Text=fgshowgz.TextMatrix（fgshowgz.Row,7）
.txtss.Text=fgshowgz.TextMatrix（fgshowgz.Row,8）
.txtzgz.Text=fgshowgz.TextMatrix（fgshowgz.Row,9）
.Show1
EndWith
Case4
IfMsgBox（"
你确定要删除吗？
vbOKCancel+vbQuestion,询问）=vbOKThen
DimrtnAsLong
deletefromgzwhere编号='
+fgshowgz.TextMatrix（fgshowgz.Row,0）+"
rtn=Update（sql）
Ifrtn=0Then
fgshowgz.RemoveItemfgShow.Row
MsgBox（"
删除成功！
）
系统错误，删除失败！
Case6
MoveFirstfgshowgz
Case7
MovePrefgshowgz
Case8
MoveNextfgshowgz
Case9
MoveLastfgshowgz
Case11
Case12
IfMe.fgshowgz.Rows<
=1Then
没有找到需要打印的信息！
selecta.编号,姓名,性别,工龄,工龄金,基本工资,班级名次,奖金,a.职称,职称金,税收,总工资fromgza,teacherbwherea.编号=b.编号anda.编号='
&
Me.fgshowgz.TextMatrix（fgshowgz.Row,0）&
"
'
sql="
selecta.编号,姓名,工龄,工龄金,基本工资,班级名次,奖金,职称,税收,总工资,fromgza,teacherbwherea.编号=b.编号"
WithDataEv
If.rsCommand1.State=1Then.rsCommand1.Close
.rsCommand1.Opensql
If.rsCommand1.RecordCount>
0Then
DataReport1.Show1
EndWith
EndSelect
3.4.3教师基本信息添加
PrivateSubtlbar_ButtonClick（ByValButtonAsMSComctlLib.Button）
Case3
DimsqlAsString
Withfrmteachersql.fgShow
IfMe.Caption="
教师信息添加"
insertintoteacher（身份证号,编号,姓名,性别,民族,学历,职称,政治面貌,出生日期,入校日期,联系电话,家庭住址）values（'
Trim（Me.txtsfzh.Text）&
'
Trim（Me.txtbh.Text）&
Trim（Me.txtxm.Text）&
Trim（Me.cmbxb.Text）&
Trim（Me.cmbmz.Text）&
Trim（Me.txtxl.Text）&
Trim（Me.txtzc.Text）&
Trim（Me.cmbzzmm.Text）&
Me.dtpkcsrq.Value&
Trim（Me.dtpkrxrq.Value）&
Trim（Me.txtlxdh.Text）&
Trim（Me.txtjtzz.Text）&
updateteacherset编号='
+Trim（Me.txtbh.Text）_
身份证号='
+Trim（Me.txtsfzh.Text）_
姓名='
+Trim（Me.txtxm.Text）_
性别='
+Trim（Me.cmbxb.Text）_
民族='
+Trim（Me.cmbmz.Text）_
学历='
+Trim（Me.txtxl.Text）_
职称='
+Trim（Me.txtzc.Text）_
政治面貌='
+Trim（Me.cmbzzmm.Text）_
出生日期='
Me.dtpkcsrq.Value_
入校日期='
Me.dtpkrxrq.Value_
联系电话='
+Trim（Me.txtlxdh）_
家庭住址='
+Trim（Me.txtjtzz.Text）_
where编号='
+.TextMatrix（.Row,1）+"
*************************************
DimcnnAsNewADODB.Connection
DimrstAsNewADODB.Recordset
DimstmAsNewADODB.Stream
select相片fromteacherwhere编号='
+Trim（txtbh.Text）+"
cnn.Openstrcnn
rst.Opensql,cnn,3,3
Ifrst.RecordCount>
IfMe.CommonDialog1.FileName="
rst.Fields（"
相片"
）.Value=Null
rst.Update
stm.Type=adTypeBinary
stm.Open
stm.LoadFromFileMe.CommonDialog1.FileName
）.Value=stm.Read
stm.Close
rst.Close
cnn.Close
信息添加成功！
.TextMatrix（.Row,0）=Trim（Me.txtsfzh.Text）
.TextMatrix（.Row,1）=Trim（Me.txtbh.Text）
.TextMatrix（.Row,2）=Trim（Me.txtxm.Text）
.TextMatrix（.Row,3）=Trim（Me.cmbxb.Text）
.TextMatrix（.Row,4）=Trim（Me.cmbmz.Text）
.TextMatrix（.Row,5）=Trim（Me.txtxl.Text）
.TextMatrix（.Row,6）=Trim（Me.txtzc.Text）
.TextMatrix（.Row,7）=Trim（Me.cmbzzmm.Text）
.TextMatrix（.Row,8）=Me.dtpkcsrq.Value
.TextMatrix（.Row,9）=Trim（Me.dtpkrxrq.Value）
.TextMatrix（.Row,10）=Trim（Me.txtlxdh.Text）
.TextMatrix（.Row,11）=Trim（Me.txtjtzz.Text）
.TextMatrix（.Row,12）=Trim（Me.imgxp.Picture）
信息修改成功！
ElseIfrtn=-2147217873Then
编号已存在！
请重新输入！
Me.txtbh.Text="
Me.txtbh.SetFocus
ElseIfrtn=-2147217833Then
输入的信息超过指定长度！
请检查！
出现未指定错误！
请检查您的输入！
Case5
3.4.4工资信息查询代码设计
PrivateSubCommand1_Click（）
Iftxtxm.Text="
MsgBox"
姓名不能为空！
请重新输入"
txtxm.SetFocus
ExitSub
select*fromgzwhere编号in（select编号fromteacherwhere姓名like'
%"
+Trim（txtxm.Text）+"
%'
ShowDatasql,frmmoneysql.fgshowgz
Iffrmmoneysql.fgshowgz.Rows=1Then
对不起!
没有找到"
UnloadMe
frmmoneysql.Toolbar1.Buttons（3）.Visible=True
frmmoneysql.Toolbar1.Buttons
（2）.Visible=False
frmmoneysql.Toolbar1.Buttons（4）.Visible=True
Iffrmmoneysql.Visible=FalseThenfrmmoneysql.Show1
select*fromgzwhere编号in（select编号fromgz"
ShowDatasql,frmmoneysql.fgshowgz
Iffrmmoneysql.fgshowgz.Rows=1Then
frmmoneysql.Toolbar1.Buttons
（2）.Visible=False
frmmoneysql.Toolbar1.Buttons（3）.Visible=True
frmmoneysql.Toolbar1.Buttons（4）.Visible=False
PrivateSubForm_Load（）
DimcnnAsNewADODB.Connection
DimrstAsNewADODB.Recordset
selectdistinct编号fromteacher"
cnn.Openstrcnn
rst.Opensql,cnn,3,1
DoWhileNotrst.EOF
cmbbh.AddItemrst!
编号
rst.MoveNext
Loop
rst.Close
cnn.Close
……
3.4.5工资查询后显示页面的代码
升级会员 