(5)将程序保存为prog1.prg文件。

　　【参考答案】

　　实现此功能的程序如下：

　　set talk off

　　open database 订货管理

　　sele 1

　　use order_list

　　do while not eof()

　　ddh=订单号

　　sele 2

　　use order_detail

　　locate for 订单号=ddh

　　je=0

　　do while not eof()

　　je=je+单价*数量

　　cont

　　endd

　　sele 1

　　repl 总金额 with je

　　skip

　　endd