PB图书管理系统设计 第14页
“保存”按纽：类同“新书入库窗口w_newbook”
“删除”按纽：类同“旧书销毁窗口w_delbook”
（13 ）图书信息设置
图书分类设置窗口w_bookclass、出版社信息窗口w_pubinfo
 
图5.13
功能介绍：设置图书分类信息与出版社信息，同时可以对出版社信息进行查询
说明：设置“图书分类信息”是为了今后统计现有图书类型比例，设置“出版社信息”是为了今后查询出版社信息,同时在“新书入库”时方便相应项目的输入（下拉Datawindow）
代码分析：略
（14 ）借阅规则设置窗口
 w_regular                                   
图5.14
功能介绍：设置罚金规则
操作方法：填写“免费使用天数”、“罚金费率”，点击“启用规则”开启或关闭此项规则，点击“确定”实施规则。
代码分析：
Open事件：int li_days
dec ld_fine
char lc_flag
//查询“免费天数”、“罚金”、“启用开关”
select Days,fine,flag
into :li_days,:ld_fine,:lc_flag
from regular;
sle_days.text=string(li_days)
em_fine.text=string(ld_fine)
//判断是否启用设置，并表现出来
if lc_flag='y' then
 cbx_regular.checked=true
 sle_days.enabled=true
 em_fine.enabled=true
end if
this.width=1787
this.height=1120
“启用”复选框：if this.checked then
    sle_days.enabled=true
    em_fine.enabled=true
else
    sle_days.enabled=false
    em_fine.enabled=false
end if 
“确认”按纽：char lc_flag
int li_days
dec ld_fine
li_days=integer(sle_days.text)
ld_fine=dec(em_fine.text)
//判断是否启用规则
if cbx_regular.checked then
 if sle_days.text="" or isnull(sle_days.text) then
    messagebox("系统提示","请输入免费借阅天数！")
    sle_days.setfocus()
 return
   end if
   if em_fine.text=".00" or isnull(em_fine.text) then
    messagebox("系统提示","请输入罚金！")
    em_fine.setfocus()
 return
   end if
 //启用规则
 lc_flag='y'
else
 //关闭规则
 lc_flag='n'
end if
//更新规则
UPDATE regular SET Days=:li_days,fine=:ld_fine,Flag=:lc_flag;
close(parent)
“取消”按纽：close(parent)
7 补充说明
（1）窗口中的Tab顺序应符合实际操作习惯，并将合适的按钮设为default
（2）将“删除”按钮初始状态设为“非使能”，并在适当的时候通过程序使其“使能”，是为了防止误删。
（3）图书借阅与归还窗口中部分输入框设为DisplayOnly，仅做结果显示之用。“归还”
   窗口中“应付罚金”输入框的使能与否由该项规则是否“启用”来定。

 << 上一页  [11] [12] [13] [14] [15] 下一页