公文管理系統(tǒng)

1、公文管理系統(tǒng)1、系統(tǒng)概述公文管理系統(tǒng)是應(yīng)用ASP.NET技術(shù)開(kāi)發(fā)的一個(gè)簡(jiǎn)化系統(tǒng)。該系統(tǒng)綜合運(yùn) 用了數(shù)據(jù)庫(kù)解決方案、封裝、用戶控件、文件上傳及高級(jí)控件等，實(shí)現(xiàn)基 于Web的公文發(fā)布、接收、瀏覽、查詢和維護(hù)功能。系統(tǒng)由多個(gè)網(wǎng)站模 塊組成。每個(gè)模塊由一組頁(yè)面及相關(guān)程序組成，完成相對(duì)獨(dú)立的任務(wù)，如 公文瀏覽、發(fā)文處理和收文處理等。模塊涉及與用戶的交互過(guò)程，包含的 文件數(shù)目和類型較多，并需要訪問(wèn)數(shù)據(jù)庫(kù)。因此，設(shè)計(jì)好頁(yè)面內(nèi)容，規(guī)劃 好頁(yè)面之間傳遞的數(shù)據(jù)及對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)，對(duì)于系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)非常重 要，同時(shí)也能夠?yàn)榻窈笙到y(tǒng)的維護(hù)和升級(jí)帶來(lái)方便。2、系統(tǒng)設(shè)計(jì)2.1系統(tǒng)功能分析開(kāi)發(fā)應(yīng)用系統(tǒng)的首要工作是進(jìn)行需求分

2、析，根據(jù)應(yīng)用需求，設(shè)計(jì)系統(tǒng)功 能。公文管理系統(tǒng)需要對(duì)公文進(jìn)行收發(fā)文處理、收發(fā)文查閱和查詢，據(jù)此 系統(tǒng)由發(fā)文瀏覽、收文瀏覽、文件查詢、發(fā)文處理、收文處理、系統(tǒng)維護(hù) 和用戶登錄6個(gè)模塊組成。（1）用戶登錄。為了保證系統(tǒng)使用的安全性，進(jìn)入系統(tǒng)首先要登錄。按照 對(duì)系統(tǒng)功能的授權(quán)，將用戶權(quán)限劃分為六類：1一發(fā)文瀏覽，2收文瀏覽， 3文件查詢，4發(fā)文處理，5一收文處理，6系統(tǒng)維護(hù)。用戶成功登錄 系統(tǒng)后，系統(tǒng)使用Session變量記錄其操作權(quán)限，以后在該用戶執(zhí)行各功 能之前都先進(jìn)行權(quán)限檢查，只有具備執(zhí)行權(quán)限時(shí)才可使用相應(yīng)的功能。（2）發(fā)文瀏覽。以分頁(yè)方式列出所有發(fā)文的編號(hào)和時(shí)間，用戶單擊編號(hào)查 看詳細(xì)內(nèi)容，

3、并可發(fā)表閱文回執(zhí)。（3）收文瀏覽。其功能與發(fā)文瀏覽十分相似，也以分頁(yè)方式列出所有收 文編碼和時(shí)間，用戶單擊編號(hào)查看詳細(xì)內(nèi)容，并可發(fā)表閱文回執(zhí)。（4）發(fā)文處理。用于簽發(fā)公文。用戶填寫(xiě)文件標(biāo)題、編號(hào)、有效期及辦理 建議，選擇文件名后提交，即可發(fā)布文件。（5）收文處理。用于簽收公文。用戶選擇文件標(biāo)題后，即可顯示該文件的 編號(hào)、發(fā)文日期、有效期及發(fā)文單位，并可查閱文件內(nèi)容。用戶可填寫(xiě)辦 理建議后執(zhí)行簽收功能。（6）系統(tǒng)維護(hù)。由部門維護(hù)、用戶及權(quán)限維護(hù)、公文（字）維護(hù)三部分組 成。部門維護(hù)包括添加新部門、修改現(xiàn)有部門信息；用戶及權(quán)限維護(hù)包括 添加新用戶、修改現(xiàn)有用戶的權(quán)限；公文（字）維護(hù)包括添加新，字”

4、和修 改現(xiàn)有“字”信息。系統(tǒng)的主界面和主要功能模塊界面均采用框架（Frame）結(jié)構(gòu)設(shè)計(jì)，系統(tǒng)的 各項(xiàng)功能以用戶控件形式加載，位于頁(yè)面上部，頁(yè)面的右下部是主顯示區(qū)， 用于顯示文件或維護(hù)信息。2.2數(shù)據(jù)庫(kù)設(shè)計(jì)本系統(tǒng)選用Access數(shù)據(jù)庫(kù)，所使用的數(shù)據(jù)庫(kù)名為oadata.mdb，包括5 個(gè)數(shù)據(jù)表，分別是：userpass:用戶信息表。wdlx:文件類型表。wddata:文件信息表。part:部門信息表。readlog :文件簽閱意見(jiàn)表。各個(gè)表的結(jié)構(gòu)如下： userpass 表結(jié)構(gòu)：字段名數(shù)據(jù)類型可否為空說(shuō) 明Userid文本否用戶編號(hào)，主鍵Partid文本否該用戶所屬部門編號(hào)Userkey文本否用戶

5、權(quán)限Username文本可用戶姓名Password文本否用戶密碼wdlx表結(jié)構(gòu):字段名數(shù)據(jù)類型可否為空說(shuō) 明Id數(shù)值否自動(dòng)編號(hào)(記錄號(hào))lx文本否文檔類型zh文本否文檔字號(hào)wddata表結(jié)構(gòu):字段名數(shù)據(jù)類型可否為空說(shuō) 明Id數(shù)值否自動(dòng)編號(hào)(作為文件編 號(hào))zh文本否文檔字號(hào)lx文本否文檔類型Username文本否用戶姓名Partid文本否用戶所屬部門編號(hào)SendDate日期/時(shí)間否簽發(fā)時(shí)間ExpireDate日期/時(shí)間否過(guò)期時(shí)間Title文本否文件標(biāo)題Docfile文本否文件名Other備注可文件說(shuō)明part表結(jié)構(gòu):字段名數(shù)據(jù)類型可否為空說(shuō) 明Id數(shù)值否自動(dòng)編號(hào)（記錄號(hào)）Partid文本否部門

6、編號(hào)Partname文本否部門名稱 readlog表結(jié)構(gòu):字段名數(shù)據(jù)類型可否為空說(shuō) 明Id數(shù)值否自動(dòng)編號(hào)（記錄號(hào)）Username文本否用戶姓名Readdate日期/時(shí)間可簽閱日期Memo備注可簽閱意見(jiàn)Wdid文本否文件編號(hào)2.3各子系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)（1）用戶控件的設(shè)計(jì)與實(shí)現(xiàn)為在各功能模塊之間方便地切換，將系統(tǒng)的主要功能設(shè)計(jì)為一個(gè)用戶 控件。這樣在需要的頁(yè)面中只要加載該用戶控件即可，而不必在每個(gè)頁(yè)面中 都進(jìn)行設(shè)計(jì)。該用戶控件界面如圖所示。文件名為oamenu.ascx，內(nèi)容如下：Sub LBtnHome_Click(ByVal sender As System.Object, ByVal e A

7、s System.EventArgs)Response.Redirect(Webmain.aspx) 首 頁(yè)End SubSub LBtnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)If Session(userid) Nothing And InStr(Session(userkey), 4) 0 ThenResponse.Redirect(Send.aspx)發(fā)文處理ElseResponse.Redirect(Webmain.aspx)尚未登錄，需先到首頁(yè)登錄End IfEnd SubSub L

8、BtnReceive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)收文處理If Session(userid) Nothing And InStr(Session(userkey), 5) 0 ThenResponse.Redirect(Receiver.aspx)ElseResponse.Redirect(Webmain.aspx)尚未登錄，需先到首頁(yè)登錄End IfEnd SubSub LBtnQuery_Click(ByVal sender As System.Object, ByVal e As Sy

9、stem.EventArgs)文件查詢If Session(userid) Nothing And InStr(Session(userkey), 3”) 0 ThenResponse.Redirect(Query.aspx)ElseResponse.Redirect(Webmain.aspx)尚未登錄，需先到首頁(yè)登錄End IfEnd SubSub LBtnMgr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)系統(tǒng)維護(hù)If Session(userid) Nothing And InStr(Session(u

10、serkey), 6”) 0Then Response.Redirect(Mgr.aspx)ElseResponse.Redirect(Webmain.aspx)尚未登錄，需先到首頁(yè)登錄End IfEnd SubSub LBtnSBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)發(fā)文瀏覽If Session(userid) Nothing And InStr(Session(userkey), 1) 0Then Response.Redirect(SBrowse.aspx)ElseResponse.R

11、edirect(HWebmain.aspx)尚未登錄，需先到首頁(yè)登錄End IfEnd SubSub LBtnRBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)收文瀏覽If Session(userid) Nothing And InStr(Session(userkey), 2”) 0 Then Response.Redirect(RBrowse.aspx)ElseResponse.Redirect(Webmain.aspx)尚未登錄，需先到首頁(yè)登錄End IfEnd Sub OA 公文管理系統(tǒng)

12、首頁(yè) 發(fā)文處理 收文處理 系統(tǒng)維護(hù) 發(fā)文瀏覽 收文瀏覽 文件查詢數(shù)據(jù)庫(kù)操作文件-由于多個(gè)功能模塊都要執(zhí)行數(shù)據(jù)庫(kù)操作，因此將數(shù)據(jù)庫(kù)操作功能設(shè)計(jì)為一個(gè)共享文件 Db.inc，其內(nèi)容如下：Script Languate=VBH Runat=Server創(chuàng)建數(shù)據(jù)集對(duì)象，strSQL為SQL語(yǔ)句，F(xiàn)ileName為數(shù)據(jù)庫(kù)文件名 TableName為數(shù)據(jù)表名稱Function CreateDataSet(strSQL As String, FileName As String, TableNameAs String) As DataSetDim conn As New OleDbConnection()D

13、im cmd As New OleDbCommand() conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; DataSource= & Server.MapPath (FileName) conn.Open()cmd.Connection = conn cmd.CommandText = strSQL Dim objAdpt As New OleDbDataAdapter(cmd) Dim DS As New DataSet() objAdpt.Fill(DS9 TableName) CreateDataSet = DS con

14、n.Close()End Function （3）首頁(yè)首頁(yè)提供用戶登錄界面。當(dāng)用戶成功登錄后，用Session變量記錄其用戶信息， 包括用戶名、使用權(quán)限等。文件名為Webmain.aspx。其中，以下聲明為引用 用戶空間oamenu：首頁(yè)中還包含一個(gè)標(biāo)識(shí)為“iframeMaiilW框架，它的src屬性為L(zhǎng)ogin.aspx， 即在該框架中加載Login.aspx用戶登錄頁(yè)面。文件 Webmain.aspx 公文管理系統(tǒng) A:link COLOR: #0066cc; TEXT-DECORATION: none A:hover COLOR: #cc0000; TEXT-DECORATION: no

15、ne A:visited COLOR: #3333cc; TEXT-DECORATION: none Login.aspx 內(nèi)容： Sub IBtnLogin_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs)Dim conn As New System.Data.OleDb.OleDbConnectionDim cmd As New System.Data.OleDb.OleDbCommand conn.ConnectionString = Provider=Microsoft.

16、Jet.OLEDB.4.0; Data Source= & Server.MapPath(oadata.MDB) cmd.Connection = conn cmd.CommandText = select * from userpass where userid= & Trim(TxtID.Text) & and password= & Trim(TxtPass.Text) & conn.Open() Dim reader As OleDb.OleDbDataReader = cmd.ExecuteReader If reader.Read() Then Session(userid) =

17、Trim(reader(userid) Session(username) = Trim(reader(username) Session(userkey) = Trim(reader(userkey)Session(partid) = Trim(reader(partid) Response.Redirect(LoginSuccess.aspx)ElseSession(userid) = NothingSession(username) = Nothing Session(userkey) = Nothing Session(partid) = Nothing End If conn.Clo

18、se() End Sub Login 用戶名 碼 用戶登陸成功后，在框架iframemain中加載LoginSuccess.aspx頁(yè)面。這是一個(gè) 簡(jiǎn)單的網(wǎng)頁(yè)，僅顯示一行文字和一幅圖像，此時(shí)用戶就可使用其權(quán)限操作的功能 了。（4）發(fā)文瀏覽首先分頁(yè)列出發(fā)文的編號(hào)和發(fā)文日期，其中編號(hào)為超鏈接按鈕，當(dāng)用戶單擊某個(gè) 發(fā)文編號(hào)后，將顯示該發(fā)文的詳情，此時(shí)用戶可通過(guò)單擊“閱文”按鈕查看該發(fā)文 的全文。在文本框中可輸入反饋意見(jiàn)，單擊“提交”按鈕將用戶信息及反饋意見(jiàn)等 寫(xiě)入 readlog 表。1）DgSummary： DataGrid控件，顯示文檔摘要信息（編號(hào)和日期）。2）Dlwd： DataList控件

19、，顯示文檔詳細(xì)內(nèi)容。文件Rbrowse.aspx （略去界面部分）：Dim DS As New DataSet()Sub dgbind(ByVal SortField As String) 創(chuàng)建數(shù)據(jù)集，并與 DgSummary 綁定Dim Sql As String = Select Id,zh,SendDate,Docfile From wddata Where lx=發(fā)文DS = CreateDS(Sql,oadata.mdb,wddata) DS.Tables(wddata).DefaultView.Sort = SortField DGSummary.DataSource = DS.T

20、ables(wddata).DefaultView DGSummary.DataBind()End SubSub Page_Load(ByVal sender As Object, ByVal e As EventArgs) If Not Page.IsPostBack Then dgbind(zh) End IfEnd SubPublic Sub DGSummary_ItemCommand(ByVal sender As Object, ByVal e AsDataGridCommandEventArgs)用戶單擊發(fā)文編號(hào)的處理，在表中查詢記錄并顯示If e.CommandName = se

21、lectid ThenViewState(docfile) = e.Item.Cells(3).TextViewState(id) = e.Item.Cells(1).TextBtRead.Enabled = TrueBtOk.Enabled = TrueDim Sql As String = Select a.Title,b.Partname,a.Username,a.zh, a.SendDate, a.ExpireDate From wddata a,wdpart b Where a.partid=b.partid and a.ID = & ViewState(id)DS = Create

22、DS(Sql,oadata.mdb,wdone)Dlwd.DataSource = DS.Tables(wdone).DefaultViewDlwd.DataBind()End IfEnd SubSub DGSummary _PageIndexChanged(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs) (DataGrid控件的分頁(yè)事件處理DGSummary.CurrentPageIndex = e.NewPageIndex dgbind(zh)End SubSub DGSummary _Sort(ByVal Sender As Object, ByVal e AsDataGridSortCommandEventArgs)(DataGrid控件的排序事件處理 dgbind(E.SortExpression)End SubSub BtRead_Click(ByVal sender As Object, ByVal e As EventArgs) (單擊“閱文”按鈕Response.Redirect(ViewState(docfileH)End SubSub BtOk_Click(ByVal sender As Object, ByVal e