教师学生管理系统.docVIP

河南理工大学 计算机科学与技术学院 vb程序设计 20 11 — 20 12 学年第 二 学期 日 期 2012年2日20日-24日 学生姓名 陈* 学 号 311009030213 专业班级 信息管理与信息系统10级 指导教师 罗 军 伟 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 教师基本信息添加 Private Sub tlbar_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 3 Dim sql As String Dim rtn As Long With frmteachersql.fgShow If Me.Caption = 教师信息添加 Then sql = insert into teacher(身份证号,编号,姓名,性别,民族,学历,职称,政治面貌,出生日期,入校日期,联系电话,家庭住址) 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 = update teacher set 编号= + 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) _