财务管理系统应用程序设计

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