七、内部调动处理表单NBDDGS课件.ppt

人员内部调动处理表单 其他文本框属性 组合框“新部门” 属性： ControlSource---gzb.部门 Name---新部门 RowSource---bmdmk.部门名 RowSourceType--- 6-字段 Style---2-下拉列表框 TabIndex---0 FORM 1 的 LOAD事件 PUBLIC MYF,MCURREC,BH0,BH1 SELECT 1 USE GZB INDEX GZBB,GZBP SCAN IF 月份 !=0 MYF=月份 EXIT ENDIF ENDSCAN SELECT 2 USE BMDMK INDEX BMDMK MBHPY=SPACE(5) 组合框“新部门” Interactive Change Event过程 SET EXACT OFF SET SAFE OFF BHO=LEFT(编号,2) BH1=编号 DO WHILE .T. SKIP IF 编号=BH1 SKIP ENDIF IF EOF().OR.LEFT(编号,2)!=BH0 EXIT ENDIF 组合框“新部门” Interactive Change Event过程 AA=VAL(RIGHT(编号,3))-1 IF AA=9 YBH=00+ALLTRIM(STR(AA)) ELSE IF AA=99 YBH=0+ALLTRIM(STR(AA)) ELSE YBH=ALLTRIM(STR(AA)) ENDIF ENDIF REPLACE 编号 WITH BH0+YBH ENDDO 组合框“新部门” Interactive Change Event过程 SELECT 1 SET INDEX TO GZBB,GZBP MBM1=B-部门代码 IF MBM1=9 MBMDM=0+LTRIM(STR(MBM1)) ELSE MBMDM=LTRIM(STR(MBM1)) ENDIF SEEK MBMDM 组合框“新部门” Interactive Change Event过程 DO WHILE .T. IF EOF() EXIT ENDIF BH00=SUBSTR(编号,1,2) DO WHILE .T. SKIP IF SUBSTR(编号,1,2)#BH00 EXIT ENDIF ENDDO 组合框“新部门” Interactive Change Event过程 SKIP -1 EXIT ENDDO AA=VAL(SUBSTR(编号,3,3))+1 IF AA=9 YBH=00+ALLTRIM(STR(AA)) ELSE IF AA=99 YBH=0+ALLTRIM(STR(AA)) ELSE YBH=ALLTRIM(STR(AA)) ENDIF ENDIF 组合框“新部门” Interactive Change Event过程 YBH=MBMDM+YBH GOTO MCURREC REPLACE 编号 WITH YBH REPLACE 部门 WITH B-部门名 THISFORM.MXBH.REFRESH() B-* 表单名称：NBDDGS。SCX 数据环境：1。GZB。DBF 2。BMDMK。DBF 属性设置： 1。标签 2。文本框 YF CONTORLSOURCE：MYF NAME:YF 3。文本框 部门 CONTORLSOURCE：GZB。部门 葫裁祥糊夜浦拂洽憎眉姿夯这随龙割塔咏铀墅昏散功拿巍瞥糖码穗哩逞气七、内部调动处理表单NBDDGS课件七、内部调动处理表单NBDDGS课件 B-* 文本框 编号 部门名 姓名 拼音字头 性别 基本工资 CONTROL SOURCE OBH GZB.部门名 GZB.姓名 GZB.拼音字头 GZB.性别 GZB.基本工资 文本框 工资津贴 岗位 职务津贴 MXBH CONTROL SOURCE GZB.工资津贴 GZB.岗位 GZB.职务津贴 GZB .编号 卞硬苯堤河岸迅豺肪灼浚春浓醛白诣镐窒毒继药毡慷质椭娱怒泞融墅衰玲七、内部调动处理表单NBDDGS课件七、内部调动处理表单NBDDGS课件 计户锑甚畏哈岩糜至娄巍狼峦挫曹盆矫魔唤惧枚寡褒律棺绝诗媒最确丘循七、内部调动处理表单NBDDGS课件七、内部调动处理表单NBDDGS课件 B-* 4。命令按钮 NEXT CLICK 事件 IF NOT EOF() SKIP MCURREC=RECNO（） ENDIF MBHPY=SPACE(5) THISFORM.REFR