谢谢这个站的老师们 我的系统已经完成了 还是有些关于代码的问题不太懂 所以用这个帖子大家能给我回答下~~
public cuser
cuser=alltrim(thisform.combo1.value)
select 用户清单
cname=alltrim(thisform.Combo1.value)
ppassword=alltrim(thisform.text1.value)
set order to 姓名
seek cname
set exact on
if alltrim(用户清单.姓名)!=cname
cn=cn+1
cMessagetitle='系统登录'
cMessagetext='用户错误,请重新输入!'
nDialogtype=4+32
nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)
do case
case nanswer=6
thisform.combo1.value=''
thisform.combo1.setfocus
case nanswer=7
cmessagetitle='系统登录'
cmessagetext='不要乱来!'
messagebox(cmessagetext,ndialogtype,cmessagetitle)
thisform.release
endcase
if cn=3
thisform.release
endif
else
if alltrim(用户清单.密码)!=ppassword
cn=cn+1
cmessagetitle='系统登录'
cmessagetext='密码错误,请重新输入!'
ndialogtype=4+32
nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)
do case
case nanswer=6
thisform.text1.value=''
thisform.text1.setfocus
case nanswer=7
cmessagetitle='系统登录'
cmessagetext='不要乱来!'
messagebox(cmessagetext,ndialogtype,cmessagetitle)
thisform.release
endcase
if cn=3
thisform.release
endif
else
purview=val(alltrim(用户清单.权限级别))
pspgl=用户清单.商品管理
pkhgl=用户清单.客户管理
pghsgl=用户清单.供货商管理
pxsgl=用户清单.销售管理
ptjfx=用户清单.统计分析
psysgl=用户清单.系统管理
Cuser=alltrim(thisform.combo1.displayvalue)
do form logo
thisform.release
endif
endif
set exact off
这是我登陆界面确定按钮的一段代码 希望大家能给解读下 当然越详细越好 小弟万分感激~