该录入界面的数据环境为:毕业生基本信息表 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