留言查询

首页前一页后一页末页 [431] [432] [433] [434] [435]	本留言簿共有493条记录, 现在时间2025-5-24 11:59:49,计算机地址：192.168.9.44 日期查询：	现在是第86页一共有99页
Books库中表及结构信息	环境：一键安装　库表：Mysql.sql　 xx3.sql　xx4.sql　页面：Myphp.php

序号

留言内容

435

D:2020-1-5
T:7:40:00
IP:192.168.3.40

作者：
张顺海

2020.1.6 星期一

期末考试：

试卷讲评：

一、试题内容

二、重点内容分析

434

D:2020-1-2
T:8:17:00
IP:192.168.3.41

作者：
张顺海

2020.1.2 星期四

期末复习：语句处理逻辑

复习内容：程序填空解析

复习目的：根据上下文环境，判断填空内容

复习过程：

一、复习安排：

1.4-1.5期末考试，考试之前还有四节课，复习计划是两节引领复习，两节自由复习。

二、复习内容：

1.上节课，我们已经复习了变量的作用域，掌握了变量的不同的类型及属性。

2.这节课，我们复习一下程序的配对语法，尝试处理程序填空题。

程序结构对称

IF。。。。EndIF

do case......Endcase

命令配合

Locate 、 found（）| not eof（）、continue

seek | find 、skip

do whil .t. ......if exit endif enddo

scan ......EndScan

函数表达式

sum()、max()、min()、avg()、count()

433

D:2019-12-25
T:13:24:00
IP:192.168.3.40

作者：
张顺海

2019.12.25 星期三

上机内容：双重循环控制与变量的作用域

上机目的：掌握九九表的打印、变量的类型

上机重点：变量的作用域

上机难点：双重循环的内外循环变量的利用

上机过程：

一、一、中英文打字各十分钟

二、按要求完成以下程序段：

1.根据上节理论课的内容，完成如下程序段

程序代码：

CLEAR

FOR j=1 to 9

FOR i=1 to j

?? STR(i,1)+"*"+STR(j,1)+"="+STR(j*i,2)+SPACE(2)

ENDFOR

思考一下如下的程序结果应该改哪里

2.变量的作用域

全局变量：Public

私有变量：Private

局部变量：Local

具体分析如下题目：

结论如下：

本题应用了过程文件，过程文件为test20191225.prg，其中拥有两个子过程，分别为x2和x3，主程序中调用x2,在x2中调用x3，形成子程序调用

Public是全局型：变量如上题中的x3中的变量d，一经建立（赋值），可以从子过程中顺利带会主程序test20191225.prg中

Private是私有型变量，在x2中对变量b进行了约定，对上一次中的变量b进行了隐藏（或者称保护），对本级和下一级（x3）中可见、可使用，当x2执行完毕后，将释放此私有变量，并将隐藏的变量进行恢复，即在主程序中的B仍然是先前的4（即第五次显示的结果）

Local是局部型变量，它只属于本级程序，见x2中的变量c，经过调用x3且被改成了500，再返回x2中的结果仍然是50（即第四次显示的结果），但在x3中对c的改变，是对主程序中的c的改变，所以在返回主程序后c的值是500（即第五次显示的结果）

三、总结

1.与表相关的程序编写，是考试的一个重点

2.循环语句的应用，解决定重复性的问题

3.循环语句条件的应用，是重点中的重点，且应该注意循环体内的让条件变换的语句

四、作业

根据上机内容，掌握双重循环应用中内外变量的影响

掌握不同变量类型的作用域，即根据程序相互调用过程中，改变变量值后，在返回上一级程序时，变量值的变化。

432

D:2019-12-23
T:7:52:00
IP:192.168.3.41

作者：
张顺海

2019.12.23 星期一

上机内容：程序设计（循环控制与数据表的记录处理）

上机目的：掌握数据交互与循环控制

上机重点：宏无替换函数的用法

上机难点：数据表遍历的条件控制

上机过程：

一、中英文打字各十分钟

二、根据上节课的内容，完成如下程序段

程序环境：

1.上节课的内容

c=0
do whil .t.
clea
c=c+1
acce "请输入第"+ltrim(str(C))+"个数据表文件名" to wjm
if wjm="quit"
exit
endif

if file(wjm+".dbf")
use &wjm
x=recc()
? wjm,"表里有",x,'记录'
use
else
? wjm,"不存在,请查证后再打开"
endif
wait ''
enddo
return

2.本节课上机内容调试（带下划线的是重点）

从数据表X1查询从键盘上输入的学生姓名，如果找到显示记录内容，如果查不到则显示“查无此人”

程序代码：

clear

use x1

accept "请输入您要查询的学生姓名" to xm

locate for xm=m.xm

if found()

disp

else

? xm,"查无此人"

endif

use

return

以上程序只能查找到一个人的信息，不能查找到重名的所有记录信息，因为也不知道有没有重名，有几个重名的。

clear

use x1

accept "请输入您要查询的学生姓名" to xm

locate for xm=m.xm

if found()

do while not eof()

disp

continue

endd

else

? xm,"查无此人"

endif

use

return

以上程序只能查询到一个人的信息，或者重名的信息，如果需要查别人信息，还需要重新执行程序

clear

use x1

do while .t.

accept "请输入您要查询的学生姓名" to xm

if upper(m.xm)="QUIT"

exit

endif

locate for xm=m.xm

if found()

do while not eof()

disp

continue

endd

else

? m.xm,"查无此人"

endif

enddo

use

return

三、总结

1.与表相关的程序编写，是考试的一个重点

2.循环语句的应用，解决定重复性的问题

3.循环语句条件的应用，是重点中的重点，且应该注意循环体内的让条件变换的语句

四、作业

431

D:2019-12-17
T:17:56:00
IP:192.168.3.41

作者：
张顺海

2019.12.18 星期三

复习内容：SQL应用与程序设计

复习目的：

掌握SQL语句的语法规范

掌握程序设计的语句结构

复习时间：4课时

复习过程：

一、SQL概述

通过观察以下指令集合，查看相关总结

CLEAR ALL

CLOSE ALL data

CLEAR

SET safe off

TEXT

假设图书管理数据库中有3个表，图书.dbf、读者.dbf和借阅.dbf。它们的结构分别是

图书（总编号(C,6),分类号（C，8），书名（C，16），作者（C,6），出版单位（C,20））

读者（借书证号（C,4），单位(C,8)，姓名（C,6），性别（C,2））

借阅（借书证号（C,4)，总编号（C,6），借书日期D）

1.建立“图书管理”数据库

2.使用Create Table 命令分别建立3个数据库表，并分别设置图书的主索引是“总编号”，读者的主索引是“借书证号”

借阅的主索引是“总编号+借书证号”

3.分别在图书表中增加单价N（6，2）字段，在读者表中增加职称（C,6）和地址（C，8）字段。

4.将读者表中的地址字段宽度由8改为20

5.使用SQL-INSERT 命令分别在上个表中各插入5条记录

6.分别查询3个表中的全部记录的全部字段的内容

7.在藏书中查询“高等教育出版社”和“电子工业出版社”的图书

8.查询所藏图书，各个出版社的图书的最高单价、平均单价和册数

9.查询借阅了两本和两本以上的图书的读者姓名和单位。

ENDTEXT

*以下四条指令是建立一个数据库，三张数据表（问题 NO1-NO2）

CREATE DATABASE 图书管理

CREATE TABLE 图书(总编号 c(6) primary key,分类号 c(8),书名 C(16),作者 C(6),出版单位 C(20))

CREATE TABLE 读者(借书证号 c(4) primary key,单位 C(8), 姓名 C(6),性别 C(2))

CREATE TABLE 借阅(借书证号 C(4),总编号 C(6),借书日期 d, primary key 借书证号+总编号 tag abc )

*本条命令是显示当前数据库中包含的表格

LIST TABLES

*以下三条指令是把三张表的结构信息保存到文本文件abc.txt中，且三条命令因为addi内容拼接

LIST STRUCTURE in 图书 to abc.txt nocon

LIST STRUCTURE in 读者 to abc.txt addi nocon

lIST STRUCTURE in 借阅 to abc.txt addi nocon

*本条命令是打开上边产生的文本文件abc.txt，让读者看到三张表的结构信息。

MODIFY FILE abc.txt

*问题（NO3-NO4）

ALTER TABL 图书 add 单价 N(6,2)

ALTER TABLE 读者 add 职称 c(6) add 地址 c(8)

LIST STRUCTURE in 图书

LIST STRUCTURE in 读者

ALTER TABLE 读者 alter 地址 c(20)

LIST STRUCTURE in 读者

*问题NO5-NO6

INSERT into 图书 (总编号,分类号,书名,作者,出版单位,单价) value ("101001","01","VFP6.0","魏茂林","电子工业出版社",22)

INSERT into 图书 (总编号,分类号,书名,作者,出版单位,单价) value ("101003","01","VB6.0","张呈祥林","高等教育出版社",18)

INSERT into 图书 (总编号,分类号,书名,作者,出版单位,单价) value ("101002","02","中国历史通史","李醇","人民出版社",33)

INSERT into 图书 (总编号,分类号,书名,作者,出版单位,单价) value ("101005","02","汽车维护","吴宗强","大象出版社",25)

INSERT into 图书 (总编号,分类号,书名,作者,出版单位,单价) value ("101004","03","汉字技术","王晓龙","电子工业出版社",27)

INSERT into 读者 (借书证号,单位,姓名,性别,职称,地址) valu ("1001","徐水职教","张三","男","中一","徐水")

INSERT into 读者 (借书证号,单位,姓名,性别,职称,地址) valu ("1002","徐水职教","李四","男","中二","徐水")

INSERT into 读者 (借书证号,单位,姓名,性别,职称,地址) valu ("1003","徐水职教","王五","女","中二","徐水")

INSERT into 读者 (借书证号,单位,姓名,性别,职称,地址) valu ("1004","徐水职教","刘六","男","中高","徐水")

INSERT into 读者 (借书证号,单位,姓名,性别,职称,地址) valu ("1005","徐水职教","马七","女","中高","徐水")

INSERT into 借阅 (借书证号,总编号,借书日期) value ("1001","101003",DATE())

INSERT into 借阅 (借书证号,总编号,借书日期) value ("1001","101005",DATE())

INSERT into 借阅 (借书证号,总编号,借书日期) value ("1004","101001",DATE())

INSERT into 借阅 (借书证号,总编号,借书日期) value ("1005","101002",DATE())

INSERT into 借阅 (借书证号,总编号,借书日期) value ("1004","101004",DATE())

SELECT * from 图书

SELECT * from 读者

SELECT * from 借阅

*问题NO7-8

SELECT * from 图书 where 出版单位="电子工业出版社" or 出版单位="高等教育出版社"

SELECT 出版单位 as 出版社,MAX(单价) as 最高单价,avg(单价) as 平均单位,count(*) as 册数 from 图书 group by 出版单位

*问题 9

SELECT 姓名,单位 from 读者 where 借书证号 in (SELECT 借书证号 from 借阅 group by 借书证号 having count(*)>=2)

*以下是清除相关的数据库和表格

DROP table 图书

DROP TABLE 读者

DROP TABLE 借阅

CLOSE DATABASES &&删除数据库之前，数据库必须是关闭的

DELETE DATABASE 图书管理

总结：

数据库、数据表、记录的增、删、改。数据库的查看与表的查看，记录的查看。

SQL命令的应用

VFP命令的应用

二、程序设计相关知识

1.程序设计

2.设计结构

3.程序运行

c=0
do whil .t.
clea
c=c+1
acce "请输入第"+ltrim(str(C))+"个数据表文件名" to wjm
if wjm="quit"
    exit
endif
if file(wjm+".dbf")
  use &wjm
  x=recc()
  ? wjm,"表里有",x,'记录'
  use
else
  ? wjm,"不存在,请查证后再打开"
endif
wait ''
enddo
return

本节内容概要---《程序及子程序设计》-----程序文件的建立及修改

1）程序的概念

2）命令的书写规范

3）程序文件的建立

4）程序文件的修改

5）程序文件的运行

练习【创建环境脚本】

创建一个表环境，就是一段程序代码，只需要运行这一段代码，就能建立起4个数据表，22条记录。

程序代码：

clea

SET safe off

CREATE TABLE 学生 (学号 c(7),姓名 c(6),性别 c(2),年龄 n(2),是否党员 l,入学时间 d,专业 c(4))

CREATE TABLE 课程 (课号 c(1),课名 c(10),学分 n(1))

CREATE TABLE 选课 (学号 c(7),课号 c(1),成绩 n(5,2) null)

CREATE TABLE 必修课 (课号 c(1),必修专业 c(4))

INSERT into 学生 (学号,姓名,性别,年龄,是否党员,入学时间,专业) value ("8901001","李文","女",20,.f.,{^1980/09/01},"软件")

INSERT into 学生 (学号,姓名,性别,年龄,是否党员,入学时间,专业) value ("8901005","张静","女",20,.t.,{^1989/09/01},"应用")

INSERT into 学生 (学号,姓名,性别,年龄,是否党员,入学时间,专业) value ("8901003","张新","男",19,.f.,{^1998/09/02},"软件")

INSERT into 学生 (学号,姓名,性别,年龄,是否党员,入学时间,专业) value ("8901004","刘天","男",21,.f.,{^1996/09/01},"应用")

INSERT into 课程 (课号,课名,学分) value ("1","程序设计",4)

INSERT into 课程 (课号,课名,学分) value ("2","数据结构",4)

INSERT into 课程 (课号,课名,学分) value ("3","数据库",5)

INSERT into 课程 (课号,课名,学分) value ("4","操作系统",3)

INSERT into 选课 (学号,课号,成绩) value ("8901001","1",85.00)

INSERT into 选课 (学号,课号,成绩) value ("8901001","2",78.00)

INSERT into 选课 (学号,课号,成绩) value ("8901001","4",75.00)

INSERT into 选课 (学号,课号,成绩) value ("8901005","1",72.00)

INSERT into 选课 (学号,课号,成绩) value ("8901005","3",null)

INSERT into 选课 (学号,课号,成绩) value ("8901003","1",86.00)

INSERT into 选课 (学号,课号,成绩) value ("8901003","2",87.00)

INSERT into 选课 (学号,课号,成绩) value ("8901004","1",78.00)

INSERT into 必修课 (课号,必修专业) value ("1","软件")

INSERT into 必修课 (课号,必修专业) value ("1","应用")

INSERT into 必修课 (课号,必修专业) value ("2","软件")

INSERT into 必修课 (课号,必修专业) value ("3","软件")

INSERT into 必修课 (课号,必修专业) value ("3","应用")

INSERT into 必修课 (课号,必修专业) value ("4","应用")

程序段的目的：创建四张表（学生、课程、选课、必修课），分别加入了（4、4、8、6）条记录备用。

使用方法：SQL操作题环境创建脚本（可以将以下代码，复制下来，创建一个小程序文件，比如 modi comm 然后粘贴，存盘，执行)

重点：

1.每行以命令动词开始，只能写一条指令，长指令可以分行来写，末尾用抑制换行符（也叫续行符），是分号

2.命令不区分大小写，用半角，且关键字多于4个的，可以写前4个字符，词与词之间用1个以上的空格隔开

3.注释分单行注释 *或者 note开头，也可以同行注释 &&，一般用在语句末，用空格隔开

三、练习

四、总结

根据实例，上机验证，达到如下教学目的

简单问题-输入（Accept）--&函数的应用---文件是否存在（File()函数的应用）--循环的应用--循环的退出--提示信息的次数控制--显示打开表文件的记录条数信息（reccount())

五、作业与反思

程序设计员的思维、逻辑判断、提前预知的能力，是影响程序设计成功的重要因素。