【DELPHI设计栏目提醒】:网学会员为需要DELPHI设计的朋友们搜集整理了delphi通用财务管理系统delphi+access相关资料,希望对各位网友有所帮助!
中文摘要
财务管理系统为企事业单位财务管理者提供方便可靠的财务管理,统计的工具.其强大的功能和充足的信息和快捷的查询手段,极大的用户的日常工作,让人们感受到烦杂的财务管理也可以变得这么简单轻松.其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。利用DELPHI 6.0软件及其提供的各种面向对象的开发工具,建立完整性强、安全性好的数据库,开发出功能完备,易使用的应用程序。经过调试、编译与实现,该程序界面友好、程序设计风格朴素,使用起来美观大方、方便易用。尤其是系统的“记录管理”的功能极大的减轻工作人员的工作量,并以快速、准确等优点取代人工操作,提高了财务管理工作效率。
关键词 : DELPHI 6.0 信息管理系统 数据库 模块 财务管理
引 言 1
1 Delphi语言概述 2
1.1 Delphi简介 2
1.2 数据库系统简介 2
1.3 本应用软件的基本介绍 3
2 本应用程序的构成和开发步骤 4
2.1 可行性研究 4
2.1.1 经济可行性 4
2.1.2 时间可行性 4
2.1.3 技术可行性 4
2.1.4 社会可行性 5
2.2 数据库的建立和连接 5
2.3 系统的总体设计 5
2.4 系统的详细设计 7
3 本程序的技术实现及具体功能 13
3.1 登录的界面与程序设计实现 13
3.2 数据库管理界面与代码设计实现 13
3.3 管理图示界面与代码设计实现14,
3.4 关于界面与代码设计15
3.5 财务报表生成界面设计与代码设计 16
3.6 系统主界面与代码设计 17
结 论 21
致 谢 22
参 考 文 献 23
2.4 系统的详细设计
进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象,根据本课题的需要,在这里选择一个空的数据库,命名建立了一个数据库名称为“xmjl”,财务管理系统。并在此数据库下创建了两个表,用于存放原始数据。它只是存放数据,对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下:
1.用户管理信息表:
2财务收支信息表:
3 本程序的技术实现及具体功能
3.1 登录的界面与程序设计实现
代码设计:
unit login;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, Buttons, XPMenu;
type
Tdenglu = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ComboBox1: TComboBox;
MaskEdit1: TMaskEdit;
Label1: TLabel;
Label2: TLabel;
XPMenu1: TXPMenu;
procedure BitBtn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
denglu: Tdenglu;
implementation
uses dm,main;
{$R *.dfm}
procedure Tdenglu.BitBtn2Click(Sender: TObject);
begin
application.Terminate;
end;
procedure Tdenglu.FormCreate(Sender: TObject);
begin
with dm2.ADOTable1 do
begin
open;
first;
while not eof do
begin
combobox1.Items.Add(fields[0].Value );
next;
end;
combobox1.ItemIndex :=0;
end;
end;
procedure Tdenglu.BitBtn1Click(Sender: TObject);
begin
with dm2.ADOTable1 do
begin
if locate(''us'',combobox1.Text,[]) then
begin
if maskedit1.text=fields[1].Value then
begin
hide;
with tform1.Create(self) do
showmodal;
end;
application.Terminate ;
end;
end;
end;
end.
3.2 数据库管理界面与代码设计实现
代码设计:
unit dm;
interface
uses
SysUtils, Classes, ADODB, DB;
type
Tdm2 = class(TDataModule)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ADOQuery1DSDesigner: TWideStringField;
ADOQuery1DSDesigner2: TBCDField;
ADOQuery1DSDesigner3: TBCDField;
ADOQuery1DSDesigner4: TDateTimeField;
ADOQuery1DSDesigner5: TWideStringField;
ADOQuery1total: TCurrencyField;
ADOTable1: TADOTable;
procedure ADOQuery1CalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
dm2: Tdm2;
implementation
{$R *.dfm}
procedure Tdm2.ADOQuery1CalcFields(DataSet: TDataSet);
begin
adoquery1total.Value :=ADOQuery1DSDesigner2.Value -
ADOQuery1DSDesigner3.value ;
end;
end.
参 考 文 献
1 张春林.Delphi 6程序设计导学.北京:清华大学出版社,2002.5
2 飞思科技. Delphi6开发者手册. 北京:电子工业出版社,2002.3
3 飞思科技. Delphi6数据库开发. 北京:电子工业出版社, 2002.1
4 丁宝康.数据库原理. 北京:经济科学出版社,2004.1
上一篇:delphi通用会员管理系统