VB3004中介管理系统2.docx

《VB3004中介管理系统2.docx》由会员分享，可在线阅读，更多相关《VB3004中介管理系统2.docx（23页珍藏版）》请在三一办公上搜索。

1、摘要1Abstract2第一章弓I言41. 1课题背景41. 2系统简介5第二章系统的分析62. 1系统开发的目标和思想*62. 2系统的可行性分析8第三章系统的设计183. 1系统的功能结构设计183. 2系统的数据库设计3. 3界面设计与代码设计2324结束语致谢参考文献摘要中介管理系统用计算机管理中介信息的一种计算机应用技术的创新,在计算 机还未普及之前中介管理都是由管理人员手工记帐的方式来操作的.现在一般的 地籍中介管理都是采用计算机作为工具的实用的计算机中介信息登记管理程序 来帮助管理员进行更有效的地籍登记。中介管理系统是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立

2、和维护以及前端应用程序的开发两个 方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于 后者则要求应用程序功能完备，易使用等特点。经过分析，我们使用MICROSOFT公司的VISUAL BASIC开发工具，利用其提供 的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智 能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭 代，不断修正和改进，直到形成用户满意的可行系统。关键字：中介管理，MIS，visual basic ，数据库AbstractIntermediary management system using a computer

3、 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 f

4、or 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 datab

5、ase 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 compa

6、nies, 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

7、 revise and improve until the formation of a viable system of user satisfaction.keyword : intermediary management MIS,visual basic database第一章引言1. 1课题背景中介管理系统用计算机管理中介信息的一种计算机应用技术的 创新,在计算机还未普及之前中介管理都是由管理人员手工记帐的方 式来操作的.现在一般的地籍中介管理都是采用计算机作为工具的实 用的计算机中介信息登记管理程序来帮助管理员进行更有效的地籍 登记。中介管理系统是典型的信息管理系统(MIS),其开发

8、主要包括后 台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者 要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者 则要求应用程序功能完备，易使用等特点。1. 2系统简介本系统主要服务于中介供应商.发布收集，管理一系列中介 信息.主要有以下几大功能模块：一. 家教求职:教师信息管理,教师信息查询二. 家长求教：学生信息管理，学生信息查询三. 网页制作：招聘信息管理，招聘信息查询，招聘信息管理, 招聘信息查询.四. 软件开发:程序员信息管理，程序员信息查询，软件信息管 理,软件信息查询五. 硬件测试：工程师信息管理,工程师信息查询，硬件信息 管理,硬件信息查询六. 系统设置:

9、更改口令，数据库维护第二章系统的分析2. 1系统开发的目标和思想本系统开发目标是服务于中介信息公司单位，方便工作人员，收 集中介信息,发布中介信息，对信息的分类管理等.同时力求做到界面人性化，功能齐全，数据存储安全.2. 2系统的可行性分析技术上:本系统采用visual basic 6.0与微软的access作为数 据库，技术上开发难度一般.经济上:本系统服务于中介公司，提高了工作人员办事效率,节省 了开支.所以具有经济上的可行性.社会上:本系统同时也方便了广大中介寻求者，以及服务提供商. 所以具有社会可行性.第三章系统的设计3. 1硬件系统的功能结构设计3. 2系统的数据库设计 一.教师信息

10、表：. . I _ _ * _字段名称数据类型文本教师姓名文本性别文本年龄文本籍贯文本学校文本专业文本年他文本职务文本高考成绩文本特长文本爱好文本联系电话文本身份证号码文本通信地址文本当前状态文本受理人文本受理费用货币寸木J浚件求诀二览字段名称数据类型文本学生姓名文本性别艾本年龄文本籍贯文本学校文本专业文本年级文本职务艾本特长文本爱好文本联系电话文本身份证号码交本通信地址文本当前状态文本受理人交本受理费用货币项目收件号文本登记日期日期/时间3.软件招聘表:J浚芹:翘:览字段名称数据类型文本公司名称文本软件类型文本主要工作文本工作地点文本工作时间文本报酬文本招聘对象文本需要的技术文本完成时间文本

11、联系人文本联系电话文本身份证号码文本备注文本受理大文本受理费用货币枝态文本学生收件号文本登记日期日期/时间4.网页求职表:字段名称数据类型斜文本学生姓名文本性别文本年龄文本籍贯文本学校文本专业文本年级文本职务文本特长文本爱好文本联系电话文本身份证号码文本通信地址文本当前状态文本受理人文本受理费用货币项目收件号文本爵记日期日期f时间5.网页招聘表:口初页:翘揭：览字段名称数据类型敝件号文本公司名称文本网站类型文本主要工作文本工作地点文本工作时间文本报酬文本招聘对象文本需要的技术文本完成时间文本联系人文本联系电话文本身份证号码文本备注文本受理人文本受理费用货币状态文本学生收件号文本登记日期日期/时

12、间6.系统管理表:7.学生信息表:J学堂信且字段名称数据类型辨文本学生姓名交本性别文本年龄文本学校交本年级文本平时成绩文本学习状况交本希望辅导科目文本预期目标文本家庭住址交本联系电话文本愿付报酬文本联系人交本身份证号码文本找态文本教师编号交本受理人文本收费货币8.硬件求职表:口联苻主以：适I字段名称文本学生姓名文本性别文本年龄文本籍贯文本学校文本专业文本年勤文本职务文本特长文本爱好文本联系电话文本身份证号码文本通信地址文本当前状态文本受理人文本受理费用货币项目收件号文本爵记日期日期/时间9.硬件招聘表:J .学务招揭：位字段名称数据类型文本公司名称文本工作类型文本主要工作文本工作地点文本工作时

13、间文本报酬文本招聘对象文本需要的技术文本完成时间文本联系人文本联系电话文本身份证号码文本备注文本受理人文本受理费用货币状态文本学生收件号文本眷很闩前FI且H时间3. 3界面设计与代码设计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判断输入的用户名是否为空MsgB

14、ox 没有这个用户，vbOKOnly + vbExclamation, txtname.SetFocusElsesql = select * from 系统管理 where 用户名=& txtname.Text & rs_login.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_login.EOF = True ThenMsgBox 没有这个用户，vbOKOnly + vbExclamation,txtname.SetFocusElse检验密码是否正确If Trim(rs_login.Fields(1) = Trim(txtpwd.T

15、ext) ThenuserID = txtname.Textusername = rs_login.Fields(2)rs_login.CloseUnload MeMDIForm1.ShowElseMsgBox 密码不正确，vbOKOnly + vbExclamation,txtpwd.SetFocusEnd IfEnd IfEnd Ifcnt = cnt + 1If cnt = 3 ThenUnload MeEnd IfEnd SubPrivate Sub Form_Load()Dim connectionstring As Stringconnectionstring = provider

16、=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) ThenMsgBox 密码不一致！ ，vbOKOnly + vbExclamation,txtnew.SetFoc

17、ustxtnew.Text =txtnewqr.Text =Elsesql = select * from 系统管理 where 用户名=& userID & rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(1) = txtnew.Textrs_chang.Updaters_chang.CloseMsgBox 密码修改成功，vbOKOnly + vbExclamation,Unload MeEnd IfEnd SubPrivate Sub cmdcancel_Click()Unload MeEnd

18、 Sub3.添加用户界面:添加用户代码分析：Private Sub cmdok_Click()Dim sql As StringDim rs_add As New ADODB.RecordsetIf Trim(txtname.Text) = ThenMsgBox ”用户名不能为空”，vbOKOnly + vbExclamation,Exit Subtxtname.SetFocusElsesql = select * from 系统管理”rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False

19、)If Trim(rs_add.Fields(0) = Trim(txtname.Text) ThenMsgBox ”已有这个用户”，vbOKOnly + vbExclamation, txtname.SetFocus txtname.Text = txtpwd.Text = txtqueren.Text = Combo1.Text = Exit SubElsers_add.MoveNext End IfWendIf Trim(txtpwd.Text) Trim(txtqueren.Text) ThenMsgBox ”两次密码不一致”，vbOKOnly + vbExclamation,txtp

20、wd.SetFocustxtpwd.Text =txtqueren.Text =Exit SubElself Trim(Combol.Text) system And Trim(Combol.Text) guest ThenMsgBox 请选择正确的用户权限,vbOKOnly + vbExclamation,Combo1.SetFocusCombo1.Text =Exit SubElsers_add.AddNewrs_add.Fields(0) = txtname.Textrs_add.Fields(1) = txtpwd.Textrs_add.Fields(2) = Combo1.Textr

21、s_add.Updaters add.CloseMsgBox 添加用户成功，vbOKOnly + vbExclamation,Unload MeEnd 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

22、 IntegerDim sql As Stringi = TreeView1.SelectedItem.IndexIf TreeView1.SelectedItem.Children 0 Thentxttbl = TreeView1.SelectedItem.TextIf TreeView1.SelectedItem.Expanded = True ThenTreeView1.SelectedItem.Expanded = FalseElseTreeView1.SelectedItem.Expanded = TrueEnd IfEnd IfSelect Case TreeView1.Selec

23、tedItem.TextCase -教师信息管理Picture2(0).Visible = TruePicture2(1).Visible = FalsePicture2(2).Visible = FalsePicture2(3).Visible = FalsePicture2(4).Visible = FalsePicture2(5).Visible = FalsePicture2(6).Visible = FalsePicture2(7).Visible = FalsePicture2(8).Visible = FalsePicture2(9).Visible = FalsePicture

24、2(11).Visible = FalsePicture2(10).Visible = False state =教师信息管理Toolbar1.Buttons(1).Enabled = TrueCase 教师信息查询Picture2(1).Visible = TruePicture2(0).Visible = FalsePicture2(2).Visible = FalsePicture2(3).Visible = FalsePicture2(4).Visible = FalsePicture2(5).Visible = FalsePicture2(6).Visible = FalsePict

25、ure2(7).Visible = FalsePicture2(8).Visible = FalsePicture2(9).Visible = FalsePicture2(11).Visible = FalsePicture2(10).Visible = False state =教师信息查询For j = 0 To 10Toolbar1.Buttons(i).Enabled = FalseNext jCase -学生信息管理Picture2(2).Visible = TruePicture2(0).Visible = FalsePicture2(1).Visible = FalsePictu

26、re2(3).Visible = FalsePicture2(4).Visible = FalsePicture2(5).Visible = FalsePicture2(6).Visible = FalsePicture2(7).Visible = FalsePicture2(8).Visible = FalsePicture2(9).Visible = FalsePicture2(11).Visible = FalsePicture2(10).Visible = False state =学生信息管理Toolbar1.Buttons(1).Enabled = TrueCase 学生信息查询P

27、icture2(2).Visible = FalsePicture2(0).Visible = FalsePicture2(1).Visible = FalsePicture2(3).Visible = TruePicture2(4).Visible = FalsePicture2(5).Visible = FalsePicture2(6).Visible = FalsePicture2(7).Visible = FalsePicture2(8).Visible = FalsePicture2(9).Visible = FalsePicture2(11).Visible = FalsePict

28、ure2(10).Visible = False state =学生信息查询” For j = 0 To 10Toolbar1.Buttons(i).Enabled = FalseNext jCase -招聘信息管理Picture2(2).Visible = FalsePicture2(0).Visible = FalsePicture2(1).Visible = FalsePicture2(3).Visible = FalsePicture2(5).Visible = FalsePicture2(6).Visible = FalsePicture2(7).Visible = FalsePic

29、ture2(8).Visible = FalsePicture2(9).Visible = FalsePicture2(11).Visible = FalsePicture2(10).Visible = False Picture2(4).Visible = True state =招聘信息管理 Toolbar1.Buttons(1).Enabled = TrueCase 招聘信息查询Picture2(2).Visible = FalsePicture2(0).Visible = FalsePicture2(1).Visible = FalsePicture2(5).Visible = Tru

30、ePicture2(4).Visible = FalsePicture2(6).Visible = FalsePicture2(3).Visible = FalsePicture2(7).Visible = FalsePicture2(8).Visible = FalsePicture2(9).Visible = FalsePicture2(11).Visible = FalsePicture2(10).Visible = FalseCase -求职信息管理Picture2(6).Visible = TruePicture2(2).Visible = FalsePicture2(0).Visi

31、ble = False Picture2(1).Visible = FalsePicture2(3).Visible = FalsePicture2(5).Visible = FalsePicture2(7).Visible = FalsePicture2(4).Visible = FalsePicture2(8).Visible = FalsePicture2(9).Visible = FalsePicture2(11).Visible = FalsePicture2(10).Visible = False state =求职信息管理 Toolbar1.Buttons(1).Enabled

32、= TrueCase 求职信息查询Picture2(2).Visible = FalsePicture2(0).Visible = FalsePicture2(1).Visible = FalsePicture2(5).Visible = FalsePicture2(4).Visible = FalsePicture2(6).Visible = FalsePicture2(3).Visible = FalsePicture2(7).Visible = TruePicture2(8).Visible = FalsePicture2(9).Visible = FalsePicture2(11).V

33、isible = FalsePicture2(10).Visible = FalseCase -程序员信息管理Picture2(2).Visible = FalsePicture2(0).Visible = FalsePicture2(1).Visible = FalsePicture2(5).Visible = FalsePicture2(4).Visible = FalsePicture2(6).Visible = FalsePicture2(3).Visible = FalsePicture2(7).Visible = FalsePicture2(8).Visible = FalsePi

34、cture2(11).Visible = FalsePicture2(10).Visible = False Picture2(9).Visible = True state =程序员信息管理”Case 程序员信息查询Picture2(2).Visible = FalsePicture2(0).Visible = FalsePicture2(1).Visible = FalsePicture2(5).Visible = FalsePicture2(4).Visible = FalsePicture2(6).Visible = FalsePicture2(3).Visible = False P

35、icture2(7).Visible = False Picture2(8).Visible = True Picture2(9).Visible = False Picture2(11).Visible = FalsePicture2(10).Visible = FalseCase 软件信息管理Picture2(2).Visible = FalsePicture2(0).Visible = False Picture2(1).Visible = False Picture2(5).Visible = False Picture2(4).Visible = False Picture2(6).

36、Visible = FalsePicture2(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 = FalsePicture2(0).Visible = False Picture2(1).Visible = False Picture2(

37、5).Visible = False Picture2(4).Visible = False Picture2(6).Visible = FalsePicture2(3).Visible = False Picture2(7).Visible = False Picture2(8).Visible = True Picture2(9).Visible = False Picture2(11).Visible = FalsePicture2(10).Visible = FalseEnd SelectExit Subclickerror:MsgBox Err.Description End Sub

38、结束语本软件的设计目的是在中介管理维护方面为企事业单位和管理人员提供方便 和帮助。通过这几个月的毕业设计，我学到很多以前没有学到的visual basic 开发技术，在软件工程学上更是取得了很大的进步。经过大量的测试和试用，作 者深信本软件达到了方便和实用的设计目的，并在软件界面和易用实用等方面有 着独到之处。虽然软件基本达到设计要求并且达到同行的先进水平，但由于作者水平有限，软 件存在bug也是在所难免的，您的意见和建议将极大的帮助我改进并完善软件。 真诚的希望你的参与。致谢我首先感谢我的指导老师吕老师，在他严格的要求下我懂得了开发软件要有 一种极其认真负责的态度。无论做什么事都要大胆的去想

39、去做，这样会有好的创 意，才能更有作为。在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年，在生活 和学习上给了我很大的帮助。参考文献1陈明.软件工程学教程.科技出版社，20022萨师煊，王珊.数据库系统概论.第三版.高等教育出版社，20003飞思科技产品研发中心.visual basic 6.0数据库应用开发.电子工业 出版社，20034飞思科技产品研发中心.visual basic 6.0开发者手册.电子工业出版 社，20025申旻.visual basic 6.0高手突破.清华大学出版社，2002，3026 Steve Teixeira， Xaviver Pacheco 著，

40、龙劲松，王瑜，谢尚书译.visual basic 6.0开发人员指南.机械工业出版社.20037乔林.参透Delphi /Kylix .中国铁道出版社.20038李维.Inside深入核心VCL架构剖析.电子工业出版社.20049张立科编写组.Windows API函数参考手册.人民邮电出版社.2002严蔚敏，吴伟民.数据结构.第二版.清华大学出版社.200110王珍玲。实用软件工程教程 高等教育出版社200411 （英）Ian Sommerville 机械工业出版社 200312美Cantu,U. 王辉等译visual basic 60从入门到精通 电子工业出 版社200313李维面向对象开

41、发实践之路（visual basic 60版）（BORLAND资深顾 问著名visual basic 6.0专家李维最新力作）电子工业出版社2005.414秦斌等visual basic 60数据库系统开发与应用 中国水利水电出版 社 2006 .115刘艺visual basic 60面向对象编程思想机械工业出版社200316. visual basic程序设计第二版谭浩强 清华大学出版社200317. visual basic6.0程序设计教程.胡同森赵剑锋等.浙江科学技术出 版社,2002.118. 软件工程学教程（第二版）周苏王文著科学出版社200319. Visual Basic 6.0程序设计与开发技术 求是科技 人民邮电出版社 2004.9重要提示：本论文由大学论文网毕业论文下载网：提供如果需要详细内容请与QQ:4991024联系