(程序说明)假设用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，若用户名输入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。命令按钮“登录”的Click事件中的代码如下。

(程序)

USE 口令表

G．O TOP

flag＝0

D．O WHILE (3)

IF Alltrim (用户名)= ＝Alltrim(Thisform. Text1. Value)

IF Alltrim (口令)＝＝Alltrim(Thisform. Text2，Value)

WAIT“欢迎使用”WINDOW TTMEOUT2

E．LSE

WATT“口令错误” WINDOW TIMEOUT2

E．NDIF

flag＝1

E．XIT

E．NDIF

SKIF

E．NDDO

IF (4)

WAIT“用户名错误”WINDOW TIMEOUT2

E．NPIF(3)

A．BOF()

B．NOT.BOF()

C．EOF()

D．NOT.EOF()