VFP程序设计实习报告(4)

2019-03-29 08:10

该录入界面的数据环境为:毕业生基本信息表 Label1的属性如下: Backstyle=0-透明

Caption=毕业生基本信息录入 FontBold=.T. FontName=楷体 FontSize=35

Forecolor=0,128,0 Height=49 Left=96 Top=24 Width=444

Label2~Label16的属性如下: Backstyle=0-透明 Caption=各自的名称 FontName=宋体 FontSize=18 Forecolor=96,0,0 Height=25 Left=24

Text1~Text15的属性如下:

ControlSource=毕业生基本信息表.学号 ControlSource=毕业生基本信息表.姓名 ······

ControlSource=毕业生基本信息表.所学专业 Height=25

Width=96 Line1的属性如下:

BackColor=0,0,255 BorderWith=5 Top=12 Width=636 Line2的属性如下:

BackColor=0,0,255 BorderWith=5 Top=72 Width=636 Line3的属性如下:

BackColor=0,0,255 BorderWith=3 Top=348 Width=636 Line4的属性如下:

BackColor=0,0,255 BorderWith=3 Top=396 Width=636

“首记录”按钮的click事件代码如下: go top

thisform.refresh

“尾记录”按钮的click事件代码如下: go bottom

thisform.refresh

“上一条”按钮的click事件代码如下: skip -1

if bof() then

=messagebox(\已是首记录!!!!\警告\ go top endif

thisform.refresh

“下一条”按钮的click事件代码如下: Skip+1 if eof() then

=messagebox(\已是首记录!!!!\警告\ go bottom endif

thisform.refresh

“添加”按钮的click事件代码如下: go bottom append blank thisform.refresh

“删除”按钮的click事件代码如下: delete pack skip -1

thisform.refresh

“退出”按钮的click事件代码如下: Release thisform

毕业生基本信息查询登录界面(学生查询)

实现功能:学生身份验证。

该登录界面的数据环境为:学生密码表 Form1的属性如下: AutoCenter=.T. Height=364

Picture= d:\\photos\\getcai47gv9.jpg TitleBar=0-关闭 Width=510

WindowType=1-模式

Form1的Init事件代码如下: public a as integer a=0

public i as integer

i=0

thisform.text1.setfocus thisform.left=300 thisform.top=80

“登录”按钮的属性如下: Caption=登录 FontBold=.T. FontSize=20 Height=37 Left=132 Top=312 Width=97

“登录”按钮的click事件代码如下: i=i+1

locate for alltrim(学生密码表.学号)==alltrim (thisform.text1.value)

if found() AND alltrim(学生密码表.密码)== alltrim(thisform.text2.value) a=recno()

do form 毕业生基本信息表单.scx release thisform else

if i<3 then

=messagebox(\密码错误请重新输入!!!\警告\

thisform.text2.setfocus else

=messagebox(\对不起,您是非法用户,系统将退出!!!\严重警告\ quit endif endif

“退出”按钮的属性为: Caption=退出 FontBold=.T. FontSize=20 Height=37 Left=276 Top=312 Width=97

“退出”按钮的Click事件代码如下: release thisform Label1的属性如下: Backstyle=0-透明

Caption=毕业生基本信息查询 FontBold=.T. FontName=楷体 FontSize=30

Forecolor=203,53,10 Height=36 Left=72 Top=24 Width=372 Label2的属性如下: Backstyle=0-透明 Caption=登录界面 FontBold=.T. FontName=楷体 FontSize=30

Forecolor=203,53,10 Height=49 Left=180 Top=72 Width=180 Label3的属性如下: Backstyle=0-透明 Caption=学号: FontBold=.T. FontName=宋体 FontSize=30

Forecolor=165,75,3 Height=37 Left=108 Top=156 Width=120 Label4的属性如下: Backstyle=0-透明 Caption=密码: FontBold=.T. FontName=宋体 FontSize=30

Forecolor=165,75,3 Height=37 Left=108 Top=216 Width=132 Text1的属性如下: Backstyle=0-透明 Height=24 Left=252 Top=168 Width=121 Text2的属性如下: Backstyle=0-透明 Height=24 Left=252 Top=228 Width=121 Shape1的属性如下:

BackColor=255,0,255

Height=12 Left=0 Top=120 Width=564 Shape2的属性如下:

BackColor=255,0,255 Height=9 Left=0 Top=276 Width=576 Timer1的属性如下:

Height=25 Interval=80 Left=456

Top=72 Width=25

Timer1的Timer事件如下:

if thisform.label1.left<100

thisform.label1.left=thisform.width-2

else

thisform.label1.left=thisform.left-220

endif

if thisform.label4.left<200

thisform.label4.left=thisform.width-2

else

thisform.label4.left=thisform.left-120

endif

毕业生基本信息查询(学生查询):

实现功能:进行毕业生基本信息查询。

该查询界面的数据环境为:毕业生基本信息表 Label1的属性如下: Backstyle=0-透明

Caption=毕业生基本信息查询 FontBold=.T. FontName=楷体 FontSize=35

Forecolor=255,0,0 Height=48

Left=96 Top=12 Width=444

Label2~Label15的属性如下: Backstyle=0-透明 Caption=各自的名称 FontBold=.F. FontName=宋体 FontSize=18

Forecolor=128,0,0 Height=25 Left=48 Width=96

Text1~Text14的属性如下: Enabled=.F. Height=25 Width=96

Text1的Init代码如下:

Go a

Line1的属性如下:

BackColor=0,0,128 BorderWith=3 Top=72

Width=624

“退出”按钮的代码如下: Release Thisform “退出”按钮的属性如下: Caption=退出 FontBold=.T.

FontName=微软雅黑 FontSize=12

FontColor=0,64,0 Height=25 Left=564 Top=36 Width=49

毕业生基本信息查询登录界面(教师查询)

实现功能:教师身份验证。

该登录界面的数据环境为:教师密码表 Form1的属性如下:

AutoCenter=.T. Height=390

Picture= d:\\photos\\getcawlr2cw.jpg TitleBar=0-关闭 Width=550

WindowType=1-模式 Form1的Init事件代码如下:

public i as integer

i=0

thisform.text1.setfocus thisform.left=300 thisform.top=80 Label1的属性如下: Backstyle=0-透明

Caption=毕业生基本信息查询 FontBold=.T. FontName=楷体 FontSize=30


VFP程序设计实习报告(4).doc 将本文的Word文档下载到电脑 下载失败或者文档不完整,请联系客服人员解决!

下一篇:关于Java您不知道的5件事

相关阅读
本类排行
× 注册会员免费下载(下载后可以自由复制和排版)

马上注册会员

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: