第一步:先将数据表(假如表名为:AAA.DBF,空表)添加到表单的数据环境中
第二步:在表单的LOAD事件中,写入代码
SELECT AAA
APPEND FROM MM.OCX DELIMITED WITH BLANK
*BROWSE &&可以看下效果
第三步,在表单的DESTROY事件中,写入代码
LOCAL CSTR
CSTR=[]
SELECT AAA
SCAN
CSTR=CSTR+ALLTRIM(用户名)+[ ]+ALLTRIM(密码)+IIF(RECNO()<RECCOUNT(),CHR(13)+CHR(10),[])
ENDSCAN
=STRTOFILE(CSTR,[MM.OCX]) &&数据保存到文本文件中
ZAP
USE IN AAA
[ 本帖最后由 sdta 于 2013-2-11 20:06 编辑 ]
第二步:在表单的LOAD事件中,写入代码
SELECT AAA
APPEND FROM MM.OCX DELIMITED WITH BLANK
*BROWSE &&可以看下效果
第三步,在表单的DESTROY事件中,写入代码
LOCAL CSTR
CSTR=[]
SELECT AAA
SCAN
CSTR=CSTR+ALLTRIM(用户名)+[ ]+ALLTRIM(密码)+IIF(RECNO()<RECCOUNT(),CHR(13)+CHR(10),[])
ENDSCAN
=STRTOFILE(CSTR,[MM.OCX]) &&数据保存到文本文件中
ZAP
USE IN AAA
[ 本帖最后由 sdta 于 2013-2-11 20:06 编辑 ]
坚守VFP最后的阵地