分享到:
计算机软件 最近更新
讨论未来电商发展趋势论文提纲
浅谈自媒体对现代生活的影响
论文范文:网络发展对青少年心理发展的影响
论我国电子商务应用中的支付问题
电子商务模式研究
中小型企业客户关系管理系统的开发与应用
中石油浙江销售分公司信息管理系统设计
图书馆管理系统分析与设计
物流师职业资格认证报名管理系统
销售管理系统的开发与设计
酒店客房管理系统
财务管理系统的实现
餐饮管理系统设计与实现
社区卫生服务管理系统
汽车营销企业的客户关系管理系统
明道管理咨询有限公司客户关系管理系统设计与开发
企业订单管理系统开发
基于WEB的CRM信息系统的开发与研究
高校科研工作量统计系统的开发与设计
基于Struts的连锁店管理系统
财务管理系统的实现(2)
分页标题#e#
(5)财务信息查询统计功能:工作人员可以通过此功能完成财务信息的各类查询及统计,如按编号查询、按金额查询、按现金收入支出查询、当天销售统计、累计销售统计等功能。
3.3 性能需要分析
系统的运行对运行环境还有一些要求:
    1.硬件环境
处理器:Intel Pentium III或更高。
内存:  256M。
硬盘空间:10GB。
显卡:SVGA显示适配器。
2.软件环境
操作系统:Windows 90/Me/2000/XP
数据库:Access2000
3.4 本章小结
对于本系统的分析,需要查阅大量资料,由于未学过关于财务方面的课程,所以对于财务报表方面的知识,只是看了点皮毛而已。由于本系统为小系统,各种功能有所限制,所以最后才决定只需要实现最基本的5个功能:用户登陆功能、还原备份功能、用户管理功能、财务信息管理功能、财务信息查询统计功能。
我还对上面提出的5个功能模块进行了说明及功能描述,最后可以运行该系统的基本要求也进行了说明。
第4章 财务管理系统的实现
4.1软件流程图 

 

 

 

 


                       图4-1 软件流程图

 

4.2 分析与创建数据库
4.2.1 建立Caiwu数据库
  运行Microsoft公司的Office2000办公软件中的Access数据库软件。
1.系统会出现如下画面:

           图4-2 Access建立数据库
2.然后点击“空数据库”,在弹出的“文件新建数据库”对话框中键入数据库的名称,本软件中应写入caiwu.mdb。如下图所示:
 
图4-3 数据库建立
3.然后按下“创建”按钮,这时系统将会自动进入详细的数据库设计窗体。如下图所示:
 
图4-4 数据库设计窗口
在此选择“使用设计器”创建表。
4.2.2 建立“操作人员信息”表 Operator
其结构如下表所示:
表4-1 Operator说明
字段名称 数据类型 字段大小 说明
username 文本 12 用户名
userpwd 文本 12 密码
class 数字  用户类型
设计完成后,打开operator表,在其中输入原始记录。
4.2.3 建立“财务信息”表 xianjin

 

表4-2 xinjin说明
字段名称 数据类型 字段大小 说明
编号 文本 5 编号
现金流动原因 文本 50 现金流动原因
金额 数字  金额
日期 日期/时间  日期
时间 文本 20 时间
备注 备注  备注
4.3系统各模块的实现方法
4.3.1 用户登录管理模块的实现
1.界面设计
(1)在工程中新建一个窗体,命名为form1,保存在form1.pas源文件中。
在新制作的窗体中添加控件,并保存设置结果,结束登录窗体的制作。
(2)登录窗体的界面如下所示:
 
图4-5 软件登陆界面
(3)窗体中主要控件的属性设置及其主要功能如下表:
表4-3.主要控件属性及主要功能
控件类型 控件名称 主要属性 主要功能
tform From1 Postion=
poscreencenter 登录管理
Tcombobox cmbUsername text=’’ 用户名输入
tedit edtpassword text=’’ 密码输入
tbutton buttonok Caption=’确定’ 确认按钮
tbutton buttoncancel Caption=’退出’ 退出按钮

2.本模块的核心代码及解释(见附录一)
4.3.2 财务信息录入/财务信息查询统计页面的设计
1.界面设计:
(1) 在工程中新建一个窗体,命名为form3保存在form3.pas源文件中。
在新制作的窗体中添加控件,并保存设置结果,结束登录窗体的制作。
(2)制作完成后的窗体界面如下所示:
                        图4-6 软件窗体界面
2.本窗体的核心代码解释如下:
(1)增加记录:
adotable1.Edit;
adotable1.Append; //appedn为增加模式;
(2)删除记录:
if messagedlg('是否真的要删除记录?',mtinformation,[mbyes,mbno],0)=mryes then
adotable1.Delete;//询问是否要删除记录,当按下“确认”按钮时,系统才会删除记录。

(3)修改记录:
adotable1.Edit;
adotable1.Post;// 这是个关键按钮,将对数据修改的结果存入数据库!对数据库的任何修改,只有按了这一按钮后才真正将修改的结果存入数据库。
(4)第一条记录:
adotable1.First;
(5)最后一条记录:
adotable1.Last;
(6) 前一条记录:
adotable1.Prior;
(7) 后一条记录:
adotable1.next;
(8)本系统提供了多各查询方式,包括按编号查询、按金额查询、按现金收入支出查询等功能,同时还提供了模糊查询和组合查询功能,使得工作人员可以很轻松地自由组合查询方式,最大限度地提升工作效果。另外,在查询结束后系统还自动对查询出来的记录进行统计,自动计算出总的收入、支出以及盈亏。
“查询统计”模块的运行图如下所示:
                        图4-7 查询统计界面
i1:real;     //收入和
 i2:real;    //支出和
begin
 i1:=0;i2:=0;
 Query:= TADOQuery.Create(nil);
 Query.Connection := dmPer.acPer ;
 query.Close;
 query.sql.Clear;
 query.sql.add('select sum(金额) from xianjin where 现金流动原因="收入"');
 query.Open;
 i1:=query.fields[0].asfloat;
 edit1.text:=query.fields[0].asstring;
  query.Close;
 query.sql.Clear;
 query.sql.add('select sum(金额) from xianjin where 现金流动原因="支出"');
 query.Open;
 i2:=query.fields[0].asfloat;
 edit2.text:=query.fields[0].asstring;
 edit6.Text:=floattostr(i1-i2);
adoquery2.close;
adoquery2.Open;
end; 按下“查询”按钮后触发的事件代码如下:
procedure TForm3.Button9Click(Sender: TObject);
var qstr:string;
qstr2:string;
dbpath:string;
query:tadoquery;
i1:real;     //收入和
 i2:real;    //支出和
begin
dbpath:=extractfilepath(paramstr(0));
 w.ConnectionString:= 'provider=Microsoft.jet.oledb.4.0;'+'persist security info=false;'+'data source='+dbpath+'caiwu.mdb;'+'jet oledb:database password=200434';
if w.execute(true) then      //执行
 begin
   qstr:='select * from xianjin where '+w.queryterm ;   //查询语句
   //showmessage(qstr);       //显示查询语句
     with adoquery2 do
     begin
       close;
       sql.clear;
       sql.Add(qstr);   //运用adoquwry2的sql进行查询
       open;
     end;

 //下面得出所查记录收入的总和
 i1:=0;i2:=0;
 Query:= TADOQuery.Create(nil);
 Query.Connection := dmPer.acPer ;
 query.Close;
 query.sql.Clear;
 qstr2:='select sum(金额) from xianjin where '+ w.queryterm + ' and 现金流动原因="收入"';
 query.SQL.Add(qstr2);
 query.Open;
 if query.RecordCount<>0 then
 begin
 i1:=query.fields[0].AsFloat;
 edit3.text:=query.fields[0].asstring;
 end;

 //下面是得出支出的总和
 query.Close;
 query.sql.Clear;
 qstr2:='select sum(金额) from xianjin where '+ w.queryterm + ' and 现金流动原因="支出"';
 query.SQL.Add(qstr2);
 query.Open;

随机推荐
X皮鞋厂门户网站开发和设计
客户关系管理与数据挖掘技术综述
基于LINUX平台用电信息管理系统
浙江星奥消防工程有限公司客户管理系统开发与实现
销售管理系统的开发与设计
基于Linux的软件测试技术及测试工具应用
汽车营销企业的客户关系管理系统
浅谈用面向对象建模技术构建企业管理信息系统
城市DLG数据库元数据方案设计
ASP&nbsp;3.0高级编程(二)

设为首页 | 关于我们 | 广告联系 | 友情链接 | 版权申明

Copyright 2009-2014 All Right Reserved [粤ICP备05100058号-11]