车辆信息管理系统报告数据库C.doc

数据库原理及应用
课程设计

设计题目： 企业车队/辆信息管理系统
班 级： *************
姓 名： *******
学 号： **********
指导教师： *********
成 绩：

5月

目录
一、 摘要 2
二、 需求分析 2
1、课程设计任务 2
2、功能描述 3
三、 概要设计 3
1、功能模块图 4
2、实体图 5
3、数据项 6
4、系统顾客管理图 7
5、数据流图 8
四、 调试测试 9
1、数据库演示··············································································9
2、程序各功能演示·······································································10
五、代码（重要部分）·······································································14
1、登录·························································································15
2、车辆查询··················································································16
3、车辆信息管理··········································································17
4、删除顾客··················································································18
5、添加顾客··················································································20

一、摘要
本次课程设计汇报重要论述了企业车队信息管理系统分析、设计与开发,并在此基础上对其在Windows平台上实现做了一定程度研究。企业车队信息管理系统是运用在企业部门系统工具，以便企业车队管理部门工作人员工作，该系统重要根据企业车队特点建立，重要是记录和查询驾驶员信息、机动车信息。本次课程设计汇报结合工程项目,详细论述了机动车驾驶员管理系统、机动车登记系统需求分析,其中包括实体关系图、功能构造图以及数据流程图分析和描述。 然后,汇报着重讨论了车队驾驶员管理系统、车辆登记系统数据库设计,文中详细论述了驾驶证管理系统数据库实现各个环节。并讨论了车辆/驾驶员信息管理系统在J2EE平台上详细实现及其布署。 最终,此汇报对本次系统开发中碰到几种关键问题进行了详细论述。包括驾驶证管理系统和机动车登记系统与其他系统接口设计,IBM Websphere应用服务器安全方略及系统访问控制措施实现,以及基于PC服务器平台windows操作系统上Access数据库性能优化问题。
关键词：企业车队信息管理系统、Access数据库、Java

二、需求分析
1、 课程设计任务
出于经济方面考虑，诸多企业都会选择拥有自己车队而不是租赁车辆。因此，企业需要有效管理车队尤其是规模较大车队，车队信息管理系统就是运用在企业系统工具。该系统是根据企业特点建立，重要是记录和查询驾驶员信息、机动车信息。初期企业车队信息重要是人工记录和人工管理，不仅不轻易记录，并且还不轻易保留，耗时费力效果不佳。
伴随市场经济不停发展，交通道路环境不停改善，人口流动量不停增长，人们出行愈加频繁，车站信息量迅猛增长，车辆方面信息管理系统在人们平常生活中发挥着越来越重要作用。本次车队信息管理系统实现了机动车辆驾驶员信息管理，机动车信息增长、删除、修改、查询，以满足人们需求。
车队信息管理系统重要分为三大部分：驾驶员信息管理、机动车信息管理和车辆信息查询
驾驶员信息管理：
此功能重要面向管理员。管理员可以在驾驶员信息管理模块实现对驾驶员信息管理。管理员首先应当建立驾驶员信息数据库，输入原始数据信息，当有新驾驶员信息时候或者管理员需要修改某个驾驶员有关信息以及想要删除某个驾驶员信息时候，就可以完毕对应操作。管理员也可以在整个数据库中查寻有关驾驶员信息。
机动车信息管理：
此功能重要面向管理员。管理员可以在机动车信息管理模块实现对机动车信息管理。管理员首先应当建立机动车信息数据库，输入原始数据信息，当有新机动车信息时候或者管理员需要修改某个机动车有关信息以及想以在整个数据库中查寻有关机动车信息。
车辆信息查询：
此功能面向企业所有职工。企业职工可以查询企业车队中车辆信息，以用于预订车辆进行商务活动。

2、 功能描述
程序分为登陆界面，选择界面，线路信息界面，机动车辆信息界面，车票信息这几种主体界面。使用时应先懂得管理员帐号和密码，登陆进入系统主菜单界面，里面包括汽车信息、退出程序菜单项选择项，所需时间等。可以对它们进行添加,查询，删除。
需要尤其阐明是，当对数据进行操作时，在查询框内输入提醒数据内容，对话框表中和提醒栏中都会出现所查询数据，我们可以在提醒栏中对数据进行删除和修改操作。
在Java中运用ODBC访问技术操作数据库，建立到数据库中映射类，在对话框类中通过引用映射类完毕对数据库操作。

三、 概要设计
1、功能模块图
退出
车队信息管理系统
驾驶员信息管理
车辆信息管理
车辆信息查询
数据查询
车辆信息查询
驾驶员信息查询
登陆
数据处理
驾驶员信息维护
车辆信息维护

2、实体图
驾驶员
姓名
性别
年龄
电话号码
车辆编号
驾驶员ID
顾客
姓名
顾客编号
密码
企业职工
姓名
职工ID
密码
车辆编号
车辆
与否空闲
驾驶员ID

3、数据项
表1: 高级顾客数据表
属性名
存储代码
类型
长度
备注
顾客编号
顾客编号
char
10
顾客编号
顾客姓名
顾客姓名
varchar
20
顾客登录名
密码
密码
varchar
5
登录密码
顾客等级
顾客等级
char
5
登陆者等级
表2: 一般顾客数据表
属性名
存储代码
类型
长度
备注
顾客编号
顾客编号
char
10
顾客编号
顾客姓名
顾客姓名
varchar
20
顾客登录名
密码
密码
varchar
5
登录密码
顾客登记
顾客等级
char
5
登陆者等级
表3：驾驶员数据表
属性名
存储代码
类型
长度
备注
姓名
姓名
char
20
车主姓名
车牌
车牌号码
varchar
10
车辆牌号
性别
车主性别
char
5
车主性别
籍贯
籍贯
char
10
车主籍贯
表4：车辆数据表
属性名
存储代码
类型
长度
备注
车牌
车牌
char
10
车辆牌号
车主
车主
varchar
20
车辆型号
车型
车型
char
5
驾驶员
车色
车色
char
5
车辆颜色
发动机号
发动机
char
3
车辆购置时间
装载人数
装载人数
int

载人数
表5：车辆状况数据表
属性名
存储代码
类型
长度
备注
车牌
车牌
char
10
车辆牌号
车主
车主
varchar
20
车主姓名
外出时间
车辆外出时间
datetime

车辆外出时间
回归时间
车辆回归时间
datetime

车辆回归时间
4、系统顾客管理图
顾客
登录
成功？
顾客管理界面
是
否

查询车队信息
身份验证
管理车队信息
管理员
顾客名
密码
系统管理
企业职工
顾客名
密码
管理员表
企业职工表
驾驶员数据表
管理员信息
职工信息
车辆数据表
驾驶员数据表
车辆数据表
职工信息验证成功
密码错误
管理员信息验证成功
5、数据流图

四、 调试测试
（1）、数据库演示

（2） 程序各模块演示

五、 代码（重要部分）
1、登录
Public Class 登陆
Dim s As Integer = 3
Dim sqlstr As String

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 System.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("顾客名和密码不能为空！", "提醒")
Else
Call DBopen()
sqlstr = "Select * From 高级顾客登陆表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 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 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 = ""

Else
If MessageBox.Show("顾客和密码输入错误次数过多！", "提醒") = Windows.Forms.DialogResult.OK Then
End
End If
End If
End If
End If

s = s - 1

End Sub
End Class
2、 车辆查询
Imports System.Data.SqlClient
Public 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 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() '打开数据库
str = "select * from 车辆信息表 where 车牌 ='" & TextBox1.Text & "'"
da = New SqlDataAdapter(str, conn)
da.Fill(cl, "车辆信息表") '将查询内容填充到数据集中
DataGridView1.DataSource = cl.Tables("车辆信息表") '获取数据源
DataGridView1.CurrentCell = Nothing
Dim i As Integer
For i = 1 To DataGridView1.RowCount '将每一行数据显现出来
DataGridView1.Rows(i - 1).HeaderCell.Value = i.ToString
Next
ta = cl.Tables("车辆信息表") '与表内容显示出来
Call DBclose() '关闭数据库
If DataGridView1.RowCount = 1 Then 'datagridview为空状况
MessageBox.Show("对不起，没有符合你查找内容！", "显示")
TextBox1.Text = ""
TextBox1.Focus()
End If
Else
MessageBox.Show("请输入要查找车牌号！", "提醒")
TextBox1.Text = ""
TextBox1.Focus()

End If
End Sub
End Class
3、 车辆信息管理
Imports System.Data.SqlClient
Public 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 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() '打开数据库
str = "select * from 车辆信息表 where 车牌 ='" & TextBox1.Text & "'"
da = New SqlDataAdapter(str, conn)
da.Fill(cl, "车辆信息表") '将查询内容填充到数据集中
DataGridView1.DataSource = cl.Tables("车辆信息表") '获取数据源
DataGridView1.CurrentCell = Nothing
Dim i As Integer
For i = 1 To DataGridView1.RowCount '将每一行数据显现出来
DataGridView1.Rows(i - 1).HeaderCell.Value = i.ToString
Next
ta = cl.Tables("车辆信息表") '与表内容显示出来
Call DBclose() '关闭数据库
If DataGridView1.RowCount = 1 Then 'datagridview为空状况
MessageBox.Show("对不起，没有符合你查找内容！", "显示")
TextBox1.Text = ""
TextBox1.Focus()
End If
Else
MessageBox.Show("请输入要查找车牌号！", "提醒")
TextBox1.Text = ""
TextBox1.Focus()

End If
End Sub
End Class
4、 删除顾客
Imports System.Data.SqlClient
Imports System.Data
Public 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 Then
'判断有无被选中项

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

TextBox1.ReadOnly = True

dr.Close()
End If
End If
Call DBclose()
End Sub

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 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)
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("你确定要删除顾客名为:" & 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()
MsgBox("删除成功!", , "提醒")
Call DBclose()
End If
Button1.Enabled = True
ListView1.Clear()
TextBox1.Text = ""
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
5、 添加顾客
Public Class 添加顾客1

Private 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()
Dim strcmd As String
strcmd = "insert into 高级顾客登陆表(姓名,密码) values "
strcmd = strcmd & "('" & TextBox1.Text & "','" & TextBox3.Text & "')"
Dim cmd As New SqlClient.SqlCommand(strcmd, conn)
Try
cmd.ExecuteNonQuery()
MessageBox.Show("添加高级顾客成功!", "提醒")

Catch ex As Exception
MessageBox.Show("顾客名反复，请重新输入！", "提醒")
TextBox1.Text = ""
End Try
Call DBclose()

End If
End Sub
End Class
Public Class 登录提醒2

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
登陆.Show()

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
主界面.Show()
主界面.MenuStrip1.Visible = False

Me.Close()
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

End Sub
End Class