test.prg

来自「太平洋保险保单统计系统」· PRG 代码 · 共 25 行

lnHandle=sql_connect(0)
IF	SQLEXEC(lnHandle,'SELECT serial FROM client','client1')>0
	=SQL_ok(lnHandle,0)
ELSE
	=SQL_exit(lnHandle,0)
	QUIT
ENDIF

lnHandle=sql_connect(0)
l_value=0
SELECT client1
SCAN
	mm=client1.serial
	SQLEXEC(lnHandle,'SELECT COUNT(*) as num  FROM client_list where serial=?mm','client2')
	SELECT client2
	IF client2.num<>0
		FOR nn=1 TO client2.num
			l_value=l_value+1
			SQLEXEC(lnHandle,'update client_list set serial=?l_value,serial_sec=?mm where serial=?mm and serial_sec=?nn')
		ENDFOR
	ENDIF
ENDSCAN
=SQL_ok(lnHandle,0)