車輛信息管理系統(tǒng)-報(bào)告(數(shù)據(jù)庫(kù)、C#)(共23頁(yè))

1、精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)數(shù)據(jù)庫(kù)原理及應(yīng)用數(shù)據(jù)庫(kù)原理及應(yīng)用課程設(shè)計(jì)課程設(shè)計(jì)設(shè)計(jì)題目：設(shè)計(jì)題目： 公司車隊(duì)公司車隊(duì)/ /輛信息管理系統(tǒng)輛信息管理系統(tǒng) 班班 級(jí)：級(jí)： * 姓姓 名：名： * 學(xué)學(xué) 號(hào)：號(hào)： * 指導(dǎo)教師：指導(dǎo)教師： * 成成 績(jī)：績(jī)： 20142014 年年 5 5 月月目錄目錄精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)1、數(shù)據(jù)庫(kù)演示9 2、程序各功能演示10五、代碼（重要部分）五、代碼（重要部分）14141、登錄152、車輛查精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)詢16 3、車輛信息管理17 4、刪除用戶18 5、添加用戶20一、摘要一、摘要本次課程設(shè)計(jì)報(bào)告

2、主要論述了公司車隊(duì)信息管理系統(tǒng)的分析、設(shè)計(jì)與開發(fā),并在此基礎(chǔ)上對(duì)其在 Windows 平臺(tái)上的實(shí)現(xiàn)做了一定程度的研究。公司車隊(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)、車輛登記系精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì),文中詳細(xì)論述了駕駛證管理系統(tǒng)數(shù)據(jù)庫(kù)實(shí)現(xiàn)的各個(gè)步驟。并討論了車輛/駕

3、駛員信息管理系統(tǒng)在 J2EE 平臺(tái)上的具體實(shí)現(xiàn)及其部署。 最后,此報(bào)告對(duì)本次系統(tǒng)開發(fā)中遇到的幾個(gè)關(guān)鍵問(wèn)題進(jìn)行了詳細(xì)的闡述。包括駕駛證管理系統(tǒng)和機(jī)動(dòng)車登記系統(tǒng)與其他系統(tǒng)的接口設(shè)計(jì),IBM Websphere 應(yīng)用服務(wù)器的安全策略及系統(tǒng)訪問(wèn)控制方法的實(shí)現(xiàn),以及基于 PC 服務(wù)器平臺(tái) windows 操作系統(tǒng)上 Access 數(shù)據(jù)庫(kù)的性能優(yōu)化問(wèn)題。關(guān)鍵詞：公司車隊(duì)信息管理系統(tǒng)、關(guān)鍵詞：公司車隊(duì)信息管理系統(tǒng)、AccessAccess 數(shù)據(jù)庫(kù)、數(shù)據(jù)庫(kù)、JavaJava二、需求分析二、需求分析1 1、課程設(shè)計(jì)任務(wù)課程設(shè)計(jì)任務(wù)出于經(jīng)濟(jì)方面的考慮，很多公司都會(huì)選擇擁有自己的車隊(duì)而不是租賃車輛。因此，公司需要有

4、效的管理車隊(duì)尤其是規(guī)模較大的車隊(duì)，車隊(duì)信息管理系統(tǒng)就是運(yùn)用在公司的系統(tǒng)工具。該系統(tǒng)是根據(jù)公司的特點(diǎn)建立的，主要是記錄和查詢駕駛員信息、機(jī)動(dòng)車信息。早期的公司的車隊(duì)信息主要是人工記錄和人工管理的，不僅不容易記錄，而且還不容易保存，耗時(shí)費(fèi)力效果不佳。隨著市場(chǎng)經(jīng)濟(jì)的不斷發(fā)展，交通道路環(huán)境的不斷改善，人口流動(dòng)量不斷增加，人們的出行愈加頻繁，車站信息量迅猛增長(zhǎng)，車輛方面的信息管理系統(tǒng)在人們的日常生活中發(fā)揮著越來(lái)越重要的作用。此次的車隊(duì)信息管理系統(tǒng)實(shí)現(xiàn)了機(jī)動(dòng)車輛駕駛員信息的管理，機(jī)動(dòng)車信息的增加、刪除、修改、查詢，以滿足人們的需求。車隊(duì)信息管理系統(tǒng)主要分為三大部分：駕駛員信息管理、機(jī)動(dòng)車信息管理和車輛信息

5、查詢駕駛員信息管理：此功能主要面向管理員。管理員可以在駕駛員信息管理模塊實(shí)現(xiàn)對(duì)駕駛員信息的管理。管理員首先應(yīng)該建立駕駛員信息數(shù)據(jù)庫(kù)，輸入原始的數(shù)據(jù)信息，當(dāng)有新的駕駛員信息的時(shí)候或者管理員需要修改某個(gè)駕駛員的相關(guān)信息以及想要?jiǎng)h除某個(gè)駕駛員信息的時(shí)候，就可以完成相應(yīng)的操作。管理員也可以在整個(gè)數(shù)據(jù)庫(kù)中查尋相關(guān)駕駛員信息。機(jī)動(dòng)車信息管理：此功能主要面向管理員。管理員可以在機(jī)動(dòng)車信息管理模塊實(shí)現(xiàn)對(duì)機(jī)動(dòng)車信息的管理。管理員首先應(yīng)該建立機(jī)動(dòng)車信息數(shù)據(jù)庫(kù)，輸入原始的數(shù)據(jù)信息，當(dāng)有新的機(jī)動(dòng)車信息的時(shí)候或者管理員需要修改某個(gè)機(jī)動(dòng)車的相關(guān)信息以及想以在整個(gè)數(shù)據(jù)庫(kù)中查尋相關(guān)機(jī)動(dòng)車信息。車輛信息查詢：此功能面向公司所有

6、職員。公司職員可以查詢公司車隊(duì)中的車輛信息，以用于預(yù)訂車輛進(jìn)行商務(wù)活動(dòng)。精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)2 2、功能描述功能描述程序分為登陸界面，選擇界面，線路信息界面，機(jī)動(dòng)車輛信息界面，車票信息這幾個(gè)主體界面。使用時(shí)應(yīng)先知道管理員帳號(hào)和密碼，登陸進(jìn)入系統(tǒng)主菜單界面，里面包括汽車信息、退出程序菜單選項(xiàng)，所需時(shí)間等。可以對(duì)它們進(jìn)行添加,查詢，刪除。需要特別說(shuō)明的是，當(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 中利用 ODBC 訪問(wèn)技術(shù)操作數(shù)據(jù)庫(kù)，建立到數(shù)據(jù)庫(kù)中的映射類，在對(duì)話框類中

7、通過(guò)引用映射類完成對(duì)數(shù)據(jù)庫(kù)的操作。3 3、概要設(shè)計(jì)概要設(shè)計(jì)1 1、功能模塊圖、功能模塊圖精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)車隊(duì)信息管理系統(tǒng)駕駛員信息管理車輛信息管理車輛信息查詢數(shù)據(jù)查詢車輛信息查詢駕駛員信息查詢登陸數(shù)據(jù)處理駕駛員信息維護(hù)車輛信息維護(hù)退出精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)2 2、實(shí)體圖、實(shí)體圖駕駛員姓名性別年齡電話號(hào)碼車輛編號(hào)駕駛員 ID用戶姓名用戶編號(hào)密碼公司職員姓名職員 ID密碼車輛編號(hào)車輛是否空閑駕駛員 ID精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)3 3、數(shù)據(jù)項(xiàng)、數(shù)據(jù)項(xiàng)表 1: 高級(jí)用戶數(shù)據(jù)表屬性名存儲(chǔ)代碼類型長(zhǎng)度備注用戶編號(hào)用戶編號(hào)char10用戶編號(hào)用

8、戶姓名用戶姓名varchar20用戶登錄名密碼密碼varchar5登錄密碼用戶等級(jí)用戶等級(jí)char5登陸者等級(jí)表 2: 普通用戶數(shù)據(jù)表屬性名存儲(chǔ)代碼類型長(zhǎng)度備注用戶編號(hào)用戶編號(hào)char10用戶編號(hào)用戶姓名用戶姓名varchar20用戶登錄名密碼密碼varchar5登錄密碼用戶登記用戶等級(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)車型車型char

9、5駕駛員車色車色char5車輛顏色發(fā)動(dòng)機(jī)號(hào)發(fā)動(dòng)機(jī)char3車輛購(gòu)買時(shí)間裝載人數(shù)裝載人數(shù)int載人數(shù)表 5：車輛情況數(shù)據(jù)表屬性名存儲(chǔ)代碼類型長(zhǎng)度備注車牌車牌char10車輛牌號(hào)車主車主varchar20車主姓名外出時(shí)間車輛外出時(shí)間datetime車輛外出時(shí)間回歸時(shí)間車輛回歸時(shí)間datetime車輛回歸時(shí)間4 4、系統(tǒng)用戶管理圖、系統(tǒng)用戶管理圖精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)用戶登錄成功？用戶管理界面是否精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)5 5、數(shù)據(jù)流圖、數(shù)據(jù)流圖查詢車隊(duì)信息身份驗(yàn)證管理車隊(duì)信息管理員用戶名密碼系統(tǒng)管理公司職員用戶名密碼管理員表公司職員表駕駛員數(shù)據(jù)表管理員信息職員

10、信息車輛數(shù)據(jù)表駕駛員數(shù)據(jù)表車輛數(shù)據(jù)表職員信息驗(yàn)證成功密碼錯(cuò)誤管理員信息驗(yàn)證成功精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)4 4、調(diào)試測(cè)試調(diào)試測(cè)試（1 1） 、數(shù)據(jù)庫(kù)演示、數(shù)據(jù)庫(kù)演示（2 2）程序各模塊演示程序各模塊演示精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)5 5、代碼（重要部分）代碼（重要部分）1 1、登錄、登錄Public Class 登陸 Dim s As Integer = 3 Dim sqlstr As String

11、 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If MessageBox.Show(你確定是否退出登錄界面？, 提示, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then End End If End Sub Private Sub Button1_Click(ByVal sender As Syste

12、m.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Focus() If TextBox1.Text And TextBox2.Text = Then MessageBox.Show(密碼不能為空！, 提示) ElseIf TextBox1.Text = And TextBox2.Text Then MessageBox.Show(用戶名不能為空！, 提示) ElseIf TextBox1.Text = And TextBox2.Text = Then MessageBox.Show(用戶名和密碼不能為空！

13、, 提示) Else Call DBopen()精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) sqlstr = Select * From 高級(jí)用戶登陸表Where 姓名= & TextBox1.Text & And 密碼= & TextBox2.Text & Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn) Dim dr As SqlClient.SqlDataReader dr = sqlcmd.ExecuteReader If dr.Read = True

14、Then dr.Close() 登錄提示.Show() TextBox1.Text = TextBox2.Text = Me.Visible = False Call DBclose() Else Call DBopen() sqlstr = Select * From 普通用戶登陸表Where 姓名= & TextBox1.Text & And 密碼= & TextBox2.Text & Dim sqlcmd1 As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn) Dim dr1 As

15、 SqlClient.SqlDataReader dr1 = sqlcmd1.ExecuteReader If dr1.Read = True Then 登錄提示.Show() TextBox1.Text = TextBox2.Text = Me.Visible = False dr1.Close() Call DBclose() ElseIf s 0 Then MessageBox.Show(輸入信息有誤！, 提示, MessageBoxButtons.OKCancel, MessageBoxIcon.Information) TextBox1.Text = TextBox2.Text =

16、Else If MessageBox.Show(用戶和密碼輸入錯(cuò)誤次數(shù)過(guò)多！, 提示) = Windows.Forms.DialogResult.OK Then End End If End If End If End If s = s - 1精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) End SubEnd Class2、車輛查詢車輛查詢Imports System.Data.SqlClientPublic Class 車輛查詢 Private ta As New DataTable Private 車牌 As Integer Private Sub Button2_Click(ByVal s

17、ender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cl As New DataSet Dim da As SqlDataAdapter Dim str As String If TextBox1.Text Then Call DBopen

18、() 打開數(shù)據(jù)庫(kù) str = select * from 車輛信息表 where 車牌 = & TextBox1.Text & da = New SqlDataAdapter(str, conn) da.Fill(cl, 車輛信息表) 將查詢的內(nèi)容填充到數(shù)據(jù)集中 DataGridView1.DataSource = cl.Tables(車輛信息表) 獲取數(shù)據(jù)源 DataGridView1.CurrentCell = Nothing Dim i As Integer For i = 1 To DataGridView1.RowCount 將每一行的數(shù)據(jù)顯現(xiàn)出來(lái) DataGridV

19、iew1.Rows(i - 1).HeaderCell.Value = i.ToString Next ta = cl.Tables(車輛信息表) 與表的內(nèi)容顯示出來(lái) Call DBclose() 關(guān)閉數(shù)據(jù)庫(kù) If DataGridView1.RowCount = 1 Then datagridview為空情況 MessageBox.Show(對(duì)不起，沒有符合你查找的內(nèi)容！, 顯示) TextBox1.Text = TextBox1.Focus() End If Else精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) MessageBox.Show(請(qǐng)輸入要查找的車牌號(hào)！, 提示) TextBox

20、1.Text = TextBox1.Focus() End If End SubEnd Class3、車輛信息管理車輛信息管理Imports System.Data.SqlClientPublic Class 車輛查詢 Private ta As New DataTable Private 車牌 As Integer Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub B

21、utton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cl As New DataSet Dim da As SqlDataAdapter Dim str As String If TextBox1.Text Then Call DBopen() 打開數(shù)據(jù)庫(kù) str = select * from 車輛信息表 where 車牌 = & TextBox1.Text & da = New SqlDataAdapter(str, conn)

22、da.Fill(cl, 車輛信息表) 將查詢的內(nèi)容填充到數(shù)據(jù)集中 DataGridView1.DataSource = cl.Tables(車輛信息表) 獲取數(shù)據(jù)源 DataGridView1.CurrentCell = Nothing Dim i As Integer For i = 1 To DataGridView1.RowCount 將每一行的數(shù)據(jù)顯現(xiàn)出來(lái) DataGridView1.Rows(i - 1).HeaderCell.Value = i.ToString Next ta = cl.Tables(車輛信息表) 與表的內(nèi)容顯示出來(lái) Call DBclose() 關(guān)閉數(shù)據(jù)庫(kù) If

23、 DataGridView1.RowCount = 1 Then datagridview為空情況 MessageBox.Show(對(duì)不起，沒有符合你查找的內(nèi)容！, 顯示) TextBox1.Text = 精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) TextBox1.Focus() End If Else MessageBox.Show(請(qǐng)輸入要查找的車牌號(hào)！, 提示) TextBox1.Text = TextBox1.Focus() End If End SubEnd Class4、刪除用戶刪除用戶Imports System.Data.SqlClientImports System.Dat

24、aPublic Class 刪除用戶 Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged Call DBopen() Dim index As Integer Dim selectITem As String Dim sel As String Dim dr As SqlDataReader If ListView1.SelectedItems.Count 0 Th

25、en 判斷有沒有被選中的項(xiàng) index = ListView1.SelectedItems(0).Index selectITem = ListView1.SelectedItems(0).Text sel = select * from 普通用戶登陸表 where 姓名 = & selectITem & Dim cmdname As New SqlClient.SqlCommand(sel, conn) dr = cmdname.ExecuteReader If dr.HasRows Then dr.Read() TextBox1.Text = dr(姓名).ToString

26、 TextBox1.ReadOnly = True dr.Close() End If End If Call DBclose() End Sub精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Call DBopen() Dim str As String Dim sd As SqlDataReader str = select * from 普通用戶登陸表 Dim dr As New

27、 SqlCommand(str, conn) sd = dr.ExecuteReader For i As Integer = 0 To sd.FieldCount - 1 ListView1.Columns.Add(sd.GetName(i) Next Do While sd.Read Dim item As New ListViewItem(sd(0).ToString) For i As Integer = 1 To sd.FieldCount - 1 item.SubItems.Add(sd.Item(i).ToString) Next ListView1.Items.Add(item

28、) Loop Button1.Enabled = False Call DBclose() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If TextBox1.Text = Then MessageBox.Show(沒有用戶刪除！, 提示, MessageBoxButtons.OKCancel, MessageBoxIcon.Information) Else If MessageBox.Show(你確定要?jiǎng)h

29、除用戶名為: & TextBox1.Text & 的用戶？, 提示, MessageBoxButtons.OKCancel, MessageBoxIcon.Information) = Windows.Forms.DialogResult.OK Then Call DBopen() Dim del As New String(delete from 普通用戶登陸表 where 姓名= & TextBox1.Text & ) Dim cmd As New SqlClient.SqlCommand(del, conn) cmd.ExecuteNonQuery() M

30、sgBox(刪除成功!, , 提示) Call DBclose() End If Button1.Enabled = True ListView1.Clear() TextBox1.Text = End If End Sub精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End SubEnd Class5、添加用戶添加用戶Public Class 添加用戶1 Pr

31、ivate Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = Then MessageBox.Show(用戶名不能為空！, 提示) ElseIf TextBox2.Text = Then MessageBox.Show(密碼不能為空！, 提示) ElseIf TextBox3.Text = Then MessageBox.Show(確定密碼不能為空！, 提示) ElseIf TextBox2.Text TextBox3.Text Then MessageBox.Show(兩次輸入的密碼不同！, 提示) Else Call DBopen() Di