1、新聞(xnwn)管理系統設計東 北 石 油 大 學課 程 設 計 2015年 12月 4日 數據庫課程設計 題 目： 院 系： 專業(zhuny)班級： 學生(xu sheng)姓名: 學生(xu sheng)學號: 指導教師: 一、主要內容 開發一個新聞管理系統。設計并實現這樣一個系統主要是鍛煉學生采用面向對象方法、靈活使用數據庫開發軟件的能力。 二、基本要求 系統主要有以下功能首頁、新聞基本信息管理模塊、新聞類別管理模塊、退出模塊。新聞基本信息管理模塊包含新聞標題、新聞內容、發布新聞的日期,新聞類別管理模塊包含類別編號、類別名稱。除了實現上述功能以外,新聞管理系統還要具有界面友好、簡潔,安

2、全性高,穩定性強的特點。 三、主要(zhyo)參考資料 1 丁貴廣閆允一孟繁杰.ASP及ASP.NET編程基礎(jch)與實例.第二版.北京機械(jxi)工業出版社200414-79. 2 張景峰.ASP程序設計及應用.第一版.北京中國水利水電出版社200536-147. 3 楊志姝馮小飛等.ASP+SQL Server基礎練習+典型案例M.北京清華大學出版社2006.8. 完成期限 19-20周 指導教師 專業(zhuny)負責人 目 錄第1章 系統分析 1 1.1 開發(kif)背景 1 1.2 系統需求(xqi)分析 1 1.3 開發環境 2 第2章 系統設計 3 2.1 系統架構 3

3、2.2 系統功能模塊 3 2.3 系統數據庫設計 5 第3章 系統實現 7 3.1 新聞管理系統登錄頁面 7 3.2 新聞管理主界面 8 3.3 添加新聞界面 9 3.4 分類管理界面 10 3.4 會員管理界面 12 第4章 系統(xtng)測試 14 第5章 結束語 15 參考文獻 16 1 第1章 系統分析 1.1 開發(kif)背景 21世紀是信息的時代是網絡(wnglu)的時代進入信息社會高速發展的時代數字化革命給所有領域帶來新的改變。隨著Internet的普及無論人們相隔多么遙遠都有天涯若比鄰的感覺。足不出戶便可知天下新近之大事便可與大洋彼岸的朋友暢談無阻。網頁逐漸融入人們的生活快

4、速及時地瀏覽新聞獲取五彩繽紛 的網上信息(xnx)已成為(chngwi)人們日常生活的一部分與此同時越來越多的企業建立(jinl)了自己的Web網站企業通過網站可以展示產品發布最新動態與用戶進行交流和溝通與合作伙伴建立聯系以及開展電子商務等?；ヂ摼W的世界里蘊藏著無限生機這里只有想不到的、沒有做不到的。網絡發展前景無限及早與網絡結合與信息時代同步與高科技匯合定會給社會各行各業的發展注入新鮮的活力。在網絡技術的領域里傳統的商務網站的管理方式有兩種一是靜態HTML頁面更新信息時需要重新制作頁面然后上傳頁面并修改相應鏈接然而隨著Internet的進一步發展,這種靜態(jngti)Web站點的開發與維護

5、變得越來越困難而且(r qi)不能與瀏覽者進行(jnxng)有效交互從而使得這種方法已不多用。二是基于ASP、PHP1或者JSP和腳本語言將動態網頁和數據庫結合通過應用程序來處理信息這是目前較為流行的做法。本文論述的就是采用A +Visual Studio 2005 + SqlServer開發環境開發動態的Web網絡新聞發布系統。 1.2 系統需求分析 隨著信息化產業逐漸進入各行各業并成為整個國民經濟的基礎對實行信息化必須有一個明確的方向這也是客不容緩的事。新聞信息作為當前信息化的重要組成部分而新聞管理作為新聞信息中的一個重要環節必須同信息化同步以促使整個(zhngg)國民經濟和新聞事業的發展

6、。 本系統(xtng)功能模塊包括新聞(xnwn)管理新聞分類管理會員管理添加新聞模塊。數據的操作主要是數據添加、數據修改、數據查詢。 我做的“后臺管理”窗體實現的功能如下 一、“新聞管理”窗體是對新聞添加、修改、刪除通過數據庫綁定控件實現對息直接的增、刪、改。 二、“分類管理”窗體實現的功能是對新聞的分類進行管理。 三、“會員管理”是對后臺的用戶進行管理用戶信息的修改、添加、刪除。 東北石油大學本科生課程設計 四、“添加新聞”窗體實現的功能是添加新聞。 1.3 開發環境 數據庫是數據管理的最新技術是計算機科學的重要分支。十年來數據庫管理系統已從專用(zhunyng)的應用程序包發展成為通用系

7、統軟件。由于數據庫具有數據的結構化、可控冗余度、較高的程序與數據獨立性、易于擴充(kuchng)、易于編制應用程序 等優點(yudin)較大的信息系統都是建立在數據庫設計之上的。 由于用到的數據表格多另外考慮到實際情況如學生基本信息的變動我們選用SQL Server作為數據庫開發而不用Access,主要是因為Access存放的記錄在實際運用中不適合此系統而SQL Server是一種常用的關系數據庫能存 放和讀取大量的數據管理眾多并發的用戶故選用SQL Server數據庫。 用VB語言進行編碼。VB 編程語言是微軟在.NET計劃中重要的開發語言它具有語法簡單功能強大快速應用語言自由強大的Web服

8、務器控件支持跨平臺與XML相融合等。因此(ync)選擇VB編程語言。 ASP.NET是Active Server Page.NET Framework的縮寫(suxi)意為“基于(jy)動態WEB應用程序的技術服務器網頁”2。ASP. NET是微軟公司開發的代替ASP的一種應用,它可以與數據庫和其它程序進行交互是一種方便功能強大的編程工具。ASP. NET的網頁文件的格式是.aspx現在常用于各種動態網站中。 ASP.net是一服務器端腳本編寫環境可以用來創建和運行動態網頁或Web應用程序。ASP.net網頁可以包含HTML標記、普通文本、腳本命令、.css、以及COM組件等。利用ASP.NE

9、T可以向網頁中添加交互式內容如在線表單也可以創建使用HTML網頁作為用戶界面(yn h ji min)的Web應用程序。 與HTML相比ASP.NET網頁(wn y)具有以下特點 1利用(lyng)ASP.NET可以實現突破靜態網頁的一些功能限制實現動態網頁技術 2ASP文件是包含在HTML代碼所組成的文件中的易于修改和測試 3服務器上的ASP.NET解釋程序會在服務器端制定ASP程序并將結果以HTML格式傳送到客戶端瀏覽器上因此使用各種瀏覽器都可以正常瀏覽ASP所產生的網頁3 4ASP.NET提供了一些內置對象使用這些對象可以使服務器端腳本功能更強。例如可以從Web瀏覽器中獲取用戶通過HTM

10、L表單提交的信息并在腳本中對這些(zhxi)信息進行處理然后(rnhu)向Web瀏覽器發送信息 5ASP可以使用(shyng)服務器端ActiveX組建來執行各種各樣的任務例如存取數據庫、發現那個Email或訪問文件系統等。 東北石油大學本科生課程設計 3 第2章 系統設計 2.1 系統架構 整個系統分為兩個部分管理員和主界面。管理員進入管理系統后應該能根據自己的需要進行新聞的管理。 本系統是以Windows XP系統為操作平臺在.NET環境下編程實現。 2.2 系統功能模塊 架構分析與設計系統采用B/S模式5。功能模塊如下 2-1 系統(xtng)E-R圖 管理 添加(tin ji)新聞 會

11、員(huyun)管理 分類管理 管理員 姓名 性別 密碼 ID 修改(xigi)資料 新聞(xnwn) 4 圖2-2 系統(xtng)功能模塊圖 各模塊介紹如下 管理員模塊主要包括新聞管理新聞分類管理會員管理添加新聞模塊修改管理員資料等。 新聞管理。包括發布新聞信息、編輯新聞信息、對過期信息刪除等。 新聞類型管理。包括添加新聞類型、編輯新聞類型以及刪除新聞類型。 添加新聞。包括(boku)添加最新的新聞的操作。 用戶管理。包括(boku)更改用戶的密碼以及刪除用戶的所有信息。 新聞管理用例圖 圖 2-3管理員用例圖 分類管理 添加(tin ji)新聞 新聞管理 管理員 后臺 管理 新聞管理 分

12、類(fn li)管理 會員(huyun)管理 添加(tin ji)新聞 修改資料 東北石油大學本科生課程設計 5 2.3 系統數據庫設計 綜合以上(yshng)分析要實現(shxin)上面的所有功能模塊需要建立(jinl)以下的表4 1管理員表admin用于存儲管理員的信息。 2會員表users用于存儲會員的信息名稱密碼等信息。 3新聞信息表news用于存儲新聞編號、類別標題等信息。 4新聞類別classes用于存儲新聞編號名稱信息。 5新聞評論表review存儲訪問者的對相關新聞的評論信息。 表2-1會員信息表 字段名 字段類型 字段長度 字段說明 id 自動編號 長整型 會員編號 name

13、 文本 50 會員名稱 pwd 文本 50 會員密碼 email 文本(wnbn) 50 會員郵箱 type 數字 長整型 會員(huyun)級別 表2-2管理員信息表 字段名 字段類型(lixng) 字段長度 字段說明 id 自動編號 長整型 管理員自動編號 username 文本 50 管理員姓名 password 文本 50 管理員密碼 email 文本 50 管理員郵箱 表2-3 新聞信息表 字段名 字段類型 字段長度 字段說明 NewsId 自動編號 長整型 新聞編號 ClassId 數字 長整型 新聞類別 Title 文本 50 新聞標題 Author 文本(wnbn) 50 新聞

14、作者 Original 文本 50 新聞(xnwn)出處 UpdateTime 日期/時間 新聞(xnwn)更新時間 Content 備注 新聞內容 6 表2-4 新聞欄目表 字段名 字段類型 字段長度 字段說明 Classesid 自動編號 長整型 新聞類別編號 classesname text 50 新聞類別名稱 表2-5 新聞評論表 字段名 字段類型 字段長度 字段說明 ReViewID 自動(zdng)編號 長整型 新聞評論自動編號 NewsID 數字(shz) 長整型 新聞編號 ReViewTitle 文本(wnbn) 50 評論標題 Content 備注 評論內容 Author 文

15、本 50 評論會員 Email 文本 50 評論會員郵箱 東北石油大學本科生課程設計 7 第3章 系統實現 3.1 新聞管理系統登錄頁面 當以管理員身份登錄時出現如下界面。輸入用戶名和密碼當與數據庫中的內容相匹配時既可登錄。 圖 3-1 登錄界面 代碼(di m)如下 Dim i As Integer For i = 0 To ds.Tables(login).Rows.Count - 1 If username.Text = ds.Tables(login).Rows(i)(0).ToString().Trim() And password.Text = ds.Tables(login).R

16、ows(i)(1).ToString().Trim() Then Response.Redirect(news.aspx) Else Response.Write(alert(該用戶名或密碼(m m)錯誤) End If Next 東北(dngbi)石油大學本科生課程設計 8 3.2 新聞管理(gunl)主界面 圖3-2 新聞管理主頁面 主要代碼如下 Sub bind() Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial

17、 Catalog=shun;Data Source=.) Dim cmd As New OleDbCommand(select * from newsinfo, conn) Dim ds As New DataSet Dim adp As New OleDbDataAdapter(cmd) adp.Fill(ds, newsinfo) addgridview.DataSource = ds.Tables(newsinfo).DefaultView addgridview.DataBind() End Sub Protected Sub addgridview_PageIndexChanging

18、(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles addgridview.PageIndexChanging addgridview.PageIndex = e.NewPageIndex 東北(dngbi)石油大學本科生課程設計 9 bind() End Sub 3.3 添加新聞(xnwn)界面 單擊添加新聞按鈕既可進入添加新聞界面在文本框中輸入(shr)相應內容單擊添加(tin ji)按鈕既可添加一條新聞。 圖3-3 添加(tin ji)新聞界面圖 主要代碼

19、(di m)如下 Dim strsql As String strsql = insert into newsinfo(title,author,original,class,content,updatatime) values( & title.Text & , & author.Text & , & original.Text & , & class11.SelectedValue & , & content.Text & , & DateTime.Now() & ) Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrate

20、d Security=SSPI;Persist Security Info=False;Initial Catalog=shun;Data Source=.) Dim cmd As New OleDbCommand(strsql, conn) conn.Open() If cmd.ExecuteNonQuery() Then Label1.Text = 添加成功 End If conn.Close() 東北石油大學本科生課程設計 10 3.4 分類管理界面 單擊分類管理按鈕既可進入分類管理界面在分類添加中輸入相應內容單擊添加(tin ji)按鈕既可添加一種分類。 圖 3-4 分類管理界面(ji

21、min)圖 主要(zhyo)代碼如下 Sub bind() Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=shun;Data Source=.) Dim cmd As New OleDbCommand(select * from class, conn) Dim ds As New DataSet Dim adp As New OleDbDataAdapter(cmd) adp.Fill(ds, cl

22、ass) classgridview.DataSource = ds.Tables(class).DefaultView classgridview.DataBind() End Sub Protected Sub classgridview_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles classgridview.RowDeleting Dim strsql As String strsql = delete from clas

23、s where classid = + classgridview.DataKeys(e.RowIndex).Value.ToString.Trim 東北(dngbi)石油大學本科生課程設計 11 Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=shun;Data Source=.) Dim cmd As New OleDbCommand(strsql, conn) conn.Open() cmd.Ex

24、ecuteNonQuery() conn.Close() classgridview.EditIndex = -1 bind() End Sub Protected Sub classgridview_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles classgridview.RowUpdating Dim strclassname, strsql1 As String strclassname = CType(classgridv

25、iew.Rows(e.RowIndex).Cells(1).Controls(0), TextBox).Text.ToString().Trim() strsql1 = update class set classname = & strclassname & where classid = & CInt(classgridview.DataKeys(e.RowIndex).Value.ToString) Dim conn As OleDbConnection = New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;

26、Persist Security Info=False;Initial Catalog=shun;Data Source=.) Dim cmd As OleDbCommand = New OleDbCommand(strsql1, conn) conn.Open() cmd.ExecuteNonQuery() conn.Close() classgridview.EditIndex = -1 bind() End Sub Protected Sub classgridview_RowCancelingEdit(ByVal sender As Object, ByVal e As System.

27、Web.UI.WebControls.GridViewCancelEditEventArgs) Handles classgridview.RowCancelingEdit classgridview.EditIndex = -1 bind() End Sub 東北(dngbi)石油大學本科生課程設計 12 Protected Sub classgridview_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles classgr

28、idview.PageIndexChanging classgridview.PageIndex = e.NewPageIndex bind() End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Dim strsql As String strsql = insert into class(classname) values( & TextBox1.Text & ) Dim conn As New OleDbConnecti

29、on(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=shun;Data Source=.) Dim cmd As New OleDbCommand(strsql, conn) conn.Open() cmd.ExecuteNonQuery() conn.Close() bind() End Sub 3.4 會員管理(gunl)界面 單擊會員管理按鈕既可進入會員管理界面在此頁面可以對會員(huyun)的相應信息進行(jnxng)管理。 圖 3-4 會員管理界面圖 東

30、北石油大學本科生課程設計 13 主要代碼如下 Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating Dim strname, strpwd, stremail, strtype, strsql1 As String strname = CType(GridView1.Rows(e.RowIndex).Cells(1).Controls(0), Te

31、xtBox).Text.ToString().Trim() strpwd = CType(GridView1.Rows(e.RowIndex).Cells(2).Controls(0), TextBox).Text.ToString().Trim() stremail = CType(GridView1.Rows(e.RowIndex).Cells(3).Controls(0), TextBox).Text.ToString().Trim() strtype = CType(GridView1.Rows(e.RowIndex).Cells(4).Controls(0), TextBox).Te

32、xt.ToString().Trim() strsql1 = update users set name = & strname & , pwd = & strpwd & , email = & stremail & , type = & strtype & where id = + GridView1.DataKeys(e.RowIndex).Value.ToString() Dim conn As OleDbConnection = New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Securi

33、ty Info=False;Initial Catalog=shun;Data Source=.) Dim cmd As OleDbCommand = New OleDbCommand(strsql1, conn) conn.Open() cmd.ExecuteNonQuery() conn.Close() GridView1.EditIndex = -1 bind() End Sub Sub bind() Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security

34、Info=False;Initial Catalog=shun;Data Source=.) Dim cmd As New OleDbCommand(select * from users, conn) Dim ds As New DataSet Dim adp As New OleDbDataAdapter(cmd) adp.Fill(ds, users) GridView1.DataSource = ds.Tables(users).DefaultView GridView1.DataBind() End Sub東北(dngbi)石油大學本科生課程設計 14 第4章 系統測試(csh) 登

35、錄測試打開(d ki)該系統網站輸入用戶名密碼進入管理員界面作為系統管理員其有新聞后臺管理區內的所有權限有添加和管理新聞分類、添加和管理設置。添加新聞測試在添加新聞時可以添加新聞標題、新聞內容、新聞作者和新聞簡介。管理新聞功能包括對任一條新聞內容可作相應修改也可刪除任何一條不再需要保留的新聞。管理新聞分類包括對新聞分類名稱作修改也可將任一分類名刪除刪除后其分類下的所有新聞也將被刪除。添加用戶時可為管理員管理用戶包括修改用戶名、密碼和用戶等級也可將任一用戶刪除。分類管理測試單擊分類管理按鈕既可進入分類管理界面在分類添加中輸入相應內容單擊添加按鈕既可添加一種分類。也可同時對分類進行管理如編輯更新刪

36、除等。會員管理測試單擊會員管理按鈕既可進入會員管理界面在此頁面可以對會員的相應信息進行管理。對會員進行管理如編輯更新刪除等。經測試系統運行正常但細微之處仍需改進。 15 第5章 結束語經過老師耐心細致的指導及同學們的相互幫助同時翻閱了大量的資料(包括網上資料(zlio)書本(shbn)及學校的一些相關(xinggun)資料)經過近兩周時間的努力我終于完成了該系統。在整個系統開發和設計過程中我綜合使用了目前因特網上的各種靜態制作方法及交互式動態網站的制作設計手段。同時也從中學習了對靜態頁面的處理風格色彩搭配頁面導航方面有了一定經驗。對用SqlServer數據庫有了更進一步的認識。在交互式網頁設計學會了動態的對數據庫瀏覽修改添加刪除查詢等操作。 通過這次新聞管理系統的設計我拓寬了知識面培養我們綜合運用所學知識,發現提出,分析和解決實際問題的能力,鍛煉實踐動手能力的重要環節通過理論與實際(shj)的結合、人與人的溝通進一步提高思想覺悟尤其是觀察(gunch)、分析和解決問題的實際(shj)工作的能力。 在設計的過程中遇到過很多的問題可以說得是困難重重同時在設