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

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：51 大?。?.20MB 人氣指數(shù)：12 舉報 版權申訴

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

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、　　課程設計報告　　院（系）: 法政與經貿學院專業(yè)班級: 經貿2012級3班　　設計地點（單位）：大學計算機自主學習中心I306 設計題目: 企業(yè)事務管理系統(tǒng)

2、;　　完成日期： 2013 年 7 月 12 日 　　指導教師評語: _____________________________________________________　　____________________________________________________________________________________

3、_____________________________________________________________________________________________________________________ __________ _ 　　成績（五級記分制）: _________ __________ 指導教師（簽字）:

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

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

6、提供了賬號管理以及系統(tǒng)管理功能。從而真正為用戶提供實用企業(yè)事務管理的系統(tǒng)軟件。　　關鍵詞：企業(yè)事務管理系統(tǒng) 財產管理車輛管理文檔管理日常管理 　　目錄　　摘要II

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

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

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

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

11、t;/p>　　3.3.3創(chuàng)建車輛事故記錄管理功能14　　3.4 創(chuàng)建文檔管理功能15　　3.4.1 創(chuàng)建報表管理功能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)建會議記錄管理功能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.調試分析44　　5 總結45　　6 參考文

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

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

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

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

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

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

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

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

22、塊設計　　圖2.2總體架構　　2.3表的設計　　事務管理系統(tǒng)包括：　　“財產管理”表：包括財產信息管理（圖2.3）、財產維修記錄管理（圖2

23、.4）、財產投保記錄管理（圖2.5）、財產增減記錄管理（圖2.6）這4個表；　　“車輛管理”表：包括車輛登記（圖2.7）、車輛使用記錄（圖2.8）、車輛事故管理（圖2.9）這4個表；　　“文檔管理”表：包括報表管理（圖2.10）、信函管理（圖2.11）、行文管理（圖2.12）、提案管理（圖2.13）這4個表；

24、“日常管理”表：包括值班記錄管理（圖2.14）、會議記錄管理（圖2.15）、投訴記錄管理（圖2.16）、事故記錄管理（圖2.17）這4個表；　　“系統(tǒng)相關”表：包括系統(tǒng)登陸（圖2.18）、系統(tǒng)表單（圖2.19）這2個表；　　數(shù)據(jù)庫：圖2.20。　　圖2.3“財產信息”表結構圖2.

25、4 “財產維修記錄”表結構　　圖2.5“財產投保記錄”表結構圖2.6“財產投保記錄”表結構　　圖2.7“車輛登記”表結構圖2.8“車輛使用記錄”表結構　　圖2.9“車輛事故”表結構圖2.10“報表管理”表結構<

26、/p>　　圖2.11“信函管理”表結構圖2.12“行文管理”表結構　　圖2.13“提案管理”表結構圖2.14“值班記錄管理”表結構　　圖2.15“會議記錄管理”表結構圖2.16“投訴記錄管理”表結構

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

28、新建本系統(tǒng)中要使用的數(shù)據(jù)表。　　本系統(tǒng)數(shù)據(jù)庫應該包括16個表，分別為“車輛信息”數(shù)據(jù)表、“車輛使用”數(shù)據(jù)表、“車輛事故記錄”數(shù)據(jù)表、“財產信息”數(shù)據(jù)表、“財產投保記錄”數(shù)據(jù)表、“財產維修記錄”數(shù)據(jù)表、“財產轉移記錄”數(shù)據(jù)表、“報表記錄”數(shù)據(jù)表、“信函記錄”數(shù)據(jù)表、“行文記錄”數(shù)據(jù)庫、“提案記錄”數(shù)據(jù)庫、“值班記錄”數(shù)據(jù)庫、“會議記錄”數(shù)據(jù)庫、“投訴記錄”數(shù)據(jù)庫、“事故記錄”數(shù)據(jù)庫。</p&

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

46、p>　　在表單中添加一個表單屬性Oldrecord，并將其顯示值初始化為0。添加2個表單的方法屬性Modpre、Modmod，用這兩個方法屬性來控制表單的瀏覽狀態(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來信日期.READONLY=.T.　　THISFORM.txt來信單位.READONLY=.T.　　THISFORM.tx

50、t接收單位.READONLY=.T.　　THISFORM.txt接收人.READONLY=.T.　　THISFORM.txt來信類別.READONLY=.T.　　THISFORM.txt回函日期.READONLY=.T.　　THISFORM.edt來信內容.READONL

51、Y=.T.　　THISFORM.edt回函內容.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來信日期.READONLY=.F.　　THISFORM.txt來信單位.READONLY=.F.　　THISFORM.txt接收單位.READONLY=.F.　　THIS

55、FORM.txt接收人.READONLY=.F.　　THISFORM.txt來信類別.READONLY=.F.　　THISFORM.txt回函日期.READONLY=.F.　　THISFORM.edt來信內容.READONLY=.F.　　THISFORM.edt回函內容.

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

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

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

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

60、 &&連結新的字符串，記錄編號自動加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信件號.V

63、ALUE=BH &&顯示自動加1后的部門編號　　THISFORM.txt來信日期.SETFOCUS()&&將焦點移至部門名稱上　　THISFORM.MODMOD() &&表單進入非瀏覽狀態(tài)　　THISFORM.REFRESH()<

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

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

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

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

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

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

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

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

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

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

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

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

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

77、這兩個方法屬性控制表單的瀏覽狀態(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保密級別.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保密級

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.　　表單在初始化時要進入瀏覽狀態(tài)，并使表單刷新。　　表單的Init事件代碼如下：　　THISFORM.MODPRE()　　THISFORM.REFRESH()　　表單命

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

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

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

91、 &&連結新的字符串，記錄編號自動加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ā)文號.VALUE=BH

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

110、gt;　　在表單中添加一個表單屬性Oldrecord，并將其顯示值初始化為0。　　添加2個表單的方法屬性Modpre、Modmod，用這兩個方法屬性來控制表單的瀏覽狀態(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所屬部門.READONLY=.T.　　THISFORM.txt提案性質.READONLY=.T.

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

115、dt審核結果.READONLY=.T.　　THISFORM.edt實施情況.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所屬部門.READONLY=.F.　　THISFORM.txt提案性質.READONLY=.F.　　THISFORM.txt收件日期.READONLY=.F.

119、;　　THISFORM.txt審核日期.READONLY=.F.　　THISFORM.txt審核人.READONLY=.F.　　THISFORM.edt提案內容.READONLY=.F.　　THISFORM.edt審核結果.READONLY=.F.

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

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

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

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

124、mp;連結新的字符串，記錄編號自動加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提案編號.VALUE=BH &&顯示自

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

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

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載