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

数据库原理及应用数据库原理及应用 课程设计课程设计 设计题目：设计题目： 公司车队公司车队/ /辆信息管理系统辆信息管理系统 班班 级：级： * 姓姓 名：名： * 学学 号：号： * 指导教师：指导教师： * 成成 绩：绩： 20142014 年年 5 5 月月 - 1 - 目录目录 一、一、 摘要摘要2 2 二、二、 需求分析需求分析2 2 1、课程设计任务2 2、功能描述3 三、三、 概要设计概要设计3 3 1、功能模块图4 2、实体图5 3、数据项6 4、系统用户管理图7 5、数据流图8 四、四、 调试测试调试测试9 9 1、数据库演 示 9 2、程序各功能演 示 10 五、代码（重要部分）五、代码（重要部分） 1414 - 2 - 1、登 录 15 2、车辆查 询 16 3、车辆信息管 理 17 4、删除用 户 18 5、添加用 户 20 一、摘要一、摘要 本次课程设计报告主要论述了公司车队信息管理系统的分析、设计与开发, - 3 - 并在此基础上对其在 Windows 平台上的实现做了一定程度的研究。公司车队信 息管理系统是运用在公司部门的系统工具，方便公司车队管理部门工作人员的 工作，该系统主要根据公司车队的特点建立的，主要是记录和查询驾驶员信息、 机动车信息。本次课程设计报告结合工程项目,具体论述了机动车驾驶员管理系 统、机动车登记系统的需求分析,其中包括实体关系图、功能结构图以及数据流 程图的分析和描述。 然后,报告着重讨论了车队驾驶员管理系统、车辆登记系 统的数据库设计,文中详细论述了驾驶证管理系统数据库实现的各个步骤。并讨 论了车辆/驾驶员信息管理系统在 J2EE 平台上的具体实现及其部署。 最后,此 报告对本次系统开发中遇到的几个关键问题进行了详细的阐述。包括驾驶证管 理系统和机动车登记系统与其他系统的接口设计,IBM Websphere 应用服务器的 安全策略及系统访问控制方法的实现,以及基于 PC 服务器平台 windows 操作系 统上 Access 数据库的性能优化问题。 关键词：公司车队信息管理系统、关键词：公司车队信息管理系统、AccessAccess 数据库、数据库、JavaJava 二、需求分析二、需求分析 1 1、课程设计任务课程设计任务 出于经济方面的考虑，很多公司都会选择拥有自己的车队而不是租赁车辆。 因此，公司需要有效的管理车队尤其是规模较大的车队，车队信息管理系统就 是运用在公司的系统工具。该系统是根据公司的特点建立的，主要是记录和查 询驾驶员信息、机动车信息。早期的公司的车队信息主要是人工记录和人工管 理的，不仅不容易记录，而且还不容易保存，耗时费力效果不佳。 随着市场经济的不断发展，交通道路环境的不断改善，人口流动量不断增 加，人们的出行愈加频繁，车站信息量迅猛增长，车辆方面的信息管理系统在 人们的日常生活中发挥着越来越重要的作用。此次的车队信息管理系统实现了 机动车辆驾驶员信息的管理，机动车信息的增加、删除、修改、查询，以满足 人们的需求。 车队信息管理系统主要分为三大部分：驾驶员信息管理、机动车信息管理 和车辆信息查询 驾驶员信息管理： 此功能主要面向管理员。管理员可以在驾驶员信息管理模块实现对驾驶员 信息的管理。管理员首先应该建立驾驶员信息数据库，输入原始的数据信息， 当有新的驾驶员信息的时候或者管理员需要修改某个驾驶员的相关信息以及想 要删除某个驾驶员信息的时候，就可以完成相应的操作。管理员也可以在整个 数据库中查寻相关驾驶员信息。 机动车信息管理： - 4 - 此功能主要面向管理员。管理员可以在机动车信息管理模块实现对机动车 信息的管理。管理员首先应该建立机动车信息数据库，输入原始的数据信息， 当有新的机动车信息的时候或者管理员需要修改某个机动车的相关信息以及想 以在整个数据库中查寻相关机动车信息。 车辆信息查询： 此功能面向公司所有职员。公司职员可以查询公司车队中的车辆信息，以 用于预订车辆进行商务活动。 2 2、功能描述功能描述 程序分为登陆界面，选择界面，线路信息界面，机动车辆信息界面，车票 信息这几个主体界面。使用时应先知道管理员帐号和密码，登陆进入系统主菜 单界面，里面包括汽车信息、退出程序菜单选项，所需时间等。可以对它们进 行添加,查询，删除。 需要特别说明的是，当对数据进行操作时，在查询框内输入提示数据内容， 对话框的表中和提示栏中都会出现所查询的数据，我们可以在提示栏中对数据 进行删除和修改操作。 在 Java 中利用 ODBC 访问技术操作数据库，建立到数据库中的映射类，在 对话框类中通过引用映射类完成对数据库的操作。 3 3、概要设计概要设计 1 1、功能模块图、功能模块图 - 5 - 车队信息管理系统 驾驶员信息管理 车辆信息管理 车辆信息查询数据查询 车辆信息查 询 驾驶员信息查 询 登陆 数据处理 驾驶员信息维护 车辆信息维护 退出 - 6 - 2 2、实体图、实体图 驾驶员 姓名 性别 年龄 电话号码 车辆编号 驾驶员 ID 用户 姓名 用户编号 密码 公司职员 姓名 职员 ID 密码 车辆编号 车辆 是否空闲 驾驶员 ID - 7 - 3 3、数据项、数据项 表 1: 高级用户数据表 属性名存储代码类型长度备注 用户编号用户编号char10用户编号 用户姓名用户姓名varchar20用户登录名 密码密码varchar5登录密码 用户等级用户等级char5登陆者等级 表 2: 普通用户数据表 属性名存储代码类型长度备注 用户编号用户编号char10用户编号 用户姓名用户姓名varchar20用户登录名 密码密码varchar5登录密码 用户登记用户等级char5登陆者等级 表 3：驾驶员数据表 属性名存储代码类型长度备注 姓名姓名char20车主姓名 车牌车牌号码varchar10车辆牌号 性别车主性别char5车主性别 籍贯籍贯char10车主籍贯 表 4：车辆数据表 属性名存储代码类型长度备注 车牌车牌char10车辆牌号 车主车主varchar20车辆型号 车型车型char5驾驶员 车色车色char5车辆颜色 发动机号发动机char3车辆购买时间 装载人数装载人数int载人数 表 5：车辆情况数据表 属性名存储代码类型长度备注 车牌车牌char10车辆牌号 车主车主varchar20车主姓名 外出时间车辆外出时间datetime车辆外出时间 回归时间车辆回归时间datetime车辆回归时间 4 4、系统用户管理图、系统用户管理图 - 8 - 用户 登录成功？用户管理界面 是 否 - 9 - 5 5、数据流图、数据流图 查询车 队信息 身份验证 管理车队 信息 管理员 用户名 密码 系统管理 公司职员 用户名 密码 管理员表公司职员表 驾驶员数据表 管理员信息职员信息 车辆数据表 驾驶员数据表车辆数据表 职员信息 验证成功 密码错误 管理员信息 验证成功 - 10 - 4 4、调试测试调试测试 （1 1） 、数据库演示、数据库演示 （2 2）程序各模块演示程序各模块演示 - 11 - - 12 - - 13 - - 14 - - 15 - 5 5、代码（重要部分）代码（重要部分） 1 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 “ Then MessageBox.Show(“用户名不能为空！“, “提示“) ElseIf TextBox1.Text = “ And TextBox2.Text = “ Then MessageBox.Show(“用户名和密码不能为空！“, “提示“) Else Call DBopen() - 16 - 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 “ 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 - 18 - 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 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 - 20 - 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 - 21 - 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.SqlComman