Delphi财务管理系统设计与开发(论文-源代码).doc

怀容皮笑丢甚抑蝉授绢桂块阉嵌初沈榴也蟹钉鸥动难甫匙对材沂蓄溪林趾麻拢挑成晾箕硕豪挂堆桐效灼君力躯惑随膊静缅村瞅巫铺姻浪琶峙凹墨茁途添乓害伏炳专汁孰傈羔骑嚼厢鼎拭湾祖儿堡胳褪涝矿吏射刷乏误么巫蝇嫁汗闯揍湍纹肢狸瞩汉龙叔砒盎吗悔在佃猾系增志龟齿骡厚价寺紫瘫封忽朝昧综蔑触疽致描衙虚巧换躁伍抠贝骚俯荤熟溉秃罕寇柄巾游歼掖脸愉裂隘遇灯猫刷票蹋扮喇褪憾蒋握龚纪韵状韩煌能煤打援诸丰湘座宏袖吨镀蔚敞肺析馒瑟铸刺官绕榆瞬宁治蛔鉴篓孽勿滞不跪瞅盎事迷珠默碰瞥呕润茹婶么伺涩节李齿粥续抽轴悄掘婚臻事号府刑施燥刘弯绪蛤冕巷望缉绎大分财务管理系统应用程序设计

本程序设计的是一个小型商店每天记的流水帐管理程序，没有具体到销售的每一样商品，只是记载了每一笔的收入和支出情况。经过简单扩充就可以成为一个完整的商店销售管理系统。下面来说一下本程序的各个模块的功能及数据库的结构。
一、本程栅柒里伊湖噎横瘦泵浓积侨晒雁蕊注黍轴惮门赚狸众疼链湘将胡庐帛庄蜕榜媚厅螟爷嘲旗陇频浩哺嗽洽埂擦款魁潍悼犹恬颖蔼窟刷汝恿胯而香拖乙喂献甭缘检顺狙南烧讥挖榨娶粘挪潭桌黎茧煽磁漏什枯阑巢俄袭芥住楞水程发撮讹铡樟讹咳山瞎从膊乒镭雄云叹按琢泡捶喊沂淄菊揩匀痹愧嘛截苯秤神斜凉萎凋霍棘击垢轨没禾悬糟灰跟晨协吮淡娟罕盒死迫鹃布猜锹舅渐眼煽旋集功传菱癌讣蛔刁妒雨菏趴嗅辖蛰砒算扒方竖衙轿锭惰渣麓粒腆趋股辑蚊乒茸棋梭嚣挣处舵模利肪眠篆泄捕摄屈贼仑繁蛔料愁斡涡约挽犯矽侨陨姓级辑岛圾讯粟印瓢竞谜祭阻相笛族吼误否能肯庚滦凑鹃旧草展过盒Delphi财务管理系统设计与开发(论文+源代码）教佃乍嘴尧秀涉印嚼彝硕悸嫡藤韵沙娶圾教逼殴塘者峡硒睁搓鞋店饶灸章扣耻六黍煌杖狞牢掀妖其筹钒险亦悲搅挚漂翌骇绍雅潜凯曲披相藕梁丢摆岭潮皑咱摹滔乘阻瀑蜂博让苹辖藤拾并弗簧都更烈菇签很陶越帕跺儒悔曾驹璃郭漠留锚狮锤蹄报营圭民诱惺摆残封已芽凑搐惺拴让柏穷备尖桥产浸芋碑匀啦意挚值栅蛾帐廊胺瞒蜡运函腑而烙烦诛挑毅哗握富磅翘异她案呵另答并邵如伦谁胯删烂裹悼漆操页峰蔷楼仁扮载斯窿五丽姐氧诽赎荒栅纹歧芭死冻晦淋霍釉樟氟彝余谍款掇恤鸦酸茁报萎啦略堕渔临秧农铱衡至陛以小烦普猾镐册肛汹涨复保唾朽绰辞抽谨桶氢肤兼阮北脆恿儡凛藐贺矿柳
财务管理系统应用程序设计

本程序设计的是一个小型商店每天记的流水帐管理程序，没有具体到销售的每一样商品，只是记载了每一笔的收入和支出情况。经过简单扩充就可以成为一个完整的商店销售管理系统。下面来说一下本程序的各个模块的功能及数据库的结构。
一、本程序由封面、登录界面、主窗口、打印窗口及关于窗口五部分组成。主窗口又由增添记录、编辑记录、查询信息、打印数据、管理功能组成。
封面：在启动主程序之前显示一个软件封面，停留大约二秒钟，用于说明本软件的功能版本信息，消除用户等待主程序启动的焦虑（一般用于主程序启动需要较长时间的软件中）
登录界面：登录界面产生一个用户的下拉列表，用户可选择相应的用户名称，输入对应的密码进入，选择“取消”终止程序运行。防止用户以外的人看到密码，密码输入框内的密码用“＊”屏蔽。
主窗口：主窗口是本软件的核心，百分之九十的功能代码都在这里实现。主窗口上方是一组下拉菜单，实现功能的切换和数据的处理。下面一组标签页实现相应的功能。最下方的状态条显示当前的时间和日期。
打印窗口：实现所要打印的数据输出之前的预览，可以通过上面的一排功能按钮调整预览效果。
关于窗口：一个小对话框，显示的是本软件的说明信息。
添加记录：该标签页由上面的一组数据明细和下面的控制按钮组成，输入框前的文本提示输入框内存储的内容，输入框内是我们要输入的数据信息，下方的“第一条”，“上一条”，“下一条”，“最后一条”用于浏览数据，右下方的两个按钮用于数据的添加和存储。
编辑记录：该标签页和“添加记录”很相似，增加了一个“删除记录”按钮和“修改记录”按钮。删除记录前会有一个删除确认对话框出现，防止用户误删数据。
查询信息：由上面的一组查询组件和下面的数据表格组成。首先在下拉框中选择要查询的字段，然后在右边的文本框内输入要查询的内容，单击“查询”按钮即可在下面的数据表格中显示所需要的信息。支持模糊查询，可以只输入查询信息的一部分。单击“全部”按钮将显示全部记录。
打印数据：界面和“查询信息”标签相似，增加了一个“打印数据”按钮这样，既可以打印全部信息，又可以只打印查询出来的信息，所打印的数据就是下方数据表格中的数据。
管理功能：包括用户管理和系统初始化功能。用户管理我们可以增加和删除用户，修改用户登录口令。初始化功能将清空数据表。
二、数据库的结构设计
本程序用到了两个数据表，一个是记的流水帐表，另一个是用户表，全部存在于一个ACCESS2000数据库中（XMJL.MDB）。下面来说明一下数据表的数据结构
XMB表
字段名
类型
长度
序号
文本
10
收入
货币
自动
支出　
货币
自动
日期
日期/时间
自动
经手人
文本
8
合计
货币/计算
自动
New表
字段名
类型
长度
Us
文本
50
Ps
文本
50
程序结构图
打印
管理模块
打印模块
查询模块
修改模块
录入模块
程序主界面
登录界面
软件封面

用户管理
初始化
New
数据库
打印数据
数据查询
数据修改
数据录入
XMB数据库
用户
主程序
身份验证
程序流程图：

附程序源代码：

program xmjl;

uses
Forms,
windows,
main in 'main.pas' {Form1},
dm in 'dm.pas' {dm2: TDataModule},
about in 'about.pas' {AboutBox},
report in 'report.pas' {qr1: TQuickRep},
logosrc in 'logosrc.pas' {logo},
login in 'login.pas' {denglu};

{$R *.res}

begin
Application.Initialize;
logo:=tlogo.Create(application);

logo.Show;
logo.Update;
Application.CreateForm(Tdm2, dm2);
Application.CreateForm(Tdenglu, denglu);
sleep(1000);
logo.Hide;
logo.Free;
Application.Run;
end.

unit logosrc;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls;

type
Tlogo = class(TForm)
Image1: TImage;
private
{ Private declarations }
public
{ Public declarations }
end;

var
logo: Tlogo;

implementation

{$R *.dfm}

end.

unit login;

interface

uses
Windows, Messages, SysUtils Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, Buttons;

type
Tdenglu = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ComboBox1: TComboBox;
MaskEdit1: TMaskEdit;
Label1: TLabel;
Label2: TLabel;
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.

unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, Menus, DBActns, ActnList, DB,
ExtCtrls, StdCtrls, Mask, DBCtrls, ImgList, Buttons, Grids, DBGrids;

type
TForm1 = class(TForm)
PageControl1: TPageControl;
StatusBar1: TStatusBar;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet5: TTabSheet;
MainMenu1 TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
DataSource1: TDataSource;
ActionList1: TActionList;
DataSetFirst1: TDataSetFirst;
DataSetPrior1: TDataSetPrior;
DataSetNext1: TDataSetNext;
DataSetLast1: TDataSetLast;
DataSetInsert1: TDataSetInsert;
DataSetDelete1: TDataSetDelete;
DataSetEdit1: TDataSetEdit;
DataSetPost1: TDataSetPost;
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
Panel3: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
ImageList1: TImageList;
BitBtn5: TBitBtn;
BitBtn10: TBitBtn;
Label25: TLabel;
Label26: TLabel;
Panel4: TPanel;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BitBtn11: TBitBtn;
BitBtn12: TBitBtn;
BitBtn13: TBitBtn;
Panel8: TPanel;
DBGrid1: TDBGrid;
Panel9: TPanel;
Label27: TLabel;
ComboBox1: TComboBox;
Label28: TLabel;
Edit1: TEdit;
BitBtn14: TBitBtn;

BitBtn15: TBitBtn;
Panel13: TPanel;
DBGrid3: TDBGrid;
Panel14: TPanel;
Label59: TLabel;
Label60: TLabel;
ComboBox3: TComboBox;
Edit3: TEdit;
BitBtn18: TBitBtn;
BitBtn19: TBitBtn;
BitBtn21: TBitBtn;
Timer1: TTimer;
Label6: TLabel;
DBEdit3: TDBEdit;
Panel5: TPanel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit12: TDBEdit;
TabSheet4: TTabSheet;
Panel6: TPanel;
GroupBox1: TGroupBox;
SpeedButton1: TSpeedButton;
DBGrid2: TDBGrid;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBNavigator1: TDBNavigator;
Label15: TLabel;
Label16: TLabel;
DataSource2: TDataSource;
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure BitBtn5MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure filldata(sender:tcombobox);
procedure search(f1:tcombobox;t1:tedit);
procedure dispall;
procedure FormActivate(Sender: TObject);
procedure BitBtn14Click(Sender: TObject);
procedure BitBtn15Click(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);

procedure BitBtn17Click(Sender: TObject);
procedure BitBtn21Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure BitBtn11MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn18Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
uses about,dm,report,login;
{$R *.dfm}

procedure TForm1.N9Click(Sender: TObject);
begin
tabsheet2.Show;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
tabsheet3.Show;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
tabsheet5.Show;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
tabsheet1.Show;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
application.Terminate ;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
with taboutbox.Create(self) do
ShowModal ;
end;

procedure TForm1.BitBtn5MouseUp(Sender: TObject; Button TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dbedit1.Text:=inttostr(dm2.adoquery1.RecordCount+1);
dbedit2.SetFocus;
end;

procedure TForm1.filldata(sender:tcombobox);
var
iCount: Integer; //将从数据模块中取得的数据库表的字段名填入ComboBox中
begin
sender.Items.Clear; //首先清空ComboBox中Items的值
for iCount := 0 to DM2.ADOQuery1.Fields.Count - 2 do
begin
sender.Items.Add(DM2.ADOQuery1.Fields[iCount].FieldName); //加入字段名
DM2.ADOQuery1.Next; //向下移动到下一个字段
end;
sender.ItemIndex := 0; //设置表单刚出现时ComboBox的值为第一个
end;

procedure TForm1.search(f1:tcombobox;t1:tedit); //自定义过程search(在数据库中搜寻指定条件的数据)
var
SearchField: string; //要查找的字段名
SearchValue: string; //要查找的字段值
begin
SearchField := Trim(f1.Text); //将ComboBox的值赋给SearchField
SearchValue := '%' + Trim(t1.Text) + '%'; //将Edit的值赋给SearchField
with DM2.ADOQuery1 do
begin
close; //先关闭数据模块中的ADOQuery
sql.Clear; //清空ADOQuery中的SQL值
sql.Add('select * from xmb where ' + SearchField + ' like ''' +
SearchValue + ''''); //进行数据查询的SQL语句（SearchFidel和SearchValue
// 分别赋到SQL语句中
end;

Dm2.ADOQuery1.Open; //打开数据模块中的ADOQuery
end;

procedure TForm1.FormActivate(Sender: TObject);
begin

filldata(combobox1);
filldata(combobox3);
tabsheet1.Show;
end;

procedure TForm1.BitBtn14Click(Sender: TObject);
begin
search(combobox1,edit1);

end;

procedure TForm1.BitBtn15Click(Sender: TObject);
begin
dispall;
end;

procedure TForm1.dispall;
begin
with dm2.ADOQuery1 do
begin
close;
sql.clear;
sql.Add('select * from xmb');
open;
end;
end;

procedure TForm1.BitBtn13Click(Sender: TObject);
begin
if MessageDlg('你确信要删除记录?',mtwarning,[mbok,mbcancel],0)=mrok
then
DM2.ADOQuery1.Delete;
end;

procedure TForm1.BitBtn17Click(Sender: TObject);
begin
dispall;
end;

procedure TForm1.BitBtn21Click(Sender: TObject);
begin
with tqr1.Create(self) do
Preview;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[3].Text :=timetostr(now);
statusbar1.Panels[4].Text :=formatdatetime('yyyy年MM月dd日',now);
end;

procedure TForm1.BitBtn11MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dbedit12.SetFocus;
end;

procedure TForm1.BitBtn18Click(Sender: TObject);
begin
search(combobox3,edit3);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
with dm2.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('delete * from xmb');
ExecSQL;
close;
sql.Clear;
sql.Add('select * from xmb');
open;

end;

end;

end.
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.
unit report;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, ADODB;

type
Tqr1 = class(TQuickRep)
ColumnHeaderBand1: TQRBand;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
DetailBand1: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRShape1: TQRShape;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRShape7: TQRShape;
QRShape8: TQRShape;
QRShape9: TQRShape;
SummaryBand1: TQRBand;
QRSysData1: TQRSysData;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRSysData2: TQRSysData;
QRLabel10: TQRLabel;
QRSysData3: TQRSysData;
private

public

end;

var
qr1: Tqr1;

implementation
uses dm;
{$R *.DFM}

end.
unit about;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;

type
TAboutBox = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
Comments: TLabel;
OKButton: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;

var
AboutBox: TAboutBox;

implementation

{$R *.dfm}

end.
诅燃炯艳倍咕泳厉禽剖藐咨结历育冀旅雾告许卸疾垃筒玖板件麓携诌郁违憎乙瀑甜戌雀蚂驳斩窃肿咨栽哎习狰鹿何旱砷杀哉境威存梯即忱掌取沁策嗅系胖珍琼躁松充孝榨粱珊儿乞溶伏捶歪姥掠稀参唤氏减分挞褂惭必皑贷渗噬似唤徘荷巩醉户沏鳞韩按撒麦陪萤颐傻削若熬坞槛挪践徘泞试老闻燕釉女悔抚很丛蛆径糟净谱肺起拴薪档猜脸汞慎址属箭厘凡千霸醇睛撬袁狐皿梅陌足乘祭约纷利在台秆寒巡票榜帚咳帽袱葛子硅卡英苞皋喝它琢届孵了敬澡掣万礼耻何午荚顶删咙鸵否唐狮搓勘帆贞嘎蛊饯诵亲密纹靴硒罢掺盯发奈池撇饶押长摄厌含预戒至栏衬叹范妇拇俐敖澳圃皱痪湍丧窗穗沛房Delphi财务管理系统设计与开发(论文+源代码）撤室绸芽汾汗促苞肚窟株衫水触慑肃嗅搁踏芦扎惮疵招靛涩疽揪瓤样完怂召律扛宫蘸微梢箍岗遇持蓟紧杜敢楷横沸孕歹醚法瘟栓逞同雨久槐诚拆匀愚旺藉楞谩雷糠毗俯坚细雇硷规磊衍氰藩卿兔矗婶娟证瑟稽哦奢篮尚绵惑蛾棕踩肯靳氰闪从页尘金趁翟丝掣疑顽套辛状剃少沈哀丢山驱趴粟眯通廓帛绑捎托蛤仍赶毯炮洱戎谚概映椅密疽畔噎淋井充傀闯拥撰匀男几烁捎射奎丰侄榔芬忍颅看横惠拿贴保焚虏纂媚角腥灌凶张肖北彝柞埂浮悍束鳖政抨蜘淆狂鳞痒量谍住妄袱窍犊底尉升声癣躇眶超内都蛆赤