管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告車輛租賃管理系統(tǒng)

1、管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告題目： 車輛租賃管理系統(tǒng)姓名：學(xué)號： 系別：指導(dǎo)教師： 二一一年十二月目 錄第一章 緒 論 11.1 管理信息系統(tǒng)概述1第二章 需求分析 3 2.1 功能需求3 2.2 界面顯示需求3第三章 相關(guān)技術(shù)介紹 5 3.1 前臺開發(fā)工具語言5 3.2 數(shù)據(jù)庫簡介5 3.3 中間層采用的技術(shù)6第四章 系統(tǒng)模型構(gòu)建 7 4.1 系統(tǒng)結(jié)構(gòu)設(shè)計(jì)7 4.2 數(shù)據(jù)庫設(shè)計(jì)7第五章 系統(tǒng)實(shí)現(xiàn) 9 5.1 主要模塊功能說明9 5.2 問題分析20總結(jié)與心得 23附 錄源代碼 24參考資料 32摘 要管理信息系統(tǒng)（management information system，簡稱mis）是一個(gè)以人

2、為主導(dǎo)，利用計(jì)算機(jī)硬件、軟件、網(wǎng)絡(luò)通信設(shè)備以及其他辦公設(shè)備，進(jìn)行信息的收集、傳輸、加工、儲存、更新和維護(hù)，以企業(yè)戰(zhàn)略競優(yōu)、提高效益和效率為目的，支持企業(yè)的高層決策、中層控制、基層運(yùn)作的集成化的人機(jī)系統(tǒng)。一個(gè)完整的mis應(yīng)包括：輔助決策系統(tǒng)（dss）、工業(yè)控制系統(tǒng)（ccs）、辦公自動化系統(tǒng)（oas）以及數(shù)據(jù)庫、模型庫、方法庫、知識庫和與上級機(jī)關(guān)及外界交換信息的接口。隨著汽車工業(yè)的發(fā)展和汽車的普及，汽車租賃成為近年來興起的一個(gè)新興行業(yè)。使用汽車租賃管理系統(tǒng)可以規(guī)范企業(yè)的管理和經(jīng)營行為，減少企業(yè)的經(jīng)營成本，提高工作效率。本系統(tǒng)采用目前比較流行的ado數(shù)據(jù)訪問技術(shù)，并將每個(gè)數(shù)據(jù)庫表的字段和操作封裝到類

3、中，從而成功地將面向?qū)ο蟮某绦蛟O(shè)計(jì)思想應(yīng)用到數(shù)據(jù)庫應(yīng)用程序設(shè)計(jì)中。這也是本系統(tǒng)的特色和優(yōu)勢。后臺數(shù)據(jù)庫使用sql server，前臺開發(fā)工具使用visual b。關(guān)鍵詞：管理信息系統(tǒng)；汽車租賃管理；visual b；sql sever第一章 緒 論1.1 管理信息系統(tǒng)概述管理信息系統(tǒng)（management information system，簡稱mis）是一個(gè)以人為主導(dǎo)，利用計(jì)算機(jī)硬件、軟件、網(wǎng)絡(luò)通信設(shè)備以及其他辦公設(shè)備，進(jìn)行信息的收集、傳輸、加工、儲存、更新和維護(hù)，以企業(yè)戰(zhàn)略競優(yōu)、提高效益和效率為目的，支持企業(yè)的高層決策、中層控制、基層運(yùn)作的集成化的人機(jī)系統(tǒng)

4、。管理信息系統(tǒng)是在數(shù)據(jù)處理系統(tǒng)上發(fā)展起來的，其特征是面向管理的一個(gè)集成系統(tǒng)，它覆蓋了整個(gè)管理系統(tǒng)，對管理信息進(jìn)行收集、傳遞、存儲和處理，是多用戶共享的系統(tǒng)，直接為基層和各管理部分服務(wù)。它的主要特點(diǎn)如下：1. 面向管理支持決策 該系統(tǒng)是管理學(xué)的思想方法、管理與決策的行為理論之后的一個(gè)重要發(fā)展，通過量化方法、預(yù)測、計(jì)劃優(yōu)化支持管理、調(diào)節(jié)和控制。為管理決策服務(wù)，必須能根據(jù)管理的需要，及時(shí)提供需要的信息，幫助決策者作出決策。2. 數(shù)據(jù)的高度集中將組織中的數(shù)據(jù)和信息集中起來，進(jìn)行快速處理。一個(gè)中心數(shù)據(jù)庫和一個(gè)計(jì)算機(jī)網(wǎng)絡(luò)系統(tǒng)已經(jīng)成為管理信息系統(tǒng)的重要標(biāo)志，mis的處理方式是在數(shù)據(jù)庫和網(wǎng)絡(luò)基礎(chǔ)上的分布式處理

5、。3. 有預(yù)測能力和控制能力其使用數(shù)學(xué)模型，如運(yùn)籌學(xué)模型和數(shù)理統(tǒng)計(jì)模型，來分析數(shù)據(jù)和信息，以便預(yù)測未來，提供決策支持。4. 人機(jī)系統(tǒng)機(jī)關(guān)機(jī)器占的大部分，但人始終是管理系統(tǒng)建設(shè)的主體，它涉及到多方面的人員群體。所以管理信息系統(tǒng)也是一個(gè)人機(jī)結(jié)合的系統(tǒng)。各級管理人員既是系統(tǒng)的使用者，又是系統(tǒng)的組成部分，因此，在其開發(fā)過程中，要根據(jù)這一特點(diǎn)，正確界定人和計(jì)算機(jī)在系統(tǒng)中的地位和作用，充分發(fā)揮人和計(jì)算機(jī)各自的長處，使系統(tǒng)的整體性能達(dá)到最優(yōu)。第二章 需求分析 汽車租賃服務(wù)是由汽車租賃公司向那些長期或短期需要用車，但又沒有必要自備車的單位和個(gè)人有償提供車輛使用權(quán)，并限制收回的一種服務(wù)方式。汽車租賃作為一種全新

6、的消費(fèi)方式，不僅可以有效地緩解汽車生產(chǎn)與銷售之間的“瓶頸”，而且對于消費(fèi)市場的拓展也有不可低估的功效。國外汽車租賃業(yè)的發(fā)展就早已證明了這一點(diǎn)。汽車租賃公司的規(guī)?；?jīng)營趨勢日益加劇通過多次并購和特許經(jīng)營等模式創(chuàng)新，世界主要汽車租賃公司已從最初的小規(guī)模經(jīng)營發(fā)展成為現(xiàn)在遍布全球主要國家，平均租賃站點(diǎn)個(gè)數(shù)千個(gè)，運(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)營管理水平和競爭力水平

7、不斷提高。本程序根據(jù)國內(nèi)外汽車租賃行業(yè)發(fā)展的需要，針對國內(nèi)汽車租賃業(yè)信息化的發(fā)展而建設(shè)的。2.1 功能需求1. 車輛基本信息的查詢。2. 會員客戶信息的查詢。3. 汽車類型信息的添加、修改、刪除和查詢。2.2 界面顯示需求1. 首先使用登錄窗體，對用戶的身份進(jìn)行認(rèn)證。2. 進(jìn)入主界面，用戶根據(jù)需要選擇要進(jìn)行的操作。3. 基本信息管理模塊可以顯示系統(tǒng)車輛的基本信息。4. 會員客戶信息模塊可以顯示系統(tǒng)會員客戶的相關(guān)信息。5. 在汽車類型設(shè)置模塊中，可以對汽車類型相關(guān)信息進(jìn)行添加、修改、刪除和顯示操作。6. 選擇退出，可以退出整個(gè)系統(tǒng)。第三章 相關(guān)技術(shù)介紹3.1 前臺開發(fā)工具語言前臺開發(fā)工具選擇vi

8、sual b。 visual basic是在basic語言的基礎(chǔ)上發(fā)展而來的，是在windows環(huán)境中廣泛使用的應(yīng)用程序開發(fā)工具。visual basic功能強(qiáng)、效率高、易學(xué)習(xí)，無論是專業(yè)人員還是非專業(yè)人員，都可以很容易的掌握visual basic。 visual basic最大的兩個(gè)有點(diǎn)是“可視化”和“事件驅(qū)動”?！翱梢暬奔础翱梢暬绦蛟O(shè)計(jì)”，是指開發(fā)圖形用戶界面的一種方法，用這種方法，程序員不用編寫大量代碼去描述界面元素的外觀和位置，只要把預(yù)先建立的界面元素用鼠標(biāo)拖放到屏幕上的適當(dāng)位置即可。“事件驅(qū)動”是指windows應(yīng)用程序的運(yùn)行是通過事件來驅(qū)動的，用戶和系統(tǒng)觸發(fā)了

9、某一事件，就執(zhí)行程序員在此事件中編寫的一段代碼?！翱梢暬焙汀笆录?qū)動”這兩個(gè)特征是visual basic進(jìn)行windows程序開發(fā)的精髓。3.2 數(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)成為一個(gè)工業(yè)標(biāo)準(zhǔn)，幾乎所有的數(shù)據(jù)庫都支持它的查詢，sql server更是如此。sql server服務(wù)器中，用select語句實(shí)現(xiàn)數(shù)據(jù)庫的查詢操作。同時(shí)，它可以使用各種子句對查詢結(jié)果進(jìn)行分組統(tǒng)計(jì)、

10、合計(jì)、排序等操作。select語句還可將查詢結(jié)果生成另一個(gè)表（臨時(shí)表或永久表）。sql語言包含查詢、定義、操控和控制4個(gè)部分，是一種功能齊全的數(shù)據(jù)庫語言。它的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進(jìn)行溝通。 sql語言是一種優(yōu)化過的語言，包括交互式語言和嵌入式語言，其中后者是嵌入其他語言之中使用的sql語言。sql語言的特點(diǎn)主要包括3點(diǎn)，即非過程化、統(tǒng)一性、公共性。3.3 中間層采用的技術(shù) 中間層采用ado數(shù)據(jù)訪問技術(shù)，將對數(shù)據(jù)庫的操作以類的形式封裝 activex data objects 的縮寫，提供對各種數(shù)據(jù)庫訪問的標(biāo)準(zhǔn)接口。包括的主要對象有： 連接對象connection。連接時(shí)必須指定要

11、連接到的數(shù)據(jù)源以及連接所使用的用戶名和口令等信息。 命令對象command?？梢酝ㄟ^已建立的連接發(fā)出命令，對數(shù)據(jù)源進(jìn)行指定的操作。 記錄集對象recordset。查詢命令可以將查詢結(jié)果存儲在本地，這些數(shù)據(jù)以“行”（記錄）為單位，返回?cái)?shù)據(jù)的集合被稱為記錄集。 字段對象field。一個(gè)記錄集行包含一個(gè)或多個(gè)字段。如果將記錄集看作二維網(wǎng)格，字段將排列起來構(gòu)成列。每一字段（列）都分別包含有名稱、數(shù)據(jù)類型和值的屬性。 第四章 系統(tǒng)模型構(gòu)建4.1 系統(tǒng)結(jié)構(gòu)設(shè)計(jì)車輛租賃管理系統(tǒng)基本信息管理會員客戶信息汽車類型設(shè)置退出添加信息修改信息刪除信息顯示信息圖4-1 車輛租賃系統(tǒng)結(jié)構(gòu)圖4.2 數(shù)據(jù)庫設(shè)計(jì) 根據(jù)車輛租賃

12、行業(yè)的業(yè)務(wù)量，本系統(tǒng)采用了sql sever數(shù)據(jù)庫。 數(shù)據(jù)庫包含3個(gè)表，即基本信息管理表table1、會員客戶信息表table2、和汽車類型設(shè)置表table8。 4.2.1基本信息管理表table1 基本信息管理表table1用來保存汽車分類?；拘畔?類型編號（id）、類型名稱（typename）、類型描述（decription）。表4-1 基本信息類型表字段名稱數(shù)據(jù)類型字段大小idint4typenamevarchar50decriptionvarchar100 4.2.2會員客戶信息表table2 會員客戶信息表table2用來保存會員的類型信息。 會員客戶信息包括:類型編號（id）

13、、類型名稱（typename）、享受的折扣（rate）。表4-2 會員類型表字段名稱數(shù)據(jù)類型字段大小idint4typenamevarchar50ratefloat84.2.3汽車類型設(shè)置表table8 汽車類型設(shè)置表table8用來保存汽車的基本信息。 汽車信息表包括：汽車名稱（carname）、汽車類型（typeid）、汽車價(jià)格（price）。表4-3 車輛信息表字段名稱數(shù)據(jù)類型字段大小carnovarchar2020typeidint4carnamevarchar5050第五章 系統(tǒng)實(shí)現(xiàn)5.1 主要模塊功能說明 5.1.1 登錄模塊及系統(tǒng)主界面設(shè)計(jì) 1. 設(shè)計(jì)登錄窗體登錄窗體的界面布局如

14、下圖圖5-1 登錄窗體界面布局登錄窗體中的控件及屬性。表5-1登錄窗體控件屬性控件屬性屬性值label1caption用戶名label2caption密碼txtusertext空txtpwdtext空passwordchar*cmd_cancelcaption取消cmd_okcaption確定2. 設(shè)計(jì)主界面主界面的布局如下，單擊下拉菜單中的子菜單進(jìn)入相應(yīng)界面，單擊“退出”彈出詢問對話框，單擊“是”退出整個(gè)系統(tǒng)。圖5-2 主界面布局圖5-3 退出整個(gè)系統(tǒng)在每個(gè)下拉菜單中輸入相應(yīng)代碼，實(shí)現(xiàn)系統(tǒng)功能public class form2 private sub 基本信息管理toolstripmenu

15、item_click(byval sender as system.object, byval e as system.eventargs) handles 基本信息管理toolstripmenuitem.click dim f as new form4 me.hide() f.show() end sub private sub 客戶管理會員toolstripmenuitem_click(byval sender as system.object, byval e as system.eventargs) handles 客戶管理會員toolstripmenuitem.click dim f

16、 as new form6 me.hide() f.show() end sub private sub 退出toolstripmenuitem_click(byval sender as system.object, byval e as system.eventargs) handles 退出toolstripmenuitem.click dim a as integer a = msgbox(真的要退出嗎？, 4 + 32 + 0, 詢問) if a = 6 then end end if end sub private sub 顯示信息toolstripmenuitem_click(b

17、yval sender as system.object, byval e as system.eventargs) handles 顯示信息toolstripmenuitem.click dim m1 as new form8 m1.show() end sub private sub 修改信息toolstripmenuitem_click(byval sender as system.object, byval e as system.eventargs) handles 修改信息toolstripmenuitem.click dim m1 as new form7 m1.show() e

18、nd sub private sub 添加toolstripmenuitem_click(byval sender as system.object, byval e as system.eventargs) handles 添加toolstripmenuitem.click dim m1 as new form3 m1.show() end sub private sub 刪除信息toolstripmenuitem_click(byval sender as system.object, byval e as system.eventargs) handles 刪除信息toolstripme

19、nuitem.click dim m1 as new form5 m1.show() end subend class5.1.2 基本信息管理模塊設(shè)計(jì)下圖為基本信息管理模塊布局，雙擊“顯示”按鈕，輸入相應(yīng)代碼建立與數(shù)據(jù)庫的連接，運(yùn)行時(shí)在datagridview控件中顯示數(shù)據(jù)庫中表的信息，單擊“返回”按鈕返回到主界面。運(yùn)行結(jié)果如下圖圖 5-4 基本信息管理界面運(yùn)行結(jié)果程序運(yùn)行代碼如下imports system.dataimports system.data.sqlclientpublic class form4 private sub button1_click(byval sender as

20、 system.object, byval e as system.eventargs) handles button1.click dim strconn as string = data source=zvdpfx4afdlgof2; initial catalog=lwn; & integrated security=true; dim conn as new sqlconnection(strconn) dim strsel as string = select * from table1 dim comm as new sqlcommand(strsel, conn) conn.op

21、en() dim da as sqldataadapter = new sqldataadapter da.selectcommand = comm dim ds as dataset = new dataset da.fill(ds, stu) datagridview1.datasource = ds.tables(stu) conn.close() end sub private sub datagridview1_cellcontentclick(byval sender as system.object, byval e as system.windows.forms.datagri

22、dviewcelleventargs) handles datagridview1.cellcontentclick end sub private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.click form2.show() me.hide() end subend class5.1.3 會員客戶信息模塊設(shè)計(jì)下圖為會員客戶信息模塊布局，雙擊“顯示”按鈕，輸入相應(yīng)代碼建立與數(shù)據(jù)庫的連接，運(yùn)行時(shí)在datagridview控件中顯示數(shù)據(jù)庫中表的信息，單

23、擊“返回”按鈕返回到主界面。運(yùn)行結(jié)果如下圖圖 5-5 會員客戶信息界面運(yùn)行結(jié)果程序運(yùn)行代碼如下imports system.dataimports system.data.sqlclientpublic class form6 private sub datagridview1_cellcontentclick(byval sender as system.object, byval e as system.windows.forms.datagridviewcelleventargs) handles datagridview1.cellcontentclick end sub privat

24、e 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; & integrated security=true; dim conn as new sqlconnection(strconn) dim strsel as string = select * from table dim comm as ne

25、w sqlcommand(strsel, conn) conn.open() dim da as sqldataadapter = new sqldataadapter da.selectcommand = comm dim ds as dataset = new dataset da.fill(ds, stu) datagridview1.datasource = ds.tables(stu) conn.close() end sub private sub button2_click(byval sender as system.object, byval e as system.even

26、targs) handles button2.click form2.show() me.hide() end subend class5.1.4 汽車類型設(shè)置模塊設(shè)計(jì) 1.設(shè)計(jì)添加信息模塊下圖為添加信息模塊布局，在textbox控件中輸入要添加的汽車名稱、汽車型號、汽車價(jià)格，雙擊“添加”按鈕輸入代碼，運(yùn)行時(shí)點(diǎn)擊“添加”按鈕，彈出添加成功對話框，即在相應(yīng)數(shù)據(jù)庫中成功添加信息。運(yùn)行結(jié)果如下圖圖5-6添加信息界面運(yùn)行結(jié)果程序運(yùn)行代碼如下imports system.dataimports system.data.sqlclientpublic class form3 private sub but

27、ton1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click dim strconn as string = data source =zvdpfx4afdlgof2; initial catalog = lwn; & integrated security =true; dim conn as new sqlconnection(strconn) dim strtianjia as string = insert into table8(carname,typeid,p

28、rice)values( + textbox1.text + , + textbox2.text + , + textbox3.text + ) dim comm as new sqlcommand(strtianjia, conn) conn.open() comm.executescalar() conn.close() msgbox(添加成功！) end subend class2.設(shè)計(jì)修改信息模塊下圖為修改信息模塊布局，在textbox控件中輸入要修改的汽車型號、汽車名稱、汽車價(jià)格，雙擊“修改”按鈕輸入代碼，運(yùn)行時(shí)點(diǎn)擊“修改”按鈕，彈出對話框，即在相應(yīng)數(shù)據(jù)庫中成功修改信息。運(yùn)行結(jié)果如下

29、圖圖5-7修改信息界面運(yùn)行結(jié)果程序運(yùn)行代碼如下imports system.dataimports system.data.sqlclientpublic class form7 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; & integrated security =tr

30、ue; dim conn as new sqlconnection(strconn) dim strxiugai as string = update table8 set carname= + textbox2.text + + ,price= + textbox3.text + where id= + textbox1.text + dim comm as new sqlcommand(strxiugai, conn) conn.open() if (comm.executenonquery() then msgbox(信息已修改，請繼續(xù)操作！) else msgbox(不存在該記錄！)

31、end if conn.close() end subend class3. 設(shè)計(jì)刪除信息模塊下圖為刪除信息模塊布局，在textbox控件中輸入要?jiǎng)h除的汽車型號、雙擊“刪除”按鈕輸入代碼，運(yùn)行時(shí)點(diǎn)擊“刪除”按鈕，彈出對話框，即在相應(yīng)數(shù)據(jù)庫中成功刪除信息。運(yùn)行結(jié)果如下圖圖5-8 刪除信息界面運(yùn)行結(jié)果程序運(yùn)行代碼如下imports system.dataimports system.data.sqlclientpublic class form5 private sub button1_click(byval sender as system.object, byval e as system.e

32、ventargs) handles button1.click dim strconn as string = data source=zvdpfx4afdlgof2; initial catalog=lwn; & integrated security=true dim conn as new sqlconnection(strconn) dim strdel as string = delete from table8 where typeid= & trim(textbox1.text) & dim comm as new sqlcommand(strdel, conn) conn.op

33、en() if (comm.executenonquery() then msgbox(記錄已刪除！) else msgbox(不存在該記錄！) end if end subend class4. 設(shè)計(jì)顯示信息模塊 下圖為顯示信息模塊布局，雙擊“顯示”按鈕，輸入相應(yīng)代碼建立與數(shù)據(jù)庫的連接，運(yùn)行時(shí)在datagridview控件中顯示數(shù)據(jù)庫中表的信息。運(yùn)行結(jié)果如下圖圖5-9 顯示信息界面運(yùn)行結(jié)果5.2 問題分析在設(shè)計(jì)過程中較難實(shí)現(xiàn)的就是visual basic6.0與sql數(shù)據(jù)庫的連接，下面就此問題進(jìn)行詳細(xì)分析。1. 常用的sql語句 select語句：實(shí)現(xiàn)數(shù)據(jù)查詢。 insert語句：插入數(shù)據(jù)。

34、 update：更新數(shù)據(jù)。 delete：刪除數(shù)據(jù)。 select各子句的主要功能。 2. ado數(shù)據(jù)訪問技術(shù) activex data objects 的縮寫，提供對各種數(shù)據(jù)庫訪問的標(biāo)準(zhǔn)接口。包括的主要對象有： 連接對象connection。連接時(shí)必須指定要連接到的數(shù)據(jù)源以及連接所使用的用戶名和口令等信息。connection對象代表與數(shù)據(jù)源的連接。如果是客戶端/服務(wù)器數(shù)據(jù)庫系統(tǒng)，該對象可以等價(jià)于到服務(wù)器的實(shí)際網(wǎng)絡(luò)連接。 命令對象command?？梢酝ㄟ^已建立的連接發(fā)出命令，對數(shù)據(jù)源進(jìn)行指定的操作。command對象定義了將對數(shù)據(jù)源執(zhí)行的命令。 記錄集對象recordset。查詢命令可以將查

35、詢結(jié)果存儲在本地，這些數(shù)據(jù)以“行”（記錄）為單位，返回?cái)?shù)據(jù)的集合被稱為記錄集。recordset對象表示來自基本表或命令執(zhí)行結(jié)果的記錄全集。使用ado時(shí)，通過recordset對象可對幾乎所有數(shù)據(jù)進(jìn)行操作。字段對象field。一個(gè)記錄集行包含一個(gè)或多個(gè)字段。如果將記錄集看作二維網(wǎng)格，字段將排列起來構(gòu)成列。每一字段（列）都分別包含有名稱、數(shù)據(jù)類型和值的屬性。field對象代表使用普通數(shù)據(jù)類型的數(shù)據(jù)的列。 3. 數(shù)據(jù)庫連接字符串 public const conn as string = provider=sqloledb.1;password=sa;user id=sa;initial cata

36、log=cars;data source=localhost;provider 數(shù)據(jù)提供者。user id 用戶名。password 用戶密碼。initial catalog 數(shù)據(jù)庫名稱。data source 指定數(shù)據(jù)源所在的計(jì)算機(jī)地址。 4. 數(shù)據(jù)庫應(yīng)用系統(tǒng)工程規(guī)劃 本程序中使用到的模塊及其內(nèi)容描述如下： const 用來管理工程中的全局常量。 dbfunc 用來管理與數(shù)據(jù)庫操作相關(guān)的函數(shù)，例如連接數(shù)據(jù)庫、斷開與數(shù)據(jù)庫的連接等。 generalfunc 用來管理通用的用戶自定義函數(shù)。 variable 用來管理工程中的全局變量，包括全局?jǐn)?shù)組和全局對象?？偨Y(jié)與心得 通過這次的課程設(shè)計(jì)，我了解

37、了管理信息系統(tǒng)的開發(fā)與建設(shè)過程，從總體設(shè)計(jì)，詳細(xì)設(shè)計(jì)到編碼實(shí)現(xiàn)以及運(yùn)行維護(hù)，每一個(gè)過程都需要開發(fā)人員對這項(xiàng)管理信息系統(tǒng)有一個(gè)詳細(xì)且深入的了解。在我的這個(gè)課程設(shè)計(jì)中，汽車租賃管理系統(tǒng)主要通過對汽車、人、資金的管理。對于人主要是顧客以及系統(tǒng)用戶。對于資金是指汽車租賃過程中產(chǎn)生的資金流。本系統(tǒng)技術(shù)方面使用sqlserver 2000數(shù)據(jù)庫，并在visual b中使用數(shù)據(jù)環(huán)境下通過ado.net命令來訪問。 本課程設(shè)計(jì)的一個(gè)難點(diǎn)是項(xiàng)目之間的連接，即數(shù)據(jù)庫的后臺支持。在實(shí)現(xiàn)時(shí)巧妙地將信息更改與瀏覽功能統(tǒng)一實(shí)現(xiàn)，在保存數(shù)據(jù)時(shí)，利用瀏覽得到汽車租賃信息。 通過這次的課程設(shè)計(jì)，我不僅更加深刻地

38、理解了管理信息系統(tǒng)的理論，也能基本做到理論聯(lián)系實(shí)際。而且再一次穩(wěn)固了vb和數(shù)據(jù)庫的系統(tǒng)知識，進(jìn)一步加深了這兩個(gè)軟件的功能應(yīng)用。 可以說這次課程設(shè)計(jì)使我更加肯定了自己的動手能力，也理解了時(shí)間才是學(xué)習(xí)的根本。理論的學(xué)習(xí)會讓人對學(xué)科產(chǎn)生反感心理，主要原因是許多理論難以理解且不切實(shí)際。在實(shí)踐的過程中才真真切切的體會到課本中理論的含義。也謝謝學(xué)校能夠給我們安排這次課程設(shè)計(jì)。 最后，我要感謝老師對我們的教導(dǎo)，老師總是非常耐心的回答我們的問題。而且，對于報(bào)告的規(guī)范格式我們總是很不了解，老師不厭其煩地把每一段要寫的內(nèi)容都規(guī)范出來。為的只是讓我們的設(shè)計(jì)更加完美，以后的實(shí)踐過程更加得心應(yīng)手。我相信，只要我們共同努

39、力，以后的學(xué)習(xí)生活會更加愉快與輕松。附 錄源代碼public class form1 private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click dim f as new form2 if textbox1.text = 李文娜 and textbox2.text = 123 then me.hide() f.show() else msgbox(請輸入正確的用戶名) end if end sub private sub button2_c

40、lick(byval sender as system.object, byval e as system.eventargs) handles button2.click dim a = msgbox(確定退出嗎？, 36) if a = 6 then end end if end subend classpublic class form2 private sub 基本信息管理toolstripmenuitem_click(byval sender as system.object, byval e as system.eventargs) handles 基本信息管理toolstripm

41、enuitem.click dim f as new form4 me.hide() f.show() end sub private sub 客戶管理會員toolstripmenuitem_click(byval sender as system.object, byval e as system.eventargs) handles 客戶管理會員toolstripmenuitem.click dim f as new form6 me.hide() f.show() end sub private sub 退出toolstripmenuitem_click(byval sender as

42、system.object, byval e as system.eventargs) handles 退出toolstripmenuitem.click dim a as integer a = msgbox(真的要退出嗎？, 4 + 32 + 0, 詢問) if a = 6 then end end if end sub private sub 顯示信息toolstripmenuitem_click(byval sender as system.object, byval e as system.eventargs) handles 顯示信息toolstripmenuitem.click

43、dim m1 as new form8 m1.show() end sub private sub 修改信息toolstripmenuitem_click(byval sender as system.object, byval e as system.eventargs) handles 修改信息toolstripmenuitem.click dim m1 as new form7 m1.show() end sub private sub 添加toolstripmenuitem_click(byval sender as system.object, byval e as system.e

44、ventargs) handles 添加toolstripmenuitem.click dim m1 as new form3 m1.show() end sub private sub 刪除信息toolstripmenuitem_click(byval sender as system.object, byval e as system.eventargs) handles 刪除信息toolstripmenuitem.click dim m1 as new form5 m1.show() end subend classimports system.dataimports system.da

45、ta.sqlclientpublic class form3 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; & integrated security =true; dim conn as new sqlconnection(strconn) dim strtianjia a

46、s string = insert into table8(carname,typeid,price)values( + textbox1.text + , + textbox2.text + , + textbox3.text + ) dim comm as new sqlcommand(strtianjia, conn) conn.open() comm.executescalar() conn.close() msgbox(添加成功！) end subend classimports system.dataimports system.data.sqlclientpublic class

47、 form4 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; & integrated security=true; dim conn as new sqlconnection(strconn) dim strsel as string = select * from table1

48、dim comm as new sqlcommand(strsel, conn) conn.open() dim da as sqldataadapter = new sqldataadapter da.selectcommand = comm dim ds as dataset = new dataset da.fill(ds, stu) datagridview1.datasource = ds.tables(stu) conn.close() end sub private sub datagridview1_cellcontentclick(byval sender as system

49、.object, byval e as system.windows.forms.datagridviewcelleventargs) handles datagridview1.cellcontentclick end sub private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.click form2.show() me.hide() end subend classimports system.dataimports system.data.sqlclientpublic class form5 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; & integrated security=true dim conn as new sqlconnection(strconn) d