财务管理系统应用程序设计
财务管理系统应用程序设计
本程序设计的是一个小型商店每天记的流水帐管理程序,没有具体到销售的每一样商品,只是记载了每一笔的收入和支出情况。经过简单扩充就可以成为一个完整的商店销售管理系统。下面来说一下本程序的各个模块的功能及数据库的结构。
一、本程序由封面、登录界面、主窗口、打印窗口及关于窗口五部分组成。主窗口又由增添记录、编辑记录、查询信息、打印数据、管理功能组成。
封面:在启动主程序之前显示一个软件封面,停留大约二秒钟,用于说明本软件的功能版本信息,消除用户等待主程序启动的焦虑(一般用于主程序启动需要较长时间的软件中)
登录界面:登录界面产生一个用户的下拉列表,用户可选择相应的用户名称,输入对应的密码进入,选择“取消”终止程序运行。防止用户以外的人看到密码,密码输入框内的密码用“*”屏蔽。
主窗口:主窗口是本软件的核心,百分之九十的功能代码都在这里实现。主窗口上方是一组下拉菜单,实现功能的切换和数据的处理。下面一组标签页实现相应的功能。最下方的状态条显示当前的时间和日期。
打印窗口:实现所要打印的数据输出之前的预览,可以通过上面的一排功能按钮调整预览效果。
关于窗口:一个小对话框,显示的是本软件的说明信息。
添加记录:该标签页由上面的一组数据明细和下面的控制按钮组成,输入框前的文本提示输入框内存储的内容,输入框内是我们要输入的数据信息,下方的“第一条”,“上一条”,“下一条”,“最后一条”用于浏览数据,右下方的两个按钮用于数据的添加和存储。
编辑记录:该标签页和“添加记录”很相似,增加了一个“删除记录”按钮和“修改记录”按钮。删除记录前会有一个删除确认对话框出现,防止用户误删数据。
查询信息:由上面的一组查询组件和下面的数据表格组成。首先在下拉框中选择要查询的字段,然后在右边的文本框内输入要查询的内容,单击“查询”按钮即可在下面的数据表格中显示所需要的信息。支持模糊查询,可以只输入查询信息的一部分。单击“全部”按钮将显示全部记录。
打印数据:界面和“查询信息”标签相似,增加了一个“打印数据”按钮。这样,既可以打印全部信息,又可以只打印查询出来的信息,所打印的数据就是下方数据表格中的数据。
管理功能:包括用户管理和系统初始化功能。用户管理我们可以增加和删除用户,修改用户登录口令。初始化功能将清空数据表。
二、数据库的结构设计
本程序用到了两个数据表,一个是记的流水帐表,另一个是用户表,全部存在于一个ACCESS2000数据库中(XMJL.MDB)。下面来说明一下数据表的数据结构
XMB表
字段名类型长度
序号文本10
收入货币自动
支出货币自动
日期日期/时间自动
经手人文本8
合计货币/计算自动
New表
字段名类型长度
Us 文本50
Ps 文本50
程序结构图
软件封
登录界
程序主
录入修改查询打印管理
打印
程序流程图:
附程序源代码:
program xmjl; uses Forms, windows,
main in 'main.pas' {Form1},
dm in 'dm.pas' {dm2: TDataModule},
用户 主程序
身
XMB 数据库
数据
数据数据打印
New
用户
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;
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;
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;
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;
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.RecordC ount+1);
dbedit2.SetFocus;
第七章财务管理系统设计与实现 §7.1 财务管理系统业务简介 一、财务管理业务概述 企业财务管理是基于企业再生产过程中客观存在的财务活动和财务关系而产生的,根据企业再生产过程中的资金运动,工业企业财务管理的内容包括:固定资金管理、流动资金管理、专用资金管理、产品成本管理、销售收入管理、企业纯收入和财务支出管理等。其中固定资金管理是指垫支在劳动资料上的资金(包括:厂房、机器设备等固定资产);流动资金是指垫支在劳动对象上的资金(包括:原材料、燃料、在产品、产成品、银行存款及各种结算项目);专用资金是指具有专门用途的资金(包括:生产发展基金、更新改造基金、新产品试制基金、大修理基金等);成本管理将在下一章中详细介绍。 二、财务管理工作的具体内容 1.凭证 凭证的制作和管理是财务工作的一项重要内容,所有的财务活动都要通过制作凭证才能记入相应的帐目。当经济活动发生后,财务人员要收集业务的原始凭证(发票、入出库单等),并根据业务活动涉及的财务科目填写相应的凭证分录,制成记帐凭证。在一段时间后要将凭证归类装订成册以备检查。财务涉及的凭证一般包括:收款凭证、付款凭证和转帐凭证。 2.记帐 在凭证制作完成后,由会计人员对凭证进行审核,检查凭证制作是否正确,然后再根据凭证涉及的科目登记相应的明细分类帐和总帐。 3.银行帐 企业银行帐因为牵涉到流动资金的管理,所以管理起来较为严格,需要计算每天的收入、支出并结出余额。另外银行帐管理还包括银行对帐业务。企业的开户银行为企业设立一本收入、支出明细帐,而企业本身也有银行存款收入、支出的日记帐,这两本张之间就存在着一个对帐问题。银行定期给企业发出银行对帐单,企业根据对帐单上银行帐的收入、支出记录和自己记的银行日记帐记录进行核对,将对上的记录销掉,查找出哪些记录是银行未作登帐的(银行未达帐),哪些记录是企业未登帐的(企业未达帐),并制作出未达帐调节表。 4.往来帐 往来帐是指企业与往来户(客户、供应商)之间发生的应收款、预收款、应付款、预付款业务。往来业务量对企业来说一般是比较多的。要管理好每一个往来户的每一笔往来款,首先要对往来户单独设立帐户,将每一笔应收、应付款详细记录清楚;当收款或付款时,将收到或付出的款项逐笔分配到应收或应付款记录中进行勾对,销掉应收或应付款记录。这是一项比较复杂而繁琐的工作。 5.报表及财务分析 企业每个核算期末都要制作报表,上报上级单位和财政税务部门。各类财务报表从不同角度反映企业的经营和财务状况,报表主要有:资产负债表、利润表和财务状况变动表。 财务工作还能及时为企业领导提供相关的财务数据信息,如:资金使用情况,企业赢利
软件学院 课程设计报告书 课程名称JavaEE 课程设计______________________ 设计题目个人财务系统____________________ 专业班级软件工程 _______________________ 学号xxxxxxxxx07 __________________________ 姓名XXXXX_______________________________ 指导教师姜彦吉 ________________________
2011年12 月
4.1.4系统构造关系 图一2 (jsp页面构造)
4.2 Jsp 页面设计 421登录界面 图一4 (登录界面) 代码如下: vform action= "servlet/LoginServlet" method= "post" >
图一5 (登录成功查询界面) 代码如下: <% String username=(String)session.getAttribute (”name"); if (username!= null ){%>