新建表单(FORM1),里面添加TEXT1、TEXT2、GRID1、COMMAND1、COMMAND2等控件。
你用TEXT1存放矩阵的行数(表1.DBF的记录总数),用TEXT2存放矩阵的列数(表1.DBF的字段数),GRID1显示表1.DBF的内容,COMMAND1为”修改表结构”,COMMAND2为”结束”,

用表单FORM1进行登陆,文本框TEXT1输入用户名,文本框TEXT2输入密码,optiongroup1为身份标志;COMMAND1为确定;表”用户表.DBF”存放有关用户及密码信息。

(1)FORM1.INIT()
CLOSE ALL
IF FILE(“表1.DBF”)
  USE 表1.DBF
ELSE
  CREATE TABLE 表1 (列1 N(12,4),列2 N(12,4))
  APPEND BLANK
  REPLACE 列1 WITH 0,列2 WITH 0
ENDIF
THISFORM.GRID1.RECORDSOURCETYPE=6
THISFORM.GRID1.COLUMNCOUNT=-1
THISFORM.GRID1.RECORDSOURCE=”表1″
THISFORM.TEXT1.value=RECCOUNT()
THISFORM.TEXT2.value=FCOUNT()

(1)在FORM1.INIT()将次数i设成全局变量并打开用户表
CLOSE ALL
IF FILE([用户表.DBF])
  USE 用户表.DBF
ELSE
  CREATE TABLE 用户表 (用户名 C(12),密码 C(12),身份 C(12))
  APPEND BLANK
  REPLACE 用户名 WITH [SYSYTEM],密码 WITH [SYSTEM],身份 WITH
[SYSTEM]
ENDIF
PUBLIC I
I=0
*注意:系统初始用户、密码和身份都是SYSYTEM

网站地图xml地图