登录表单设计源码_VFP

求助登录表单设计源码
大家好，如今我正在看《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