【正文】 政管理系統(tǒng)功能結(jié)構(gòu)圖3 詳細(xì)設(shè)計(jì) 數(shù)據(jù)模塊設(shè)計(jì)模塊的作用是減少程序的代碼量，提高應(yīng)用程序代碼的重用性和程序編碼的可讀性。q 費(fèi)用管理包括電話費(fèi)用管理、報(bào)銷費(fèi)用管理和車輛費(fèi)用支出管理3部分?；具m用于中小型企業(yè)的行政辦公管理。q 完善的權(quán)限管理，增強(qiáng)系統(tǒng)的安全性。q 靈活的報(bào)表打印功能。其中會議管理包括對會議室管理、會議通知和會議查詢幾部分；辦公管理主要是對工作計(jì)劃、工作日志和周工作安排進(jìn)行系統(tǒng)的管理；車輛管理是對企業(yè)內(nèi)部人員包括企業(yè)領(lǐng)導(dǎo)用車信息進(jìn)行詳細(xì)的記錄；費(fèi)用管理是對企業(yè)日常的消費(fèi)費(fèi)用進(jìn)行管理，包括電話費(fèi)用、報(bào)銷費(fèi)用和車輛費(fèi)用支出管理。行政管理系統(tǒng)學(xué) 院專 業(yè)班 級學(xué) 號姓 名指導(dǎo)教師教師職稱年月日33 / 40摘要【摘要】當(dāng)今社會飛速發(fā)展，行政管理在社會關(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)今社會發(fā)展的必然趨勢，因此，行政管理系統(tǒng)軟件應(yīng)運(yùn)而生。通過信息發(fā)布和輔助功能為企業(yè)員工在日常工作中提供便利，如發(fā)布會議通知、航班查詢和編碼查詢等等。q 能夠完成對企業(yè)會議、企業(yè)辦公、企業(yè)車輛和費(fèi)用信息的有效管理。q 強(qiáng)大的數(shù)據(jù)備份及恢復(fù)功能，保證系統(tǒng)數(shù)據(jù)的安全性。2 總體設(shè)計(jì) 項(xiàng)目規(guī)劃行政管理系統(tǒng)規(guī)劃系統(tǒng)功能模塊如下：q 會議管理模塊會議管理模塊主要包括維護(hù)會議室信息、發(fā)送會議通知信息、記錄會議內(nèi)容、查詢會議室信息和會議記錄信息5個方面的內(nèi)容。q 輔助信息包括常用網(wǎng)址、航班查詢、編碼大全、國際電話代碼和手機(jī)歸屬地查詢5部分。在本系統(tǒng)中，將連接數(shù)據(jù)庫的程序代碼都集中放置在一個數(shù)據(jù)模塊Mdl_Data中，在應(yīng)用程序需要連接數(shù)據(jù)庫時調(diào)用該模塊，從而完成相應(yīng)的數(shù)據(jù)操作、實(shí)現(xiàn)操縱數(shù)據(jù)的功能。數(shù)據(jù)連接模塊Public PublicStr As StringPublic AdoRs As New 39。定義連接字符串函數(shù) Set Cnn = New Provider=。Persist Security Info=False。在主窗體的菜單欄或者窗體中的樹狀列表中，可以控制其他功能模塊的運(yùn)行，并且根據(jù)登錄操作員賦予相應(yīng)的操作權(quán)限；在狀態(tài)欄中，可以顯示當(dāng)前登錄操作員、當(dāng)前系統(tǒng)的日期時間、公司網(wǎng)址等信息。（3）在窗體上添加TreeView控件，由于該控件屬于ActiveX控件，在使用之前必須從“部件”對話框中添加到工具箱。添加方法如下：在“工程”/“部件”對話框中勾選“Microsoft Windows Common ”列表項(xiàng)，單擊【確定】按鈕之后即可將StatusBar控件添加到工具箱當(dāng)中。圖4 設(shè)置狀態(tài)欄中的窗格系統(tǒng)主窗體界面設(shè)計(jì)結(jié)果如圖5所示。報(bào)銷費(fèi)用管理End SubPrivate Sub CKRZ_Click() 1 39。車輛投保管理End SubPrivate Sub CLXXCX_Click() StrCx = 3 39。電話費(fèi)用管理End SubPrivate Sub DJCX_Click() StrCx = 1 39。會議室管理End SubPrivate Sub GZJH_Click() 1 39。會議記錄End SubPrivate Sub HYSCX_Click() StrCx = 2 39。記事本End SubPrivate Sub JSHF_Click() 39。駕駛?cè)藛T登記End SubPrivate Sub MMXG_Click() 1End SubPrivate Sub SCRQ_Click() 39。 \) For Output As 1 Temp1 = 操作員姓名 日期時間 操作類型 Print 1, Temp1 Print 1, Close 1 MsgBox 日志清理成功完成!!, , 提示信息 Else End IfEnd SubPrivate Sub SJBF_Click() 1 39。用車信息查詢 1End SubPrivate Sub XTSJQL_Click() 1 39。一周工作安排End Sub在窗體啟動時，通過用戶自定義一個函數(shù)Tree_change，在窗體的TreeView控件中顯示數(shù)據(jù)。循環(huán)讀取第1層節(jié)點(diǎn)中的數(shù)據(jù)信息 Key = Trim((主菜單名稱)) Text = (主菜單名稱) StrTemp = (主菜單名稱) 39。循環(huán)讀取第2層節(jié)點(diǎn)中的數(shù)據(jù)信息 Key = Trim((子菜單名稱)) Text = (子菜單名稱) Set Node2 = (, tvwChild, Key, Text, 0) 39。在會議記錄窗體中可以通過工具欄中的【添加】、【刪除】、【修改】和【保存】按鈕維護(hù)會議記錄信息，還可以通過單擊數(shù)據(jù)網(wǎng)格中的數(shù)據(jù)記錄，在窗體上瀏覽已經(jīng)記錄過的會議記錄信息，如果會議記錄被修改過，則在瀏覽數(shù)據(jù)記錄信息時，在窗體的下面還將顯示記錄修改的日期和修改人姓名。（3）為窗體制作如圖7所示的工具欄。添加方法如下：在“工程”/“部件”對話框中勾選“Microsoft Windows Common ”列表項(xiàng)，單擊【確定】按鈕之后即可將DTPicker控件添加到工具箱當(dāng)中。”，DataSource屬性設(shè)置為“Adodc1”，AllowUpdate屬性設(shè)置為“False”。（9）在窗體上添加2個文本框控件，分別命名為“Txt_Date”和“Txt_xgr”，用于顯示修改記錄的時間和記錄修改人的姓名。窗體啟動時的事件代碼如下：Private Sub Form_Load() = Date 39。在文本框控件的鍵盤按下事件（KeyDown）中通過限制索引Index值和鍵盤代碼值能夠控制光標(biāo)移動的順序，實(shí)現(xiàn)的代碼如下：Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) On Error Resume Next 39。調(diào)用保存按鈕事件 End IfEnd Sub單擊選中數(shù)據(jù)網(wǎng)格中的記錄，可以使所選中的記錄顯示在窗體的文本框當(dāng)中。重新鎖定文本框，禁止輸入數(shù)據(jù)信息 Text1(i).Locked = False Next iEnd Sub 一周工作安排一年共有52周，那么在周工作安排中通過選擇年和年的第幾周（0~52周），可以維護(hù)或查看所選擇年中的所選擇周的工作安排信息。（2）在窗體上添加2個ComboBox控件，如圖9所示。一周工作安排窗體的設(shè)計(jì)結(jié)果如圖9所示。居中對齊 Next i (0) = 500 39。限定文本框的寬度 = – 50 39。 + + 39。將文本框設(shè)置為不可見狀態(tài) End If 39。 (1, 1) amp。 (2, 1) amp。 (1, 2) amp。 (2, 2)amp。 (1, 3) amp。 (2, 3) amp。 (1, 4) amp。 (2, 4) amp。 (1, 5)amp。 (2, 5) amp。) MsgBox 數(shù)據(jù)保存成功, 64, 提示信息 End If End IfEnd Sub 報(bào)銷費(fèi)用管理費(fèi)用報(bào)銷是企業(yè)運(yùn)營過程中必不可少的一個環(huán)節(jié)。報(bào)銷費(fèi)用管理模塊的運(yùn)行結(jié)果如圖10所示。（3）為窗體制作如圖12所示的工具欄。（7）在窗體上添加1個Ado控件和1個DataGrid控件，將DataSource屬性設(shè)置為“Adodc1”，AllowUpdate屬性設(shè)置為“False”。（9）在窗體上添加1個ListView控件，ListView控件屬于ActiveX控件，在使用之前必須從“部件”對話框中添加到工具箱。圖12 報(bào)銷費(fèi)用管理窗體的設(shè)計(jì)結(jié)果2．代碼設(shè)計(jì)ADO對象和控件連接到數(shù)據(jù)庫，同時調(diào)用Tj過程統(tǒng)計(jì)報(bào)銷費(fèi)用的金額，調(diào)用RefreshData事件，來實(shí)現(xiàn)刷新ListView控件中數(shù)據(jù)內(nèi)容。用戶自定義Tj事件的過程代碼如下：Private Sub Tj() select sum(金額) from 報(bào)銷費(fèi)用管理 , Cnn, adOpenKeyset If 0 Then = 5300 = 報(bào)銷費(fèi)用總計(jì)金額為 amp。如果當(dāng)前數(shù)據(jù)表中沒有部門信息，則將ListView設(shè)39。執(zhí)行錯誤處理 If 0 Then Text1(0).Text = (1) = (2) = (3) Text1(1).Text = (4) = (5) Text1(2).Text = (6) Text1(3).Text = (7) Text1(4).Text = (8) Strs = (9).Enabled = True End If 39。 報(bào)銷費(fèi)用總計(jì)金額為 amp。圖13 編碼查詢模塊運(yùn)行結(jié)果1．窗體設(shè)計(jì)（1）在工程中新建1個窗體，將窗體的名稱設(shè)置為“frm_bmcx”，BorderStyle屬性設(shè)置為“0None”，MaxButton的屬性設(shè)置為“False”。”。圖14 在屬性頁對話框中設(shè)定圖像的大?。?）在“屬性頁”對話框中選擇“圖像”選項(xiàng)卡，在該選項(xiàng)卡中單擊【插入圖片】按鈕在控件中添加圖像，如圖15所示。H80000018amp。編碼查詢窗體的設(shè)計(jì)結(jié)果如圖17所示。 End Sub用戶自定義的Tree_change過程的代碼如下：Private Sub Tree_change() Dim Key, Text, BH As String Dim Nod As Node 39。關(guān)閉記錄集對象End Sub單擊TreeView控件中的節(jié)點(diǎn)信息利用SQL語句可以查詢相應(yīng)省份的編碼信息，實(shí)現(xiàn)的事件代碼如下：Private Sub TreeView1_NodeClick(ByVal Node As ) = PublicStr = select * from 郵編大全 where 省份=39。 + + 39。 = 總計(jì)查詢記錄的條數(shù)為 amp。 車輛管理與費(fèi)用管理文件架構(gòu)圖。 主文件架構(gòu)圖。 End IfEnd Sub在Text2文本框控件中輸入城市名稱后按下〈Enter〉鍵，利用SQL語句可以查詢相應(yīng)城市的編碼信息，實(shí)現(xiàn)的事