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

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

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

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

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

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

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

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

8、人數(shù)int載人數(shù)表5:車輛情況數(shù)據(jù)表屬性名存儲代碼長度備注車牌車牌char10車輛牌號車主車主varchar20車主姓名外出時間車輛外出時間datetime車輛外出時間回歸時間車輛回歸時間datetime車輛回歸時間4、系統(tǒng)用戶管理圖5、數(shù)據(jù)流圖管理員表公司職員表管理員，言息職員信息駕駛員數(shù)據(jù)表密碼錯誤管理員用戶名密碼身份驗證用戶名密碼管理員信息 驗證成功系統(tǒng)管理公司職員職員信息查詢車驗證成功*隊信息車輛數(shù)據(jù)表管理車隊信息駕駛員數(shù)據(jù)表車輛數(shù)據(jù)表四、調(diào)試測試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 高級用戶登陸表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(" 用 戶 和 密 碼 輸 入 錯 誤 次 數(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("對不起，沒有符合彳查找的內(nèi)容！"，"顯示")TextBox1.Text = ""TextBox1.Focus()End IfElseMessageBox.Show（"請輸入要查找的車牌號！"，"提示"）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("對不起，沒有符合彳查找的內(nèi)容！"，"顯示")TextBox1.Text = ""TextBox1.Focus()End IfElseMessageBox.Show( "請輸入要查找的車牌號！", "提示" )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'判斷有沒有被選中的項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("你確定要刪除用戶名為："& 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