新Visual FoxPro程序设计项目教程 教学课件 李林孖 第8章.pptVIP

知识拓展 在进行一些通用性较强的应用程序设计时，通常让用户通过GetFile()函数来选择数据表，而应用宏替换命令打开一些长文件名目录下的表时，会出现错误，发现Visual FoxPro并不支持长文件名。在具体应用过程中，可以使用JUSTEXT()和JUSTSTEM()函数来实现，下面分别介绍这两个函数的用法： 项目7——设计学生信息管理模块 任务2——创建学生退学管理模块 语法 用途 返回值 说明 举例 JUSTEXT(cpath) 从一个完整的路径加文件名中提取出文件的扩展名 字符型 Cpath指定一个完整的路径；JUSTEXT()函数返回其中文件的扩展名 JUSTEXT(D:\VFP\stud.dbf) 结果：dbf JUSTSTEM(cFileName) 从一个完整的路径加文件名中提取出文件的根名（不含扩展名的文件名） 字符型 cFileName指定一个完整的路径；JUSTEXT()函数返回其中的根名（不含扩展名的文件名） JUSTSTEM(D:\VFP\stud.dbf) 结果：stud 触类旁通 在编写一些财务软件时，往往要进行票据打印，需要将数字转换为汉字大写。只要将数字进行大写转换后，填写到适当位置即可，其参考代码如下： PARAMETERS nAmount,IsDW nDZS=STRTRAN(ALLTRIM(STR(nAmount,18,2)),.,) 把小数点去掉 cHZDX=零壹贰叁肆伍陆柒捌玖 cDW=分角元拾佰仟万拾佰仟亿拾佰仟万拾佰仟亿 cRMBDX= nCd=LEN(nDZS) FOR i=1 TO LEN(nDZS) cNumbers=SUBSTRC(cHZDX,INT(VAL(SUBSTR(nDZS,i,1))+1),1) IF IsDW=1 如果要单位 cDWs=SUBSTRC(cDW,nCd,1) ELSE cDWs=SPACE(0) 不要单位的情况下 ENDIF cRMBDX=cRMBDX+cNumbers+cDWS nCd=nCd-1 ENDFOR FOR i=LEN(nDZS)+1 TO 6 cRMBDX=SPACE(2)+cRMBDX ENDFOR RETURN cRMBDX 将以上代码保存为NumToUppHz.prg。 项目7——设计学生信息管理模块 任务2——创建学生退学管理模块 实战强化 实战强化 N 项目7——设计学生信息管理模块 任务2——创建学生退学管理模块 实战强化 1.创建“职工工资管理系统”的调整工资模块，根据职工的不同职称进行工资调整，其具体调整数值自定。 2.职工工作由一个部门调动到另一个部门工作，需要创建“职工工资管理系统”的职工工作部门调整模块。 3.职工工作调动，不再该单位工作，需要创建“职工工资管理系统”的删除职工信息模块。 项目7——设计学生信息管理模块 任务2——创建学生退学管理模块 Company Logo 在线教务辅导网： 教材其余课件及动画素材请查阅在线教务辅导网 QQ:349134187 或者直接输入下面地址： ---Visual FoxPro程序设计项目教程 项目7——设计学生信息管理模块 项目7——设计学生信息管理模块 【职业能力目标】 1）能够使用相关控件及语言结构建立转换专业管理表单 2）能够使用相关控件及语言结构建立退学管理表单 3）能够综合运用控件的不同属性设计并调试表单 －Visual FoxPro程序设计项目教程 项目7——设计学生信息管理模块 目录 任务1——创建学生转换专业管理模块 1 任务2——创建学生退学管理模块 2 －Visual FoxPro程序设计项目教程 项目7——设计学生信息管理模块 实战强化 N 项目7——设计学生信息管理模块 任务1——创建学生转换专业管理模块 1 项目7——设计学生信息管理模块 任务1——创建学生转换专业管理模块 任务展示讲解流程图 知识拓展 任务实施 任务分析 任务情境 触类旁通 项目7——设计学生信息管理模块 任务1——创建学生转换专业管理模块 任务情境 通常情况下，学生到学校报到的时候，所的专业就已经是固定不变的。由于一些特殊原因，个别学生入校学习之后，就有变换所学专业的情况发生。这种情况是不多见的，但作为学生信息管理系统，必须将问题考虑充分全面，因此，同样要设计对学生转换专业进行管理的表单。 项目7——设计学生信息管理模块 任务1——创建学生转换专业管理模块 任务分析 首先要设计一个查找转换专业学生的表单，通过输入学生的姓名，在学生基本信息表中进行查找。如果找到，则调用转换专业管理