财务管理系统附程序源代码

1、附程序源代码: program xmjl; uses Forms, windows, main in main. pas Forml, dm in dm. pas dm2： TDataModule, about in about .pas AboutBox, report in ? reportpas qrl: TQuickRep, logosrc in logosrc.pas logo, login in login. pas， denglu; $R . res begin Application. Initialize; logo:=tlogo. Create(application);

2、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 Controls, Windows, Messages, SysUtils, Variants, Classes, Graphics, Forms, Dialogs, jpeg, ExtCtrls; type T

3、logo = class(TForm) Image1: TImage; private Private declarations public Public declarations end; var logo: Tlogo; implementation SR *. dfm end. unit login; interface uses Controls, Windows, Messages, SysUtils, Variants, Classes, Graphics, Forms, Dialogs, StdCtrls, Mask, Buttons; type Tdenglu = class

4、(TForm) BitBtnl: TBitBtn; ComboBoxl: TComboBox; MaskEditl: TMaskEdit; Label1： TLabel; Label2： TLabel; procedure BitBtn2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BitBtnlClick(Sender: TObject); private Private declarations public Public declarations end; var denglu： Tden

5、glu; implementation uses dm, main; SR *. dfm procedure Tdenglu. BitBtn2Click(Sender: TObject); begin application. Terminate; end; procedure Tdenglu. FormCreate(Sender： TObject); begin with dm2. ADOTablel do begin open; first; while not eof do begin combobox1. ItemsAdd(fields0Value ); next; end; comb

6、obox1. Itemlndex :二0; end; end; procedure Tdenglu. BitBtnlClick (Sender: TObject); begin with dm2. ADOTablel do begin if locate us , combobox 1. Text, ) then begin if maskeditltext二fields1Value then begin hide; with tform 1. Create (self) do showmodal; end; application. Terminate ; end; end; end; en

7、d. 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 TForml = class(TForm) PageControl1: TPageControl; StatusBarl: TS

8、tatusBar; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; TabSheet5: TTabSheet; MainMenul: TMainMenu; XI: TMenuItem; N2: TMenuItem; N4: TMenuItem; N5: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N12: TMenuItem; N13: TMenuItem; X14: TMenuItem; N15： TMenuItem; N16: TMenu

9、ltem; N17: TMenuItem; N18: TMenuItem; DataSourcel: TDataSource; ActionListl: TActionList; DataSetFirstl: TDataSetFirst; DataSetPriorl: TDataSetPrior; DataSetext1: TDataSetNext; DataSetLastl: TDataSetLast; DataSetlnsertl: TDataSetlnsert; DataSetDeletel: TDataSetDelete; DataSetEditl: TDataSetEdit; Dat

10、aSetPost1: TDataSetPost; Panel1: TPanel; Panel2: TPanel: Label1: TLabel; Label2： TLabel; Label3: TLabel; Labe14： TLabel; Label5: TLabel; DBEditl: TDBEdit; DBEdit2: TDBEdit; DBEdit9: TDBEdit; DBEditlO: TDBEdit; DBEditll: TDBEdit; Panel3: TPanel; BitBtnl: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; B

11、itBtn4: TBitBtn; ImageListl: TImageList; BitBtn5: TBitBtn; BitBtnlO: TBitBtn; Label25: TLabel; Label26: TLabel; Panel4: TPanel; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtnS: TBitBtn; BitBtn9: TBitBtn; BitBtnll: TBitBtn; BitBtnl2: TBitBtn; BitBtnl3: TBitBtn; Panels： TPanel; DBGridl: TDBGrid; Panel9: TPanel; Label27: TLabel; ComboBoxl: TComboBox; Label28: TLabel; Editl: TEdit; BitBtnl4: TBitBtn; BitBtnl5: TBitB