vb+中介管理系统access+开题报告+论文+源代码外文

摘要
 中介管理系统用计算机管理中介信息的一种计算机应用技术的创新,在计算机还未普及之前中介管理都是由管理人员手工记帐的方式来操作的.现在一般的地籍中介管理都是采用计算机作为工具的实用的计算机中介信息登记管理程序来帮助管理员进行更有效的地籍登记。中介管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。    经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
 关键字:中介管理,MIS,visual basic ,数据库
 

引言
课题背景
 中介管理系统用计算机管理中介信息的一种计算机应用技术的创新,在计算机还未普及之前中介管理都是由管理人员手工记帐的方式来操作的.现在一般的地籍中介管理都是采用计算机作为工具的实用的计算机中介信息登记管理程序来帮助管理员进行更有效的地籍登记。中介管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
 
 1．2  系统简介
 本系统主要服务于中介供应商.发布收集,管理一系列中介信息. 您可以访问中国科教评价网（www.NsEac.com）查看更多相关的文章。
 主要有以下几大功能模块:
 一.家教:教师信息管理,教师信息查询
 二.家长求教: 学生信息管理,学生信息查询
 三.网页制作: 招聘信息管理,招聘信息查询,招聘信息管理,招聘信息查询.
 四.软件开发:程序员信息管理,程序员信息查询,软件信息管理,软件信息查询
 五.硬件测试: 工程师信息管理,工程师信息查询,硬件信息管理,硬件信息查询
 六.系统设置:更改口令,数据库维护
 
 

 
 
 
系统的分析
系统开发的目标和思想
 本系统开发目标是服务于中介信息公司单位,方便工作人员,收集中介信息,发布中介信息,对信息的分类管理等.
同时力求做到界面人性化,功能齐全,数据存储安全.

系统的可行性分析

技术上:本系统采用visual basic 6.0与微软的access作为数据库,技术上开发难度一般.
经济上:本系统服务于中介公司,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性.
社会上:本系统同时也方便了广大中介寻求者,以及服务提供商.所以具有社会可行性.

系统的设计

硬件系统的功能结构设计

系统的数据库设计
一.教师信息表:

2.软件求职表:

3.软件招聘表:

4.网页求职表:

5.网页招聘表:

6.系统管理表:

7.学生信息表:

8.硬件求职表:

9.硬件招聘表:

界面设计与代码设计
登陆界面设计:

登陆界面代码设计:

Private Sub cmdcancel_Click()
conn.Close

Private Sub cmdok_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
If Trim(txtname.Text) = "" Then            '判断输入的用户名是否为空
   MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
   txtname.SetFocus
Else
   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