中介管理系统

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

2．2 系统的可行性分析 [资料来源：http://think58.com]

技术上:本系统采用visual basic 6.0与微软的access作为数据库,技术上开发难度一般.
经济上:本系统服务于中介公司,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性.
社会上:本系统同时也方便了广大中介寻求者,以及服务提供商.所以具有社会可行性.
登陆界面代码设计: 内容来自think58 [资料来源：http://www.THINK58.com]

Private Sub cmdcancel_Click()
conn.Close
Set conn = Nothing
End
End Sub 内容来自think58 [资料来源：http://think58.com]

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 think58好，好think58

          username = rs_login.Fields(2)
          rs_login.Close
          Unload Me
          MDIForm1.Show
      Else
         MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
         txtpwd.SetFocus
      End If
   End If
End If
cnt = cnt + 1
If cnt = 3 Then
   Unload Me
End If
End Sub [资料来源：http://think58.com]

Private Sub Form_Load()
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
                   "data source= " & App.Path & "\zhongjie.mdb"
conn.Open connectionstring
cnt = 0
End Sub

think58.com [版权所有：http://think58.com]

[资料来源：http://THINK58.com]