第7章结构化程序的设计.ppt

第7章 结构化程序设计; VFP两种工作方式 交互工作方式、程序工作方式 程序 是为了完成某项指定的任务而需执行的命令序列。 程序文件 命令序列以一定的结构有序地编排在一起，并以文件的形式存储在磁盘上。 VFP的程序设计方法 面向过程的程序设计、面向对象的程序设计 ; 7.1.1 程序文件的建立;程序文件的建立;程序的注释是非执行部分，格式有三种： NOTE <注释内容> * <注释内容> [<语句>] && <注释内容>;************************************* * 程序：职工档案管理系统 * * 作者 ：高 路 * * 日期：2000年 5月 * * All right reserved * ************************************* Note 设置系统运行环境 Set talk off &&关闭人机对话 Set default to d:\kk &&默认工作路径 Set date to ansi &&指定日期格式;格式一：RETURN [MASTER] 程序结尾返回 格式二：CANCEL 强制停止程序运行 格式三：QUIT 退出VFP;　　往事随风如尘埃洒落在空间的日志里，你的影子无处不在，凄迷的文字诉说着你曾经的故事，不管以后和现在是怎样的难受，爱你的心事永远这样轻盈无体态。　　你在寂静夜里印记了某个清晨某个人的过往，桔黄色的云里藏了你所有的清冷，天上的星星在布满薄薄尘土的宇空里叹息，你爱上的只是他笑起来的迷幻。　　你在他走之后还一直迷失在他给你的梦幻，你爱上的只是他瞳孔里的太阳，其实并不实在。我看着你在因他心伤而心伤，而你却不知道我在因你的心疼而心疼。眼泪只准在眼眶里打转，拥抱着你，却听到自己的心在因为你而碎了。我爱上的人心里还有另一个人！！！　　眼泪落在过去，感情无法飘向未来，春去夏又来，你的心里还是有一个他，虽然他伤害了你，还背叛了你，而你却甘愿为他落泪甚至想放弃生命。你的眼眸一抬全是伤，有对我的愧疚还有对他的忏悔。你愿意彻底与他断绝关系，可是他的一个电话或是一条信息，你还是失魂落魄。　　有时我在想做为男人是不是太无能让爱有空隙:身边的女人爱上了另一个男人。不忍责备的永远是她的善良，不能???受的总是她在心里的背叛。感情总有两种遗憾，一种是相爱了无法相守，一种是相守了却无法再爱得单纯。　　她忧郁的眉毛总是在打结; 例2 编写一个程序，用于在tsgl数据库中显示某个学生的借书情况 * (1)从屏幕上输入姓名给xm * (2)把查找结果放到一个视图中 * (3)再显示该视图的内容 SET SAFETY OFF &&视图覆盖时不予提示 CLEAR &&清屏 CLOSE ALL &&关闭所的文件 OPEN DATABASE tsgl;ACCEPT "请输入您要查找的学生姓名:" TO xm CREATE VIEW e7_2 AS; SELECT 姓名,书名,借书日期; FROM student,borrow; WHERE student.姓名=xm; AND student.学号=borrow.学号 USE e7_2 LIST; 格式：INPUT [<提示信息>] TO <内存变量> 与ACCEPT相似，区别为能接受任意类型。输入字符串需要定界符，按回车结束。; 例题 编写一程序，用于计算长方形的面积 CLEAR &&清屏 CLEAR ALL &&清除内存 INPUT "请输入长方形的长：" TO a INPUT "请输入长方形的宽：" TO b ?“此长方形的面积为："+LTRIM(STR(a*b)) RETURN; 例题 编写程序，用WAIT接受用户的回答 USE zgda LOCATE FOR 职称="工程师" DISPLAY 姓名,职称 WAIT "要继续查找吗？(Y/N)" TO jx IF UPPER(jx)="Y" CONTINUE DISPLAY 姓名,职称 ENDIF RETURN;示例：输入三个表达式 INPUT “请输入一个日期：” TO S1 INPUT “请输入一个数值：” TO S2 INPUT “请输入一个