版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、财务管理系统应用程序设计本程序设计的是一个小型商店每天记的流水帐管理程序,没有具体到销售的每一样商品,只是记载了每一笔的收入和支出情况。经过简单扩充就可以成为一个完整的商店销售管理系统。下面来说一下本程序的各个模块的功能及数据库的结构。一、本程序由封封面、登录界界面、主窗口口、打印窗口口及关于窗口口五部分组成成。主窗口又又由增添记录录、编辑记录录、查询信息息、打印数据据、管理功能能组成。封面:在启动主主程序之前显显示一个软件件封面,停留留大约二秒钟钟,用于说明明本软件的功功能版本信息息,消除用户户等待主程序序启动的焦虑虑(一般用于于主程序启动动需要较长时时间的软件中中)登录界面:登录录界面产生
2、一一个用户的下下拉列表,用用户可选择相相应的用户名名称,输入对对应的密码进进入,选择“取消”终止程序运运行。防止用用户以外的人人看到密码,密密码输入框内内的密码用“”屏蔽。主窗口:主窗口口是本软件的的核心,百分分之九十的功功能代码都在在这里实现。主主窗口上方是是一组下拉菜菜单,实现功功能的切换和和数据的处理理。下面一组组标签页实现现相应的功能能。最下方的的状态条显示示当前的时间间和日期。打印窗口:实现现所要打印的的数据输出之之前的预览,可可以通过上面面的一排功能能按钮调整预预览效果。关于窗口:一个个小对话框,显显示的是本软软件的说明信信息。添加记录:该标标签页由上面面的一组数据据明细和下面面的
3、控制按钮钮组成,输入入框前的文本本提示输入框框内存储的内内容,输入框框内是我们要要输入的数据据信息,下方方的“第一条”,“上一条”,“下一条”,“最后一条”用于浏览数数据,右下方方的两个按钮钮用于数据的的添加和存储储。编辑记录:该标标签页和“添加记录”很相似,增增加了一个“删除记录”按钮和“修改记录”按钮。删除除记录前会有有一个删除确确认对话框出出现,防止用用户误删数据据。查询信息:由上上面的一组查查询组件和下下面的数据表表格组成。首首先在下拉框框中选择要查查询的字段,然然后在右边的的文本框内输输入要查询的的内容,单击击“查询”按钮即可在在下面的数据据表格中显示示所需要的信信息。支持模模糊查询
4、,可可以只输入查查询信息的一一部分。单击击“全部”按钮将显示示全部记录。打印数据:界面面和“查询信息”标签相似,增增加了一个“打印数据”按钮。这样样,既可以打打印全部信息息,又可以只只打印查询出出来的信息,所所打印的数据据就是下方数数据表格中的的数据。管理功能:包括括用户管理和和系统初始化化功能。用户户管理我们可可以增加和删删除用户,修修改用户登录录口令。初始始化功能将清清空数据表。二、数据库的结结构设计本程序用到了两两个数据表,一一个是记的流流水帐表,另另一个是用户户表,全部存存在于一个AACCESSS2000数数据库中(XXMJL.MMDB)。下下面来说明一一下数据表的的数据结构XMB表字
5、段名类型长度序号文本10收入货币自动支出货币自动日期日期/时间自动经手人文本8合计货币/计算自动New表字段名类型长度Us文本50Ps文本50程序结构图打印管理模块打印模块查询模块修改模块录入模块程序主界面登录界面软件封面打印管理模块打印模块查询模块修改模块录入模块程序主界面登录界面软件封面用户管理初始化New数据库打印数据数据查询数据修改数据录入XMB数据库用户主程序身份验证程序流程图:用户管理初始化New数据库打印数据数据查询数据修改数据录入XMB数据库用户主程序身份验证附程序源代码:programm xmjll;uses Formss, windoows, main in mmain.p
6、pas Form11, dm inn dm.pas dm2: TDattaModuule, aboutt in aboutt.pas AbooutBoxx, reporrt in repoort.paas qqr1: TTQuickkRep, logossrc inn loggosrc.pas logoo, loginn in loginn.pas dennglu;$R *.rresbegin Appliicatioon.Iniitialiize; logo:=tloggo.Creeate(aappliccationn); logo.Show; logo.Updatte; Appliicati
7、oon.CreeateFoorm(Tddm2, ddm2); Appliicatioon.CreeateFoorm(Tddengluu, dennglu); sleepp(10000); logo.Hide; logo.Free; Appliicatioon.Runn;end.unit loogosrcc;interfaaceuses Windoows, MMessagges, SSysUtiils, VVariannts, CClassees, Grraphiccs, Coontrolls, Foorms, Dialoogs, jjpeg, ExtCttrls;type Tlogoo = c
8、llass(TTForm) Imaage1: TImagge; privaate PPrivatte decclarattions publiic PPublicc decllaratiions end;var logo: Tloggo;implemeentatiion$R *.ddfmend.unit loogin;interfaaceuses Windoows, MMessagges, SSysUtiils, VVariannts, CClassees, Grraphiccs, Coontrolls, Foorms, Dialoogs, SStdCtrrls, MMask, Buttoon
9、s;type Tdengglu = classs(TForrm) BittBtn1: TBittBtn; BittBtn2: TBittBtn; CommboBoxx1: TCComboBBox; MasskEditt1: TMMaskEddit; Labbel1: TLabeel; Labbel2: TLabeel; proocedurre BittBtn2CClick(Sendeer: TOObjectt); proocedurre ForrmCreaate(Seender: TObjject); proocedurre BittBtn1CClick(Sendeer: TOObjectt)
10、; privaate PPrivatte decclarattions publiic PPublicc decllaratiions end;var dengllu: Tddengluu;implemeentatiion usess dm,mmain;$R *.ddfmproceduure Tddengluu.BitBBtn2Cllick(SSenderr: TObbject);begin appliicatioon.Terrminatte;end;proceduure Tddengluu.FormmCreatte(Sennder: TObjeect);begin withh dm2.ADO
11、Taable1 do beegin oopen; ffirst; whilee not eof ddo beggin comboobox1.Itemss.Add(fieldds0.Valuee ); next; endd; commboboxx1.IteemIndeex :=00; endd;end;proceduure Tddengluu.BitBBtn1Cllick(SSenderr: TObbject);begin withh dm2.ADOTaable1 do begiin iff locaate(uus,coomboboox1.Teext,) theen beginn if mask
12、eedit1.text=fieldds1.Valuee thenn beginn hide; with tformm1.Creeate(sself) do shhowmoddal; end; appliicatioon.Terrminatte ; end; end;end;end.unit maain;interfaaceuses Windoows, MMessagges, SSysUtiils, VVariannts, CClassees, Grraphiccs, Coontrolls, Foorms, Dialoogs, CComCtrrls, TToolWiin, Meenus, DBA
13、cttns, AActnLiist, DDB, ExtCttrls, StdCttrls, Mask, DBCttrls, ImgLiist, BButtonns, Grrids, DBGriids;type TFormm1 = cclass(TFormm) PaggeConttrol1: TPaggeConttrol; StaatusBaar1: TTStatuusBar; TabbSheett1: TTTabSheeet; TabbSheett2: TTTabSheeet; TabbSheett3: TTTabSheeet; TabbSheett5: TTTabSheeet; MaiinM
14、enuu1: TMMainMeenu; N1: TMennuItemm; N2: TMennuItemm; N4: TMennuItemm; N5: TMennuItemm; N8: TMennuItemm; N9: TMennuItemm; N100: TMeenuIteem; N122: TMeenuIteem; N133: TMeenuIteem; N144: TMeenuIteem; N155: TMeenuIteem; N166: TMeenuIteem; N177: TMeenuIteem; N188: TMeenuIteem; DattaSourrce1: TDataaSourc
15、ce; ActtionLiist1: TActiionLisst; DattaSetFFirst11: TDaataSettFirstt; DattaSetPPrior11: TDaataSettPriorr; DattaSetNNext1: TDattaSetNNext; DattaSetLLast1: TDattaSetLLast; DattaSetIInsertt1: TDDataSeetInseert; DattaSetDDeletee1: TDDataSeetDeleete; DattaSetEEdit1: TDattaSetEEdit; DattaSetPPost1: TDatta
16、SetPPost; Pannel1: TPaneel; Pannel2: TPaneel; Labbel1: TLabeel; Labbel2: TLabeel; Labbel3: TLabeel; Labbel4: TLabeel; Labbel5: TLabeel; DBEEdit1: TDBEEdit; DBEEdit2: TDBEEdit; DBEEdit9: TDBEEdit; DBEEdit100: TDBBEdit; DBEEdit111: TDBBEdit; Pannel3: TPaneel; BittBtn1: TBittBtn; BittBtn2: TBittBtn; Bi
17、ttBtn3: TBittBtn; BittBtn4: TBittBtn; ImaageLisst1: TTImageeList; BittBtn5: TBittBtn; BittBtn100: TBiitBtn; Labbel25: TLabbel; Labbel26: TLabbel; Pannel4: TPaneel; BittBtn6: TBittBtn; BittBtn7: TBittBtn; BittBtn8: TBittBtn; BittBtn9: TBittBtn; BittBtn111: TBiitBtn; BittBtn122: TBiitBtn; BittBtn133:
18、TBiitBtn; Pannel8: TPaneel; DBGGrid1: TDBGGrid; Pannel9: TPaneel; Labbel27: TLabbel; CommboBoxx1: TCComboBBox; Labbel28: TLabbel; Ediit1: TTEdit; BittBtn144: TBiitBtn; BittBtn155: TBiitBtn; Pannel13: TPannel; DBGGrid3: TDBGGrid; Pannel14: TPannel; Labbel59: TLabbel; Labbel60: TLabbel; CommboBoxx3: T
19、CComboBBox; Ediit3: TTEdit; BittBtn188: TBiitBtn; BittBtn199: TBiitBtn; BittBtn211: TBiitBtn; Timmer1: TTimeer; Labbel6: TLabeel; DBEEdit3: TDBEEdit; Pannel5: TPaneel; Labbel7: TLabeel; Labbel8: TLabeel; Labbel9: TLabeel; Labbel10: TLabbel; Labbel11: TLabbel; Labbel12: TLabbel; Labbel13: TLabbel; La
20、bbel14: TLabbel; DBEEdit4: TDBEEdit; DBEEdit5: TDBEEdit; DBEEdit6: TDBEEdit; DBEEdit7: TDBEEdit; DBEEdit8: TDBEEdit; DBEEdit122: TDBBEdit; TabbSheett4: TTTabSheeet; Pannel6: TPaneel; GrooupBoxx1: TGGroupBBox; SpeeedButtton1: TSpeeedButtton; DBGGrid2: TDBGGrid; DBEEdit133: TDBBEdit; DBEEdit144: TDBBE
21、dit; DBNNavigaator1: TDBNNavigaator; Labbel15: TLabbel; Labbel16: TLabbel; DattaSourrce2: TDataaSourcce; proocedurre N9CClick(Sendeer: TOObjectt); proocedurre N100Clickk(Sendder: TTObjecct); proocedurre N122Clickk(Sendder: TTObjecct); proocedurre N8CClick(Sendeer: TOObjectt); proocedurre N144Clickk(
22、Sendder: TTObjecct); proocedurre N5CClick(Sendeer: TOObjectt); proocedurre BittBtn5MMouseUUp(Sennder: TObjeect; BButtonn: TMoouseBuutton; SShift: TShiiftStaate; XX, Y: Integger); proocedurre fillldataa(sendder:tccombobbox); proocedurre seaarch(ff1:tcoomboboox;t1:teditt); proocedurre disspall; prooce
23、durre ForrmActiivate(Sendeer: TOObjectt); proocedurre BittBtn144Clickk(Sendder: TTObjecct); proocedurre BittBtn155Clickk(Sendder: TTObjecct); proocedurre BittBtn133Clickk(Sendder: TTObjecct); proocedurre BittBtn177Clickk(Sendder: TTObjecct); proocedurre BittBtn211Clickk(Sendder: TTObjecct); proocedu
24、rre Timmer1Tiimer(SSenderr: TObbject); proocedurre BittBtn111MouseeUp(Seender: TObjject; Buttoon: TMMouseBButtonn; SShift: TShiiftStaate; XX, Y: Integger); proocedurre BittBtn188Clickk(Sendder: TTObjecct); proocedurre SpeeedButtton1CClick(Sendeer: TOObjectt); privaate PPrivatte decclarattions publii
25、c PPublicc decllaratiions end;var Form11: TFoorm1;implemeentatiion uses abouut,dm,reporrt,loggin;$R *.ddfmproceduure TFForm1.N9Cliick(Seender: TObjject);begin tabssheet22.Showw;end;proceduure TFForm1.N10Cllick(SSenderr: TObbject);begin tabssheet33.Showw;end;proceduure TFForm1.N12Cllick(SSenderr: TOb
26、bject);begin tabbsheett5.Shoow;end;proceduure TFForm1.N8Cliick(Seender: TObjject);begin tabbsheett1.Shoow;end;proceduure TFForm1.N14Cllick(SSenderr: TObbject);begin appllicatiion.Teerminaate ;end;proceduure TFForm1.N5Cliick(Seender: TObjject);begin withh tabooutboxx.Creaate(seelf) ddo ShowwModall ;e
27、nd;proceduure TFForm1.BitBttn5MouuseUp(Sendeer: TOObjectt; Buttton: TMousseButtton; Shiftt: TShhiftSttate; X, Y: Inteeger);begin dbeddit1.TText:=inttoostr(ddm2.addoquerry1.ReecordCCount+1); dbeddit2.SSetFoccus;end;proceduure TFForm1.fillddata(ssenderr:tcommboboxx);var iCounnt: Inntegerr; /将从数据模模块中取得
28、的的数据库表的的字段名填入入CombooBox中begin sendeer.Iteems.Cllear; /首先清空CComboBBox中Ittems的值值 for iiCountt := 00 to DDM2.ADDOQuerry1.Fiields.Countt - 2 do beginn sennder.IItems.Add(DDM2.ADDOQuerry1.FiieldsiCounnt.FiieldNaame); /加加入字段名 DM22.ADOQQuery11.Nextt; /向下移移动到下一个个字段 end; sendeer.IteemIndeex := 0; /设置表单单刚出现时C
29、ComboBBox的值为为第一个end;proceduure TFForm1.searcch(f1:tcombbobox;t1:teedit); /自自定义过程ssearchh(在数据库库中搜寻指定定条件的数据据)var SearcchFielld: sttring; /要要查找的字段段名 SearcchValuue: sttring; /要要查找的字段段值begin SearcchFielld := Trim(f1.Teext); /将CoomboBoox的值赋给给SearcchFielld SearcchValuue := % + Trimm(t1.TText) + %; /将Ediit的
30、值赋给给SearcchFielld witth DM22.ADOQQuery11 do beggin cclose; /先先关闭数据模模块中的ADDOQuerry ssql.Cllear; /清清空ADOQQuery中中的SQL值值 ssql.Addd(seelect * froom xmbb wherre + SearrchFieeld + likke + SearrchVallue + ); /进行数据查查询的SQLL语句(SeearchFFidel和和SearcchValuue / 分别赋到到SQL语句句中 endd; DDm2.ADDOQuerry1.Oppen; /打开数据模模块中的
31、ADDOQuerryend;proceduure TFForm1.FormAActivaate(Seender: TObjject);begin fillldata(comboobox1); fillldata(comboobox3); tabssheet11.Showw;end;proceduure TFForm1.BitBttn14Cllick(SSenderr: TObbject);begin seaarch(ccombobbox1,eedit1);end;proceduure TFForm1.BitBttn15Cllick(SSenderr: TObbject);begin dispa
32、all;end;proceduure TFForm1.dispaall;begin with dm2.AADOQueery1 ddo beggin cclose; ssql.cllear; ssql.Addd(seelect * froom xmbb); oopen; endd;end;proceduure TFForm1.BitBttn13Cllick(SSenderr: TObbject);begin if MMessaggeDlg(你确信要要删除记录?,mtwwarninng,mbbok,mbbcanceel,0)=mrokk then DM22.ADOQQuery11.Deleete;
33、end;proceduure TFForm1.BitBttn17Cllick(SSenderr: TObbject);begin disppall;end;proceduure TFForm1.BitBttn21Cllick(SSenderr: TObbject);begin witth tqrr1.Creeate(sself) do Prrevieww;end;proceduure TFForm1.Timerr1Timeer(Sennder: TObjeect);begin stattusbarr1.Pannels33.Texxt :=ttimetoostr(nnow); stattusba
34、rr1.Pannels44.Texxt :=fformattdatettime(yyyy年年MM月ddd日,noow);end;proceduure TFForm1.BitBttn11MoouseUpp(Sendder: TTObjecct; Buutton: TMouuseButtton; Shiftt: TShhiftSttate; X, Y: Inteeger);begin dbeedit122.SetFFocus;end;proceduure TFForm1.BitBttn18Cllick(SSenderr: TObbject);begin seaarch(ccombobbox3,ee
35、dit3);end;proceduure TFForm1.SpeeddButtoon1Cliick(Seender: TObjject);begin withh dm2.ADOQuuery1 do beegin closee; sql.CClear; sql.AAdd(ddeletee * frrom xmmb); ExecSSQL; closee; sql.CClear; sql.AAdd(sselectt * frrom xmmb); open; ennd;end;end.unit dmm;interfaaceuses SysUttils, Classses, AADODB, DB;typ
36、e Tdm2 = claass(TDDataMoodule) ADOOConneectionn1: TAADOConnnectiion; ADOOQueryy1: TAADOQueery; ADOOQueryy1DSDeesigneer: TWWideSttringFField; ADOOQueryy1DSDeesigneer2: TTBCDFiield; ADOOQueryy1DSDeesigneer3: TTBCDFiield; ADOOQueryy1DSDeesigneer4: TTDateTTimeFiield; ADOOQueryy1DSDeesigneer5: TTWideSStr
37、inggFieldd; ADOOQueryy1totaal: TCCurrenncyFieeld; ADOOTablee1: TAADOTabble; proocedurre ADOOQueryy1CalccFieldds(DattaSet: TDattaSet); privaate PPrivatte decclarattions publiic PPublicc decllaratiions end;var dm2: Tdm2;implemeentatiion$R *.ddfmproceduure Tddm2.ADDOQuerry1CallcFiellds(DaataSett: TDaataSett);begin adoqquery11totall.Valuue :=AADOQueery1DSSDesiggner2.Valuee - AADOQueery1DSSDesiggner3.valuee ;end;end.unit reeport;interfaaceuses Wiindowss, SyssUtilss, Messsagess, Claasses, Grapphics, Conttrols, StdCttrls, ExtCttrls, Formss, QuiickRptt, QRCCtrls, DB, ADODBB;type Tq
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024年版权许可协议:电子书出版
- 贵州省中考语文模拟检测卷三套【附参考答案】
- 2024污水泵销售、安装及水质达标验收服务协议3篇
- 2024版:某科研机构与某企业之间关于新材料研发与应用的产学研合作协议
- 2025年度绿色能源大棚租赁合同范本全新升级版3篇
- 2024年项目居间与协助合同
- 2024年版标准个人借款合同样本3篇
- 2024年航天发射服务合同具体条款
- 专项全新干挂石材安装工程劳务服务协议版A版
- 中医针灸老师跟师体验
- 江西省2023-2024学年高二上学期期末教学检测数学试题 附答案
- Python试题库(附参考答案)
- 碳汇计量与监测技术智慧树知到期末考试答案章节答案2024年浙江农林大学
- 可用性控制程序
- GB/T 17554.1-2006识别卡测试方法第1部分:一般特性测试
- 建设银行股份关联交易申报及信息披露系统操作手册新一代
- 建筑工程施工劳务清包工合同
- 成都市国土资源局关于加强国有建设用地土地用途变更和
- 工作证明(通用)
- 试析运城市水资源可持续利用分析
- 建筑物防雷工程施工与质量验收规范
评论
0/150
提交评论