教师学生管理系统文档格式.docx
《教师学生管理系统文档格式.docx》由会员分享，可在线阅读，更多相关《教师学生管理系统文档格式.docx（36页珍藏版）》请在冰点文库上搜索。
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
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
select相片fromteacherwhere编号='
+Trim（txtbh.Text）+"
cnn.Openstrcnn
rst.Opensql,cnn,3,3
Ifrst.RecordCount>
0Then
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
MsgBox"
信息添加成功！
.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）
信息修改成功！
UnloadMe
ElseIfrtn=-2147217873Then
编号已存在！
请重新输入！
Me.txtbh.Text="
Me.txtbh.SetFocus
ElseIfrtn=-2147217833Then
输入的信息超过指定长度！
请检查！
出现未指定错误！
请检查您的输入！
EndWith
Case5
EndSelect
EndSub
3.4.4工资信息查询代码设计
PrivateSubCommand1_Click（）
DimsqlAsString
Iftxtxm.Text="
MsgBox"
姓名不能为空！
请重新输入"
txtxm.SetFocus
ExitSub
EndIf
sql="
select*fromgzwhere编号in（select编号fromteacherwhere姓名like'
%"
+Trim（txtxm.Text）+"
%'
ShowDatasql,frmmoneysql.fgshowgz
Iffrmmoneysql.fgshowgz.Rows=1Then
对不起!
没有找到"
Else
UnloadMe
frmmoneysql.Toolbar1.Buttons（3）.Visible=True
frmmoneysql.Toolbar1.Buttons
（2）.Visible=False
frmmoneysql.Toolbar1.Buttons（4）.Visible=True
Iffrmmoneysql.Visible=FalseThenfrmmoneysql.Show1
PrivateSubCommand2_Click（）
Ifcmbbh.Text="
请选择查询条件！
ExitSub
select*fromgzwhere编号in（select编号fromgz"
where编号='
+cmbbh.Text+"
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工资查询后显示页面的代码
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
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
Case4
IfMsgBox（"
你确定要删除吗？
vbOKCancel+vbQuestion,询问）=vbOKThen
deletefromgzwhere编号='
+fgshowgz.TextMatrix（fgshowgz.Row,0）+"
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）&
selecta.编号,姓名,工龄,工龄金,基本工资,班级名次,奖金,职称,税收,总工资,fromgza,teacherbwherea.编号=b.编号"
WithDataEv
If.rsCommand1.State=1Then.rsCommand1.Close
.rsCommand1.Opensql
If.rsCommand1.RecordCount>
DataReport1.Show1
EndWith
3.4.6工资更新界面代码
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
Withfrmmoneysql.fgshowgz
教师工资信息添加"
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）&
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）_
IfMe.cmbbjmc.Text="
1"
Me.txtjj.Text="
500"
2"
400"
3"
300"
4"
200"
5"
100"
IfMe.cmbzc.Text="
博导"
Me.txtzcj.Text="
800"
特级教师"
一级教师"
二级教师"
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
updategzset总工资='
+Trim（Me.cmbbh.Text）+"
CallUpdate（sql）
.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）
Me.cmbbh.Text="
Me.cmbbh.SetFocus
Case5
PrivateSubtxtbjmc_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
IfVal（Trim（txtbjmc.Text））=1Then
IfMe.txtbjmc.Text="
IfMe.txtbjm
升级会员 