VB项目课程设计报告Word文件下载.docx

1、（2）教师工作岗位所取得的业绩信息的录入、修改、删除、查询和统计。（3）系统用户信息的录入、修改、删除和查询。（4）系统数据的备份和恢复3.12 系统功能模块设计对系统功能分析中的各项功能进行集中、分块，按照结构化程序设计的要求，得到系统功能模块图教师管理系统针对不同模块进行新增，查找，删除等功能3.2数据库设计3.2.1 数据库需求分析二：数据库设计1：数据库需求分析根据对我校有关部门进行的调查和分析,系统中各种功能所需的数据项和数据结构如下：1 Chengjibiao（成绩表）：编号，年级，所带课程，平均成绩，班级名次2 Gz（工资表）：编号，工龄，工龄金，基本工资，班级名次，奖金，职称，

2、职称金，税收，总工资3 Kecheng（课程表）：编号，所带课程，年级，学期，年度4 Move（工作调动表）：编号，调动内容，调动日期，调动原因，备注5 Teacher（教师基本信息表）：身份证号，编号，姓名，性别，民族，学历， 职称，政治面貌，出生日期，入校日期，联系电话，家庭住址，相片6 Users（用户表）：用户名，密码，用户身份，备注3.2.2 数据库逻辑结构设计 根据数据库需求分析，本系统的数据库逻辑结构设计如下。教师基本信息表教师工资表教师工作调动表教师课程表教师所带课程的成绩表用户信息设计各种信息之间的关系设计3.3 界面设计3.3.1 系统主界面设计3.3.2 教师信息查询3.

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教师信息报

4、表的打印教师工资打印和教师信息打印相同 不再赘述）3.3.17用户设置3.3.18 用户添加用户信息修改和添加是同个界面）3.3.19用户登录界面设计3.3.20 关于符中3.3.21帮助关于教师管理系统3.4 代码设计3.4.1 教师基本信息查询页面代码Private Sub Command2_Click（）Dim sql As StringIf cmbbh.Text = Then MsgBox 请选择查询条件！ Exit SubElse sql = select * from teacher where 编号 in（select 编号 from teacher _ + where 编号=

5、+ cmbbh.Text + ）End If ShowData sql, frmteachersql.fgShow If frmteachersql.fgShow.Rows = 1 Then对不起！没有找到符合条件的信息！请重新查找！ Else Unload Me frmteachersql.tlBar.Buttons（2）.Visible = False frmteachersql.tlBar.Buttons（3）.Visible = True frmteachersql.tlBar.Buttons（4）.Visible = True If frmteachersql.Visible = F

6、alse Then frmteachersql.Show 1 End IfEnd Sub3.4.2 教师基本信息显示Private Sub Toolbar1_ButtonClick（ByVal Button As MSComctlLib.Button）Select Case Button.Index Case 2 frmmoney.Show 1 Case 3 With frmmoneygx .Caption = 修改记录 .cmbbh.Text = fgshowgz.TextMatrix（fgshowgz.Row, 0） .txtgl.Text = fgshowgz.TextMatrix（fg

7、showgz.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.T

8、extMatrix（fgshowgz.Row, 7） .txtss.Text = fgshowgz.TextMatrix（fgshowgz.Row, 8） .txtzgz.Text = fgshowgz.TextMatrix（fgshowgz.Row, 9） .Show 1 End With Case 4 If MsgBox（你确定要删除吗？, vbOKCancel + vbQuestion, 询问） = vbOK Then Dim rtn As Longdelete from gz where 编号= + fgshowgz.TextMatrix（fgshowgz.Row, 0） + rtn

9、= Update（sql） If rtn = 0 Then fgshowgz.RemoveItem fgShow.Row MsgBox （删除成功！）系统错误，删除失败！Case 6 MoveFirst fgshowgzCase 7 MovePre fgshowgzCase 8 MoveNext fgshowgzCase 9 MoveLast fgshowgzCase 11Case 12If Me.fgshowgz.Rows 0 Then DataReport1.Show 1End WithEnd Select3.4.3 教师基本信息添加Private Sub tlbar_ButtonClic

10、k（ByVal Button As MSComctlLib.Button）Case 3 Dim sql As String With frmteachersql.fgShow If Me.Caption = 教师信息添加insert into teacher（身份证号,编号,姓名,性别,民族,学历,职称,政治面貌,出生日期,入校日期,联系电话,家庭住址） values（ Trim（Me.txtsfzh.Text） &, Trim（Me.txtbh.Text） & Trim（Me.txtxm.Text） & Trim（Me.cmbxb.Text） & Trim（Me.cmbmz.Text） &

11、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） &update teacher set 编号= + Trim（Me.txtbh.Text） _,身份证号= + Trim（Me.txtsfzh.Text） _,姓名= + Trim（Me.txtxm.Text） _,性别= + Trim（Me.cmbxb.Text） _,民族=

12、+ 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） + * Dim cnn As New ADODB.Connection Dim rst

13、As New ADODB.Recordset Dim stm As New ADODB.Streamselect 相片 from teacher where 编号= + Trim（txtbh.Text） + cnn.Open strcnn rst.Open sql, cnn, 3, 3 If rst.RecordCount If Me.CommonDialog1.FileName = rst.Fields（相片）.Value = Null rst.Update stm.Type = adTypeBinary stm.Open stm.LoadFromFile Me.CommonDialog1.

14、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

15、） = 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） .TextMat

16、rix（.Row, 12） = Trim（Me.imgxp.Picture）信息修改成功！ ElseIf rtn = -2147217873 Then编号已存在！请重新输入！ Me.txtbh.Text = Me.txtbh.SetFocus ElseIf rtn = -2147217833 Then输入的信息超过指定长度！请检查！出现未指定错误！请检查您的输入！ Case 53.4.4 工资信息查询代码设计 Private Sub Command1_Click（）If txtxm.Text = MsgBox 姓名不能为空！请重新输入txtxm.SetFocusExit Subselect *

17、 from gz where 编号 in（select 编号 from teacher where 姓名 like % + Trim（txtxm.Text） + %ShowData sql, frmmoneysql.fgshowgzIf frmmoneysql.fgshowgz.Rows = 1 Then对不起!没有找到Unload Mefrmmoneysql.Toolbar1.Buttons（3）.Visible = Truefrmmoneysql.Toolbar1.Buttons（2）.Visible = Falsefrmmoneysql.Toolbar1.Buttons（4）.Visib

18、le = True If frmmoneysql.Visible = False Then frmmoneysql.Show 1select * from gz where 编号 in（select 编号 from gz ShowData sql, frmmoneysql.fgshowgz If frmmoneysql.fgshowgz.Rows = 1 Then frmmoneysql.Toolbar1.Buttons（2）.Visible = False frmmoneysql.Toolbar1.Buttons（3）.Visible = True frmmoneysql.Toolbar1.Buttons（4）.Visible = FalsePrivate Sub Form_Load（）Dim cnn As New ADODB.ConnectionDim rst As New ADODB.Recordsetselect distinct 编号 from teachercnn.Open strcnnrst.Open sql, cnn, 3, 1Do While Not rst.EOF cmbbh.AddItem rst!编号 rst.MoveNextLooprst.Closecnn.Close3.4.5 工资查询后显示页面的代码