比如說設置簡單的登錄界面表單
如下圖:
壹般用戶註冊、用戶名、密碼、確認密碼這幾個就是標簽
text1、text2、text3就是文本框、編輯框實際上比文本框要大,比文本框輸入的內容要多。
確定、繼續、退出就是命令按鈕
可以建立壹個自由表保存密碼和用戶名,自由表的字段分別為"用戶名"和"密碼",建立如下圖所示的表單。
確定按鈕命令:
close all
use database\登陸.dbf exclusive
locate for alltrim(用戶名)==alltrim(yonghuming)
if found()
messagebox("用戶名重復,請重新輸入!",0+16,"提示信息對話框") thisform.text1.value="" thisform.text2.value="" thisform.text3.value="" thisform.text1.setfocuselse
if alltrim(thisform.text2.value)!=alltrim(thisform.text3.value) messagebox("兩次密碼輸入不壹致,請重新輸入!",0+16,"提示信息對話框") thisform.text2.value="" thisform.text3.value="" thisform.text2.setfocus? else insert into database\登陸.dbf values(alltrim(yonghuming),alltrim(mima),.f.) messagebox("壹般用戶添加成功!請記住您的用戶名和密碼!",0+64,"提示信息對話框") endifendif
use
繼續按鈕命令:
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text1.setfocus
退出按鈕命令:
close all
thisform.release