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

数据库原理及应用数据库原理及应用 课程设计课程设计 设计题目 设计题目 公司车队公司车队 辆信息管理系统辆信息管理系统 班班 级 级 姓姓 名 名 学学 号 号 指导教师 指导教师 成成 绩 绩 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 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 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 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 17 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 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 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 19 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 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 两次输入的密码不同