分享到:
计算机软件 最近更新
讨论未来电商发展趋势论文提纲
浅谈自媒体对现代生活的影响
论文范文:网络发展对青少年心理发展的影响
论我国电子商务应用中的支付问题
电子商务模式研究
中小型企业客户关系管理系统的开发与应用
中石油浙江销售分公司信息管理系统设计
图书馆管理系统分析与设计
物流师职业资格认证报名管理系统
销售管理系统的开发与设计
酒店客房管理系统
财务管理系统的实现
餐饮管理系统设计与实现
社区卫生服务管理系统
汽车营销企业的客户关系管理系统
明道管理咨询有限公司客户关系管理系统设计与开发
企业订单管理系统开发
基于WEB的CRM信息系统的开发与研究
高校科研工作量统计系统的开发与设计
基于Struts的连锁店管理系统
财务管理系统的实现(3)
分页标题#e#
 if query.RecordCount<>0 then
 begin
 i2:=query.fields[0].asfloat;
 edit4.text:=query.fields[0].asstring;
 end;

//下面得出所查记录金额的盈余
 if (i1<>0) and (i2<>0) then
 begin
    edit5.Text:=floattostr(i1-i2);
 end;
end;
end;
  (10)在主窗体页面启动时,系统自动计算出截目当天,财务累计收入和支出以及盈作,并显示在“表格式”界面右下角的数据栏中。自动计算累计收入支出的代码如下所示:
procedure TForm3.TabSheet2Show(Sender: TObject);
var
query:tadoquery;

4.3.3 用户管理模块的实现
1.界面设计:
(1)在工程中新建一个窗体,命名为form4,保存在form4.pas源文件中。
在新制作的窗体中添加控件,并保存设置结果,结束登录窗体的制作。
(2)用户权限设置与管理窗体的界面如下所示:
                        图4-8 用户权限设置界面
2.部分核心代码解释如下:
这里面用到几个自制的函数来完成各项操作(见附录2)
4.3.4 还原数据库窗体的设计
1.界面设计:
(1)在工程中新建一个窗体,命名为frmReData,保存在uredata.pas源文件中。
在新窗体中添加控件,并保存设置结果,结束还原数据库窗体的制作。
(2)制作完成的窗体界面如下所示:

 

 


           图4-9 数据还原界面
2.核心代码及解释:
在选择一个要还原的数据库,然后按下“还原”按钮后触发的事件如下所示:
procedure TfrmReData.btnReStoreClick(Sender: TObject);
var
  sdbName, sbakName,spath: string;
begin
  spath:=extractfilepath(paramstr(0));
  if MessageBox(self.Handle, '确定要还原所选数据文件吗?', '提示', mb_IconQuestion + mb_YesNO) = idYes then
  begin
    if dmPer.acPer.Connected = true then dmPer.acPer.Close;
    sdbName := sPath + 'caiwu.mdb';
    sbakName := sPath + lvReData.Selected.Caption;
    DeleteFile(sdbName);
    CopyFile(Pchar(sbakName), Pchar(sdbName), true);
    MessageBox(self.Handle, '数据库还原成功!', '提示', mb_IconInformation + mb_Ok);
    dmPer.acPer.Open;
  end;
end;


4.4系统中所用控件安装及使用方法介绍
众所周知,Delphi提供了大量的组件,使用这些组件基本上已能满足我们的编程需求。但是在对于有特定要求的程序,仅仅使用Delphi自带的组件就无法适应了。例如,Delphi没有提供串口通信组件(反正我是没有找到),编写有关串口通信的程序就需要使用API函数来实现串口通信,比较麻烦。另外,Delphi自带的一些组件功能比较简单,很难满足我们一些特定的要求。值得庆幸的是,现在有很多的第三方组件,这些组件功能强劲,而且覆盖了编程的方方面面,极大的方便了我们。使用这些第三方组件往往达到事半功倍的效果,大大提高编程的效率。同时还能使我们的程序更漂亮、更专业、更强大。所以第三组件是我们使用Delphi编程一大法宝。
本系统根据编程的需要一共使用了一个第三方控件,它们分别是VclSkin 2.0皮肤控件、Wnquery万能查询控件。
(1)Vclskin控件是一款出色的可视化的皮肤控件,与其他皮肤控件必须修改源代码不同的是,Vclskin不用修改任何源代码而只用可视的单元来为现存的应用程序换肤。
它的安装方法如下:
在File菜单下,选择”OPEN…”打开Vclskin安装包中的WinSkinD7.dpk文件(文件类型列表框中选*.dpk),在出现的Package窗口中,工具栏上有Install按钮,按此按钮即可进行安装。如果Install按钮处于无效状态,那么先按Compile按钮编译,一般来说编译之后Install按钮就会处于有效状态,此时再按Install按钮就可以了。
它的主要属性如下:

Active: 在运行时使发生作用或使其不发生作用。
SkinControls: 指定自动皮肤控件的类型。
SkinFile: 从皮肤文件中实时加载皮肤文件。
SkinStore: 在应用程序中储存皮肤文件。 

(2)Wnquery万能查询控件是款相当好的Ado数据库万能查询控件。它的最大特点就是傻瓜式操作,它能够随意组合出各种查询条件。只要设置好Ado连接字符串、表名,还有要查的字段就可以了。
它的安装方法为:在File菜单下,选择“OPEN…”打开Wnquery安装包中的SixWolvesVcl7.dpk文件(文件类型列表框中选*.dpk),在出现的Package窗口中,工具栏上有Install按钮,按此按钮即可进行安装。如果Install按钮处于无效状态,那么先按Compile按钮编译,一般来说编译之后Install按钮就会处于有效状态,此时再按Install按钮就可以了。
它的主要属性如下:
DateBetween:   布尔型     是否加日期分段查询
DateFieldValue: 字符型  查询字段中文名?英文名 (Date Between 必须为True)
DateStart:     日期型    起始日期 (Date Between 必须为True)
DateEnd:     日期型   截至日期 (Date Between 必须为True)
DateSeperate: 字符型   日期的查询格式,数据库为ACCESS时设为#,SQL Server为(默认值)
Field:     字符列表型   查询字段,格式为:中文名?英文名?字段类型(S:字符型,I:数值型D:日期型,B:布尔型,其他则为未知类型),当字段类型为B:布尔型,需要设置逻辑值, 格式为:中文名?英文名?字段类型?逻辑值1? 逻辑值2
本程序中使用Wnquery万能查询控件的源代码及其解释已经在前面进行的阐述,在此就不再多说了。
4.5程序设计过程中遇到的问题及解决方法
4.5.1第三方控件安装后在使用过程中,仍然不能运行的问题。
即:第三方控件在按照安装提示准确地安装完毕后,然后在窗体上放上该控件,设置好控件属性后运行。系统会提示找不到某某*.dcu文件。这是因为软件运行是需要将该控件所对应的*.dcu文件加载到可执行文件中。所以需要设置一下控件所对应*.dcu的路径。具体方法如下:单击“project”,然后选中“Options”,这时会弹出“Project Options for …”的设置窗体。在“Directories/Conditionals”项的Search Path里面进入该控件所对应的*.dcu的文件路径即可。

4.5.2 如何在程序中用代码打开一个带密码的Access数据库。
因为要保证数据库中数据的安装,所以要对数据库进行加密,而如何打开一个带密码的Access数据库却难过了我,通过查阅资料我终于找到了方法。
首先:要按上面提到Ado连接数据库的一般方法来配置Adotable1的connection string属性。在“数据链接属性”页面的“连接”项中选择您要链接的数据库,本系统中为pds.mdb。如果仅这样只能正确打开没有密码的数据库,要打开有密码的Access数据库,还需要点击 “数据链接属性”页面的“所有”项,如下图所示:
 
图4-10 数据链接属性
然后编辑“Jet OLEDB:Database Password”的值,即输入数据库的正确密码,这样connection string属性就成功配置完成了。
其次:要在程序开始时在源代码部分再一次用代码对Adotable1的connection string属性进行赋值,即:
connectionstring:=’provider=Microsoft.jet.oledb.4.0;’+’persist security info=false;’+’data source=’+dbpath+'caiwu.mdb;’+'jet oledb:database password=200434';  //重新设置connectionstring属性
这一语句是很关键,因为数据库的目录是可以变化的,但数据库的目录永远跟可执行文件在同一目录下,这样配置是为了动态配置数据库。这一点其实论文的前面部分已经讲过了。这就是语句中dbpath变量所起的作用的体现。
4.6本章小结
本章从流程图开始进行全面说明了本系统的数据库与实现方法,并对所用的控件进行了说明。

 

第5章 系统测试
经过不断的努力,终于完成了财务管理系统的初步设计和编制。我对本系统进行改编的性能测试。
  测试环境:PIII 256M/20G
操作系统:Windows XP
  系统平台:Delphi7 Sql2000
  系统调试过程:
程序的最后调试工作是应用程序的最后检查阶段,该阶段主要完成的任务有以下几点:
.程序遇到用户错误操作时能否正确处理;
.程序在遇到运行错误时是否能够正确的正理错误;
.程序的预定功能是否达到。
利用Delphi7.0的系统调试器对整个系统进行了跟踪调试,发现了其中的函数使用错误,数据表名称输入错误等一些问题,及时的修改了每个错误。
在上述环境中,将设计和编译好的财务管理系统进行首次运行。当进入系统,发现一些问题,如各窗体的属性设置不够完整,使用其在调用过程中出现错误,我经过反复检查核对,终于找出了问题调试通过。最后对应用程序的功能调试,发现应用程序的运行结果满足用户要求,达到了预想的程序设计止的。同时还对系统界面的进行了调整,提高其友好性。通过对程序的调试,查找资料我学到了一些程序调试基本方法,使我学到许多新的知识,积累了更多的经验,也对本程序的完整性有了进步的了解,整个的编程思想也更加的完整,为我在今后的工作打下了良好的基础。

随机推荐
Asp+Sql网上书店系统论文开题报告
电力系统通信技术建设电力通信网络管理系统
ASP&nbsp;3.0高级编程(一)
某公司财务管理信息系统分析评价与优化研究
销售管理系统的开发与设计
中小企业物流管理与物流管理信息系统
网上二手信息与交易平台
基于WWW的劳资人事管理系统
某商务网站信息发布系统研究与实现
中小型药房进销存管理系统

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

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