狙击精英3第三关地雷:请VF编程高手帮忙!·

来源:百度文库 编辑:高校问答 时间:2024/04/27 19:11:48
3、 对售书数据库BOOK.DBF(如上题所示),现需要调整一些书的单价,然后用调整后的"单价*数量"的值填入"总计"字段中。下边程序的功能是根据用户输入的书号查找到记录,并由用户决定是否对该记录进行修改。请填空:*
SET TALK OFF
USE BOOK
INDEX ON 书号TO BOOK1
DO WHILE .T.
CLEAR
DISP ALL FIELD 书号
ACCEPT "请输入书号"TO BNO
___________BNO
IF FOUND()
DISPLAY
ACCEPT "修改/不修改继续/终止程序(Y/N/E)" TO SR
ELSE
ACCEPT "书号不存在!继续/终止程序(N/E)" TO SR
ENDIF
DO CASE
CASE UPPER(SR)="Y"
INPUT "请输入新单价"TO XDJ
REPLACE _____________, 总计WITH 单价*数量
CASE UPPER(SR)="N"
__________________
CASE UPPER(SR)="E"
___________________
ENDCASE
ENDDO
USE
SET TALK ON
RETURN
空白处填什么?

FIND

单价 WITH XDJ

RETURN

LOOP