
**你的提问里没有给出一个必要参数:数据库名,我用中文代替了
PUBL link1
CREATE connection sql1 connstring "DRIVER={SQL Server}SERVER=serverUID=saPWD=DATABASE=你需要打开的数据库名称"
link1=Sqlconnect('sql1')
IF link1<=0
MESSAGEBOX('数据库登录失败,请检查服务器名或网络连接',16+0,'登录失败')
RETUN
ELSE
MESSAGEBOX('数据库登录成功',16+0,'登录成功')
ENDIF
**在整个应用程序里你都可以用link1变量来 *** 纵数据库了
不需要密码加密的话,这个很简单的.建立一个combo1,和text1的对象,和一个确定按钮.确定command1的click事件:
if
thisform.combo1.value=allt(用户名1.zzh)
and
thisform.text1.value=allt(用户名1.密码)
&&假定用户名1是你的表.
messagebox("登录成功")
thisform.release
else
messagebox("用户名或密码错误")
endif
你可设置全局变量,控制输入的次数.
一般登录成功后,会讲用户名等传给全局变量,以便后面的程序使用.
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)