登录表单设计源码

求助登录表单设计源码
大家好，如今我正在看《Visual FoxPro6.0数据库程序设计与实例》，里面提供了各行业共8种管理系统设计方案及源码，我看了，有些收获，很想提取其中的有关带有密码验证和权限功能的登录表单用用，但必须一个字一个字的打下来，特求助大家，有没有类似的现成的相关的表单或prg程序源码，发上来共享一下，以省打字之苦。

[解决办法]

VB code

表单数据环境中有一个表,表名"口令",有操作员和口令两个字段.表单有一个自定义属性dlcs,初始值为0表单上两个文本框和两个按钮,下面是确定按钮的程序if empty(alltrim(thisform.text1.value))    messagebox("操作员不可为空！",54)    thisform.dlcs=thisform.dlcs+1    thisform.text1.setfocus    returnendifselect 口令locate for 操作员=alltrim(thisform.text1.value) and 口令=alltrim(thisform.text2.value)if !eof()    thisform.release    do form 主表单.scxelse    if thisform.dlcs<2        messagebox("你输入了错误的操作员名或密码，请重新输入！",54)        thisform.dlcs=thisform.dlcs+1        thisform.text1.value=""        thisform.text2.value=""        thisform.text1.setfocus    else        messagebox("你不是本系统的合法用户，再见！",54)        thisform.release        clear events    endifendif
[解决办法]
探讨

大家好，如今我正在看《Visual FoxPro6.0数据库程序设计与实例》，里面提供了各行业共8种管理系统设计方案及源码，我看了，有些收获，很想提取其中的有关带有密码验证和权限功能的登录表单用用，但必须一个字一个字的打下来，特求助大家，有没有类似的现成的相关的表单或prg程序源码，发上来共享一下，以省打字之苦。

[解决办法]
书上跟你说得那么明白.还求什么源码,按说明做就行了.
[解决办法]
1楼提供的是一个思路,并不是每个编程的人员都要采用此编码
[解决办法]
连打几个字都嫌麻烦，那就不要学编程了。换点其他的事做做
[解决办法]
探讨

1楼提供的是一个思路,并不是每个编程的人员都要采用此编码

[解决办法]
学习主要是为了其思路，不是为了其编码，有了思路，代码自然就有了。
[解决办法]
Set Exac On
This.passn=1
csql='driver=sql server;server='+Allt(sysinfo.sername)+';uid=jq;pwd=87030300;database=lsyd'
lnhandle=Sqlstringconnect(csql)
If lnhandle>0
SQLExec(lnhandle,"select *  from ls_log where clientid=?sysinfo.clientid ","tlog")
If sysinfo.clientid#tlog.clientid OR lflag
Messagebox('站点冲突!请与管理员联系...',64,'信息')
SQLDisconnect(lnhandle)
lnhandle=0
Thisform.command2.Click
retu
ENDIF

SQLExec(lnhandle,"select * from ls_oper","operate")
Thisform.combo2.RowSource='operate.oper'
Thisform.combo2.SetFocus
Else
Thisform.command2.Click
Endi
*******************************
If Empt(This.Parent.combo2.DisplayValue)
Messagebox('请选择操作员...',64,'信息')
This.Parent.combo2.SetFocus
Retu
Endi



If Allt(This.Parent.text2.Value)==cpw(.F.,operate.pw) And Upper(Allt(This.Parent.text2.Value))#'ERROR'
SQLExec(lnhandle,"update ls_log set lflag=1 where clientid=?sysinfo.clientid")
Repl opid With operate.opid,oper With operate.oper In sysinfo

SQLExec(lnhandle,"select * from ls_oprole where opid=?sysinfo.opid","tope")
Select tope
qx=.F.
Scan
qx(rolecode)=.T.
Endscan
Use In tope

If This.Parent.CHECK1.Value   &&修改口令
Do Form modipass
Else
If Empty(This.Parent.TEXT2.Value)
=Messagebox('为了数据安全，请设置操作口令!',64,'信息')
Endi
Endi

Thisform.Release

Else
If Thisform.passn>2
=Messagebox ('口令三次输入错误,'+Chr(13)+'不能登录系统!',16,'信息')
lnhandle=0
Thisform.Release
Else
Thisform.passn=Thisform.passn+1
=Messagebox ('口令错误,'+Chr(13)+'请重新输入!',16,'信息')
This.Parent.text2.SetFocus 
 
Endi
Endi

************************

这些代码给你几乎是没有用的，除非谁专门帮你写一下代码
[解决办法]
发个帖。以省打字之苦。