企業(yè)事務(wù)管理系統(tǒng)vfp課程設(shè)計(jì)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁(yè)數(shù)：51 大小：4.20MB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

企業(yè)事務(wù)管理系統(tǒng)vfp課程設(shè)計(jì)_第1頁(yè)

已閱讀1頁(yè)，還剩50頁(yè)未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說(shuō)明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　課程設(shè)計(jì)報(bào)告　　院（系）: 法政與經(jīng)貿(mào)學(xué)院專業(yè)班級(jí): 經(jīng)貿(mào)2012級(jí)3班　　設(shè)計(jì)地點(diǎn)（單位）：大學(xué)計(jì)算機(jī)自主學(xué)習(xí)中心I306 設(shè)計(jì)題目: 企業(yè)事務(wù)管理系統(tǒng)

2、;　　完成日期： 2013 年 7 月 12 日 　　指導(dǎo)教師評(píng)語(yǔ): _____________________________________________________　　____________________________________________________________________________________

3、_____________________________________________________________________________________________________________________ __________ _ 　　成績(jī)（五級(jí)記分制）: _________ __________ 指導(dǎo)教師（簽字）:

4、 __________ __________　　課程設(shè)計(jì)任務(wù)書(shū)　　設(shè)計(jì)題目：企業(yè)事務(wù)管理系統(tǒng)　　摘要　　企業(yè)事務(wù)管理系統(tǒng)是利用現(xiàn)代化的信息手段Visual Foxpro6.0 數(shù)據(jù)庫(kù)管理系統(tǒng)

5、對(duì)企業(yè)的事務(wù)進(jìn)行管理的一種信息管理系統(tǒng)。一個(gè)企業(yè)的事務(wù)方面的管理是全方位的，如對(duì)財(cái)產(chǎn)、車(chē)輛甚至于小到文檔的管理都是需要一個(gè)科學(xué)和管理方法和管理手段。本系統(tǒng)主要對(duì)財(cái)產(chǎn)管理、文檔管理、車(chē)輛管理、日常管理等進(jìn)行有效的統(tǒng)一管理。該系統(tǒng)分5個(gè)功能模塊：財(cái)產(chǎn)管理模塊、車(chē)輛管理模塊、文檔管理模塊、日常管理模塊、打印模塊。該系統(tǒng)安排了簡(jiǎn)單的用戶使用以及登錄權(quán)限管理，根據(jù)用戶輸入的條件能夠查詢到相關(guān)的企業(yè)事務(wù)并打印有關(guān)報(bào)表。并且合同企業(yè)事務(wù)理系統(tǒng)還為用戶

6、提供了賬號(hào)管理以及系統(tǒng)管理功能。從而真正為用戶提供實(shí)用企業(yè)事務(wù)管理的系統(tǒng)軟件。　　關(guān)鍵詞：企業(yè)事務(wù)管理系統(tǒng) 財(cái)產(chǎn)管理車(chē)輛管理文檔管理日常管理 　　目錄　　摘要II

7、1.需求分析1　　1.1簡(jiǎn)單的系統(tǒng)描述1　　1.2對(duì)市場(chǎng)需求分析1　　1.3客戶對(duì)系統(tǒng)功能要求的分析1　　2.概要設(shè)計(jì)2　　2.1系統(tǒng)功能分析2</p&g

8、t;　　2.2模塊設(shè)計(jì)3　　2.3表的設(shè)計(jì)3　　2.4系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)7　　3. 詳細(xì)設(shè)計(jì)8　　3.1創(chuàng)建系統(tǒng)相關(guān)功能8<

9、/p>　　3.1.1創(chuàng)建系統(tǒng)主程序8　　3.1.2創(chuàng)建命令按鈕工具欄類(lèi)8　　3.1.3創(chuàng)建基礎(chǔ)表單類(lèi)9　　3.2創(chuàng)建財(cái)產(chǎn)管理功能10　　3.2.1創(chuàng)建財(cái)產(chǎn)信息管理功能11　　3.2.2創(chuàng)建財(cái)產(chǎn)

10、投保記錄管理功能11　　3.2.3創(chuàng)建財(cái)產(chǎn)維修記錄管理功能12　　3.2.4創(chuàng)建財(cái)產(chǎn)增減記錄管理功能13　　3.3創(chuàng)建車(chē)輛管理功能13　　3.3.1創(chuàng)建車(chē)輛信息管理功能13　　3.3.2創(chuàng)建車(chē)輛使用記錄管理表單14&l

11、t;/p>　　3.3.3創(chuàng)建車(chē)輛事故記錄管理功能14　　3.4 創(chuàng)建文檔管理功能15　　3.4.1 創(chuàng)建報(bào)表管理功能15　　3.4.2 創(chuàng)建信函管理功能16　　3.4.3 創(chuàng)建行文管理功能22

12、　　3.4.4 創(chuàng)建提案管理功能28　　3.5 創(chuàng)建日常管理功能35　　3.5.1 創(chuàng)建值班記錄管理功能35　　3.5.2 創(chuàng)建會(huì)議記錄管理功能35　　3.5.3 創(chuàng)建投訴記錄管理功能36　　3.5.4 創(chuàng)建事故記錄管理

13、功能37　　3.6創(chuàng)建系統(tǒng)打印功能38　　3.7創(chuàng)建系統(tǒng)主表單與菜單43　　4.調(diào)試分析44　　5 總結(jié)45　　6 參考文

14、獻(xiàn)45　　7 致謝46　　1.需求分析　　1.1簡(jiǎn)單的系統(tǒng)描述　　事務(wù)管理系統(tǒng)是利用現(xiàn)代的信息管理系統(tǒng)Visual FoxPro對(duì)企業(yè)合同進(jìn)行高效、有序的管理信息化工具

15、。該系統(tǒng)分6個(gè)功能模塊：財(cái)產(chǎn)管理模塊、車(chē)輛管理模塊、文檔管理模塊、日常管理模塊、資料打印模塊、系統(tǒng)相關(guān)模塊。一個(gè)企業(yè)的事務(wù)方面的管理是全方位的，如對(duì)財(cái)產(chǎn)、車(chē)輛甚至于小到文檔的管理都是需要一個(gè)科學(xué)和管理方法和管理手段。本系統(tǒng)主要對(duì)財(cái)產(chǎn)管理、文檔管理、車(chē)輛管理、日常管理等進(jìn)行有效的統(tǒng)一管理，并且還涉及到了簡(jiǎn)單的用戶權(quán)限的管理等等，并且事務(wù)管理系統(tǒng)采用可視化的窗口操作系統(tǒng)，方便了用戶的直接的進(jìn)入系統(tǒng)，便于使用。系統(tǒng)中有條形菜單和彈出式菜單，各

16、個(gè)菜單中都根據(jù)用戶的需求而量身定制。　　1.2對(duì)市場(chǎng)需求分析　　隨著社會(huì)經(jīng)濟(jì)的不斷發(fā)展以及公司的不斷發(fā)展壯大，一個(gè)公司或者個(gè)人都需要經(jīng)常管理事務(wù)。隨著事務(wù)數(shù)量的增多，必然使人們想利用一種簡(jiǎn)單的方法去管理事務(wù)。在信息化的社會(huì)，可以好似用信息化的手段來(lái)管理合同信息。Visual FoxPro 具有強(qiáng)大的數(shù)據(jù)管理功能，可以利用Visual FoxPro開(kāi)發(fā)一個(gè)

17、合同管理系統(tǒng)，來(lái)實(shí)現(xiàn)信息的現(xiàn)代化的管理和使用。　　1.3客戶對(duì)系統(tǒng)功能要求的分析　　本軟件根據(jù)國(guó)內(nèi)企事業(yè)單位辦公管理的實(shí)際情況編寫(xiě)的事務(wù)管理系統(tǒng)實(shí)例，內(nèi)容全面，分類(lèi)科學(xué)。它集瀏覽、輸入、添加、修改、刪除等各種處理為一體，信息維護(hù)起來(lái)十分方便。還是以文件管理中的行文管理為例，由上述的介紹可以看出，僅僅行文管理部分就包含有數(shù)十項(xiàng)的管理明細(xì)，而一個(gè)公司的行文數(shù)

18、以萬(wàn)計(jì)，對(duì)這些數(shù)據(jù)還要進(jìn)行管理保存，工作量可想而知。實(shí)現(xiàn)系統(tǒng)的自動(dòng)化將在很大程度上緩解這一狀況，對(duì)數(shù)據(jù)的管理、保存變得十分方便。利用此系統(tǒng)，用戶可以方便地瀏覽信息，找到需要的信息并對(duì)其進(jìn)行修改。將上述所有的事務(wù)集中在一起進(jìn)行管理，只需要一個(gè)軟件就可以實(shí)現(xiàn)了，從而極大地減少了錯(cuò)誤的發(fā)生，不但為公司節(jié)省了資源，還避免了無(wú)法估計(jì)的不必要損失。　　2.概要設(shè)計(jì)<

19、;/p>　　2.1系統(tǒng)功能分析　　本系統(tǒng)要完成的功能有：　　財(cái)產(chǎn)管理：包括財(cái)產(chǎn)信息管理、財(cái)產(chǎn)維修記錄管理、財(cái)產(chǎn)投保記錄管理、財(cái)產(chǎn)增減記錄管理等；各管理部分要實(shí)現(xiàn)數(shù)據(jù)的顯示、添加、修改、刪除等操作。　　車(chē)輛管理：包括車(chē)輛信息管理，車(chē)輛使用記錄管理、車(chē)

20、輛事故記錄管理；各管理部分要實(shí)現(xiàn)數(shù)據(jù)的顯示、添加、修改、刪除等操作。　　文檔管理：包括行文管理、往來(lái)信函管理、提案管理、報(bào)表發(fā)送管理等。各管理部分要實(shí)現(xiàn)數(shù)據(jù)的顯示、添加、修改、刪除等操作。　　日常管理：包括會(huì)議管理，實(shí)現(xiàn)會(huì)議記錄數(shù)據(jù)的顯示、添加、修改、刪除等操作；值班管理，實(shí)現(xiàn)值班記錄數(shù)據(jù)的顯示、添加、修改、刪除等操作；事故管理，實(shí)現(xiàn)事故記錄數(shù)據(jù)的顯示、

21、添加、修改、刪除等操作；提案管理：投訴管理，實(shí)現(xiàn)投訴記錄數(shù)據(jù)的顯示、添加、修改、刪除等操作。　　打印功能：包括各種管理記錄的報(bào)表形式打印。　　系統(tǒng)相關(guān)：包括系統(tǒng)登陸、退出，系統(tǒng)Logo以及系統(tǒng)的關(guān)于功能。　　圖2.1事務(wù)管理系統(tǒng)主要功能示意圖　　2.2模

22、塊設(shè)計(jì)　　圖2.2總體架構(gòu)　　2.3表的設(shè)計(jì)　　事務(wù)管理系統(tǒng)包括：　　“財(cái)產(chǎn)管理”表：包括財(cái)產(chǎn)信息管理（圖2.3）、財(cái)產(chǎn)維修記錄管理（圖2

23、.4）、財(cái)產(chǎn)投保記錄管理（圖2.5）、財(cái)產(chǎn)增減記錄管理（圖2.6）這4個(gè)表；　　“車(chē)輛管理”表：包括車(chē)輛登記（圖2.7）、車(chē)輛使用記錄（圖2.8）、車(chē)輛事故管理（圖2.9）這4個(gè)表；　　“文檔管理”表：包括報(bào)表管理（圖2.10）、信函管理（圖2.11）、行文管理（圖2.12）、提案管理（圖2.13）這4個(gè)表；

24、“日常管理”表：包括值班記錄管理（圖2.14）、會(huì)議記錄管理（圖2.15）、投訴記錄管理（圖2.16）、事故記錄管理（圖2.17）這4個(gè)表；　　“系統(tǒng)相關(guān)”表：包括系統(tǒng)登陸（圖2.18）、系統(tǒng)表單（圖2.19）這2個(gè)表；　　數(shù)據(jù)庫(kù)：圖2.20。　　圖2.3“財(cái)產(chǎn)信息”表結(jié)構(gòu) 圖2.

25、4 “財(cái)產(chǎn)維修記錄”表結(jié)構(gòu)　　圖2.5“財(cái)產(chǎn)投保記錄”表結(jié)構(gòu) 圖2.6“財(cái)產(chǎn)投保記錄”表結(jié)構(gòu)　　圖2.7“車(chē)輛登記”表結(jié)構(gòu) 圖2.8“車(chē)輛使用記錄”表結(jié)構(gòu)　　圖2.9“車(chē)輛事故”表結(jié)構(gòu) 圖2.10“報(bào)表管理”表結(jié)構(gòu)<

26、/p>　　圖2.11“信函管理”表結(jié)構(gòu) 圖2.12“行文管理”表結(jié)構(gòu)　　圖2.13“提案管理”表結(jié)構(gòu) 圖2.14“值班記錄管理”表結(jié)構(gòu)　　圖2.15“會(huì)議記錄管理”表結(jié)構(gòu) 圖2.16“投訴記錄管理”表結(jié)構(gòu)

27、　圖2.17“事故記錄管理”表結(jié)構(gòu) 圖2.18 系統(tǒng)登陸　　圖2.19 系統(tǒng)表單　　圖2.20 數(shù)據(jù)庫(kù)　　2.4系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)　　在項(xiàng)目管理器中新建一個(gè)數(shù)據(jù)庫(kù)，命名為Affairs，然后在項(xiàng)目管理器中

28、新建本系統(tǒng)中要使用的數(shù)據(jù)表。　　本系統(tǒng)數(shù)據(jù)庫(kù)應(yīng)該包括16個(gè)表，分別為“車(chē)輛信息”數(shù)據(jù)表、“車(chē)輛使用”數(shù)據(jù)表、“車(chē)輛事故記錄”數(shù)據(jù)表、“財(cái)產(chǎn)信息”數(shù)據(jù)表、“財(cái)產(chǎn)投保記錄”數(shù)據(jù)表、“財(cái)產(chǎn)維修記錄”數(shù)據(jù)表、“財(cái)產(chǎn)轉(zhuǎn)移記錄”數(shù)據(jù)表、“報(bào)表記錄”數(shù)據(jù)表、“信函記錄”數(shù)據(jù)表、“行文記錄”數(shù)據(jù)庫(kù)、“提案記錄”數(shù)據(jù)庫(kù)、“值班記錄”數(shù)據(jù)庫(kù)、“會(huì)議記錄”數(shù)據(jù)庫(kù)、“投訴記錄”數(shù)據(jù)庫(kù)、“事故記錄”數(shù)據(jù)庫(kù)。</p&

29、gt;　　由于本系統(tǒng)只實(shí)現(xiàn)簡(jiǎn)單的系統(tǒng)登錄功能，系統(tǒng)帳號(hào)數(shù)據(jù)表包含了兩個(gè)字段：帳號(hào)和密碼，如果需要再實(shí)現(xiàn)其它功能（如多用戶分級(jí)管理）可以另行再添加其他字段。　　3. 詳細(xì)設(shè)計(jì)　　3.1創(chuàng)建系統(tǒng)相關(guān)功能　　3.1.1創(chuàng)建系統(tǒng)主程序&l

30、t;p>　　系統(tǒng)的主程序主要是實(shí)現(xiàn)在系統(tǒng)環(huán)境的設(shè)置，如顯示4位年代、用24小時(shí)制顯示時(shí)間、隱藏系統(tǒng)窗口等。　　Main.prg的代碼如下：　　CLOSE ALL &&關(guān)閉所有　　CLEAR ALL

31、 &&清除所有 　　SET CENTURY ON &&顯示四位年代　　SET HOURS TO 24 &&24小時(shí)制顯示時(shí)間　　_SCR

32、EEN.VISIBLE=.F. &&隱藏系統(tǒng)主窗口　　DO FORM logon &&執(zhí)行l(wèi)ogon表單　　READ EVENTS　　3.1.2創(chuàng)建命令按鈕工具欄類(lèi)

33、　　表3.1 “命令按鈕工具欄”類(lèi)屬性表　　至此，該類(lèi)的可視化屬性設(shè)置完成，由于該命令按鈕工具欄中有幾個(gè)按鈕的代碼是相同的，所以可以在該類(lèi)中一并設(shè)置。　　該系統(tǒng)設(shè)置當(dāng)鼠標(biāo)移到按鈕上時(shí)改變鼠標(biāo)形狀，這需要一個(gè).cur鼠標(biāo)形狀文件并添加按鈕的Mousemove事件。　　圖3.1 命令按鈕圖<

34、/p>　　3.1.3創(chuàng)建基礎(chǔ)表單類(lèi)　　在項(xiàng)目管理器中創(chuàng)建一個(gè)類(lèi)，命名為Baseform，派生于“Form”基類(lèi)，存儲(chǔ)于Adminbutton可視化類(lèi)中。　　具體的設(shè)置該表單類(lèi)的屬性如表3—2所示。　　表3.2 命令按鈕屬性表　　3.2創(chuàng)建財(cái)產(chǎn)管

35、理功能　　系統(tǒng)的財(cái)產(chǎn)管理功能財(cái)產(chǎn)信息管理、財(cái)產(chǎn)投保記錄管理、財(cái)產(chǎn)維修記錄管理、財(cái)產(chǎn)轉(zhuǎn)移記錄管理4種功能組成，分別由Caichan、Caichtb、Caichws、Caichzj4張表單組成。　　下面分別介紹4張表單的具體創(chuàng)建過(guò)程。　　3.2.1創(chuàng)建財(cái)產(chǎn)信息管理功能　　新建

36、一個(gè)表單，創(chuàng)建一個(gè)表單集，將表單中的表單實(shí)例化，接著將開(kāi)始時(shí)新建的表單刪除，最后刪除表單集，只留下實(shí)例化后的表單。將實(shí)例化的表單命名為Caichan，并更改其他的屬性，如Caption屬性更改為“財(cái)產(chǎn)信息管理”，具體設(shè)置好的表單如圖3.2所示。　　圖3.2“財(cái)產(chǎn)信息管理”表單　　3.2.2創(chuàng)建財(cái)產(chǎn)投保記錄管理功能

37、　　按照在創(chuàng)建財(cái)產(chǎn)信息管理表單中將表單類(lèi)實(shí)例化的方法將表單實(shí)例化，并重命名為Caichtb，修改表單的Caption屬性值為財(cái)產(chǎn)投保管理。　　創(chuàng)建好的“財(cái)產(chǎn)投保管理”表單如圖3.3。　　圖3.3“財(cái)產(chǎn)投保管理”表單　　3.2.3創(chuàng)建財(cái)產(chǎn)維修記錄管理功能　　將表單類(lèi)Base

38、form實(shí)例化，命名為Caichws，更改其Caption屬性值為財(cái)產(chǎn)維修管理。　　設(shè)置好的表單如圖3.4所示。　　圖3.4“財(cái)產(chǎn)維修管理“表單　　3.2.4創(chuàng)建財(cái)產(chǎn)增減記錄管理功能　　將表單類(lèi)Baseform實(shí)例化，命名為Caichzj，更改其Caption屬性值為財(cái)產(chǎn)

39、增減管理。設(shè)置好的表單如圖3.5所示。　　圖3.5“財(cái)產(chǎn)增減管理”表單　　3.3創(chuàng)建車(chē)輛管理功能　　車(chē)輛管理功能包括包括車(chē)輛信息管理，車(chē)輛使用記錄管理、車(chē)輛事故記錄管理功能，這3種功能分別由Cheliang、Chelsy、Chelsg3張表格完成。　　下面分別介紹3張表單

40、的具體創(chuàng)建過(guò)程。　　3.3.1創(chuàng)建車(chē)輛信息管理功能　　將表單類(lèi)Baseform實(shí)例化，重命為Cheliang,更改其Caption屬性值為“車(chē)輛信息管理”，設(shè)置好的表單效果如圖3.6所示。　　圖3.6“車(chē)輛信息管理”表單　　3.3.2創(chuàng)建車(chē)輛使用記錄管理表單</p&

41、gt;　　將表單類(lèi)Baseform實(shí)例化，重命為Chelsy,更改其Caption屬性值為“車(chē)輛使用”，設(shè)置好的表單效果如圖3.7所示　　圖3.7“車(chē)輛使用”表單　　3.3.3創(chuàng)建車(chē)輛事故記錄管理功能　　將表單類(lèi)Baseform實(shí)例化，重命為Chelsy,更改其Caption屬性值為“車(chē)輛事

42、故管理”，設(shè)置好的表單效果如圖3.8所示　　圖3.8“車(chē)輛事故管理”表單　　3.4 創(chuàng)建文檔管理功能　　系統(tǒng)的文檔管理功能由行文管理、往來(lái)信函管理、提案管理、報(bào)表發(fā)送管理組成，分別由Baobiao、Xinghan、Xingwen、Tian4張表單完成。　　下面分別介紹4

43、張表單的具體創(chuàng)建過(guò)程。　　3.4.1 創(chuàng)建報(bào)表管理功能　　將表單類(lèi)Baseform實(shí)例化，重命為Baobiao,更改其Caption屬性值為“報(bào)表管理”，設(shè)置好的表單效果如圖3.9所示.　　圖3.9“報(bào)表管理”表單　　3.4.2 創(chuàng)建信函管理功能&

44、lt;p>　　將表單類(lèi)Baseform實(shí)例化，重命為Xinhan,更改其Caption屬性值為“信函管理”，設(shè)置好的表單效果如圖3.10所示.　　圖3.10“信函管理”表單　　將“信函管理”數(shù)據(jù)表添加到表單的數(shù)據(jù)庫(kù)環(huán)境中，從數(shù)據(jù)庫(kù)環(huán)境中將需要的表單中顯示的字段從數(shù)據(jù)庫(kù)環(huán)境中拖放到表單中，并修改這些空間的屬性。

45、;　　將移動(dòng)記錄工具欄類(lèi)實(shí)例化并重命名為Mymove，將命令按鈕工具欄類(lèi)實(shí)例化并重新命名為Cmdgrp。向表單中添加一個(gè)MonthView控件和一個(gè)按鈕控件，在該表單中將用這個(gè)按鈕來(lái)控制MonthView控件顯示，而MonthView控件則用來(lái)向文本框控件中輸入日期。　　表單控件的屬性設(shè)置如表3—3所示。　　表3.3 “信函管理”表單控件屬性表</

46、p>　　在表單中添加一個(gè)表單屬性O(shè)ldrecord，并將其顯示值初始化為0。添加2個(gè)表單的方法屬性Modpre、Modmod，用這兩個(gè)方法屬性來(lái)控制表單的瀏覽狀態(tài)和非瀏覽狀態(tài)。　　Modpre方法屬性的代碼如下：　　THISFORM.mymove.ENABLED=.T.　　THISFO

47、RM.cmddown.ENABLED=.F.　　&&以下代碼控制按鈕工具欄按鈕狀態(tài)　　THISFORM.cmdgrp.cmdadd.ENABLED=.T.　　THISFORM.cmdgrp.cmdmod.ENABLED=.T.　　THISFORM.cmdg

48、rp.cmddel.ENABLED=.T.　　THISFORM.cmdgrp.cmdpri.ENABLED=.T.　　THISFORM.cmdgrp.cmdsave.ENABLED=.F.　　THISFORM.cmdgrp.cmdcancel.ENABLED=.F.　　T

49、HISFORM.cmdgrp.cmdend.ENABLED=.T.　　&&以下代碼控制表單的文本框控件狀態(tài)　　THISFORM.txt來(lái)信日期.READONLY=.T.　　THISFORM.txt來(lái)信單位.READONLY=.T.　　THISFORM.tx

50、t接收單位.READONLY=.T.　　THISFORM.txt接收人.READONLY=.T.　　THISFORM.txt來(lái)信類(lèi)別.READONLY=.T.　　THISFORM.txt回函日期.READONLY=.T.　　THISFORM.edt來(lái)信內(nèi)容.READONL

51、Y=.T.　　THISFORM.edt回函內(nèi)容.READONLY=.T.　　Modmod方法屬性的代碼如下：　　THISFORM.mymove.ENABLED=.F.　　THISFORM.cmddown.ENABLED=.T.

52、&&以下代碼控制按鈕工具欄按鈕狀態(tài)　　THISFORM.cmdgrp.cmdadd.ENABLED=.F.　　THISFORM.cmdgrp.cmdmod.ENABLED=.F.　　THISFORM.cmdgrp.cmddel.ENABLED=.F.　　T

53、HISFORM.cmdgrp.cmdpri.ENABLED=.F.　　THISFORM.cmdgrp.cmdsave.ENABLED=.T.　　THISFORM.cmdgrp.cmdcancel.ENABLED=.T.　　THISFORM.cmdgrp.cmdend.ENABLED=.F.

54、　　&&以下代碼控制表單的文本框控件狀態(tài)　　THISFORM.txt來(lái)信日期.READONLY=.F.　　THISFORM.txt來(lái)信單位.READONLY=.F.　　THISFORM.txt接收單位.READONLY=.F.　　THIS

55、FORM.txt接收人.READONLY=.F.　　THISFORM.txt來(lái)信類(lèi)別.READONLY=.F.　　THISFORM.txt回函日期.READONLY=.F.　　THISFORM.edt來(lái)信內(nèi)容.READONLY=.F.　　THISFORM.edt回函內(nèi)容.

56、READONLY=.F.　　表單在初始化時(shí)表單要進(jìn)入瀏覽狀態(tài)，并刷新表單。　　表單的Init事件代碼如下：　　THISFORM.MODPRE()　　THISFORM.REFRESH()　　表單的命令按鈕工具欄中“新增”（Cmdad

57、d）按鈕的作用是在表單的數(shù)據(jù)緩沖區(qū)內(nèi)新建一條記錄，并使表單進(jìn)入非瀏覽狀態(tài)。　　“新增”（Cmdadd）按鈕的Click事件代碼如下：　　LOCAL BH &&聲明本地變量來(lái)保存編號(hào) 　　SELECT XINGHAN

58、 &&選擇工作區(qū)　　THISFORM.OLDRECORD=RECNO()　　GO BOTTOM &&到末記錄　　BH=XINGHAN.信件號(hào) 　　BH

59、=RIGHT(BH,4) &&取得末記錄的記錄編號(hào)的后四位　　BH=VAL(BH)+1 &&把后四位轉(zhuǎn)化為數(shù)值型　　DO CASE　　CASE BH>999

60、 &&連結(jié)新的字符串，記錄編號(hào)自動(dòng)加1　　BH=STR(BH,4)　　BH="XH"+BH　　CASE BH>99　　BH=STR(BH,3)　　BH=&qu

61、ot;XH0"+BH　　CASE BH>9　　BH=STR(BH,2)　　BH="XH00"+BH　　OTHERWISE

62、;　　BH=STR(BH,1)　　BH="XH000"+BH　　ENDCASE　　APPEND BLANK &&添加新的記錄　　THISFORM.txt信件號(hào).V

63、ALUE=BH &&顯示自動(dòng)加1后的部門(mén)編號(hào)　　THISFORM.txt來(lái)信日期.SETFOCUS()&&將焦點(diǎn)移至部門(mén)名稱上　　THISFORM.MODMOD() &&表單進(jìn)入非瀏覽狀態(tài)　　THISFORM.REFRESH()<

64、;/p>　　命令按鈕欄中“打印”（Cmdpri）按鈕的作用是將表單中當(dāng)前記錄的信件號(hào)作為參數(shù)傳遞給信函管理報(bào)表，并以預(yù)覽的方式查看打印結(jié)果。　　“打印”（Cmdpri）按鈕的Click事件代碼如下：　　REPORT FORM XINGHAN FOR 信件號(hào)=ALLTRIM(THISFORM.txt信件號(hào).VALUE) PREV

65、IEW　　命令按鈕欄中“保存”（Cmdsave）按鈕的作用是在表單處于非瀏覽狀態(tài)時(shí)，單擊按鈕檢查表單中各數(shù)據(jù)欄中數(shù)據(jù)輸入情況，如果無(wú)誤，則將數(shù)據(jù)緩沖區(qū)的數(shù)據(jù)寫(xiě)入數(shù)據(jù)表。　　“保存”（Cmdsave）按鈕的Click事件代碼如下：　　LOCAL OK

66、 &&聲明一個(gè)本地變量　　OK=.T.　　DO CASE　　CASE EMPTY(THISFORM.txt來(lái)信日期.VALUE) &&如果來(lái)信日期欄為空

67、;　　MESSAGEBOX("來(lái)信日期不能為空",48,"事務(wù)管理系統(tǒng)警告")　　THISFORM.txt來(lái)信日期.SETFOCUS()　　OK=.F.　　CASE EMPTY(THISFORM.txt來(lái)信單位.VALUE) &a

68、mp;&如果來(lái)信單位欄為空　　MESSAGEBOX("來(lái)信單位不能為空",48,"事務(wù)管理系統(tǒng)警告")　　THISFORM.txt來(lái)信單位.SETFOCUS()　　OK=.F.　　CAS

69、E EMPTY(THISFORM.txt接收人.VALUE) &&如果接收人欄為空　　MESSAGEBOX("接收人不能為空",48,"事務(wù)管理系統(tǒng)警告")　　THISFORM.txt接收人.SETFOCUS()　　OK=.F.&l

70、t;/b>　　CASE EMPTY(THISFORM.txt來(lái)信類(lèi)別.VALUE) &&如果來(lái)信類(lèi)別欄為空　　MESSAGEBOX("來(lái)信類(lèi)別不能為空",48,"事務(wù)管理系統(tǒng)警告")　　THISFORM.txt來(lái)信類(lèi)別.SETFOCUS()<

71、/p>　　OK=.F.　　ENDCASE　　IF OK=.T. &&如果各數(shù)據(jù)欄無(wú)誤　　YN=MESSAGEBOX("確

72、定保存",4+32,"事務(wù)管理系統(tǒng)信息")&&確認(rèn)窗口　　IF YN=6 &&如果確認(rèn)　　TABLEUPDATE(.F.) &&保存數(shù)據(jù)

73、　　MESSAGEBOX("保存成功",64,"事務(wù)管理系統(tǒng)信息")　　THISFORM.MODPRE() &&表單進(jìn)入瀏覽狀態(tài)　　THISFORM.REFRESH()　　ENDIF&l

74、t;/p>　　ENDIF　　至此，“信函管理”表單創(chuàng)建完成。　　3.4.3 創(chuàng)建行文管理功能　　將表單類(lèi)Baseform實(shí)例化，命名為Xingwen，更改其Caption屬性值為“行文管理”。　　設(shè)置好的表

75、單如圖3.11所示。　　圖3.11“行文管理”表單　　將行文信息數(shù)據(jù)表添加到表單的數(shù)據(jù)環(huán)境中，從數(shù)據(jù)環(huán)境中講需要在表單中顯示的字段從數(shù)據(jù)環(huán)境中拖放到表單中，并修改這些控件的屬性。　　將移動(dòng)記錄工具欄類(lèi)實(shí)例化并重新命名為Mymove，將命令按鈕工具欄類(lèi)實(shí)例化并重新命名為Cmdgrp。<

76、p>　　向表單中添加一個(gè)MonthView控件和一個(gè)按鈕控件，在該表單中將用這個(gè)按鈕來(lái)控制MonthView控件顯示，而MonthView控件則用來(lái)想文本框控件中輸入日期。　　表單控件的屬性設(shè)置如表3—4所示。　　表3.4 “行文管理”表單控件屬性表　　添加兩個(gè)方法屬性Modpre和Modmod，在表單中用

77、這兩個(gè)方法屬性控制表單的瀏覽狀態(tài)與非瀏覽狀態(tài)。　　Modpre方法屬性的代碼如下：　　THISFORM.mymove.ENABLED=.T.　　THISFORM.cmddown.ENABLED=.F.　　THISFORM.cmdgrp.cmdadd.ENABLED=.T.

78、　　THISFORM.cmdgrp.cmdmod.ENABLED=.T.　　THISFORM.cmdgrp.cmddel.ENABLED=.T.　　THISFORM.cmdgrp.cmdpri.ENABLED=.T.　　THISFORM.cmdgrp.cmdsave.EN

79、ABLED=.F.　　THISFORM.cmdgrp.cmdcancel.ENABLED=.F.　　THISFORM.cmdgrp.cmdend.ENABLED=.T.　　THISFORM.txt發(fā)文日期.READONLY=.T.　　THISFORM.cmb保密級(jí)別.EN

80、ABLED=.F.　　THISFORM.txt傳遞方法.READONLY=.T.　　THISFORM.txt份數(shù).READONLY=.T.　　THISFORM.txt受文者.READONLY=.T.　　THISFORM.txt核稿人.READONLY=.T.</p&

81、gt;　　THISFORM.txt承辦人.READONLY=.T.　　THISFORM.txt核辦人.READONLY=.T.　　THISFORM.txt保存年數(shù).READONLY=.T.　　THISFORM.txt主題.READONLY=.T.

82、THISFORM.edt事由.READONLY=.T.　　Modmod方法屬性的代碼如下：　　THISFORM.mymove.ENABLED=.F.　　THISFORM.cmddown.ENABLED=.T.　　THISFORM.cmdgrp.cmdadd.ENABLED

83、=.F.　　THISFORM.cmdgrp.cmdmod.ENABLED=.F.　　THISFORM.cmdgrp.cmddel.ENABLED=.F.　　THISFORM.cmdgrp.cmdpri.ENABLED=.F.　　THISFORM.cmdgrp.cmdsav

84、e.ENABLED=.T.　　THISFORM.cmdgrp.cmdcancel.ENABLED=.T.　　THISFORM.cmdgrp.cmdend.ENABLED=.F.　　THISFORM.txt發(fā)文日期.READONLY=.F.　　THISFORM.cmb保密級(jí)

85、別.ENABLED=.T.　　THISFORM.txt傳遞方法.READONLY=.F.　　THISFORM.txt份數(shù).READONLY=.F.　　THISFORM.txt受文者.READONLY=.F.　　THISFORM.txt核稿人.READONLY=.F.<

86、;/p>　　THISFORM.txt承辦人.READONLY=.F.　　THISFORM.txt核辦人.READONLY=.F.　　THISFORM.txt保存年數(shù).READONLY=.F.　　THISFORM.txt主題.READONLY=.F.<p&g

87、t;　　THISFORM.edt事由.READONLY=.F.　　表單在初始化時(shí)要進(jìn)入瀏覽狀態(tài)，并使表單刷新。　　表單的Init事件代碼如下：　　THISFORM.MODPRE()　　THISFORM.REFRESH()　　表單命

88、令按鈕工具欄中的“新增”（Cmdadd）按鈕的作用是在表單的數(shù)據(jù)緩沖區(qū)內(nèi)新建一條數(shù)據(jù)，并使發(fā)文好自動(dòng)加1。　　“新增”（Cmdadd）按鈕的Click事件代碼如下：　　LOCAL BH &&聲明本地變量來(lái)保存編號(hào) 　　SELECT XINGWEN

89、 &&選擇工作區(qū)　　THISFORM.OLDRECORD=RECNO()　　GO BOTTOM &&到末記錄　　BH=XINGWEN.發(fā)文號(hào)

90、　　BH=RIGHT(BH,4) &&取得末記錄的記錄編號(hào)的后四位　　BH=VAL(BH)+1 &&把后四位轉(zhuǎn)化為數(shù)值型　　DO CASE　　CASE BH>999

91、 &&連結(jié)新的字符串，記錄編號(hào)自動(dòng)加1　　BH=STR(BH,4)　　BH="XW"+BH　　CASE BH>99　　BH=STR(BH,3)　　BH="XW0&q

92、uot;+BH　　CASE BH>9　　BH=STR(BH,2)　　BH="XW00"+BH　　OTHERWISE　　BH=ST

93、R(BH,1)　　BH="XW000"+BH　　ENDCASE　　APPEND BLANK &&添加新的記錄　　THISFORM.txt發(fā)文號(hào).VALUE=BH

94、 &&顯示自動(dòng)加1后的部門(mén)編號(hào)　　THISFORM.txt發(fā)文日期.SETFOCUS()&&將焦點(diǎn)移至部門(mén)名稱上　　THISFORM.MODMOD() &&表單進(jìn)入非瀏覽狀態(tài)　　THISFORM.REFRESH()&

95、lt;p>　　命令按鈕欄中“打印”（Cmdpri）按鈕的作用是在表單中當(dāng)前記錄的發(fā)號(hào)作為參數(shù)傳遞行文記錄報(bào)表，并以預(yù)覽的方式查看打印結(jié)果　　“打印”（Cmdpri）按鈕的Click事件代碼如下：　　REPORT FORM XINGWEN FOR 發(fā)文號(hào)=ALLTRIM(THISFORM.txt發(fā)文號(hào).VALUE) PREVIEW

96、　　命令按鈕欄中“保存”（Cmdsave）按鈕的作用是在表單處于非瀏覽狀態(tài)時(shí)，單擊按鈕檢查表單中各數(shù)據(jù)欄中數(shù)據(jù)輸入情況，如果無(wú)誤，則將數(shù)據(jù)緩沖區(qū)的數(shù)據(jù)寫(xiě)入數(shù)據(jù)表。　　“保存”（Cmdsave）按鈕的Click事件代碼如下：　　LOCAL OK &&a

97、mp;聲明一個(gè)本地變量　　OK=.T.　　DO CASE　　CASE EMPTY(THISFORM.txt發(fā)文日期.VALUE) &&如果發(fā)文日期欄為空　　MESSAG

98、EBOX("發(fā)文日期不能為空",48,"事務(wù)管理系統(tǒng)警告")　　THISFORM.txt發(fā)文日期.SETFOCUS()　　OK=.F.　　CASE EMPTY(THISFORM.cmb保密級(jí)別.VALUE) &&a

99、mp;如果保密級(jí)別為空　　MESSAGEBOX("保密級(jí)別不能為空",48,"事務(wù)管理系統(tǒng)警告")　　THISFORM.cmb保密級(jí)別.SETFOCUS()　　OK=.F.　　CASE EMPT

100、Y(THISFORM.txt份數(shù).VALUE) &&如果份數(shù)為空　　MESSAGEBOX("份數(shù)不能為空",48,"事務(wù)管理系統(tǒng)警告")　　THISFORM.txt份數(shù).SETFOCUS()　　OK=.F.</b&

101、gt;　　CASE EMPTY(THISFORM.txt核辦人.VALUE) &&如果核辦人為空　　MESSAGEBOX("核辦人不能為空",48,"事務(wù)管理系統(tǒng)警告")　　THISFORM.txt核辦人.SETFOCUS()

102、　　OK=.F.　　CASE EMPTY(THISFORM.txt保存年數(shù).VALUE) &&如果保存年數(shù)為空　　MESSAGEBOX("保存年數(shù)不能為空",48,"事務(wù)管理系統(tǒng)警告")　　THI

103、SFORM.txt保存年數(shù).SETFOCUS()　　OK=.F.　　CASE EMPTY(THISFORM.txt主題.VALUE) &&如果主題樣為空　　MESSAGEBOX("主題不能為空",48,"事務(wù)管理系統(tǒng)警

104、告")　　THISFORM.txt主題.SETFOCUS()　　OK=.F.　　ENDCASE　　IF OK=.T. &

105、amp;&如果各數(shù)據(jù)欄數(shù)據(jù)輸入無(wú)誤　　YN=MESSAGEBOX("確定保存",4+32,"事務(wù)管理系統(tǒng)信息")　　IF YN=6 &&如果確認(rèn)　　TABLEUPDATE(.F.)

106、 &&保存數(shù)據(jù)　　GO THISFORM.OLDRECORD &&回到原記錄　　MESSAGEBOX("保存成功",64,"事務(wù)管理系統(tǒng)信息")　　THISFORM.MODPRE

107、() &&回到瀏覽狀態(tài)　　THISFORM.REFRESH()　　ENDIF　　ENDIF　　3.4.4 創(chuàng)建提案管理功能

108、　　將表單類(lèi)Baseform實(shí)例化，命名為T(mén)ian，更改其Caption屬性值為“提案管理”。　　設(shè)置好的表單如圖3.12所示。　　圖3.12“提案管理”表單　　將“提案記錄”數(shù)據(jù)表添加到表單的數(shù)據(jù)環(huán)境中，從數(shù)據(jù)環(huán)境中將需要在表單中顯示的字段從數(shù)據(jù)環(huán)境中拖放到表單中，并修改這些控件的屬性。&l

109、t;/p>　　將移動(dòng)記錄工具欄類(lèi)實(shí)例化并重新命名為Mymove，將命令按鈕工具欄類(lèi)實(shí)例化并重新命名為Cmdgrp。　　向表單中添加2個(gè)MonthView控件和2個(gè)按鈕控件。　　表單控件的屬性設(shè)置如表3—5所示。　　表3.5 “提案管理”表單控制屬性表<p&

110、gt;　　在表單中添加一個(gè)表單屬性O(shè)ldrecord，并將其顯示值初始化為0。　　添加2個(gè)表單的方法屬性Modpre、Modmod，用這兩個(gè)方法屬性來(lái)控制表單的瀏覽狀態(tài)和非瀏覽狀態(tài)。　　Modpre方法屬性的代碼如下：　　THISFORM.mymove.ENABLED=.T.<p&g

111、t;　　THISFORM.cmddown.ENABLED=.F.　　THISFORM.cmdup.ENABLED=.F.　　THISFORM.cmdgrp.cmdadd.ENABLED=.T.　　THISFORM.cmdgrp.cmdmod.ENABLED=.T.　　TH

112、ISFORM.cmdgrp.cmddel.ENABLED=.T.　　THISFORM.cmdgrp.cmdpri.ENABLED=.T.　　THISFORM.cmdgrp.cmdsave.ENABLED=.F.　　THISFORM.cmdgrp.cmdcancel.ENABLED=.F.&

113、lt;p>　　THISFORM.cmdgrp.cmdend.ENABLED=.T.　　THISFORM.txt提案人 .READONLY=.T.　　THISFORM.txt所屬部門(mén).READONLY=.T.　　THISFORM.txt提案性質(zhì).READONLY=.T.

114、;　　THISFORM.txt收件日期.READONLY=.T.　　THISFORM.txt審核日期.READONLY=.T.　　THISFORM.txt審核人.READONLY=.T.　　THISFORM.edt提案內(nèi)容.READONLY=.T.　　THISFORM.e

115、dt審核結(jié)果.READONLY=.T.　　THISFORM.edt實(shí)施情況.READONLY=.T.　　Modmod方法屬性的代碼如下：　　THISFORM.mymove.ENABLED=.F.　　THISFORM.cmddown.ENABLED=.T.

116、;　　THISFORM.cmdup.ENABLED=.T.　　THISFORM.cmdgrp.cmdadd.ENABLED=.F.　　THISFORM.cmdgrp.cmdmod.ENABLED=.F.　　THISFORM.cmdgrp.cmddel.ENABLED=.F.

117、;　　THISFORM.cmdgrp.cmdpri.ENABLED=.F.　　THISFORM.cmdgrp.cmdsave.ENABLED=.T.　　THISFORM.cmdgrp.cmdcancel.ENABLED=.T.　　THISFORM.cmdgrp.cmdend.ENABLED=

118、.F.　　THISFORM.txt提案人 .READONLY=.F.　　THISFORM.txt所屬部門(mén).READONLY=.F.　　THISFORM.txt提案性質(zhì).READONLY=.F.　　THISFORM.txt收件日期.READONLY=.F.

119、;　　THISFORM.txt審核日期.READONLY=.F.　　THISFORM.txt審核人.READONLY=.F.　　THISFORM.edt提案內(nèi)容.READONLY=.F.　　THISFORM.edt審核結(jié)果.READONLY=.F.

120、　THISFORM.edt實(shí)施情況.READONLY=.F.　　表單在初始化是進(jìn)入瀏覽狀態(tài)。　　添加表單的Init事件如下：　　THISFORM.MODPRE()　　THISFORM.REFRESH()　　表單命令按鈕工具欄中的“

121、新增”（Cmdadd）按鈕的作用是在表單的數(shù)據(jù)緩沖區(qū)內(nèi)新建一條數(shù)據(jù)，并使發(fā)文好自動(dòng)加1。　　“新增”（Cmdadd）按鈕的Click事件代碼如下：　　LOCAL BH &&聲明本地變量來(lái)保存編號(hào) 　　SELECT TIAN

122、 &&選擇工作區(qū)　　THISFORM.OLDRECORD=RECNO()　　GO BOTTOM &&到末記錄　　BH=TIAN.提案編號(hào) 　　BH=RIGHT(BH,4

123、) &&取得末記錄的記錄編號(hào)的后四位　　BH=VAL(BH)+1 &&把后四位轉(zhuǎn)化為數(shù)值型　　DO CASE　　CASE BH>999 &&a

124、mp;連結(jié)新的字符串，記錄編號(hào)自動(dòng)加1　　BH=STR(BH,4)　　BH="TA"+BH　　CASE BH>99　　BH=STR(BH,3)　　BH="TA0"+BH</p&g

125、t;　　CASE BH>9　　BH=STR(BH,2)　　BH="TA00"+BH　　OTHERWISE　　BH=STR(BH,1)</p&g

126、t;　　BH="TA000"+BH　　ENDCASE　　APPEND BLANK &&添加新的記錄　　THISFORM.txt提案編號(hào).VALUE=BH &&顯示自

眾賞文庫(kù)> 全部分類(lèi)> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

企業(yè)事務(wù)管理系統(tǒng)vfp課程設(shè)計(jì)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

企業(yè)事務(wù)管理系統(tǒng)vfp課程設(shè)計(jì)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載