【正文】 1) Else (1).Text = 操作職員： amp。權(quán)限約束 (1).Text = 操作職員： amp。 + + 39。 + + 39。圖3 系統(tǒng)登錄窗體設(shè)計(jì)2．代碼設(shè)計(jì)單擊名稱為labLogin的Label控件用來進(jìn)行用戶安全性檢查，如果用戶名稱和密碼正確，則進(jìn)入系統(tǒng)并分配相應(yīng)的權(quán)限。（4）添加2個(gè)Label控件，將名稱設(shè)置為labLogin和labEnd，BackStyle屬性為0Transparent。添加方法為：在“工程”/“部件”對(duì)話框中勾選“Microsoft Ado Data Controls (SP4)”列表項(xiàng)。1．窗體設(shè)計(jì)（1）新建一個(gè)窗體，將窗體的“名稱”屬性設(shè)置為frm_login，BorderStyle屬性設(shè)置為0None，設(shè)置Picture屬性，為窗體添加背景圖片。 End Sub 系統(tǒng)登錄設(shè)計(jì)本系統(tǒng)屬于OA辦公自動(dòng)化系統(tǒng)，用戶權(quán)限分為兩種：系統(tǒng)管理員和普通用戶。Data Source= amp。 。PWD= amp。 uid amp。Persist Security Info=False。關(guān)閉數(shù)據(jù)庫連接 39。39。, filename2 = N39。, filename1 = N39。開始附加數(shù)據(jù)庫 Str = EXEC sp_attach_db dbname = N39。 39。Data Source= amp。 。PWD= amp。 uid amp。Persist Security Info=False。 \) 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。模塊中代碼如下：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。為了優(yōu)化ADO+SQL數(shù)據(jù)庫的連接，在公共模塊（Module1）中建立數(shù)據(jù)庫連接共享字符串。就本系統(tǒng)而言，該模塊主要實(shí)現(xiàn)數(shù)據(jù)庫安裝和共享數(shù)據(jù)庫連接。 系統(tǒng)工作原理網(wǎng)絡(luò)結(jié)構(gòu)圖系統(tǒng)工作原理網(wǎng)絡(luò)結(jié)構(gòu)圖如圖1所示。q 交流管理模塊該模塊主要實(shí)現(xiàn)意見反饋、活動(dòng)投票、短消息服務(wù)（局域網(wǎng)）。q 新聞管理模塊該模塊的主要負(fù)責(zé)新聞的發(fā)布、接收等。本系統(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ù)庫無縫鏈接。 可行性分析開發(fā)任何一個(gè)基于計(jì)算機(jī)的系統(tǒng)，都會(huì)受到時(shí)間和資源上的限制。q 圖表分析活動(dòng)投票管理。q 信息發(fā)布與文件傳送速度快。q 原始數(shù)據(jù)修改簡單方便，支持多條件修改。吉林省明日科技有限公司監(jiān)制OA辦公自動(dòng)化系統(tǒng)畢業(yè)論文目錄摘要 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– 39 –1 系統(tǒng)分析 需求分析通過調(diào)查，要求系統(tǒng)需要有以下功能：q 由于操作人員的計(jì)算機(jī)知識(shí)普遍較差，那么就要求有良好的人機(jī)界面。q 由于該系統(tǒng)的使用對(duì)象多，要求有較好的權(quán)限管理。q 方便的數(shù)據(jù)查詢，支持多條件查詢。q 通過計(jì)算機(jī)，能夠直接“透視”公司的各項(xiàng)工作及活動(dòng)安排。q 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好。因此，在接受任何一個(gè)項(xiàng)目開發(fā)任務(wù)之前，必須根據(jù)客戶可能提供的時(shí)間和資源條件進(jìn)行可行性分析，以減少項(xiàng)目開發(fā)風(fēng)險(xiǎn)，避免人力、物力和財(cái)力的浪費(fèi)。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ā)布、接收等。q 文件傳送管理模塊該模塊主要負(fù)責(zé)文件的傳送與接收等。q 系統(tǒng)維護(hù)管理模塊部門信息的基礎(chǔ)設(shè)置、職員信息的基礎(chǔ)設(shè)置、投票活動(dòng)管理設(shè)置、系統(tǒng)操作員及權(quán)限設(shè)置。圖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模塊。系統(tǒng)第一次使用時(shí)，將數(shù)據(jù)庫文件（）和數(shù)據(jù)庫日志文件（）自動(dòng)安裝到指定的SQL Server數(shù)據(jù)庫服務(wù)器上。在以后的編程中，如果使用對(duì)象訪問數(shù)據(jù)庫或ADO Data控件訪問數(shù)據(jù)庫，則可以直接將數(shù)據(jù)庫共享連接字符串（PublicStr）值賦值給相應(yīng)的ConnectionString屬性，從而避免了重復(fù)建立數(shù)據(jù)庫連接的麻煩，而失去了ADO+SQL的優(yōu)越性能。讀取數(shù)據(jù)庫配置文件 Open ( amp。附加數(shù)據(jù)庫 On Error Resume Next = Provider=。User ID= amp。 。 pwd amp。Initial Catalog=db_OA。 Server amp。打開數(shù)據(jù)庫連接 Set rs = New 39。db_SSS39。 + + \DataBase\ + 39。 + + \DataBase\ + 39。 str, con, 1, adLockOptimistic Set rs = (Str) 39。共享連接字符串 PublicStr = Provider=。User ID= amp。 。 pwd amp。Initial Catalog=db_OA。 Server amp。系統(tǒng)登錄驗(yàn)證操作員及其密碼，主要通過記錄集結(jié)果（RecordSet）結(jié)合If語句，判斷用戶輸入的操作員及密碼是否符合數(shù)據(jù)庫中的操作員和密碼，如果符合則允許登錄，并給予相應(yīng)的權(quán)限，否則提示用戶非法登錄。（2）添加Adodc控件，設(shè)置名稱為adoLogin，Visible屬性為False，由于該控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框?qū)⑵涮砑拥焦ぞ呦渲小＃?）添加2個(gè)TextBox控件，分別設(shè)置名稱（Name屬性）為Text1和Text2，設(shè)置BorderStyle屬性為0None。系統(tǒng)登錄窗體的設(shè)計(jì)結(jié)果如圖3所示。在Label控件名稱為labLogin的Click事件下，添加代碼如下：Private Sub labLogin_Click() = PublicStr = select * from tbOA_user where username=39。 and userpwd=39。 If 0 Then If (2).Value = 0 Then = False 39。 39。 39。界面設(shè)計(jì)簡單明了，為用戶提供便捷的訪問途徑，把一些具有共性的命令集中于一個(gè)簡單的菜單之下。主界面運(yùn)行結(jié)果如圖4所示。（2）為窗體設(shè)計(jì)菜單。添加方法為：在“工程”/“部件”對(duì)話框中勾選“Microsoft Windows Common Controls （SP6）”列表項(xiàng)。圖5 設(shè)置MSHFlexGrid控件顏色屬性（5）添加StatusBar（狀態(tài)欄）控件，主要用來顯示系統(tǒng)操作員信息、系統(tǒng)時(shí)間及公司名稱和網(wǎng)站。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ì)講解過了，這里就不做介紹了。在Form窗體的Activate事件下添加如下代碼：Private Sub Form_Activate() For i = 1 To 39。在TreeView控件的NodeClick事件下添加代碼如下：Private Sub TreeView1_NodeClick(ByVal Node As ) If = 發(fā)布通知 Then If = 接收通知 Then If = 已發(fā)通知 Then If = 新聞發(fā)布 Then If = 接收新聞 Then If = 已發(fā)新聞 Then If = 新聞發(fā)布 Then If = 接收新聞 Then 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表格中。////設(shè)置 NEWS =