|
第二章 系统的分析 http://www.paper51.com 2．1 系统开发的目标和思想 内容来自www.paper51.com 本系统开发目标是服务于中介信息公司单位,方便工作人员,收集中介信息,发布中介信息,对信息的分类管理等. paper51.com 同时力求做到界面人性化,功能齐全,数据存储安全. paper51.com
2．2 系统的可行性分析 paper51.com 技术上:本系统采用visualbasic 6.0与微软的access作为数据库,技术上开发难度一般. copyright paper51.com 经济上:本系统服务于中介公司,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性. 内容来自论文无忧网 www.paper51.com 社会上:本系统同时也方便了广大中介寻求者,以及服务提供商.所以具有社会可行性. http://www.paper51.com 第三章 系统的设计 内容来自www.paper51.com 3．1 硬件系统的功能结构设计 内容来自论文无忧网 www.paper51.com
paper51.com 3．2 系统的数据库设计 http://www.paper51.com
一.教师信息表: http://www.paper51.com 内容来自论文无忧网 www.paper51.com 2.软件求职表: paper51.com
内容来自论文无忧网 www.paper51.com 3.软件招聘表: http://www.paper51.com http://www.paper51.com 4.网页求职表: paper51.com
内容来自www.paper51.com 5.网页招聘表: paper51.com
内容来自论文无忧网 www.paper51.com
6.系统管理表: 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com 7.学生信息表: http://www.paper51.com 内容来自论文无忧网 www.paper51.com 8.硬件求职表: copyright paper51.com
内容来自论文无忧网 www.paper51.com 9.硬件招聘表: copyright paper51.com 内容来自论文无忧网 www.paper51.com 3．3 界面设计与代码设计 http://www.paper51.com 1.登陆界面设计: paper51.com
http://www.paper51.com 登陆界面代码设计: paper51.com Private Sub cmdcancel_Click() copyright paper51.com conn.Close paper51.com Set conn = Nothing http://www.paper51.com End http://www.paper51.com
End Sub paper51.com Private Sub cmdok_Click() paper51.com Dim sql As String 内容来自www.paper51.com Dim rs_login As New ADODB.Recordset copyright paper51.com
If Trim(txtname.Text) = "" Then '判断输入的用户名是否为空 http://www.paper51.com
MsgBox"没有这个用户", vbOKOnly+ vbExclamation, "" 内容来自www.paper51.com txtname.SetFocus http://www.paper51.com Else paper51.com sql ="select * from 系统管理 where 用户名='"& txtname.Text & "'" http://www.paper51.com
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic 内容来自www.paper51.com If rs_login.EOF= True Then paper51.com MsgBox "没有这个用户",vbOKOnly + vbExclamation,"" 内容来自论文无忧网 www.paper51.com txtname.SetFocus http://www.paper51.com
Else '检验密码是否正确 copyright paper51.com If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then copyright paper51.com
userID = txtname.Text paper51.com username = rs_login.Fields(2) 内容来自论文无忧网 www.paper51.com rs_login.Close http://www.paper51.com Unload Me copyright paper51.com MDIForm1.Show paper51.com
Else 内容来自www.paper51.com MsgBox "密码不正确",vbOKOnly + vbExclamation,"" 内容来自www.paper51.com
txtpwd.SetFocus paper51.com
End If 内容来自论文无忧网 www.paper51.com End If paper51.com End If http://www.paper51.com cnt = cnt + 1 paper51.com
If cnt = 3 Then http://www.paper51.com Unload Me http://www.paper51.com
End If paper51.com End Sub http://www.paper51.com Private Sub Form_Load() http://www.paper51.com Dim connectionstring As String copyright paper51.com connectionstring = "provider=Microsoft.Jet.oledb.4.0;" &_ 内容来自论文无忧网 www.paper51.com "data source= " & App.Path & "\zhongjie.mdb" http://www.paper51.com conn.Open connectionstring http://www.paper51.com
cnt = 0 paper51.com End Sub http://www.paper51.com |