教师学生管理系统.docx
- 文档编号:9947473
- 上传时间:2023-02-07
- 格式:DOCX
- 页数:36
- 大小:22.15KB
教师学生管理系统.docx
《教师学生管理系统.docx》由会员分享,可在线阅读,更多相关《教师学生管理系统.docx(36页珍藏版)》请在冰豆网上搜索。
教师学生管理系统
河南理工大学
计算机科学与技术学院
vb程序设计
1、课程设计目的
随着学校的规模不断扩大,教师数量增加,有关老师的各种信息量也成倍增长。
为了提高学校管理工作的效率,实现信息的规范管理、科学统计和快速查询,需要设计一个教师管理系统。
2、课程设计题目和要求
2.1课程设计题目
教师学生管理系统
2.2课程设计要求
(1)界面设计要求尽量友好、美观,提供了登录界面,并考虑用户权限问题;普通的教师进入一般用户界面,校长或主任等领导进入管理员界面可以对
教师信息新增,修改,删除等操作
(2)对各种教师的信息提供录入、修改、删除和查询功能;
(3)具有对教师的基本信息、工资和工作业绩进行统计的功能;
(4)能够新增、修改和删除用户信息;
(5)能够按用户的要求生成教师信息报表
3、课程设计报告内容
3.1系统设计
3.1.1系统功能分析
根据对我校有关部门进行的调查和分析,教师管理系统应该具有以下功能:
(1)学校中的教师基本信息的录入、修改、删除和查询。
(2)教师工作岗位所取得的业绩信息的录入、修改、删除、查询和统计。
(3)系统用户信息的录入、修改、删除和查询。
(4)系统数据的备份和恢复
3.12系统功能模块设计
对系统功能分析中的各项功能进行集中、分块,按照结构化程序设计的要求,得到系统功能模块图
3.4代码设计
3.4.3教师基本信息添加
PrivateSubtlbar_ButtonClick(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Index
Case3
DimsqlAsString
DimrtnAsLong
Withfrmteachersql.fgShow
IfMe.Caption="教师信息添加"Then
sql="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)&"')"
Else
sql="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)+"'"
EndIf
rtn=Update(sql)
Ifrtn=0Then
'*************************************
DimcnnAsNewADODB.Connection
DimrstAsNewADODB.Recordset
DimstmAsNewADODB.Stream
sql="select相片fromteacherwhere编号='"_
+Trim(txtbh.Text)+"'"
cnn.Openstrcnn
rst.Opensql,cnn,3,3
Ifrst.RecordCount>0Then
IfMe.CommonDialog1.FileName=""Then
rst.Fields("相片").Value=Null
rst.Update
Else
stm.Type=adTypeBinary
stm.Open
stm.LoadFromFileMe.CommonDialog1.FileName
rst.Fields("相片").Value=stm.Read
rst.Update
stm.Close
EndIf
EndIf
rst.Close
cnn.Close
'*************************************
IfMe.Caption="教师信息添加"Then
MsgBox"信息添加成功!
"
Else
.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)
MsgBox"信息修改成功!
"
EndIf
UnloadMe
ElseIfrtn=-2147217873Then
MsgBox"编号已存在!
请重新输入!
"
Me.txtbh.Text=""
Me.txtbh.SetFocus
ElseIfrtn=-2147217833Then
MsgBox"输入的信息超过指定长度!
请检查!
"
Else
MsgBox"出现未指定错误!
请检查您的输入!
"
EndIf
EndWith
Case5
UnloadMe
EndSelect
EndSub
3.4.4工资信息查询代码设计
PrivateSubCommand1_Click()
DimsqlAsString
Iftxtxm.Text=""Then
MsgBox"姓名不能为空!
请重新输入"
txtxm.SetFocus
ExitSub
EndIf
sql="select*fromgzwhere编号in(select编号fromteacherwhere姓名like'%"+Trim(txtxm.Text)+"%')"
ShowDatasql,frmmoneysql.fgshowgz
Iffrmmoneysql.fgshowgz.Rows=1Then
MsgBox"对不起!
没有找到"
ExitSub
Else
UnloadMe
frmmoneysql.Toolbar1.Buttons(3).Visible=True
frmmoneysql.Toolbar1.Buttons
(2).Visible=False
frmmoneysql.Toolbar1.Buttons(4).Visible=True
Iffrmmoneysql.Visible=FalseThenfrmmoneysql.Show1
EndIf
EndSub
PrivateSubCommand2_Click()
DimsqlAsString
Ifcmbbh.Text=""Then
MsgBox"请选择查询条件!
"
ExitSub
Else
sql="select*fromgzwhere编号in(select编号fromgz"_
+"where编号='"+cmbbh.Text+"')"
EndIf
ShowDatasql,frmmoneysql.fgshowgz
Iffrmmoneysql.fgshowgz.Rows=1Then
MsgBox"对不起!
没有找到符合条件的信息!
请重新查找!
"
ExitSub
Else
UnloadMe
frmmoneysql.Toolbar1.Buttons
(2).Visible=False
frmmoneysql.Toolbar1.Buttons(3).Visible=True
frmmoneysql.Toolbar1.Buttons(4).Visible=False
Iffrmmoneysql.Visible=FalseThenfrmmoneysql.Show1
EndIf
EndSub
PrivateSubForm_Load()
DimcnnAsNewADODB.Connection
DimrstAsNewADODB.Recordset
DimsqlAsString
sql="selectdistinct编号fromteacher"
cnn.Openstrcnn
rst.Opensql,cnn,3,1
DoWhileNotrst.EOF
cmbbh.AddItemrst!
编号
rst.MoveNext
Loop
rst.Close
cnn.Close
EndSub
……
3.4.5工资查询后显示页面的代码
PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)
DimsqlAsString
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
sql="deletefromgzwhere编号='"+fgshowgz.TextMatrix(fgshowgz.Row,0)+"'"
rtn=Update(sql)
Ifrtn=0Then
fgshowgz.RemoveItemfgShow.Row
MsgBox("删除成功!
")
Else
MsgBox("系统错误,删除失败!
")
EndIf
EndIf
Case6
MoveFirstfgshowgz
Case7
MovePrefgshowgz
Case8
MoveNextfgshowgz
Case9
MoveLastfgshowgz
Case11
UnloadMe
Case12
IfMe.fgshowgz.Rows<=1Then
MsgBox"对不起!
没有找到需要打印的信息!
"
ExitSub
Else
sql="selecta.编号,姓名,性别,工龄,工龄金,基本工资,班级名次,奖金,a.职称,职称金,税收,总工资fromgza,teacherbwherea.编号=b.编号anda.编号='"_
&Me.fgshowgz.TextMatrix(fgshowgz.Row,0)&"'"
'sql="selecta.编号,姓名,工龄,工龄金,基本工资,班级名次,奖金,职称,税收,总工资,fromgza,teacherbwherea.编号=b.编号"
EndIf
WithDataEv
If.rsCommand1.State=1Then.rsCommand1.Close
.rsCommand1.Opensql
If.rsCommand1.RecordCount>0Then
UnloadMe
DataReport1.Show1
EndIf
EndWith
EndSelect
EndSub
3.4.6工资更新界面代码
PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Index
Case3
DimsqlAsString
DimrtnAsLong
Withfrmmoneysql.fgshowgz
IfMe.Caption="教师工资信息添加"Then
sql="insertintogz(编号,工龄,工龄金,基本工资,班级名次,奖金,职称,职称金,税收,总工资)values('"_
&Trim(Me.cmbbh.Text)&"','"_
&Trim(Me.txtgl.Text)&"','"_
&Trim(Me.txtglj.Text)&"','"_
&Trim(Me.txtjbgz.Text)&"','"_
&Trim(Me.cmbbjmc.Text)&"','"_
&Trim(Me.txtjj.Text)&"','"_
&Trim(Me.cmbzc.Text)&"','"_
&Trim(Me.txtzcj.Text)&"','"_
&Trim(Me.txtss.Text)&"','"_
&Trim(Me.txtzgz.Text)&"')"
Else
sql="updategzset编号='"+Trim(Me.cmbbh.Text)_
+"',工龄='"+Trim(Me.txtgl.Text)_
+"',工龄金='"+Trim(Me.txtglj.Text)_
+"',基本工资='"+Trim(Me.txtjbgz.Text)_
+"',班级名次='"+Trim(Me.cmbbjmc.Text)_
+"',奖金='"+Trim(Me.txtjj.Text)_
+"',职称='"+Trim(Me.cmbzc.Text)_
+"',职称金='"+Trim(Me.txtzcj.Text)_
+"',税收='"+Trim(Me.txtss.Text)_
+"',总工资='"+Trim(Me.txtzgz.Text)_
&"'where编号='"+.TextMatrix(.Row,1)+"'"
EndIf
rtn=Update(sql)
Ifrtn=0Then
IfMe.cmbbjmc.Text="1"Then
Me.txtjj.Text="500"
EndIf
IfMe.cmbbjmc.Text="2"Then
Me.txtjj.Text="400"
EndIf
IfMe.cmbbjmc.Text="3"Then
Me.txtjj.Text="300"
EndIf
IfMe.cmbbjmc.Text="4"Then
Me.txtjj.Text="200"
EndIf
IfMe.cmbbjmc.Text="5"Then
Me.txtjj.Text="100"
EndIf
IfMe.cmbzc.Text="博导"Then
Me.txtzcj.Text="800"
EndIf
IfMe.cmbzc.Text="特级教师"Then
Me.txtzcj.Text="500"
EndIf
IfMe.cmbzc.Text="一级教师"Then
Me.txtzcj.Text="300"
EndIf
IfMe.cmbzc.Text="二级教师"Then
Me.txtzcj.Text="200"
EndIf
Me.txtglj.Text=Str(Val(Me.txtgl.Text)*50)
Me.txtzgz.Text=Str(Val(Me.txtjbgz.Text)+Val(Me.txtglj.Text)+Val(Me.txtjj.Text)+Val(Me.txtzcj.Text))_
-Str((Val(Me.txtjbgz.Text)+Val(Me.txtglj.Text)+Val(Me.txtjj.Text)+Val(Me.txtzcj.Text)))*0.01
sql="updategzset总工资='"+Trim(Me.txtzgz.Text)_
&"'where编号='"+Trim(Me.cmbbh.Text)+"'"
CallUpdate(sql)
IfMe.Caption="教师工资信息添加"Then
MsgBox"信息添加成功!
"
Else
.TextMatrix(.Row,0)=Trim(Me.cmbbh.Text)
.TextMatrix(.Row,1)=Trim(Me.txtgl.Text)
.TextMatrix(.Row,2)=Trim(Me.txtglj.Text)
.TextMatrix(.Row,3)=Trim(Me.txtjbgz.Text)
.TextMatrix(.Row,4)=Trim(Me.cmbbjmc.Text)
.TextMatrix(.Row,5)=Trim(Me.txtjj.Text)
.TextMatrix(.Row,6)=Trim(Me.cmbzc.Text)
.TextMatrix(.Row,7)=Trim(Me.txtzcj.Text)
.TextMatrix(.Row,8)=Trim(Me.txtss.Text)
.TextMatrix(.Row,9)=Trim(Me.txtzgz.Text)
MsgBox"信息修改成功!
"
EndIf
UnloadMe
ElseIfrtn=-2147217873Then
MsgBox"编号已存在!
请重新输入!
"
Me.cmbbh.Text=""
Me.cmbbh.SetFocus
ElseIfrtn=-2147217833Then
MsgBox"输入的信息超过指定长度!
请检查!
"
Else
MsgBox"出现未指定错误!
请检查您的输入!
"
EndIf
EndWith
Case5
UnloadMe
EndSelect
EndSub
PrivateSubtxtbjmc_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
IfVal(Trim(txtbjmc.Text))=1Then
Me.txtjj.Text="500"
EndIf
IfMe.txtbjmc.Text="2"Then
Me.txtjj.Text="400"
EndIf
IfMe.txtbjmc.Text="3"Then
Me.txtjj.Text="300"
EndIf
IfMe.txtbjmc.Text="4"Then
Me.txtjj.Text="200"
EndIf
IfMe.txtbjm
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 教师 学生 管理 系统
![提示](https://static.bdocx.com/images/bang_tan.gif)