VFP代码.docx

VFP代码.docx

《VFP代码.docx》由会员分享，可在线阅读，更多相关《VFP代码.docx（10页珍藏版）》请在冰豆网上搜索。

VFP代码

登陆页面

Formload

publicusername,userid,bc,errornumber,inname,inpass

errornumber=0

bc=0

m.inpass=space（20）

m.inname=space（20）

setexacton

return

Formactivate

seleuser

username=alltrim（name）

userid=alltrim（english）

ln=len（username）

li=len（userid）

n=1

m=1

dowhile.t.

s=subs（username,1,n*2）

t=subs（userid,li-m+1,2*m）

thisform.label1.left=1024-n*50

thisform.label1.caption=s

thisform.label2.left=10*m

thisform.label2.caption=t

wa=0

fork=1to10^5

wa=inkey（）

ifwa>0

exit

endif

next

ifwa>0

exit

endif

n=n+1

ifn>ln

n=1

endif

m=m+1

ifm>li

m=1

endif

enddo

thisform.label1.left=（1024-ln）/3

thisform.label1.caption=username

thisform.label2.left=（1024-li）/4

thisform.label2.caption=userid

thisform.pageframe2.enabled=.t.

thisform.pageframe2.visible=.t.

SETBELLTO'music.wav',1

?

?

CHR（7）

SETBELLTO

Return

登陆页面下方的日期代码

Forminit

thisform.label3.caption="当前日期为：

"+alltrim（str（year（date（））））+"年"+alltrim（str（month（date（））））+"月"+alltrim（str（day（date（））））+"日"+"星期"+alltrim（str（week（date（））））

登陆按钮

Formclick

selectmessage

ifalltrim（m.inpass）="zex"

RELEASEthisform

doformxsxxglxt.scx

retu

endif

iflen（alltrim（m.inname））=0

messagebox（"请输入用户名",48+0+0,"操作提示"）

retu

endif

iflen（alltrim（inpass））=0

messagebox（"请输入密码",48+0+0,"操作提示"）

retu

endif

locateallforinname=name.and.password=alltrim（inpass）

if.not.found（）

messagebox（"密码与操作人员不配",48+0+0,"操作提示"）

errornumber=errornumber+1

iferrornumber>2

messagebox（"非法用户不可使用",48+0+0,"操作提示"）

quit

endif

inname=space（20）

inpass=space（20）

thisform.refresh

retu

else

RELEASEthisform

messagebox（"欢迎"+alltrim（inname）+"同学！

"）

doformxsxxglxt.scx

endif

管理员文本框的controlsource:

m.inname

密码文本框的controlsource：

m.inpass

退出:

click

x=messagebox（"真的要退出系统吗？

",256+32+4,"操作提示！

"）

ifx=6

RELEASEthisform

quit

ENDIF

retu

关于时间代码：

timer

DOcase

CASEbc=0

thisform.label2.foreColor=RGB（0,0,255）

CASEbc==1

thisform.label2.foreColor=RGB（0,255,0）

CASEbc=2

thisform.label2.foreColor=RGB（255,0,0）

CASEbc=3

thisform.label2.foreColor=RGB（255,255,0）

CASEbc=4

thisform.label2.foreColor=RGB（205,39,219）

ENDCASE

bc=bc+1

IFbc=5

bc=0

ENDIF

RETURN

关于菜单中浏览

报表浏览：

click

REPORTFORMstreport.frxpreview

Retu

标签浏览：

click

LABELFORMstudent.lbxpreview

Retu

报表日期和页数

标签中的照片插件：

连编的代码

X=SYS（5）+SYS（2003）

SETDEFAULTTO&X

SETTALKOFF

SETECHOOFF

SETSAFEOFF

ZOOMWINDOWSSCREENMAX

SETSTATUSOFF

CLOSEALL

SETSYSMENUOFF

SETSYSMENUTO

SETDATEYMD

SETEXACTON

MODIFYWINDOWSCREENTITLE'高等院校学生管理系统'

MODIFYWINDOWSCREENICONFILEBOOK.ICO

DOFORMface1.scx

READEVENT

邮政编码

党员