计算机
urn
endif
else
messagebox(无此证号
,请查看证号是否正确
?)
“”
thisform. text1. setfocus
return
endif
close all
close allcommand2的
click事件
:
thisform1. release
3131413 图书归还表单设计
功能要求
:图书管理人员能够方便的实现删除图书登
记。表单界面如图
3所示
:
图
3 图书归还表单
Form1的
init事件
:
thisform. width = 450
thisform. height = 400
command1的
click事件
:
. 1995-2005 Tsinghua Tongfang Optical Disc Co., Ltd. All rights reserved.
zh = trim(thisform. text1. value)
tm = trim(thisform. text2. value)
if len(zh) > 2
use读者信息
locate for alltrim(证号
) = =zh
if found()
num =当前借量
21
replace当前借量
with num
use借阅信息
locate for alltrim(读者证号
)=
码) = =tm
if found()
dele for alltrim(读者证号
)=
码) = =tm
pack
use
messagebox“(还书成功”
)
else
= zh and alltrim(图书条
= zh and alltrim(图书条
messagebox(图书号输入错误
,请重新输入
!”)
“
thisform. text2. setfocus
return
endif
else
messagebox“(证号错误
,重新输入”
)
thisform. text1. setfocus
return
endif
endif
thisform. releasecommand2的
click事件
:
thisform. release
3131414 图书借出表单设计
功能要求
:图书管理人员能够方便的实现图书借出登
记。表单界面如图
4所示
:
图
4 图书借出表单
Form1的
init事件
:
thisform. width = 450
thisform. height = 400
command1的
click事件
:
zh = trim(thisform. text1. value)
sh = trim(thisform.text2. value)
use读者信息
locate for alltrim(证号
) = =zh
if found()
2004年
3月第
3期
March12004 No.3
if当前借量
<4
num =当前借量
+1
replace当前借量
with num
use
insert into借阅信息
values(zh,sh,date () +30)
messagebox“(借阅成功
!”)
return
else
messagebox(当前借量必须小于
5”)
“
return
endif
else
messagebox (
“借阅失败
,请查看借书证号是否合
法
!”)
return■
endif
thisform. releasecommand2的
click事件