公司辦公費用信息管理系統(tǒng)

1、數(shù)據(jù)庫課程設計報告 - PAGE 43 -學號：200610137234 成績：_武漢科技大大學城市市學院課程設計報報告院 系 信息科科學與工工程系 專 業(yè) 計算機機科學與與技術 年級 班班 06級級 計科科二班 課程名稱 數(shù)據(jù)庫庫應用與與原理 設計題目 公司辦辦公費用用信息管管理系統(tǒng)統(tǒng)姓 名 陳釗釗 指導教師 朱倩 2008年年 66 月 227 日設計題目:公司辦公費費用管理理信息系系統(tǒng)設計計設計主要內內容:一、開發(fā)平平臺：VVB+ SQLL SEERVEER 220000二、功能要要求：1、設計內內容設計一個公公司辦公公費用管管理信息息系統(tǒng)，該該系統(tǒng)的的用戶由由一般用用戶和管管理員組組成

2、，然然后不同同的用戶戶擁有不不同的權權限，各各自完成成各自的的管理功功能，首首先是歡歡迎界面面，然后后選擇登登錄，登登錄的時時候首先先要判斷斷用戶的的身份，合合法的用用戶然后后進入到到系統(tǒng)主主界面中中，不同同的用戶戶看到不不同的系系統(tǒng)功能能。用ssql serrverr20000創(chuàng)建建后臺數(shù)數(shù)據(jù)庫，然然后利用用程序設設計語言言（VBB）編寫寫程序實實現(xiàn)對數(shù)數(shù)據(jù)庫的的操作，按按照要求求完成所所有的功功能和模模塊。2、公司辦辦公費用用管理信信息系統(tǒng)統(tǒng)主要功功能（1）用戶戶管理：用戶登登錄界面面、用戶戶注冊界界面、辦辦公費用用申請界界面、辦辦公費用用信息查查詢界面面、本用用戶密碼碼的修改改界面（2）

3、管理理員管理理：管理理員登錄錄界面、辦辦公費用用查詢界界面、辦辦公費用用添加、刪刪除界面面、本用用戶密碼碼修改界界面。 3、公公司辦公公費用管管理信息息系統(tǒng)數(shù)數(shù)據(jù)庫表表單（可可以按照照需求增增加）（1）用戶戶信息表表單：用用戶名、密密碼、用用戶身份份（管理理員和普普通用戶戶）（2）部門門信息表表單：部部門編號號、部門門名稱、部部門負責責人、聯(lián)聯(lián)系電話話、電子子郵件、備備注（3）辦公公費用申申請表單單：序號號、費用用編號（外外碼）、費費用金額額、部門門編號（外外碼）、申申請年月月、是否否通過審審核、備備注（4）辦公公費用類類別表單單：費用用編號、費費用名稱稱 （5）辦公公費用控控制表單單：部門門

4、編號（外外碼）、年年份、本本年預算算、本年年累計支支出 （6）辦公公費用支支出明細細表單：序號、費費用編號號（外碼碼）、費費用金額額、部門門編號（外外碼）、支支出日期期 三、課程設設計報告告主要內內容：1公司辦公公費用管管理信息息系統(tǒng)需需求分析析（給出出系統(tǒng)功功能模塊塊圖，對對各功能能作出詳詳細介紹紹）2公司辦公公費用管管理信息息系統(tǒng)界界面設計計（給出出界面截截圖及其其主要控控件的屬屬性設置置表格，并并給出各各界面的的詳細代代碼）3公司辦公公費用管管理信息息系統(tǒng)數(shù)數(shù)據(jù)庫設設計（給給出數(shù)據(jù)據(jù)庫各個個表單中中數(shù)據(jù)的的字段名名，數(shù)據(jù)據(jù)類型及及其相應應的說明明）4公司辦公公費用管管理信息息系統(tǒng)程程序設

5、計計（功能能模塊給給出詳細細的程序序代碼，重重點語句句的注釋釋）1. 公司司辦公費費用管理理信息系系統(tǒng)需求求分析公司辦公費用管理信息系統(tǒng)公司辦公費用管理信息系統(tǒng)登 錄用 戶 登 錄管 理 員 登 錄用戶服務新用戶注冊管理員服務本用戶密碼的修改辦公費用信息查詢辦公費用申請辦公費用查詢辦公費用添加、刪除本用戶密碼的修改 添 加更 新 刪 除 查 詢圖1.1零零件交易易管理信信息系統(tǒng)統(tǒng)1.1歡迎迎界面系統(tǒng)啟動之之后便可可進入歡歡迎界面面，單擊“系統(tǒng)登陸陸”按鈕便便可進入入選擇登登陸界面面。1.2登錄錄界面1.2.11選中管管理員登登錄后便便進入管管理員服服務界面面1.2.22選中用用戶登錄錄后便進進

6、入用戶戶服務界界面1.2.33點注冊冊彈出注注冊界面面，注冊冊成功可可返回登登錄界面面1.3管理理員服務務界面 可以進進行辦公公費用查查詢，辦辦公費用用添加、刪刪除，本本用戶密密碼修改改。1.3.11本用戶戶密碼修修改 管理員員通過輸輸入和確確認新密密碼來更更改自己己的密碼碼。1.3.22辦公費費用添加加、刪除除 選此項后后彈出選選擇費用用修改類類型，管管理員可可以查詢詢，刪除除，添加加費用信信息，在在VB界界面中修修改了數(shù)數(shù)據(jù)庫中中的信息息。1.3.33辦公費費用查詢詢 管理員可可以根據(jù)據(jù)部門的的編號進進行查詢詢，可以以查詢申申請和支支出兩種種費用。1.4用戶戶界面 用戶可可以進行行本用戶戶

7、密碼的的修改，查查看零件件信息和和工程項項目使零零件情況況。1.4.11本用戶戶密碼修修改用戶通過輸輸入和確確認新密密碼來更更改自己己的密碼碼。1.4.22辦公費費用申請請 用戶進進入界面面后可輸輸入信息息進行費費用申請請。1.4.33辦公費費用信息息查詢用戶可以根根據(jù)部門門的編號號進行查查詢，可可以查詢詢申請和和支出兩兩種費用用。2公司辦辦公費用用管理信信息系統(tǒng)統(tǒng)圖2.1 歡迎界界面圖2.2 登錄界面面圖2.3 新用戶戶注冊界界面圖2.4 管理理員服務務界面表2.1 管理理員服務務界面屬屬性表對象屬性設定值Optioon1Captiion本用戶密碼碼修改Optioon2Captiion辦公費

8、用添添加、刪刪除Optioon3captiion辦公費用查查詢圖2.5 用戶戶服務界界面表2.2 用戶戶服務界界面屬性性表對象屬性設定值Optioon1Captiion本用戶密碼碼修改Optioon2Captiion辦公費用申申請Optioon3captiion辦公費用信信息查詢詢圖2.6 用戶戶/管理理員密碼碼修改界界面圖2.7 辦公公費用申申請界面面圖2.8 辦公公費用查查詢界面面(用戶戶/管理理員)表2.3 辦公公費用查查詢界面面屬性表表對象屬性設置值Dadaggridd1datassourrceAdodcc1Adodcc1CaptiionAdodcc1CommaandsstriingD

9、SN=cchennzhaaoCommaandttypee2-adccmdttablleRecorrdsoourccePartmmentt Visiibleefalsee圖2.9 費用用修改類類型選擇擇圖2.100 申請請費用修修改界面面表2.4 申請費費用修改改界面屬屬性表對象屬性設置值Adodcc1CaptiionAdodcc1CommaandsstriingDSN=cchennzhaaoCommaandttypee2-adccmdttablleRecorrdsoourcceAppliicattionnVisibblefalseeAdodcc2CaptiionAdodcc2Commaands

10、striingDSN=cchennzhaaoCommaandttypee2-adccmdttablleVisibblefalseeRecorrdsoourcceContrrol圖2.111 支出出費用修修改界面面表2.5 支出費費用界面面屬性表表對象屬性設置值dadaggriddDatassourrceAdodcc1Adodcc1CaptiionAdodcc1Commaandttypee2-adccmdttablleRecorrdsoourcceOutVisibblefalseeAdodcc2CaptiionAdodcc2Commaandttypee2-adccmdttablleRecorrd

11、soourcceOutVisibblefalsee 圖2.111 MDII主窗體體界面3公司辦辦公費用用管理信信息系統(tǒng)統(tǒng)數(shù)據(jù)庫庫設計公司辦公費費用管理理信息系系統(tǒng)總共共有六張張表：用用戶信息息表單、部部門信息息表單、辦辦公費用用申請表表單、辦辦公費用用類別表表單、辦辦公費用用控制表表單、辦辦公費用用支出明明細表單單。表3.1 用戶信信息表UUserrs字段名稱標始名稱數(shù)據(jù)類型是否允許為為空字段說明Unamee用戶名char否主碼Ukey密碼char否Utypee用戶類型char否 表3.2 部門信信息表PParttmennt字段名稱標始名稱數(shù)據(jù)類型是否允許為為空字段說明Pno部門編號char否

12、主碼Pnamee部門名稱char否Pmanaagerr負責人char是Pcalll電話char是Pemaiil電子郵件Char是Ps備注Char是表3.3 辦公費費用申請請表Apppliicattionn字段名稱標始名稱數(shù)據(jù)類型是否允許為為空字段說明Ano序號int否主碼Tno費用編號char否引用Typpe外碼碼Amoneey申請費用char是Pno部門編號char否Partmmentt外碼Adatee申請時間smallldattetiime是Apermmit是否通過char是Aps備注char是 表3.4 辦公費費用類別別表Tyype字段名稱標始名稱數(shù)據(jù)類型是否允許為為空字段說明Tno費用

13、編號char否主碼Tnamee費用名稱char否表3.5 辦公費費用控制制表Coontrrol字段名稱標始名稱數(shù)據(jù)類型是否允許為為空字段說明Pno部門編號char否Partmmen外外碼 Cyearr年份char是Cadvaancee本年預算char是Cout本年支出char是表3.6 辦公費費用支出出明細表表Outt字段名稱標始名稱數(shù)據(jù)類型是否允許為為空字段說明Ono序號int否主碼Tno費用編號char否引用Typpe外碼碼Omoneey支出金額char是Pno部門編號char否Partmmentt外碼Odatee支出日期Smallldattetiime是4公司辦辦公費用用管理信信息系統(tǒng)統(tǒng)

14、程序設設計（部部分代碼碼）4.1歡迎迎界面歡迎界面是是整個系系統(tǒng)的首首頁，用用戶可通通過它進進入到登登錄系統(tǒng)統(tǒng)。4.2登錄錄界面 進入此此界面后后，使用用者可根根據(jù)自己己的身份份選擇登登錄方式式。普通通用戶選選擇用戶戶登錄，管管理員選選擇管理理員登錄錄。如果是是新用戶戶，直接接點注冊冊。代碼碼如下：Dim aa Ass InnteggerPrivaate Subb Coommaand11_Cllickk()a = CCombbo1.LisstInndexxWhilee a = 00If Leen(TTextt1.TTextt) 0 Theen Adoddc1.CommmanndTyype =

15、aadCmmdTeext Adoddc1.ReccorddSouurcee = seelecct uunamme ffromm usserss whheree unnamee = & TTrimm(Teext11.Teext) & andd Uttypee = & 用戶 & Adoddc1.Reffressh Elsee MsgBBox 請?zhí)钐顚懹脩魬裘?Exitt Suub End If If Adoodc11.Reecorrdseet.EEOF = TTruee Thhen MssgBoox 姓名錯錯誤!, 448, waarniing! Teext11.Teext = Teext22.T

16、eext = Exxit Subb End If IIf LLen(Texxt2.Texxt) 00 Thhen Adoddc1.CommmanndTyype = aadCmmdTeext Adoddc1.ReccorddSouurcee = seelecct uukeyy frrom useers wheere unaame = & Trrim(Texxt1.Texxt) & Adoddc1.Reffressh Elsee MsgBBox 請?zhí)钐顚懨艽a碼 Exitt Suub End If If StrrCommp(TTrimm(Addodcc1.RRecoordsset.Fieeldss(

17、uukeyy).Vallue), TTrimm(Foorm22.Teext22.Teext) 00 Thhen MsgBBox 密碼碼錯誤!, 48, wwarnningg Textt2.TTextt = Textt2.SSetFFocuus Exitt Suub Ellse MssgBoox 登錄成成功 Foorm44.Shhow Foorm22.Hiide Exxit SubbEnd IIfWendWhilee a = 11If Leen(TTextt1.TTextt) 0 Theen Adoddc1.CommmanndTyype = aadCmmdTeext Adoddc1.Reccor

18、ddSouurcee = seelecct uunamme ffromm usserss whheree unnamee = & TTrimm(Teext11.Teext) & andd Uttypee = & 管理員員 & Adoddc1.Reffressh Elsee MsgBBox 請?zhí)钐顚懹脩魬裘?Exitt Suub End IfIf Addodcc1.RRecoordsset.EOFF = Truue TThenn MssgBoox 姓名錯錯誤!, 448, waarniing! Teext11.Teext = Teext22.Teext = Exxit Subb End If I

19、If LLen(Texxt2.Texxt) 00 Thhen Adoddc1.CommmanndTyype = aadCmmdTeext Adoddc1.ReccorddSouurcee = seelecct uukeyy frrom useers wheere unaame = & Trrim(Texxt1.Texxt) & Adoddc1.Reffressh Elsee MsgBBox 請?zhí)钐顚懨艽a碼 Exitt Suub End If If StrrCommp(TTrimm(Addodcc1.RRecoordsset.Fieeldss(uukeyy).Vallue), TTrimm(Fo

20、orm22.Teext22.Teext) 00 Thhen MsgBBox 密碼碼錯誤!, 48, wwarnningg Textt2.TTextt = Textt2.SSetFFocuus Exitt Suub Ellse MssgBoox 登錄成成功 Foorm55.Shhow Foorm22.Hiide Exxit SubbEnd IIfWendEnd SSubPrivaate Subb Coommaand22_Cllickk()Dim aa Ass Innteggera = MMsgBBox(您真真的要退退出嗎？, 3055, 提示)If a = 11 Thhen End End If

21、End SSubPrivaate Subb Coommaand33_Cllickk()Form33.ShhowEnd SSubPrivaate Subb Foorm_Loaad()Comboo1.AAddIItemm 用用戶Comboo1.AAddIItemm 管管理員Comboo1.TTextt = Commbo11.Liist(0)Text11.Teext = Text22.Teext = End SSub4.3用戶戶服務界界面用戶登錄進進去后，可可以到用用戶服務務界面選選擇自己己所需的的服務，該該界面為為用戶提提供了三三種服務務，分別別是“本用戶戶密碼的的修改”，“辦公費費用信息息查詢”

22、和“辦公費費用申請請”。4.4 管管理員服服務界面面管理員登錄錄進去后后，可以以到管理理員服務務界面選選擇自己己所需的的服務，該該界面為為管理員員提供了了三種服服務，分分別是“本用戶戶密碼的的修改”，“辦公費費用信息息查詢”和“辦公費費用添加加、刪除除”。4.5 用用戶密碼碼修改界界面程序序設計（管管理員密密碼修改改也是次次界面）用戶如需修修改自己己的密碼碼可在此此界面進進行，用用戶通過過用戶服服務界面面到此，然然后在此此界面中中輸入原原始密碼碼和新密密碼并驗驗證新密密碼，確確認后如如果無誤誤就會提提示用戶戶修改成成功，并并且其密密碼在用用戶信息息表中也也會有相相應的修修改。代代碼如下下：Pr

23、ivaate Subb Coommaand11_Cllickk()If Trrim(Texxt1.Texxt = ) TThenn MsggBoxx 請請輸入密密碼！, 00, 提示 Texxt1.SettFoccus Exiit SSubEnd IIfAdodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrce = sellectt ukkey froom uuserrs wwherre uunamme = & Triim(FFormm2.TTextt1.TTextt) & Annd uukeyy = & TTrimm(Foor

24、m66.Teext11.Teext) & Adodcc1.RRefrreshhIf Addodcc1.RRecoordsset.EOFF = Truue TThenn MsggBoxx 密密碼不正正確，請請重新輸輸入！, 00, 提示 Texxt1.Texxt = Texxt2.Texxt = Texxt3.Texxt = Texxt1.SettFoccus Exiit SSubEnd IIfIf Trrim(Texxt2.Texxt) = TThenn MsggBoxx 請請輸入新新密碼, 00, 提示 Texxt2.SettFoccus Exiit SSubEnd IIfIf Trrim(

25、Texxt2.Texxt) Triim(TTextt3.TTextt) TThenn MsggBoxx 新新密碼不不一致,請從新新輸入, 00, 提示 Texxt2.Texxt = Texxt3.Texxt = Texxt2.SettFoccus Exiit SSubEnd IIfAdodcc1.RRecoordsset.Fieeldss(uukeyy).Vallue = TTrimm(Teext33.Teext)Adodcc1.RRecoordsset.UpddateeAdodcc1.RRefrreshhMsgBoox 修改密密碼成功功！, 0, 提提示Unloaad MMeEnd SSub

26、Privaate Subb Coommaand22_Cllickk()Unloaad MMeEnd SSub4.6辦公公費用查查詢界面面用戶可通過過輸入部部門編號號查找相相應部門門信息，還還可以查查詢此部部門申請請/支出出費用信信息。利利用daataggridd和addodcc控件的的連接顯顯示出來來。代碼碼如下：Dim ii Ass VaariaantPrivaate Subb Coommaand11_Cllickk()Adodcc1.RRecoordsset.MovveFiirsttEnd SSubPrivaate Subb Coommaand22_Cllickk()Adodcc1.RRe

27、coordsset.MovvePrreviioussIf Addodcc1.RRecoordsset.BOFF = Truue TThenn Adoddc1.Reccorddsett.MooveFFirsst End IfEnd SSubPrivaate Subb Coommaand33_Cllickk()Adodcc1.RRecoordsset.MovveNeextIf Addodcc1.RRecoordsset.EOFF = Truue TThenn Adoddc1.Reccorddsett.MooveLLastt End IfEnd SSubPrivaate Subb Coommaand

28、44_Cllickk()Adodcc1.RRecoordsset.MovveLaastEnd SSubPrivaate Subb Coommaand55_Cllickk()Unloaad MMeEnd SSubPrivaate Subb Coommaand66_Cllickk()Dim sstrppno As StrringgDim sstrsseleect As Strringgstrpnno = Trrim(Forrm7.Texxt1.Texxt)strseelecct = sseleect typpe.ttno,tnaame,amooneyy frrom typpe jjoinn app

29、pliicattionn onn tyype.tnoo = apppliccatiion.tnoo whheree apppliicattionn.pnno = & strrpnoo & Adodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrce = sstrsseleectAdodcc1.RRefrreshhSet DDataaGriid1.DattaSoourcce = Addodcc1 DDataaGriid1.Collumnns(00).CCapttionn = 費用用編號 DDataaGriid1.Collumnns(

30、11).CCapttionn = 費用用名稱 DDataaGriid1.Collumnns(22).CCapttionn = 申請請金額End SSubPrivaate Subb Coommaand77_Cllickk()Dim sstrppno As StrringgDim sstrsseleect As Strringgstrpnno = Trrim(Forrm7.Texxt1.Texxt)strseelecct = sseleect typpe.ttno,tnaame,omooneyy frrom typpe jjoinn ouut oon ttypee.tnno = ouut.ttno

31、 wheere outt.pnno = & strrpnoo & Adodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrce = sstrsseleectAdodcc1.RRefrreshhSet DDataaGriid1.DattaSoourcce = Addodcc1 DDataaGriid1.Collumnns(00).CCapttionn = 費用用編號 DDataaGriid1.Collumnns(11).CCapttionn = 費用用名稱 DDataaGriid1.Collumnns(22).CCapttionn

32、= 支出出金額End SSubPrivaate Subb Coommaand88_Cllickk()Dim sstrsseleect As Strringgstrseelecct = sseleect pnoo,pnnamee,pmmanaagerr,pccalll,peemaiil,pps ffromm paartmmenttAdodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrce = sstrsseleectAdodcc1.RRefrreshhSet DDataaGriid1.DattaSoourcce = Addodcc

33、1DataGGridd1.CColuumnss(0).Caaptiion = 部門編編號 DDataaGriid1.Collumnns(11).CCapttionn = 部門門名稱 DDataaGriid1.Collumnns(22).CCapttionn = 負責責人 DDataaGriid1.Collumnns(33).CCapttionn = 聯(lián)系系電話 DDataaGriid1.Collumnns(44).CCapttionn = 電子子郵件 DDataaGriid1.Collumnns(55).CCapttionn = 備注注End SSubPrivaate Subb Coommaa

34、nd99_Cllickk()Dim sstrsseleect As StrringgIf Leen(TTextt4.TTextt) 0 Theenstrseelecct = sseleect pnoo,pnnamee,pmmanaagerr,pccalll,peemaiil,pps ffromm paartmmentt whheree pnno = & Triim(TTextt4.TTextt) & Adodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrce = sstrsseleectAdodcc1.RRefrreshh II

35、f AAdoddc1.Reccorddsett.EOOF = Trrue Theen MMsgBBox 沒有有這個部部門 TTextt4.TTextt = TTextt4.SSetFFocuus EExitt Suub EElsee Sett DaataGGridd1.DDataaSouurcee = Adoodc11 DDataaGriid1.Collumnns(00).CCapttionn = 部門門編號 DDataaGriid1.Collumnns(11).CCapttionn = 部門門名稱 DDataaGriid1.Collumnns(22).CCapttionn = 負責責人 DD

36、ataaGriid1.Collumnns(33).CCapttionn = 聯(lián)系系電話 DDataaGriid1.Collumnns(44).CCapttionn = 電子子郵件 DDataaGriid1.Collumnns(55).CCapttionn = 備注注 EEnd IfEnd IIfEnd SSubPrivaate Subb Foorm_Loaad()Set DDataaGriid1.DattaSoourcce = Addodcc1DataGGridd1.CColuumnss(0).Caaptiion = 部門編編號 DDataaGriid1.Collumnns(11).CCapt

37、tionn = 部門門名稱 DDataaGriid1.Collumnns(22).CCapttionn = 負責責人 DDataaGriid1.Collumnns(33).CCapttionn = 聯(lián)系系電話 DDataaGriid1.Collumnns(44).CCapttionn = 電子子郵件 DDataaGriid1.Collumnns(55).CCapttionn = 備注注End SSub4.7辦公公費用添添加、刪刪除界面面從管理員服服務界面面進入，有有兩種費費用類型型，申請請/支出出費用修修改，管管理員需需要選擇擇。申請請費用修修改界面面代碼如如下：Dim aa Ass Innt

38、eggerDim bb Ass VaariaantDim cc Ass VaariaantPrivaate Subb Coommaand55_Cllickk()設置文本本可編輯輯Text11.Loockeed = FaalseeText22.Loockeed = FaalseeText33.Loockeed = FaalseeText77.Loockeed = FaalseeText55.Loockeed = FaalseeText66.Loockeed = FaalseeAdodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrc

39、e = sellectt maax(aano) maax ffromm apppliicattionnAdodcc1.RRefrreshha = AAdoddc1.Reccorddsett.Fiieldds(maxx).Vallue 將序號號的最大大值賦給給aAdodcc1.CCommmanddTyppe = addCmddTabbleAdodcc1.RRecoordSSourrce = apppliccatiionAdodcc1.RRefrreshhAdodcc1.RRecoordsset.AdddNewwText11.SeetFoocussCommaand55.Ennablled = FF

40、alsseCommaand66.Ennablled = FFalsseCommaand77.Ennablled = TTrueeCommaand88.Ennablled = TTrueeEnd SSubPrivaate Subb Coommaand66_Cllickk()Dim rres As InttegeerDim dd Ass Vaariaantres = MssgBoox(確實要要刪除此此行記錄錄嗎？, vvbExxclaamattionn + vbYYesNNo + vbbDeffaulltBuuttoon2) IIf rres = vvbYees TThenn Iff Addodc

41、c1.RRecoordsset.ReccorddCouunt 11 Thhen Adoodc22.CoommaandTTypee = adCCmdTTextt Adoodc22.ReecorrdSoourcce = sseleect * ffromm coontrrol wheere pnoo = & Trrim(Texxt3.Texxt) & annd ccyeaar = & Midd$(TTrimm(Teext55.Teext), 11, 44) & Adoodc22.Reefreesh 如果是是通過的的申請費費用，有有日期的的，則從從預算中中減去這這部分費費用 If Triim(TTex

42、tt6.TTextt) = 是是 AAnd Lenn(Teext55.Teext) 0 TThenn d = Adoodc22.Reecorrdseet.FFiellds(caadvaancee).Vallue - VVal(Triim(TTextt2.TTextt) Adoodc22.Reecorrdseet.FFiellds(caadvaancee).Vallue = dd Adoodc22.Reecorrdseet.UUpdaate Endd Iff AAdoddc1.Reccorddsett.Deelette Adoodc11.Reecorrdseet.UUpdaate EEnd If

43、 Iff Addodcc1.RRecoordsset.EOFF = Truue TThenn Adoodc11.Reecorrdseet.MMoveeLasst Endd Iff Ellse MssgBoox 不能將將數(shù)據(jù)全全部刪除除 Exxit Subb EEnd IfEnd SSubPrivaate Subb Coommaand77_Cllickk()Adodcc1.RRecoordsset.Fieeldss(aano).VValuue = a + 11If Leen(TTextt1.TTextt) 0 TheenAdodcc2.CCommmanddTyppe = addCmddTexxt

44、Adodcc2.RRecoordSSourrce = sellectt tnno ffromm tyype wheere tnoo = & TTrimm(Teext11.Teext) & Adodcc2.RRefrreshh If Adoodc22.Reecorrdseet.EEOF = TTruee Thhen MssgBoox 無此費費用編號號 Teext11.Teext = Teext11.SeetFoocuss Exxit Subb Elsse Addodcc1.RRecoordsset.Fieeldss(ttno).VValuue = Trrim(Texxt1.Texxt) Endd

45、 IffEnd IIfIf IssNummeriic(TTrimm(Teext22.Teext) = Trrue TheenAdodcc1.RRecoordsset.Fieeldss(aamonney).VValuue = Trrim(Texxt2.Texxt)ElseMsgBoox 請輸入入數(shù)字Text22.Teext = Text22.SeetFoocussExit SubbEnd IIfIf Leen(TTextt3.TTextt) 0 TheenAdodcc2.CCommmanddTyppe = addCmddTexxtAdodcc2.RRecoordSSourrce = sellec

46、tt pnno ffromm paartmmentt whheree pnno = & Triim(TTextt3.TTextt) & Adodcc2.RRefrreshh If Adoodc22.Reecorrdseet.EEOF = TTruee Thhen MssgBoox 無此部部門編號號 Teext33.Teext = Teext33.SeetFoocuss Exxit Subb Elsse Addodcc1.RRecoordsset.Fieeldss(ppno).VValuue = Trrim(Texxt3.Texxt) Endd IffEnd IIfIf Leen(TTextt3

47、.TTextt) = 00 ThhenMsgBoox 請輸入入部門編編號Text33.SeetFoocussExit SubbEnd IIfIf Leen(TTextt1.TTextt) 0 Theen If IsDDatee(Trrim(Texxt5.Texxt) = Truue TThenn Adoodc11.Reecorrdseet.FFiellds(addatee).Vallue = TTrimm(Teext55.Teext) Elsse MsggBoxx 日日期格式式錯誤，請請按XXXXX-XX-XX輸輸入 Texxt5.Texxt = Texxt5.SettFoccus Exiit

48、 SSub Endd IffEnd IIfAdodcc1.RRecoordsset.Fieeldss(aaperrmitt).Vallue = TTrimm(Teext66.Teext)Adodcc1.RRecoordsset.Fieeldss(aaps).VValuue = Trrim(Texxt7.Texxt)如果申請請通過，則則將申請請的費用用金額加加如到對對應預算算中If Trrim(Texxt6.Texxt) = 是 Theen IIf LLen(Texxt5.Texxt) 00 Thhenb = MMid$(Trrim(Texxt5.Texxt), 1, 4) 取取日期的的年份Ad

49、odcc2.CCommmanddTyppe = addCmddTexxtAdodcc2.RRecoordSSourrce = sellectt * froom cconttroll whheree pnno = & Triim(TTextt3.TTextt) & annd ccyeaar = & b & Adodcc2.RRefrreshhc = AAdoddc2.Reccorddsett.Fiieldds(caddvannce).VValuue + Vaal(TTrimm(Teext22.Teext) 取取預算金金額和申申請金額額之和Adodcc2.RRecoordsset.Fieeldss

50、(ccadvvancce).Vaaluee = cAdodcc2.RRecoordsset.Upddatee Ennd IIfEnd IIfAdodcc1.RRecoordsset.UpddateeMsgBoox 更新成成功設置文本本不可編編輯Text11.Loockeed = TrrueText22.Loockeed = TrrueText33.Loockeed = TrrueText77.Loockeed = TrrueText55.Loockeed = TrrueText66.Loockeed = TrrueCommaand55.Ennablled = TTrueeCommaand66.

51、Ennablled = TTrueeCommaand88.Ennablled = FFalsseEnd SSubPrivaate Subb Coommaand88_Cllickk()Adodcc1.RRecoordsset.CanncellUpddateeCommaand55.Ennablled = TTrueeCommaand66.Ennablled = TTrueeCommaand88.Ennablled = FFalsseEnd SSubPrivaate Subb Foorm_Loaad()Commaand88.Ennablled = FFalsseCommaand77.Ennablle

52、d = FFalsseEnd SSubPrivaate Subb Coommaand11_Cllickk()Adodcc1.RRecoordsset.MovveFiirsttEnd SSubPrivaate Subb Coommaand22_Cllickk()Adodcc1.RRecoordsset.MovvePrreviioussIf Addodcc1.RRecoordsset.BOFF = Truue TThenn Adoddc1.Reccorddsett.MooveFFirsst End IfEnd SSubPrivaate Subb Coommaand33_Cllickk()Adodc

53、c1.RRecoordsset.MovveNeextIf Addodcc1.RRecoordsset.EOFF = Truue TThenn Adoddc1.Reccorddsett.MooveLLastt End IfEnd SSubPrivaate Subb Coommaand44_Cllickk()Adodcc1.RRecoordsset.MovveLaastEnd SSub支出費用修修改代碼碼如下：Dim aa Ass InnteggerDim bb Ass VaariaantDim cc Ass VaariaantPrivaate Subb Coommaand55_Cllickk()

54、Adodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrce = sellectt maax(oono) maax ffromm ouutAdodcc1.RRefrreshha = AAdoddc1.Reccorddsett.Fiieldds(maxx).VallueAdodcc1.CCommmanddTyppe = addCmddTabbleAdodcc1.RRecoordSSourrce = outtAdodcc1.RRefrreshhAdodcc1.RRecoordsset.AdddNewwText11.SeetFoocus

55、sCommaand55.Ennablled = FFalsseCommaand66.Ennablled = FFalsseCommaand77.Ennablled = TTrueeCommaand88.Ennablled = TTrueeEnd SSubPrivaate Subb Coommaand66_Cllickk()Dim rres As Inttegeerres = MssgBoox(確實要要刪除此此行記錄錄嗎？, vvbExxclaamattionn + vbYYesNNo + vbbDeffaulltBuuttoon2) If ress = vbYYes Theen Iff Add

56、odcc1.RRecoordsset.ReccorddCouunt 11 Thhen 如如果支出出的費用用有日期期，則從從總支出出中去掉掉這部分分支出 IIf LLen(Texxt5.Texxt) 00 Thhen AAdoddc2.CommmanndTyype = aadCmmdTeext AAdoddc2.ReccorddSouurcee = seelecct * frrom conntrool wwherre ppno = & Triim(TTextt3.TTextt) & andd cyyearr = & MMid$(Trrim(Texxt5.Texxt), 1, 4) & AAdod

57、dc2.Reffressh d = Addodcc2.RRecoordsset.Fieeldss(ccoutt).Vallue - VVal(Triim(TTextt2.TTextt) AAdoddc2.Reccorddsett.Fiieldds(couut).Vaaluee = d AAdoddc2.Reccorddsett.Uppdatte Adoodc11.Reecorrdseet.DDeleete AAdoddc1.Reccorddsett.Uppdatte EEnd If Iff Addodcc1.RRecoordsset.EOFF = Truue TThenn Adoodc11.R

58、eecorrdseet.MMoveeLasst Endd Iff Ellse MssgBoox 不能將將數(shù)據(jù)全全部刪除除 Exxit Subb Ennd IIf Ennd IIfEnd SSubPrivaate Subb Coommaand77_Cllickk()Adodcc1.RRecoordsset.Fieeldss(oono).VValuue = a + 11If Leen(TTextt1.TTextt) 0 TheenAdodcc2.CCommmanddTyppe = addCmddTexxtAdodcc2.RRecoordSSourrce = sellectt tnno ffromm

59、 tyype wheere tnoo = & TTrimm(Teext11.Teext) & Adodcc2.RRefrreshh If Adoodc22.Reecorrdseet.EEOF = TTruee Thhen MssgBoox 無此費費用編號號 Teext11.Teext = Teext11.SeetFoocuss Exxit Subb Elsse Addodcc1.RRecoordsset.Fieeldss(ttno).VValuue = Trrim(Texxt1.Texxt) Endd IffEnd IIfIf IssNummeriic(TTrimm(Teext22.Teext

60、) = Trrue TheenAdodcc1.RRecoordsset.Fieeldss(oomonney).VValuue = Trrim(Texxt2.Texxt)ElseMsgBoox 請輸入入數(shù)字Text22.Teext = Text22.SeetFoocussExit SubbEnd IIfIf Leen(TTextt3.TTextt) 0 TheenAdodcc2.CCommmanddTyppe = addCmddTexxtAdodcc2.RRecoordSSourrce = sellectt pnno ffromm paartmmentt whheree pnno = & Tri