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

)表单的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. РENDIFРthisform.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 РENDDOРthis.Nodes.Add(,0,"性质","按单位性质浏览",1)РSELECT 性质表РGOTO TOP РDO WHILE !EOF()Р this.Nodes.Add("性质",4,"性质"+性质编号,ALLTRIM(性质名称),2,3)Р SKIPРENDDOР (5)节点的Nodeclick事件:РLPARAMETERS node