《Visual FoxPro 实用教程(第2版)(十一五国家规划)第03章 程序设计基础》由会员分享，可在线阅读，更多相关《Visual FoxPro 实用教程(第2版)(十一五国家规划)第03章 程序设计基础（49页珍藏版）》请在金锄头文库上搜索。
1、第3章程序设计基础 3 1数据类型3 2操作符和表达式3 3流程控制3 4过程和自定义函数3 5变量的作用范围3 6数据库的存储过程和触发器 3 1数据类型 VFP中 存储数据有下列方式 1 表的记录 表打开后 通过引用字段名就可得到对应该字段当前记录的内容 值 通过交互方式和操作表的命令可修改字段在记录中的内容 2 对象 3 常量 变量和数组 在程序设计时经常要用这些数据元素存储数据 这些记录 对象 常量 变量和数组称为存储数据的容器 3 1 1常量 常量是一个数据项 该数据项在程序运行过程中保持不变 一般常量一般常量就是直接描述的常量 下列常量都是一般常量 数值型常量 25 128 43
2、0 字符型常量 01002 王红 128 43 表示空串 日期型常量 2000 08 19 CTOD 06 18 99 表示空日期 字符串表示日期常量时需用CTOD 函数进行转换 字符串表示日期的格式与当前系统默认的日期格式一致 当前系统默认的日期格式可通过SETDATE TO 命令进行设置 逻辑型 真为 T Y 假为 F N 2 符号常量符号常量就是在程序中为一个符号先定义一个值 程序中凡使用该值的地方就写上该符号常量 编译该程序时 编译程序将程序出现该符号常量中的地方用定义的值直接代替 符号常量又称编译常量 使用符号常量的好处是当值需要改变时只需改变符号常量定义的值即可 注意 程序中不能对
3、符号常量重新赋值 符号常量不是变量 符号常量定义 DEFINE符号常量名值例如 DEFINEPI3 14159 3 1 2变量 1 变量赋值变量赋值的语句有下列两个 格式 变量名 值STORE值TO变量名表有些命令对变量不需事先声明就可直接赋值 赋值的同时该变量就被创建 变量类型取决于赋予的值的类型 例Ex VFPStore 变量直接赋值 SETTALKOFFUSERY 工资情况SUM技能工资 岗位工资 浮动工资 1 2TOJN GWFDFOR编号 01 JN GWFDUSE运行后 结果自动产生变量JN和GWFD 并存放技能工资和 岗位工资 浮动工资 1 2累加值 3 1 2变量 2 变量的引
4、用在程序中变量可直接用变量名引用其值 如果当前打开的表中有与变量同名的字段名 这时用M 变量名引用该变量 而字段名可直接引用 例Ex Muse 变量的引用 USE基本情况编号 04012 给内存变量 编号 赋值 给字段名为 编号 赋值使用REPLACE或UPDATE命令 编号 显示1号记录编号字段的内容 基本情况 编号 显示1号记录编号字段的内容 M 编号 显示04012下面列出字段值的引用和对象属性的引用方法 变量的引用 M 内存变量名字段值的引用 数据库名 表名 字段名对象属性的引用 对象名 属性名把这些引用统一起来 都可以认为是对象引用 可把M和表都看成对象 例如 DEFINEPI3 1
5、4159S PI 8 8THISFORM TEXT1 VALUE S 3 1 2变量 3 显示变量格式 DISPLAYMEMORY LIKE文件名框架 NOCONSOLE TOPRINTER PROMPT TOFILE文件名 格式 LISTMEMORY LIKE变量名框架 NOCONSOLE TOFILE文件名 可用LIKE变量名框架限制显示的变量名 框架可用 和 进行描述 TOPRINTER 显示记录送打印机打印 带PROMPT项 打印前打开打印对话框 用户可在该对话框中对打印机进行设置 TOFILE文件名 显示记录送到指定的文件中保存 4 变量的保存和恢复 1 保存变量格式 SAVETO文
6、件名 MEMO备注字段名 ALLLIKE变量名框架 ALLEXCEPT变量名框架 该命令将当前内存变量保存到文件或备注字段中 ALLLIKE变量名框架 指定保存的变量范围 可使用 和 描述框架 ALLEXCEPT指定不保存的变量范围 2 恢复变量格式 RESTOREFROM文件名 MEMO备注字段名 ADDITIVE 从保存变量的文件或备注字段中恢复变量到内存中 不覆盖当前已有内存变量 3 1 2变量 5 内存变量的释放格式 RELEASE变量名表 ALL LIKE变量名框架 EXCEPT变量名框架 例Ex Release 内存变量的释放 OLDDate CTOD 06 18 99 NAME1
7、 肖文红 GZ1 1633NAME2 朱平 GZ2 1834NAME3 杨华 GZ3 1183DISPLAYMEMORY 显示所有内存变量SAVETOMFILEDISPLAYLIKENAME 显示所有NAME打头的内存变量RELEASEALLEXCEPTGZ DISPLAYMEMORY 显示所有内存变量CLEARMEMORY 清除所有内存变量RESTOREFROMMFILEDISPLAYMEMORY 3 1 2变量 6 变量和表 1 表字段到内存变量格式 SCATTER FIELDS字段名表 LIKE字段名描述框架 EXCEPT字段名描述框架 MEMO TO数组名 TO数组名BLANK MEM
8、VAR MEMVARBLANK NAME对象名 BLANK 说明 将当前表的当前记录中FILEDS指定的字段的值放到数组 内存变量或对象中 其中 内存变量的名字与字段名相同 选对象项 对象生成与字段名同名的属性 字段的值放入相应的属性中 选MEMO 则包含备注型字段 例Ex Scatter 表字段到内存变量 USE工资情况GO3SCATTERMEMVAR M 其他工资 工资情况 其他工资 值不同SCATTERNAMEGZ GZ 其他工资 工资情况 其他工资 值不同USEDISPLAYMEMORY 3 1 2变量 2 内存变量到表字段格式 GATHERFROM数组名 MEMVAR NAME对象名
9、 FIELDS字段名表 LIKE字段名描述框架 EXCEPT字段名描述框架 MEMO 该命令用数组 内存变量或对象的值更新当前表的当前记录 例Ex Gather 内存变量到表字段 USE工资情况GO3M 其他工资 120 M 其他工资 工资情况 其他工资 值不同GATHERMEMVAR M 其他工资 工资情况 其他工资 值相同USE 3 1 3数组 1 数组的定义数组就是变量名相同而下标不同的一组变量 数组用下列语句定 格式 DIMENSION数组名 下标最大值表 例如 DEMINSIONNAME 100 CJ 5 10 注意 由数据库操作命令存放结果的数组系统会自动建立 2 表数据传送到数组
10、数组与表之间 变量与表之间都可交换数据 通过数组不仅传送的数据多 速度快 而且还具有自动定位 使用简单方便 数组与表之间的数据传送分为表数据到数组和数组数据到表两个方向 先介绍表数据传送到数组 格式 COPYTOARRAY FIELDS WHILE FOR NOOPTIMIZE 将当前工作区中打开的表当前指针开始的若干记录的指定字段内容复制到指定数组中 3 1 3数组 3 数组内容传送到表格式1 APPENDFROMARRAY FROM FIELDS 将数组中的内容加到当前表中 不包括记忆型和通用型字段 格式2 INSERTINTOFROMARRAY MEMVAR将数组或一组与表字段同名的内存
11、变量中的内容插入或追加到指定表中 例Ex ACopy 设计程序 复制表中最后一条记录后再修改 USE工资情况GOBOTTOMCOPYTOARRAYTARRNEXT1APPENDFROMARRAYTARR 表中不能有不许有重复记录的索引EDITUSEDISPLAYMEMORYLIKETARR 3 1 3数组 4 操作数组的函数使用数组的函数很多 这里仅列出常用的操作数组的函数 1 数组拷贝格式 ACOPY 2 数组删除格式 ADEL 2 3 文件名到数组格式 ADIR 该函数能得到指定目录中文件名框架的文件的情况 返回的数组中的内容如表3 1所示 属性描述的功能如表3 2所示 例如 ADIR A
12、A D RY MIS DBF AD AA 1 1 AA 1 2 AA 1 3 AA 1 4 AA 1 5 AA 2 1 AA 2 2 AA 2 3 AA 2 4 AA 2 5 AA 3 1 AA 3 2 AA 3 3 AA 3 4 AA 3 5 3 1 3数组 3 1 3数组 4 得到元素序号格式 AELEMENT 5 表结构到数组格式 AFIELDS 6 数组插入格式 AINS 2 7 得到数组大小格式 ALEN 8 数组定位格式 ASCAN 9 数组排序格式 ASORT 10 由序号得到下标格式 ASUBSCRIPT 3 1 3数组 例Ex Array 数组函数应用 DIMENSIONAA
13、 5 AA 1 2AA 2 4AA 3 1AA 4 3AA 5 5 AA 1 AA 2 AA 3 AA 4 AA 5 显示24135 ASCAN AA 1 显示3 ASORT AA ASCAN AA 1 显示1 AA 1 AA 2 AA 3 AA 4 AA 5 显示12345 ADEL AA 1 ALEN AA 显示4 AA 1 AA 2 AA 3 AA 4 AA 5 显示2345 F 3 2 1操作符 数值操作符数值操作符用于进行数值运算 优先级从高到低为 号 例如 12 4 3 56 2 字符操作符字符操作符用于进行字符运算 优先级从高到低为 例如 职称 DTOC 出生时间 王 姓名 3
14、日期操作符日期操作符用于进行日期运算 日期操作符没有优先级 例如 DATE 出生时间 1 DATETIME 2000 10 1 12 00PM 3 2 1操作符 4 关系操作符关系操作符用于进行关系运算 关系操作符没有优先级 例如 工资 800 编号 5 逻辑操作符逻辑操作符用于进行逻辑运算 优先级从高到低为 NOT AND OR 例如 职称 工程师 AND DATE 出生时间 35各操作符之间优先级如下 数值操作符 字符操作符 日期操作符 关系操作符 操作符优先级 在同一表达式中 优先级相同的运算符 则按从左到右的次序进行运算 括号 可以改变运算的优先级 运算时总是先算括号里面的 注意 括号
15、必须成对出现 3 2 2常用函数 1 数值函数lLEN c 得到字符串c的长度 字符数 例如 LEN 01002 5USE基本情况LEN 姓名 职称 14lINT n 取数值n的整数部分 例如 INT 680 34 680lRECNO 得到当前记录号 例如 USE基本情况 RECNO 值为1SKIP RECNO 值为2SQRT n 求n的算术平方根 2 字符函数lLEFT c n 取字符串c左边n个字符 例如 LEFT 王红 2 王 lRIGHT c n 取字符串c右边n个字符 lSUBSTR c n1 n2 取字符串c第n1个字符开始的n2个字符 lTRIM c RTRIM c LTRIM
16、c ALLTRIM c 去字符串c后面 后面 左 左右的空格字符 lEMPTY c 判字符串c是否为空 3 2 2常用函数 3 日期函数lDATE 得到当前日期 lTIME 得到当前时间字符串 lDATETIME 得到当前日期时间 lYEAR 得到当前年的数值 lMONTH 得到当前月的数值 lDAY 得到当前日的数值 4 数据类型转换函数lSTR n n1 n2 将数值转换为字符串 n1为总长度 n2为小数位 例如 STR 1002 1002 STR 编号 4 0 1002 lVAL s 将数值字符串s转换为数值 例如 VAL 01004 1004 00USE基本情况VAL 编号 1002lDTOC d 将日期d转换为日期字符串 lCTOD c 将日期字符串c转换为日期 lTTOC t 将时间t转换为时间字符串 lCTOT C 将时间字符串c转换为时间 lCHR n 得到n的ASCII码字符 lASC c 得到 字符的ASCII码 5 表操作函数lEOF 判断是否超出表的末尾 lBOF 判断是否超出表的首行 lRECCOUNT 得到表的记录数 lFCOUNT 得到表的字段数 6 其他
