《函数和表达式操作》由会员分享,可在线阅读,更多相关《函数和表达式操作(33页珍藏版)》请在金锄头文库上搜索。
1、Visual FoxPro 实验指导部分1实验一实验一 变量、函数和表达式操作变量、函数和表达式操作 实验目的与要求实验目的与要求掌握内存变量、数组变量的赋值与显示掌握内存变量、数组变量的赋值与显示掌握常用内部函数的使用及表达式的书写规则掌握常用内部函数的使用及表达式的书写规则 实验内容实验内容一、写出下列命令的执行结果,并写出命令的含义。一、写出下列命令的执行结果,并写出命令的含义。在命令窗口中执行命令在命令窗口中执行命令命令执行结果命令执行结果命令的含义命令的含义c=“Visual FoxPro“? cStore 3 to a1,a2,a3? a2,a3List memory like a
2、?Dimension b(2,2)b(1,2)=“江西上饶江西上饶“b(2,2)=08/22/07? b(1),b(2)Display memory Clear memory ? c,a? _windows( )( )( )( )( )( ) ( )? int(-145.26)? mod(9,5)? mod(-9,5)? mod(9,-5)? mod(-9,-5)? sqrt(16)? exp(1)? round(282.467,1)? 21%4?21/4?43( )( )( )( )( )( )( ) ( )( )( )( )Visual FoxPro 实验指导部分2title=“上饶师范学
3、院上饶师范学院“? len(title)( )? right(title,4)? substr(title,7,4)? str(12345.789,8,2)? stuff(title,9,4,“大学大学“)? “江西江西 “+“南昌南昌“? “江西江西 “-“南昌南昌“( )( )( )( )( )( )s=“StrName“StrName=张三张三? &sm=123? 456+&m? “班长班长“$“副班长副班长“set exact on x=title=left(title,2)? x? “AB“Ab“? ababc( )( )( )( )( )( )set date to ymd? da
4、te()set date to American? date()? 2007-10-01? year(date()? date()-1988-06-01? 1988-06-01date()a= dtoc(1988-06-01)? ab=ctod(“11/25/07“)?b( )( )( )( )( )( )( )( )( )( )Visual FoxPro 实验指导部分3? iif(len(space(3)2,1,-1)a=123b=234? .not. a$abc and a=1970 to rs? “1970 年以后出生的已婚职工人数:年以后出生的已婚职工人数:“, rs2、计算所有职工的
5、基本工资合计值、计算所有职工的基本工资合计值sum jbgz to hj 结果:结果: 3、计算助教的平均基本工资、计算助教的平均基本工资average jbgz for zc=助教助教 to pj 结果:结果: 4、计算讲师的人数、讲师的最高、最低和平均基本工资,统计结果存入数组、计算讲师的人数、讲师的最高、最低和平均基本工资,统计结果存入数组 A 中中calculate count(), max(jbgz), min(jbgz), avg(jbgz) for zc=讲师讲师 to array A结果:结果: Visual FoxPro 实验指导部分115、按职称汇总未婚职工的基本工资,结果
6、存入表、按职称汇总未婚职工的基本工资,结果存入表 hz.dbfindex on zc tag zc total on zc for !hf to hz结果:结果: 成绩成绩 日期日期 签名签名 Visual FoxPro 实验指导部分12实验五实验五 多表操作与数据库多表操作与数据库 实验目的与要求实验目的与要求掌握工作区操作和多表操作的方法掌握工作区操作和多表操作的方法掌握表的数据库设计器使用和数据库操作的相关命令掌握表的数据库设计器使用和数据库操作的相关命令 实验内容实验内容在你的学号文件夹下建立工资表在你的学号文件夹下建立工资表 gzb.dbf、部门代码表、部门代码表 bmdm.dbf
7、和增资表和增资表 zzb.dbf 三个表或从网三个表或从网 上直接下载到你的学号文件夹中(各表的表结构和表记录见附上直接下载到你的学号文件夹中(各表的表结构和表记录见附、页)页)一、多表操作一、多表操作1、列出职工的编号、姓名、职称、水电、保险、所在部门名称等信息、列出职工的编号、姓名、职称、水电、保险、所在部门名称等信息select 1use gzbindex on bh tag bhselect 2use bmdmindex on dm tag dmselect 3use rsbset relation to bh into A, dm into bmdmlist bh, xm, zc,
8、A.sd, A-bx, bmdm.bmmcclose all二、数据库操作二、数据库操作1、在你的学号文件夹下新建一个数据库文件、在你的学号文件夹下新建一个数据库文件 glk.dbc,将人事表,将人事表 rsb.dbf、工资表、工资表 gzb.dbf、部门代、部门代 码表码表 bmdm.dbf 和增资表和增资表 zzb.dbf 四个表添加到库中四个表添加到库中打开打开“数据库设计器数据库设计器”窗口:文件窗口:文件/新建,选择新建,选择“数据库数据库” ,单击,单击“新建文件新建文件” ,在,在“创建创建”对对 话框中输入数据库名,话框中输入数据库名, “保存保存” (也可在命令窗口中输入命令
9、:(也可在命令窗口中输入命令: ) 。在数据。在数据 库设计器工具栏上单击库设计器工具栏上单击“添加表添加表”对人事表对人事表 rsb.dbf 完成完成 2 25 5 题设置:题设置:2、设置基本工资字段数值以千分位格式显示,标题为、设置基本工资字段数值以千分位格式显示,标题为“职工基本工资职工基本工资”在在“表设计器表设计器”窗口(如何打开?)的窗口(如何打开?)的“字段字段”选项卡,选择选项卡,选择“基本工资基本工资”字段,在字段,在“显示显示” 区的区的“输入掩码输入掩码”中输入中输入 9,999.00,在,在“标题标题”中输入中输入“职工基本工资职工基本工资” 。3、设置性别字段的有效
10、性规则为:性别、设置性别字段的有效性规则为:性别=“男男“ .or. 性别性别=女女,出错提示信息为,出错提示信息为“性别只能为男性别只能为男 或女或女” ,默认值为,默认值为“男男”在在“表设计器表设计器”窗口的窗口的“字段字段”选项卡,选择选项卡,选择“性别性别”字段,在字段,在“字段有效性字段有效性”区的区的“规则规则” 中输入:中输入:xb=“男男“ .or. xb=女女,在,在“信息信息”框中输入框中输入“输入错误,性别只能为男或女输入错误,性别只能为男或女” ,在,在“默默Visual FoxPro 实验指导部分13认值认值”中输入中输入“男男” 。4、设置记录级规则,要求为:职称
11、为教授的职工的最低基本工资是、设置记录级规则,要求为:职称为教授的职工的最低基本工资是 1650 元,其他职称的职工的基元,其他职称的职工的基 本工资范围为本工资范围为 550 030003000选择选择“表设计器表设计器”窗口的窗口的“表表”选项卡,在选项卡,在“记录有效性记录有效性”区的区的“规则规则”中输入:中输入:zc=教授教授 .and. jbgz=1650 .or. zc#“教授教授“ .and. (jbgz=550 .and. jbgzbt=aa=bb=t endif ? a,b set talk on retu4、用整数、用整数 17 依次表示星期一到星期日,从键盘输入一个整数
12、,在屏幕上输出对应整数的英文星依次表示星期一到星期日,从键盘输入一个整数,在屏幕上输出对应整数的英文星期表示:期表示:Mon,Tue,Wed,Thu,Fri,Sat,Sun。如果输入的整数在。如果输入的整数在 17 之外,则显示之外,则显示“输入数据错误输入数据错误” 。 编程实现,并以编程实现,并以 p14.prg 为文件名保存。为文件名保存。input “请输入一个整数请输入一个整数(17)“ to ndo casecase n=1? “Mon“case n=2? “Tue“case n=3?wedcase n=4? case ? Rricase ?Satcase n=7?Sun?输入数据错误输入数据错误 endcase retu成绩成绩 日期日期