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工资查询后显示页面的代码