VFP代码.docx

1、VFP代码登陆页面Form loadpublic username,userid,bc, errornumber,inname,inpasserrornumber=0bc=0m.inpass=space(20)m.inname=space(20)set exact onreturnForm activatesele userusername=alltrim(name)userid=alltrim(english)ln=len(username)li=len(userid)n=1m=1do while .t.s=subs(username,1,n*2)t=subs(userid,li-m+1,2

2、*m)thisform.label1.left=1024-n*50thisform.label1.caption=sthisform.label2.left=10*mthisform.label2.caption=twa=0for k=1 to 105wa=inkey()if wa0exitendifnextif wa0exitendifn=n+1if nlnn=1endifm=m+1if mlim=1endifenddothisform.label1.left=(1024-ln)/3thisform.label1.caption=usernamethisform.label2.left=(1

3、024-li)/4thisform.label2.caption=useridthisform.pageframe2.enabled=.t.thisform.pageframe2.visible=.t.SET BELL TO music.wav,1? CHR(7)SET BELL TO Return登陆页面下方的日期代码Form initthisform.label3.caption=当前日期为：+alltrim(str(year(date()+年+alltrim(str(month(date()+月+alltrim(str(day(date()+日+星期+alltrim(str(week(d

4、ate()登陆按钮Form clickselect message if alltrim(m.inpass)=zex RELEASE thisform do form xsxxglxt.scx retu endif if len(alltrim(m.inname)=0 messagebox(请输入用户名,48+0+0,操作提示) retu endif if len(alltrim(inpass)=0 messagebox(请输入密码,48+0+0,操作提示) retu endif locate all for inname=name.and.password=alltrim(inpass) i

5、f .not. found() messagebox(密码与操作人员不配,48+0+0,操作提示) errornumber=errornumber+1 if errornumber2 messagebox(非法用户不可使用,48+0+0,操作提示) quit endif inname=space(20) inpass=space(20) thisform.refresh retu else RELEASE thisform messagebox(欢迎+alltrim(inname)+同学！) do form xsxxglxt.scx endif管理员文本框的control source: m.

6、inname密码文本框的control source：m.inpass退出:click x=messagebox(真的要退出系统吗？,256+32+4,操作提示！)if x=6RELEASE thisformquit ENDIFretu关于时间代码：timerDO caseCASE bc=0thisform.label2.foreColor=RGB(0,0,255)CASE bc=1thisform.label2.foreColor=RGB(0,255,0)CASE bc=2 thisform.label2.foreColor=RGB(255,0,0)CASE bc=3thisform.lab

7、el2.foreColor=RGB(255,255,0)CASE bc=4thisform.label2.foreColor=RGB(205,39,219)ENDCASEbc=bc+1IF bc=5bc=0ENDIFRETURN关于菜单中浏览报表浏览：clickREPORT FORM streport.frx previewRetu标签浏览：clickLABEL FORM student.lbx previewRetu报表日期和页数标签中的照片插件：连编的代码X=SYS(5)+SYS(2003)SET DEFAULT TO &XSET TALK OFFSET ECHO OFFSET SAFE OFFZOOM WINDOWS SCREEN MAXSET STATUS OFFCLOSE ALLSET SYSMENU OFFSET SYSMENU TOSET DATE YMDSET EXACT ONMODIFY WINDOW SCREEN TITLE 高等院校学生管理系统MODIFY WINDOW SCREEN ICON FILE BOOK.ICODO FORM face1.scxREAD EVENT邮政编码党员