计算机毕业论文.docx

计算机毕业论文.docx

《计算机毕业论文.docx》由会员分享，可在线阅读，更多相关《计算机毕业论文.docx（13页珍藏版）》请在冰豆网上搜索。

计算机毕业论文

——河北工程技术高等专科学校2005年毕业生论文

毕业论文

沧州市人才市场管理系统

专业：

计算机信息与管理

班级:

06班

姓名:

徐升浩

完成时间:

2005年6月16日

目录

第一章：

引言……………………………………………………………………………………1

1.1开发背景

1.2开发思路

第二章：

用户分析……………………………………………………………………………2

第三章：

设计概述……………………………………………………………………………4

3．1使用主要技术

3．2系统流程分析图

3.3系统分析模块图

3.4开发环境

3.5程序功能模块概述

第四章：

系统设计详述……………………………………………………………………26

4．1用户主界面

4．2招聘单位信息管理模块

4．3招聘岗位信息管理模块

4．4求职人员信息管理模块

4．5查看信息模块

4.6权限设置模块

4.7数据备份模块

4.8系统其他功能模块和界面

4.9系统特点

第五章：

系统改进思想…………………………………………………………………13

5.1系统缺点

5.2改进思想

第六章：

结束语…………………………………………………………………………13

第七章：

参考文献………………………………………………………………………14

第八章：

代码设计………………………………………………………………………17

八．代码设计：

由于本系统的代码设计主要是基础数据的添加、查询、修改、删除及权限设置等操作的代码

所以本人在这里仅给出部分代表性的代码，代码如下：

1：

添加模块：

PrivateSubCommand1_Click（）//此处为招聘单位信息添加的代码

Dimi,j

IfLen（zp_addform.Text1

（1）.Text）=0Then

MsgBox"此项不能为空,请重新输入!

",vbOKOnly,"警告"

zp_addform.Text1

（1）.SetFocus

ExitSub

EndIf

IfLen（zp_addform.Text1

（2）.Text）=0Then

MsgBox"此项不能为空,请重新输入!

",vbOKOnly,"警告"

zp_addform.Text1

（2）.SetFocus

ExitSub

EndIf

IfLen（zp_addform.Text1（3）.Text）=0Then

MsgBox"此项不能为空,请重新输入!

",vbOKOnly,"警告"

zp_addform.Text1

（2）.SetFocus

ExitSub

EndIf

IfLen（zp_addform.Text1（4）.Text）=0Then

MsgBox"此项不能为空,请重新输入!

",vbOKOnly,"警告"

zp_addform.Text1（4）.SetFocus

ExitSub

EndIf

IfLen（zp_addform.Text1（5）.Text）=0Then

MsgBox"此项不能为空,请重新输入!

",vbOKOnly,"警告"

zp_addform.Text1（5）.SetFocus

ExitSub

EndIf

IfLen（zp_addform.Text1（6）.Text）=0Then

MsgBox"此项不能为空,请重新输入!

",vbOKOnly,"警告"

zp_addform.Text1（6）.SetFocus

ExitSub

EndIf

IfLen（zp_addform.Combo1.Text）=0Then

MsgBox"此项不能为空,请重新输入!

",vbOKOnly,"警告"

Combo1.SetFocus

ExitSub

EndIf

zp.AddNew

zp.Fields（0）=zp_addform.Text1（0）.Text

zp.Fields

（1）=zp_addform.Text1

（1）.Text

zp.Fields

（2）=zp_addform.Combo1.Text

zp.Fields（3）=Val（zp_addform.Text1

（2）.Text）

zp.Fields（4）=zp_addform.Text1（3）.Text

zp.Fields（5）=zp_addform.Text1（4）.Text

zp.Fields（6）=zp_addform.Text1（5）.Text

zp.Fields（7）=zp_addform.Text1（6）.Text

zp.Update

Setzpxxform.DataGrid1.DataSource=zp//zp为recordset类对象打开招聘单位信息表

zp_addform.Combo1.Text=""

Fori=0Tozp_addform.Text1.Count-1

zp_addform.Text1（i）.Text=""

Next

Unloadzp_addform

EndSub

2.修改模块代码：

由于本系统采用的是调用Editform统一窗体的修改方式所以仅给出一特例:

PrivateSubEdit_Click（）

Loadxt_editform

Dimi,j

Fori=0ToDataGrid1.Columns.Count-1

Ifi>0Then

Loadxt_editform.Label1（i）'加载标签控件

Loadxt_editform.Text1（i）

xt_editform.Label1（i）.Top=xt_editform.Label1（i）.Height+xt_editform.Label1（i-1）.Top+30

xt_editform.Label1（i）.Visible=True

xt_editform.Text1（i）.Top=xt_editform.Text1（i-1）.Top+xt_editform.Text1（i）.Height+30

xt_editform.Text1（i）.Visible=True

EndIf

xt_editform.Label1（i）.Caption=DataGrid1.Columns（i）.Caption

xt_editform.Text1（i）.Text=jichu.Fields（DataGrid1.Columns（i）.DataField）.Value

Next

xt_editform.Command1.Top=xt_editform.Label1（DataGrid1.Columns.Count-1）.Top+xt_editform.Label1（DataGrid1.Columns.Count-1）.Height+200

xt_editform.Command2.Top=xt_editform.Command1.Top

xt_editform.Height=xt_editform.Command1.Top+xt_editform.Command1.Height+600

xt_editform.Show1

IfLen（Trim（xt_editform.Text1（0）.Text））>0Then'此判断必须加否则点取消键时也执行下面代码

Forj=0ToDataGrid1.Columns.Count-1

SelectCasejichu.Fields（DataGrid1.Columns（j）.DataField）.Type'此循环判断数据类型

Case2To17'数值型

jichu.Fields（DataGrid1.Columns（j）.DataField）.Value=Val（xt_editform.Text1（j）.Text）

Case20To144,146To300'字符型

jichu.Fields（DataGrid1.Columns（j）.DataField）.Value=xt_editform.Text1（j）.Text

Case145'日期型

jichu.Fields（DataGrid1.Columns（j）.DataField）.Valu=CDate（xt_editform.Text1（j）.Text）

EndSelect

Next

jichu.Update

EndIf

Unloadxt_editform

3.查询模块代码：

由于本系统采用的也是统一的查询窗体所以这里给出查询窗体的所有代码：

Dimcxtj（10）AsString,tj_numAsInteger

PrivateSubCombo1_Click（）

Combo4.ListIndex=Combo1.ListIndex

Combo3.SetFocus

EndSub

PrivateSubCombo3_Click（）

Text1.SetFocus

EndSub

PrivateSubCombo3_GotFocus（）

IfLen（Combo1.Text）=0Then

Combo1.SetFocus

EndIf

EndSub

PrivateSubCombo5_Click（）

Combo1.ListIndex=Combo5.ListIndex

EndSub

PrivateSubCommand1_Click（）

Iftj_num>9Then

ret=MsgBox（"条件最大组合数为9",16,"警告"）

ExitSub

EndIf

IfLen（Trim（Text1.Text））=0Then

Text1.SetFocus

Else

tj=Combo1.Text+""+Combo3.Text+""

SelectCaseCombo4.Text

Case"2","3","4","6"

tj=tj+Trim（Text1.Text）

Case"202","200"

tj=tj+"'"+Trim（Text1.Text）+"'"

Case"135"

IfInStr（1,Text1.Text,"-"）>1Then

tj=tj+"#"+Trim（Text1.Text）+"#"

Else

tj=tj+Trim（Text1.Text）

EndIf

EndSelect

tj_num=tj_num+1

cxtj（tj_num）=tj

Text2.Text=""

Fori=1Totj_num

Text2.Text=Text2.Text+cxtj（i）+Chr（13）+Chr（10）

Next

EndIf

EndSub

PrivateSubCommand2_Click（）

IfLen（Text2.Text）=0Then

ret=MsgBox（"未定义查询条件！

",16,"警告"）

ExitSub

EndIf

Fori=1Totj_num

Ifi=1Then

Text3.Text=cxtj（i）

Else

IfOption1.Value=TrueThen

Text3.Text=Text3.Text+"And"+cxtj（i）

Else

Text3.Text=Text3.Text+"Or"+cxtj（i）

EndIf

EndIf

Next

Me.Hide

EndSub

PrivateSubCommand3_Click（）

Text3.Text="0"

Me.Hide

EndSub

PrivateSubCommand4_Click（）

Text3.Text="1"

Me.Hide

EndSub

PrivateSubForm_Load（）

tj_num=0

Combo3.AddItem">"

Combo3.AddItem"<"

Combo3.AddItem">="

Combo3.AddItem"<="

Combo3.AddItem"="

Combo3.AddItem"like"

EndSub

PrivateSubText1_GotFocus（）

IfLen（Combo3.Text）=0Then

Combo3.SetFocus

EndIf

SelectCaseCombo4.Text

Case"2","3","4","6"

Label3.Caption="值（格式为：

XXX.XX）"

Case"135"

Label3.Caption="值（格式为：

YYYY-MM-DD）"

Case"200","202"

Label3.Caption="值（格式为：

ABC）"

EndSelect

EndSub

4.删除模块代码：

PrivateSubDelete_Click（）//招聘单位模块删除代码

Ifjichu.RecordCount=0Then

ret=MsgBox（"没有可删除的记录！

",16,"删除"）

ExitSub

Else

ret=MsgBox（"是否真的删除当前记录？

",17,"删除"）

Ifret=1Then

jichu.Delete

EndIf

EndIf

EndSub

5.权限设置模块代码：

PrivateSubCommand1_Click（）//本代码为权限设置窗体按钮代码。

Dimm,n,j

m=""

IfLen（Combo1.Text）=0Then

Combo1.SetFocus

ExitSub

EndIf

IfOption1（0）Then

m="系统管理员"

EndIf

IfOption2Then

m="招聘管理员"

EndIf

IfOption3Then

m="求职管理员"

EndIf

IfOption4Then

m="人事管理员"

EndIf

IfOption5Then

m="普通用户"

EndIf

Setqx=NewRecordset

qx.Open"select*fromqxszwhereusername='"+Combo1.Text+"'",db,adOpenDynamic,adLockOptimistic

Ifqx.RecordCount=0Then

qx.AddNew

qx.Fields（0）.Value=Combo1.Text

qx.Fields

（1）.Value=m

Forj=2Toqx.Fields.Count-1

qx.Fields（j）="0"

Nextj

Forn=0ToCheck1.Count-1

IfCheck1（n）.Value=1Then

qx.Fields（n+2）="1"

EndIf

Nextn

qx.Update

Else

qx.Fields（0）.Value=Combo1.Text

qx.Fields

（1）.Value=m

Forj=2Toqx.Fields.Count-1

qx.Fields（j）="0"

Nextj

Forn=0ToCheck1.Count-1

IfCheck1（n）.Value=1Then

qx.Fields（n+2）="1"

EndIf

Nextn

qx.Update

EndIf

MsgBox"记录修改完毕!

",vbOKOnly,"恭喜"

EndSub

6.由于对用户的检测和权限的检测均在系统启动时进行所以给出系统SUBMAIN（）代码：

PublicSubmain（）

DimszAsRecordset

Dimmz

Setdb=NewConnection

db.CursorLocation=adUseClient

db.ConnectionTimeout=10

db.Open"Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False;DataSource="&App.Path&"\renshiguanli.mdb"

Setsz=NewRecordset

lp:

StartFrm.Show1

frmLogin.Show1

IfLen（Trim（usename））>0Then

sz.Open"selectdhfromqxszwhereusername='"+usename+"'",db,adOpenDynamic,adLockOptimistic

Ifsz.RecordCount=0Then

MsgBox"此用户权限尚未设置,请先设置其权限再重新登陆!

",vbOKOnly,"警告"

sz.Close

GoTolp

Else

mz=sz.Fields（0）.Value

sz.Close

SelectCasemz

Case"系统管理员"

Mainform.Show

Case"求职管理员"

LoadMainform

Mainform.mnuxitongadd.Visible=False

Mainform.mnuxitongcsh.Visible=False

Mainform.mnuck.Visible=False

Mainform.mnuzpdw.Visible=False

Mainform.mnuzpgw.Visible=False

Mainform.mnursdl.Visible=False

Mainform.mnuqx.Visible=False

Mainform.Show

Case"招聘管理员"

LoadMainform

Mainform.mnuxitongadd.Visible=False

Mainform.mnuxitongcsh.Visible=False

Mainform.mnursdl.Visible=False

Mainform.mnuck.Visible=False

Mainform.mnuqx.Visible=False

Mainform.mnuqzry.Visible=False

Mainform.Show

Case"人事管理员"

LoadMainform

Mainform.mnuxitongadd.Visible=False

Mainform.mnuxitongcsh.Visible=False

Mainform.mnuzpdw.Visible=False

Mainform.mnuzpgw.Visible=False

Mainform.mnuck.Visible=False

Mainform.mnuqzry.Visible=False

Mainform.mnuqx.Visible=False

Mainform.Show

Case"普通用户"

LoadMainform

Mainform.mnuxitongadd.Visible=False

Mainform.mnuxitongcsh.Visible=False

Mainform.mnuzpdw.Visible=False

Mainform.mnuzpgw.Visible=False

Mainform.mnursdl.Visible=False

Mainform.mnuqx.Visible=False

Mainform.mnuqzry.Visible=False

Mainform.Show

EndSelect

EndIf

Else

Cancel=1

EndIf

EndSub