車輛信息管理系統(tǒng)-報(bào)告(數(shù)據(jù)庫、C)

1、數(shù)據(jù)庫原理及應(yīng)用課程設(shè)計(jì)設(shè)計(jì)題目：班 級(jí): 姓 名:學(xué) 號(hào): 指導(dǎo)教師:成 績(jī):公司車隊(duì)/輛信息管理系統(tǒng)*2014年5月目錄1、 摘要 22、 需求分析 21、課程設(shè)計(jì)任務(wù) 22、功能描述 33、 概要設(shè)計(jì) 31、功能模塊圖 42、實(shí)體圖 53、數(shù)據(jù)項(xiàng) 64、系統(tǒng)用戶管理圖 75、數(shù)據(jù)流圖 84、 調(diào)試測(cè)試 91、數(shù)據(jù)庫演示92、程序各功能演示10五、代碼（重要部分）141、登錄152、車輛查詢163、車輛信息管理174、刪除用戶185、添加用戶20一、摘要本次課程設(shè)計(jì)報(bào)告主要論述了公司車隊(duì)信息管理系統(tǒng)的分析、設(shè)計(jì)與開發(fā),并在此基礎(chǔ)上對(duì)其在 Windows平臺(tái)上的實(shí)現(xiàn)做了一定程度的研究。公司車

2、隊(duì)信息 管理系統(tǒng)是運(yùn)用在公司部門的系統(tǒng)工具，方便公司車隊(duì)管理部門工作人員的工 作，該系統(tǒng)主要根據(jù)公司車隊(duì)的特點(diǎn)建立的，主要是記錄和查詢駕駛員信息、機(jī)動(dòng)車信息。本次課程設(shè)計(jì)報(bào)告結(jié)合工程項(xiàng)目, 具體論述了機(jī)動(dòng)車駕駛員管理系統(tǒng)、機(jī)動(dòng)車登記系統(tǒng)的需求分析, 其中包括實(shí)體關(guān)系圖、功能結(jié)構(gòu)圖以及數(shù)據(jù)流程圖的分析和描述。然后 , 報(bào)告著重討論了車隊(duì)駕駛員管理系統(tǒng)、車輛登記系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì), 文中詳細(xì)論述了駕駛證管理系統(tǒng)數(shù)據(jù)庫實(shí)現(xiàn)的各個(gè)步驟。并討論了車輛/駕駛員信息管理系統(tǒng)在J2EE平臺(tái)上的具體實(shí)現(xiàn)及其部署。最后，此報(bào)告對(duì)本次系統(tǒng)開發(fā)中遇到的幾個(gè)關(guān)鍵問題進(jìn)行了詳細(xì)的闡述。包括駕駛證管理系統(tǒng)和機(jī)動(dòng)車登記系統(tǒng)與其

3、他系統(tǒng)的接口設(shè)計(jì)，IBM Websphere應(yīng)用服務(wù)器的安全策略及系 統(tǒng)訪問控制方法的實(shí)現(xiàn)，以及基于PC服務(wù)器平臺(tái)windows操作系統(tǒng)上Access數(shù) 據(jù)庫的性能優(yōu)化問題。關(guān)鍵詞：公司車隊(duì)信息管理系統(tǒng)、Access 數(shù)據(jù)庫、 Java二、需求分析1、 課程設(shè)計(jì)任務(wù)出于經(jīng)濟(jì)方面的考慮，很多公司都會(huì)選擇擁有自己的車隊(duì)而不是租賃車輛。因此，公司需要有效的管理車隊(duì)尤其是規(guī)模較大的車隊(duì)，車隊(duì)信息管理系統(tǒng)就是運(yùn)用在公司的系統(tǒng)工具。該系統(tǒng)是根據(jù)公司的特點(diǎn)建立的，主要是記錄和查詢駕駛員信息、機(jī)動(dòng)車信息。早期的公司的車隊(duì)信息主要是人工記錄和人工管理的，不僅不容易記錄，而且還不容易保存，耗時(shí)費(fèi)力效果不佳。隨著市

4、場(chǎng)經(jīng)濟(jì)的不斷發(fā)展，交通道路環(huán)境的不斷改善，人口流動(dòng)量不斷增加，人們的出行愈加頻繁，車站信息量迅猛增長(zhǎng)，車輛方面的信息管理系統(tǒng)在人們的日常生活中發(fā)揮著越來越重要的作用。此次的車隊(duì)信息管理系統(tǒng)實(shí)現(xiàn)了機(jī)動(dòng)車輛駕駛員信息的管理，機(jī)動(dòng)車信息的增加、刪除、修改、查詢，以滿足人們的需求。車隊(duì)信息管理系統(tǒng)主要分為三大部分：駕駛員信息管理、機(jī)動(dòng)車信息管理和 車輛信息查詢駕駛員信息管理： 此功能主要面向管理員。管理員可以在駕駛員信息管理模塊實(shí)現(xiàn)對(duì)駕駛員信息的管理。管理員首先應(yīng)該建立駕駛員信息數(shù)據(jù)庫，輸入原始的數(shù)據(jù)信息，當(dāng)有 新的駕駛員信息的時(shí)候或者管理員需要修改某個(gè)駕駛員的相關(guān)信息以及想要?jiǎng)h 除某個(gè)駕駛員信息的時(shí)

5、候，就可以完成相應(yīng)的操作。管理員也可以在整個(gè)數(shù)據(jù)庫 中查尋相關(guān)駕駛員信息。機(jī)動(dòng)車信息管理： 此功能主要面向管理員。管理員可以在機(jī)動(dòng)車信息管理模塊實(shí)現(xiàn)對(duì)機(jī)動(dòng)車信息的管理。管理員首先應(yīng)該建立機(jī)動(dòng)車信息數(shù)據(jù)庫，輸入原始的數(shù)據(jù)信息，當(dāng)有 新的機(jī)動(dòng)車信息的時(shí)候或者管理員需要修改某個(gè)機(jī)動(dòng)車的相關(guān)信息以及想以在 整個(gè)數(shù)據(jù)庫中查尋相關(guān)機(jī)動(dòng)車信息。車輛信息查詢： 此功能面向公司所有職員。公司職員可以查詢公司車隊(duì)中的車輛信息，以用 于預(yù)訂車輛進(jìn)行商務(wù)活動(dòng)。2、 功能描述程序分為登陸界面，選擇界面，線路信息界面，機(jī)動(dòng)車輛信息界面，車票信息這幾個(gè)主體界面。使用時(shí)應(yīng)先知道管理員帳號(hào)和密碼，登陸進(jìn)入系統(tǒng)主菜單界面， 里面

6、包括汽車信息、退出程序菜單選項(xiàng)，所需時(shí)間等?？梢詫?duì)它們進(jìn)行添加查詢，刪除。需要特別說明的是，當(dāng)對(duì)數(shù)據(jù)進(jìn)行操作時(shí)，在查詢框內(nèi)輸入提示數(shù)據(jù)內(nèi)容，對(duì)話框的表中和提示欄中都會(huì)出現(xiàn)所查詢的數(shù)據(jù)，我們可以在提示欄中對(duì)數(shù)據(jù)進(jìn)行刪除和修改操作。在Java中利用ODB昉問技術(shù)操作數(shù)據(jù)庫，建立到數(shù)據(jù)庫中的映射類，在對(duì) 話框類中通過引用映射類完成對(duì)數(shù)據(jù)庫的操作。三、概要設(shè)計(jì)1、功能模塊圖車隊(duì)信息管理系統(tǒng)駛 員 信 息 查數(shù)據(jù)查詢車輛信息查駕駛員信息維護(hù)2、實(shí)體圖3、數(shù)據(jù)項(xiàng)表1：高級(jí)用戶數(shù)據(jù)表屬性名存儲(chǔ)代碼長(zhǎng)度備注用戶編號(hào)用戶編號(hào)char10用戶編號(hào)用戶姓名用戶姓名varchar20用戶登錄名密碼密碼一varchar

7、5登錄密碼一用戶等級(jí)用戶等級(jí)char5登陸者等級(jí)表2:普通用戶數(shù)據(jù)表屬性名存儲(chǔ)代碼長(zhǎng)度備注用戶編號(hào)用戶編號(hào)char10用戶編號(hào)用戶姓名用戶姓名varchar20用戶登錄名密碼密碼varchar5登錄密碼1用戶登記用戶等級(jí)char5登陸者等級(jí)表3:駕駛員數(shù)據(jù)表屬性名存儲(chǔ)代碼長(zhǎng)度備注姓名姓名char20車主姓名車牌車牌號(hào)碼varchar10車輛牌號(hào)性別車主性別char5車主性別籍貫籍貫char10車主籍貫表4:車輛數(shù)據(jù)表屬性名存儲(chǔ)代碼四長(zhǎng)度備注車牌char10車輛牌號(hào)車主車主varchar20車輛型號(hào)車型車型char5駕駛員車色車色char5車輛顏色發(fā)動(dòng)機(jī)方發(fā)動(dòng)機(jī)char3車輛購買時(shí)間裝載人數(shù)裝載

8、人數(shù)int載人數(shù)表5:車輛情況數(shù)據(jù)表屬性名存儲(chǔ)代碼長(zhǎng)度備注車牌車牌char10車輛牌號(hào)車主車主varchar20車主姓名外出時(shí)間車輛外出時(shí)間datetime車輛外出時(shí)間回歸時(shí)間車輛回歸時(shí)間datetime車輛回歸時(shí)間4、系統(tǒng)用戶管理圖5、數(shù)據(jù)流圖管理員表公司職員表管理員，言息職員信息駕駛員數(shù)據(jù)表密碼錯(cuò)誤管理員用戶名密碼身份驗(yàn)證用戶名密碼管理員信息 驗(yàn)證成功系統(tǒng)管理公司職員職員信息查詢車驗(yàn)證成功*隊(duì)信息車輛數(shù)據(jù)表管理車隊(duì)信息駕駛員數(shù)據(jù)表車輛數(shù)據(jù)表四、調(diào)試測(cè)試1) 、數(shù)據(jù)庫演示2)程序各模塊演示五、代碼（重要部分）1、登錄Public Class 登陸Dim s As Integer = 3Dim

9、 sqlstr As StringPrivate Sub Button2_Click（ ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Button2.ClickIf MessageBox.Show（" 你 確 定 是 否 退 出 登 錄 界 面 ？", " 提 示 ", MessageBoxButtons.YesNo,MessageBoxIcon.Question） = Windows.Forms.DialogResult.Yes ThenEndEnd IfEnd

10、SubPrivate Sub Button1_Click（ ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Button1.ClickTextBox1.Focus（）If TextBox1.Text <> "" And TextBox2.Text = "" ThenMessageBox.Show（"密碼不能為空!"，"提示"）ElseIf TextBox1.Text = "" And TextBo

11、x2.Text <> "" ThenMessageBox.Show（"用戶名不能為空！"，"提示"）ElseIf TextBox1.Text = "" And TextBox2.Text = "" ThenMessageBox.Show（"用戶名和密碼不能為空！"，"提示"）ElseCall DBopen（）sqlstr = "Select * From 高級(jí)用戶登陸表Where 姓名 ='" & TextB

12、ox1.Text & "' And 密碼 = '" &TextBox2.Text & "'"Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)Dim dr As SqlClient.SqlDataReaderdr = sqlcmd.ExecuteReaderIf dr.Read = True Thendr.Close()登錄提示.Show()TextBox1.Text = ""TextBo

13、x2.Text = ""Me.Visible = FalseCall DBclose()ElseCall DBopen()sqlstr = "Select * From 普通用戶登陸表Where 姓名 ='" & TextBox1.Text & "' And 密碼 = '"& TextBox2.Text & "'"Dim sqlcmd1 As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr,

14、 conn)Dim dr1 As SqlClient.SqlDataReaderdr1 = sqlcmd1.ExecuteReaderIf dr1.Read = True Then登錄提示.Show()TextBox1.Text = ""TextBox2.Text = ""Me .Visible = Falsedr1.Close()Call DBclose()ElseIf s <> 0 ThenMessageBox.Show(" 輸 入 信 息 有 誤 ！", " 提 示 ", MessageBoxBu

15、ttons.OKCancel,MessageBoxIcon.Information)TextBox1.Text = ""TextBox2.Text = ""ElseIf MessageBox.Show(" 用 戶 和 密 碼 輸 入 錯(cuò) 誤 次 數(shù) 過 多 ！", " 提 示 ") =Windows.Forms.DialogResult.OK ThenEndEnd IfEnd IfEnd IfEnd IfEnd SubEnd Class2、車輛查詢Imports System.Data.SqlClientPubli

16、c Class 車輛查詢Private ta As New DataTablePrivate 車牌 As IntegerPrivate Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()End SubPrivate Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim cl

17、As New DataSetDim da As SqlDataAdapterDim str As StringIf TextBox1.Text <> "" ThenCall DBopen() '打開數(shù)據(jù)庫str = "select * from 車輛信息表where 車牌 ='" & TextBox1.Text & "'"da = New SqlDataAdapter(str, conn)da.Fill(cl, "車輛信息表" ) '將查詢的內(nèi)容填充到數(shù)據(jù)

18、集中DataGridView1.DataSource = cl.Tables( "車輛信息表" )'獲取數(shù)據(jù)源DataGridView1.CurrentCell = NothingDim i As IntegerFor i = 1 To DataGridView1.RowCount'將每一行的數(shù)據(jù)顯現(xiàn)出來DataGridView1.Rows(i - 1).HeaderCell.Value = i.ToStringNextta = cl.Tables("車輛信息表")與表的內(nèi)容顯示出來Call DBclose() '關(guān)閉數(shù)據(jù)庫If

19、DataGridViewI.RowCount = 1 Then'datagridview 為空情況MessageBox.Show("對(duì)不起，沒有符合彳查找的內(nèi)容！"，"顯示")TextBox1.Text = ""TextBox1.Focus()End IfElseMessageBox.Show（"請(qǐng)輸入要查找的車牌號(hào)！"，"提示"）TextBox1.Text = ""TextBox1.Focus()End IfEnd SubEnd Class3、車輛信息管理Impor

20、ts System.Data.SqlClientPublic Class 車輛查詢Private ta As New DataTablePrivate 車牌 As IntegerHandlesHandlesPrivate Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Button2.ClickMe.Close()End SubPrivate Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.Event

21、Args)Button1.ClickDim cl As New DataSetDim da As SqlDataAdapterDim str As StringIf TextBox1.Text <> "" ThenCall DBopen() '打開數(shù)據(jù)庫str = "select * from 車輛信息表where 車牌 ='" & TextBox1.Text & "'"da = New SqlDataAdapter(str, conn)da.Fill(cl, "車輛信息表

22、" ) '將查詢的內(nèi)容填充到數(shù)據(jù)集中DataGridView1.DataSource = cl.Tables( "車輛信息表" )'獲取數(shù)據(jù)源DataGridView1.CurrentCell = NothingDim i As IntegerFor i = 1 To DataGridView1.RowCount'將每一行的數(shù)據(jù)顯現(xiàn)出來DataGridView1.Rows(i - 1).HeaderCell.Value = i.ToStringNextta = cl.Tables("車輛信息表")與表的內(nèi)容顯示出來Cal

23、l DBclose() '關(guān)閉數(shù)據(jù)庫If DataGridViewI.RowCount = 1 Then'datagridview 為空情況MessageBox.Show("對(duì)不起，沒有符合彳查找的內(nèi)容！"，"顯示")TextBox1.Text = ""TextBox1.Focus()End IfElseMessageBox.Show( "請(qǐng)輸入要查找的車牌號(hào)！", "提示" )TextBox1.Text = ""TextBox1.Focus()End IfE

24、nd SubEnd Class4、刪除用戶Imports System.Data.SqlClientImports System.DataPublic Class 刪除用戶Private Sub ListView1_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChangedCall DBopen()Dim index As IntegerDim selectITem As StringDim sel As Stri

25、ngDim dr As SqlDataReaderIf ListView1.SelectedItems.Count > 0 Then'判斷有沒有被選中的項(xiàng)index = ListView1.SelectedItems(0).IndexselectITem = ListView1.SelectedItems(0).Textsel = "select * from 普通用戶登陸表where 姓名 = '" & selectITem & "'"Dim cmdname As New SqlClient.SqlComm

26、and(sel, conn)dr = cmdname.ExecuteReaderIf dr.HasRows Thendr.Read()TextBox1.Text = dr( "姓名 ").ToStringTextBox1.ReadOnly = Truedr.Close()End IfEnd IfCall DBclose()End SubPrivate Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.ClickCall DBopen()D

27、im str As StringDim sd As SqlDataReaderstr = "select * from 普通用戶登陸表"Dim dr As New SqlCommand(str, conn)sd = dr.ExecuteReaderFor i As Integer = 0 To sd.FieldCount - 1ListView1.Columns.Add(sd.GetName(i)NextDo While sd.ReadDim item As New ListViewItem(sd(0).ToString)For i As Integer = 1 To sd

28、.FieldCount - 1item.SubItems.Add(sd.Item(i).ToString)NextListView1.Items.Add(item)LoopButton1.Enabled = FalseCall DBclose()End SubPrivate Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickIf TextBox1.Text = "" ThenMessageBox.Show(" 沒 有

29、 用 戶 刪 除 ！", " 提 示 ", MessageBoxButtons.OKCancel,MessageBoxIcon.Information)ElseIf MessageBox.Show("你確定要?jiǎng)h除用戶名為："& TextBoxl.Text & "的用戶？"，"提示",MessageBoxButtons.OKCancel, MessageBoxIcon.Information) = Windows.Forms.DialogResult.OK ThenCall DBopen()

30、Dim del As New String("delete from 普通用戶登陸表where 姓名 ='" & TextBox1.Text & "'" )Dim cmd As New SqlClient.SqlCommand(del, conn)cmd.ExecuteNonQuery()MsgBox("刪除成功！"，"提示")Call DBclose()End IfButton1.Enabled = TrueListView1.Clear()TextBox1.Text = &quo

31、t;"End IfEnd SubPrivate Sub Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton3.ClickMe.Close()End SubEnd Class5、添加用戶Public Class 添加用戶1Private Sub Label4_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs)End SubPrivate Sub Button2_Click( ByVa

32、l sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()End SubPrivate Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf TextBox1.Text = "" ThenMessageBox.Show("用戶名不能為空！"，"提示")ElseIf Tex

33、tBox2.Text = "" ThenMessageBox.Show("密碼不能為空!"，"提示")ElseIf TextBox3.Text = "" ThenMessageBox.Show("確定密碼不能為空！"，"提示")ElseIf TextBox2.Text <> TextBox3.Text ThenMessageBox.Show("兩次輸入的密碼不同！"，"提示")ElseCall DBopen()Dim strcmd As Stringstrcmd = "insert into