PB家庭图书管理系统 第14页
图书查询窗口脚本：
sle_1.text=""
sle_2.text=""
sle_3.text=""
sle_4.text=""
sle_6.text=""
sle_7.text=""
SELECT "tushu"."bookname",
"tushu"."bookno",
"tushu"."zuozhe",
"tushu"."wenxianleixing",
"tushu"."weizhi",
"tushu"."isbn"
INTO :sle_1.text,
:sle_4.text,
:sle_2.text,
:sle_3.text,
:sle_6.text,
:sle_7.text
FROM "tushu"
WHERE "tushu"."bookname" = :sle_5.text
;
if sle_1.text="" then
sle_1.text="无此书"
end if
登陆窗口脚本：
string password="hjsfdjayewhr"
select password.password
into :password
from password
where password.id=:sle_1.text;
if password=sle_2.text then
open(w_main)
else
messagebox("提示信息","错误密码!")
end if
close(w_login)
图书浏览窗口脚本：
w_luilan_1.dw_1.accepttext()
integer li_rtn
if w_luilan_1.dw_1.modifiedcount() > 0 then
li_rtn = messagebox('提示信息','保存数据吗?',question!,yesno!,1)
else
close(w_luilan_1)
return
end if
if li_rtn=1 then
cb_3.TriggerEvent(clicked!)
close(w_luilan_1)
elseif li_rtn=2 then
close(w_luilan_1)
end if
录入书籍窗口脚本：
w_luru_1.dw_1.accepttext()
integer li_rtn
if w_luru_1.dw_1.modifiedcount() > 0 then
li_rtn = messagebox('提示信息','保存数据吗?',question!,yesno!,1)
else
close(w_luru_1)
return
end if
if li_rtn=1 then
cb_3.TriggerEvent(clicked!)
close(w_luru_1)
elseif li_rtn=2 then
close(w_luru_1)
end if
录入按扭脚本：
long ll_current_row
string ls_wire_name
ll_current_row = parent.dw_1.insertrow(0)
parent.dw_1.scrolltorow(ll_current_row)
parent.dw_1.setcolumn(1)
parent.dw_1.setfocus()
图书数据存取窗口脚本：
dw_1.settransobject(sqlca)
dw_1.retrieve()
dw_2.settransobject(sqlca)
dw_2.retrieve()
integer li_row,li_cnt
li_row=dw_2.rowcount()
//逐条删除记录
for li_cnt=1 to li_row
dw_2.deleterow(1)
next
dw_2.update()
图书数据备份按扭脚本：
string pname,fname
integer li_rtn,li_save
//获取存储文件名
li_rtn=GetFileSaveName("请输入保存的文件名",pname,fname,"TXT","Text Files(*.txt),*.txt")
if li_rtn=1 then
li_save=dw_1.saveas(pname,text!,false)
if li_save=1 then
messagebox("成功","存储文件成功")
end if
end if
图书数据读取按扭脚本：
string pname,fname
integer li_rtn,li_count
li_rtn=GetFileOpenName("请选择导入的文件",pname,fname,"TXT","Text Files(*.txt),*.txt")
if li_rtn=1 then
li_count=dw_2.importfile("g:\yg\yg.txt")
if li_count>0 then
sle_1.text=string(li_count)
dw_2.update()
else
messagebox("错误","导入文件错误")
end if
end if
<< 上一页 [11] [12] [13] [14] [15] 下一页