財(cái)務(wù)管理系統(tǒng)及財(cái)務(wù)知識分析程序

1、擺財(cái)務(wù)管理系統(tǒng)應(yīng)澳用程序設(shè)計(jì)俺本程序設(shè)計(jì)的是般一個(gè)小型商店每艾天記的流水帳管邦理程序，沒有具阿體到銷售的每一壩樣商品，只是記澳載了每一筆的收哎入和支出情況。奧經(jīng)過簡單擴(kuò)充就壩可以成為一個(gè)完懊整的商店銷售管凹理系統(tǒng)。下面來案說一下本程序的挨各個(gè)模塊的功能柏及數(shù)據(jù)庫的結(jié)構(gòu)疤。柏一、本程序由封巴面、登錄界面、巴主窗口、打印窗礙口及關(guān)于窗口五半部分組成。主窗挨口又由增添記錄襖、編輯記錄、查唉詢信息、打印數(shù)敖據(jù)、管理功能組奧成。扳封面：在啟動主捌程序之前顯示一熬個(gè)軟件封面，停版留大約二秒鐘，辦用于說明本軟件矮的功能版本信息吧，消除用戶等待邦主程序啟動的焦壩慮（一般用于主搬程序啟動需要較敗長時(shí)間的軟件中瓣

2、）疤登錄界面：登錄靶界面產(chǎn)生一個(gè)用白戶的下拉列表，哎用戶可選擇相應(yīng)敗的用戶名稱，輸氨入對應(yīng)的密碼進(jìn)骯入，選擇班“藹取消皚”版終止程序運(yùn)行。絆防止用戶以外的辦人看到密碼，密暗碼輸入框內(nèi)的密佰碼用胺“拌爸”哎屏蔽。敗主窗口：主窗口捌是本軟件的核心暗，百分之九十的埃功能代碼都在這版里實(shí)現(xiàn)。主窗口藹上方是一組下拉捌菜單，實(shí)現(xiàn)功能傲的切換和數(shù)據(jù)的靶處理。下面一組版標(biāo)簽頁實(shí)現(xiàn)相應(yīng)吧的功能。最下方壩的狀態(tài)條顯示當(dāng)佰前的時(shí)間和日期捌。氨打印窗口：實(shí)現(xiàn)敗所要打印的數(shù)據(jù)扒輸出之前的預(yù)覽襖，可以通過上面案的一排功能按鈕跋調(diào)整預(yù)覽效果。扳關(guān)于窗口：一個(gè)靶小對話框，顯示把的是本軟件的說扮明信息。瓣添加記錄：該標(biāo)巴簽頁由

3、上面的一凹組數(shù)據(jù)明細(xì)和下伴面的控制按鈕組百成，輸入框前的挨文本提示輸入框霸內(nèi)存儲的內(nèi)容，扳輸入框內(nèi)是我們般要輸入的數(shù)據(jù)信哀息，下方的般“稗第一條盎”爸，阿“愛上一條奧”皚，啊“搬下一條胺”暗，哀“拜最后一條拜”盎用于瀏覽數(shù)據(jù)，阿右下方的兩個(gè)按耙鈕用于數(shù)據(jù)的添扳加和存儲。安編輯記錄：該標(biāo)版簽頁和叭“敗添加記錄霸”邦很相似，增加了拜一個(gè)班“凹刪除記錄百”唉按鈕和跋“暗修改記錄爸”搬按鈕。刪除記錄矮前會有一個(gè)刪除板確認(rèn)對話框出現(xiàn)霸，防止用戶誤刪襖數(shù)據(jù)。暗查詢信息：由上哀面的一組查詢組敗件和下面的數(shù)據(jù)扒表格組成。首先靶在下拉框中選擇辦要查詢的字段，艾然后在右邊的文礙本框內(nèi)輸入要查版詢的內(nèi)容，單擊盎“吧

4、查詢傲”頒按鈕即可在下面耙的數(shù)據(jù)表格中顯絆示所需要的信息邦。支持模糊查詢背，可以只輸入查邦詢信息的一部分吧。單擊稗“藹全部版”哀按鈕將顯示全部捌記錄。扳打印數(shù)據(jù)：界面耙和哀“八查詢信息吧”般標(biāo)簽相似，增加皚了一個(gè)矮“埃打印數(shù)據(jù)氨”案按鈕。這樣，既背可以打印全部信頒息，又可以只打唉印查詢出來的信胺息，所打印的數(shù)扒據(jù)就是下方數(shù)據(jù)唉表格中的數(shù)據(jù)。皚管理功能：包括懊用戶管理和系統(tǒng)胺初始化功能。用半戶管理我們可以板增加和刪除用戶澳，修改用戶登錄耙口令。初始化功胺能將清空數(shù)據(jù)表爸。把二、數(shù)據(jù)庫的結(jié)叭構(gòu)設(shè)計(jì)艾本程序用到了兩拌個(gè)數(shù)據(jù)表，一個(gè)安是記的流水帳表案，另一個(gè)是用戶哎表，全部存在于耙一個(gè)ACCES背S2

5、000數(shù)據(jù)百庫中（XMJL擺.MDB）。下岸面來說明一下數(shù)疤據(jù)表的數(shù)據(jù)結(jié)構(gòu)XMB表捌字段名敖類型扳長度氨序號艾文本氨10把收入般貨幣氨自動稗支出哀貨幣礙自動安日期俺日期/時(shí)間板自動靶經(jīng)手人癌文本靶8伴合計(jì)疤貨幣/計(jì)算百自動New表絆字段名皚類型板長度熬Us暗文本傲50扒Ps霸文本按50程序結(jié)構(gòu)圖打印管理模塊打印模塊查詢模塊修改模塊錄入模塊程序主界面登錄界面軟件封面用戶管理初始化New數(shù)據(jù)庫打印數(shù)據(jù)數(shù)據(jù)查詢數(shù)據(jù)修改數(shù)據(jù)錄入XMB數(shù)據(jù)庫用戶主程序身份驗(yàn)證程序流程圖：附程序源代碼：爸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鞍l(fā)u = 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板e(cuò)x :=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把a(bǔ)SetIns埃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板e(cuò)l4: 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百M(fèi)ouseBu八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; 奧 /將頒從數(shù)據(jù)模塊中取鞍得的數(shù)據(jù)庫表的背字段名填入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; 把 藹 稗/向下移動到班下一個(gè)字段 end;案 sende扮r.ItemI罷ndex :=頒 0; 襖 拜 /設(shè)置表單哀剛出現(xiàn)時(shí)Com敗boBox的值瓣為第一個(gè)end;柏procedu芭re TFor巴m1.sear襖ch(f1:t瓣combobo壩x;t1:te礙dit); 罷 /唉自定義過程se把a(bǔ)rch(在數(shù)班據(jù)庫中搜尋指定扒條件的數(shù)據(jù))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; 壩 /搬先關(guān)閉數(shù)據(jù)模塊皚中的ADOQu版ery礙 s哀ql.Clea半r; /奧清空ADOQu柏ery中的SQ白L值

31、爸 s襖ql.Add(澳select胺 * from埃 xmb wh隘ere +愛 Search般Field +拜 like稗 +疤 般 Search白Value +哀 );艾 /進(jìn)行數(shù)扮據(jù)查詢的SQL敖語句（Sear稗chFidel安和Search把Value拜 版 捌 壩 佰 / 分別埃賦到SQL語句盎中斑 end暗;矮 D拌m2.ADOQ昂uery1.O笆pen; 鞍 /打開數(shù)奧據(jù)模塊中的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把a(bǔ)taSet:奧 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.白u(yù)nit 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