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

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

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

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

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

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

6、的消費(fèi)方式，不僅可以有效地緩解汽車(chē)生產(chǎn)與銷(xiāo)售之間的“瓶頸”，而且對(duì)于消費(fèi)市場(chǎng)的拓展也有不可低估的功效。國(guó)外汽車(chē)租賃業(yè)的發(fā)展就早已證明了這一點(diǎn)。汽車(chē)租賃公司的規(guī)?；?jīng)營(yíng)趨勢(shì)日益加劇通過(guò)多次并購(gòu)和特許經(jīng)營(yíng)等模式創(chuàng)新，世界主要汽車(chē)租賃公司已從最初的小規(guī)模經(jīng)營(yíng)發(fā)展成為現(xiàn)在遍布全球主要國(guó)家，平均租賃站點(diǎn)個(gè)數(shù)千個(gè)，運(yùn)營(yíng)車(chē)輛數(shù)十萬(wàn)輛，雇員數(shù)萬(wàn)人等大型跨國(guó)公司。而日趨突出的規(guī)?；?jīng)營(yíng)帶來(lái)的效益規(guī)?；侨虬l(fā)展的潮流。隨著信息網(wǎng)絡(luò)與電子商務(wù)等新技術(shù)的日益普及汽車(chē)租賃公司通過(guò)引入電子商務(wù)和互聯(lián)網(wǎng)絡(luò)，將更加快捷高效地進(jìn)行業(yè)務(wù)拓展，有效地降低管理成本，實(shí)現(xiàn)經(jīng)營(yíng)業(yè)務(wù)的持續(xù)穩(wěn)定增長(zhǎng)，從而使其自身的經(jīng)營(yíng)管理水平和競(jìng)爭(zhēng)力水平

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

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

9、某一事件，就執(zhí)行程序員在此事件中編寫(xiě)的一段代碼?！翱梢暬焙汀笆录?qū)動(dòng)”這兩個(gè)特征是visual basic進(jìn)行windows程序開(kāi)發(fā)的精髓。3.2 數(shù)據(jù)庫(kù)簡(jiǎn)介后臺(tái)數(shù)據(jù)庫(kù)選擇sql server。本系統(tǒng)的后臺(tái)數(shù)據(jù)庫(kù)使用了sql server。sql(struct query language）即結(jié)構(gòu)化查詢語(yǔ)言，它是使用關(guān)系模型的數(shù)據(jù)庫(kù)應(yīng)用語(yǔ)言，由ibm在70年代開(kāi)發(fā)出來(lái)?，F(xiàn)在sql結(jié)構(gòu)化查詢語(yǔ)言已經(jīng)成為一個(gè)工業(yè)標(biāo)準(zhǔn)，幾乎所有的數(shù)據(jù)庫(kù)都支持它的查詢，sql server更是如此。sql server服務(wù)器中，用select語(yǔ)句實(shí)現(xiàn)數(shù)據(jù)庫(kù)的查詢操作。同時(shí)，它可以使用各種子句對(duì)查詢結(jié)果進(jìn)行分組統(tǒng)計(jì)、

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

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

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

13、、類(lèi)型名稱(chēng)（typename）、享受的折扣（rate）。表4-2 會(huì)員類(lèi)型表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小idint4typenamevarchar50ratefloat84.2.3汽車(chē)類(lèi)型設(shè)置表table8 汽車(chē)類(lèi)型設(shè)置表table8用來(lái)保存汽車(chē)的基本信息。 汽車(chē)信息表包括：汽車(chē)名稱(chēng)（carname）、汽車(chē)類(lèi)型（typeid）、汽車(chē)價(jià)格（price）。表4-3 車(chē)輛信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小carnovarchar2020typeidint4carnamevarchar5050第五章 系統(tǒng)實(shí)現(xiàn)5.1 主要模塊功能說(shuō)明 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)界面，單擊“退出”彈出詢問(wèn)對(duì)話框，單擊“是”退出整個(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 客戶管理會(huì)員toolstripmenuitem_click(byval sender as system.object, byval e as system.eventargs) handles 客戶管理會(huì)員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, 詢問(wèn)) 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ù)庫(kù)的連接，運(yùn)行時(shí)在datagridview控件中顯示數(shù)據(jù)庫(kù)中表的信息，單擊“返回”按鈕返回到主界面。運(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 會(huì)員客戶信息模塊設(shè)計(jì)下圖為會(huì)員客戶信息模塊布局，雙擊“顯示”按鈕，輸入相應(yīng)代碼建立與數(shù)據(jù)庫(kù)的連接，運(yùn)行時(shí)在datagridview控件中顯示數(shù)據(jù)庫(kù)中表的信息，單

23、擊“返回”按鈕返回到主界面。運(yùn)行結(jié)果如下圖圖 5-5 會(huì)員客戶信息界面運(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 汽車(chē)類(lèi)型設(shè)置模塊設(shè)計(jì) 1.設(shè)計(jì)添加信息模塊下圖為添加信息模塊布局，在textbox控件中輸入要添加的汽車(chē)名稱(chēng)、汽車(chē)型號(hào)、汽車(chē)價(jià)格，雙擊“添加”按鈕輸入代碼，運(yùn)行時(shí)點(diǎn)擊“添加”按鈕，彈出添加成功對(duì)話框，即在相應(yīng)數(shù)據(jù)庫(kù)中成功添加信息。運(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控件中輸入要修改的汽車(chē)型號(hào)、汽車(chē)名稱(chēng)、汽車(chē)價(jià)格，雙擊“修改”按鈕輸入代碼，運(yùn)行時(shí)點(diǎn)擊“修改”按鈕，彈出對(duì)話框，即在相應(yīng)數(shù)據(jù)庫(kù)中成功修改信息。運(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(信息已修改，請(qǐng)繼續(xù)操作！) else msgbox(不存在該記錄！)

31、end if conn.close() end subend class3. 設(shè)計(jì)刪除信息模塊下圖為刪除信息模塊布局，在textbox控件中輸入要?jiǎng)h除的汽車(chē)型號(hào)、雙擊“刪除”按鈕輸入代碼，運(yùn)行時(shí)點(diǎn)擊“刪除”按鈕，彈出對(duì)話框，即在相應(yīng)數(shù)據(jù)庫(kù)中成功刪除信息。運(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ù)庫(kù)的連接，運(yùn)行時(shí)在datagridview控件中顯示數(shù)據(jù)庫(kù)中表的信息。運(yùn)行結(jié)果如下圖圖5-9 顯示信息界面運(yùn)行結(jié)果5.2 問(wèn)題分析在設(shè)計(jì)過(guò)程中較難實(shí)現(xiàn)的就是visual basic6.0與sql數(shù)據(jù)庫(kù)的連接，下面就此問(wèn)題進(jìn)行詳細(xì)分析。1. 常用的sql語(yǔ)句 select語(yǔ)句：實(shí)現(xiàn)數(shù)據(jù)查詢。 insert語(yǔ)句：插入數(shù)據(jù)。

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

35、詢結(jié)果存儲(chǔ)在本地，這些數(shù)據(jù)以“行”（記錄）為單位，返回?cái)?shù)據(jù)的集合被稱(chēng)為記錄集。recordset對(duì)象表示來(lái)自基本表或命令執(zhí)行結(jié)果的記錄全集。使用ado時(shí)，通過(guò)recordset對(duì)象可對(duì)幾乎所有數(shù)據(jù)進(jìn)行操作。字段對(duì)象field。一個(gè)記錄集行包含一個(gè)或多個(gè)字段。如果將記錄集看作二維網(wǎng)格，字段將排列起來(lái)構(gòu)成列。每一字段（列）都分別包含有名稱(chēng)、數(shù)據(jù)類(lèi)型和值的屬性。field對(duì)象代表使用普通數(shù)據(jù)類(lèi)型的數(shù)據(jù)的列。 3. 數(shù)據(jù)庫(kù)連接字符串 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ù)庫(kù)名稱(chēng)。data source 指定數(shù)據(jù)源所在的計(jì)算機(jī)地址。 4. 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)工程規(guī)劃 本程序中使用到的模塊及其內(nèi)容描述如下： const 用來(lái)管理工程中的全局常量。 dbfunc 用來(lái)管理與數(shù)據(jù)庫(kù)操作相關(guān)的函數(shù)，例如連接數(shù)據(jù)庫(kù)、斷開(kāi)與數(shù)據(jù)庫(kù)的連接等。 generalfunc 用來(lái)管理通用的用戶自定義函數(shù)。 variable 用來(lái)管理工程中的全局變量，包括全局?jǐn)?shù)組和全局對(duì)象?？偨Y(jié)與心得 通過(guò)這次的課程設(shè)計(jì)，我了解

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

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

39、力，以后的學(xué)習(xí)生活會(huì)更加愉快與輕松。附 錄源代碼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(請(qǐng)輸入正確的用戶名) 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 客戶管理會(huì)員toolstripmenuitem_click(byval sender as system.object, byval e as system.eventargs) handles 客戶管理會(huì)員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, 詢問(wèn)) 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