《程序设计项目化教程》项目汽车销售管理系统PPT课件.ppt

VisualBasic程序设计项目化教程 1 项目十五 汽车销售管理系统 项目功能描述 本项目设计并实现了一个汽车销售管理信息系统 后台数据库采用SQLServer 前端功能实现采用VB程序设计 主要功能如下 1 系统管理 用来实现对用户的添加 删除和修改等操作 2 销售管理 用来实现对入库单 销售单的添加 删除和修改等操作 3 客户管理 用来实现对客户信息的添加 删除和修改等操作 4 车辆金额汇总 根据需要汇总销售金额 项目十五 汽车销售管理系统 项目主要知识点 非编程代码访问数据库ADODC控件DataGrid数据绑定控件项目实施步骤 1 阅读相关基础知识2 汽车销售管理系统功能设计简述3 SQLServer2000数据库设计4 汽车销售管理系统窗体设计5 程序调试 15 1基础知识概述 我们已经知道ADO通常采用两种方法实现对数据库的访问 一种是采用ADODC控件来实现 另一种采用ADO对象编程来实现 本项目采用ADODC控件来实现 15 1 1ADO控件的主要属性1 ConnectionString属性ConnectionString属性为字符串 包含用来建立与数据源连接的所有信息 每项信息用分号隔开 在ConnectionString属性中有4个主要参数 即 1 Provider 指定数据源的名称 2 FileName 指定基于数据源的文件名称 3 RemoteProvider 指定打开客户端连接时 使用的数据源名称 4 RemoteServer 指定打开客户端连接时 使用服务器路径名称 15 1基础知识概述 2 UserName属性UserName属性是ADODC控件特有的属性 在ADO对象模型中没有 它用来指定用户的名称 可以在ADODC控件的 属性窗口 中直接输入 也可以在ADODC控件的 属性页 对话框或 数据链接属性 对话框中设置 3 RecordSource属性RecordSource属性也是ADODC控件特有的属性 该属性通常是由一条SQL语句组成 用于决定从数据库中检索信息 15 1 2ADODC控件常用方法 1 Refresh方法该方法用于刷新与ADODC控件连接的记录集的数据 2 UpDateRecord方法通过此方法可以将数据绑定控件上的当前内容写入到数据库中 3 Close方法Close方法主要用于关闭打开的对象及相关的对象 其它关于如何调用ADCDC控件及其专门与ADODC控件绑定的ActiveX控件可参考项目十四 ADO数据库访问技术 15 2汽车管理系统功能设计 15 2 1系统目标通过使用汽车销售管理系统 可以方便地对汽车入库及销售进行管理 随时可查询汽车库存信息资料 购车人信息资料并进行修改删除 还可对车辆情况进行汇总 15 2 1系统功能 1 系统管理对用户信息进行添加 修改 删除 2 汽车销售管理对入库车辆 销售车辆 库存车辆进行查看 添加 修改 删除 3 客户信息管理对购车人的信息进行查看 添加 修改 删除 4 车辆金额汇总随时可根据需要按销售单号 车辆名称及时间统计汽车销售数量 金额进行汇总 15 2 3系统结构图 汽车销售管理系统如图15 1所示 图15 1汽车销售管理系统 15 3SQLServer2000数据库设计 15 3 1建立数据库启动SQLServer2000中企业管理器 建立数据库CarSale如图15 2所示 15 3 2设计数据表 1 用户信息表如图15 3所示 图15 3用户信息表 15 3 2设计数据表 2 入库单表如图15 4所示 图15 4入库单表 15 3 2设计数据表 3 销售单表如图15 5所示 图15 5销售单表 15 3 2设计数据表 4 库存信息表如图15 6所示 图15 6库存信息表 15 3 2设计数据表 5 客户信息表如图15 7所示 图15 7客户信息表 15 4 汽车销售管理系统 窗体设计 1 设计概述在主窗体界面中单击菜单或工具栏上的功能按钮 可以调用相应的子窗体 进行相应的操作 在状态栏中显示当前的日期 时间以及公司的网址 对界面背景进行添加图片和阴影字的设计 2 主窗体设计 1 新建工程新建一个 标准EXE 工程并将工程命名为 汽车销售管理系统 2 添加主窗体选择 工程 添加窗体 在项目中添加了主窗体 该窗体的一些属性如表15 1所示 注 Windowstate的值为Maxsize 即程序启动之后自动最大化 表15 1窗体属性表 15 4 汽车销售管理系统 窗体设计 3 菜单设计选择 工具 菜单编辑器 编辑菜单 各菜单项如表15 2所示 15 4 汽车销售管理系统 窗体设计 4 工具栏设计 添加部件选择 工程 部件 在弹出的列表中选中 MicrosoftWindowsCommonControl6 0 sp3 选项 然后单击确定按钮 将工具栏等控件添加到工具箱中 如图15 8所示 图15 8ImageList Toolbar StartBar控件 15 4 汽车销售管理系统 窗体设计 设置ImageList控件将ImageList控件放置窗体 右键单击此控件 在弹出的菜单中选择 属性 在 属性页 对话框中单击 通用 选项卡 并设置如图15 9所示的选项 15 4 汽车销售管理系统 窗体设计 在 属性页 对话框中单击 图像 选项卡 并设置如图15 10所示的选项 注意 一定要添写关键字 15 4 汽车销售管理系统 窗体设计 设置ToolBar控件属性将ToolBar控件放置窗体 右键单击此控件 在弹出的菜单中选择 属性 在 属性页 对话框中单击 通用 选项卡 图像列表 选择ImageList1 如图15 11所示 15 4 汽车销售管理系统 窗体设计 在 属性页 对话框中单击 按钮 选项卡 单击 插入按钮 将 关键字 与 图像 一一对应 如图15 12所示 15 4 汽车销售管理系统 窗体设计 5 状态栏设置 设置状态栏属性将StatusBar控件放置窗体 右键单击此控件 在弹出的菜单中选择 属性 在 属性页 对话框中单击 窗格 选项卡 单击 插入窗格 按钮 插入四个窗格 在窗格1中输入文本 汽车销售管理系统主窗体 在窗格2中输入文本 在窗格3中样式选 6 sbrData 在窗格4中样式选 5 sbrTime 6 主窗体背景设计 Picture属性 值为图片所在的路径 StartUpPostion属性 值为 1 所有者中心 阴影字 汽车销售管理系统 的设置可参考项目三 15 4 汽车销售管理系统 窗体设计 主窗体界面如图15 13所示 图15 13汽车销售管理系统主窗体界面 15 4 汽车销售管理系统 窗体设计 3 主窗体主要代码PrivateSubcarin Click 调用子窗体frm edit Carin ShowEndSubPrivateSubcarsale Click 调用子窗体Frm edit CarSale ShowEndSubPrivateSubMenu addCar Click 调用子窗体Frm addCar ShowEndSubPrivateSubMenu addCus Click 调用子窗体Frm addCus ShowEndSubPrivateSubMenu addUser Click 调用子窗体Frm addUser ShowEndSub 15 4 2创建各子窗体 1 子窗体设计 1 设计说明汽车销售管理系统的子窗体类型主要有 系统登录 数据编辑录入 查询 数据统计 等 在汽车管理系统中 要创建的所有子窗体如下表15 3所示 15 4 2创建各子窗体 2 子窗体代码所有子窗体我们使用ADODC控件与数据绑定控件结合 实现我们所需要的功能 基本上不需要编程代码或仅需要少许编程代码 2 数据编辑录入子窗体数据编辑录入窗体是指在窗体中显示一些常用的数据录入控件 如文本框TextBox 组合框ComboBox等 及相应命令控件CommandButton 对数据进行添加 修改 删除 取消等 除此之外数据编辑录入窗体 还应具有控制焦点在控件中的访问顺序 例如 当用户填写完一项内容后 自动将焦点转到下一项内容 我们介绍两种创建数据编辑录入子窗体的方法 15 4 2创建各子窗体 1 创建数据编辑录入子窗体方法一我们以 修改 删除入库单 子窗体为例 这种方法运用前面我们学习的文本框 组合框及命令按钮 把它们一一放到窗体上 设置属性 编辑代码 修改 删除入库单 子窗体如图15 14所示 图15 14修改 删除入库单 15 4 2创建各子窗体 入库单子窗体控件列表添加DTPicker日历控件 选择 工程 部件 中MicrosoftWindowsCommonControns 26 0 SP6 在工具箱中将添加到窗体中 15 4 2创建各子窗体 15 4 2创建各子窗体 15 4 2创建各子窗体 连接数据库选择设置ADODC控件的ConnectionString属性 参考项目十四 用文件框绑定数据 15 4 2创建各子窗体 数据输出数据输出如图15 16所示 图15 16修改 删除入库单数据输出 15 4 2创建各子窗体 销售单 库存信息及客户信息等窗体设计与入库单相同 可自行设计 修改 删除入库单 主要代码控制焦点在控件中的访问顺序代码 要实现该功能 可以使用KeyDown事件和SetFocus方法 如当我们修改完 入库单号 以后 让焦点自动移到 日期 代码如下 PrivateSubtxtnum KeyDown KeyCodeAsInteger ShiftAsInteger IfKeyCode vbKeyReturnThenDTPicker1 SetFocusEndSub 15 4 2创建各子窗体 当我们点击 修改 命令按钮时 让焦点自动移到 入库单号 代码如下 PrivateSubCmd modi KeyDown KeyCodeAsInteger ShiftAsInteger IfKeyCode vbKeyReturnThentxtnum SetFocusEndSub 前一条 命令按钮代码 PrivateSubCmd pre Click Cmd next Enabled FalseCmd pre Enabled TrueIfAdodc1 Recordset BOF FalseThenAdodc1 Recordset MovePreviousElseCmd pre Enabled FalseCmd next Enabled TrueEndIfEndSub 15 4 2创建各子窗体 后一条 命令按钮代码 PrivateSubCmd next Click IfCmd pre Enabled FalseThenCmd next Enabled TrueEndIfIfAdodc1 Recordset EOF FalseThenAdodc1 Recordset MoveNextElseCmd next Enabled FalseCmd pre Enabled TrueEndIfEndSub 15 4 2创建各子窗体 修改信息 命令按钮代码 PrivateSubCmd modi Click curId Adodc1 Recordset Fields CountAdodc1 Recordset Fields 0 Value Trim txtnum Text Adodc1 Recordset Fields 1 Value DTPicker1 ValueAdodc1 Recordset Fields 2 Value Trim txtname Text Adodc1 Recordset Fields 3 Value Val Trim txtprice Text Adodc1 Recordset Fields 4 Value Val Trim txtwarehouse Text Adodc1 Recordset Fields 5 Value Trim txthandler Text Adodc1 Recordset Fields 6 Value Trim txtInfo Text Adodc1 Recordset UpdateMsgBox 入库单已修改 15 4 2创建各子窗体 Adodc1 RecordSource SELECT FROM入库单 Adodc1 RefreshDoWhileAdodc1 Recordset Fields CountcurIdAdodc1 Recordset Move 1 LoopEndSub 删除信息 命令按钮代码 PrivateSubCmd del Click Adodc1 Recordset DeleteAdodc1 Recordset UpdateMsgBox 入库单已删除 Adodc1 RecordSource SELECT FROM入库单 Adodc1 RefreshEndSub 15 4 2创建各子窗体 2 创建数据编辑录入子窗体方法二使用数据窗体向导设计数据编辑录入窗体 启动数据窗体向导在VisualBasic6 0中提供了一个功能强大的数据窗体向导 通过几个交互过程 便能够建立一个访问数据的窗口 数据窗体向导 属于外接程序 选择 外接程序 外接程序管理器 弹出如图15 17所示的对话框 将 VB6 0数据窗体向导 装入到 外接程序 的子菜单中 如图15 18所示 15 4 2创建各子窗体 图15 18添加后的外接程序 15 4 2创建各子窗体 选择数据库类型在选择配置文件时 可选择 无 在数据库类型中 选择Remote ODBC 如图15 19 单击 下一步 图15 19选择数据库类型 15 4 2创建各子窗体 输入连接信息输入连接信息 如图15 20所示 图15 20输入连接信息 15 4 2创建各子窗体 输入窗体信息输入窗体信息 如图15 21所示 图15 21窗体信息输入 15 4 2创建各子窗体 选择记录源选择记录源 如图15 22所示 图15 22选择数据窗体的记录源 15 4 2创建各子窗体 选择所需要的控件根据需要选择控件 如图15 23所示 点击 完成 生成如图15 24所示 编辑销售单 窗体 图15 23选择需要的控件 15 4 2创建各子窗体 图15 24用数据窗体向导设计 编辑销售单 窗体 15 4 2创建各子窗体 完善 编辑销售单 窗体我们可以根据需要 在已生成的 编辑销售单 窗体中再添加所需要的控件 我们添加一个DataGrid控件 并将其DataSource属性设置为datPrimaryRS 数据窗体向导设计窗体时 ADODC控件的默认名称为datPrimaryRS 可更改为其它名称 这样我们无需编写代码 就可完成对数据添加 修改 删除 更新等操作 如图15 25所示 15 4 2创建各子窗体 图15 25添加控件后的 编辑销售单 窗体 15 4 2创建各子窗体 两种方法的比较方法一 制作虽然复杂 但可以提高我们对知识的更深理解和掌握 方法二简单方便 充分利用VB6 0的强大功能 易于学习掌握 3 查询窗体设计 查询 是应用软件中必不可少的部分 几乎任何一个应用软件的设计都离不开查询 并且占软件设计中相当大比重 离开了查询 软件应用也就失去了实际意义 我们以 查询库存汽车 窗体为例 1 查询汽车库存 窗体设计 查询汽车库存 窗体控件列表 15 4 2创建各子窗体 15 4 2创建各子窗体 连接数据库设置ADODC控件的ConnectionString属性 参考项目十四 用DataGrid控件绑定数据设置DataGrid控件的DataSource属性为ADODC1 设置DataGrid控件的列值鼠标右键单击DataGrid控件 在弹出的菜单中选择 检索字段 菜单项 将数据源中的各字段添加到DataGrid控件的列中 15 4 2创建各子窗体 查询结果显示查询结果如图15 25所示 图15 25查询库存汽车结果 15 4 2创建各子窗体 3 查询库存汽车窗体的主要代码 查询按钮代码PrivateSubCmd que Click IfOption1 TrueThen 选中按入库单号查询按钮IfCombo1 Text ThenAdodc1 RecordSource select from库存信息where 入库单号 Trim Val Combo1 Text Adodc1 RefreshEndIfEndIfIfOption2 TrueThen 选中按车辆名称查询按钮IfCombo2 Text ThenAdodc1 RecordSource select from库存信息where 车辆名称 Trim Combo2 Text Adodc1 RefreshEndIfEndIf 15 4 2创建各子窗体 IfOption3 TrueThen 选中按供应商名称查询按钮IfCombo3 Text ThenAdodc1 RecordSource select from库存信息where 供应商名称 Trim Combo3 Text Adodc1 RefreshEndIfEndIfEndSub 15 4 2创建各子窗体 窗体加载代码PrivateSubForm Load Me Left Screen Width Me Width 2 窗体居中Me Top Screen Height Me Height 2IfAdodc1 Recordset EOF FalseThenWithAdodc1 RecordsetDoWhileNot EOFCombo1 AddItem Fields 0 添加入库单号Combo2 AddItem Fields 1 添加车辆名称Combo3 AddItem Fields 3 添加供应商名称 MoveNextLoopEndWithEndIfEndSub 15 4 2创建各子窗体 4 数据统计窗体设计对数据进行汇总统计 是销售管理系统重要的环节 我们以 汽车金额汇总 窗体为例 通过查询汇总销售金额 汽车金额汇总窗体设计汽车金额汇总窗体设计与查询库存汽车窗体设计相同 参考一下 不再介绍 设计好汽车金额汇总窗体如图15 26所示 图15 26汽车金额汇总窗体 15 4 2创建各子窗体 汽车金额汇总窗体代码 汇总按钮代码SubCmd que Click DataGrid1 Visible TrueIfOption1 TrueThenIfCombo1 Text ThenAdodc1 RecordSource select from销售单where 销售单号 Trim Combo1 Text Adodc1 Refresh 创建汇总数据源Adodc2 RecordSource selectcount as销售数量 sum 销售单价 as销售金额from销售单where 销售单号 Trim Val Combo1 Text Adodc2 RefreshEndIfLabel2 Caption Adodc2 Recordset Fields 0 显示汇总结果Label4 Caption Adodc2 Recordset Fields 1 显示汇总结果EndIf 15 4 2创建各子窗体 IfOption2 TrueThenIfCombo2 Text ThenAdodc1 RecordSource select from销售单where 车辆名称 Trim Combo2 Text Adodc1 RefreshAdodc2 RecordSource selectcount as 销售数量 sum 销售单价 as销售金额from销售单 where车辆名称 Trim Combo2 Text Adodc2 RefreshEndIfLabel2 Caption Adodc2 Recordset Fields 0 Label4 Caption Adodc2 Recordset Fields 1 EndIf 15 4 2创建各子窗体 IfOption3 TrueThenIfCombo3 Text ThenAdodc1 RecordSource select from销售单 where日期between CDate Combo3 Text and CDate Combo4 Text Adodc1 RefreshAdodc2 RecordSource selectcount as 销售数量 sum 销售单价 as销售金额from销售单 where日期between Combo3 Text and Combo4 Text Adodc2 RefreshEndIfLabel2 Caption Adodc2 Recordset Fields 0 Label4 Caption Adodc2 Recordset Fields 1 EndIfEndSub 15 4 2创建各子窗体 窗体加载代码PrivateSubForm Load Me Left Screen Width Me Width 2 窗体居中Me Top Screen Height Me Height 2DataGrid1 Visible FalseIfAdodc1 Recordset EOF FalseThenWithAdodc1 RecordsetDoWhileNot EOFCombo1 AddItem Fields 0 添加入库单号Combo2 AddItem Fields 2 添加车辆名称Combo3 AddItem Fields 1 添加日期Combo4 AddItem Fields 1 MoveNextLoopEndWithEndIfEndSub 15 4 2创建各子窗体 客户信息查询窗体设计与库存汽车查询窗体设计相同 不再介绍 5 数据图表窗体设计VB6 0中的MSChart控件是一个功能强大的高级图表工具 拥有丰富的图表绘制功能 可显示二维和三维的棒图 区域图 线形图 饼图等多种常用图表 本小节内容可选做 我们使用 销售单 数据和 数据窗体向导 制作数据图表窗体 具体步骤如下 1 启动 数据窗体向导 15 4 2创建各子窗体 启动 数据窗体向导