【正文】 行政管理系統(tǒng)學(xué) 院專 業(yè)班 級(jí)學(xué) 號(hào)姓 名指導(dǎo)教師教師職稱年月日33 / 40摘要【摘要】當(dāng)今社會(huì)飛速發(fā)展，行政管理在社會(huì)關(guān)系中顯得非常的重要，然而，在很多的行政系統(tǒng)中，忽略了利用計(jì)算機(jī)軟件來進(jìn)行日常辦公管理的這一關(guān)鍵環(huán)節(jié)，因此，造成管理上的混亂、工作效率低下等事件的發(fā)生，隨著IT產(chǎn)業(yè)的發(fā)展，利用計(jì)算機(jī)軟件代替手工辦公的方式已經(jīng)當(dāng)今社會(huì)發(fā)展的必然趨勢(shì)，因此，行政管理系統(tǒng)軟件應(yīng)運(yùn)而生?！娟P(guān)鍵詞】 企事業(yè)機(jī)關(guān) 行政管理 行政管理系統(tǒng)目錄摘要 1目錄 1引言 11 系統(tǒng)分析 2 需求分析 2 可行性分析 22 總體設(shè)計(jì) 2 項(xiàng)目規(guī)劃 2 系統(tǒng)功能結(jié)構(gòu)圖 33 詳細(xì)設(shè)計(jì) 3 數(shù)據(jù)模塊設(shè)計(jì) 3 主窗體設(shè)計(jì) 4 會(huì)議記錄 9 一周工作安排 12 報(bào)銷費(fèi)用管理 15 編碼查詢 19附錄A 參考文獻(xiàn) 23附錄B 數(shù)據(jù)表結(jié)構(gòu) 24附錄C 文件架構(gòu)圖 32引言行政管理系統(tǒng)涵蓋會(huì)議、辦公、機(jī)關(guān)事務(wù)處理、車輛、費(fèi)用等行政管理內(nèi)容以及人機(jī)結(jié)合的監(jiān)督考評(píng)；建立事前預(yù)防（提示），事中監(jiān)控，事后考評(píng)的機(jī)制，對(duì)行政管理權(quán)實(shí)施過程進(jìn)行監(jiān)控，全面推進(jìn)行政管理工作的規(guī)范化、標(biāo)準(zhǔn)化、法制化和信息化。行政管理包括對(duì)企業(yè)內(nèi)部會(huì)議的管理、辦公管理、車輛信息及用車信息管理、企業(yè)消費(fèi)費(fèi)用、信息發(fā)布及通知、輔助功能等方面的全方位的管理。其中會(huì)議管理包括對(duì)會(huì)議室管理、會(huì)議通知和會(huì)議查詢幾部分；辦公管理主要是對(duì)工作計(jì)劃、工作日志和周工作安排進(jìn)行系統(tǒng)的管理；車輛管理是對(duì)企業(yè)內(nèi)部人員包括企業(yè)領(lǐng)導(dǎo)用車信息進(jìn)行詳細(xì)的記錄；費(fèi)用管理是對(duì)企業(yè)日常的消費(fèi)費(fèi)用進(jìn)行管理，包括電話費(fèi)用、報(bào)銷費(fèi)用和車輛費(fèi)用支出管理。通過信息發(fā)布和輔助功能為企業(yè)員工在日常工作中提供便利，如發(fā)布會(huì)議通知、航班查詢和編碼查詢等等。1 系統(tǒng)分析 需求分析通過市場(chǎng)調(diào)查，要求本系統(tǒng)具有以下的功能：q 統(tǒng)一友好的操作界面，能保證系統(tǒng)的易用性。q 規(guī)范、完善的基礎(chǔ)信息設(shè)置。q 靈活的報(bào)表打印功能。q 能夠完成對(duì)企業(yè)會(huì)議、企業(yè)辦公、企業(yè)車輛和費(fèi)用信息的有效管理。q 全國(guó)各地的編碼及航班查詢。q 提供常用網(wǎng)址和手機(jī)歸屬地信息查詢q 通過系統(tǒng)日志，詳細(xì)記錄修改記錄的操作，提供追查的有力依據(jù)。q 完善的權(quán)限管理，增強(qiáng)系統(tǒng)的安全性。q 強(qiáng)大的數(shù)據(jù)備份及恢復(fù)功能，保證系統(tǒng)數(shù)據(jù)的安全性。q 可在不退出系統(tǒng)的同時(shí)更換操作員。 可行性分析傳統(tǒng)的行政管理工作可以說是千頭萬緒，紛繁復(fù)雜，工作人員面臨著大量瑣碎繁重的工作，行政管理系統(tǒng)從企業(yè)的實(shí)際需求出發(fā)，簡(jiǎn)單易用，系統(tǒng)界面友好美觀，自定義功能強(qiáng)，權(quán)限管理可根據(jù)用戶的角色來設(shè)置，實(shí)施簡(jiǎn)單快速，操作簡(jiǎn)單明了?；具m用于中小型企業(yè)的行政辦公管理。2 總體設(shè)計(jì) 項(xiàng)目規(guī)劃行政管理系統(tǒng)規(guī)劃系統(tǒng)功能模塊如下：q 會(huì)議管理模塊會(huì)議管理模塊主要包括維護(hù)會(huì)議室信息、發(fā)送會(huì)議通知信息、記錄會(huì)議內(nèi)容、查詢會(huì)議室信息和會(huì)議記錄信息5個(gè)方面的內(nèi)容。q 辦公管理模塊該模塊主要由工作日志、記事本、工作計(jì)劃和一周工作安排4部分組成。q 車輛管理模塊車輛管理模塊主要包括車輛登記、用車管理、駕駛?cè)藛T登記、車輛信息查詢、用車信息查詢和車輛投保管理6部分。q 費(fèi)用管理包括電話費(fèi)用管理、報(bào)銷費(fèi)用管理和車輛費(fèi)用支出管理3部分。q 輔助信息包括常用網(wǎng)址、航班查詢、編碼大全、國(guó)際電話代碼和手機(jī)歸屬地查詢5部分。q 系統(tǒng)管理包括查看日志、刪除日志、用戶管理、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)和系統(tǒng)數(shù)據(jù)清理6部分。 系統(tǒng)功能結(jié)構(gòu)圖行政管理系統(tǒng)的功能結(jié)構(gòu)圖如圖1所示。圖1 行政管理系統(tǒng)功能結(jié)構(gòu)圖3 詳細(xì)設(shè)計(jì) 數(shù)據(jù)模塊設(shè)計(jì)模塊的作用是減少程序的代碼量，提高應(yīng)用程序代碼的重用性和程序編碼的可讀性。在本系統(tǒng)中，將連接數(shù)據(jù)庫(kù)的程序代碼都集中放置在一個(gè)數(shù)據(jù)模塊Mdl_Data中，在應(yīng)用程序需要連接數(shù)據(jù)庫(kù)時(shí)調(diào)用該模塊，從而完成相應(yīng)的數(shù)據(jù)操作、實(shí)現(xiàn)操縱數(shù)據(jù)的功能。在數(shù)據(jù)模塊Mdl_Data中定義了連接字符串變量PublicStr、記錄集對(duì)象、數(shù)據(jù)連接函數(shù)Cnn和1個(gè)全局函數(shù)main。在函數(shù)main中，提供了連接數(shù)據(jù)庫(kù)的字符串，并將其賦值給全局變量PublicStr，提供數(shù)據(jù)連接。數(shù)據(jù)模塊Mdl_Data中的事件代碼如下：39。數(shù)據(jù)連接模塊Public PublicStr As StringPublic AdoRs As New 39。后添加一個(gè)記錄集對(duì)象Public AdoRs1 As New 39。后添加一個(gè)記錄集對(duì)象Public AdoRs2 As New 39。后添加一個(gè)記錄集對(duì)象Public Function Cnn() As 39。定義連接字符串函數(shù) Set Cnn = New Provider=。Persist Security Info=False。User ID=sa。Initial Catalog=db_ServiceEnd FunctionPublic Sub main() PublicStr = Provider=。Persist Security Info=False。User ID=sa。Initial Catalog=db_Service 39。顯示系統(tǒng)登錄窗體End Sub 主窗體設(shè)計(jì)主窗體界面是顯示系統(tǒng)主要操作功能的面板，對(duì)于主窗體設(shè)計(jì)的基本要求是：窗體上的控件布局合理、界面美觀大方，并且易于操作系統(tǒng)其他功能模塊。在主窗體的菜單欄或者窗體中的樹狀列表中，可以控制其他功能模塊的運(yùn)行，并且根據(jù)登錄操作員賦予相應(yīng)的操作權(quán)限；在狀態(tài)欄中，可以顯示當(dāng)前登錄操作員、當(dāng)前系統(tǒng)的日期時(shí)間、公司網(wǎng)址等信息。系統(tǒng)主窗體的運(yùn)行結(jié)果如圖2所示。圖2 系統(tǒng)主窗體運(yùn)行結(jié)果1．窗體設(shè)計(jì)（1）在工程中新建1個(gè)窗體，將窗體的名稱設(shè)置為“frm_Main”，BorderStyle屬性設(shè)置為“0None”，MaxButton的屬性設(shè)置為“False”，并且通過窗體的Picture屬性為窗體添加圖片。（2）在菜單編輯器中為主窗體設(shè)置菜單，設(shè)置完成的菜單如圖2所示。（3）在窗體上添加TreeView控件，由于該控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱。添加方法如下：在“工程”/“部件”對(duì)話框中勾選“Microsoft Windows Common ”列表項(xiàng)，單擊【確定】按鈕之后即可將TreeView控件添加到工具箱當(dāng)中。（4）在窗體的TreeView控件上單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“屬性”項(xiàng)，然后在彈出的“屬性頁(yè)”對(duì)話框中設(shè)置TreeView控件的顯示樣式，如圖3所示。圖3 設(shè)置控件的顯示樣式（5）在窗體中添加1個(gè)StatusBar控件，由于StatusBar控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱。添加方法如下：在“工程”/“部件”對(duì)話框中勾選“Microsoft Windows Common ”列表項(xiàng)，單擊【確定】按鈕之后即可將StatusBar控件添加到工具箱當(dāng)中。（6）利用StatusBar控件可以為主窗體設(shè)置狀態(tài)欄。在StatusBar控件上單擊鼠標(biāo)右鍵選擇“屬性”項(xiàng)，在彈出的對(duì)話框中選擇“窗格”選項(xiàng)卡，如圖4所示，在圖中單擊【插入窗格】按鈕，可以在StatusBar控件中添加窗格，同時(shí)可以設(shè)置添加后窗格的文本內(nèi)容、工具欄提示文本內(nèi)容和寬度等信息。如果想刪除窗格，則通過“索引”旁邊的箭頭，選擇要?jiǎng)h除的窗格，然后單擊【刪除窗格】按鈕即可刪除。圖4 設(shè)置狀態(tài)欄中的窗格系統(tǒng)主窗體界面設(shè)計(jì)結(jié)果如圖5所示。圖5 系統(tǒng)主窗體的設(shè)計(jì)界面2．代碼設(shè)計(jì)通過單擊系統(tǒng)主窗體當(dāng)中的菜單項(xiàng)，可以控制系統(tǒng)中各個(gè)子窗體的運(yùn)行。單擊某個(gè)功能菜單項(xiàng)調(diào)用系統(tǒng)子窗體的代碼如下：Private Sub BMDQ_Click() 1 39。編碼大全End SubPrivate Sub BXFYGL_Click() 1 39。報(bào)銷費(fèi)用管理End SubPrivate Sub CKRZ_Click() 1 39。查看日志End SubPrivate Sub CLDJ_Click() 1 39。車輛登記End SubPrivate Sub CLFYZC_Click() 1 39。車輛費(fèi)用支出管理End SubPrivate Sub CLTBXXGL_Click() 1 39。車輛投保管理End SubPrivate Sub CLXXCX_Click() StrCx = 3 39。如果執(zhí)行的是車輛信息查詢，則標(biāo)識(shí)變量的數(shù)值取值為3 1End SubPrivate Sub CXDL_Click() Unload Me 39。重新登錄End SubPrivate Sub CYWZ_Click() 1 39。常用網(wǎng)址End SubPrivate Sub DHFYGL_Click() 1 39。電話費(fèi)用管理End SubPrivate Sub DJCX_Click() StrCx = 1 39。如果執(zhí)行的是會(huì)議記錄信息查詢，則標(biāo)識(shí)變量的數(shù)值取值為1 1 39。會(huì)議記錄信息查詢End SubPrivate Sub GJDHDM_Click() 1 39。國(guó)際電話代碼End SubPrivate Sub GYSGL_Click() 1 39。會(huì)議室管理End SubPrivate Sub GZJH_Click() 1 39。工作計(jì)劃End SubPrivate Sub GZRZ_Click() 1 39。工作日志End SubPrivate Sub HBCX_Click() 1 39。航班查詢End SubPrivate Sub HYDJ_Click() 1 39。會(huì)議記錄End SubPrivate Sub HYSCX_Click() StrCx = 2 39。如果執(zhí)行的是會(huì)議室信息查詢，則標(biāo)識(shí)變量的數(shù)值取值為2 1 39。會(huì)議室信息查詢End SubPrivate Sub HYTZ_Click() 1 39。會(huì)議通知End SubPrivate Sub JSB_Click() 1 39。記事本End SubPrivate Sub JSHF_Click() 39。數(shù)據(jù)恢復(fù)Dim iTask As LongMsgBox 請(qǐng)您注意,為了確保數(shù)據(jù)安全,在進(jìn)行數(shù)據(jù)恢復(fù)的同時(shí)需要關(guān)閉應(yīng)用程序,請(qǐng)您在恢復(fù)數(shù)據(jù)完成之后重新運(yùn)行應(yīng)用程序, 64, 提示信息39。調(diào)用數(shù)據(jù)恢復(fù)可執(zhí)行文件iTask = Shell( amp。 \, vbNormalFocus)End End SubPrivate Sub JSRYDJ_Click()