档案管理系统 第12页
3.14档案分布窗口
档案分布窗口以统计图的方式用来显示档案在各部门之间的分布结果。首先，根据需要建立数据窗口对象。
d_fbt：用来统计各部门拥有的档案数量，选择Graph风格的数据窗口，Categor用编制部门（bzbm）, Value 设为count(bzbm for graph)。
档案分布窗口中放置一个数据窗口控件用于放置数据窗口对象。如图17所示。
在统计窗口的Open事件中加入如下脚本：
//为数据窗口分配事务对象，并检索数据
dw_st.SetTransObject (SQLCA)
dw_st.Retrieve()
st_1.text=string(today(),"yyyy/mm/dd")
图17 各部门档案分布图
档案按保管期限分布窗口与按各部门分布窗口，大部分功能都相同，不重复介绍如图18所示。
图18 档案按保管期限分布情况图
3.15文件操作窗口
文件操作窗口主要涉及到借阅文件的转出与转入，当文件被借出时，打开转出文件窗口，如图19所示。当文件归还后，打开转入窗口并输入归还时间，如图20所示。
该窗口包含的主要对象有：一个列表框（ddlb_1），用来显示要转出（转入）文件的题名；两个按钮，“转出”（“转入”）按钮实施转出（转入）功能，“取消”按钮关闭窗口。
文件转出窗口的转出按钮的Clicked事件中加入如下脚本：
string tm
declare mycursor cursor for
select tm
from jy;
open mycursor;
if sqlca.sqlcode<0 then
messagebox("数据库错","游标无法打开")
return
end if
fetch mycursor into :tm;
do while sqlca.sqlcode=0
lb_1.additem(tm)
fetch mycursor into :tm;
loop
close mycursor;
在窗口的取消按钮的Clicked事件中加入如下脚本：
Close(Parent)
图19 文件转出窗口
图20 文件转入窗口
文件转入窗口的转入按钮的Clicked事件中加入如下脚本：
string tm
declare mycursor cursor for
select tm
from jy;
open mycursor;
if sqlca.sqlcode<0 then
messagebox("数据库错","游标无法打开")
return
end if
fetch mycursor into :tm;
do while sqlca.sqlcode=0
lb_1.deleteitem(1)
fetch mycursor into :tm;
loop
close mycursor;
在窗口的取消按钮的Clicked事件中加入如下脚本：
Close(Parent)
<< 上一页 [11] [12] [13] 下一页
档案管理系统 第12页下载如图片无法显示或论文不完整，请联系qq752018766
