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

Forecolor=219,111,21 Height=37 Left=96 Top=24 Width=372 Label2的属性如下： Backstyle=0-透明 Caption=登录界面 FontBold=.T. FontName=楷体 FontSize=30

Forecolor=219,111,21 Height=37 Left=204 Top=72 Width=180

Label3的属性如下： Backstyle=0-透明 Caption=用户名 FontBold=.T. FontName=宋体 FontSize=23

Forecolor=255,255,0 Height=37 Left=36 Top=144 Width=97 Label4的属性如下： Backstyle=0-透明 Caption=密码 FontBold=.T. FontName=宋体 FontSize=23

Forecolor=255,255,0 Height=37 Left=36 Top=204 Width=97 Label5的属性如下： Backstyle=0-透明

Caption=请选择查询方式 FontBold=.T. FontName=宋体 FontSize=15 Forecolor=147,253,2 Height=24 Left=312 Top=144 Width=156 Text1的属性如下： Backstyle=0-透明 Height=24 Left=252 Top=168 Width=121 Text2的属性如下： Backstyle=0-透明 Height=24 Left=252 Top=228 Width=121

OptionGroup1的属性如下： Backstyle=0-透明 Height=48 Left=324 Top=180 Value=1 Width=120

Option1的属性如下： Backstyle=0-透明 Caption=单个浏览 FontBold=.T. FontName=宋体 FontSize=15

Forecolor=147,253,2 Height=20 Left=5 Top=5 Value=1 Width=115

Option2的属性如下： Backstyle=0-透明 Caption=全部浏览 FontBold=.T. FontName=宋体 FontSize=15

Forecolor=147,253,2 Height=20

Left=5 Top=28 Value=0 Width=115

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

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

locate for alltrim(教师密码表.用户名)==alltrim(thisform.text1.value)

if found() AND alltrim(教师密码表.用户名)==alltrim(thisform.text2.value) if

thisform .optiongroup1.option1.value=1 then do form 毕业生基本信息表单-教师.scx endif if

thisform .optiongroup1.option2.value=1 then do form 毕业生基本信息表单-js.scx endif

release thisform

else

if i<3 then

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

thisform.text2.setfocus else

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

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

“退出”按钮的Click事件代码如下： release thisform Shape1的属性如下： BackColor=255,0,0 Height=0 Left=0 Top=120 Width=564

毕业生基本信息查询（教师单个查询）

实现功能：对单个学生信息进行查询。

该查询界面的数据环境为：毕业生基本信息表 “首记录”按钮的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事件代码如下： Release thisform

Label1的属性如下： Alignment=2-中央

BackColor=255,255,255

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

Forecolor=255,255,0 Height=38 Left=0 Top=0 Width=600

毕业生基本信息查询（教师全部查询）

该查询界面的数据环境为：毕业生基本信息表 Label1的属性如下： Alignment=2-中央

BackColor=128,255,255

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

Forecolor=0,0,160 Height=72 Left=0 Top=0 Width=840

Grid1的属性如下： BackColor=128,255,0 ColumnCount=15

Forecolor=64,0,64 “退出”按钮的属性如下 Height=360 Caption=退出 Left=0 FontBold=.T. RowHeight=25 FontSize=20 Top=72 Forecolor=0,0,0 Width=840 Height=36

Left=372 Header1的属性如下：

Top=444 Caption=各列的列标题

Width=97 Text1的属性如下：

ControlSource=毕业生基本信息表.学号 “退出”按钮的代码如下：

Release Thisform ControlSource=毕业生基本信息表.姓名

······

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

毕业生基本信息维护系统登录界面：

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

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

AutoCenter=.T. Height=350

Picture= g:\\课程设计\\getcac1ldkh.jpg TitleBar=0-关闭 Width=557

Form1的Init事件代码如下：

public i as integer i=0

thisform.text1.setfocus thisform.left=420

thisform.top=120 Label1的属性如下： Backstyle=0-透明

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

Forecolor=255,255,0 Height=48 Left=96 Top=24 Width=372

Label2的属性如下： Backstyle=0-透明 Caption=登录界面 FontBold=.T. FontName=楷体 FontSize=30

Forecolor=255,255,0 Height=49 Left=204 Top=72 Width=168

Label3的属性如下： Backstyle=0-透明 Caption=用户名 FontBold=.T. FontName=宋体 FontSize=25

Forecolor=0,255,255 Height=36 Left=144 Top=156 Width=97 Label4的属性如下： Backstyle=0-透明 Caption=密码 FontBold=.T. FontName=宋体 FontSize=25

Forecolor=0,255,255 Height=37 Left=144 Top=216 Width=97

“登录”按钮的属性如下： Caption=登录 FontBold=.T. FontName=楷体 FontSize=20 Height=37 Left=132 Top=300 Width=84

“登录”按钮的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. FontName=楷体 FontSize=20 Height=37 Left=300 Top=300 Width=84

“退出”按钮的Click事件代码如下： release thisform Text1的属性如下： Backstyle=0-透明 Height=24 Left=252 Top=168 Width=121 Text2的属性如下： Backstyle=0-透明 Height=24 Left=252 Top=228 Width=121

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VFP程序设计实习报告(5)在线全文阅读。