小房子配置开发实例-IT资产管理(资产类管理)--开发设计过程
小房子(Houselet)作为一个集开发和应用为一体的管理软件平台，通过数据库配置开发的方式来开发管理系统；目的在于辅助企业低成本快速建设管理系统。且系统为开放的，随时可以维护升级的，随企业管理的需要而改变、进化的管理系统,使之真正成为企业发展的生产力，在以下的几个章节中，我们用几个实例系统来展示。
IT资产管理 通过对企业内部计算机,网络设备的,入库，出库，维修，维护，报废等 生命周期的数据管理，及耗材的使用管理，来达到企业IT资产成本控制的管理目的,
此案例模版适应于所有 以固定管理对象为中心的管理系统，如员工管理(档案),车间设备运维,医疗设备运维，车辆运维管理，项目管理,合同管理等...
6.1.系统准备
1).HouseletLive(小房子系统客户端)
2).xfzAppserver(小房子应用服务器).
3).firebird(火鸟数据库)
说明: 小房子支持数据库包括
(Access,Mssql,Mysql,Oracle,postgreSQL,firebird,DB2,ASE,SQLite,InterBase)
系统功能划分：
A.设备管理
B.耗材管理
C.统计查询
D.成本分析
E.基础项目维护
F.系统开发
6.2.基础项目开发
本模块主要维护系统应用的基础数据和设置,包括工作人员信息,部门信息,基础项目信息，外部单位信息，耗材信息.
这一部分功能对所有管理系统基本是通用的,可以根据需求不同在配置中更改对应的含义.
1).相关单位信息维护
字典配置
字典配置中 在编辑区域显示为可编辑的字段列 在配置 启用和显示 为1 后 标识0 属性 也要配置为1
树对应的视图：
CREATE OR ALTER VIEW V_YW_ITEM_06(
XM_CODE,
XM_NAME,
XM_PY,
XM_ZFCODE,
XM_ZFNAME,
XM_XFCODE,
XM_XFNAME)
AS
select yw_03 as Xm_code,yw_04 as Xm_name,yw_05 as Xm_py,yw_31 as Xm_zfcode,yw_32 as Xm_zfname,
yw_33 as Xm_xfcode,yw_34 as Xm_xfname from tb_yw_item_06 order by yw_id
;
b.保存按钮 执行后 执行的存储 生成分类编码 (这个功能类似 数据库中提交后的 触发器)
这是一个 tb_yw_item_01 -- tb_yw_item_06 的通用编码存储，可以根据需要扩展,方便系统改造和快速升级.
create or alter procedure PRO_YW_ITEM_CREATECODE (
IN_SPARIN0 ),
IN_SPARIN1 ),
IN_SPARIN2 ),
IN_SPARIN3 ),
IN_SPARIN4 ),
IN_SPARIN5 ),
IN_SPARIN6 ),
IN_SPARIN7 ),
IN_SPARIN8 ),
IN_SPARIN9 ),
IN_IPARIN0 integer,
IN_IPARIN1 integer,
IN_IPARIN2 integer,
IN_IPARIN3 integer,
IN_IPARIN4 integer)
returns (
OUTINT integer,
OUTSTR ),
OUTMESSAGE ))
as
);
);
);
);
declare variable P_TMPNUM integer;
declare variable P_ID integer;
begin
/* 创建项目编码的 */
/*in_sparin1,
in_sparin8 usercode
in_sparin9 clientcode
in_iparin0 类别参数*/
p_tmplbcode ='';
) then --TB_yw_item_01
Begin
for
select yw_32 from TB_yw_item_01 where ((yw_31 = '')or (yw_31 is null))
and (yw_32 is not null) and (yw_32 <>'') group by yw_32 into :p_lbname
do
begin
select max(yw_31) from TB_yw_item_01 where yw_32 =:p_lbname into :p_tmplbcode ;
if ((p_tmplbcode = '') or (p_tmplbcode is null)) then
begin
select max(yw_31) from TB_yw_item_01 into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ' ;
end
else
begin
p_tmpnum = cast(p_tmplbcode as integer);
p_tmpnum ;
p_tmplbcode ));
end
end
if (p_tmplbcode <>'') then
update TB_yw_item_01 set yw_31 =: p_tmplbcode where yw_32 =:p_lbname;
end
p_tmplbcode =''; --计算细项分类的编码
p_lbcode='';
for
select yw_31,yw_34 from TB_yw_item_01 where ((yw_33 ='') or (yw_33 is null)) and (yw_34 is not null)
and (yw_31 is not null) and (yw_31 <>'')
group by yw_31,yw_34 into :p_lbcode,:p_mxlbname
do
begin
select max(yw_33) from TB_yw_item_01 where (yw_34 =:p_mxlbname) and (yw_31=:p_lbcode) into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
select max(yw_33) from TB_yw_item_01 where yw_31 =:p_lbcode into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ' ;
end
else
begin
p_tmpnum = cast(p_tmplbcode as integer);
p_tmpnum ;
p_tmplbcode ));
end
end
if (p_tmplbcode <> '') then
update TB_yw_item_01 set yw_33 =:p_tmplbcode where (yw_34 =:p_mxlbname) and ((yw_33 is null) or (yw_33 ='')) and (yw_31 =:p_lbcode) ;
end
p_tmplbcode =''; --计算项目的编码
for
select yw_id,yw_33 from TB_yw_item_01 where (yw_33 <>'') and (yw_33 is not null) and (yw_04 is not null) and (yw_04 <>'')
and ((yw_03 is null) or (yw_03=''))
order by yw_33,yw_id into :p_id,:p_lbcode
do
begin
select max(yw_03) from TB_yw_item_01 where yw_33 =:p_lbcode into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ';
end
else
begin
p_tmpnum ) as integer);
p_tmpnum ;
p_tmplbcode ));
end
if (p_tmplbcode <> '') then
update TB_yw_item_01 set yw_03 =:p_tmplbcode where yw_id =:p_id ;
end
Outstr='TB_yw_item_01' ;
End
) then --TB_yw_item_02
Begin
for
select yw_32 from TB_yw_item_02 where ((yw_31 = '')or (yw_31 is null))
and (yw_32 is not null) and (yw_32 <>'') group by yw_32 into :p_lbname
do
begin
select max(yw_31) from TB_yw_item_02 where yw_32 =:p_lbname into :p_tmplbcode ;
if ((p_tmplbcode = '') or (p_tmplbcode is null)) then
begin
select max(yw_31) from TB_yw_item_02 into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ' ;
end
else
begin
p_tmpnum = cast(p_tmplbcode as integer);
p_tmpnum ;
p_tmplbcode ));
end
end
if (p_tmplbcode <>'') then
update TB_yw_item_02 set yw_31 =: p_tmplbcode where yw_32 =:p_lbname;
end
p_tmplbcode =''; --计算细项分类的编码
p_lbcode='';
for
select yw_31,yw_34 from TB_yw_item_02 where ((yw_33 ='') or (yw_33 is null)) and (yw_34 is not null)
and (yw_31 is not null) and (yw_31 <>'')
group by yw_31,yw_34 into :p_lbcode,:p_mxlbname
do
begin
select max(yw_33) from TB_yw_item_02 where (yw_34 =:p_mxlbname) and (yw_31=:p_lbcode) into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
select max(yw_33) from TB_yw_item_02 where yw_31 =:p_lbcode into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ' ;
end
else
begin
p_tmpnum = cast(p_tmplbcode as integer);
p_tmpnum ;
p_tmplbcode ));
end
end
if (p_tmplbcode <> '') then
update TB_yw_item_02 set yw_33 =:p_tmplbcode where (yw_34 =:p_mxlbname) and ((yw_33 is null) or (yw_33 ='')) and (yw_31 =:p_lbcode) ;
end
p_tmplbcode =''; --计算项目的编码
for
select yw_id,yw_33 from TB_yw_item_02 where (yw_33 <>'') and (yw_33 is not null) and (yw_04 is not null) and (yw_04 <>'')
and ((yw_03 is null) or (yw_03=''))
order by yw_33,yw_id into :p_id,:p_lbcode
do
begin
select max(yw_03) from TB_yw_item_02 where yw_33 =:p_lbcode into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ';
end
else
begin
p_tmpnum ) as integer);
p_tmpnum ;
p_tmplbcode ));
end
if (p_tmplbcode <> '') then
update TB_yw_item_02 set yw_03 =:p_tmplbcode where yw_id =:p_id ;
end
Outstr='TB_yw_item_02' ;
End
) then --TB_yw_item_03
Begin
for
select yw_32 from TB_yw_item_03 where ((yw_31 = '')or (yw_31 is null))
and (yw_32 is not null) and (yw_32 <>'') group by yw_32 into :p_lbname
do
begin
select max(yw_31) from TB_yw_item_03 where yw_32 =:p_lbname into :p_tmplbcode ;
if ((p_tmplbcode = '') or (p_tmplbcode is null)) then
begin
select max(yw_31) from TB_yw_item_03 into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ' ;
end
else
begin
p_tmpnum = cast(p_tmplbcode as integer);
p_tmpnum ;
p_tmplbcode ));
end
end
if (p_tmplbcode <>'') then
update TB_yw_item_03 set yw_31 =: p_tmplbcode where yw_32 =:p_lbname;
end
p_tmplbcode =''; --计算细项分类的编码
p_lbcode='';
for
select yw_31,yw_34 from TB_yw_item_03 where ((yw_33 ='') or (yw_33 is null)) and (yw_34 is not null)
and (yw_31 is not null) and (yw_31 <>'')
group by yw_31,yw_34 into :p_lbcode,:p_mxlbname
do
begin
select max(yw_33) from TB_yw_item_03 where (yw_34 =:p_mxlbname) and (yw_31=:p_lbcode) into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
select max(yw_33) from TB_yw_item_03 where yw_31 =:p_lbcode into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ' ;
end
else
begin
p_tmpnum = cast(p_tmplbcode as integer);
p_tmpnum ;
p_tmplbcode ));
end
end
if (p_tmplbcode <> '') then
update TB_yw_item_03 set yw_33 =:p_tmplbcode where (yw_34 =:p_mxlbname) and ((yw_33 is null) or (yw_33 ='')) and (yw_31 =:p_lbcode) ;
end
p_tmplbcode =''; --计算项目的编码
for
select yw_id,yw_33 from TB_yw_item_03 where (yw_33 <>'') and (yw_33 is not null) and (yw_04 is not null) and (yw_04 <>'')
and ((yw_03 is null) or (yw_03=''))
order by yw_33,yw_id into :p_id,:p_lbcode
do
begin
select max(yw_03) from TB_yw_item_03 where yw_33 =:p_lbcode into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ';
end
else
begin
p_tmpnum ) as integer);
p_tmpnum ;
p_tmplbcode ));
end
if (p_tmplbcode <> '') then
update TB_yw_item_03 set yw_03 =:p_tmplbcode where yw_id =:p_id ;
end
Outstr='TB_yw_item_03' ;
End
) then --TB_yw_item_04
Begin
for
select yw_32 from TB_yw_item_04 where ((yw_31 = '')or (yw_31 is null))
and (yw_32 is not null) and (yw_32 <>'') group by yw_32 into :p_lbname
do
begin
select max(yw_31) from TB_yw_item_04 where yw_32 =:p_lbname into :p_tmplbcode ;
if ((p_tmplbcode = '') or (p_tmplbcode is null)) then
begin
select max(yw_31) from TB_yw_item_04 into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ' ;
end
else
begin
p_tmpnum = cast(p_tmplbcode as integer);
p_tmpnum ;
p_tmplbcode ));
end
end
if (p_tmplbcode <>'') then
update TB_yw_item_04 set yw_31 =: p_tmplbcode where yw_32 =:p_lbname;
end
p_tmplbcode =''; --计算细项分类的编码
p_lbcode='';
for
select yw_31,yw_34 from TB_yw_item_04 where ((yw_33 ='') or (yw_33 is null)) and (yw_34 is not null)
and (yw_31 is not null) and (yw_31 <>'')
group by yw_31,yw_34 into :p_lbcode,:p_mxlbname
do
begin
select max(yw_33) from TB_yw_item_04 where (yw_34 =:p_mxlbname) and (yw_31=:p_lbcode) into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
select max(yw_33) from TB_yw_item_04 where yw_31 =:p_lbcode into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ' ;
end
else
begin
p_tmpnum = cast(p_tmplbcode as integer);
p_tmpnum ;
p_tmplbcode ));
end
end
if (p_tmplbcode <> '') then
update TB_yw_item_04 set yw_33 =:p_tmplbcode where (yw_34 =:p_mxlbname) and ((yw_33 is null) or (yw_33 ='')) and (yw_31 =:p_lbcode) ;
end
p_tmplbcode =''; --计算项目的编码
for
select yw_id,yw_33 from TB_yw_item_04 where (yw_33 <>'') and (yw_33 is not null) and (yw_04 is not null) and (yw_04 <>'')
and ((yw_03 is null) or (yw_03=''))
order by yw_33,yw_id into :p_id,:p_lbcode
do
begin
select max(yw_03) from TB_yw_item_04 where yw_33 =:p_lbcode into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ';
end
else
begin
p_tmpnum ) as integer);
p_tmpnum ;
p_tmplbcode ));
end
if (p_tmplbcode <> '') then
update TB_yw_item_04 set yw_03 =:p_tmplbcode where yw_id =:p_id ;
end
Outstr='TB_yw_item_04';
End
) then --TB_yw_item_05
Begin
for
select yw_32 from TB_yw_item_05 where ((yw_31 = '')or (yw_31 is null))
and (yw_32 is not null) and (yw_32 <>'') group by yw_32 into :p_lbname
do
begin
select max(yw_31) from TB_yw_item_05 where yw_32 =:p_lbname into :p_tmplbcode ;
if ((p_tmplbcode = '') or (p_tmplbcode is null)) then
begin
select max(yw_31) from TB_yw_item_05 into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ' ;
end
else
begin
p_tmpnum = cast(p_tmplbcode as integer);
p_tmpnum ;
p_tmplbcode ));
end
end
if (p_tmplbcode <>'') then
update TB_yw_item_05 set yw_31 =: p_tmplbcode where yw_32 =:p_lbname;
end
p_tmplbcode =''; --计算细项分类的编码
p_lbcode='';
for
select yw_31,yw_34 from TB_yw_item_05 where ((yw_33 ='') or (yw_33 is null)) and (yw_34 is not null)
and (yw_31 is not null) and (yw_31 <>'')
group by yw_31,yw_34 into :p_lbcode,:p_mxlbname
do
begin
select max(yw_33) from TB_yw_item_05 where (yw_34 =:p_mxlbname) and (yw_31=:p_lbcode) into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
select max(yw_33) from TB_yw_item_05 where yw_31 =:p_lbcode into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ' ;
end
else
begin
p_tmpnum = cast(p_tmplbcode as integer);
p_tmpnum ;
p_tmplbcode ));
end
end
if (p_tmplbcode <> '') then
update TB_yw_item_05 set yw_33 =:p_tmplbcode where (yw_34 =:p_mxlbname) and ((yw_33 is null) or (yw_33 ='')) and (yw_31 =:p_lbcode) ;
end
p_tmplbcode =''; --计算项目的编码
for
select yw_id,yw_33 from TB_yw_item_05 where (yw_33 <>'') and (yw_33 is not null) and (yw_04 is not null) and (yw_04 <>'')
and ((yw_03 is null) or (yw_03=''))
order by yw_33,yw_id into :p_id,:p_lbcode
do
begin
select max(yw_03) from TB_yw_item_05 where yw_33 =:p_lbcode into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ';
end
else
begin
p_tmpnum ) as integer);
p_tmpnum ;
p_tmplbcode ));
end
if (p_tmplbcode <> '') then
update TB_yw_item_05 set yw_03 =:p_tmplbcode where yw_id =:p_id ;
end
Outstr='TB_yw_item_05';
End
) then --TB_yw_item_06
Begin
for
select yw_32 from TB_yw_item_06 where ((yw_31 = '')or (yw_31 is null))
and (yw_32 is not null) and (yw_32 <>'') group by yw_32 into :p_lbname
do
begin
select max(yw_31) from TB_yw_item_06 where yw_32 =:p_lbname into :p_tmplbcode ;
if ((p_tmplbcode = '') or (p_tmplbcode is null)) then
begin
select max(yw_31) from TB_yw_item_06 into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ' ;
end
else
begin
p_tmpnum = cast(p_tmplbcode as integer);
p_tmpnum ;
p_tmplbcode ));
end
end
if (p_tmplbcode <>'') then
update TB_yw_item_06 set yw_31 =: p_tmplbcode where yw_32 =:p_lbname;
end
p_tmplbcode =''; --计算细项分类的编码
p_lbcode='';
for
select yw_31,yw_34 from TB_yw_item_06 where ((yw_33 ='') or (yw_33 is null)) and (yw_34 is not null)
and (yw_31 is not null) and (yw_31 <>'')
group by yw_31,yw_34 into :p_lbcode,:p_mxlbname
do
begin
select max(yw_33) from TB_yw_item_06 where (yw_34 =:p_mxlbname) and (yw_31=:p_lbcode) into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
select max(yw_33) from TB_yw_item_06 where yw_31 =:p_lbcode into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ' ;
end
else
begin
p_tmpnum = cast(p_tmplbcode as integer);
p_tmpnum ;
p_tmplbcode ));
end
end
if (p_tmplbcode <> '') then
update TB_yw_item_06 set yw_33 =:p_tmplbcode where (yw_34 =:p_mxlbname) and ((yw_33 is null) or (yw_33 ='')) and (yw_31 =:p_lbcode) ;
end
p_tmplbcode =''; --计算项目的编码
for
select yw_id,yw_33 from TB_yw_item_06 where (yw_33 <>'') and (yw_33 is not null) and (yw_04 is not null) and (yw_04 <>'')
and ((yw_03 is null) or (yw_03=''))
order by yw_33,yw_id into :p_id,:p_lbcode
do
begin
select max(yw_03) from TB_yw_item_06 where yw_33 =:p_lbcode into :p_tmplbcode;
if ((p_tmplbcode ='') or (p_tmplbcode is null)) then
begin
p_tmplbcode ';
end
else
begin
p_tmpnum ) as integer);
p_tmpnum ;
p_tmplbcode ));
end
if (p_tmplbcode <> '') then
update TB_yw_item_06 set yw_03 =:p_tmplbcode where yw_id =:p_id ;
end
Outstr='TB_yw_item_06' ;
End
OutInt ;
-- OutStr = in_iparin1;
OutMessage ='这是存储返回消息';
suspend;
End
基础项目中其他菜单功能 和 相关单位信息维护 功能一样
|
工作人员信息 |
TB_yw_item_02 |
BASE |
|
部门信息维护 |
TB_yw_item_03 |
BASE |
|
耗材信息维护 |
TB_yw_item_04 |
BASE |
|
基础项目维护 |
TB_yw_item_05 |
BASE |
6.3.设备管理
1).设备入库(采购)
设备采购入库功能 业务表 和 设备管理中心表设计为一个表，记录设备信息和 设备动态变化信息，所以这个表设计预留字段长一些，初步设计为170个字段
A.字典设置：
.菜单配置
C.设备入库功能覆盖两个功能: 新设备的入库维护，老设备或初始入库，
企业设备信息在初始盘点的时候一般在Excel文档中或者盘点人员把数据整理到Excel文件中，小房子系统每个页面均支持Excel数据粘贴导入 和 复制导出功能,这样有利于快速初始化数据.
1).设备管理中心
设备管理中心围绕设备信息 实现对设备的 维护，维修，调配，报废 的动态管理
A.菜单配置
B.字典功能配置
此页面的 维护，维修，调配，报废功能在数据字典中配置，主要展示数据表格内调用菜单的功能
以 调配功能实现说明：在设备管理中心页面数据编辑区域点击 调配 button 弹出设备调配信息维护菜单页面，录入调配信息 并保存，保存记录该设备调配流水记录 并且在保存后执行存储 更新设备信息中该设备 关于调配的记录
C.调配 调出功能菜单 设备调配 的配置 在设备调配保存后更新 设备信息表中调配信息为最新状态，方便设备管理中心实时展现设备调配状态.
1).设备使用情况查询
设备使用情况查询 以设备当前状态为主数据加上其他变动信息明细的主从数据查询 页面采用FCL
A.主表 数据字典配置如下：
菜单功能配置
重点 主表和明细表 数据的关联关系配置
4).报废设备查询
报废设备查询配置过程完全拷贝 设备使用情况查询 菜单功能，所不同的是在主表数据 查询中加入了 作废的条件
6.4.耗材管理
耗材管理 实现IT设备耗材的 入，出库 管理. 主要分为两类功能：入，出 库 信息采集(登记), 入，出 库信息 查询修改.
1)..耗材入库(采购)
菜单功能实现 入库信息的快速录入(采集) 菜单中页面类型采用Fyw5 类型,此菜单灵活采集数据的功能主要在字典中配置，菜单配置比较简单 我们先配置
- 菜单配置
- 字典配置
采购人、库管人、耗材名称 弹出检索信息配置 和供应商 的配置属性一直，对应的数据源表和条件不同.
2) .耗材入库流水查询（带修改 和 删除 功能）
功能性能：实现耗材入库记录信息的流水查询功能 和修改删除功能
- 菜单配置
- 字典配置
修改 button 打开的菜单可以配置为 不启用.
耗材出库管理
耗材出库功能从配置开发角度看 和 耗材入库功能一致，把入库功能 改变一个数据存储表
即可实现，字典内容可根据出库业务需求做适当调整.
此功能配置仿照 入库配置 不在赘述
4..统计分析
统计分析几个菜单的功能 主要演示 Fcxcl 页面 视图查询功能,存储查询功能，交叉表统计功能
1).设备分类使用统计
实现 按部门 设备类型分类的 综合统计 配置视图实现此功能
- 视图
CREATE OR ALTER VIEW V_YW_SBFB_SY_HZ( YW_01, YW_02, YW_03, YW_04, YW_05, YW_06, YW_08, YW_10, YW_11, YW_12, YW_13, YW_14, YW_15, YW_16, YW_19) AS select max(yw_031) as yw_01,max(yw_032) as yw_02,yw_033 as yw_03,yw_034 as yw_04,yw_057 as yw_05, yw_058 )) )) as yw_10, )) )) as yw_12, max(EXTRACT(year from current_date) - Extract(year from yw_020) )as yw_13, end ) as yw_14,sum(yw_097) as yw_15,sum(yw_016) as yw_16, sum(yw_096) as yw_19 from tb_yw_long_01 group by yw_033,yw_034,yw_057,yw_058 order by yw_033 ;B.字典配置
字典配置列要和 视图输出字段
菜单配置
2) .耗材出入库统计
执行一个存储统计一段期间内耗材的采购入库，出库，库存等情况.
- 菜单配置
字典配置，此处字典中配置的表可以为实表也可以为虚表，因为数据是从执行存储中返回的
2) .分部门耗材消耗统计
执行交叉表存储，统计按部门领用的耗材数据
小房子配置开发实例-IT资产管理(资产类管理)--开发设计过程的更多相关文章
- RDIFramework.NET -.NET快速信息化系统开发整合框架 【开发实例 EasyUI】之产品管理（WebForm版）
RDIFramework.NET—.NET快速开发整合框架 [开发实例]之产品管理(WebForm版) 接上篇:RDIFramework.NET (.NET快速信息化系统开发整合框架) [开发实例]之 ...
- RDIFramework.NET-.NET快速信息化系统开发整合框架 【开发实例 EasyUI】之产品管理（MVC版）
RDIFramework.NET—.NET快速开发整合框架 [开发实例]之产品管理(MVC版) 接上篇:RDIFramework.NET (.NET快速信息化系统开发整合框架) [开发实例]之产品管理 ...
- Ext JS 6开发实例（三） ：主界面设计
在上文中,已经将CMD创建的应用程序导入到项目里了,而且也看到默认的主界面了,今天的主要工作就是修改这个主界面,以符合项目的需要.除了设计主界面,还有一些其他的东西需要配置一下. 添加本地化包 打开a ...
- 安装Nginx+Lua+OpenResty开发环境配置全过程实例
安装Nginx+Lua+OpenResty开发环境配置全过程实例 OpenResty由Nginx核心加很多第三方模块组成,默认集成了Lua开发环境,使得Nginx可以作为一个Web Server使用. ...
- 第六章 “我要点爆”微信小程序云开发实例之爆文详情页制作
爆文详情页制作 从首页中数据列表打开相应详情页面的方法: 给数据列表中每个数据项加一个点击事件,同时将当前数据项的id暂时记录在本地,然后跳转到详情页面detail goopen: function ...
- android widget 开发实例 : 桌面便签程序的实现具体解释和源代码 （上）
如有错漏请不吝拍砖指正,转载请注明出处,很感谢 桌面便签软件是android上经常使用软件的一种,比方比較早的Sticky Note,就曾很流行, Sticky Note的介绍能够參见 http:// ...
- NDK 开发实例二（添加 Eigen库）
上一篇,我已经阐述了如何创建一个简单的NDK实例: NDK 开发实例一(Android.mk环境配置下) 在上一篇的基础上,我们来添加Eigen库,然后做一个简单实例. Eigen是一个高层次的C + ...
- 【推荐图书】+ 基于Nios II的嵌入式SoPC系统设计与Verilog开发实例+C#入门经典等
[推荐图书]+ 基于Nios II的嵌入式SoPC系统设计与Verilog开发实例+C#入门经典等 3赞 发表于 2016/7/4 21:14:12 阅读(1921) 评论(3) 初次接触FPGA,到 ...
- Ubuntu16.04安装Hadoop2.6+Spark1.6+开发实例
Ubuntu16.04安装Hadoop2.6+Spark1.6,并安装python开发工具Jupyter notebook,通过pyspark测试一个实例,調通整个Spark+hadoop伪分布式开发 ...
随机推荐
- event.stopPropagation()、event.preventDefault()与return false的区别
做小demo时经常用到return false来取消默认事件,但一直不是很懂它和preventDefault()等的区别,今天查了查文档和大神们的博客,在这里对相关知识点做一个总结 首先开门见山,总结 ...
- 基于API和SQL的基本操作【DataFrame】
写在前面: 当得到一个DataFrame对象之后,可以使用对象提供的各种API方法进行直接调用,进行数据的处理. // =====基于dataframe的API=======之后的就都是DataFra ...
- Android类似日历的翻转控件
最近写了个翻转面板的控件拿出来与大家分享一下,类似日历的那种,写的比较简单有需要的可以直接拿去用.直接上效果图吧,代码我放在百度云了,有问题的话直接回复就好呢,大家一起交流下. http://pan. ...
- C/C++ 中带空格字符串输入的一些小trick
今天在重温 C++ 的时候发现自己存在的一些问题,特此记录下来. 我们可以看一下下面这段代码: #include <iostream> #include <cstdio> #i ...
- 获取配置文件中key=value
之前一直是写一个方法获取配置文件中的key=value值得,现在提供更简单的. ResourceBundle 是java.utl中的一个专门针对.properties文件的. //获取配置文件对象 R ...
- layload.js的使用
网上有人反映说lazyload只是效果好看并没有实现真正的懒加载,在后台仍然是把页面上的所有图片下了一遍,只不过是先把图片隐藏并在窗口向下滚动时再逐一显示出来罢了.lazyloag3经测试这个问题已经 ...
- QR 码详解（上）
关于二维码,我查了下资料,现在基本都在用日本的 QR 码,PDF417以及汉信码日常基本看不到.原因在于各方面来说,的确是 QR 码最为优秀.所以我准备写一篇介绍 QR 码的文章,如果是写书,可能不方 ...
- [转] Julia 高性能动态编程语言入门
本文共 851字,阅读大约需要 3分钟 ! 概 述 Julia 是一个 "全新"的高性能动态编程语言,前两天迎来了其 1.0 正式版的重大更新.Julia集 Python.C.R. ...
- Android实现apk插件方式换肤
换肤思路: 1.什么时候换肤? xml加载前换肤,如果xml加载后换肤,用户将会看见换肤之前的色彩,用户体验不好. 2.皮肤是什么? 皮肤就是apk,是一个资源包,包含了颜色.图片等. 3.什么样的控 ...
- 两种高效的事件处理模型：Reactor模式和Proactor模式
随着IO多路复用技术的出现,出现了很多事件处理模式.同步I/O模型通常由Reactor模式实现,而异步I/O模型则由Proactor模式实现. Reactor模式: Reator类图如上所示,Reac ...