《《Visual Basic程序设计项目化教程》-管小清-电子教案 项目15 汽车销售管理系统》由会员分享，可在线阅读，更多相关《《Visual Basic程序设计项目化教程》-管小清-电子教案 项目15 汽车销售管理系统（71页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic 程序设计项目化教程,主编 管小清 郭贺彬,项目十五：汽车销售管理系统,项目功能描述： 本项目设计并实现了一个汽车销售管理信息系统，后台数据库采用SQL Server，前端功能实现采用VB程序设计，主要功能如下： 1.系统管理：用来实现对用户的添加、删除和修改等操作。 2.销售管理：用来实现对入库单、销售单的添加、删除和修改等操作。 3.客户管理：用来实现对客户信息的添加、删除和修改等操作。 4车辆金额汇总：根据需要汇总销售金额。,项目十五：汽车销售管理系统,项目主要知识点： 非编程代码访问数据库 ADODC控件 DataGrid数据绑定控件 项目实施步骤： 1阅读相关
2、基础知识 2汽车销售管理系统功能设计简述 3SQL Server 2000数据库设计 4汽车销售管理系统窗体设计 5程序调试,15.1 基础知识概述,我们已经知道ADO通常采用两种方法实现对数据库的访问，一种是采用ADODC控件来实现，另一种采用ADO对象编程来实现。本项目采用ADODC控件来实现。 15.1.1 ADO控件的主要属性 1ConnectionString属性 ConnectionString属性为字符串，包含用来建立与数据源连接的所有信息，每项信息用分号隔开，在ConnectionString属性中有4个主要参数，即： （1）Provider： 指定数据源的名称。 （2）Fil
3、e Name：指定基于数据源的文件名称。 （3）Remote Provider：指定打开客户端连接时，使用的数据源名称。 （4）Remote Server：指定打开客户端连接时，使用服务器路径名称。,15.1 基础知识概述,2UserName属性 UserName属性是ADODC控件特有的属性，在ADO对象模型中没有，它用来指定用户的名称。可以在ADODC控件的“属性窗口”中直接输入，也可以在ADODC控件的“属性页”对话框或“数据链接属性”对话框中设置。 3RecordSource属性 RecordSource属性也是ADODC控件特有的属性，该属性通常是由一条SQL语句组成，用于决定从数据
4、库中检索信息。,15.1.2 ADODC控件常用方法,1Refresh方法 该方法用于刷新与ADODC控件连接的记录集的数据。 2.UpDateRecord方法 通过此方法可以将数据绑定控件上的当前内容写入到数据库中。 3Close方法 Close方法主要用于关闭打开的对象及相关的对象。 其它关于如何调用ADCDC控件及其专门与ADODC控件绑定的ActiveX控件可参考项目十四“ADO数据库访问技术”。,15.2 汽车管理系统功能设计,15.2.1 系统目标 通过使用汽车销售管理系统，可以方便地对汽车入库及销售进行管理，随时可查询汽车库存信息资料、购车人信息资料并进行修改删除，还可对车辆情况
5、进行汇总。,15.2.1 系统功能,1系统管理 对用户信息进行添加、修改、删除。 2汽车销售管理 对入库车辆、销售车辆、库存车辆进行查看、添加、修改、删除。 3客户信息管理 对购车人的信息进行查看、添加、修改、删除。 4车辆金额汇总 随时可根据需要按销售单号、车辆名称及时间统计汽车销售数量、金额进行汇总。,15.2.3 系统结构图,汽车销售管理系统如图15-1所示:,图 15-1 汽车销售管理系统,15.3 SQL Server2000数据库设计,15.3.1 建立数据库 启动SQL Server 2000中企业管理器，建立数据库CarSale如图15-2所示：,15.3.2 设计数据表,1用
6、户信息表如图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设计概述 在主窗体界面中单击菜单或工具栏上的功能按钮,可以调用相应的子窗体,进行相应的操作。在状态栏中显示当前的日期、时间以及公司的网址。对界面背景进行添加图片和阴影字的设计。
7、2.主窗体设计 （1）新建工程 新建一个“标准EXE”工程并将工程命名为“汽车销售管理系统”。 （2）添加主窗体 选择“工程”“添加窗体”，在项目中添加了主窗体。该窗体的一 些属性如表15-1所示：,注：Windowstate的值为Maxsize，即程序启动之后自动最大化。,表 15-1 窗体属性表,15.4 “汽车销售管理系统”窗体设计,（3）菜单设计 选择“工具”“菜单编辑器”编辑菜单，各菜单项如表15-2所示：,15.4 “汽车销售管理系统”窗体设计,4）工具栏设计 添加部件 选择“工程“部件”，在弹出的列表中选中“Microsoft Windows Common Control6.0(
8、sp3)”选项，然后单击确定按钮, 将工具栏等控件添加到工具箱中，如图15-8所示：,图 15-8 ImageList,Toolbar,StartBar控件,15.4 “汽车销售管理系统”窗体设计,设置ImageList控件 将ImageList控件放置窗体，右键单击此控件，在弹出的菜单中选择“属性”，在“属性页”对话框中单击“通用”选项卡，并设置如图15-9所示的选项,15.4 “汽车销售管理系统”窗体设计,在“属性页”对话框中单击“图像”选项卡，并设置如图15-10所示的选项（注意：一定要添写关键字）,15.4 “汽车销售管理系统”窗体设计,设置ToolBar控件属性 将ToolBar控件
9、放置窗体，右键单击此控件，在弹出的菜单中选择“属性”，在“属性页”对话框中单击“通用”选项卡,“图像列表”选择ImageList1,如图15-11所示：,15.4 “汽车销售管理系统”窗体设计,在“属性页”对话框中单击“按钮”选项卡,单击“插入按钮”，将“关键字”与“图像”一一对应，如图15-12所示：,15.4 “汽车销售管理系统”窗体设计,（5）状态栏设置 设置状态栏属性 将StatusBar控件放置窗体，右键单击此控件，在弹出的菜单中选择“属性”，在“属性页”对话框中单击“窗格”选项卡,单击“插入窗格”按钮，插入四个窗格，在窗格1中输入文本“汽车销售管理系统主窗体”，在窗格2中输入文本h
10、ttp:/，在窗格3中样式选“6-sbrData”， 在窗格4中样式选“5-sbrTime”。 （6）主窗体背景设计 Picture属性：值为图片所在的路径 StartUpPostion属性：值为“1-所有者中心” 阴影字“汽车销售管理系统”的设置可参考项目三,15.4 “汽车销售管理系统”窗体设计,主窗体界面如图15-13所示：,图 15-13 汽车销售管理系统主窗体界面,15.4 “汽车销售管理系统”窗体设计,3主窗体主要代码 Private Sub carin_Click() 调用子窗体 frm_edit_Carin.Show End Sub Private Sub carsale_Cl
11、ick() 调用子窗体 Frm_edit_CarSale.Show End Sub Private Sub Menu_addCar_Click() 调用子窗体 Frm_addCar.Show End Sub Private Sub Menu_addCus_Click() 调用子窗体 Frm_addCus.Show End Sub Private Sub Menu_addUser_Click() 调用子窗体 Frm_addUser.Show End Sub,15.4.2 创建各子窗体,1子窗体设计 （1）设计说明 汽车销售管理系统的子窗体类型主要有“系统登录”、“数据编辑录入”、“查询”、“数据
12、统计”等。在汽车管理系统中，要创建的所有子窗体如下表15-3所示：,15.4.2 创建各子窗体,（2）子窗体代码 所有子窗体我们使用ADODC控件与数据绑定控件结合，实现我们所需要的功能，基本上不需要编程代码或仅需要少许编程代码。 2数据编辑录入子窗体 数据编辑录入窗体是指在窗体中显示一些常用的数据录入控件，如文本框TextBox、组合框ComboBox等，及相应命令控件CommandButton， 对数据进行添加、修改、删除、取消等。除此之外数据编辑录入窗体，还应具有控制焦点在控件中的访问顺序，例如，当用户填写完一项内容后，自动将焦点转到下一项内容。我们介绍两种创建数据编辑录入子窗体的方法。
13、,15.4.2 创建各子窗体,（1）创建数据编辑录入子窗体方法一 我们以“修改/删除入库单”子窗体为例，这种方法运用前面我们学习的文本框、组合框及命令按钮，把它们一一放到窗体上，设置属性，编辑代码。 “修改/删除入库单”子窗体如图15-14所示：,图 15-14 修改/删除入库单,15.4.2 创建各子窗体,入库单子窗体控件列表 添加DTPicker日历控件。 选择“工程”“部件”中Microsoft Windows Common Controns-2 6.0(SP6)，在工具箱中将 添加到窗体中。,15.4.2 创建各子窗体,15.4.2 创建各子窗体,15.4.2 创建各子窗体,连接数据库
14、 选择设置ADODC控件的ConnectionString属性(参考项目十四) 用文件框绑定数据,15.4.2 创建各子窗体,数据输出 数据输出如图15-16所示：,图 15-16 修改/删除入库单数据输出,15.4.2 创建各子窗体,销售单、库存信息及客户信息等窗体设计与入库单相同，可自行设计 “修改/删除入库单”主要代码 控制焦点在控件中的访问顺序代码： 要实现该功能，可以使用KeyDown事件和SetFocus方法，如当我们修改完“入库单号”以后，让焦点自动移到“日期”，代码如下： Private Sub txtnum_KeyDown(KeyCode As Integer, Shift
15、As Integer) If KeyCode = vbKeyReturn Then DTPicker1.SetFocus End Sub,15.4.2 创建各子窗体,当我们点击“修改”命令按钮时，让焦点自动移到“入库单号”，代码如下： Private Sub Cmd_modi_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then txtnum.SetFocus End Sub “前一条”命令按钮代码： Private Sub Cmd_pre_Click() Cmd_next.Enabled = F
16、alse Cmd_pre.Enabled = True If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MovePrevious Else Cmd_pre.Enabled = False Cmd_next.Enabled = True End If End Sub,15.4.2 创建各子窗体,“后一条”命令按钮代码： Private Sub Cmd_next_Click() If Cmd_pre.Enabled = False Then Cmd_next.Enabled = True End If If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext Else Cmd_next.Enabled = False Cmd_pre.Enabled = True
