|
三、 1. 在change_c.prg文件中的内容8 e! v; `2 E# P* _
CLOSE ALL
* |; Z$ m$ K( D! Q! N USE 商品表$ |% C6 R( J+ F5 i q/ B
IF FILE("商品表备份.DBF")
" u- a: x4 g& w a6 _ ZAP4 l; e: I% }' }( y" m3 D. x+ ]
APPEND FROM 商品表备份
! X, P- }0 u% |1 [ ELSE
# E* f& G) A% x8 l6 ^9 V COPY TO 商品表备份
( \: y3 X: ?5 B) Y" O" O @ ENDIF" O* e7 ~9 L2 K& x8 ~3 ~3 A
REPLACE ALL 单价 WITH 出厂单价*.1 for SUBSTR(商品号,1,2) = '10'
9 g: O: h. f/ e) V SELECT 2
* o6 V5 `1 P$ t; a- e% F) } USE 单价调整表 ORDER 商品号
! ~1 w% H# V- A6 M6 l; S SELECT 商品表
" A) h8 v$ e! E SET RELATION TO 商品号 INTO 单价调整表
8 e. a: m) U n+ x REPLACE ALL 出厂单价 WITH 单价调整表.出厂单价 for 商品号 = 单价调整表.商品号
4 V0 s7 Z7 s2 z0 F4 @5 R SET RELATION TO3 Z. H) p+ W. C. ~ g6 Y2 b
CLOSE ALL5 M, B! s2 y* F# U% O- d5 L/ w
3. 设计表单
' V0 P3 M+ X9 E+ {' S$ s# Z& R (1). 在命令窗口中输入建立表单命令
, z& K6 {1 s, P. S; s6 _ CREATE FORM form2
8 y3 P( ?) _: I# D7 G% n: Z3 b (2). 在“Form1”窗口中添加两个命令按钮，在第1个命令按钮“属性”窗口的Caption处输入“调整”，在第2个命令按钮“属性”窗口的Caption处输入“退出”。* |' }! T3 Z9 n, r
(3). 双击“调整”命令按钮，在“Command1.Click”编辑窗口中输入“do change_c”，接着关闭编辑窗口。1 K* i/ j- s4 S1 E" r) V
(4). 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”，接着关闭编辑窗口。 |
发表于 2012-7-31 22:22:49
楼主