VFP代码Word格式文档下载.docx

VFP代码Word格式文档下载.docx

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

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>

exit

endif

next

n=n+1

ifn>

ln

m=m+1

ifm>

li

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

iflen（alltrim（inpass））=0

请输入密码"

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

if.not.found（）

messagebox（"

密码与操作人员不配"

errornumber=errornumber+1

iferrornumber>

2

messagebox（"

非法用户不可使用"

quit

endif

inname=space（20）

inpass=space（20）

thisform.refresh

else

欢迎"

+alltrim（inname）+"

同学！

）

管理员文本框的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

RETURN

关于菜单中浏览

报表浏览：

REPORTFORMstreport.frxpreview

Retu

标签浏览：

LABELFORMstudent.lbxpreview

报表日期和页数

标签中的照片插件：

连编的代码

X=SYS（5）+SYS（2003）

SETDEFAULTTO&

X

SETTALKOFF

SETECHOOFF

SETSAFEOFF

ZOOMWINDOWSSCREENMAX

SETSTATUSOFF

CLOSEALL

SETSYSMENUOFF

SETSYSMENUTO

SETDATEYMD

SETEXACTON

MODIFYWINDOWSCREENTITLE'

高等院校学生管理系统'

MODIFYWINDOWSCREENICONFILEBOOK.ICO

DOFORMface1.scx

READEVENT

邮政编码

党员