1、<p><b>　　目 錄</b></p><p>　　第一章 緒 論 2</p><p><b>　　1．1課題簡(jiǎn)介 2</b></p><p>　　1．2開發(fā)的意義 2</p><p>　　第二章 開發(fā)環(huán)境及實(shí)現(xiàn)技術(shù) 3</p><p><b>

2、;　　2．1開發(fā)環(huán)境 3</b></p><p>　　2．2開發(fā)工具簡(jiǎn)介 3</p><p>　　第三章 系統(tǒng)設(shè)計(jì) 5</p><p><b>　　3．1概要設(shè)計(jì) 5</b></p><p>　　3．1．1概要設(shè)計(jì)階段的主要任務(wù) 5</p><p>　　3．1．2概要設(shè)計(jì)的過(guò)程 5&

3、lt;/p><p>　　3．1．3概要設(shè)計(jì)的原則 5</p><p>　　3．1．4系統(tǒng)功能分析 5</p><p><b>　　3．2詳細(xì)設(shè)計(jì) 6</b></p><p>　　3．2．1詳細(xì)設(shè)計(jì)的任務(wù) 6</p><p>　　3．2．2詳細(xì)設(shè)計(jì)的方法 7</p><p>　　

4、第四章 數(shù)據(jù)庫(kù)設(shè)計(jì) 9</p><p>　　4．1數(shù)據(jù)庫(kù)Access簡(jiǎn)介 9</p><p>　　4．2數(shù)據(jù)庫(kù)需求分析 10</p><p>　　4．3表的詳細(xì)結(jié)構(gòu)說(shuō)明 11</p><p>　　4．4測(cè)試用例 14</p><p>　　第五章 詳細(xì)設(shè)計(jì) 16</p><p>　　5．1系統(tǒng)

5、登錄模塊的設(shè)計(jì)與實(shí)現(xiàn) 16</p><p>　　5．2主界面的設(shè)計(jì)與實(shí)現(xiàn) 20</p><p>　　5．3工資管理設(shè)計(jì)與實(shí)現(xiàn) 22</p><p>　　5．4固定資產(chǎn)管理的設(shè)計(jì)與實(shí)現(xiàn) 27</p><p>　　5．5流動(dòng)資產(chǎn)管理的設(shè)計(jì)與實(shí)現(xiàn) 31</p><p>　　5．6用戶管理的設(shè)計(jì)與實(shí)現(xiàn) 32</p>

6、<p>　　第六章 系統(tǒng)使用說(shuō)明 44</p><p>　　6．1使用說(shuō)明 44</p><p>　　6．2運(yùn)行環(huán)境 44</p><p><b>　　結(jié)束語(yǔ) 52</b></p><p><b>　　致 謝 52</b></p><p><b>

7、　　參考文獻(xiàn) 53</b></p><p><b>　　第一章 緒 論</b></p><p><b>　　1．1課題簡(jiǎn)介</b></p><p>　　財(cái)務(wù)管理系統(tǒng)是每一個(gè)單位管理財(cái)務(wù)收入和支出的不可缺少的一個(gè)管理信息系統(tǒng),它的內(nèi)容對(duì)企業(yè)財(cái)務(wù)計(jì)劃，財(cái)務(wù)控制，財(cái)務(wù)監(jiān)督，財(cái)務(wù)運(yùn)用等方面都起著巨大的作用。如何發(fā)揮

8、財(cái)務(wù)管理的作用關(guān)系到一個(gè)企業(yè)的命脈。　　　　財(cái)務(wù)管理的工作對(duì)象是資金運(yùn)動(dòng)，只要有資金運(yùn)動(dòng)就離不開財(cái)務(wù)管理?！　∫粋€(gè)企業(yè) 的生產(chǎn)經(jīng)營(yíng)活動(dòng)無(wú)外乎供、產(chǎn)、銷三個(gè)環(huán)節(jié)，這個(gè)過(guò)程始終貫穿著資金運(yùn)動(dòng)，只是在各個(gè)環(huán) 節(jié)上資金的表現(xiàn)形態(tài)不同罷了。在供應(yīng)階段資金由貨幣形態(tài)轉(zhuǎn)變?yōu)椴牧闲螒B(tài)，生產(chǎn)階段由材 料形態(tài)變?yōu)楫a(chǎn)品形態(tài)，在銷售階段由產(chǎn)品形態(tài)又回到貨幣形態(tài)。從這里可以看出，財(cái)務(wù)管理 貫穿于企業(yè)的各項(xiàng)工作之中，財(cái)務(wù)工作與其它管理工作是密不可分的?！糂

9、P)〗從企業(yè)目前 的實(shí)際工 作來(lái)看，普遍存在兩個(gè)誤區(qū)：一種認(rèn)為財(cái)務(wù)管理就是管錢，只要管住錢就可萬(wàn)事大吉，重資 金，輕核算。上面談到，資金在生產(chǎn)經(jīng)營(yíng)過(guò)程中分別有著不同的表現(xiàn)形式，“錢”只是這個(gè) 過(guò)程的起點(diǎn)和終點(diǎn)，大量的管理工作都蘊(yùn)含在過(guò)程之中。因此，只有加強(qiáng)內(nèi)部核算，才能真 正做到節(jié)支降耗，否則，“錢”是管不住的。另一種認(rèn)為財(cái)務(wù)管理就是管財(cái)務(wù)部門，把財(cái)務(wù) 部門與其他管理部門割裂開來(lái)，財(cái)務(wù)管理的觸角不能延</p><p&

10、gt;　　因此，開發(fā)這樣一套管理軟件成為很有必要的事情，對(duì)于我們即將計(jì)算機(jī)專業(yè)畢業(yè)的學(xué)員來(lái)說(shuō)，也是一次將計(jì)算機(jī)應(yīng)用于現(xiàn)實(shí)管理的一次很有意義的實(shí)踐活動(dòng)。</p><p><b>　　1．2開發(fā)的意義</b></p><p>　　計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手，使用其可方便的管理企事業(yè)財(cái)務(wù)</p><p>　　今天，計(jì)算機(jī)正在各行各業(yè)發(fā)揮著

11、巨大的作用，它以其快速準(zhǔn)確性彌補(bǔ)人類的先天不足，能夠讓計(jì)算機(jī)參與人們?nèi)粘５呢?cái)務(wù)管理事業(yè)，是一種時(shí)代發(fā)展的必然要求，也是一個(gè)社會(huì)國(guó)家進(jìn)步的體現(xiàn)。況且現(xiàn)在建行已經(jīng)建起了個(gè)人網(wǎng)上銀行，本系統(tǒng)為個(gè)人理財(cái)系統(tǒng)的到來(lái)做了先期工作，比如計(jì)算機(jī)的財(cái)務(wù)管理模式的建立。</p><p>　　第二章 開發(fā)環(huán)境及實(shí)現(xiàn)技術(shù)</p><p><b>　　2．1開發(fā)環(huán)境</b></p>

12、;<p><b>　　硬件系統(tǒng)</b></p><p><b>　　軟件系統(tǒng)：</b></p><p>　　Visual basic 6.0中文版、Access數(shù)據(jù)庫(kù)。</p><p><b>　　2．2開發(fā)工具簡(jiǎn)介</b></p><p>　　Visual Ba

13、sic 6.0的特點(diǎn)</p><p>　　Visual Basic 6.0是Micrsoft公司出品的開發(fā)工具，Visual Basic是一種可視化的，面向?qū)ο蟮腤indows開發(fā)語(yǔ)言，它具有易用，通用和開發(fā)效率高的特點(diǎn)。隨著微軟對(duì)它不斷地改進(jìn)以及計(jì)算機(jī)本身性能的提高，使得Visual Basic越來(lái)越適合一般的應(yīng)用程序開發(fā)。正如Bill Gate所說(shuō)，世界上絕大多數(shù)的Windows應(yīng)用程序是用Visual Ba

14、sic編寫的。在眾多的開發(fā)工具中，我們?yōu)槭裁匆x擇Visual Basic6.0呢？因?yàn)閂B具有眾多其它開發(fā)工具所沒(méi)有的優(yōu)點(diǎn)！具體介紹如下：</p><p><b>　　開發(fā)的高效</b></p><p><b>　　語(yǔ)言的高效</b></p><p><b>　　編譯的高效</b></p>

15、;<p><b>　　執(zhí)行的高效</b></p><p><b>　　維護(hù)的高效</b></p><p>　　基于以上理由，我們毫不憂郁的選擇了VB6.0做為我們的開發(fā)工具??！</p><p>　　微軟公司的Visual basic6.0連接數(shù)據(jù)庫(kù)的主要方式以下幾種方式：一是：用data控件進(jìn)行數(shù)據(jù)庫(kù)鏈接 ，

16、二是利用adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫(kù)鏈接 。三是: 利用DataEnvironment進(jìn)行數(shù)據(jù)庫(kù)鏈接.四是利用ADO(ActiveX Data Objects)進(jìn)行編程</p><p>　　三種數(shù)據(jù)庫(kù)訪問(wèn)對(duì)象，是Microsoft數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)的一個(gè)主要發(fā)展方向，ADO將OLE DB封裝在一個(gè)數(shù)據(jù)對(duì)象中，使得VB程序中以方便地實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)。</p><p>

17、;<b>　　第三章 系統(tǒng)設(shè)計(jì)</b></p><p><b>　　3．1概要設(shè)計(jì)</b></p><p>　　3．1．1概要設(shè)計(jì)階段的主要任務(wù)</p><p>　?、傧到y(tǒng)分析員審理客戶的需求狀況并依據(jù)用戶需求撰寫需求分析報(bào)告以及軟件描述工具。選擇分解功能與劃分模塊的設(shè)計(jì)原則，例如模塊劃分獨(dú)立性原則，信息隱蔽原則等。&l

18、t;/p><p>　　3．1．2概要設(shè)計(jì)的過(guò)程</p><p>　　在概要設(shè)計(jì)階段應(yīng)著重解決實(shí)現(xiàn)需求分析的程序模塊設(shè)計(jì)問(wèn)題。這包括考慮如何把被開發(fā)的軟件系統(tǒng)劃分成若干個(gè)模塊，并決定各模塊的接口，即模塊間的相互關(guān)系，以及模塊之間的傳遞的信息。</p><p>　　管理員選項(xiàng)模塊（增加管理員，修改管理員密碼，注銷管理員，退出系統(tǒng)）</p><p>　

19、　工資管理模塊（增加考勤記錄，修改考勤記錄，查詢考勤記錄，計(jì)算工資，</p><p>　　增加工資記錄，查詢工資記錄，修改工資記錄，刪除工資記錄）</p><p>　　固定資產(chǎn)模塊（增加固定資產(chǎn)記錄，修改固定資產(chǎn)記錄，查詢固定資產(chǎn)記錄，刪除固定資產(chǎn)記錄）</p><p>　　流動(dòng)資產(chǎn)模塊（增加報(bào)銷記錄，查詢報(bào)銷記錄，導(dǎo)出報(bào)銷記錄）</p><p&

20、gt;　　根據(jù)以上分析，該系統(tǒng)考慮將整個(gè)系統(tǒng)分解成如圖3-1模塊結(jié)構(gòu)圖:</p><p>　　3．1．3 概要設(shè)計(jì)的原則</p><p>　　并且在系統(tǒng)的開發(fā)過(guò)程中，我盡量注意模塊的高內(nèi)聚、低耦合，使得系統(tǒng)的整體性能提高，并且也有利于投入使用后的系統(tǒng)維護(hù)。</p><p>　　3．1．4系統(tǒng)功能分析</p><p>　　本財(cái)務(wù)管理系統(tǒng)主要針對(duì)

21、企事業(yè)單位的財(cái)務(wù)管理提供方便。1管理員模塊功能：</p><p>　　提供對(duì)管理員的密碼，權(quán)限，增刪設(shè)置。2 固定資產(chǎn)模塊管理：提供對(duì)固定資產(chǎn)記錄的增刪管理。3流動(dòng)資產(chǎn)管理：提供對(duì)流動(dòng)資產(chǎn)，報(bào)銷管理。</p><p><b>　　3．2詳細(xì)設(shè)計(jì)</b></p><p>　　3．2．1詳細(xì)設(shè)計(jì)的任務(wù)</p><p>　　詳

22、細(xì)設(shè)計(jì)必須是無(wú)歧義地描述過(guò)程地細(xì)節(jié)，詳細(xì)設(shè)計(jì)主要決定每個(gè)模塊內(nèi)部的具體算法。</p><p>　　3．2．2詳細(xì)設(shè)計(jì)的方法</p><p><b>　　修改已建的數(shù)據(jù)庫(kù)</b></p><p>　　數(shù)據(jù)庫(kù)的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basic 創(chuàng)建的程序來(lái)完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。</p

23、><p>　　實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系</p><p>　　數(shù)據(jù)庫(kù)之間的關(guān)系指明兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫(kù)中有三種不同類型的關(guān)鍵字：主

24、關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫(kù)表示什么以及在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。</p><p>　　第 四 章 數(shù)據(jù)庫(kù)的設(shè)計(jì)</p><p>　　4．1 數(shù)據(jù)庫(kù)Access簡(jiǎn)介</p><p>　　使用 Microsoft Access，可以在單一的數(shù)據(jù)庫(kù)文件中管理所有的信息。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別

25、保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來(lái)查看、添加及更新表中的數(shù)據(jù)；使用查詢來(lái)查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來(lái)分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，請(qǐng)為每一種類型的信息創(chuàng)建一個(gè)表。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來(lái)自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。查詢的同時(shí)也可以更新或刪除多條記錄，并對(duì)數(shù)據(jù)執(zhí)行內(nèi)嵌

26、或自定義的計(jì)算。 如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。在打開一個(gè)窗體時(shí)，Microsoft Access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來(lái)，請(qǐng)創(chuàng)建一個(gè)報(bào)表。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。&

27、lt;/p><p>　　4．2數(shù)據(jù)庫(kù)需求分析</p><p>　　本系統(tǒng)使用的是ODBC數(shù)據(jù)源，使用程序前，在【控制面板】－【管理工具】－【數(shù)據(jù)源（ODBC）】中添加本程序目錄下的finance.mdb文件作為Microsoft Access數(shù)據(jù)源，用戶數(shù)據(jù)源名稱必須命名為：Finance</p><p>　　4．3表的詳細(xì)結(jié)構(gòu)說(shuō)明</p><p&g

28、t;　　員工職務(wù)表的詳細(xì)信息：</p><p>　　員工工資結(jié)算表的詳細(xì)結(jié)構(gòu)說(shuō)明：</p><p>　　固定資產(chǎn)管理項(xiàng)目表的詳細(xì)結(jié)構(gòu)為：</p><p>　　報(bào)銷類型表的詳細(xì)結(jié)構(gòu)為：</p><p>　　管理員登陸表的詳細(xì)結(jié)構(gòu)為：</p><p><b>　　員工工作狀態(tài)表</b></p&g

29、t;<p>　　員工工作狀態(tài)表詳細(xì)設(shè)計(jì)：</p><p><b>　　4．4測(cè)試用例</b></p><p><b>　　第五章 詳細(xì)設(shè)計(jì)</b></p><p>　　5.1系統(tǒng)登錄模塊的設(shè)計(jì)與實(shí)現(xiàn)</p><p><b>　　登陸界面：</b></p>

30、;<p>　　登陸界面源代碼分析:</p><p>　　Private Sub Command1_Click()</p><p>　　Dim sql As String</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　If User.Text = "" Th

31、en '保證用戶名和密碼都填寫</p><p>　　MsgBox "用戶名不能為空！", vbCritical</p><p>　　User.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b>

32、</p><p>　　If Pass.Text = "" Then</p><p>　　MsgBox "密碼不能為空！", vbCritical</p><p>　　Pass.SetFocus</p><p><b>　　Exit Sub</b></p><p&

33、gt;<b>　　End If</b></p><p>　　If DbHandle.DbConnection Then</p><p>　　sql = "TBL_ADMIN" '用SQL語(yǔ)句判斷是否是合法管理員</p><p>　　rs.CursorType = adOpenDynamic</p&g

34、t;<p>　　rs.LockType = adLockOptimistic</p><p>　　rs.Filter = "ADMIN_ID='" & User.Text & "' AND ADMIN_PASSWORD='" & Pass.Text & "'"</p>

35、;<p>　　rs.Open sql, DbFinance</p><p>　　If DbHandle.resultcount(rs) <> 1 Then '不存在管理員記錄提示錯(cuò)誤信息并且退出系統(tǒng)</p><p>　　MsgBox "用戶名或密碼錯(cuò)誤！", vbExclamation</p><p>

36、;<b>　　rs.Close</b></p><p>　　Set rs = Nothing</p><p>　　DbHandle.DbClose</p><p><b>　　End</b></p><p><b>　　End If</b></p><p&g

37、t;　　DbHandle.DbClose</p><p>　　MainForm.Show '登陸成功顯示主窗體</p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>　　MsgBox "數(shù)據(jù)庫(kù)錯(cuò)誤！&quo

38、t;, vbExclamation</p><p>　　DbHandle.DbClose</p><p><b>　　End</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>&

39、lt;b>　　主界面</b></p><p>　　界面包括的控件有標(biāo)簽、文本框、命令按控件的屬性設(shè)置界面:</p><p><b>　　主界面源代碼分析:</b></p><p>　　Option Explicit</p><p>　　Private Sub AdminOption_Click()<

40、;/p><p>　　sb1.Panels(1).Text = "管理員選項(xiàng)" '鼠標(biāo)在"管理員選項(xiàng)"菜單使?fàn)顟B(tài)條的提示文字顯示</p><p><b>　　End Sub</b></p><p>　　Private Sub Check1_Click()</p><p&g

41、t;　　If Check1.Value Then '啟用或者禁止快捷按鈕所在的Frame</p><p>　　Frame1.Enabled = False</p><p>　　Frame2.Enabled = False</p><p>　　Frame3.Enabled = False</p><p>　　Frame4.

42、Enabled = False</p><p><b>　　Else</b></p><p>　　Frame1.Enabled = True</p><p>　　Frame2.Enabled = True</p><p>　　Frame3.Enabled = True</p><p>　　Fram

43、e4.Enabled = True</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p>　　AddAdmin.Show 1 '顯示增加管理員

44、窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Command10_Click()</p><p>　　FixPay.Show 1 '顯示增加修改月工資窗體</p><p><b>　　End Sub</b></p>

45、<p>　　Private Sub Command11_Click()</p><p>　　DelPay.Show 1 '顯示刪除月工資窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Command12_Click()</p><p>　　

46、QueryPay.Show 1 '顯示查詢?cè)鹿べY窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Command13_Click()</p><p>　　AddFixed.Show 1 '顯示增加固定資產(chǎn)窗體</p><p><b&

47、gt;　　End Sub</b></p><p>　　Private Sub Command14_Click()</p><p>　　fixFixed.Show 1 '顯示修改固定資產(chǎn)窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Comm

48、and15_Click()</p><p>　　QueryFixed.Show 1 '顯示查詢固定資產(chǎn)窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Command16_Click()</p><p>　　DelFixed.Show 1 

49、9;顯示刪除固定資產(chǎn)窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Command17_Click()</p><p>　　AddCur.Show 1 '顯示增加報(bào)銷記錄窗體</p><p><b>　　End Sub</b>&l

50、t;/p><p>　　Private Sub Command18_Click()</p><p>　　QueryCur.Show 1 '顯示查詢報(bào)銷記錄窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Command19_Click()</p>

51、<p>　　ExportCur.Show 1 '顯示導(dǎo)出報(bào)銷記錄窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　AdminPass.Show 1 '顯示修改管理員密碼窗體</p>

52、<p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p><b>　　Me.Hide</b></p><p>　　AdminLogin.User.Text = "" '登錄窗體信息清空</

53、p><p>　　AdminLogin.Pass.Text = ""</p><p>　　AdminLogin.Show '顯示注銷(登錄)窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p>

54、;<p>　　End '退出管理系統(tǒng)</p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p>　　WorkEvent.Show 1 '顯示添加考勤記錄窗體</p><p><b&g

55、t;　　End Sub</b></p><p>　　Private Sub Command6_Click()</p><p>　　ChangeEvent.Show 1 '顯示修改考勤記錄窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Com

56、mand7_Click()</p><p>　　QueryEvent.Show 1 '顯示查詢考勤記錄窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Command8_Click()</p><p>　　CalcPay.Show 1 '

57、顯示計(jì)算工資窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Command9_Click()</p><p>　　AddPay.Show 1 '顯示增加月工資記錄窗體</p><p><b>　　End Sub</b></p

58、><p>　　Private Sub CurAsset_Click()</p><p>　　sb1.Panels(1).Text = "流動(dòng)資產(chǎn)管理" '鼠標(biāo)在"流動(dòng)資產(chǎn)管理"菜單使?fàn)顟B(tài)條的提示文字顯示</p><p><b>　　End Sub</b></p><p>

59、;　　Private Sub FixedAsset_Click()</p><p>　　sb1.Panels(1).Text = "固定資產(chǎn)管理" '顯示增加管理員窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p>

60、<p>　　Me.Left = (Screen.Width - Me.ScaleWidth) / 2 '初始化窗體居中顯示</p><p>　　Me.Top = (Screen.Height - Me.ScaleHeight) / 2</p><p>　　Me.Height = 8010</p><p>　　Me.Width = 9

61、945</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Unload(Cancel As Integer)</p><p>　　On Error Resume Next '當(dāng)主窗體關(guān)閉時(shí)關(guān)閉數(shù)據(jù)庫(kù)連接</p><p>　　DbHandle.D

62、bClose</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub menu_AddAdmin_Click()</p><p>　　AddAdmin.Show 1 '顯示增加管理員窗體</p&

63、gt;<p><b>　　End Sub</b></p><p>　　Private Sub menu_AddCur_Click()</p><p>　　AddCur.Show 1 '顯示增加報(bào)銷記錄窗體</p><p><b>　　End Sub</b></p><p&g

64、t;　　Private Sub menu_AddEvent_Click()</p><p>　　WorkEvent.Show 1 '顯示增加考勤記錄窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub menu_AddFixed_Click()</p><p&g

65、t;　　AddFixed.Show 1 '顯示修改考勤記錄窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub menu_AddPay_Click()</p><p>　　AddPay.Show 1 '顯示增加月工資窗體</p><p>&l

66、t;b>　　End Sub</b></p><p>　　Private Sub menu_AdminPass_Click()</p><p>　　AdminPass.Show 1 '顯示修改管理員密碼窗體</p><p><b>　　End Sub</b></p><p>　　Priva

67、te Sub menu_CalcPay_Click()</p><p>　　CalcPay.Show 1 '顯示計(jì)算工資窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub menu_ChangeEvent_Click()</p><p>　　ChangeE

68、vent.Show 1 '顯示修改考勤記錄窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub menu_ChangeFixed_Click()</p><p>　　fixFixed.Show 1 '顯示修改固定資產(chǎn)窗體</p><p>&l

69、t;b>　　End Sub</b></p><p>　　Private Sub menu_ChangePay_Click()</p><p>　　FixPay.Show 1 '顯示修改月工資窗體</p><p><b>　　End Sub</b></p><p>　　Private Su

70、b menu_DelFixed_Click()</p><p>　　DelFixed.Show 1 '顯示刪除固定資產(chǎn)窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub menu_DelPay_Click()</p><p>　　DelPay.Show 1

71、 '顯示刪除月工資窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub menu_Exit_Click()</p><p>　　End '退出管理系統(tǒng)</p><p><b>　　End Sub</b></p&g

72、t;<p>　　Private Sub menu_ExportCur_Click()</p><p>　　ExportCur.Show 1 '顯示導(dǎo)出報(bào)銷記錄窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub menu_Logout_Click()</p>

73、;<p><b>　　Me.Hide</b></p><p>　　AdminLogin.User.Text = "" '登錄窗體信息清空</p><p>　　AdminLogin.Pass.Text = ""</p><p>　　AdminLogin.Show &

74、#39;顯示注銷(登錄)窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub menu_MonthBln_Click()</p><p>　　MonthBln.Show 1 '顯示月底結(jié)算窗體</p><p><b>　　End Sub</b

75、></p><p>　　Private Sub menu_QueryCur_Click()</p><p>　　QueryCur.Show 1 '顯示查詢報(bào)銷記錄窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub menu_QueryEvent_Cl

76、ick()</p><p>　　QueryEvent.Show 1 '顯示查詢考勤記錄窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub menu_QueryFixed_Click()</p><p>　　QueryFixed.Show 1 

77、9;顯示查詢固定資產(chǎn)窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub menu_QueryPay_Click()</p><p>　　QueryPay.Show 1 '顯示查詢?cè)鹿べY窗體</p><p><b>　　End Sub</b&

78、gt;</p><p>　　Private Sub PayMan_Click()</p><p>　　sb1.Panels(1).Text = "工資管理" '鼠標(biāo)在"工資管理"菜單使?fàn)顟B(tài)條的提示文字顯示</p><p><b>　　End Sub</b></p><p

79、>　　工資管理的設(shè)計(jì)與實(shí)現(xiàn)</p><p><b>　　工資管理界面:</b></p><p><b>　　工資計(jì)算代碼:</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim i As Long</p><p&g

80、t;　　Dim USER_ID As String</p><p>　　Dim USER_NAME As String</p><p>　　Dim USER_PART As String</p><p>　　Dim USER_ROLE As String</p><p>　　Dim MONEY As String</p><

81、;p>　　CommDlg.Flags = cdlOFNOverwritePrompt '設(shè)置保存對(duì)話框有覆蓋提示</p><p>　　CommDlg.Filter = "文本文件|*.txt" '設(shè)置保存對(duì)話框的顯示文件類型</p><p>　　CommDlg.ShowSave '

82、;顯示保存對(duì)話框</p><p>　　If CommDlg.FileName <> "" Then '如果用戶點(diǎn)確定按鈕就寫導(dǎo)出文件</p><p>　　Open CommDlg.FileName For Output As #1</p><p>　　Print #1, "員工ID號(hào)"; Tab;

83、 "員工姓名"; Tab; "所屬部門"; Tab; "職位名稱"; Tab; "本月工資"</p><p>　　For i = 1 To MSFlexGrid1.Rows - 1 '從MSFlexGrid1中循環(huán)把記錄信息寫進(jìn)文件中</p><p>　　MSFlexGrid1.Row =

84、i</p><p>　　MSFlexGrid1.Col = 0</p><p>　　USER_ID = MSFlexGrid1.Text</p><p>　　MSFlexGrid1.Row = i</p><p>　　MSFlexGrid1.Col = 1</p><p>　　USER_NAME = MSFlexGri

85、d1.Text</p><p>　　MSFlexGrid1.Row = i</p><p>　　MSFlexGrid1.Col = 2</p><p>　　USER_PART = MSFlexGrid1.Text</p><p>　　MSFlexGrid1.Row = i</p><p>　　MSFlexGrid1.C

86、ol = 3</p><p>　　USER_ROLE = MSFlexGrid1.Text</p><p>　　MSFlexGrid1.Row = i</p><p>　　MSFlexGrid1.Col = 4</p><p>　　MONEY = MSFlexGrid1.Text</p><p>　　Print #1,

87、 USER_ID; Tab; USER_NAME; Tab; USER_PART; Tab; USER_ROLE; Tab; MONEY</p><p><b>　　Next i</b></p><p>　　Close #1 '關(guān)閉文件</p><p><b>　　End If</b></p&g

88、t;<p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Unload Me '返回主窗體</p><p><b>　　End Sub</b></p><p>　　Private

89、 Sub Form_Load()</p><p>　　Dim sql As String</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Dim work As New ADODB.Recordset '考勤記錄結(jié)果集</p><p>　　Dim i As Integer

90、 '循環(huán)變量</p><p>　　Dim userid As String</p><p>　　Dim MONEY As Long</p><p>　　Dim temp As Long '考勤影響到的工資</p><p>　　Dim resultcount As Long '返回記錄數(shù)&

91、lt;/p><p>　　Me.Left = (Screen.Width - Me.ScaleWidth) / 2 '窗體居中顯示</p><p>　　Me.Top = (Screen.Height - Me.ScaleHeight) / 2</p><p>　　If DbHandle.DbConnection Then '選定用

92、戶表中所有記錄以及關(guān)聯(lián)的角色和部門記錄</p><p>　　sql = "SELECT USER_ID,USER_NAME,PART_NAME,ROLE_NAME,ROLE_MONEY FROM TBL_USER,TBL_ROLE,TBL_PART WHERE USER_PART=PART_ID AND USER_ROLE=ROLE_ID"</p><p>　　rs.C

93、ursorType = adOpenDynamic</p><p>　　rs.LockType = adLockOptimistic</p><p>　　rs.Open sql, DbFinance</p><p>　　resultcount = DbHandle.resultcount(rs)</p><p>　　Cls '

94、設(shè)置電子表格的列頭</p><p>　　MSFlexGrid1.Cols = 5</p><p>　　MSFlexGrid1.Rows = resultcount + 1</p><p>　　MSFlexGrid1.Row = 0</p><p>　　MSFlexGrid1.Col = 0</p><p>　　MSFl

95、exGrid1.Text = "員工ID號(hào)"</p><p>　　MSFlexGrid1.Col = 1</p><p>　　MSFlexGrid1.Text = "員工姓名"</p><p>　　MSFlexGrid1.Col = 2</p><p>　　MSFlexGrid1.Text = &quo

96、t;所屬部門"</p><p>　　MSFlexGrid1.Col = 3</p><p>　　MSFlexGrid1.Text = "職位名稱"</p><p>　　MSFlexGrid1.Col = 4</p><p>　　MSFlexGrid1.Text = "本月工資"</p&g

97、t;<p>　　For i = 0 To 4</p><p>　　MSFlexGrid1.ColWidth(i) = MSFlexGrid1.Width / 5 - 5 '平均分配每個(gè)列的寬</p><p><b>　　Next i</b></p><p>　　For i = 1 To resultcount

98、 '循環(huán)將職工信息和基本工資放入電子表格</p><p>　　userid = rs("USER_ID")</p><p>　　MSFlexGrid1.Row = i</p><p>　　MSFlexGrid1.Col = 0</p><p>　　MSFlexGrid1.Text = userid</p>

99、;<p>　　MSFlexGrid1.Col = 1</p><p>　　MSFlexGrid1.Text = rs("USER_NAME")</p><p>　　MSFlexGrid1.Col = 2</p><p>　　MSFlexGrid1.Text = rs("PART_NAME")</p>

100、<p>　　MSFlexGrid1.Col = 3</p><p>　　MSFlexGrid1.Text = rs("ROLE_NAME")</p><p>　　MONEY = rs("ROLE_MONEY")</p><p>　　MSFlexGrid1.Col = 4</p><p>　　

101、MSFlexGrid1.Text = Str(MONEY)</p><p>　　rs.MoveNext</p><p><b>　　Next i</b></p><p><b>　　rs.Close</b></p><p>　　Set rs = Nothing</p><p>

102、;　　For i = 1 To resultcount '通過(guò)考勤表計(jì)算考勤信息影響的工資</p><p>　　MSFlexGrid1.Row = i</p><p>　　MSFlexGrid1.Col = 0</p><p>　　userid = MSFlexGrid1.Text</p><p>　　MSFlexGrid1.C

103、ol = 4</p><p>　　MONEY = Val(MSFlexGrid1.Text)</p><p>　　sql = "SELECT WORK_TIME,TYPE_MARK,TYPE_ID FROM TBL_WORK,TBL_TYPE WHERE WORK_TYPE=TYPE_ID AND WORK_ID='" & userid & &q

104、uot;'"</p><p>　　work.CursorType = adOpenDynamic</p><p>　　work.LockType = adLockOptimistic</p><p>　　work.Open sql, DbFinance '選取每一行職工ID的本月考勤信息</p><p>

105、;　　Do While work.EOF = False</p><p>　　Select Case work("TYPE_ID") '通過(guò)考勤類別計(jì)算考勤時(shí)間和工資關(guān)系</p><p><b>　　Case 1</b></p><p>　　temp = work("WORK_TIME")

106、 * 1</p><p><b>　　Case 2</b></p><p>　　temp = work("WORK_TIME") * 2</p><p><b>　　Case 3</b></p><p>　　temp = work("WORK_TIME") *

107、 10</p><p><b>　　Case 4</b></p><p>　　temp = work("WORK_TIME") * 20</p><p>　　End Select</p><p>　　If work("TYPE_MARK") Then '當(dāng)考勤類

108、別是加班出差等要向基本工資中加工資</p><p>　　MONEY = MONEY + temp</p><p><b>　　Else</b></p><p>　　MONEY = MONEY - temp '當(dāng)考勤類別是遲到早退等要向基本工資中減工資</p><p><b>　　End I

109、f</b></p><p>　　work.MoveNext</p><p><b>　　Loop</b></p><p>　　MSFlexGrid1.Text = Str(MONEY) '重新設(shè)置每個(gè)人的月工資</p><p>　　work.Close</p><p&g

110、t;<b>　　Next i</b></p><p>　　DbHandle.DbClose</p><p>　　Else '打開數(shù)據(jù)庫(kù)失敗錯(cuò)誤退出</p><p>　　MsgBox "數(shù)據(jù)庫(kù)錯(cuò)誤！", vbExclamation</p><p>　　DbHandle.DbClos

111、e</p><p><b>　　End</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　5.4 固定資產(chǎn)管理的設(shè)計(jì)與實(shí)現(xiàn)</p><p><b>　　添加固定資產(chǎn)

112、代碼:</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim sql As String</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　If Text1.Text = "" Then 

113、9;判斷資產(chǎn)編號(hào)輸入框不為空</p><p>　　MsgBox "資產(chǎn)編號(hào)不能為空！", vbCritical</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p&g

114、t;<p>　　If Text2.Text = "" Then '判斷資產(chǎn)名稱輸入框不為空</p><p>　　MsgBox "資產(chǎn)名稱不能為空！", vbCritical</p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b>

115、</p><p><b>　　End If</b></p><p>　　If Text3.Text = "" Then '判斷資產(chǎn)數(shù)目輸入框不為空</p><p>　　MsgBox "資產(chǎn)數(shù)目不能為空！", vbCritical</p><p>　　Text3.Se

116、tFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Text4.Text = "" Then '判斷資產(chǎn)單價(jià)輸入框不為空</p><p>　　MsgBox "資產(chǎn)

117、單價(jià)不能為空！", vbCritical</p><p>　　Text4.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Text7.Text = "" Then

118、 '判斷經(jīng)手人ID輸入框不為空</p><p>　　MsgBox "經(jīng)手人ID不能為空！", vbCritical</p><p>　　Text7.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b>&l

119、t;/p><p>　　If Text5.Text = "" Then '判斷聯(lián)系電話輸入框不為空</p><p>　　MsgBox "聯(lián)系電話不能為空！", vbCritical</p><p>　　Text5.SetFocus</p><p><b>　　Exit Sub<

120、/b></p><p><b>　　End If</b></p><p>　　If Text6.Text = "" Then '判斷資產(chǎn)說(shuō)明輸入框不為空</p><p>　　MsgBox "資產(chǎn)說(shuō)明不能為空！", vbCritical</p><p>　　Te

121、xt6.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not IsNumeric(Text3.Text) Then '判斷資產(chǎn)數(shù)目輸入框必須是數(shù)字</p><p>　　MsgBox

122、"資產(chǎn)數(shù)目必須是數(shù)字！", vbCritical</p><p>　　Text3.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not IsNumeric(Text4.Text)

123、 Then '判斷資產(chǎn)單價(jià)輸入框是數(shù)字</p><p>　　MsgBox "資產(chǎn)單價(jià)必須是數(shù)字！", vbCritical</p><p>　　Text4.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If<

124、/b></p><p>　　If PartCombo.ListIndex = -1 Then '確保部門被選擇</p><p>　　MsgBox "部門必須選擇！", vbCritical</p><p>　　PartCombo.SetFocus</p><p><b>　　Exit Sub

125、</b></p><p><b>　　End If</b></p><p>　　If DbHandle.DbConnection Then '打開數(shù)據(jù)庫(kù)連接準(zhǔn)備添加固定資產(chǎn)記錄</p><p>　　sql = "TBL_FIXED" '在固定資產(chǎn)表中搜索,判

126、斷是否已經(jīng)存在和欲添加固定</p><p>　　rs.CursorType = adOpenDynamic '資產(chǎn)具有相同編號(hào)的記錄</p><p>　　rs.LockType = adLockOptimistic</p><p>　　rs.Filter = "FIXED_ID='" & Text1.Text &

127、; "'"</p><p>　　rs.Open sql, DbFinance</p><p>　　If DbHandle.resultcount(rs) = 1 Then '如果找到編號(hào)已經(jīng)存在就提示錯(cuò)誤信息,并且退出</p><p>　　MsgBox "資產(chǎn)編號(hào)已經(jīng)存在！", vbExclama

128、tion</p><p><b>　　rs.Close</b></p><p>　　DbHandle.DbClose</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>

129、;　　rs.Close</b></p><p>　　sql = "TBL_USER" '在職工表中判斷輸入的職工ID是否是有效ID</p><p>　　rs.CursorType = adOpenDynamic</p><p>　　rs.LockType = adLockOptimistic</p>

130、<p>　　rs.Filter = "USER_ID='" & Text7.Text & "'"</p><p>　　rs.Open sql, DbFinance</p><p>　　If DbHandle.resultcount(rs) <> 1 Then '不存在輸入的職

131、工ID就提示錯(cuò)誤信息退出</p><p>　　MsgBox "錯(cuò)誤，不存在的ID號(hào)！", vbExclamation</p><p>　　Text7.SetFocus</p><p><b>　　rs.Close</b></p><p>　　Set rs = Nothing</p>&l

132、t;p>　　DbHandle.DbClose</p><p><b>　　Exit Sub</b></p><p>　　Else '職工ID是有效的,可以進(jìn)行添加固定資產(chǎn)</p><p><b>　　rs.Close</b></p><p>　　sql = "T

133、BL_FIXED"</p><p>　　rs.Filter = ""</p><p>　　rs.Open sql, DbFinance</p><p><b>　　rs.AddNew</b></p><p>　　rs("FIXED_ID") = Text1.Text

134、 '固定資產(chǎn)編號(hào)</p><p>　　rs("FIXED_NAME") = Text2.Text '固定資產(chǎn)名稱</p><p>　　rs("FIXED_NUM") = Val(Text3.Text) '固定資產(chǎn)數(shù)目</p><p>　　rs("FIXED_MONEY

135、") = Val(Text4.Text) '固定資產(chǎn)單價(jià)</p><p>　　rs("FIXED_PART") = PartCombo.ItemData(PartCombo.ListIndex) '購(gòu)買固定資產(chǎn)部門</p><p>　　rs("FIXED_USER") = Text7.Text