1、0錄第一章緒論21. 1課題簡介21. 2開發的意義2第二章開發環境及實現技術42. 1開發環境42. 2開發工具簡介4第三章系統設計63. 1概要設計63. 1. 1概要設計階段的主要任務63. 1. 2概要設計的過程63. 1. 3概要設計的原則錯誤！未定義書簽。3. 1. 4系統功能分析錯誤！未定義書簽。3. 2詳細設計73. 2. 1詳細設計的任務73. 2. 2詳細設計的方法7 第四章數據庫設計錯誤！未定義書簽。4. 1數據庫access簡介錯誤！未定義書簽。4. 2數據庫需求分析84. 3表的詳細結構說明94. 4測試用例15第五章詳細設計錯誤！未定義書簽。5. 1系統登錄模塊的設

2、計與實現 錯誤！未定義書簽。5. 2主界而的設計與實現錯誤！未定義書簽。5. 3工資管理設計與實現 錯誤！未定義書簽。5. 4固定資產管理的設計與實現錯誤！未定義書簽。5. 5流動資產管理的設計與實現 錯誤！未定義書簽。5. 6用戶管理的設計與實現 錯誤！未定義書簽。第六章系統使用說明錯誤！未定義書簽。61使用說明錯誤！未定義書簽。6. 2運行環境 錯誤！未定義書簽。 結束語49致謝49參考文獻50第一章緒論1. 1課題簡介財務管理系統是毎一個單位管理財務收入和支出的不可缺少的一個管理信息 系統,它的內容對企業財務計劃，財務控制，財務監督，財務運用等方而都起著巨 大的作用。如何發揮財務管理的作

3、用關系到一個企業的命脈。財務管理的工作對象是資金運動，只要有資金運動就離不開財務管理。一個企業的生產經營活動無外乎供、產、銷三個環節，這個過程始終貫穿著 資金運動，只是在各個環節上資金的表現形態不同罷了。在供應階段資金由貨幣 形態轉變為材料形態，生產階段由材 料形態變為產品形態，在銷售階段由產品形 態又回到貨幣形態。從這里可以看出，財務管理貫穿于企業的各項工作之中，財 務工作與其它管理工作是密不可分的。kbp）從金業口前的實際工 作來看，普 遍存在兩個誤區：一種認為財務管理就是管錢，只要管住錢就可萬事大吉，重資金, 輕核算。上而談到，資金在生產經營過程屮分別冇著不同的表現形式，“錢”只是 這個

4、過程的起點和終點，大量的管理工作都蘊含在過程z中。因此，只有加強內 部核算，才能真正做到節支降耗，否則，“錢”是管不住的。另一種認為財務管 理就是管財務部門，把財務部門與其他管理部門割裂開來，財務管理的觸角不能 延伸到各項管理工作之中。財務管理就成為無本之木，其作用得不到發揮，形成 經營和生產“兩張皮”。因此，開發這樣一套管理軟件成為很有必耍的事情，對于我們即將計算機專業 畢業的學員來說，也是一次將計算機應用于現實管理的一次很冇意義的實踐活動。 1. 2開發的意義計算機已經成為我們學習和工作的得力助手，使用其可方便的管理企事業財務 今天，計算機正在各行各業發揮著巨大的作用，它以其快速準確性彌補

5、人類的 先天不足，能夠讓計算機參與人們日常的財務管理事業，是一種吋代發展的必然要求，也是一個社會國家進步的體現。況且現在建行已經建起了個人網上銀行，木系 統為個人理財系統的到來做了先期工作，比如計算機的財務管理模式的建立。第二章開發環境及實現技術21開發環境硬件系統硬件平臺cpuintel p4 1.5g主板intel 850 芯片糾.的 ga-8tx-c內存2x128m的三星rambus內存硬盤seagate barracuda 7200.7 80g顯卡unika 小妖 g9800顯示器美格770pf, 17寸純平顯示器軟件環境操作系統microsoft windowsxp 簡體中文專業版

6、+ sp1辦公軟件microsoft office 2003顯卡驅動nvidia forceware 驅動 56. 72 版 for win2000/xp軟件系統：visual basic 6.0 中文版、access 數據庫。2. 2開發工具簡介vi sua i basic 6. 0 的特點visual basic 6. 0是micrsoft公司出品的開發工具,visual basic是一種可視化的, 面向對象的windows開發語言，它具有易用，通用和開發效率高的特點。隨著微軟 對它不斷地改進以及計算機木身性能的提高，使得visual basic越來越適合一般 的應用程序開發。正如bill

7、 gate所說，世界上絕大多數的windows應用程序是用 visual basic編寫的。在眾多的開發工具中,我們為什么要選擇visual basic6. 0 呢？因為vb貝有眾多其它開發工具所沒有的優點！具體介紹如2 開發的高效 語言的高效 編譯的高效 執行的高效 維護的高效基于以上理由，我們毫不憂郁的選擇了 vb6. 0做為我們的開發工具！!微軟公司的visual basic6. 0連接數據庫的主要方式以下幾種方式：一是：用data 控件進行數據庫鏈接，二是利用adodc (ado data controd進行數據庫鏈接。三 是：利用dat aen v i r onmen t進行數據庫鏈

8、接.四是利用ado (activex data objects) 進彳亍編程三種數據庫訪問對象，是microsoft數據庫訪問技術的一個主要發展方向，ado 將ole db封裝在一個數據對彖屮，使得vb程序屮以方便地實現對數據庫的訪問。第三章系統設計31概要設計3. 1. 1概要設計階段的主要任務系統分析員審理客戶的需求狀況并依據用戶需求撰寫需求分析報告以及軟 件描述工具。選擇分解功能與劃分模塊的設計原則，例如模塊劃分獨立性原則，信 息隱蔽原則等。3. 1. 2概要設計的過程在概耍設計階段應著重解決實現需求分析的程序模塊設計問題。這包括考慮 如何把被開發的軟件系統劃分成若干個模塊，并決定各模塊

9、的接口，即模塊間的和 互關系，以及模塊之間的傳遞的信息。1. 管理員選項模塊（增加管理員，修改管理員密碼，注銷管理員，退出系統）2. 工資管理模塊（増加考勤記錄，修改考勤記錄，查詢考勤記錄，計算工資, 增加工資記錄，查詢工資記錄，修改工資記錄，刪除工資記錄）3. 固定資產模塊（增加固定資產記錄，修改固定資產記錄，查詢固定資產記 錄，刪除固定資產記錄）4. 流動資產模塊（增加報銷記錄，查詢報銷記錄，導出報銷記錄） 根據以上分析，該系統考慮將整個系統分解成如圖3-1模塊結構圖：管 理 員 選 項工 資 管 理固定資產管理流動資產管理禁 用 快 捷 鍵登錄r主夕卡面v3. 1. 3概要設計的原則并且

10、在系統的開發過程中，我盡量注意模塊的高內聚、低耦合，使得系統的 整體性能捉高，并且也冇利于投入使用后的系統維護。3. 1. 4系統功能分析本財務管理系統主要針對企事業單位的財務管理提供方便。1管理員模塊功能:提供對管理員的密碼，權限，增刪設置。2固定資產模塊管理：提供對固定資 產記錄的增刪管理。3流動資產管理：提供對流動資產，報銷管理。3. 2詳細設計3. 2. 1詳細設計的任務詳細設計必須是無歧義地描述過程地細節，詳細設計主要決定每個模塊內部 的具體算法。3. 2. 2詳細設計的方法修改己建的數4g庫數據庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由visual basic 創建的程序

11、來完成，卜面的章節將詳細描述實現的具體方法。實現數據庫之間的聯系數據庫之間的關系指明兩個庫之間共享一個共同的關鍵字值。一個連接是指一 種虛擬的表，這種表是在當用戶要求從相互關聯的各個不同的表中獲取信息時建立 的，關鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式 稱為口連接。這種連接是指一個表被連接到它門己的一個字段，或在不同的紀錄中 由重復數據的組合字段。數據庫中冇三種不同類型的關鍵字：主關鍵字、組合關鍵字和外關鍵字。在表小使用的關鍵字類型用于描述庫表示什么以及在數據庫屮如何 與其它的庫建立關系。章數據庫的設計4. 1數據庫access簡介使用microsoft acces

12、s,可以在單一的數據庫文件屮管理所冇的信息。在 這個文件中，用戶可以將自（2的數據分別保存在各自獨立的存儲空間中，這些 空間稱作表；可以使用聯機窗體來查看、添加及更新表中的數據；使用查詢來 查找并檢索所要的數據；也可以使用報表以特定的版面布置來分析及打卬數據。如果要保存數據，請為每一種類型的信息創建一個表。如果要從查詢、窗體 或報表屮的多個表屮將數據合并在一起，就要定義各個表z間的關系。如果要搜索并檢索符合指定條件的數據，包括來自多個表中的數據，就要創 建查詢。查詢的同吋也可以更新或刪除多條記錄，并對數據執行內嵌或自定義 的計算。如果要簡單地直接在某個表屮查看、輸入及更改數據，請創建一個窗休。

13、在 打開一個窗體時microsoft access將從一個或多個表i檢索數據，并使用用 戶在“窗體向導”選擇的版面布局或所創建的版面布局，將窗體顯示在屏幕上。如果要分析數據或將數據以特定的方式打印出來，請創建一個報表。例如， 可以打卬一份將數據分組并計算數據總和的報表，也可以打卬另一份帶有各種 數拯格式的打卬郵件標簽的報表。4. 2數據庫需求分析木系統使用的是odbc數據源，使用程序前，在【控制面板】一【管理工具】一【數據源(odbc)中添加本程序目錄下的finance.mdb 文件作為microsoft access數據源，用戶數據源名稱必須命名為：finance4. 3表的詳細結構說明員工

14、職務表的詳細信息：員工工資結算表的詳細結構說明:固定資產管理項耳表的詳細結構為:licrosoft access 一 tbl_fixed :表文件g）編輯）視圖&）插入矩）工具（!）窗口幫助qj）常規查閱設計視圖。f6 =切換窗格。f1 =幫助。字段名稱攝長可1;同t m 迫丨一二h r 扁 回討丨去扌丨予沖丨韻漁字段名稱數據類型說明訃枷im間文本固定資產編號fixed name文本固定資產名稱fixed num數字固定資產數目fixedmoney數字固定資產單價fixed part數字購買部門fixed user文本經手人fixed date文本購買日期fixedphone文本聯系電

15、話fixed remark文本資產說明字段厘性microsoft access 一 tbl_curtype :表:j文件0）編輯g）視圉辺 插入q）工具（i）窗口迥 幫助qi）turtyfe ilf|自動編號報銷類別編號curtypejme文本報銷類別名稱字段屈性查閱小 記 大 標 段值式題引能 字新格標素智長整型 遞増有gt重復）設計視5l f6 =切換窗格。f1 =幫助。員工工作狀態表lcrosolkccess:j 文件g）編輯g）視eqf）插入 工具0）窗口他）幫助qi）腑痢文本遲到加班人的:idwork date文本當天日期w0rk.time|數字二 遲到【加班】時間（分鐘為單位）wo

16、rktype數字工作狀態id （是遲到還是加班）字段j1性常規查閱犬 奄 值生 段式入題認姍 字格輸標默有員工工作狀態表詳細設計:microsoft access -tbl.type :首表:j 文件0)編輯g)視圉辺 插入q)i* (t)窗口幫助q!)2 1 d u 1- 1 a 前工二7回討寧扌居字段名稱數據類型ryfe自動編號工作狀態;edtypejme文本工作狀態類型type mark是/否加分還是扣分閱、查知44測試用例第五章詳細設計5. 1系統登錄模塊的設計與實現登陸界面:登陸界面源代碼分析:private sub command1_c1ick()dim sql as string

17、dim rs as new adodb.recordsetif user. text二 then'保證用戶名和密碼都填寫msgbox "用戶名不能為空！ “, vbcriticaluser.setfocusexit subend ifif pass. text 二 thenmsgbox 密碼不能為空！ “，vbcriticalpass. setfocusexit subend ifif dbhandle.dbconnection thensql = tbl_admin'用sql語句判斷是否是合法管理員rs. cursortype 二 adopendynamic rs.

18、 locktype = adlockoptimisticrs. kilter = adm1n_1d二'” & user. text & and adm1n_password二'”& pass. text & rs.open sql, dbfinanceif dbhandle. resultcount (rs) <> 1 then'不存在管理員記錄提示錯誤信息并且退出系統msgbox 用戶名或密碼錯誤！ “，vbexclamationrs. closeset rs 二 nothingdbhandle. dbcloseendend

19、 ifdbhandle. dbclosemainform. show'登陸成功顯示主窗體unload meelsemsgbox 數據庫錯誤！ “，vbexclamationdbhandle. dbcloseendend ifend sub主界面界面包括的控件有標簽、文本框、命令按控件的屬性設置界面:主界面源代碼分析:option explicitprivatc sub adminoption click()sbl. panels (1). text = 管理員選項鼠標在管理員選項菜單使狀態條的提示文字顯示end subprivate sub checkl_click()if check

20、l. value then'啟用或者禁止快捷按鈕所在的frameframel. enabled = falseframe2. enabled = falseframe3. enabled = falseframc4. enabled = falseelseframel. enabled = trueframe2. enabled 二 trueframe3. enabled = trueframed. enabled 二 trueend ifend subprivate sub commandl click()addadmin. show 1 '顯示增加管理員窗體end subp

21、rivate sub command10 click()fixpay. show 1'顯示增加修改月工資窗體end subprivate sub command11 click ()delpay. show 1 '顯示刪除月工資窗體private sub command12 click()querypay. show 1'顯示查詢月工資窗體end subprivatc sub command13 click()addfixed. show 1 '顯示增加固定資產窗體end subprivate sub command14_click()fixfixcd. sho

22、w 1 '顯示修改固定資產窗體end subprivate sub command15_click()queryfixed. show 1'顯示查詢同定資產窗休end subprivate sub commandl6_click()delfixed. show 1'顯示刪除固定資產窗體end subprivate sub command17_c1ick()addcur. show 1'顯示增加報銷記錄窗體end subprivate sub command18_c1ick()querycur. show 1'顯示查詢報銷記錄窗體end subprivat

23、e sub command19_click()exportcur. show 1'顯示導出報銷記錄窗體end subprivate sub commcind2_click ()adminpass. show 1'顯示修改管理員密碼窗體end subprivate sub command3 click()me. hideadminlogin. user. text二"”'登錄窗體信息清空adminlogin.pass.text 二adminlogin. show '顯示注銷(登錄)窗體end subprivatc sub command4 click()

24、end'退出管理系統end subprivate sub command5_click()workevcnt. show 1'顯示添加考勤記錄窗體private sub command6 click()end subprivatc sub comma.nd7 click()queryevent. show 1'顯示查詢考勤記錄窗體end subprivate sub command8_click()calcpay. show 1 '顯示計算工資窗體end subprivate sub command9_click()addpay. show 1'顯示增加

25、丿丄丁資記錄窗休end subprivate sub curasset_click()'鼠標在流動資產管理sbl. panels (1). text = 流動資產管理菜單使狀態條的捉示文字顯示end subprivate sub fixedassetclick()sbl. panels (1). text二"固定資產管理顯示增加管理員窗體end subprivate sub form_load()me. left = (screen. width - me. scalcwidth) / 2'初始化窗體居中顯示me. top = (screen. height - me

26、. scalelleight) / 2me.height = 8010me.width = 9945end subprivate sub form unload(cancel as integer)on error resume next'當主窗體關閉吋關閉數據庫連接dbhandle. dbcloseendend subprivate sub menuaddadminclick()addadmin. show 1 '顯示增加管理員窗體end subprivate sub menu_addcur_click()addcur. show 1'顯示增加報銷記錄窗體end su

27、bprivate sub menuaddevent_click()workevent. show 1'顯示增加考勤記錄窗體end subprivate sub menu_addfixed_click ()'顯示修改考勤記錄窗體addfixed. show 1end subprivate sub menu_addpay_click()addpay. show 1end sub'顯示增加丿j工資窗休private sub menu_adminpass_click()adminpass. show 1 '顯示修改管理員密碼窗體end subprivate sub me

28、nu_calcpay_click ()calcpay. show 1 '顯示計算工資窗體end subprivatc sub mcnu_changcevcnt_click()changeevent. show 1'顯示修改考勤記錄窗體private sub menu_changefixed_click()fixfixed. show 1 '顯示修改固定資產窗體 end subprivate sub menu_changepay_click()fixpay. show 1 '顯示修改月工資窗體 end subprivatc sub menu dclfixcd cl

29、ick()delfixed. show 1 '顯示刪除固定資產窗體 end subprivate sub menudelpayclick()delpay. show 1 '顯示刪除月工資窗體private sub menu exit click()end subprivatc sub menu exportcur click()exportcur. show 1，顯示導出報銷記錄窗體end subprivate sub menu_logout_click()me. hideadminlogin. user. text ="”'登錄窗體信息清空adminlogi

30、n. pass. text 二adminlogin. show'顯示注銷(登錄)窗體end subprivate sub menu_monthbln_click()monthbln. show 1 '顯示月底結算窗體end subprivate sub menuquerycurclick()querycur. show 1'顯示查詢報銷記錄窗休end subprivate sub menu_queryevenl_click()queryevent. show 1'顯示杳詢考勤記錄窗體end subprivate sub menu_queryfixed_click

31、 ()queryfixed. show 1 '顯示查詢固定資產窗體end subprivatc sub mcnu_qucrypay_c1ick ()querypay. show 1 '顯示查詢月工資窗體private sub payman_click()'鼠標在工資管理菜單使sbl. panels (1). text ="工資管理"狀態條的捉示文字顯示end sub5.3工資管理的設計與實現工資管理界面:工資計算代碼:private sub command l_click()dim i as longdim userd as stringdim us

32、er_name as stringdim user_partas stringdim user.role as stringdim money as stringcommdlg.flags = cdlofnoverwriteprompt'設置保存對話框有覆蓋提示commdlg.filter = *文本文件“設置保存對話框的顯示文件類型commdlg.showsave顯示保存對話框ifcommdlg.filename v> “” then，如果用戶點確定按鈕就寫導出文件open commdlg.filename for output as #1print #1, ”員工id號”;t

33、ab; ”員工姓名”;tab; “所屬部門”;tab; ”職位名稱”;tab; ”本 月工資”for i = 1 to msflexgridl.rows 1，從 msflexgridl 中循環把記錄信息寫進文件中msflexgridl .row = imsflexgridl.col = 0userd = msflexgridl.textmsflexgridl.row = imsflexgridl.col = 1user_name = msflexgridl .textmsflexgridl.row = imsflexgridl.col = 2user_part = msflexgrid 1 .

34、textmsflexgridl .row = imsflexgridl.col = 3user_role = msflexgridl.textmsflexgridl.row = imsflexgridl.col=4money = msflexgrid 1 .textprint #1, userd; tab; user_name; tab; user_part; tab; user_role;tab; moneynext iclose #1，關閉文件end ifend subprivate sub command2_click()unload meend sub，返回主窗體private sub

35、 form_load()dim sql as stringdim rs as new adodb.recordsetdim work as new adodb.recordset，考勒記錄結果集dim i as integer彳盾環變量dim userid as stringdim money as longdim temp as long，考勤影響到的工資dim resultcount as long ，返冋記錄數'窗體居中顯示me.left = (screen.width - me.scalewidth) / 2me.top = (screen.height - me.scaleh

36、eight) / 2if dbhandle.dbconnection then'選定用戶表中所有記錄以及關聯的角色和部門記錄sql=“selectuser_id,user_name,part_name ro le_name ro le.moneyfromtb l_user,tb l_role,tb l_partwhere user_part=part_id anduser_role=role_idurs.cursortype = adopendynamicrs.locktype = adlockoplimisticrs.open sql, dbfinanceresultcount =

37、dbhandle.resultcount(rs)cis '設置電子表格的列頭msflexgridl.cols = 5msflexgridl .rows = resultcounl + 1msflexgridl .row = 0msflexgridl.col = 0msflexgridl.text '員工 id 號“msflexgridl.col= 1msflexgridl.text = “員工姓名”msflexgridl .col = 2msflexgridl.text = “所屬部門”msflexgridl.col = 3msflexgridl.text = “職位名稱”ms

38、flexgridl .col = 4msflexgridl .text 二“本月工資”for i = 0 to 4'平均分配每個列msflexgridl.colwidth(i) = msflexgridl.width / 5 5的寬next ifor i = 1 to resultcount彳盾環將職工信息和基本t資放入電子表格userid = rs(” user_id")msflexgridl.row 二 imsflexgrid l.col = 0msflexgridl .text = useridmsflexgrid 1.col = 1msflexgridl.text =

39、 rs(uuser_namem)msflexgridl.col = 2msflexgrid 1 .text = rs(,'part_namen)msflexgridl.col = 3msflexgrid 1.text = rs(nrole_nameh)money = rs(urole_moneyu)msflexgridl.col = 4msflexgridl.text = str(money)rs.movenextnext irs.closeset rs = nothingfor i = 1 to resultcount，通過考勤表計算考勤信息影響的工資msflexgridl .row

40、 = imsflexgridl.col = 0userid = msflexgrid 1 .textmsflexgridl.col =4money = val(msflexgrid 1 .text)sql = "select work_time,type_mark,type_id from tbl_work,tbl_type where work_type=type_id and work_id=,h & userid & ,uwork.cursortype = adopendynamicwork.locktype = adlockoptimistic work.op

41、en sql, dbfinance，選収每行職工id的本月考勤信息do while work.eof = falseselect case work(”type_id”)，通過考勤類別計算考勤時間和工資關系case 1temp = work(nwork_timen) * 1case 2temp = work(nwork_timem) * 2case 3temp = work(nwork_timeh) * 10case 4temp = work(nwork_timeh) * 20end select'當考勤類別是加班出差等要向基'當考勤類別是遲到早退等要向'重新設置每個人

42、的月工資if work(”type_mark“)then 本工資中加工資money = money + temp elsemoney = money - temp 基本工資中減工資end ifwork.movenextloopmsflexgridl.text = str(money)work.closenext idbhandle.dbcloseelse'打開數據庫失敗錯誤退出msgbox “數據庫錯誤! ", vbexclamation dbhandle.dbcloseendend ifend sub5.4固定資產管理的設計與實現添加固定資產代碼：private sub c

43、ommand 1 _click()dim sql as stringdim rs as new adodb. recordsetiftextl.text = ,n then咧斷資產編號輸入框不為空msgbox ”資產編號不能為空! ”, vbcritical textl.setfocusexit subend ififtext2.text二” then學lj斷資產名稱輸入框不為空msgbox ”資產名稱不能為空! ”，vbcriticaltext2.setfocusexit subend ifif text3.text二” then學lj斷資產數目輸入框不為空msgbox ”資產數目不能為空!

44、 n, vbcriticaltext3.setfocusexit subend ififtext4.text二” then學lj斷資產單價輸入框不為空msgbox ”資產單價不能為空! ”，vbcriticaltext4.setfocusexit subend ififtext7.text二” then學lj斷經手人id輸入框不為空msgbox ”經手人id不能為空! vbcritical text7.setfocusexit subend ififtext5.text二” then學lj斷聯系電話輸入框不為空msgbox ”聯系電話不能為空! n, vbcriticaltext5.setfo

45、cusexit subend ififtext6.text二” then學lj斷資產說明輸入框不為空msgbox ”資產說明不能為空! n, vbcriticaltext6.setfocusexit subend ifif not isnumeric(text3.text) then，判斷資產數r輸入框必須是數字msgbox ”資產數目必須是數字！ ”, vbcriticaltext3.setfocusexit subend ifif not isnumeric(text4.text) then學u斷資產單價輸入框是數字msgbox ”資產單價必須是數字！ ”, vbcriticaltext4

46、.setfocusexit subend ifif partcombo.listlndex = -1 then，確保部門被選擇msgbox ”部門必須選擇! ”，vbcriticalpartcombo.setfocusexit subend ifif dbhandle.dbconnection then，打開數據庫連接準備添加固定資產記錄sql = ” tbl_fixed”在固定資產表中搜索，判斷是否已經存在和欲添加固定rs.cursortype = adopendynamic，資產具有相同編號的記錄rs.locktype = adlockoptimisticrs.filter = mfixe

47、d_id=n, & text 1.text &rs.open sql, dbfinanceif dbhandle.resultcount(=1 then-如果找到編號已經存在就提示錯誤信息，并且退出msgbox "資產編號已經存在！vbexclamationrs.closedbhandle.dbcloseexit subend ifrs.closesql = ”tbl_user“衣職工表中判斷輸入的職工id是否是冇效idrs.cursortype = adopendynamicrs.locktype = adlockoptimisticrs.filter = huse

48、r_id=n, & text7.text &rs.open sql, dbfinanceif dbhandle.resultcount(rs) <> 1 then，不存在輸入的職工 id 就提示錯誤信息退出msgbox "錯誤,不存在的 id 號！ ", vbexclamationtext7.setfocusrs.closeset rs = nothingdbhandle.dbcloseexit subelse'職工id是有效的，可以進行添加固定資產rs.closesql = htbl_fixed"rs.filter =,nrs

49、.open sql, dbfinance rs.addnewrs(nfixed_idh) = text 1.text，固定資產編號rs(hfixed_name") = text2.text，固定資產名稱rs(nfixed_numn) = val(text3.text)，固定資產數目rs(nfixed_moneym) = val(text4.text) ，固定資產單價rs(nfixed_part") = partcombo.itemdata(partcombo.listlndex)'經手人id'經手人電話'購買吋間'固定資產說明'購買固

50、定資產部門rs(nfixed_userh) = text7.text rs("fixed_phonen) = text5.text rs(hfixed_dateh) = dtpickerl. value rs(nfixed_remarkn) = text6.text rs.updaters.closeend ifdbhandle.dbclosemsgbox n固定資產信息成功添加！ ”unload meelse'打開數據庫連接失敗捉示岀錯msgbox ”數據庫錯誤! h, vbexclamation dbhandle.dbcloseendend ifend subprivat

51、e sub command2_click()unload me，取消并回主窗體end subprivate sub form_load()dim sql as stringdim rs as new adodb. recordsetme.left = (screen.width me.scalewidth) / 2，窗體居屮顯示me.top = (screen.height - me.scaleheight) / 2if dbhandle.dbconnection then，打開數據庫連接，動態添加部門信息下拉列表sql 二”tbl_part”rs.cursortype = adopendyn

52、amicrs.locktype = adlockoptimisticrs.filter=nnrs-open sql, dbfinancedo while rs.eof = falsepartcombo.additem (rs(,part_namem)partcombo.itemdata(partcombo.newindex) = rs(hpart_idh) rs.movenextlooprs.close，完成下拉列表的動態添加，釋放結杲集資源，關閉數據庫連接set rs = nothingdbhandle.dbcloseelse'打開數據庫連接失敗提示出錯msgbox ”數據庫錯誤!

53、h, vbexclamationdbhandle.dbcloseendend iftextl.text =初始化窗體元素屬性text2.text = ,ntext3.text = ,n,text4.text = ,n,text5.text = nntext6.text = ,h,text7.text = ,n,text7.maxlength = 100partcombo.text =""end sub5.5流動資產管理的設計與實現添加報銷記錄代碼：private sub command 1 _click()dim sql as stringdim rs as new adodb.recordsetif text 1.text = ”“ then'判斷報銷單編號輸入框不為空msgbox “報銷單編號不能為空！ ”, vbchtical textl.setfocusexit subend ififtext2