管理信息系統(tǒng)課程設(shè)計報告---車輛租賃管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：docx 頁數(shù)：35 大?。?33.26KB 人氣指數(shù)：12 舉報 版權(quán)申訴

管理信息系統(tǒng)課程設(shè)計報告---車輛租賃管理系統(tǒng)_第1頁

已閱讀1頁，還剩34頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、　　管理信息系統(tǒng)課程設(shè)計報告　　題目：車輛租賃管理系統(tǒng)　　姓名：　　學(xué)號：　　系別：<b

2、>　　指導(dǎo)教師： 　　二〇一一年十二月　　目錄　　第一章緒論 ………………………………………………1　　1.1 管理信息系統(tǒng)概述…………………………………………

3、…1　　第二章需求分析 …………………………………………3　　2.1 功能需求………………………………………………………3　　2.2 界面顯示需求…………………………………………………3　　第三章相關(guān)技術(shù)介紹 ……………………………………5

4、　　3.1 前臺開發(fā)工具語言……………………………………………5　　3.2 數(shù)據(jù)庫簡介……………………………………………………5　　3.3 中間層采用的技術(shù)……………………………………………6　　第四章系統(tǒng)模型構(gòu)建 ……………………………………7<p&

5、gt;　　4.1 系統(tǒng)結(jié)構(gòu)設(shè)計…………………………………………………7　　4.2 數(shù)據(jù)庫設(shè)計……………………………………………………7　　第五章系統(tǒng)實(shí)現(xiàn) …………………………………………9　　5.1 主要模塊功能說明……………………………………………9　　5.2

6、問題分析………………………………………………………20　　總結(jié)與心得 …………………………………………………23　　附錄　　源代碼 ………………………………………………………24　　參考資料 ………………………………………………

7、……32　　摘要　　管理信息系統(tǒng)（Management Information System，簡稱MIS）是一個以人為主導(dǎo)，利用計算機(jī)硬件、軟件、網(wǎng)絡(luò)通信設(shè)備以及其他辦公設(shè)備，進(jìn)行信息的收集、傳輸、加工、儲存、更新和維護(hù)，以企業(yè)戰(zhàn)略競優(yōu)、提高效益和效率為目的，支持企業(yè)的高層決策、中層控制、基層運(yùn)作的集成化的人機(jī)

8、系統(tǒng)。一個完整的MIS應(yīng)包括：輔助決策系統(tǒng)（DSS）、工業(yè)控制系統(tǒng)（CCS）、辦公自動化系統(tǒng)（OAS）以及數(shù)據(jù)庫、模型庫、方法庫、知識庫和與上級機(jī)關(guān)及外界交換信息的接口。　　隨著汽車工業(yè)的發(fā)展和汽車的普及，汽車租賃成為近年來興起的一個新興行業(yè)。使用汽車租賃管理系統(tǒng)可以規(guī)范企業(yè)的管理和經(jīng)營行為，減少企業(yè)的經(jīng)營成本，提高工作效率。　　本系統(tǒng)采用目前比較流行的

9、ADO數(shù)據(jù)訪問技術(shù)，并將每個數(shù)據(jù)庫表的字段和操作封裝到類中，從而成功地將面向?qū)ο蟮某绦蛟O(shè)計思想應(yīng)用到數(shù)據(jù)庫應(yīng)用程序設(shè)計中。這也是本系統(tǒng)的特色和優(yōu)勢。后臺數(shù)據(jù)庫使用SQL Server，前臺開發(fā)工具使用Visual Basic.net。　　關(guān)鍵詞：管理信息系統(tǒng)；汽車租賃管理；Visual Basic.net；SQL Sever　　第一章

10、緒論　　管理信息系統(tǒng)概述　　管理信息系統(tǒng)（Management Information System，簡稱MIS）是一個以人為主導(dǎo)，利用計算機(jī)硬件、軟件、網(wǎng)絡(luò)通信設(shè)備以及其他辦公設(shè)備，進(jìn)行信息的收集、傳輸、加工、儲存、更新和維護(hù)，以企業(yè)戰(zhàn)略競優(yōu)、提高效益和效率為目的，支持企業(yè)的高層決策、中層

11、控制、基層運(yùn)作的集成化的人機(jī)系統(tǒng)。　　管理信息系統(tǒng)是在數(shù)據(jù)處理系統(tǒng)上發(fā)展起來的，其特征是面向管理的一個集成系統(tǒng)，它覆蓋了整個管理系統(tǒng)，對管理信息進(jìn)行收集、傳遞、存儲和處理，是多用戶共享的系統(tǒng)，直接為基層和各管理部分服務(wù)。　　它的主要特點(diǎn)如下：　　1. 面向管理支持決策<

12、/p>　　該系統(tǒng)是管理學(xué)的思想方法、管理與決策的行為理論之后的一個重要發(fā)展，通過量化方法、預(yù)測、計劃優(yōu)化支持管理、調(diào)節(jié)和控制。為管理決策服務(wù)，必須能根據(jù)管理的需要，及時提供需要的信息，幫助決策者作出決策。　　數(shù)據(jù)的高度集中　　將組織中的數(shù)據(jù)和信息集中起來，進(jìn)行快速處理。一個中心數(shù)據(jù)庫和一個

13、計算機(jī)網(wǎng)絡(luò)系統(tǒng)已經(jīng)成為管理信息系統(tǒng)的重要標(biāo)志，MIS的處理方式是在數(shù)據(jù)庫和網(wǎng)絡(luò)基礎(chǔ)上的分布式處理。　　3. 有預(yù)測能力和控制能力　　其使用數(shù)學(xué)模型，如運(yùn)籌學(xué)模型和數(shù)理統(tǒng)計模型，來分析數(shù)據(jù)和信息，以便預(yù)測未來，提供決策支持。　　4. 人機(jī)系統(tǒng)<p&

14、gt;　　機(jī)關(guān)機(jī)器占的大部分，但人始終是管理系統(tǒng)建設(shè)的主體，它涉及到多方面的人員群體。所以管理信息系統(tǒng)也是一個人機(jī)結(jié)合的系統(tǒng)。各級管理人員既是系統(tǒng)的使用者，又是系統(tǒng)的組成部分，因此，在其開發(fā)過程中，要根據(jù)這一特點(diǎn)，正確界定人和計算機(jī)在系統(tǒng)中的地位和作用，充分發(fā)揮人和計算機(jī)各自的長處，使系統(tǒng)的整體性能達(dá)到最優(yōu)。　　需求分析 <

15、p>　　汽車租賃服務(wù)是由汽車租賃公司向那些長期或短期需要用車，但又沒有必要自備車的單位和個人有償提供車輛使用權(quán)，并限制收回的一種服務(wù)方式。汽車租賃作為一種全新的消費(fèi)方式，不僅可以有效地緩解汽車生產(chǎn)與銷售之間的“瓶頸”，而且對于消費(fèi)市場的拓展也有不可低估的功效。國外汽車租賃業(yè)的發(fā)展就早已證明了這一點(diǎn)。　　汽車租賃公司的規(guī)?；?jīng)營趨勢日益加劇——通過多次并購和特許經(jīng)營等模式創(chuàng)新，世界主要汽車租

16、賃公司已從最初的小規(guī)模經(jīng)營發(fā)展成為現(xiàn)在遍布全球主要國家，平均租賃站點(diǎn)個數(shù)千個，運(yùn)營車輛數(shù)十萬輛，雇員數(shù)萬人等大型跨國公司。而日趨突出的規(guī)?；?jīng)營帶來的效益規(guī)?；侨虬l(fā)展的潮流。　　隨著信息網(wǎng)絡(luò)與電子商務(wù)等新技術(shù)的日益普及——汽車租賃公司通過引入電子商務(wù)和互聯(lián)網(wǎng)絡(luò)，將更加快捷高效地進(jìn)行業(yè)務(wù)拓展，有效地降低管理成本，實(shí)現(xiàn)經(jīng)營業(yè)務(wù)的持續(xù)穩(wěn)定增長，從而使其自身的經(jīng)營管理水平和競爭力水平不斷提高。<

17、;/p>　　本程序根據(jù)國內(nèi)外汽車租賃行業(yè)發(fā)展的需要，針對國內(nèi)汽車租賃業(yè)信息化的發(fā)展而建設(shè)的。　　功能需求　　1. 車輛基本信息的查詢。　　2. 會員客戶信息的查詢。　　3. 汽車類型信息的添加、修改、刪除和

18、查詢。　　界面顯示需求　　1. 首先使用登錄窗體，對用戶的身份進(jìn)行認(rèn)證。　　2. 進(jìn)入主界面，用戶根據(jù)需要選擇要進(jìn)行的操作。　　3. 基本信息管理模塊可以顯示系統(tǒng)車輛的基本信息。　　4. 會員

19、客戶信息模塊可以顯示系統(tǒng)會員客戶的相關(guān)信息。　　5. 在汽車類型設(shè)置模塊中，可以對汽車類型相關(guān)信息進(jìn)行添加、修改、刪除和顯示操作。　　6. 選擇退出，可以退出整個系統(tǒng)。　　第三章相關(guān)技術(shù)介紹　　前臺開發(fā)工具語言

20、　　前臺開發(fā)工具選擇Visual Basic.net。　　Visual Basic是在Basic語言的基礎(chǔ)上發(fā)展而來的，是在Windows環(huán)境中廣泛使用的應(yīng)用程序開發(fā)工具。Visual Basic功能強(qiáng)、效率高、易學(xué)習(xí)，無論是專業(yè)人員還是非專業(yè)人員，都可以很容易的掌握Visual Basic。　　Visual Basic最大的兩個有點(diǎn)

21、是“可視化”和“事件驅(qū)動”?！翱梢暬奔础翱梢暬绦蛟O(shè)計”，是指開發(fā)圖形用戶界面的一種方法，用這種方法，程序員不用編寫大量代碼去描述界面元素的外觀和位置，只要把預(yù)先建立的界面元素用鼠標(biāo)拖放到屏幕上的適當(dāng)位置即可。“事件驅(qū)動”是指Windows應(yīng)用程序的運(yùn)行是通過事件來驅(qū)動的，用戶和系統(tǒng)觸發(fā)了某一事件，就執(zhí)行程序員在此事件中編寫的一段代碼?！翱梢暬焙汀笆录?qū)動”這兩個特征是Visual Basic進(jìn)行Windows程序開發(fā)的精髓。<

22、;/p>　　數(shù)據(jù)庫簡介　　后臺數(shù)據(jù)庫選擇SQL Server。　　本系統(tǒng)的后臺數(shù)據(jù)庫使用了SQL Server。SQL　(Struct Query Language）即結(jié)構(gòu)化查詢語言，它是使用關(guān)系模型的數(shù)據(jù)庫應(yīng)用語言，由IBM在70年代開發(fā)出來?，F(xiàn)在SQL結(jié)構(gòu)化查詢語言已經(jīng)成為一個工業(yè)標(biāo)準(zhǔn)

23、，幾乎所有的數(shù)據(jù)庫都支持它的查詢，SQL Server更是如此。　　SQL Server服務(wù)器中，用SELECT語句實(shí)現(xiàn)數(shù)據(jù)庫的查詢操作。同時，它可以使用各種子句對查詢結(jié)果進(jìn)行分組統(tǒng)計、合計、排序等操作。SELECT語句還可將查詢結(jié)果生成另一個表（臨時表或永久表）。SQL語言包含查詢、定義、操控和控制4個部分，是一種功能齊全的數(shù)據(jù)庫語言。它的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進(jìn)行溝通。</

24、p>　　SQL語言是一種優(yōu)化過的語言，包括交互式語言和嵌入式語言，其中后者是嵌入其他語言之中使用的SQL語言。SQL語言的特點(diǎn)主要包括3點(diǎn)，即非過程化、統(tǒng)一性、公共性。　　中間層采用的技術(shù)　　中間層采用ADO數(shù)據(jù)訪問技術(shù)，將對數(shù)據(jù)庫的操作以類的形式封裝<p&g

25、t;　　ActiveX Data Objects 的縮寫，提供對各種數(shù)據(jù)庫訪問的標(biāo)準(zhǔn)接口。包括的主要對象有：　　連接對象Connection。連接時必須指定要連接到的數(shù)據(jù)源以及連接所使用的用戶名和口令等信息。 　　命令對象Command?？梢酝ㄟ^已建立的連接發(fā)出命令，對數(shù)據(jù)源進(jìn)行指定的操作。 　　記錄集對象Rec

26、ordset。查詢命令可以將查詢結(jié)果存儲在本地，這些數(shù)據(jù)以“行”（記錄）為單位，返回數(shù)據(jù)的集合被稱為記錄集。 　　字段對象Field。一個記錄集行包含一個或多個字段。如果將記錄集看作二維網(wǎng)格，字段將排列起來構(gòu)成列。每一字段（列）都分別包含有名稱、數(shù)據(jù)類型和值的屬性。 　　第四章系統(tǒng)模型構(gòu)建

27、系統(tǒng)結(jié)構(gòu)設(shè)計　　圖4-1 車輛租賃系統(tǒng)結(jié)構(gòu)圖　　數(shù)據(jù)庫設(shè)計　　根據(jù)車輛租賃行業(yè)的業(yè)務(wù)量，本系統(tǒng)采用了SQL Sever數(shù)據(jù)庫。　　數(shù)據(jù)庫包含3個表，即基本信息管理表Table1、會員客戶信息表Table2、和汽車

28、類型設(shè)置表Table8。 　　4.2.1基本信息管理表Table1　　基本信息管理表Table1用來保存汽車分類。　　基本信息包括:類型編號（Id）、類型名稱（Typename）、類型描述（Decription）。　　表4-1 基本信息類型表&l

29、t;p>　　4.2.2會員客戶信息表Table2　　會員客戶信息表Table2用來保存會員的類型信息。　　會員客戶信息包括:類型編號（Id）、類型名稱（Typename）、享受的折扣（Rate）。　　表4-2 會員類型表　　4.2.3汽車類型設(shè)置表Table8&l

30、t;/p>　　汽車類型設(shè)置表Table8用來保存汽車的基本信息。　　汽車信息表包括：汽車名稱（CarName）、汽車類型（TypeId）、汽車價格（Price）。　　表4-3 車輛信息表　　第五章系統(tǒng)實(shí)現(xiàn)

31、;　　5.1 主要模塊功能說明　　5.1.1 登錄模塊及系統(tǒng)主界面設(shè)計　　1. 設(shè)計登錄窗體　　登錄窗體的界面布局如下圖　　圖5-1 登錄窗體界面布局　　登錄窗體中的控件及屬性。</p&

32、gt;　　表5-1登錄窗體控件屬性　　2. 設(shè)計主界面　　主界面的布局如下，單擊下拉菜單中的子菜單進(jìn)入相應(yīng)界面，單擊“退出”彈出詢問對話框，單擊“是”退出整個系統(tǒng)。　　圖5-2 主界面布局　　圖5-3 退出整個系

33、統(tǒng)　　在每個下拉菜單中輸入相應(yīng)代碼，實(shí)現(xiàn)系統(tǒng)功能　　Public Class Form2　　Private Sub 基本信息管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 基

34、本信息管理ToolStripMenuItem.Click　　Dim f As New Form4　　Me.Hide()　　f.Show()　　End Sub&

35、lt;/p>　　Private Sub 客戶管理會員ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 客戶管理會員ToolStripMenuItem.Click　　Dim f As New Form6<p&

36、gt;　　Me.Hide()　　f.Show()　　End Sub　　Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Obje

37、ct, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click　　Dim a As Integer　　a = MsgBox("真的要退出嗎？", 4 + 32 + 0, "詢問")　　If a = 6 T

38、hen　　End　　End If　　End Sub　　Private Sub 顯示信息ToolStripMenuItem_Click(ByVal sender

39、 As System.Object, ByVal e As System.EventArgs) Handles 顯示信息ToolStripMenuItem.Click　　Dim m1 As New Form8　　m1.Show()　　End Sub</

40、b>　　Private Sub 修改信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改信息ToolStripMenuItem.Click　　Dim m1 As New Form7<

41、;p>　　m1.Show()　　End Sub　　Private Sub 添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加Tool

42、StripMenuItem.Click　　Dim m1 As New Form3　　m1.Show()　　End Sub　　Private Sub 刪除信息ToolStripMenuItem_Cl

43、ick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 刪除信息ToolStripMenuItem.Click　　Dim m1 As New Form5　　m1.Show()<b&g

44、t;　　End Sub　　End Class　　5.1.2 基本信息管理模塊設(shè)計　　下圖為基本信息管理模塊布局，雙擊“顯示”按鈕，輸入相應(yīng)代碼建立與數(shù)據(jù)庫的連接，運(yùn)行時在DataGridView控件中顯示數(shù)據(jù)庫中表的信息，單擊“返回”按鈕返回到主界面。運(yùn)

45、行結(jié)果如下圖　　圖 5-4 基本信息管理界面運(yùn)行結(jié)果　　程序運(yùn)行代碼如下　　Imports System.Data　　Imports System.Data.SqlClient　　Public

46、 Class Form4　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click　　Dim strconn As String = "data source=ZVDPFX4AFDLGO

47、F2; initial catalog=lwn;" & "integrated security=true;"　　Dim conn As New SqlConnection(strconn)　　Dim strsel As String = "select * from TABLE1"</p

48、>　　Dim comm As New SqlCommand(strsel, conn)　　conn.Open()　　Dim da As SqlDataAdapter = New SqlDataAdapter　　da.SelectCommand = comm<

49、;p>　　Dim ds As DataSet = New DataSet　　da.Fill(ds, "stu")　　DataGridView1.DataSource = ds.Tables("stu")　　conn.Close()<p&g

50、t;　　End Sub　　Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentC

51、lick　　End Sub　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click　　Form2.Show()&l

52、t;/p>　　Me.Hide()　　End Sub　　End Class　　5.1.3 會員客戶信息模塊設(shè)計　　下圖為會員客戶信

53、息模塊布局，雙擊“顯示”按鈕，輸入相應(yīng)代碼建立與數(shù)據(jù)庫的連接，運(yùn)行時在DataGridView控件中顯示數(shù)據(jù)庫中表的信息，單擊“返回”按鈕返回到主界面。運(yùn)行結(jié)果如下圖　　圖 5-5 會員客戶信息界面運(yùn)行結(jié)果　　程序運(yùn)行代碼如下　　Imports System.Data<

54、/p>　　Imports System.Data.SqlClient　　Public Class Form6　　Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.Da

55、taGridViewCellEventArgs) Handles DataGridView1.CellContentClick　　End Sub　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

56、 Handles Button1.Click　　Dim strconn As String = "data source=ZVDPFX4AFDLGOF2; initial catalog=lwn;" & "integrated security=true;"　　Dim conn As New SqlConn

57、ection(strconn)　　Dim strsel As String = "select * from TABLE２"　　Dim comm As New SqlCommand(strsel, conn)　　conn.Open()　　Dim da

58、 As SqlDataAdapter = New SqlDataAdapter　　da.SelectCommand = comm　　Dim ds As DataSet = New DataSet　　da.Fill(ds, "stu")　　DataGri

59、dView1.DataSource = ds.Tables("stu")　　conn.Close()　　End Sub　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

60、 System.EventArgs) Handles Button2.Click　　Form2.Show()　　Me.Hide()　　End Sub　　End Class<

61、/b>　　5.1.4 汽車類型設(shè)置模塊設(shè)計 　　1.設(shè)計添加信息模塊　　下圖為添加信息模塊布局，在textbox控件中輸入要添加的汽車名稱、汽車型號、汽車價格，雙擊“添加”按鈕輸入代碼，運(yùn)行時點(diǎn)擊“添加”按鈕，彈出添加成功對話框，即在相應(yīng)數(shù)據(jù)庫中成功添加信息。運(yùn)行結(jié)果如下圖<p

62、>　　圖5-6添加信息界面運(yùn)行結(jié)果　　程序運(yùn)行代碼如下　　Imports System.Data　　Imports System.Data.SqlClient　　Public Class Form3<

63、;p>　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click　　Dim strconn As String = "data source =ZVDPFX4AFDLGOF2; initial catalog = lwn;

64、" & " integrated security =true;"　　Dim conn As New SqlConnection(strconn)　　Dim strtianjia As String = " insert into table8(carname,typeid,price)VALUES(

65、9;" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "')"　　Dim comm As New SqlCommand(strtianjia, conn)　　c

66、onn.Open()　　comm.ExecuteScalar()　　conn.Close()　　MsgBox("添加成功！")　　End Sub　　End

67、 Class　　2.設(shè)計修改信息模塊　　下圖為修改信息模塊布局，，在textbox控件中輸入要修改的汽車型號、汽車名稱、汽車價格，雙擊“修改”按鈕輸入代碼，運(yùn)行時點(diǎn)擊“修改”按鈕，彈出對話框，即在相應(yīng)數(shù)據(jù)庫中成功修改信息。運(yùn)行結(jié)果如下圖　　圖5-7修改信息界面運(yùn)行結(jié)果&

68、lt;p>　　程序運(yùn)行代碼如下　　Imports System.Data　　Imports System.Data.SqlClient　　Public Class Form7　　Private Sub Button1_Click

69、(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click　　Dim strconn As String = "data source =ZVDPFX4AFDLGOF2; initial catalog = lwn;" & " integrated se

70、curity =true;"　　Dim conn As New SqlConnection(strconn)　　Dim strXIUGAI As String = "UPDATE table8 SET carname='" + TextBox2.Text + "'" + ",

71、price='" + TextBox3.Text + "' where ｔｙｐｅid='" + TextBox1.Text + "'"　　Dim comm As New SqlCommand(strXIUGAI, conn)　　conn.Open()

72、　　If (comm.ExecuteNonQuery()) Then　　MsgBox("信息已修改，請繼續(xù)操作！")　　Else　　MsgBox("不存在該記錄！")<

73、b>　　End If　　conn.Close()　　End Sub　　End Class　　設(shè)計刪除信息模塊

74、　　下圖為刪除信息模塊布局，在textbox控件中輸入要刪除的汽車型號、雙擊“刪除”按鈕輸入代碼，運(yùn)行時點(diǎn)擊“刪除”按鈕，彈出對話框，即在相應(yīng)數(shù)據(jù)庫中成功刪除信息。運(yùn)行結(jié)果如下圖　　圖5-8 刪除信息界面運(yùn)行結(jié)果　　程序運(yùn)行代碼如下　　Imports Sys

75、tem.Data　　Imports System.Data.SqlClient　　Public Class Form5　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bu

76、tton1.Click　　Dim strconn As String = "data source=ZVDPFX4AFDLGOF2; initial catalog=lwn;" & "integrated security=true"　　Dim conn As New SqlConnection(strco

77、nn)　　Dim strdel As String = "delete from table8 where typeid='" & Trim(TextBox1.Text) & "'"　　Dim comm As New SqlCommand(strdel, conn)

78、;　　conn.Open()　　If (comm.ExecuteNonQuery()) Then　　MsgBox("記錄已刪除！")　　Else　　MsgBox("不存在該記錄！&q

79、uot;)　　End If　　End Sub　　End Class　　設(shè)計顯示信息模塊<p

80、>　　下圖為顯示信息模塊布局，雙擊“顯示”按鈕，輸入相應(yīng)代碼建立與數(shù)據(jù)庫的連接，運(yùn)行時在DataGridView控件中顯示數(shù)據(jù)庫中表的信息。運(yùn)行結(jié)果如下圖　　圖5-9 顯示信息界面運(yùn)行結(jié)果　　5.2 問題分析　　在設(shè)計過程中較難實(shí)現(xiàn)的就是Visual Basic6.0與

81、SQL數(shù)據(jù)庫的連接，下面就此問題進(jìn)行詳細(xì)分析。　　1. 常用的SQL語句　　SELECT語句：實(shí)現(xiàn)數(shù)據(jù)查詢。　　INSERT語句：插入數(shù)據(jù)。　　UPDATE：更新數(shù)據(jù)。　　DELETE：刪除數(shù)據(jù)。<p

82、>　　SELECT各子句的主要功能。　　2. ADO數(shù)據(jù)訪問技術(shù)　　ActiveX Data Objects 的縮寫，提供對各種數(shù)據(jù)庫訪問的標(biāo)準(zhǔn)接口。包括的主要對象有：　　連接對象Connection。連接時必須指定要連接到的數(shù)據(jù)源以及連接所使用的用戶名和口令等信息。Connection對象代表與數(shù)據(jù)源的連

83、接。如果是客戶端/服務(wù)器數(shù)據(jù)庫系統(tǒng)，該對象可以等價于到服務(wù)器的實(shí)際網(wǎng)絡(luò)連接。 　　命令對象Command?？梢酝ㄟ^已建立的連接發(fā)出命令，對數(shù)據(jù)源進(jìn)行指定的操作。Command對象定義了將對數(shù)據(jù)源執(zhí)行的命令。 　　記錄集對象Recordset。查詢命令可以將查詢結(jié)果存儲在本地，這些數(shù)據(jù)以“行”（記錄）為單位，返回數(shù)據(jù)的集合被稱為記錄集。Recordset

84、對象表示來自基本表或命令執(zhí)行結(jié)果的記錄全集。使用ADO時，通過Recordset對象可對幾乎所有數(shù)據(jù)進(jìn)行操作。　　字段對象Field。一個記錄集行包含一個或多個字段。如果將記錄集看作二維網(wǎng)格，字段將排列起來構(gòu)成列。每一字段（列）都分別包含有名稱、數(shù)據(jù)類型和值的屬性。Field對象代表使用普通數(shù)據(jù)類型的數(shù)據(jù)的列。 　　3. 數(shù)據(jù)庫連接字符串 </p&

85、gt;　　Public Const conn As String = "Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=Cars;Data Source=localhost;"　　Provider 數(shù)據(jù)提供者。　　User ID 用戶名。&l

86、t;/p>　　Password 用戶密碼。　　Initial Catalog 數(shù)據(jù)庫名稱。　　Data Source 指定數(shù)據(jù)源所在的計算機(jī)地址。　　4. 數(shù)據(jù)庫應(yīng)用系統(tǒng)工程規(guī)劃 　　本程序中使用到的模塊及其內(nèi)容描述如下： </p&

87、gt;　　Const 用來管理工程中的全局常量。　　DbFunc 用來管理與數(shù)據(jù)庫操作相關(guān)的函數(shù)，例如連接數(shù)據(jù)庫、斷開與數(shù)據(jù)庫的連接等。　　GeneralFunc 用來管理通用的用戶自定義函數(shù)。　　Variable 用來管理工程中的全局變量，包括全局?jǐn)?shù)組和全局對象。

88、;　　總結(jié)與心得　　通過這次的課程設(shè)計，我了解了管理信息系統(tǒng)的開發(fā)與建設(shè)過程，從總體設(shè)計，詳細(xì)設(shè)計到編碼實(shí)現(xiàn)以及運(yùn)行維護(hù)，每一個過程都需要開發(fā)人員對這項(xiàng)管理信息系統(tǒng)有一個詳細(xì)且深入的了解。在我的這個課程設(shè)計中，汽車租賃管理系統(tǒng)主要通過對汽車、人、資金的管理。對于人主要是顧客以及系統(tǒng)用戶。對于資金是指汽車租賃過程中產(chǎn)生的資金流。本系統(tǒng)技術(shù)

89、方面使用SQLServer 2000數(shù)據(jù)庫，并在Visual Basic.net中使用數(shù)據(jù)環(huán)境下通過ADO.NET命令來訪問。　　本課程設(shè)計的一個難點(diǎn)是項(xiàng)目之間的連接，即數(shù)據(jù)庫的后臺支持。在實(shí)現(xiàn)時巧妙地將信息更改與瀏覽功能統(tǒng)一實(shí)現(xiàn)，在保存數(shù)據(jù)時，利用瀏覽得到汽車租賃信息。 　　通過這次的課程設(shè)計，

90、我不僅更加深刻地理解了管理信息系統(tǒng)的理論，也能基本做到理論聯(lián)系實(shí)際。而且再一次穩(wěn)固了VB和數(shù)據(jù)庫的系統(tǒng)知識，進(jìn)一步加深了這兩個軟件的功能應(yīng)用。　　可以說這次課程設(shè)計使我更加肯定了自己的動手能力，也理解了時間才是學(xué)習(xí)的根本。理論的學(xué)習(xí)會讓人對學(xué)科產(chǎn)生反感心理，主要原因是許多理論難以理解且不切實(shí)際。在實(shí)踐的過程中才真真切切的體會到課本中理論的含義。也謝謝學(xué)校能夠給我們安排這次課程設(shè)計。</p&

91、gt;　　最后，我要感謝老師對我們的教導(dǎo)，老師總是非常耐心的回答我們的問題。而且，對于報告的規(guī)范格式我們總是很不了解，老師不厭其煩地把每一段要寫的內(nèi)容都規(guī)范出來。為的只是讓我們的設(shè)計更加完美，以后的實(shí)踐過程更加得心應(yīng)手。我相信，只要我們共同努力，以后的學(xué)習(xí)生活會更加愉快與輕松。　　附錄&l

92、t;b>　　源代碼　　Public Class Form1　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click　　Dim

93、f As New Form2　　If TextBox1.Text = "李文娜" And TextBox2.Text = "123" Then　　Me.Hide()　　f.Show()</p&

94、gt;　　Else　　MsgBox("請輸入正確的用戶名")　　End If　　End Sub　　Private S

95、ub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click　　Dim a = MsgBox("確定退出嗎？", 36)　　If a = 6 Then<

96、b>　　End　　End If　　End Sub　　End Class　　Public Class Form2

97、　　Private Sub 基本信息管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 基本信息管理ToolStripMenuItem.Click　　Dim f As New Form4<b&g

98、t;　　Me.Hide()　　f.Show()　　End Sub　　Private Sub 客戶管理會員ToolStripMenuItem_Click(ByVal sender As System.Object, By

99、Val e As System.EventArgs) Handles 客戶管理會員ToolStripMenuItem.Click　　Dim f As New Form6　　Me.Hide()　　f.Show()&l

100、t;p>　　End Sub　　Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click　　Dim a As

101、 Integer　　a = MsgBox("真的要退出嗎？", 4 + 32 + 0, "詢問")　　If a = 6 Then　　End　　End If&

102、lt;/p>　　End Sub　　Private Sub 顯示信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 顯示信息ToolStripMenuItem.Click&l

103、t;p>　　Dim m1 As New Form8　　m1.Show()　　End Sub　　Private Sub 修改信息ToolStripMenuItem_Click(ByVal sender As System.Object

104、, ByVal e As System.EventArgs) Handles 修改信息ToolStripMenuItem.Click　　Dim m1 As New Form7　　m1.Show()　　End Sub

105、　　Private Sub 添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加ToolStripMenuItem.Click　　Dim m1 As New Form3　　m1.S

106、how()　　End Sub　　Private Sub 刪除信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 刪除信息ToolStripMenuItem.Cli

107、ck　　Dim m1 As New Form5　　m1.Show()　　End Sub　　End Class　　Im

108、ports System.Data　　Imports System.Data.SqlClient　　Public Class Form3　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) H

109、andles Button1.Click　　Dim strconn As String = "data source =ZVDPFX4AFDLGOF2; initial catalog = lwn;" & " integrated security =true;"　　Dim conn As New SqlC

110、onnection(strconn)　　Dim strtianjia As String = " insert into table8(carname,typeid,price)VALUES('" + TextBox1.Text + "','" + TextBox2.Text + "','" +

111、TextBox3.Text + "')"　　Dim comm As New SqlCommand(strtianjia, conn)　　conn.Open()　　comm.ExecuteScalar()　　conn.Close()</p&

112、gt;　　MsgBox("添加成功！")　　End Sub　　End Class　　Imports System.Data　　Imports System

113、.Data.SqlClient　　Public Class Form4　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click　　Dim strconn

114、 As String = "data source=ZVDPFX4AFDLGOF2; initial catalog=lwn;" & "integrated security=true;"　　Dim conn As New SqlConnection(strconn)　　Dim strsel As Stri

115、ng = "select * from TABLE1"　　Dim comm As New SqlCommand(strsel, conn)　　conn.Open()　　Dim da As SqlDataAdapter = New SqlDataAdapter<p

116、>　　da.SelectCommand = comm　　Dim ds As DataSet = New DataSet　　da.Fill(ds, "stu")　　DataGridView1.DataSource = ds.Tables("stu")

117、　　conn.Close()　　End Sub　　Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellE

118、ventArgs) Handles DataGridView1.CellContentClick　　End Sub　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button

119、2.Click　　Form2.Show()　　Me.Hide()　　End Sub　　End Class　　Impo

120、rts System.Data　　Imports System.Data.SqlClient　　Public Class Form5　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Han

121、dles Button1.Click　　Dim strconn As String = "data source=ZVDPFX4AFDLGOF2; initial catalog=lwn;" & "integrated security=true"　　Dim conn As New SqlConnectio

122、n(strconn)　　Dim strdel As String = "delete from table8 where typeid='" & Trim(TextBox1.Text) & "'"　　Dim comm As New SqlCommand(strdel, conn)&l

123、t;/p>　　conn.Open()　　If (comm.ExecuteNonQuery()) Then　　MsgBox("記錄已刪除！")　　Else　　MsgBox("不存

124、在該記錄！")　　End If　　End Sub　　End Class　　Imports System.Data<p&

125、gt;　　Imports System.Data.SqlClient　　Public Class Form6　　Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCell

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

管理信息系統(tǒng)課程設(shè)計報告---車輛租賃管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

管理信息系統(tǒng)課程設(shè)計報告---車輛租賃管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載