《职业中介信息管理系统》课程设计文档.doc

此文档收集于网络，如有侵权，请联系网站删除职业中介信息管理系统课程设计文档一、需求分析21.引言22.系统功能要求3二.软件设计41.系统的功能模块图：42.数据库设计4三.设计系统的界面51.单位表52.单位表编辑63.岗位表64.岗位发布表65.求职者表76.求职者表编辑77.行业表88.性质表89.专业表9四.系统的编程实现91.单位表92.单位表编辑123.岗位表164.岗位发布表195.求职者表266.求职者表编辑327.行业表378.性质表409.专业表44五.系统的测试运行481.单位表482.单位表编辑483.岗位表494.岗位发布表495.求职者表506.求职者表编辑507.行业表518.性质表519.专业表52六.总结52职业中介信息管理系统一、需求分析1.引言随着经济改革的深入，一方面有下岗人员，一方面又精简机构，还有大量的毕业生，因而我们发现大量的人才市场、职业中介机构不断涌出，其中大部分的职业中介机构是面向本地待业人员。经过调研，我们基于Visual FoxPro 9.0设计开发一套“职业中介信息管理系统”，它能够迎合职业中介机构的需要，尤其是一些管理正规、业务量比较大的大中型职业中介机构。职业中介机构主要是处理大量的岗位信息、求职信息及大量的查询工作，如果采用手工方式，速度之慢可想而知，当信息量达到一定程度，再想进行查询统计之类的工作是非常困难的，直接影响机构的工作效率，当然影响机构的形象和业务发展。用一套使用简单、管理方便的计算机“职业中介信息管理系统”能够完善和优化职业中介管理，提高办事效率和经济效益。用Visual FoxPro 9.0实现“职业中介信息管理系统”可以充分发挥Visual FoxPro 9.0在数据管理方面灵活的特点，能够从大量的数据中实现更多更方便的查询、统计功能，为“供求”双方提供更多的方便。2.系统功能要求 人才（求职）信息管理功能 u 系统应提供人才信息的录入、修改与删除功能u 中介机构有固定的人对求职者提供的信息进行管理 招聘（岗位）信息管理功能u 系统提供岗位信息的录入、修改与删除功能 招聘单位基本信息管理 u 能对招聘单位的信息进行录入、修改与删除 查询、统计、报表预览及打印功能u 应能根据需要对有关数据查询统计、预览及打印 二.软件设计1.系统的功能模块图：2.数据库设计 (1)系统E-R图属于性质岗位行业求职者发布1n1nn应聘单位m1属于专业1n人数(2)数据表三.设计系统的界面1.单位表2.单位表编辑3.岗位表4.岗位发布表5.求职者表6.求职者表编辑7.行业表8.性质表9.专业表四.系统的编程实现1.单位表 代码： (1)表单的init事件：thisform.tablefilter =thisform.setgrid thisform.showbuttons bo1.ListIndex =1thisform.olecontrol1.SetFocus (2)表单的setgrid事件：filterStr=ALLTRIM(thisform.tablefilter )IF LEN(filterStr)=0 THEN SELECT * FROM 用人单位表 INTO CURSOR tmp单位表ELSE SELECT * FROM 用人单位表 WHERE &filterStr INTO CURSOR tmp单位表ENDIF thisform.istableempty =IIF(_tally=0,.t.,.f.)thisform.showbuttons thisform.grd用人单位表.RecordSourceType = 1 thisform.grd用人单位表.RecordSource =tmp单位表thisform.grd用人单位表.column1.Width =60thisform.grd用人单位表.column2.Width =190thisform.grd用人单位表.column3.Width =50thisform.grd用人单位表.column4.Width =50thisform.grd用人单位表.column5.Width =100thisform.grd用人单位表.column6.Width =50thisform.grd用人单位表.column7.Width =110thisform.grd用人单位表.column8.Width =200thisform.grd用人单位表.column9.Width =50thisform.grd用人单位表.column10.Width =200thisform.grd用人单位表.column11.Width =200thisform.grd用人单位表.SetAll(DynamicBackColor,iif(MOD(RECNO(),2)=0,; RGB(255,255,255),RGB(192,192,192),Column) (3)表单的showbuttons事件： thisform.cmdAdd.Enabled = .T. IF thisform.istableempty =.t. THEN thisform.cmdModify.Enabled = .F. thisform.cmdDelete.Enabled = .F. thisform.cmdPrint.Enabled = .F.ELSE thisform.cmdModify.Enabled = .T. thisform.cmdDelete.Enabled = .T. thisform.cmdPrint.Enabled = .T. ENDIFthisform.cmdExit.Enabled = .T. (4)节点的init事件：SET DELETED ON SET EXACT ON &设置字符为精确比较this.ImageList =thisform.olecontrol2 this.hideSelection = .F. this.Nodes.Add(,0,行业,按单位行业浏览,1)this.Nodes(行业).Expanded = .T. SELECT 行业表GOTO TOP DO WHILE !EOF() this.Nodes.Add(行业,4,行业+行业编号,ALLTRIM(行业名称),2,3) SKIP ENDDOthis.Nodes.Add(,0,性质,按单位性质浏览,1)SELECT 性质表GOTO TOP DO WHILE !EOF() this.Nodes.Add(性质,4,性质+性质编号,ALLTRIM(性质名称),2,3) SKIPENDDO (5)节点的Nodeclick事件：LPARAMETERS nodenodekey=node.key & 保存节点关键字IF SUBSTR(nodekey,5)= THEN &根节点 thisform.tablefilter = &清空过滤字符串ELSE thisform.tablefilter =LEFT(nodekey,4)+编号=+RIGHT(nodekey,3)+ &生成过滤条件ENDIFthisform.setgrid &重新生成数据源thisform.Refresh this.SetFocus (5)Combo1的InteractiveChange事件： thisform.edit1.Value =thisform.edit1.SetFocus (6)CmdFind(搜索)的Click事件： tmpStr=ALLTRIM(thisform.edit1.Value )tmpStr=CHRTRAN(tmpStr,CHR(13),)tmpStr=CHRTRAN(tmpStr,CHR(10),)IF LEN(tmpStr)=0 THEN RETURNELSE thisform.tablefilter =ALLTRIM(bo1.Value )+ like % thisform.tablefilter =thisform.tablefilter +tmpStr+%ENDIFthisform.setgrid(7)CmdAdd(增加)的Click事件： SELECT tmp单位表currec=RECNO()DO FORM F:数据库职业中介系统forms单位表编辑 WITH .t.,.f.,thisform.setgrid SELECT tmp单位表currec=IIF(currecRECCOUNT(),RECCOUNT(),currec)IF currec=0 THEN GOTO TOP ELSE GOTO currec ENDIFthisform.grd用人单位表.SetFocus (8)CmdModify(修改)的Click事件： SELECT tmp单位表currec=RECNO()DO FORM F:数据库职业中介系统forms单位表编辑 WITH .f.,.t.,ALLTRIM(单位编号)thisform.setgrid SELECT tmp单位表currec=IIF(currecRECCOUNT(),RECCOUNT(),currec)IF currec=0 THEN GOTO TOP ELSE GOTO currec ENDIFthisform.grd用人单位表.SetFocus (9)CmdDelete(删除)的Click事件：SELECT tmp单位表IF MESSAGEBOX(你真的要删除+ALLTRIM(单位名称)+吗?,32+3,提示)=6 THEN &要删除 bh=单位编号 &保存编号 currec=RECNO() &保存记录号，用于定位 DELETE FROM 用人单位表 WHERE 单位编号=bh &删除真实表 SELECT 用人单位表 PACK &物理删除 thisform.setgrid &重新生成数据 SELECT tmp单位表 IF RECCOUNT()currec THEN currec=RECCOUNT() ENDIF IF currec=0 then GO top ELSE GO currec ENDIF thisform.grd用人单位表.Refresh thisform.olecontrol1.SetFocus ENDIF(10)CmdExit(退出)的Click事件： SET DELETED OFF thisform.Release 2.单位表编辑 代码：(1)表单的Init事件：PARAMETERS addflag,modifyflag,dwbh & 接收参数thisform.addflag =addFlag &保存增加模式标记thisform.modifyflag =modifyFlag &保存修改模式标记thisform.dwbh =dwbh &保存单位编号SET DELETED ON &设置不显示被删除的记录SET EXACT ON &设置精确比较模式SET MULTILOCKS ON &锁定多条记录=CURSORSETPROP(buffering,5,用人单位表) &打开表缓冲SELECT 用人单位表IF thisform.addflag =.t. THEN &增加模式 APPEND BLANK &插入一条空记录ELSE &修改模式 LOCATE FOR 单位编号=thisform.dwbh &定位要修改的记录 IF !FOUND() THEN MESSAGEBOX(数据有误，不能修改,48,警告) thisform.Release ELSE thisform.currentrec =RECNO() &保存当前记录号 性质编号=thisform.txt性质编号.Value & 保存性质编号 行业编号=thisform.txt行业编号.Value &保存行业编号 SELECT 性质表 LOCATE FOR 性质编号 =ALLTRIM(thisform.txt性质编号.Value) &查找相应的单位性质 IF FOUND() THEN bo1.Value =ALLTRIM(thisform.txt性质编号.Value) + - +性质名称 ENDIF SELECT 行业表 LOCATE FOR 行业编号 =ALLTRIM(thisform.txt行业编号.Value) &查找相应的单位企业 IF FOUND() THEN bo2.Value =ALLTRIM(thisform.txt行业编号.Value)+ - +行业名称 ENDIF ENDIF ENDIFthisform.settxtmask &设置对象的输入掩码thisform.showbuttons &按钮状态刷新 (2)表单的QueryUnload事件： IF thisform.addflag =.t. OR thisform.modifyflag =.t. THEN MESSAGEBOX(请先按保存或取消! ,48,警告) NODEFAULT ELSE =CURSORSETPROP(buffering,1,用人单位表) &取消单位表的缓冲ENDIF(2)表单的SetTxtMask事件： thisform.txt单位编号.InputMask =99999999 &8位数字thisform.txt联系电话.InputMask =(#)99999999 &8位数字thisform.txt邮政编码.InputMask =999999 &6位数字thisform.txt工商执照.InputMask =REPLICATE(9,20) &20位数字(3)表单的ShowButtons事件：IF thisform.addflag =.t. OR thisform.modifyflag =.t. THEN thisform.cmdSave.Enabled= .T. thisform.cmdCancel.Enabled= .T. thisform.cmdadd.Enabled= .F. ELSE thisform.cmdSave.Enabled= .F. thisform.cmdCancel.Enabled= .F. thisform.cmdadd.Enabled= .T. ENDIF thisform.cmdexit.Enabled = .T.(4)CmdAdd(增加)的Click事件：thisform.SetAll(readonly,.f.,textbox) &取消文本框只读thisform.txt备注.ReadOnly = .F. &取消编辑框只读thisform.SetAll(Enabled,.t.,combobox) &取消下拉框屏蔽SELECT 用人单位表APPEND BLANK &插入一条空记录bo1.ListIndex =1 &默认为第一个性质bo2.ListIndex =1 &默认为第一个行业SELECT 性质表GOTO TOP thisform.txt性质编号.Value =性质编号SELECT 行业表GOTO TOP thisform.txt行业编号.Value =行业编号thisform.addflag =.t. &设置表单为增加状态thisform.showbuttons &按钮状态刷新thisform.txt单位编号.SetFocus thisform.Refresh(5)CmdSave(保存)的Click事件：bh=ALLTRIM(thisform.txt单位编号.Value )IF LEN(bh)8 THEN MESSAGEBOX(单位编号格式错误或未输入!,48,警告) thisform.txt单位编号.SetFocus RETURNENDIF dw=ALLTRIM(thisform.txt单位名称.Value )IF LEN(dw)0 AND LEN(yzbh)6 THEN MESSAGEBOX(邮政编码格式错误或未输入!,48,警告) thisform.txt邮政编码.SetFocus RETURN ENDIFIF thisform.addflag =.t. THEN &表单为增加模式 SELECT * FROM 用人单位表 WHERE 单位编号=bh INTO CURSOR tmpdbELSE &表单为修改模式 SELECT * FROM 用人单位表 WHERE 单位编号=bh AND RECNO()thisform.currentrec INTO CURSOR tmpdbENDIFIF _tally0 THEN &单位编号重复 MESSAGEBOX(单位编号重复!,48,警告) thisform.txt单位编号.SetFocus RETURNENDIF thisform.txt性质编号.Value =LEFT(bo1.Value,3) &取出单位性质编号thisform.txt行业编号.Value =LEFT(bo2.Value,3) &取出单位行业编号SELECT 用人单位表=TABLEUPDATE(.t.) &保存数据thisform.SetAll(readonly,.t.,textbox) &设置文本框只读thisform.txt备注.ReadOnly= .T. &设置编辑框为只读bo1.Enabled = .F. &屏蔽下拉框bo2.Enabled = .F. &屏蔽下拉框thisform.addflag =.f. &增加标记复位thisform.modifyflag =.f. &修改标记复位thisform.showbuttons &按钮状态刷新thisform.Refresh &表单刷新(6)CmdCancel(取消)的Click事件：SELECT 用人单位表=TABLEREVERT(.f.) &取消保存thisform.SetAll(readonly,.t.,textbox) &设置文本框只读thisform.txt备注.ReadOnly= .T. &设置编辑框为只读thisform.SetAll(Enabled,.f.,combobox) &屏蔽下拉框thisform.SetAll(DisabledForeColor,RGB(0,0,0),combobox)thisform.addflag =.f. &增加标记复位thisform.modifyflag =.f. &修改标记复位thisform.Refresh &表单刷新(7)CmdExit(退出)的Click事件：IF thisform.addflag =.t. OR thisform.modifyflag=.t. THEN MESSAGEBOX(请先保存或取消!,48,警告) RETURNELSE =CURSORSETPROP(Buffering,1,用人单位表) &取消数据表缓冲 thisform.Release ENDIF(8)Combo1的Init事件：SELECT 性质编号+ - +ALLTRIM(性质名称) as 性质 FROM 性质表 INTO CURSOR tmp性质表this.RowSourceType = 6 &指定组合框的数据源类型为字段this.RowSource =alltrim(tmp性质表.性质) &指定组合框的数据源this.ListIndex =1 &默认为第一项3.岗位表 代码：(1)表单的Init事件：SET DELETED ON &设置不显示被删除的记录SET EXACT ON &设置精确比较thisform.setgrid &设置表格属性thisform.addflag = .f. &设置表单为非增加状态thisform.modifyflag =.f. &设置表单为非修改状态thisform.showbuttons &按钮状态刷新(2)表单的Setgrid事件：SELECT * FROM 岗位表 INTO CURSOR tmp岗位表 READWRITE &生成可读写的临时表thisform.isemptytable =IIF(_tally=0,.t.,.f.) &判断数据表是否为空SET MULTILOCKS ON &锁定多条记录=CURSORSETPROP(Buffering,5,tmp岗位表) &打开缓冲thisform.grid1.RecordSourceType = 1 &指定表格的数据源类型为数据表thisform.grid1.RecordSource =tmp岗位表 &指定表格的数据源为tmp岗位表thisform.grid1.column1.Width =thisform.grid1.Width *0.2 &设定第一列宽度thisform.grid1.column2.Width =thisform.grid1.Width *0.735 &设定第二列宽度thisform.grid1.ScrollBars = 2 &设置垂直滚动条thisform.grid1.SetAll(DynamicBackColor,IIF(MOD(RECNO(),2)=0,;RGB(255,255,255),RGB(192,192,192),Column) &交替显示白色和灰色的记录(3)表单的Showbuttons事件：IF thisform.addflag =.f. AND thisform.modifyflag =.f. THEN thisform.cmdAdd.Enabled = .T. IF thisform.isemptytable =.f. THEN &数据表非空 thisform.cmdModify.Enabled = .T. thisform.cmddelete.Enabled = .T. ELSE &数据表空 thisform.cmdmodify.Enabled = .F. thisform.cmdDelete.Enabled = .F. ENDIF thisform.cmdsave.Enabled = .F. thisform.cmdcancel.Enabled = .F. thisform.cmdexit.Enabled = .T. ELSE &表单编辑状态（增加、修改） thisform.cmdadd.Enabled = .F. thisform.cmdmodify.Enabled = .F. thisform.cmddelete.Enabled = .F. thisform.cmdsave.Enabled = .T. thisform.cmdcancel.Enabled = .T. thisform.cmdexit.Enabled = .T. ENDIF(4)CmdAdd(增加)的Click事件：SELECT tmp岗位表 APPEND BLANK &增加一条空白记录thisform.grid1.ReadOnly = .F. &取消表格只读thisform.grid1.AllowCellSelection = .T. &允许表格单元格选择thisform.grid1.column1.InputMask =999 &设置编号的输入掩码thisform.grid1.column1.SelectOnEntry = .F. &设置取消单元格全选thisform.grid1.column2.SelectOnEntry = .F. thisform.grid1.column1.text1.SetFocus &设置编号获得焦点thisform.addflag =.T. &设置表单为增加状态thisform.showbuttons &按钮状态刷新(5)CmdModify(修改)的Click事件：thisform.grid1.ReadOnly = .F. &取消表格只读thisform.grid1.AllowCellSelection = .T. &允许表格单元格选择thisform.grid1.column1.InputMask =999 &设置编号的输入掩码thisform.grid1.column1.SelectOnEntry = .F. &设置取消单元格全选thisform.grid1.column2.SelectOnEntry = .F.thisform.grid1.column1.text1.SetFocus &设置编号获得焦点thisform.modifyflag =.t. &设置表单为修改状态thisform.showbuttons &按钮状态刷新(6)CmdDelete(删除)的Click事件：IF MESSAGEBOX(你确定要删除+ALLTRIM(岗位名称)+岗位吗?,4+32+256,提示)=6 THEN SELECT tmp岗位表 bh=ALLTRIM(岗位编号) &保存岗位编号 currec=RECNO() &保存当前记录号 DELETE &删除临时表的记录 DELETE FROM 岗位表 WHERE 岗位编号=bh &删除岗位表的记录 SELECT 岗位表 PACK &彻底删除 thisform.setgrid &重新设置表格数据源及表格属性 SELECT tmp岗位表 currec=IIF(currecRECCOUNT(),RECCOUNT(),currec) IF currec=0 THEN GOTO TOP ELSE GOTO currec ENDIF thisform.showbuttons &按钮状态刷新 thisform.grid1.Refresh &表格刷新 thisform.grid1.SetFocus ENDIF(7)CmdSave(保存)的Click事件：SELECT tmp岗位表bh=ALLTRIM(岗位编号)mc=ALLTRIM(岗位名称)currec=RECNO() &保存当前记录号IF LEN(bh)3 THEN &判断编号格式，不能少于3位或不能为空 MESSAGEBOX(岗位编号格式错误或为空!,0+48,警告) thisform.grid1.column1.SetFocus RETURN ENDIF IF LEN(mc)=0 THEN &判断名称是否为空 MESSAGEBOX(岗位名称不能为空!,0+48,警告) thisform.grid1.column2.SetFocus RETURN ENDIF IF thisform.addflag=.t. THEN SELECT * FROM 岗位表 WHERE 岗位编号 = bh INTO CURSOR tmpdb &增加记录ELSE SELECT * FROM 岗位表 WHERE 岗位编号=bh AND RECNO()currec INTO CURSOR tmpdb ENDIF IF _tally=1 THEN &判断编号是否重复 MESSAGEBOX(岗位编号重复!,0+48,警告) thisform.grid1.column1.SetFocus RETURN ENDIF SELECT 岗位表IF thisform.addflag=.t. THEN &增加记录 APPEND BLANK &插入一条空记录ELSE GOTO currec &定位到修改的记录ENDIF replace 岗位编号 WITH bh,岗位名称 WITH mc &将数据保到数据表SELECT tmp岗位表= TABLEUPDATE(.t.) &保存数据thisform.isemptytable =IIF(RECCOUNT()=0,.t.,.f.) &判断数据表是否为空thisform.grid1.ReadOnly = .T. &设置表格只读 thisform.grid1.AllowCellSelection = .F. &不允许单元格选择thisform.addflag =.f. &设置表单为非增加状态thisform.modifyflag =.f. &设置表单为非修改状态thisform.showbuttons &按钮状态刷新显示thisform.grid1.SetFocus(8)CmdCancel(取消)的Click事件：SELECT tmp岗位表= TABLEREVERT(.f.)thisform.grid1.ReadOnly = .F. &设置表格只读thisform.grid1.AllowCellSelection = .T. &不允许单元格选择thisform.addflag =.f. &设置表单为非增加状态thisform.modifyflag =.f. &设置表单为非修改状态thisform.showbuttons &按钮状态刷新显示thisform.grid1.SetFocus (7)CmdExit(退出)的Click事件：SET DELETED OFFthisform.Release(8)表格的BeforeRowcolChange事件：IF thisform.addflag =.t. OR thisform.modifyflag =.T. THEN &编辑状态 IF thisform.grid1.RowColChange = 1 OR thisform.grid1.RowColChange = 3 THEN NODEFAULT ENDIF ENDIF4.岗位发布表 代码：(1)表单的Init事件：thisform.SetAll (readonly,.t.,textbox)thisform.SetAll (readonly,.t.,editbox)thisform.SetAll (enable,.f.,combobox)thisform.tablefilter= &清空过滤条件thisform.setgrid &生成表格数据thisform.showbuttons &按钮状态刷新bo1.ListIndex =1 &使下拉列表的为一条thisform.olecontrol1.SetFocus &树形结构获得焦点thisform.grd岗位发布表.AfterRowColChange &连动bo1.Enabled = .F. bo2.Enabled = .F. bo3.Enabled = .F. bo4.Enabled = .F. bo5.Enabled = .F.(2)表单的dwmc事件：PARAMETERS bh *bh(形参：单位编号）SELECT 用人单位表LOCATE FOR ALLTRIM(单位编号)=ALLTRIM(bh) IF FOUND() THEN RETURN (单位名称)ELSE RETURN ENDIF(3)表单的getbh事件：PARAMETERS bhTypeDO CASE CASE bhType=发布编号 bhStr=STR(YEAR(DATE(),4) &年份 bhStr=bhStr+STR(MONTH(DATE(),2) &月份 1 12 bhStr=bhStr+STR(DAY(DATE(),2) &日子 5 30 bhStr=CHRTRAN(bhStr, ,0) &格式处理 SELECT * FROM 岗位发布表 ; WHERE LEFT(发布编号,8)=bhStr ; INTO CURSOR tmpdb bhStr=bhStr+STR(_tally+1),2) bhStr=CHRTRAN(bhStr, ,0) &格式处理 CASE bhType=岗位编号 SELECT * FROM 岗位表 WHERE 岗位名称=ALLTRIM(bo2.Text) ; INTO CURSOR tmpdb &查询岗位编号 IF _tally0 THEN &找到岗位编号 bhStr=tmpdb.岗位编号 ELSE &未找到 bhStr= ENDIF CASE bhType=单位编号 SELECT * FROM 用人单位表 WHERE 单位名称=ALLTRIM(bo1.Text) ; INTO CURSOR tmpdb &查询单位编号 IF _tally0 THEN &找到单位编号 bhStr=tmpdb.单位编号 ELSE &未找到 bhStr= ENDIF ENDCASE RETURN bhStr &返回值(4)表单的getdwinfo事件：PARAMETERS bhSELECT * FROM 用人单位表 a,性质表 b,行业表 c;where a.性质编号=b.性质编号 and a.行业编号=c.行业编号 and a.单位编号=bh;into cursor tmpdbIF _tally=0 THEN tmpStr=ELSE tmpStr=单位名称：+ALLTRIM(单位名称)+CHR(13) &CHR(13)是回车符 tmpStr=tmpStr+单位性质：+ALLTRIM(性质名称)+CHR(13) tmpStr=tmpStr+单位行业：+ALLTRIM(行业名称)+CHR(13) tmpStr=tmpStr+联系电话：+ALLTRIM(联系电话)+CHR(13) tmpStr=tmpStr+ 联系人：+ALLTRIM(联系人)+CHR(13) tmpStr=tmpStr+单位地址：+ALLTRIM(单位地址)+CHR(13) tmpStr=tmpStr+乘车路线：+ALLTRIM(乘车路线) ENDIF RETURN tmpStr &返回值(5)表单的gwmc事件：PARAMETERS bhSELECT 岗位表LOCATE FOR ALLTRIM(岗位编号)=ALLTRIM(bh) IF FOUND() THEN RETURN (岗位名称)ELSE RETURN ENDIF(6)表单的Setgrid事件：filterStr=thisform.tablefilter &取过滤条件fieldStr=登记日期,thisform.dwmc(单位编号)单位名称,thisform.gwmc(岗位编号)岗位名称,需求人数,工资, fieldStr=fieldStr+最低年龄,最高年龄,学历要求,专业要求,fieldStr=fieldStr+婚姻要求,年限要求,地区要求,截止日期,备注,fieldStr=fieldStr+发布编号,单位编号,岗位编号IF LEN(filterStr)=0 THEN &根节点，显示全部 SELECT &fieldStr FROM 岗位发布表 INTO CURSOR tmp发布表ELSE &子节点，显示条件的数据 SELECT &fieldStr FROM 岗位发布表 WHERE &filterStr INTO CURSOR tmp发布表ENDIFIF _tally=0 THEN &数据表为空 thisform.istableempty =.t.ELSE