财务管理系统及财务知识分析程序

1、摆财务管理系统应澳用程序设计俺本程序设计的是般一个小型商店每艾天记的流水帐管邦理程序，没有具阿体到销售的每一坝样商品，只是记澳载了每一笔的收哎入和支出情况。奥经过简单扩充就坝可以成为一个完懊整的商店销售管凹理系统。下面来案说一下本程序的挨各个模块的功能柏及数据库的结构疤。柏一、本程序由封巴面、登录界面、巴主窗口、打印窗碍口及关于窗口五半部分组成。主窗挨口又由增添记录袄、编辑记录、查唉询信息、打印数敖据、管理功能组奥成。扳封面：在启动主捌程序之前显示一熬个软件封面，停版留大约二秒钟，办用于说明本软件矮的功能版本信息吧，消除用户等待邦主程序启动的焦坝虑（一般用于主搬程序启动需要较败长时间的软件中瓣

2、）疤登录界面：登录靶界面产生一个用白户的下拉列表，哎用户可选择相应败的用户名称，输氨入对应的密码进肮入，选择班“蔼取消皑”版终止程序运行。绊防止用户以外的办人看到密码，密暗码输入框内的密佰码用胺“拌爸”哎屏蔽。败主窗口：主窗口捌是本软件的核心暗，百分之九十的埃功能代码都在这版里实现。主窗口蔼上方是一组下拉捌菜单，实现功能傲的切换和数据的靶处理。下面一组版标签页实现相应吧的功能。最下方坝的状态条显示当佰前的时间和日期捌。氨打印窗口：实现败所要打印的数据扒输出之前的预览袄，可以通过上面案的一排功能按钮跋调整预览效果。扳关于窗口：一个靶小对话框，显示把的是本软件的说扮明信息。瓣添加记录：该标巴签页由

3、上面的一凹组数据明细和下伴面的控制按钮组百成，输入框前的挨文本提示输入框霸内存储的内容，扳输入框内是我们般要输入的数据信哀息，下方的般“稗第一条盎”爸，阿“爱上一条奥”皑，啊“搬下一条胺”暗，哀“拜最后一条拜”盎用于浏览数据，阿右下方的两个按耙钮用于数据的添扳加和存储。安编辑记录：该标版签页和叭“败添加记录霸”邦很相似，增加了拜一个班“凹删除记录百”唉按钮和跋“暗修改记录爸”搬按钮。删除记录矮前会有一个删除板确认对话框出现霸，防止用户误删袄数据。暗查询信息：由上哀面的一组查询组败件和下面的数据扒表格组成。首先靶在下拉框中选择办要查询的字段，艾然后在右边的文碍本框内输入要查版询的内容，单击盎“吧

4、查询傲”颁按钮即可在下面耙的数据表格中显绊示所需要的信息邦。支持模糊查询背，可以只输入查邦询信息的一部分吧。单击稗“蔼全部版”哀按钮将显示全部捌记录。扳打印数据：界面耙和哀“八查询信息吧”般标签相似，增加皑了一个矮“埃打印数据氨”案按钮。这样，既背可以打印全部信颁息，又可以只打唉印查询出来的信胺息，所打印的数扒据就是下方数据唉表格中的数据。皑管理功能：包括懊用户管理和系统胺初始化功能。用半户管理我们可以板增加和删除用户澳，修改用户登录耙口令。初始化功胺能将清空数据表爸。把二、数据库的结叭构设计艾本程序用到了两拌个数据表，一个安是记的流水帐表案，另一个是用户哎表，全部存在于耙一个ACCES背S2

5、000数据百库中（XMJL摆.MDB）。下岸面来说明一下数疤据表的数据结构XMB表捌字段名敖类型扳长度氨序号艾文本氨10把收入般货币氨自动稗支出哀货币碍自动安日期俺日期/时间板自动靶经手人癌文本靶8伴合计疤货币/计算百自动New表绊字段名皑类型板长度熬Us暗文本傲50扒Ps霸文本按50程序结构图打印管理模块打印模块查询模块修改模块录入模块程序主界面登录界面软件封面用户管理初始化New数据库打印数据数据查询数据修改数据录入XMB数据库用户主程序身份验证程序流程图：附程序源代码：爸program邦 xmjl;uses搬 Forms傲,奥 windo胺ws,盎 main 哎in mai耙n.pas

6、熬Form1扒,氨 dm in班 dm.pa澳s dm2捌: TData搬Module稗,叭 about拜 in ab坝out.pas啊 Abou疤tBox,般 repor熬t in r袄eport.p败as qr罢1: TQui爸ckRep,伴 logos袄rc in 斑logosrc扒.pas 扮logo,挨 login挨 in lo办gin.pas案 deng八lu;颁$R *.r霸esbegin疤 Appli版cation.摆Initial半ize;八 logo:俺=tlogo.伴Create(叭applica安tion);颁 logo.搬Show;氨 logo.佰Update;哎 A

7、ppli败cation.背CreateF扒orm(Tdm熬2, dm2)暗;暗 Appli矮cation.捌CreateF霸orm(Tde挨nglu, d版englu);颁 sleep瓣(1000);隘 logo.胺Hide;拜 logo.叭Free;艾 Appli扮cation.碍Run;end.挨unit lo柏gosrc;蔼interfa把ceuses碍 Windo霸ws, Mes隘sages, 挨SysUtil坝s, Vari哀ants, C案lasses,矮 Graphi扒cs, Con暗trols, 懊Forms,背 Dialo胺gs, jpe绊g, ExtC班trls;type按

8、 Tlogo案 = clas搬s(TForm拜)胺 Ima案ge1: TI佰mage;耙 priva霸te白 P挨rivate 挨declara哎tions 唉 publi颁c板 P板ublic d盎eclarat巴ions end;var班 logo:肮 Tlogo;拌impleme袄ntation袄$R *.d凹fmend.氨unit lo叭gin;鞍interfa佰ceuses扳 Windo版ws, Mes斑sages, 傲SysUtil盎s, Vari蔼ants, C爱lasses,捌 Graphi八cs, Con熬trols, 蔼Forms,暗 Dialo哀gs, Std颁Ctrls

9、, 把Mask, B艾uttons;type蔼 Tdeng鞍lu = cl半ass(TFo埃rm)半 Bit扳Btn1: T皑BitBtn;鞍 Bit邦Btn2: T皑BitBtn;颁 Com半boBox1:拌 TCombo熬Box;澳 Mas疤kEdit1:哀 TMaskE俺dit;吧 Lab白el1: TL吧abel;摆 Lab笆el2: TL拔abel;隘 pro碍cedure 埃BitBtn2邦Click(S八ender: 艾TObject摆);阿 pro巴cedure 敖FormCre哀ate(Sen扳der: TO八bject);绊 pro扒cedure 懊BitBtn1奥Clic

10、k(S案ender: 皑TObject把);懊 priva败te败 P霸rivate 半declara芭tions 碍 publi靶c芭 P败ublic d翱eclarat凹ions end;var袄 dengl捌u: Tden傲glu;胺impleme半ntation扳 uses唉 dm,mai办n;扳$R *.d啊fm敖procedu瓣re Tden唉glu.Bit爸Btn2Cli扒ck(Send颁er: TOb唉ject);begin哀 appli唉cation.暗Termina氨te;end;胺procedu盎re Tden跋glu.For爸mCreate案(Sender绊: TObj

11、e疤ct);begin澳 with鞍 dm2.AD埃OTable1疤 do拌 be盎gin八 o艾pen;碍 f安irst;罢 熬while n捌ot eof 啊do瓣 绊 begin班 罢combobo白x1.Item绊s.Add(f芭ields0把.Value敖 );蔼 矮next;翱 爸 end;暗 com癌bobox1.叭ItemInd板ex :=0;把 end白;end;跋procedu吧re Tden耙glu.Bit耙Btn1Cli邦ck(Send岸er: TOb稗ject);begin氨 with百 dm2.AD笆OTable1八 do斑 begi鞍n矮 if唉 locate瓣(

12、us,c挨ombobox跋1.Text,傲) the柏n靶 敖begin胺 吧 if ma罢skedit1昂.text=f哎ields1安.Value扮 then扮 蔼 be埃gin跋 颁 hi昂de;板 皑 wi佰th tfor案m1.Crea邦te(self袄) do靶 半 碍 showmo懊dal;绊 盎 en半d;隘 爱 ap芭plicati岸on.Term邦inate ;按 巴end; end;end;end.熬unit ma隘in;拔interfa败ceuses阿 Windo蔼ws, Mes瓣sages, 版SysUtil肮s, Vari靶ants, C叭lasses,暗 Grap

13、hi唉cs, Con颁trols, 案Forms,耙 Dialo半gs, Com澳Ctrls, 伴ToolWin暗, Menus邦, DBAct鞍ns, Act败nList, 靶DB, 靶 ExtCt败rls, St柏dCtrls,半 Mask, 拔DBCtrls啊, ImgLi八st, But柏tons, G背rids, D蔼BGrids;type摆 TForm俺1 = cla阿ss(TFor袄m)罢 Pag隘eContro斑l1: TPa俺geContr懊ol;袄 Sta哎tusBar1胺: TStat凹usBar;柏 Tab爸Sheet1:办 TTabSh般eet;盎 Tab案Sheet

14、2:氨 TTabSh邦eet;澳 Tab矮Sheet3:懊 TTabSh佰eet;按 Tab八Sheet5:艾 TTabSh肮eet;蔼 Mai把nMenu1:霸 TMainM伴enu;啊 N1:摆 TMenuI盎tem;败 N2:埃 TMenuI熬tem;佰 N4:芭 TMenuI佰tem;盎 N5:跋 TMenuI稗tem;颁 N8:靶 TMenuI哎tem;板 N9:盎 TMenuI拔tem;澳 N10叭: TMenu绊Item;拔 N12霸: TMenu岸Item;矮 N13岸: TMenu癌Item;半 N14暗: TMenu皑Item;爸 N15柏: TMenu佰Item;蔼 N1

15、6哎: TMenu半Item;爸 N17肮: TMenu办Item;扳 N18芭: TMenu安Item;袄 Dat斑aSource般1: TDat办aSource跋;哎 Act伴ionList办1: TAct胺ionList柏;唉 Dat哎aSetFir爸st1: TD蔼ataSetF爸irst;霸 Dat耙aSetPri败or1: TD暗ataSetP奥rior;罢 Dat扮aSetNex挨t1: TDa班taSetNe氨xt;埃 Dat耙aSetLas佰t1: TDa八taSetLa蔼st;爸 Dat把aSetIns埃ert1: T佰DataSet鞍Insert;奥 Dat板aSetDe

16、l昂ete1: T佰DataSet柏Delete;阿 Dat白aSetEdi埃t1: TDa案taSetEd班it;笆 Dat挨aSetPos啊t1: TDa暗taSetPo疤st;靶 Pan伴el1: TP挨anel;斑 Pan耙el2: TP班anel;蔼 Lab半el1: TL伴abel;疤 Lab碍el2: TL岸abel;板 Lab版el3: TL盎abel;哎 Lab哀el4: TL半abel;白 Lab熬el5: TL熬abel;鞍 DBE版dit1: T半DBEdit;稗 DBE拌dit2: T颁DBEdit;癌 DBE版dit9: T敖DBEdit;皑 DBE柏dit10:

17、八TDBEdit颁;安 DBE艾dit11: 岸TDBEdit背;斑 Pan扮el3: TP背anel;靶 Bit鞍Btn1: T斑BitBtn;绊 Bit暗Btn2: T岸BitBtn;哀 Bit搬Btn3: T艾BitBtn;耙 Bit氨Btn4: T芭BitBtn;埃 Ima癌geList1般: TImag罢eList;百 Bit办Btn5: T袄BitBtn;啊 Bit唉Btn10: 疤TBitBtn阿;般 Lab耙el25: T奥Label;跋 Lab扮el26: T俺Label;哎 Pan板el4: TP斑anel;扮 Bit跋Btn6: T扒BitBtn;瓣 Bit胺Btn7:

18、T佰BitBtn;耙 Bit瓣Btn8: T靶BitBtn;霸 Bit斑Btn9: T八BitBtn;按 Bit埃Btn11: 伴TBitBtn坝;暗 Bit佰Btn12: 俺TBitBtn版;百 Bit俺Btn13: 板TBitBtn岸;坝 Pan爱el8: TP隘anel;按 DBG佰rid1: T傲DBGrid;靶 Pan胺el9: TP俺anel;哀 Lab矮el27: T碍Label;捌 Com佰boBox1:敖 TCombo办Box;翱 Lab斑el28: T敖Label;敖 Edi岸t1: TEd啊it;邦 Bit搬Btn14: 柏TBitBtn稗;靶 Bit哎Btn15: 敖T

19、BitBtn啊;凹 Pan耙el13: T稗Panel;蔼 DBG疤rid3: T隘DBGrid;鞍 Pan隘el14: T胺Panel;吧 Lab肮el59: T翱Label;斑 Lab扒el60: T挨Label;叭 Com笆boBox3:案 TCombo半Box;扒 Edi拌t3: TEd岸it;扳 Bit懊Btn18: 安TBitBtn捌;败 Bit靶Btn19: 半TBitBtn翱;啊 Bit俺Btn21: 板TBitBtn俺;摆 Tim吧er1: TT熬imer;耙 Lab班el6: TL拜abel;跋 DBE爱dit3: T隘DBEdit;拜 Pan柏el5: TP啊anel;伴

20、 Lab案el7: TL肮abel;扒 Lab白el8: TL板abel;白 Lab稗el9: TL板abel;蔼 Lab艾el10: T案Label;摆 Lab摆el11: T佰Label;澳 Lab跋el12: T盎Label;胺 Lab懊el13: T艾Label;胺 Lab癌el14: T挨Label;摆 DBE笆dit4: T氨DBEdit;摆 DBE哀dit5: T板DBEdit;笆 DBE芭dit6: T扮DBEdit;皑 DBE吧dit7: T爸DBEdit;哎 DBE摆dit8: T埃DBEdit;肮 DBE澳dit12: 啊TDBEdit败;埃 Tab靶Sheet4:敖 T

21、TabSh哀eet;般 Pan扮el6: TP哀anel;暗 Gro板upBox1:艾 TGroup跋Box;霸 Spe耙edButto隘n1: TSp暗eedButt扒on;背 DBG拜rid2: T碍DBGrid;白 DBE袄dit13: 绊TDBEdit柏;坝 DBE氨dit14: 哎TDBEdit靶;奥 DBN翱avigato翱r1: TDB颁Navigat肮or;埃 Lab佰el15: T扳Label;叭 Lab靶el16: T伴Label;佰 Dat矮aSource俺2: TDat邦aSource坝;袄 pro拌cedure 暗N9Click鞍(Sender岸: TObje跋ct)

22、;盎 pro败cedure 阿N10Clic背k(Sende拌r: TObj哀ect);暗 pro版cedure 绊N12Clic啊k(Sende爸r: TObj爸ect);霸 pro扳cedure 扒N8Click拜(Sender佰: TObje八ct);蔼 pro罢cedure 挨N14Clic柏k(Sende艾r: TObj笆ect);盎 pro皑cedure 罢N5Click扳(Sender芭: TObje阿ct);袄 pro哀cedure 傲BitBtn5翱MouseUp捌(Sender稗: TObje伴ct; But摆ton: TM办ouseBut板ton;百 S拜hift: T八

23、ShiftSt靶ate; X,按 Y: Int敖eger);八 pro懊cedure 癌filldat绊a(sende袄r:tcomb柏obox);啊 pro版cedure 按search(埃f1:tcom白bobox;t拜1:tedit摆);跋 pro啊cedure 吧dispall胺;案 pro绊cedure 耙FormAct笆ivate(S伴ender: 皑TObject爸);澳 pro芭cedure 稗BitBtn1蔼4Click(巴Sender:奥 TObjec皑t);邦 pro白cedure 奥BitBtn1拜5Click(案Sender:凹 TObjec矮t);俺 pro佰ced

24、ure 安BitBtn1办3Click(安Sender:昂 TObjec拌t);伴 pro罢cedure 凹BitBtn1版7Click(班Sender:袄 TObjec叭t);啊 pro爸cedure 懊BitBtn2哀1Click(隘Sender:般 TObjec懊t);蔼 pro跋cedure 俺Timer1T邦imer(Se把nder: T绊Object)啊;拔 pro柏cedure 拜BitBtn1稗1MouseU靶p(Sende昂r: TObj哀ect; Bu笆tton: T百MouseBu八tton;拜 S埃hift: T跋ShiftSt哎ate; X,安 Y: Int袄eger

25、);癌 pro叭cedure 白BitBtn1笆8Click(斑Sender:奥 TObjec俺t);把 pro敖cedure 拌SpeedBu绊tton1Cl啊ick(Sen背der: TO爸bject);背 priva邦te白 P绊rivate 蔼declara艾tions 班 publi胺c罢 P艾ublic d唉eclarat埃ions end;var爸 Form1把: TForm艾1;把impleme氨ntation疤 uses 熬 about,氨dm,repo绊rt,logi傲n;哎$R *.d懊fm肮procedu哀re TFor般m1.N9Cl把ick(Sen埃der: TO奥

26、bject);begin傲 tabs版heet2.S耙how;end;凹procedu耙re TFor半m1.N10C哀lick(Se傲nder: T跋Object)皑;begin袄 tabs懊heet3.S扒how;end;斑procedu啊re TFor扒m1.N12C敖lick(Se埃nder: T翱Object)摆;begin瓣 tab巴sheet5.翱Show;end;白procedu皑re TFor疤m1.N8Cl奥ick(Sen俺der: TO艾bject);begin懊 tab哀sheet1.半Show;end;阿procedu挨re TFor暗m1.N14C暗lick(Se懊

27、nder: T摆Object)百;begin斑 appl爸ication矮.Termin岸ate ;end;爸procedu百re TFor碍m1.N5Cl半ick(Sen百der: TO耙bject);begin案 with般 tabout蔼box.Cre爸ate(sel袄f) do唉 Show伴Modal ;end;挨procedu暗re TFor爸m1.BitB按tn5Mous邦eUp(Sen颁der: TO爱bject; 颁Button:暗 TMouse办Button;肮 Shift稗: TShif蔼tState;胺 X, Y: 罢Integer百);begin案 dbed懊it1.T

28、ex案t:=intt拜ostr(dm百2.adoqu罢ery1.Re摆cordCou芭nt+1);傲 dbed扳it2.Set暗Focus;end;熬procedu搬re TFor奥m1.fill靶data(se办nder:tc暗ombobox案);var癌 iCoun奥t: Inte艾ger; 奥 /将颁从数据模块中取鞍得的数据库表的背字段名填入Co肮mboBox中begin耙 sende巴r.Items懊.Clear;叭 /首安先清空Comb爸oBox中It敖ems的值扳 for i霸Count :案= 0 to 鞍DM2.ADO耙Query1.癌Fields.罢Count -熬 2 do

29、 begin伴 sen颁der.Ite胺ms.Add(懊DM2.ADO肮Query1.傲Fields办iCount拔.FieldN阿ame); 伴 /加入字段疤名霸 DM2胺.ADOQue笆ry1.Nex肮t; 把 蔼 稗/向下移动到班下一个字段 end;案 sende扮r.ItemI罢ndex :=颁 0; 袄 拜 /设置表单哀刚出现时Com败boBox的值瓣为第一个end;柏procedu芭re TFor巴m1.sear袄ch(f1:t瓣combobo坝x;t1:te碍dit); 罢 /唉自定义过程se把arch(在数班据库中搜寻指定扒条件的数据)var拜 Searc笆hField:坝 s

30、tring瓣; 俺 /要查找的哎字段名拌 Searc癌hValue:班 string挨; 按 /要查找的般字段值begin阿 Searc笆hField 案:= Trim摆(f1.Tex耙t); 碍 捌/将Comb唉oBox的值赋百给Search霸Field办 Searc拌hValue 爸:= % 捌+ Trim(把t1.Text艾) + %般; /将按Edit的值赋扒给Search半Field笆 wit版h DM2.A办DOQuery扳1 do蔼 beg艾in白 c按lose; 坝 /搬先关闭数据模块皑中的ADOQu版ery碍 s哀ql.Clea半r; /奥清空ADOQu柏ery中的SQ白L值

31、爸 s袄ql.Add(澳select胺 * from埃 xmb wh隘ere +爱 Search般Field +拜 like稗 +疤 般 Search白Value +哀 );艾 /进行数扮据查询的SQL敖语句（Sear稗chFidel安和Search把Value拜 版 捌 坝 佰 / 分别埃赋到SQL语句盎中斑 end暗;矮 D拌m2.ADOQ昂uery1.O笆pen; 鞍 /打开数奥据模块中的AD疤OQueryend;摆procedu柏re TFor俺m1.Form般Activat稗e(Sende霸r: TObj癌ect);begin板 fill跋data(co捌mbobox1氨);把 fi

32、ll疤data(co斑mbobox3版);八 tabs癌heet1.S摆how;end;暗procedu肮re TFor柏m1.BitB氨tn14Cli埃ck(Send佰er: TOb扳ject);begin暗 sea般rch(com霸bobox1,阿edit1);end;懊procedu埃re TFor败m1.BitB芭tn15Cli芭ck(Send柏er: TOb奥ject);begin背 dispa伴ll;end;八procedu肮re TFor耙m1.disp昂all;begin扮 with 啊dm2.ADO版Query1 爱do按 beg捌in白 c瓣lose;扒 s背ql.clea

33、皑r;捌 s半ql.Add(拌select癌 * from碍 xmb);氨 o拔pen;版 end哎;end;吧procedu埃re TFor奥m1.BitB傲tn13Cli扮ck(Send挨er: TOb半ject);begin扳 if M埃essageD扒lg(你确信懊要删除记录?氨,mtwarn氨ing,mb癌ok,mbca搬ncel,0爱)=mrok then袄 DM2疤.ADOQue熬ry1.Del案ete;end;霸procedu案re TFor绊m1.BitB柏tn17Cli昂ck(Send巴er: TOb拌ject);begin叭 disp矮all;end;蔼procedu跋r

34、e TFor奥m1.BitB拔tn21Cli癌ck(Send傲er: TOb澳ject);begin佰 wit澳h tqr1.芭Create(跋self) d邦o版 Pr拜eview;end;癌procedu板re TFor把m1.Time摆r1Timer胺(Sender稗: TObje邦ct);begin摆 stat翱usbar1.绊Panels霸3.Text罢 :=time氨tostr(n爱ow);耙 stat癌usbar1.柏Panels敖4.Text爸 :=form熬atdatet翱ime(yy蔼yy年MM月d懊d日,now鞍);end;凹procedu爸re TFor艾m1.BitB

35、罢tn11Mou皑seUp(Se拌nder: T柏Object;颁 Button伴: TMous拌eButton啊;翱 Shift暗: TShif埃tState;巴 X, Y: 白Integer伴);begin瓣 dbe懊dit12.S鞍etFocus岸;end;哎procedu凹re TFor碍m1.BitB稗tn18Cli袄ck(Send鞍er: TOb澳ject);begin岸 sea吧rch(com哀bobox3,敖edit3);end;案procedu芭re TFor暗m1.Spee办dButton百1Click(百Sender:霸 TObjec爸t);begin柏 with扳 dm

36、2.AD邦OQuery1巴 do胺 be熬gin疤 佰close;案 蔼sql.Cle凹ar;柏 巴sql.Add柏(delet爸e * fro叭m xmb)皑;疤 唉ExecSQL笆;挨 巴close;碍 哎sql.Cle肮ar;肮 昂sql.Add颁(selec挨t * fro按m xmb)唉;班 蔼open;板 en拌d;end;end.耙unit dm半;阿interfa叭ceuses俺 SysUt柏ils, Cl斑asses, 傲ADODB, 叭DB;type啊 Tdm2 稗= class奥(TDataM斑odule)隘 ADO奥Connect啊ion1: T碍ADOConn办ect

37、ion;爸 ADO笆Query1:摆 TADOQu伴ery;柏 ADO柏Query1D挨SDesign肮er: TWi八deStrin拜gField;班 ADO靶Query1D案SDesign爱er2: TB搬CDField埃;矮 ADO拔Query1D吧SDesign氨er3: TB瓣CDField败;案 ADO佰Query1D岸SDesign唉er4: TD盎ateTime稗Field;版 ADO半Query1D版SDesign肮er5: TW柏ideStri皑ngField俺;办 ADO板Query1t岸otal: T盎Currenc爱yField;哀 ADO百Table1:澳 TADO

38、Ta柏ble;安 pro鞍cedure 鞍ADOQuer爱y1CalcF矮ields(D把ataSet:奥 TDataS爸et);拌 priva班te鞍 P办rivate 稗declara靶tions 扒 publi把c靶 P班ublic d啊eclarat班ions end;var摆 dm2: 啊Tdm2;俺impleme瓣ntation奥$R *.d傲fm白procedu奥re Tdm2蔼.ADOQue班ry1Calc按Fields(唉DataSet捌: TData芭Set);begin捌 adoq扮uery1to埃tal.Val蔼ue :=AD把OQuery1霸DSDesig坝ner2.Va罢lue -熬 罢 艾 安 AD癌OQuery1盎DSDesig绊ner3.va吧lue ;end;end.白unit re碍port;癌interfa霸ce碍uses Wi百ndows, 佰SysUtil败s, Mess摆ages, C翱lasses,扒 Graphi办cs, Con哀trols,隘 StdCt扳rls, Ex绊tCtrls,八 Forms,暗 QuickR凹pt, QRC捌trls, D皑B, ADOD疤B;type