资源描述:
《财务管理系统附程序源代码.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、附程序源代码:programxmjl;usesForms,windows,mainin'main.pas'{Form1},dmin'dm.pas'{dm2:TDataModule},aboutin'about.pas'{AboutBox},reportin'report.pas'{qr1:TQuickRep},logosrcin'logosrc.pas'{logo},loginin'login.pas'{denglu};{$R*.res}beginApplication.Initialize;logo:=tlog
2、o.Create(application);logo.Show;logo.Update;Application.CreateForm(Tdm2,dm2);Application.CreateForm(Tdenglu,denglu);sleep(1000);logo.Hide;logo.Free;Application.Run;end.unitlogosrc;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms
3、,Dialogs,jpeg,ExtCtrls;typeTlogo=class(TForm)Image1:TImage;private{Privatedeclarations}public{Publicdeclarations}end;varlogo:Tlogo;implementation{$R*.dfm}end.unitlogin;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Std
4、Ctrls,Mask,Buttons;typeTdenglu=class(TForm)BitBtn1:TBitBtn;BitBtn2:TBitBtn;ComboBox1:TComboBox;MaskEdit1:TMaskEdit;Label1:TLabel;Label2:TLabel;procedureBitBtn2Click(Sender:TObject);procedureFormCreate(Sender:TObject);procedureBitBtn1Click(Sender:TObject);priv
5、ate{Privatedeclarations}public{Publicdeclarations}end;vardenglu:Tdenglu;implementationusesdm,main;{$R*.dfm}procedureTdenglu.BitBtn2Click(Sender:TObject);beginapplication.Terminate;end;procedureTdenglu.FormCreate(Sender:TObject);beginwithdm2.ADOTable1dobeginop
6、en;first;whilenoteofdobegincombobox1.Items.Add(fields[0].Value);next;end;combobox1.ItemIndex:=0;end;end;procedureTdenglu.BitBtn1Click(Sender:TObject);beginwithdm2.ADOTable1dobeginiflocate('us',combobox1.Text,[])thenbeginifmaskedit1.text=fields[1].Valuethenbeg
7、inhide;withtform1.Create(self)doshowmodal;end;application.Terminate;end;end;end;end.unitmain;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls,ToolWin,Menus,DBActns,ActnList,DB,ExtCtrls,StdCtrls,Mask,DBCtrls,ImgL
8、ist,Buttons,Grids,DBGrids;typeTForm1=class(TForm)PageControl1:TPageControl;StatusBar1:TStatusBar;TabSheet1:TTabSheet;TabSheet2:TTabSheet;TabSheet3:TTabSheet;TabSheet5:TTabSheet;MainMenu1: