毕业设计（论文）-VB中介管理系统设计.doc

毕业设计中介管理系统摘 要1Abstract2第一章 引言411 课题背景412 系统简介5第二章 系统的分析621 系统开发的目标和思想622 系统的可行性分析8第三章 系统的设计1831 系统的功能结构设计1832 系统的数据库设计33 界面设计与代码设计2324结束语46致谢47参考文献摘要中介管理系统用计算机管理中介信息的一种计算机应用技术的创新,在计算机还未普及之前中介管理都是由管理人员手工记帐的方式来操作的.现在一般的地籍中介管理都是采用计算机作为工具的实用的计算机中介信息登记管理程序来帮助管理员进行更有效的地籍登记。中介管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。关键字:中介管理,MIS,visual basic ,数据库AbstractIntermediary management system using a computer information management intermediary computer applications technology innovation, Management has not yet popular in the computer before the intermediary managers are from manual accounting to the operation. Now the general management of cadastral intermediary computers are used as a practical tool for computer intermediary registration information management procedures to help managers more effective cadastral registration. Intermediary management system is a typical management information system (MIS), including its main development background to the establishment and maintenance of the database and front-end application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use Microsoft visual basic development tool companies, the use of its various object-oriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, computation of the initial prototype system needs to constantly revise and improve until the formation of a viable system of user satisfaction. keyword : intermediary management MIS,visual basic database第一章 引言11 课题背景中介管理系统用计算机管理中介信息的一种计算机应用技术的创新,在计算机还未普及之前中介管理都是由管理人员手工记帐的方式来操作的.现在一般的地籍中介管理都是采用计算机作为工具的实用的计算机中介信息登记管理程序来帮助管理员进行更有效的地籍登记。中介管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。12 系统简介本系统主要服务于中介供应商.发布收集,管理一系列中介信息.主要有以下几大功能模块:一.家教求职:教师信息管理,教师信息查询二.家长求教: 学生信息管理,学生信息查询三.网页制作: 招聘信息管理,招聘信息查询,招聘信息管理,招聘信息查询.四.软件开发:程序员信息管理,程序员信息查询,软件信息管理,软件信息查询五.硬件测试: 工程师信息管理,工程师信息查询,硬件信息管理,硬件信息查询六.系统设置:更改口令,数据库维护第二章 系统的分析21 系统开发的目标和思想本系统开发目标是服务于中介信息公司单位,方便工作人员,收集中介信息,发布中介信息,对信息的分类管理等.同时力求做到界面人性化,功能齐全,数据存储安全.22 系统的可行性分析技术上:本系统采用visual basic 6.0与微软的access作为数据库,技术上开发难度一般.经济上:本系统服务于中介公司,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性.社会上:本系统同时也方便了广大中介寻求者,以及服务提供商.所以具有社会可行性.第三章 系统的设计31 硬件系统的功能结构设计程序登陆主界面家教求职家长求教网页制作软件开发硬件设计系统设置32 系统的数据库设计一.教师信息表:2.软件求职表:3.软件招聘表:4.网页求职表:5.网页招聘表:6.系统管理表:7.学生信息表:8.硬件求职表:9.硬件招聘表:33 界面设计与代码设计1. 登陆界面设计:登陆界面代码设计:Private Sub cmdcancel_Click()conn.CloseSet conn = NothingEndEnd SubPrivate Sub cmdok_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetIf Trim(txtname.Text) = Then 判断输入的用户名是否为空 MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtname.SetFocusElse sql = select * from 系统管理 where 用户名= & txtname.Text & rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtname.SetFocus Else 检验密码是否正确 If Trim(rs_login.Fields(1) = Trim(txtpwd.Text) Then userID = txtname.Text username = rs_login.Fields(2) rs_login.Close Unload Me MDIForm1.Show Else MsgBox 密码不正确, vbOKOnly + vbExclamation, txtpwd.SetFocus End If End IfEnd Ifcnt = cnt + 1If cnt = 3 Then Unload MeEnd IfEnd SubPrivate Sub Form_Load()Dim connectionstring As Stringconnectionstring = provider=Microsoft.Jet.oledb.4.0; & _ data source= & App.Path & zhongjie.mdbconn.Open connectionstringcnt = 0End Sub2. 修改密码界面:修改密码代码设计:Private Sub cmdok_Click()Dim rs_chang As New ADODB.RecordsetDim sql As StringIf Trim(txtnew.Text) Trim(txtnewqr.Text) Then MsgBox 密码不一致！, vbOKOnly + vbExclamation, txtnew.SetFocus txtnew.Text = txtnewqr.Text = Else sql = select * from 系统管理 where 用户名= & userID & rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(1) = txtnew.Text rs_chang.Update rs_chang.Close MsgBox 密码修改成功, vbOKOnly + vbExclamation, Unload MeEnd IfEnd SubPrivate Sub cmdcancel_Click()Unload MeEnd Sub3. 添加用户界面:添加用户代码分析:Private Sub cmdok_Click()Dim sql As StringDim rs_add As New ADODB.RecordsetIf Trim(txtname.Text) = Then MsgBox 用户名不能为空, vbOKOnly + vbExclamation, Exit Sub txtname.SetFocusElse sql = select * from 系统管理 rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False) If Trim(rs_add.Fields(0) = Trim(txtname.Text) Then MsgBox 已有这个用户, vbOKOnly + vbExclamation, txtname.SetFocus txtname.Text = txtpwd.Text = txtqueren.Text = Combo1.Text = Exit Sub Else rs_add.MoveNext End If Wend If Trim(txtpwd.Text) Trim(txtqueren.Text) Then MsgBox 两次密码不一致, vbOKOnly + vbExclamation, txtpwd.SetFocus txtpwd.Text = txtqueren.Text = Exit Sub ElseIf Trim(Combo1.Text) system And Trim(Combo1.Text) guest Then MsgBox 请选择正确的用户权限, vbOKOnly + vbExclamation, Combo1.SetFocus Combo1.Text = Exit Sub Else rs_add.AddNew rs_add.Fields(0) = txtname.Text rs_add.Fields(1) = txtpwd.Text rs_add.Fields(2) = Combo1.Text rs_add.Update rs_add.Close MsgBox 添加用户成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd SubPrivate Sub cmdcancel_Click()Unload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem systemCombo1.AddItem guestEnd Sub4. 主界面设计:主界面代码设计:Private Sub TreeView1_Click()On Error GoTo clickerrorDim i As IntegerDim j As IntegerDim sql As Stringi = TreeView1.SelectedItem.IndexIf TreeView1.SelectedItem.Children 0 Then txttbl = TreeView1.SelectedItem.Text If TreeView1.SelectedItem.Expanded = True Then TreeView1.SelectedItem.Expanded = False Else TreeView1.SelectedItem.Expanded = True End IfEnd IfSelect Case TreeView1.SelectedItem.Text Case 教师信息管理 Picture2(0).Visible = True Picture2(1).Visible = False Picture2(2).Visible = False Picture2(3).Visible = False Picture2(4).Visible = False Picture2(5).Visible = False Picture2(6).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False state = 教师信息管理 Toolbar1.Buttons(1).Enabled = True Case 教师信息查询 Picture2(1).Visible = True Picture2(0).Visible = False Picture2(2).Visible = False Picture2(3).Visible = False Picture2(4).Visible = False Picture2(5).Visible = False Picture2(6).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False state = 教师信息查询 For j = 0 To 10 Toolbar1.Buttons(i).Enabled = False Next j Case 学生信息管理 Picture2(2).Visible = True Picture2(0).Visible = False Picture2(1).Visible = False Picture2(3).Visible = False Picture2(4).Visible = False Picture2(5).Visible = False Picture2(6).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False state = 学生信息管理 Toolbar1.Buttons(1).Enabled = True Case 学生信息查询 Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(3).Visible = True Picture2(4).Visible = False Picture2(5).Visible = False Picture2(6).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False state = 学生信息查询 For j = 0 To 10 Toolbar1.Buttons(i).Enabled = False Next j Case 招聘信息管理 Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(3).Visible = False Picture2(5).Visible = False Picture2(6).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False Picture2(4).Visible = True state = 招聘信息管理 Toolbar1.Buttons(1).Enabled = True Case 招聘信息查询 Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(5).Visible = True Picture2(4).Visible = False Picture2(6).Visible = False Picture2(3).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False Case 求职信息管理 Picture2(6).Visible = True Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(3).Visible = False Picture2(5).Visible = False Picture2(7).Visible = False Picture2(4).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False state = 求职信息管理 Toolbar1.Buttons(1).Enabled = True Case 求职信息查询 Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(5).Visible = False Picture2(4).Visible = False Picture2(6).Visible = False Picture2(3).Visible = False Picture2(7).Visible = True Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False Case 程序员信息管理 Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(5).Visible = False Picture2(4).Visible = False Picture2(6).Visible = False Picture2(3).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False Picture2(9).Visible = True state = 程序员信息管理 Case 程序员信息查询 Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(5).Visible = False Picture2(4).Visible = False Picture2(6).Visible = False Picture2(3).Visible = False Picture2(7).Visible = False Picture2(8).Visible = True Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False Case 软件信息管理 Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(5).Visible = False Picture2(4).Visible = False Picture2(6).Visible = False Picture2(3).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(11).Visible = False Picture2(9).Visible = False Picture2(10).Visible = True state = 软件信息管理 Case 软件信息查询 Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(5).Visible = False Picture2(4).Visible = False Picture2(6).Visible = False Picture2(3).Visible = False Picture2(7).Visible = False Picture2(8).Visible = True Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = FalseEnd SelectExit Subclickerror: MsgBox Err.DescriptionEnd Sub 结束语本软件的设计目的是在中介管理维护方面为企事业单位和管理人员提供方便和帮助。通过这几个月的毕业设计，我学到很多以前没有学到的visual basic开发技术，在软件工程学上更是取得了很大的进步。经过大量的测试和试用，作者深信本软件达到了方便和实用的设计目的，并在软件界面和易用实用等方面有着独到之处。虽然软件基本达到设计要求并且达到同行的先进水平，但由于作者水平有限，软件存在bug也是在所难免的 ，您的意见和建议将极大的帮助我改进并完善软件。真诚的希望你的参与。 致谢我首先感谢我的指导老师吕老师，在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做，这样会有好的创意，才能更有作为。在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年，在生活和学习上给了我很大的帮助。 参 考 文 献1陈明 . 软件工程学教程 .科技出版社，20022 萨师煊，王珊 . 数据库系统概论 . 第三版 . 高等教育出版社，20003 飞思科技产品研发中心 . visual basic 6.0数据库应用开发 .电子工业出版社，20034 飞思科技产品研发中心 . visual basic 6.0开发者手册 . 电子工业出版社, 2002 5 申旻 . visual basic 6.0高手突破 . 清华大学出版社，2002，3026 Steve Teixeira，Xaviver Pacheco著，龙劲松，王瑜，谢尚书译 . visual basic 6.0开发人员指南 . 机械工业出版社 .2003 7 乔林 .参透DelphiKylix . 中国铁道出版社 .20038 李维 .Inside 深入核心 VCL 架构剖析 . 电子工业出版社 .2004 9 张立科编写组 .Windows API 函数参考手册 .人民邮电出版社 .2002 严蔚敏，吴伟民 .数据结构 .第二版 .清华大学出版社 .2001 10 王珍玲 。实用软件工程教程 高等教育出版社 200411 （英）Ian Sommerville 机械工业出版社 200312 美Cantu,U. 王辉等译visual basic 6.0 从入门到精通 电子工业出版社 200313 李维 面向对象开发实践之路（visual basic 6.0版）(BORLAND资深顾问著名visual basic 6.0专家李维最新力作) 电子工业出版社 2005.414 秦斌 等 visual basic 6.0数据库系统开发与应用 中国水利水电出版社 2006 .115 刘艺 visual basic 6.0面向对象编程思想 机械工业出版社 200316.visual basic 程序设计第二版 谭浩强 清华大学出版社 200317. visual basic6.0 程序设计教程. 胡同森 赵剑锋等. 浙江科学技术出版社,2002.118.软件工程学教程 (第二版) 周苏 王文 著 科学出版社 200319.Visual Basic 6.0 程序设计与开发技术 求是科技 人民邮电出版社 2004.9毕业设计中介管理系统摘 要1Abstract2第一章 引言411 课题背景412 系统简介5第二章 系统的分析621 系统开发的目标和思想622 系统的可行性分析8第三章 系统的设计1831 系统的功能结构设计1832 系统的数据库设计33 界面设计与代码设计2324结束语46致谢47参考文献摘要中介管理系统用计算机管理中介信息的一种计算机应用技术的创新,在计算机还未普及之前中介管理都是由管理人员手工记帐的方式来操作的.现在一般的地籍中介管理都是采用计算机作为工具的实用的计算机中介信息登记管理程序来帮助管理员进行更有效的地籍登记。中介管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。关键字:中介管理,MIS,visual basic ,数据库AbstractIntermediary management system using a computer information management intermediary computer applications technology innovation, Management has not yet popular in the computer before the intermediary managers are from manual accounting to the operation. Now the general management of cadastral intermediary computers are used as a practical tool for computer intermediary registration information management procedures to help managers more effective cadastral registration. Intermediary management system is a typical management information system (MIS), including its main development background to the establishment and maintenance of the database and front-end application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use Microsoft visual basic development tool companies, the use of its various object-oriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, computation of the i