固定資產(chǎn)管理系統(tǒng)設(shè)計(jì)畢業(yè)論文

1、<p><b>　　第一章 緒論</b></p><p>　　1.1課題研究的背景介紹</p><p>　　1.1.1社會現(xiàn)狀及發(fā)展動(dòng)態(tài)</p><p>　　隨著社會經(jīng)濟(jì)的不斷發(fā)展，企業(yè)規(guī)模越來越大，企業(yè)資產(chǎn)維護(hù)變得越來越困難，在手工管理方式下，財(cái)務(wù)人員在對資產(chǎn)進(jìn)行折舊時(shí)，需要查閱上一個(gè)月的資產(chǎn)信息，根據(jù)上一個(gè)月的資產(chǎn)信息核算折舊資產(chǎn)

2、。如果企業(yè)資產(chǎn)很多，可以想像財(cái)務(wù)人員的工作難度，既要按時(shí)對資產(chǎn)進(jìn)行折舊，又要保證數(shù)據(jù)的準(zhǔn)確性，還要每月對資產(chǎn)進(jìn)行折舊。所以一旦某個(gè)月的資產(chǎn)折舊有誤，就會影響到以后的資產(chǎn)折算。</p><p>　　信息化的發(fā)展幫助企業(yè)解決了上述難題，計(jì)算機(jī)的使用使財(cái)務(wù)人員從繁重的勞動(dòng)中解脫出來，以往需要對資產(chǎn)信息的一項(xiàng)一項(xiàng)核算、折舊，現(xiàn)在只需單擊一下按鈕，計(jì)算機(jī)便會自動(dòng)完成企業(yè)所有資產(chǎn)的折舊，而且準(zhǔn)確無誤。</p>

3、<p>　　1.1.2選題依據(jù)和背景情況</p><p>　　人類在發(fā)展，社會在進(jìn)步，經(jīng)濟(jì)發(fā)展又是社會發(fā)展的一個(gè)重要標(biāo)志和保障。隨著經(jīng)濟(jì)的發(fā)展，企業(yè)的競爭也越來越強(qiáng)。而信息化的發(fā)展進(jìn)一步促進(jìn)企業(yè)更好的發(fā)展，怎樣把科技應(yīng)用與企業(yè)的發(fā)展，成為社會發(fā)展的一大趨勢。只有更好的利用信息的發(fā)展成果，讓企業(yè)更好的發(fā)展，更高科技的發(fā)展，為社會節(jié)省大量的人力，財(cái)力，而且保障企業(yè)信息的快捷，準(zhǔn)確，達(dá)到高效率才是當(dāng)前社會前進(jìn)

4、的步伐。</p><p>　　1.1.3課題研究目的及工程應(yīng)用價(jià)值</p><p>　　開發(fā)軟件的一個(gè)目的是使其具有強(qiáng)大的實(shí)用價(jià)值，即它可以滿足企業(yè)固定資產(chǎn)管理的需要。在一般的企業(yè)機(jī)構(gòu)，其下屬的很多財(cái)務(wù)種類很多，要清晰明確的做好每一筆財(cái)務(wù)清單，實(shí)在是一件費(fèi)力又費(fèi)時(shí)的事。而這些數(shù)據(jù)對一個(gè)企業(yè)的發(fā)展來說是很重要又馬虎不得的。尋求一個(gè)針對中企業(yè)固定資產(chǎn)的管理軟件是必要的。</p>

5、<p>　　這種管理軟件對硬件的要求很低，一般有一個(gè)比較簡單的服務(wù)器與PC機(jī)組成的網(wǎng)絡(luò)即可，再加上使用比較廉價(jià)、性能不錯(cuò)的軟件，這樣就可以以較低的成本來實(shí)現(xiàn)一個(gè)足夠使用的功能，而這種模式也正滿足了那種中小型企業(yè)的要求。根據(jù)實(shí)際需要對這種管理軟件的開發(fā)是一種基于數(shù)據(jù)庫的資產(chǎn)管理軟件。</p><p>　　1.2固定資產(chǎn)管理系統(tǒng)的概述</p><p>　　當(dāng)今時(shí)代是飛速發(fā)展的信息時(shí)代

6、。在各行各業(yè)中離不開信息處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。計(jì)算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。使用計(jì)算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。</p><p>　　一個(gè)企業(yè)的良性發(fā)展，避免不了的要涉及到企業(yè)資產(chǎn)的有效管理。對于那些技術(shù)裝備密集型的企業(yè)，固定資產(chǎn)的管理顯得尤為重要。傳統(tǒng)的固定資產(chǎn)管理模式無論從質(zhì)量上還是效率上，都難以適應(yīng)經(jīng)營管理新形式的需要。因此，尋找一

7、種簡便、高效的管理手段成為必然。在充分研究分析企業(yè)固定資產(chǎn)管理的業(yè)務(wù)需求的基礎(chǔ)上，固定資產(chǎn)管理?xiàng)l碼解決方案把條碼引入固定資產(chǎn)管理中，開發(fā)了一套首碼固定資產(chǎn)管理?xiàng)l碼管理系統(tǒng)，改變了固定資產(chǎn)清查數(shù)據(jù)的采集方式，解決固定資產(chǎn)實(shí)物清查的瓶頸問題，大大提高清查效率，同時(shí)也增加了固定資產(chǎn)的形態(tài)方面的管理，有效解決企業(yè)資產(chǎn)的管理難題，使企業(yè)更輕松、更有效地管理固定資產(chǎn)。如能在公司內(nèi)部建立固定資產(chǎn)管理，將使各級相關(guān)管理人員及有關(guān)領(lǐng)導(dǎo)快速查詢、統(tǒng)計(jì)固定資

8、產(chǎn)情況，實(shí)現(xiàn)合理配置資源、決策，提供依據(jù)，提高工作效率。</p><p>　　第二章 數(shù)據(jù)庫相關(guān)技術(shù)的介紹</p><p><b>　　2.1數(shù)據(jù)庫的發(fā)展</b></p><p>　　數(shù)據(jù)庫處理在信息系統(tǒng)的 研究 中一直是非常重要的主題，然而，近年來，隨著World Wide Web(WWW)的猛增及Internet技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫技

9、術(shù)之時(shí)成為最熱門技術(shù)之一。數(shù)據(jù)庫技術(shù)能使Internet 應(yīng)用 超越具有早期應(yīng)用特點(diǎn)的簡單的發(fā)布。Internet技術(shù)提供了一種向用戶發(fā)布數(shù)據(jù)庫 內(nèi)容 的標(biāo)準(zhǔn)化的訪問 方法 。這些技術(shù)沒有脫離經(jīng)典數(shù)據(jù)庫技術(shù)的要求。它們只是加重了數(shù)據(jù)庫技術(shù)的重要性。 數(shù)據(jù)庫的設(shè)計(jì)和開發(fā)及包括 藝術(shù) 有包括工程。理解用戶的需求，然后，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫設(shè)計(jì)是一個(gè)藝術(shù)過程。把設(shè)計(jì)轉(zhuǎn)變?yōu)閷?shí)際的數(shù)據(jù)庫，并且這些數(shù)據(jù)庫帶有功能完備、高效能的應(yīng)用，是一

10、個(gè)工程過程。 數(shù)據(jù)庫的目的是幫助人們跟蹤事務(wù)。經(jīng)典的數(shù)據(jù)庫應(yīng)用涉及諸如訂單、顧客、工作、員工、學(xué)生、電話之類的項(xiàng)，或其它數(shù)據(jù)量較大、需要密起關(guān)注的事務(wù)。最近，由于數(shù)據(jù)庫的普及，數(shù)據(jù)庫技術(shù)已經(jīng)被應(yīng)用到了新的領(lǐng)域，諸如用于Internet的數(shù)據(jù)庫或用于公司內(nèi)聯(lián)網(wǎng)的數(shù)據(jù)庫。數(shù)據(jù)庫也被越來越多地應(yīng)用于生成和維護(hù)多媒體應(yīng)用程序上。 計(jì)算機(jī)的數(shù)據(jù)處理應(yīng)用，首先要把大量的信息以數(shù)據(jù)形式存放在存</p><p>

11、　　數(shù)據(jù)管理技術(shù)的發(fā)展，與硬件（主要是外存）、軟件、計(jì)算機(jī)應(yīng)用的范圍有密切的聯(lián)系。數(shù)據(jù)管理技術(shù)的發(fā)展經(jīng)過三個(gè)階段：人工管理階段、文件系統(tǒng)階段和數(shù)據(jù)庫階段。人工管理階段和文件系統(tǒng)階段都有著相當(dāng)多的缺陷，諸如數(shù)據(jù)冗余性 ，數(shù)據(jù)不一致性以及數(shù)據(jù)聯(lián)系弱等等。也正是由于這些原因，促使人們研究新的數(shù)據(jù)管理技術(shù)，從而產(chǎn)生了數(shù)據(jù)庫技術(shù)。 20世紀(jì)60年代末發(fā)生的三件大事，層次模型IMS系統(tǒng)的推出、關(guān)于網(wǎng)狀模型DBTG報(bào)告的發(fā)表以及關(guān)于關(guān)系模型

12、論文的連續(xù)發(fā)表標(biāo)志著數(shù)據(jù)管理技術(shù)進(jìn)入數(shù)據(jù)庫階段。進(jìn)入70年代以后，數(shù)據(jù)庫技術(shù)得到迅速發(fā)展，開發(fā)了許多有效的產(chǎn)品并投入運(yùn)行。數(shù)據(jù)庫系統(tǒng)克服了文件系統(tǒng)的缺陷，提供了對數(shù)據(jù)更高級更有效的管理。 當(dāng)進(jìn)入數(shù)據(jù)庫階段后，隨著數(shù)據(jù)管理規(guī)模一再擴(kuò)大，數(shù)據(jù)量急劇增加，為了提高效率，開始時(shí)，人們只是對文件系統(tǒng)加以擴(kuò)充，在應(yīng)用文件中建立了許多輔助索引，形成倒排文件系統(tǒng)。但這并不能最終解決問題 。在20世紀(jì)60年代末，磁盤技術(shù)取得重要進(jìn)展，具有數(shù)百兆容

13、量和快速存取的磁盤陸續(xù)進(jìn)入市場，成本也不高，為數(shù)據(jù)庫技術(shù)的產(chǎn)生提供了良好的物質(zhì)條件。</p><p>　　2.2數(shù)據(jù)庫階段的特點(diǎn)及優(yōu)點(diǎn)</p><p>　　（1）減少數(shù)據(jù)的重復(fù)(Redundancy can be reduced)</p><p>　　當(dāng)在一個(gè)非數(shù)據(jù)庫系統(tǒng)當(dāng)中，每一個(gè)應(yīng)用程序都有屬于他們自己的文件，由于無法有系統(tǒng)建立的數(shù)據(jù)，因此常常會造成存儲數(shù)據(jù)的重

14、復(fù)與浪費(fèi)。例如：在一家公司當(dāng)中，人事管理程序與工資管理程序或許都會使用到職員與部門的信息或文件，而我們可以運(yùn)用數(shù)據(jù)庫的方法，把這兩個(gè)文件整理起來，以減少多余的數(shù)據(jù)，過度地占用存儲空間。 </p><p>　?。?）避免數(shù)據(jù)的不一致(Inconsistency can avoid)</p><p>　　本項(xiàng)的特色，可以說是延伸前項(xiàng)的一個(gè)特點(diǎn)，要說明這樣的一個(gè)現(xiàn)象，

15、我們可以從下面這個(gè)實(shí)例來看：若是在同一家公司當(dāng)中，職員甲在策劃部門工作，且職員甲的記錄同時(shí)被存放在數(shù)據(jù)庫的兩個(gè)地方，而數(shù)據(jù)庫管理系統(tǒng)卻沒有對這樣重要的情況加以控制，當(dāng)其中一條數(shù)據(jù)庫被修改時(shí)，便會造成數(shù)據(jù)的不一致，但是，對于一個(gè)健全的數(shù)據(jù)庫管理系統(tǒng)而言，將會對這樣的情況加以控制，但有時(shí)并不需要刻意消除這種情形，應(yīng)當(dāng)視該數(shù)據(jù)庫的需求與效率來決定。            &

16、#160;          </p><p>　?。?）數(shù)據(jù)共享(Data shared)</p><p>　　對于數(shù)據(jù)共享的意義，并不是只有針對數(shù)據(jù)庫設(shè)計(jì)的應(yīng)用程序，可以使用數(shù)據(jù)庫中的數(shù)據(jù)，對于其他撰寫好的應(yīng)用程序，同樣可以對相同數(shù)據(jù)庫當(dāng)中的數(shù)據(jù)進(jìn)行處理，進(jìn)而達(dá)到數(shù)據(jù)共享的目的。</p><p>　?。?/p>

17、4）強(qiáng)化數(shù)據(jù)的標(biāo)準(zhǔn)化(Standard can be enforced)</p><p>　　由數(shù)據(jù)庫管理系統(tǒng)，對數(shù)據(jù)做出統(tǒng)籌性的管理，對于數(shù)據(jù)的格式與一些存儲上的標(biāo)準(zhǔn)進(jìn)行控制，如此一來，對于不同的環(huán)境的數(shù)據(jù)交換（Data Interchange）上將有很大的幫助，也能提高數(shù)據(jù)處理的效率。</p><p>　?。?）實(shí)踐安全性的管理(Security restriction can be

18、applied)</p><p>　　通過對數(shù)據(jù)庫完整的權(quán)限控制，數(shù)據(jù)庫管理者可以確認(rèn)所有可供用戶存取數(shù)據(jù)的合法途徑渠道，并且可以事先對一些較重要或關(guān)鍵性的數(shù)據(jù)進(jìn)行安全檢查，以確保數(shù)據(jù)存取時(shí)，能夠?qū)⑷魏尾划?dāng)損毀的情形降至最低。</p><p>　?。?）完整性的維護(hù)(Integrity can be maintained)</p><p>　　所謂完整性的問題，就是

19、要確認(rèn)某條數(shù)據(jù)在數(shù)據(jù)庫當(dāng)中，是正確無誤的。正如（2）所述，若是無法控制數(shù)據(jù)的不一致性，便會產(chǎn)生完整性不足的問題，所以，我們會發(fā)現(xiàn)，當(dāng)數(shù)據(jù)重復(fù)性高的時(shí)候，數(shù)據(jù)不完整的情形也會增加，當(dāng)然，若是數(shù)據(jù)庫的功能完整，將會大大地提高數(shù)據(jù)完整性，也會增加數(shù)據(jù)庫的維護(hù)能力與維護(hù)簡便性。</p><p>　　（7）需求沖突會獲得平衡（Conflicting requirements can be balance）</p>

20、;<p>　　在一個(gè)較大型的 企業(yè) 當(dāng)中，用戶不同的需求，往往會造成系統(tǒng)或數(shù)據(jù)庫在設(shè)計(jì)上的困擾，但是一個(gè)合適的數(shù)據(jù)庫系統(tǒng)，可以通過數(shù)據(jù)庫管理員的管理，將會有效地整理各方面的信息，對于一些較重要的應(yīng)用程序，可以適時(shí)地提供較快速的數(shù)據(jù)存取方法與格式，以平衡多個(gè)用戶在需求上的沖突。</p><p>　　2.3數(shù)據(jù)庫系統(tǒng)設(shè)計(jì)</p><p>　　數(shù)據(jù)指標(biāo)項(xiàng)則被稱為數(shù)據(jù)元素(data

21、element)，這種關(guān)系落實(shí)到具體數(shù)據(jù)庫上就是基本表，而數(shù)據(jù)元素就是基本表中的一個(gè)字段(field)。規(guī)范化表達(dá)還規(guī)定在每一個(gè)基本表中必須定義一個(gè)數(shù)據(jù)元素為關(guān)鍵字(key)，它可以唯一地標(biāo)識出該表中其它相關(guān)的數(shù)據(jù)元素。在規(guī)范化理論中表是二維的，它有如下四個(gè)性質(zhì)：在表中的任意一列上，數(shù)據(jù)項(xiàng)應(yīng)屬于同一個(gè)屬性(如圖中每一列都存放著不同合同記錄的同一屬性數(shù)據(jù))。 表中所有行都是不相同的，不允許有重復(fù)組項(xiàng)出現(xiàn)(如圖中每一行都是一個(gè)不同的合同記錄

22、)。在表中，行的順序無關(guān)緊要(如圖中每行存的都是合同記錄，至于先放哪一個(gè)合同都沒關(guān)系)。 在表中，列的順序無關(guān)緊要，但不能重復(fù)(如圖中合同號和合同名誰先誰后都沒關(guān)系，但二者不可重復(fù)或同名)。</p><p>　　第三章 固定資產(chǎn)管理系統(tǒng)設(shè)計(jì)分析</p><p><b>　　3.1系統(tǒng)分析</b></p><p><b>　　3.1.1

23、需求分析</b></p><p>　　通過實(shí)際調(diào)查，要求本系統(tǒng)應(yīng)具有以下優(yōu)良性能：</p><p>　?。?）由于操作人員的計(jì)算機(jī)知識有限，因此要求系統(tǒng)具有良好的人機(jī)界面。</p><p>　?。?）如果系統(tǒng)的使用對象較多，則要求具有良好的權(quán)限管理。</p><p>　　（3）方便數(shù)據(jù)查新，支持多條件查詢。</p>

24、<p>　?。?）在固定資產(chǎn)數(shù)據(jù)量大的情況下，支持分類顯示固定資產(chǎn)數(shù)據(jù)。</p><p>　?。?）當(dāng)外界環(huán)境（停電、網(wǎng)絡(luò)病毒等）干擾本系統(tǒng)時(shí)，系統(tǒng)可以自動(dòng)保護(hù)原始數(shù)據(jù)的安全。</p><p>　?。?）在相應(yīng)的權(quán)限下，可以方便的刪除數(shù)據(jù)，且保持?jǐn)?shù)據(jù)的穩(wěn)定性。</p><p>　?。?）資產(chǎn)折舊核算自動(dòng)完成，盡量減少人工干預(yù)。</p><

25、;p>　?。?）Excel導(dǎo)入/導(dǎo)出功能。</p><p>　　3.1.2開發(fā)工具選擇</p><p>　　本系統(tǒng)后臺數(shù)據(jù)庫采用Microsoft SQL Server 2000，前臺采用Microsoft公司的Visual Basic 6.0作為主要的開發(fā)工具，可與SQL Server 2000數(shù)據(jù)庫無縫鏈接。</p><p><b>　　3.2總

26、體設(shè)計(jì)</b></p><p><b>　　3.2.1項(xiàng)目規(guī)劃</b></p><p>　　固定資產(chǎn)管理系統(tǒng)由設(shè)備管理、設(shè)備查詢、報(bào)表管理、用戶管理、系統(tǒng)管理等模塊組成，具體規(guī)劃如下：</p><p><b>　?。?）設(shè)備管理</b></p><p>　　該模塊主要用于實(shí)現(xiàn)設(shè)備的增加、

27、刪除、借出借入登記、注銷、報(bào)廢等管理.</p><p><b>　　（2）設(shè)備查詢</b></p><p>　　該模塊主要按提供部門,設(shè)備名,型號,價(jià)格,分類,購置日期,注銷日期等信息的查詢.</p><p><b>　?。?）報(bào)表管理</b></p><p>　　該模塊主要實(shí)現(xiàn)設(shè)備登記卡,部門統(tǒng)計(jì)

28、表,注銷統(tǒng)計(jì)表,折舊統(tǒng)計(jì)表等信息管理.</p><p><b>　?。?）用戶管理</b></p><p>　　該模塊主要實(shí)現(xiàn)新增用戶與刪除用戶等功能.</p><p><b>　　（5）系統(tǒng)管理</b></p><p>　　該模塊主要提供修改密碼,退出系統(tǒng)等功能.</p><p

29、>　　3.2.2 系統(tǒng)業(yè)務(wù)流程</p><p>　　固定資產(chǎn)管理系統(tǒng)業(yè)務(wù)流程圖如圖4-1所示。</p><p>　　3.2.3系統(tǒng)功能結(jié)構(gòu)</p><p>　　固定資產(chǎn)管理系統(tǒng)功能結(jié)構(gòu)如圖4-2所示。</p><p><b>　　3.3系統(tǒng)設(shè)計(jì)</b></p><p>　　3.3.1 設(shè)計(jì)目

30、標(biāo)</p><p>　　本系統(tǒng)屬于中小型的數(shù)據(jù)庫系統(tǒng)，可以對中小型企業(yè)固定資產(chǎn)進(jìn)行有效的管理。通過本系統(tǒng)可以達(dá)到以下目標(biāo)：</p><p>　?。?）靈活地運(yùn)用表格傳遞信息。</p><p>　?。?）系統(tǒng)采用人機(jī)交互方式，界面美觀友好，信息查新靈便，數(shù)據(jù)庫存儲安全可靠。</p><p>　　（3）實(shí)施強(qiáng)大的后臺監(jiān)控功能。</p>

31、<p>　?。?）實(shí)現(xiàn)各種查詢，如定位查詢、模糊查詢等。</p><p>　　（5）與Excel表格實(shí)現(xiàn)導(dǎo)入與導(dǎo)出數(shù)據(jù)靈活。</p><p>　?。?）對用戶輸入的數(shù)據(jù)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能的避免人為錯(cuò)誤。</p><p>　　（7）系統(tǒng)最大限度的實(shí)現(xiàn)了易安裝、易維護(hù)和易操作。</p><p>　　3.3.2開發(fā)及運(yùn)行環(huán)境&

32、lt;/p><p>　?。?）系統(tǒng)開發(fā)平臺：Microsoft Visual Basic 6.0</p><p>　?。?）系統(tǒng)開發(fā)數(shù)據(jù)庫：SQL Server 2000。</p><p>　?。?）運(yùn)行平臺：Windows XP(SP2)/Windows 2000(SP4)/Windows Server 2003(SP1)。</p><p>　

33、　（4）運(yùn)行環(huán)境：Microsoft .NET Framework SDK v2.0。</p><p>　?。?）分辨率：最佳效果1024﹡768像素。</p><p>　　3.3.3數(shù)據(jù)庫設(shè)計(jì)</p><p>　　本系統(tǒng)采用SQL Server 2000作為后臺數(shù)據(jù)庫，數(shù)據(jù)庫名稱為Data.mdb,其中包含15張數(shù)據(jù)表。下面分別介紹。</p><

34、;p>　?。?）數(shù)據(jù)表概要說明</p><p>　　為了是讀者對本系統(tǒng)后臺數(shù)據(jù)庫中數(shù)據(jù)表有一個(gè)更清晰地認(rèn)識，在此設(shè)計(jì)了數(shù)據(jù)表樹型結(jié)構(gòu)圖，其中包含了對數(shù)據(jù)表的相關(guān)描述。</p><p>　　（2）數(shù)據(jù)庫E-R圖分析</p><p>　　本系統(tǒng)根據(jù)上面設(shè)計(jì)規(guī)劃出：系統(tǒng)實(shí)體關(guān)系圖、固定資產(chǎn)信息實(shí)體、固定資產(chǎn)清理信息實(shí)體、資產(chǎn)名稱實(shí)體、資產(chǎn)類別實(shí)體、保管人員實(shí)體、存放

35、地點(diǎn)實(shí)體、使用部門實(shí)體、使用情況實(shí)體、增加方式實(shí)體、計(jì)量單位實(shí)體、清理方式實(shí)體。</p><p>　　固定資產(chǎn)管理系統(tǒng)實(shí)體間關(guān)系E-R圖，如圖4-3和圖4-4所示。</p><p>　　圖4-3 固定資產(chǎn)管理系統(tǒng)實(shí)體間關(guān)系E-R圖1</p><p>　　圖4-4 固定資產(chǎn)管理系統(tǒng)實(shí)體間關(guān)系E-R圖2</p><p>　　固定資產(chǎn)實(shí)體圖如圖

36、4-5所示。</p><p>　　圖4-5固定資產(chǎn)信息實(shí)體圖</p><p>　　固定資產(chǎn)清理信息實(shí)體圖，如圖4-6所示。</p><p>　　固定資產(chǎn)名稱和資產(chǎn)類別實(shí)體圖，如圖4-7所示。</p><p>　　固定資產(chǎn)保管人員和存放地點(diǎn)實(shí)體圖，如圖4-8所示。</p><p>　　圖4-6 固定資產(chǎn)清理信息實(shí)體圖&l

37、t;/p><p>　　圖4-7 固定資產(chǎn)名稱和資產(chǎn)類別實(shí)體圖</p><p>　　圖4-8 固定資產(chǎn)保管人員和存放地點(diǎn)實(shí)體圖</p><p>　　固定資產(chǎn)使用部門和使用情況實(shí)體圖，如圖4-9所示。</p><p>　　圖4-9 固定資產(chǎn)使用部門和使用情況實(shí)體圖</p><p>　　固定資產(chǎn)計(jì)量單位和增加方式實(shí)體圖，如圖

38、4-10所示。</p><p>　　圖4-10 固定資產(chǎn)計(jì)量單位和增加方式實(shí)體圖</p><p>　　固定資產(chǎn)清理方式實(shí)體圖，如圖4-11所示。</p><p>　　圖4-11 固定資產(chǎn)清理方式實(shí)體圖</p><p>　?。?）主要數(shù)據(jù)表的結(jié)構(gòu)</p><p>　　資產(chǎn)編號設(shè)置表主要用來存儲資產(chǎn)編號規(guī)則設(shè)置，tb_Ba

39、seDefaultNO（資產(chǎn)編號設(shè)置表）</p><p>　　結(jié)構(gòu)如表4-1所示。</p><p>　　表4-1 資產(chǎn)編號設(shè)置表</p><p>　　資產(chǎn)類別表主要存儲資產(chǎn)類別信息，因?yàn)樵摫碇械男畔⒅饕ㄟ^TreeView控件顯示，所以表的設(shè)計(jì)類似于遞歸法設(shè)計(jì)，tb_BaseZclb（資產(chǎn)類別表）結(jié)構(gòu)如表4-2所示。</p><p>　　表

40、4-2 資產(chǎn)類別表</p><p>　　資產(chǎn)名稱表主要存儲固定資產(chǎn)的名稱。tb_BaseZcmc（資產(chǎn)名稱表）結(jié)構(gòu)如表4-3所示。 </p><p>　　表4-3 資產(chǎn)名稱表</p><p>　　固定資產(chǎn)信息表主要存儲固定資產(chǎn)的基本信息。tb_zcMain(固定資產(chǎn)信息表)結(jié)構(gòu)如表4-4所示。 </p><p

41、>　　表4-4 固定資產(chǎn)信息表</p><p>　　DataGridView表格屬性列表主要存儲系統(tǒng)主要窗體中顯示資產(chǎn)信息的DataGridView控件的相關(guān)屬性。tb_DataGridViewList(DataGridView表格屬性列表)結(jié)構(gòu)如表4-5所示。</p><p>　　表4-5 DataGridView表格屬性列表</p><p>　　固定資

42、產(chǎn)清理表主要保存已經(jīng)被清理的固定資產(chǎn)信息。tb_zcClear(固定資產(chǎn)清理表)結(jié)構(gòu)如表4-6所示。</p><p>　　表4-6 固定資產(chǎn)清理表</p><p><b>　　3.4技術(shù)準(zhǔn)備</b></p><p>　　3.4.1添加引用Excel動(dòng)態(tài)鏈接庫</p><p>　　開發(fā)資產(chǎn)折舊核算模塊時(shí)，為了實(shí)現(xiàn)將Dat

43、aGridView控件中數(shù)據(jù)導(dǎo)出到Excel文件中，需要引用Excel動(dòng)態(tài)鏈接庫（Microsoft Excel 9.0 Object Library）,這樣才可以通過C＃語言靈活控制Excel，添加方法如下。</p><p>　　（1）在開發(fā)環(huán)境的菜單欄中選擇‘項(xiàng)目’/‘添加引用’，彈出‘添加引用窗體’。</p><p>　　（2）選擇‘COM’選項(xiàng)卡，在‘組件名稱’列表中選擇‘Micr

44、osoft Excel 9.0 Object Library’，單擊‘確定’按鈕，添加引用成功。</p><p>　　3.4.2 MVC開發(fā)模式</p><p>　　Mode-View-Controller（即MVC）模式是為面向?qū)ο笳Z言Smalltalk-80發(fā)明的一種軟件設(shè)計(jì)模式，MVC模式不僅實(shí)現(xiàn)了功能模塊和顯示模塊的分離，同時(shí)還提高了應(yīng)用系統(tǒng)的可維護(hù)性、可擴(kuò)展性、可移植性和組件的可

45、重用性，至今已被廣泛應(yīng)用。</p><p>　　MVC開發(fā)模式將基于用戶輸入域的建模、顯示和操作分為三個(gè)獨(dú)立的類，分別為模型、試圖、控制器。圖4-12描述了這三個(gè)對象之間的結(jié)構(gòu)關(guān)系。</p><p>　　圖4-12 MVC類結(jié)構(gòu)</p><p><b>　　（1）模型</b></p><p>　　模型用于管理應(yīng)用程序域

46、的行為和數(shù)據(jù)，并響應(yīng)為獲取其狀態(tài)信息（通常來自視圖）而發(fā)出的請求，同時(shí)響應(yīng)更改狀態(tài)的指令（通常來自控制器）。</p><p><b>　?。?）視圖</b></p><p>　　視圖用于管理信息的顯示。</p><p><b>　?。?）控制器</b></p><p>　　控制器用于解釋用戶的鼠標(biāo)和

47、鍵盤的輸入，以通知模式或視圖進(jìn)行相應(yīng)的修改。</p><p>　　第四章 固定資產(chǎn)管理系統(tǒng)應(yīng)用詳細(xì)設(shè)計(jì)</p><p>　　4.1用戶登陸及用戶設(shè)置模塊的實(shí)現(xiàn)</p><p>　　4.1.1用戶登錄模塊</p><p>　　考慮到系統(tǒng)的安全性，此系統(tǒng)設(shè)計(jì)了用戶登錄模塊。根據(jù)不同的用戶級別賦予他們不同的權(quán)限，這樣可以保證公司固定資產(chǎn)信息的數(shù)據(jù)庫

48、不會被隨意更改。</p><p><b>　　登陸界面代碼設(shè)計(jì):</b></p><p>　　Private Sub cmdOK_Click()</p><p>　　Dim strPwd As String</p><p>　　Dim rsPwd As ADODB.Recordset</p><p&g

49、t;　　Dim strLogin As String</p><p>　　strLogin = Trim(txtUserName.Text)</p><p>　　strPwd = Trim(txtPassword.Text)</p><p>　　If Len(strLogin) = 0 Then</p><p>　　MsgBox "

50、用戶名不能為空,請輸入用戶名"</p><p>　　txtUserName.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Len(strPwd) = 0 Then</p>&

51、lt;p>　　MsgBox "密碼不能為空,請輸入正確的密碼"</p><p>　　txtPassword.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Set rsPwd =

52、gConn.Execute("SELECT pwd FROM tblUser WHERE login='" & Replace(strLogin, "'", "''") & "'")</p><p>　　If rsPwd.EOF Then</p><p>

53、　　MsgBox "用戶名不正確,請重新輸入!"</p><p>　　ElseIf strPwd = rsPwd("pwd").value Then</p><p>　　'將代碼放在這里傳遞</p><p>　　'成功到 calling 函數(shù)</p><p>　　'設(shè)置全局變量時(shí)

54、最容易的</p><p>　　LoginSucceeded = True</p><p><b>　　Me.Hide</b></p><p><b>　　Else</b></p><p>　　MsgBox "無效的密碼，請重試!", , "登錄"</p&

55、gt;<p>　　txtPassword.SetFocus</p><p>　　SendKeys "{Home}+{End}"</p><p><b>　　End If</b></p><p>　　rsPwd.Close</p><p>　　Set rsPwd = Nothing<

56、/p><p><b>　　End Sub</b></p><p><b>　　4.2系統(tǒng)主界面</b></p><p>　　主窗體中主要包括設(shè)備管理、設(shè)備查詢、報(bào)表管理、用戶管理、系統(tǒng)管理等項(xiàng)目。界面設(shè)計(jì)簡單明了，方便用戶的訪問。</p><p><b>　　主界面代碼設(shè)計(jì):</b>

57、;</p><p>　　'執(zhí)行設(shè)備顯示列表操作</p><p>　　Private Sub tabMain_Click(PreviousTab As Integer)</p><p>　　Dim strSQL As String</p><p>　　Select Case tabMain.Tab</p><p>

58、;<b>　　Case 0</b></p><p>　　strSQL = "SELECT a.*,b.department,c.TypeName FROM (tblDevice AS A INNER JOIN tblDepartment AS B ON a.DeptNO=b.DeptNO) INNER JOIN tblTypeInfo C ON a.TypeNO=c.TypeNO

59、ORDER BY A.IID DESC"</p><p>　　Call fillDeviceGrid(grdDevice, strSQL)</p><p><b>　　Case 3</b></p><p>　　Call fillUserGrid</p><p>　　End Select</p>&

60、lt;p><b>　　End Sub</b></p><p>　　Private Sub fillDeviceGrid(grid As MSFlexGrid, Optional strSQL As String)</p><p>　　Dim rs As ADODB.Recordset</p><p>　　Dim strRowData As

61、 String</p><p>　　Dim rowindex As Integer</p><p>　　If Len(strSQL) = 0 Then</p><p>　　strSQL = "SELECT a.*,b.department,c.TypeName FROM (tblDevice AS A INNER JOIN tblDepartment AS

62、 B ON a.DeptNO=b.DeptNO) INNER JOIN tblTypeInfo C ON a.TypeNO=c.TypeNO ORDER BY A.IID DESC"</p><p><b>　　End If</b></p><p>　　rowindex = 1</p><p><b>　　With grid

63、</b></p><p>　　If .Tag = "" Then</p><p>　　Set rs = gConn.Execute(strSQL)</p><p><b>　　.Rows = 1</b></p><p>　　.Cols = 13</p><p>&l

64、t;b>　　.Row = 0</b></p><p><b>　　.Col = 0</b></p><p>　　.Text = "序號"</p><p><b>　　.Col = 1</b></p><p>　　.Text = "ID"<

65、;/p><p>　　.ColWidth(1) = 0</p><p><b>　　.Col = 2</b></p><p>　　.Text = "設(shè)備編號"</p><p><b>　　.Col = 3</b></p><p>　　.Text = "

66、設(shè)備名稱"</p><p><b>　　.Col = 4</b></p><p>　　.Text = "設(shè)備型號"</p><p><b>　　.Col = 5</b></p><p>　　.Text = "設(shè)備分類"</p><

67、p><b>　　.Col = 6</b></p><p>　　.Text = "所屬部門"</p><p><b>　　.Col = 7</b></p><p>　　.Text = "購買價(jià)格"</p><p><b>　　.Col = 8&l

68、t;/b></p><p>　　.Text = "折舊成本"</p><p><b>　　.Col = 9</b></p><p>　　.Text = "購買日期"</p><p><b>　　.Col = 10</b></p><p

69、>　　.Text = "狀態(tài)"</p><p><b>　　.Col = 11</b></p><p>　　.Text = "報(bào)廢日期"</p><p><b>　　.Col = 12</b></p><p>　　.Text = "注銷日期&q

70、uot;</p><p>　　Do Until rs.EOF</p><p>　　strRowData = rowindex & vbTab</p><p>　　strRowData = strRowData & rs("IID").value & vbTab</p><p>　　strRowDat

71、a = strRowData & rs("DeviceNO").value & vbTab</p><p>　　strRowData = strRowData & rs("DeviceName").value & vbTab</p><p>　　strRowData = strRowData & rs(&quo

72、t;DeviceModel").value & vbTab</p><p>　　strRowData = strRowData & rs("TypeName").value & vbTab</p><p>　　strRowData = strRowData & rs("Department").value &

73、amp; vbTab</p><p>　　strRowData = strRowData & rs("ProductPrice").value & vbTab</p><p>　　strRowData = strRowData & rs("Productcost").value & vbTab</p>&

74、lt;p>　　strRowData = strRowData & FormatDateTime(rs("PurchaseDate").value, vbLongDate) & vbTab</p><p>　　If rs("Status").value = 0 Then</p><p>　　strRowData = strRowD

75、ata & "在庫" & vbTab</p><p><b>　　Else</b></p><p>　　strRowData = strRowData & "借出" & vbTab</p><p><b>　　End If</b></p>

76、<p>　　strRowData = strRowData & rs("RejectDate").value & vbTab</p><p>　　strRowData = strRowData & rs("DisCardDate").value & vbTab</p><p>　　.AddItem strR

77、owData</p><p>　　rs.MoveNext</p><p>　　rowindex = rowindex + 1</p><p><b>　　Loop</b></p><p><b>　　rs.Close</b></p><p>　　Set rs = Nothin

78、g</p><p><b>　　.Tag = 1</b></p><p><b>　　End If</b></p><p><b>　　End With</b></p><p><b>　　End Sub</b></p><p>　

79、　Private Sub fillUserGrid()</p><p>　　Dim rs As ADODB.Recordset</p><p>　　Dim strRowData As String</p><p>　　Dim rowindex As Integer</p><p>　　rowindex = 1</p><p

80、>　　With grdUser</p><p>　　If .Tag = "" Then</p><p>　　Set rs = gConn.Execute("SELECT * FROM tblUser ORDER BY UID DESC")</p><p><b>　　.Rows = 1</b><

81、;/p><p><b>　　.Cols = 4</b></p><p><b>　　.Row = 0</b></p><p><b>　　.Col = 0</b></p><p>　　.Text = "序號"</p><p>　　.Col

82、Width(0) = 500</p><p><b>　　.Col = 1</b></p><p>　　.ColWidth(1) = 0</p><p><b>　　.Col = 2</b></p><p>　　.Text = "用戶名"</p><p>

83、　　.ColWidth(2) = 1500</p><p><b>　　.Col = 3</b></p><p>　　.Text = "用戶級別"</p><p>　　.ColWidth(3) = 3000</p><p>　　Do Until rs.EOF</p><p>　

84、　strRowData = rowindex & vbTab</p><p>　　strRowData = strRowData & rs("UID").value & vbTab</p><p>　　strRowData = strRowData & rs("login").value & vbTab<

85、/p><p>　　Select Case rs("userlevel").value</p><p><b>　　Case -1</b></p><p>　　strRowData = strRowData & "系統(tǒng)管理員" & vbTab</p><p><b&

86、gt;　　Case 0</b></p><p>　　strRowData = strRowData & "普通用戶" & vbTab</p><p><b>　　Case 1</b></p><p>　　strRowData = strRowData & "數(shù)據(jù)操作員"

87、 & vbTab</p><p>　　End Select</p><p>　　.AddItem strRowData</p><p>　　rs.MoveNext</p><p>　　rowindex = rowindex + 1</p><p><b>　　Loop</b></p&

88、gt;<p><b>　　rs.Close</b></p><p>　　Set rs = Nothing</p><p><b>　　.Tag = 1</b></p><p><b>　　End If</b></p><p><b>　　End With

89、</b></p><p><b>　　End Sub</b></p><p>　　Private Function getDeptNo() As String</p><p>　　Dim str As String</p><p>　　Dim pos As Integer</p><p&g

90、t;　　With cboQDept</p><p>　　str = .List(.ListIndex)</p><p><b>　　End With</b></p><p>　　pos = InStr(str, "-")</p><p>　　getDeptNo = Left(str, pos - 1)

91、</p><p>　　End Function</p><p>　　Private Function getTypeNO() As String</p><p>　　Dim str As String</p><p>　　Dim pos As Integer</p><p>　　With cboQTypeNO</

92、p><p>　　str = .List(.ListIndex)</p><p><b>　　End With</b></p><p>　　pos = InStr(str, "-")</p><p>　　getTypeNO = Left(str, pos - 1)</p><p>　

93、　End Function</p><p>　　4.2.1設(shè)備增加管理界面</p><p>　　設(shè)備增加管理界面代碼設(shè)計(jì):</p><p>　　Private Sub cmdCancel_Click()</p><p>　　With theDevice</p><p>　　If .isDirty Then</p&

94、gt;<p>　　If MsgBox("你已經(jīng)更改數(shù)據(jù)，是否做保存數(shù)據(jù)后再退出？", vbYesNo) = vbYes Then</p><p>　　If saveData() = False Then</p><p><b>　　Exit Sub</b></p><p><b>　　End If&l

95、t;/b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End With</b></p><p><b>　　Me.Hide</b></p><p

96、><b>　　End Sub</b></p><p>　　Private Sub cmdDelete_Click()</p><p>　　theDevice.deleteData (theDevice.iid)</p><p>　　isUpdate = True</p><p><b>　　Me.Hide

97、</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdSave_Click()</p><p>　　If saveData() = True Then</p><p>　　isUpdate = True</p><p><

98、b>　　Me.Hide</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Dim rs As ADODB.Recordset</

99、p><p>　　Dim strSQL As String</p><p>　　strSQL = "SELECT * FROM tblTypeInfo ORDER BY TypeNO"</p><p>　　Set rs = gConn.Execute(strSQL)</p><p><b>　　With rs</

100、b></p><p>　　Do Until .EOF</p><p>　　cboTypeNO.AddItem .Fields("TypeNO").value & "-" & .Fields("TypeName").value</p><p><b>　　.MoveNext&l

101、t;/b></p><p><b>　　Loop</b></p><p><b>　　End With</b></p><p>　　strSQL = "SELECT * FROM tblDepartment ORDER BY DeptNO"</p><p>　　Set rs

102、 = gConn.Execute(strSQL)</p><p><b>　　With rs</b></p><p>　　Do Until .EOF</p><p>　　cboDepartment.AddItem .Fields("DeptNO").value & "-" & .Field

103、s("Department").value</p><p><b>　　.MoveNext</b></p><p><b>　　Loop</b></p><p><b>　　End With</b></p><p><b>　　rs.Close&l

104、t;/b></p><p>　　Set rs = Nothing</p><p>　　isUpdate = False</p><p><b>　　End Sub</b></p><p>　　Public Sub loadDevice(iid As String)</p><p><b

105、>　　'顯示用戶數(shù)據(jù)</b></p><p>　　With theDevice</p><p>　　.loadDataByID iid</p><p>　　txtDeviceNo.Text = .DeviceNo</p><p>　　txtDeviceModel.Text = .DeviceModel</p&g

106、t;<p>　　txtDeviceName.Text = .DeviceName</p><p>　　setTypeIndex .TypeNo</p><p>　　setDeptIndex .DeptNo</p><p>　　txtPrice.Text = .ProductPrice</p><p>　　txtCost.Text

107、 = .ProductCost</p><p>　　dtPurchaseDate = .PurchaseDate</p><p>　　If .Status = 0 Then</p><p>　　lblStatus.Caption = "在庫"</p><p><b>　　Else</b></p&

108、gt;<p>　　lblStatus.Caption = "借出"</p><p><b>　　End If</b></p><p>　　If Len(.RejectDate) = 0 Then</p><p>　　dtReject.Visible = False</p><p><

109、;b>　　Else</b></p><p>　　dtReject.value = .RejectDate</p><p><b>　　End If</b></p><p>　　If Len(.DisCardDate) = 0 Then</p><p>　　dtDisCard.Visible = Fals

110、e</p><p><b>　　Else</b></p><p>　　dtDisCard.value = .DisCardDate</p><p><b>　　End If</b></p><p><b>　　End With</b></p><p>&

111、lt;b>　　End Sub</b></p><p>　　Private Sub setTypeIndex(TypeNo As String)</p><p>　　Dim pos As Integer</p><p>　　TypeNo = TypeNo & "-"</p><p>　　With c

112、boTypeNO</p><p>　　For pos = 0 To .ListCount - 1</p><p>　　If Left(.List(pos), Len(TypeNo)) = TypeNo Then</p><p>　　.ListIndex = pos</p><p><b>　　Exit For</b>&l

113、t;/p><p><b>　　End If</b></p><p><b>　　Next</b></p><p><b>　　End With</b></p><p><b>　　End Sub</b></p><p>　　Privat

114、e Sub setDeptIndex(DeptNo As String)</p><p>　　Dim pos As Integer</p><p>　　DeptNo = DeptNo & "-"</p><p>　　With cboDepartment</p><p>　　For pos = 0 To .ListC

115、ount - 1</p><p>　　If Left(.List(pos), Len(DeptNo)) = DeptNo Then</p><p>　　.ListIndex = pos</p><p><b>　　Exit For</b></p><p><b>　　End If</b></p

116、><p><b>　　Next</b></p><p><b>　　End With</b></p><p><b>　　End Sub</b></p><p>　　Private Function getTypeNO() As String</p><p>

117、;　　Dim str As String</p><p>　　Dim pos As Integer</p><p>　　With cboTypeNO</p><p>　　str = .List(.ListIndex)</p><p><b>　　End With</b></p><p>　　pos

118、 = InStr(str, "-")</p><p>　　getTypeNO = Left(str, pos - 1)</p><p>　　End Function</p><p>　　Private Function getDeptNo() As String</p><p>　　Dim str As String<

119、;/p><p>　　Dim pos As Integer</p><p>　　With cboDepartment</p><p>　　str = .List(.ListIndex)</p><p><b>　　End With</b></p><p>　　pos = InStr(str, "

120、;-")</p><p>　　getDeptNo = Left(str, pos - 1)</p><p>　　End Function</p><p>　　Public Sub setStatus()</p><p>　　If theDevice.iid = 0 Then</p><p>　　cmdDele

121、te.Enabled = False</p><p>　　dtReject.Visible = False</p><p>　　dtDisCard.Visible = False</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p>

122、<p>　　Private Function saveData() As Boolean</p><p>　　Dim DeviceNo As String</p><p>　　Dim DeviceModel As String</p><p>　　Dim DeviceName As String</p><p>　　Dim Ty

123、peNo As String</p><p>　　Dim DeptNo As String</p><p>　　Dim Price As String</p><p>　　Dim Cost As String</p><p>　　Dim PurchaseDate As String</p><p>　　saveData

124、 = False</p><p>　　DeviceNo = Trim(txtDeviceNo.Text)</p><p>　　DeviceModel = Trim(txtDeviceModel.Text)</p><p>　　DeviceName = Trim(txtDeviceName.Text)</p><p>　　Price = Tri

125、m(txtPrice.Text)</p><p>　　Cost = Trim(txtCost.Text)</p><p>　　PurchaseDate = FormatDateTime(dtPurchaseDate.value, vbShortDate)</p><p>　　If Len(DeviceNo) = 0 Then</p><p>

126、　　MsgBox "請輸入設(shè)備編號"</p><p>　　Exit Function</p><p><b>　　End If</b></p><p>　　If cboTypeNO.ListIndex < 0 Then</p><p>　　MsgBox "請選擇設(shè)備類型！"&

127、lt;/p><p>　　Exit Function</p><p><b>　　End If</b></p><p>　　If cboDepartment.ListIndex < 0 Then</p><p>　　MsgBox "請選擇設(shè)備所屬部門！"</p><p>　　E

128、xit Function</p><p><b>　　End If</b></p><p>　　If IsNumeric(Price) = False Then</p><p>　　MsgBox "請輸入正確的價(jià)格！"</p><p>　　Exit Function</p><p&

129、gt;<b>　　End If</b></p><p>　　If IsNumeric(Cost) = False Then</p><p>　　MsgBox "請輸入正確的成本！"</p><p>　　Exit Function</p><p><b>　　End If</b>&

130、lt;/p><p>　　If IsDate(PurchaseDate) = False Then</p><p>　　MsgBox "請輸入正確的購買日期!"</p><p>　　Exit Function</p><p><b>　　End If</b></p><p>　　Wi

131、th theDevice</p><p>　　.DeviceNo = DeviceNo</p><p>　　.DeviceModel = DeviceModel</p><p>　　.DeviceName = DeviceName</p><p>　　.TypeNo = getTypeNO()</p><p>　　.D