PB图书管理系统设计 第10页
        图5.2
功能介绍：打开各功能窗口
操作方法：点击菜单项或工具栏上相应的按钮，状态栏可显示帮助信息。
代码分析：每个相应的菜单项的clicked事件都使用opensheet方法来打开相应的功能窗口，如“新书入库”的菜单项下的 clicked事件的处理代码为：
opensheet(w_newbook,"w_newbook",parentwindow,0,cascaded!)
（4）新书入库窗口 w_newbook
                               图5.3
功能介绍：增加、修改图书信息。
操作方法：a.增加图书信息：点击“新增”按钮，添加图书信息，完成后点击“保存”按钮
          b.修改图书信息：通过“图书编号”检索出图书信息，修改后点击“保存”按钮
代码分析：
Open事件：dw_1.settransobject(sqlca) //为数据窗口指定事务对象
dw_1.retrieve()//为数据窗口从数据库中获得数据
this.width=2926 //设置窗口的高度和宽度
this.height=1572
“检索”按钮：string ls_bookid,ls_filter
ls_bookid=sle_bookid.text
dw_1.setfilter("bookid='"+ls_bookid+"'")//设置过滤条件
dw_1.filter()//过滤数据
“上一条”按钮：dw_1.scrollpriorrow()//滚动到上一行
“下一条”按钮：dw_1.scrollnextrow()//滚动到下一行
“新增”按钮：long ll_row
ll_row=dw_1.insertrow(0) //在数据窗口中增加一行
dw_1.scrolltorow(ll_row) //数据窗口滚动到当前行
dw_1.setcolumn(2) //使第一列为当前列，并得到焦点
dw_1.setfocus()
“保存”按钮：long ll_row
dw_1.accepttext()//将数据写入主缓冲区
if dw_1.modifiedcount()>0 then //检测数据是否被修改
 if dw_1.update()>0 then //如果被修改则更新数据库
  commit; //提交事务
  cb_new.setfocus()//“新增”按钮获得焦点
 else
  rollback; //回滚事务
messagebox("系统提示","保存失败！请检验数据的正确性")
  dw_1.setcolumn(1) //数据窗口第一列获得焦点
  dw_1.setfocus()
 end if
else
 cb_new.setfocus()//“新增”按钮获得焦点
end if
（5） 旧书销毁窗口 w_delbook
                          图5.4
功能介绍：删除图书信息。
操作方法：首先通过图书编号检索出图书信息，然后点击“销毁”按钮注销图书。
代码分析：
Open事件：类同“新书入库窗口w_newbook”
“检索”按钮：string ls_bookid,ls_filter
ls_bookid=sle_bookid.text//设置过滤条件
dw_1.setfilter("bookid='"+ls_bookid+"'")//过滤数据
dw_1.filter()//使“销毁”按钮可用
cb_del.enabled=true
sle_bookid.setfocus()
“销毁”按钮：long li_row
li_row=dw_1.getrow()//得到当前行号
if li_row>0 then//判断是否有可删除的行
if messagebox('删除询问','真的要注销此书吗？',question!,Yesno!,2)=1 then
  dw_1.deleterow(li_row) //删除行
  if dw_1.update()>0 then//更新数据库
   commit;
  else
   rollback;
   messagebox("错误提示","无法注销！")
  end if
 li_row=dw_1.getrow()//得到当前行
 if li_row<dw_1.rowcount() then//判断是否至少有两行存在
  dw_1.selectrow(0,false) //高亮显示当前行
  dw_1.selectrow(li_row,true)
 end if
end if
else
 messagebox("系统提示","没有要注销的数据")
end if
cb_del.enabled=false//使“销毁”按钮恢复不可用状态

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>