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