编程新Word格式.docx
《编程新Word格式.docx》由会员分享,可在线阅读,更多相关《编程新Word格式.docx(18页珍藏版)》请在冰豆网上搜索。
dowhil!
字段1,字段2,·
cont
endd
Else
”查无此人!
“
endi
Wait“继续吗?
”toyn
Ifupper(yn)=“Y”
loop
exit
Endi
Endd
Cleaall
Sele表1.字段名1,表1.字段名2,表2.字;
段名1,表2.字段名2from表1,表2;
Where表1.字段名=表2.字段名;
And表1.字段名=查询条件;
Intocursorabc
thisform.grid1.recordsource=“abc”
thisform.refresh
S39-1
Use工资
Indeon部门号tagbmh
Totalon部门号tohzfiel实发工资
Usehz
Indeon部门号
Sele2
Use部门
Setrelato部门号intoa
”部门号工资总和”
scan
部门名,实发工资
Endscan
wait
Closeall
S39-2
use工资2
repl实发工资with应发工资-扣税all
list
acce"
请输入职工编号"
tobh
locafor职工编号=allt(bh)
iffound()
姓名
else
"
查无此人"
closeall
39-2表单
上一条skip-1
ifbof()
gobott
Thisform.refresh
下一条skip
ifeof()
gotop
统计thisform.text1.value=高数+英语+计算机
s39-3
use销量
repl前三月销量合计with一月销量+二月销量+三月销量all
indeon前三月销量合计taghjdesc
gotop
车型前三月销量合计"
fori=1to5
车型,前三月销量合计
skip
endfor
s39-4
SELECT歌手表.歌手姓名,max(分数)as最高分,min(分数)as最低分,;
avg(分数)as平均分;
FROM歌手表INNERJOIN评分表;
ON歌手表.歌手编号=评分表.歌手编号;
GROUPBY评分表.歌手编号;
INTOTABLEabcd4.dbf
useabcd4
brow
S38-1
use出版
DOWHIL.T.
请输入出版社名:
tobm
locatfor出版社名=allt(bm)
**"
+bm+"
的书的书号如下:
dowhilefound()
书号
cont
enddo
无此出版社信息"
wait"
继续处理吗(Y/N)?
toyn
ifupper(yn)="
Y"
LOOP
ELSE
EXIT
ENDIF
ENDDO
s38-3
sele1
use销售表
indeon货物号taghwh
totalon货物号tohzfiel销售数量
usehz
sele2
use价格表
setrelato货物号intoA
repl数量withA.销售数量all
repl总额with数量*价格all
indeon总额tagzedesc
35-1编程
settalkoff
setsafeoff
cleaall
clea
usecustomer
indeon会员号taghyk
useorderitem
repl单价with单价*(1-0.02)for单价>
10000
setrelato会员号intob
请输入查询的会员号:
tohk
locafor会员号=hk
************查询结果*************"
会员号姓名商品号单价数量日期"
dowhile!
会员号,B.姓名,商品号,单价,数量,日期
********************************"
settalkon
setsafeon
closall
35-1“查询”命令
X=ALLTRIM(THISFORM.TEXT1.VALUE)
SELE商品号,MAX(单价)AS最高价FROMORDERITEM;
WHERE商品号=XINTOTABLEABC
THISFORM.GRID1.RECORDSOURCE="
ABC"
THISFORM.REFRESH
35-2编程
usebooks
请输入查找的作者姓名:
toxm
locafor作者=xm
************结果***************"
书名价格出版单位"
*******************************"
eof()
书名,价格,出版单位
cont
else
图书馆没有此作者的书"
Endif
35-3编程
use课程
indexon课程编号TAGBH
use考试成绩
setrelato课程编号intob
请输入查询的课程编号:
locafor课程编号=allt(bh)
***********查询结果***********"
学号课程名成绩教师"
学号,b.课程名,成绩,b.任课教师
35-2表单“查询”命令
LOCAFOR书号=X
35-1表单“查询”
36-1编程
use学生
replall综合测评with85
use学生成绩
indeon学号tagxh
setrelato学号intob
dowhil!
sele2
n=0
if数学>
=90
n=n+1
endi
if物理>
if英语>
sele1
repl综合测评with综合测评+n
endd
indeon综合测评tagcpdesc
36-2编程
usestcj
usestdata
replall平均分with(b.成绩1+b.成绩2+b.成绩3)/3
indeon平均分tagpjfdesc
******************排名表*******************"
学号姓名院系平均分名次"
i=1
dowhili<
=3
学号,姓名,院系,平均分,i
i=i+1
36-2表单“学号”“平均分”
ifthis.value=1
sele*fromstdataorderby学号intocursorabc
thisform.grid1.recordsource="
abc"
sele*fromstdataorderby平均分intocursorabc
Thisform.refresh
36-3编程
use选课
indeon学号tagxhi
setskiptob
dowhil.t.
acce"
请输入查询同学的姓名:
toxm
locafor姓名=allt(xm)
iffound()
disp学号,姓名,出生年月,b.课程号,b.成绩
endi
wait"
是否继续查询(y/n)?
toyn
ifupper(yn)="
else
36-3表单list1
SELECT学生.姓名,选课.课程号,选课.成绩;
FROMlm学生管理!
学生,选课;
where学生.学号=选课.学号and学生.姓名=thisform.list1.value;
INTOCURSORabc
thisform.grid1.recordsource="
36-4编程
cle