【正文】 If = 已發(fā)新聞 Then If = 傳送文件 Then If = 接收文件 Then If = 已發(fā)文件 Then If = 意見箱 Then If = 投票活動(dòng) Then If = 短消息服務(wù) Then If = 人事管理 Then If = 投票管理 Then If = 意見箱管理 Then If = 系統(tǒng)設(shè)置 Then End Sub在Form窗體的裝載過程中，將最新的新聞和通知顯示在MSHFlexGrid表格中。在Form窗體的Activate事件下添加如下代碼：Private Sub Form_Activate() For i = 1 To 39。StatusBar控件的名稱為默認(rèn)名，單擊鼠標(biāo)右鍵打開“屬性頁”，為StatusBar控件添加3個(gè)窗格，第1個(gè)窗格顯示系統(tǒng)操作員、第2個(gè)窗格顯示系統(tǒng)日期、第3個(gè)窗格顯示公司名稱和網(wǎng)址，該控件的屬性設(shè)置方法在前面的章節(jié)中已經(jīng)詳細(xì)講解過了，這里就不做介紹了。圖5 設(shè)置MSHFlexGrid控件顏色屬性（5）添加StatusBar（狀態(tài)欄）控件，主要用來顯示系統(tǒng)操作員信息、系統(tǒng)時(shí)間及公司名稱和網(wǎng)站。添加方法為：在“工程”/“部件”對(duì)話框中勾選“Microsoft Windows Common Controls （SP6）”列表項(xiàng)。（2）為窗體設(shè)計(jì)菜單。主界面運(yùn)行結(jié)果如圖4所示。界面設(shè)計(jì)簡(jiǎn)單明了，為用戶提供便捷的訪問途徑，把一些具有共性的命令集中于一個(gè)簡(jiǎn)單的菜單之下。 39。 39。 If 0 Then If (2).Value = 0 Then = False 39。 and userpwd=39。在Label控件名稱為labLogin的Click事件下，添加代碼如下：Private Sub labLogin_Click() = PublicStr = select * from tbOA_user where username=39。系統(tǒng)登錄窗體的設(shè)計(jì)結(jié)果如圖3所示。（3）添加2個(gè)TextBox控件，分別設(shè)置名稱（Name屬性）為Text1和Text2，設(shè)置BorderStyle屬性為0None。（2）添加Adodc控件，設(shè)置名稱為adoLogin，Visible屬性為False，由于該控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框?qū)⑵涮砑拥焦ぞ呦渲小Ｏ到y(tǒng)登錄驗(yàn)證操作員及其密碼，主要通過記錄集結(jié)果（RecordSet）結(jié)合If語句，判斷用戶輸入的操作員及密碼是否符合數(shù)據(jù)庫中的操作員和密碼，如果符合則允許登錄，并給予相應(yīng)的權(quán)限，否則提示用戶非法登錄。 Server amp。Initial Catalog=db_OA。 pwd amp。 。User ID= amp。共享連接字符串 PublicStr = Provider=。 str, con, 1, adLockOptimistic Set rs = (Str) 39。 + + \DataBase\ + 39。 + + \DataBase\ + 39。db_SSS39。打開數(shù)據(jù)庫連接 Set rs = New 39。 Server amp。Initial Catalog=db_OA。 pwd amp。 。User ID= amp。附加數(shù)據(jù)庫 On Error Resume Next = Provider=。讀取數(shù)據(jù)庫配置文件 Open ( amp。在以后的編程中，如果使用對(duì)象訪問數(shù)據(jù)庫或ADO Data控件訪問數(shù)據(jù)庫，則可以直接將數(shù)據(jù)庫共享連接字符串（PublicStr）值賦值給相應(yīng)的ConnectionString屬性，從而避免了重復(fù)建立數(shù)據(jù)庫連接的麻煩，而失去了ADO+SQL的優(yōu)越性能。系統(tǒng)第一次使用時(shí)，將數(shù)據(jù)庫文件（）和數(shù)據(jù)庫日志文件（）自動(dòng)安裝到指定的SQL Server數(shù)據(jù)庫服務(wù)器上。圖1 系統(tǒng)工作原理網(wǎng)絡(luò)結(jié)構(gòu)圖 系統(tǒng)功能結(jié)構(gòu)圖圖2 系統(tǒng)功能結(jié)構(gòu)圖3 詳細(xì)設(shè)計(jì) 公共模塊設(shè)計(jì)為了節(jié)省系統(tǒng)資源，實(shí)現(xiàn)代碼重用，可以在系統(tǒng)中新建一個(gè)Modulel模塊。q 系統(tǒng)維護(hù)管理模塊部門信息的基礎(chǔ)設(shè)置、職員信息的基礎(chǔ)設(shè)置、投票活動(dòng)管理設(shè)置、系統(tǒng)操作員及權(quán)限設(shè)置。q 文件傳送管理模塊該模塊主要負(fù)責(zé)文件的傳送與接收等。2 總體設(shè)計(jì) 項(xiàng)目規(guī)劃OA辦公自動(dòng)化系統(tǒng)是一個(gè)典型的網(wǎng)絡(luò)辦公開發(fā)應(yīng)用程序，包含通知管理模塊、新聞管理模塊、文件傳送管理模塊、交流管理模塊、系統(tǒng)維護(hù)管理模塊5部分組成，規(guī)劃系統(tǒng)功能模塊如下：q 通知管理模塊該模塊主要負(fù)責(zé)信息的發(fā)布、接收等。因此，在接受任何一個(gè)項(xiàng)目開發(fā)任務(wù)之前，必須根據(jù)客戶可能提供的時(shí)間和資源條件進(jìn)行可行性分析，以減少項(xiàng)目開發(fā)風(fēng)險(xiǎn)，避免人力、物力和財(cái)力的浪費(fèi)。q 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡(jiǎn)單，數(shù)據(jù)穩(wěn)定性好。q 通過計(jì)算機(jī)，能夠直接“透視”公司的各項(xiàng)工作及活動(dòng)安排。q 方便的數(shù)據(jù)查詢，支持多條件查詢。q 由于該系統(tǒng)的使用對(duì)象多，要求有較好的權(quán)限管理。當(dāng)前的信息技術(shù)日新月異，如果這套系統(tǒng)只著眼于當(dāng)前的需求，而忽視了對(duì)系統(tǒng)技術(shù)的前瞻性，可以在不久的將來，系統(tǒng)必將不能滿足客戶日益增長(zhǎng)的需求，導(dǎo)致系統(tǒng)的生命周期縮短，從而增加客戶在信息化建設(shè)上的投資。本系統(tǒng)是以新聞發(fā)布、文件傳送為核心的辦公自動(dòng)化系統(tǒng)，是一套集新聞管理、文件傳送管理、信息發(fā)布、人事管理、局域網(wǎng)短消息快速傳送等5部分為一體的辦公自動(dòng)化系統(tǒng)?！娟P(guān)鍵詞】 OA 辦公自動(dòng)化目錄摘要 1目錄 1引言 11 系統(tǒng)分析 2 需求分析 2 可行性分析 22 總體設(shè)計(jì) 2 項(xiàng)目規(guī)劃 2 系統(tǒng)工作原理網(wǎng)絡(luò)結(jié)構(gòu)圖 2 系統(tǒng)功能結(jié)構(gòu)圖 33 詳細(xì)設(shè)計(jì) 3 公共模塊設(shè)計(jì) 3 系統(tǒng)登錄設(shè)計(jì) 4 主界面設(shè)計(jì) 6 新聞管理 9 傳送文件 13 文件接收 15 投票活動(dòng)管理 18附錄A 參考文獻(xiàn) 21附錄B 數(shù)據(jù)表結(jié)構(gòu) 22附錄C 文件架構(gòu)圖 25引言在市場(chǎng)競(jìng)爭(zhēng)過程中，對(duì)于一個(gè)企業(yè)而言，對(duì)信息的掌握程度、信息獲取是否及時(shí)、信息能否得到充分的利用、對(duì)信息的反應(yīng)是否敏感準(zhǔn)確，也越來越成為衡量一個(gè)企業(yè)市場(chǎng)競(jìng)爭(zhēng)能力的重要因素。用信息化手段和新一代的管理思想提供了強(qiáng)有力的網(wǎng)絡(luò)化、電子化支持。吉林省明日科技有限公司監(jiān)制OA辦公自動(dòng)化系統(tǒng)學(xué) 院專 業(yè)班 級(jí)學(xué) 號(hào)姓 名指導(dǎo)教師教師職稱年月日– 39 –摘要【摘要】系統(tǒng)針對(duì)企業(yè)機(jī)關(guān)辦公中存在的信息不暢、效率底下、操作不規(guī)范等一系列問題。用信息化的手段和新一代規(guī)范等一系列問題。把協(xié)同辦公的理念、知識(shí)管理的思想帶入了現(xiàn)代社會(huì)的辦公生活，從而提升了現(xiàn)代企業(yè)的信息化程度，改變了人們的生活。商場(chǎng)如戰(zhàn)場(chǎng)，新一代的戰(zhàn)爭(zhēng)是信息化戰(zhàn)爭(zhēng)，如何使企業(yè)信息化建設(shè)完善起來?在這種情況下，開發(fā)OA辦公自動(dòng)化系統(tǒng)是當(dāng)務(wù)之急的事了。該系統(tǒng)除了必須滿足當(dāng)前的應(yīng)用要求外，在整套系統(tǒng)的設(shè)計(jì)過程中，還專門強(qiáng)調(diào)了其先進(jìn)性及可擴(kuò)展性。1 系統(tǒng)分析 需求分析通過調(diào)查，要求系統(tǒng)需要有以下功能：q 由于操作人員的計(jì)算機(jī)知識(shí)普遍較差，那么就要求有良好的人機(jī)界面。q 原始數(shù)據(jù)修改簡(jiǎn)單方便，支持多條件修改。q 信息發(fā)布與文件傳送速度快。q 圖表分析活動(dòng)投票管理。 可行性分析開發(fā)任何一個(gè)基于計(jì)算機(jī)的系統(tǒng)，都會(huì)受到時(shí)間和資源上的限制。本系統(tǒng)數(shù)據(jù)庫采用目前比較流行的Microsoft SQL Server，該數(shù)據(jù)庫系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對(duì)的優(yōu)勢(shì)，并且處理數(shù)據(jù)庫量大，效率高；前臺(tái)采用Microsoft公司的Visual Basic ，其可與SQL Server 2000數(shù)據(jù)庫無縫鏈接。q 新聞管理模塊該模塊的主要負(fù)責(zé)新聞的發(fā)布、接收等。q 交流管理模塊該模塊主要實(shí)現(xiàn)意見反饋、活動(dòng)投票、短消息服務(wù)（局域網(wǎng)）。 系統(tǒng)工作原理網(wǎng)絡(luò)結(jié)構(gòu)圖系統(tǒng)工作原理網(wǎng)絡(luò)結(jié)構(gòu)圖如圖1所示。就本系統(tǒng)而言，該模塊主要實(shí)現(xiàn)數(shù)據(jù)庫安裝和共享數(shù)據(jù)庫連接。為了優(yōu)化ADO+SQL數(shù)據(jù)庫的連接，在公共模塊（Module1）中建立數(shù)據(jù)庫連接共享字符串。模塊中代碼如下：Public PublicStr As StringDim con As New , rs As New Dim Str As String, Server As String, uid As String, Dim pwd As StringPublic Sub main() 39。 \) For Input As 1 Line Input 1, Intext Server = Mid(Intext, 10, Len(Trim(Intext)) 9) Line Input 1, Intext uid = Mid(Intext, 7, Len(Trim(Intext)) 6) Line Input 1, Intext pwd = Mid(Intext, 7, Len(Trim(Intext)) 6) Close 139。Persist Security Info=False。 uid amp。PWD= amp。 。Data Source= amp。 39。開始附加數(shù)據(jù)庫 Str = EXEC sp_attach_db dbname = N39。, filename1 = N39。, filename2 = N39。39。關(guān)閉數(shù)據(jù)庫連接 39。Persist Security Info=False。 uid amp。PWD= amp。 。Data Source= amp。 End Sub 系統(tǒng)登錄設(shè)計(jì)本系統(tǒng)屬于OA辦公自動(dòng)化系統(tǒng)，用戶權(quán)限分為兩種：系統(tǒng)管理員和普通用戶。1．窗體設(shè)計(jì)（1）新建一個(gè)窗體，將窗體的“名稱”屬性設(shè)置為frm_login，BorderStyle屬性設(shè)置為0None，設(shè)置Picture屬性，為窗體添加背景圖片。添加方法為：在“工程”/“部件”對(duì)話框中勾選“Microsoft Ado Data Controls