项目15 汽车销售管理系统

1、VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 主编主编 管小清管小清 郭贺彬郭贺彬 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 项目十五：汽车销售管理系统项目十五：汽车销售管理系统 n项目功能描述：项目功能描述： n本项目设计并实现了一个汽车销售管理信息系统，后台数据库采本项目设计并实现了一个汽车销售管理信息系统，后台数据库采 用用SQL Server，前端功能实现采用，前端功能实现采用VB程序设计，主要功能如下：程序设计，主要功能如下： n1.系统管理：用来实现对用户的添加、删除和修改等操作。系统管理：用来实现对用户的

2、添加、删除和修改等操作。 n2.销售管理：用来实现对入库单、销售单的添加、删除和修改等销售管理：用来实现对入库单、销售单的添加、删除和修改等 操作。操作。 n3.客户管理：用来实现对客户信息的添加、删除和修改等操作。客户管理：用来实现对客户信息的添加、删除和修改等操作。 n4车辆金额汇总：根据需要汇总销售金额。车辆金额汇总：根据需要汇总销售金额。 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 项目十五：汽车销售管理系统项目十五：汽车销售管理系统 n项目主要知识点：项目主要知识点： n非编程代码访问数据库非编程代码访问数据库 nADODC控件控件 nDataG

3、rid数据绑定控件数据绑定控件 n项目实施步骤：项目实施步骤： n 1阅读相关基础知识阅读相关基础知识 n 2汽车销售管理系统功能设计简述汽车销售管理系统功能设计简述 n 3SQL Server 2000数据库设计数据库设计 n 4汽车销售管理系统窗体设计汽车销售管理系统窗体设计 n 5程序调试程序调试 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.1 基础知识概述基础知识概述 n我们已经知道我们已经知道ADO通常采用两种方法实现对数据库的访问，一种是采用通常采用两种方法实现对数据库的访问，一种是采用 ADODC控件来实现，另一种采用控件来实现，另一种

4、采用ADO对象编程来实现。本项目采用对象编程来实现。本项目采用 ADODC控件来实现。控件来实现。 n15.1.1 ADO控件的主要属性控件的主要属性 n1ConnectionString属性属性 nConnectionString属性为字符串，包含用来建立与数据源连接的所有信属性为字符串，包含用来建立与数据源连接的所有信 息，每项信息用分号隔开，在息，每项信息用分号隔开，在ConnectionString属性中有属性中有4个主要参数，个主要参数， 即：即： n（1）Provider： 指定数据源的名称。指定数据源的名称。 n（2）File Name：指定基于数据源的文件名称。：指定基于数据源

5、的文件名称。 n（3）Remote Provider：指定打开客户端连接时，使用的数据源名称。：指定打开客户端连接时，使用的数据源名称。 n（4）Remote Server：指定打开客户端连接时，使用服务器路径名称。：指定打开客户端连接时，使用服务器路径名称。 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.1 基础知识概述基础知识概述 n2UserName属性属性 nUserName属性是属性是ADODC控件特有的属性，在控件特有的属性，在ADO 对象模型中没有，它用来指定用户的名称。可以在对象模型中没有，它用来指定用户的名称。可以在 ADODC控件的

6、控件的“属性窗口属性窗口”中直接输入，也可以在中直接输入，也可以在 ADODC控件的控件的“属性页属性页”对话框或对话框或“数据链接属性数据链接属性” 对话框中设置。对话框中设置。 n3RecordSource属性属性 nRecordSource属性也是属性也是ADODC控件特有的属性，该控件特有的属性，该 属性通常是由一条属性通常是由一条SQL语句组成，用于决定从数据库语句组成，用于决定从数据库 中检索信息。中检索信息。 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.1.2 ADODC控件常用方法控件常用方法 n1Refresh方法方法 n该方法用于

7、刷新与该方法用于刷新与ADODC控件连接的记录集的数据。控件连接的记录集的数据。 n2.UpDateRecord方法方法 n通过此方法可以将数据绑定控件上的当前内容写入到数据库中。通过此方法可以将数据绑定控件上的当前内容写入到数据库中。 n3Close方法方法 nClose方法主要用于关闭打开的对象及相关的对象。方法主要用于关闭打开的对象及相关的对象。 n其它关于如何调用其它关于如何调用ADCDC控件及其专门与控件及其专门与ADODC控件绑定的控件绑定的 ActiveX控件可参考项目十四控件可参考项目十四“ADO数据库访问技术数据库访问技术”。 VBVB程序设计项目化教程程序设计项目化教程中国

8、水利水电出版社中国水利水电出版社 15.2 汽车管理系统功能设计汽车管理系统功能设计 n15.2.1 系统目标系统目标 n通过使用汽车销售管理系统，可以方便地对汽车入库通过使用汽车销售管理系统，可以方便地对汽车入库 及销售进行管理，随时可查询汽车库存信息资料、购及销售进行管理，随时可查询汽车库存信息资料、购 车人信息资料并进行修改删除，还可对车辆情况进行车人信息资料并进行修改删除，还可对车辆情况进行 汇总。汇总。 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.2.1 系统功能系统功能 n1系统管理系统管理 n对用户信息进行添加、修改、删除。对用户信息进

9、行添加、修改、删除。 n2汽车销售管理汽车销售管理 n对入库车辆、销售车辆、库存车辆进行查看、添加、修改、删除。对入库车辆、销售车辆、库存车辆进行查看、添加、修改、删除。 n3客户信息管理客户信息管理 n对购车人的信息进行查看、添加、修改、删除。对购车人的信息进行查看、添加、修改、删除。 n4车辆金额汇总车辆金额汇总 n随时可根据需要按销售单号、车辆名称及时间统计汽车销售数量、随时可根据需要按销售单号、车辆名称及时间统计汽车销售数量、 金额进行汇总。金额进行汇总。 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.2.3 系统结构图系统结构图 n汽车销售管

10、理系统如图汽车销售管理系统如图15-1所示所示: 图 15-1 汽车销售管理系统 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.3 SQL Server2000数据库设计数据库设计 n15.3.1 建立数建立数 据库据库 n 启动启动SQL Server 2000中中 企业管理器，企业管理器， 建立数据库建立数据库 CarSale如图如图 15-2所示：所示： 图 15-2 汽车销售管理系统数据库与数据表 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.3.2 设计数据表设计数据表 n1用户信息表如图用户信息表如

11、图15-3所示：所示： 图 15-3 用户信息表 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.3.2 设计数据表设计数据表 n 2入库单表如图入库单表如图15-4所示所示: 图 15-4 入库单表 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.3.2 设计数据表设计数据表 n3销售单表如图销售单表如图15-5所示：所示： 图 15-5 销售单表 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.3.2 设计数据表设计数据表 n4库存信息表如图库存信息表如图15-6所示：所

12、示： 图 15-6 库存信息表 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.3.2 设计数据表设计数据表 n5客户信息表如图客户信息表如图15-7所示：所示： 图15-7 客户信息表 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计 n1设计概述设计概述 n在主窗体界面中单击菜单或工具栏上的功能按钮在主窗体界面中单击菜单或工具栏上的功能按钮,可以调用相应的子窗体可以调用相应的子窗体,进行相应的操作。在进行相应的操作。在 状态栏中显示当前的日期、时间以及公司

13、的网址。对界面背景进行添加图片和阴影字的设计。状态栏中显示当前的日期、时间以及公司的网址。对界面背景进行添加图片和阴影字的设计。 n2.主窗体设计主窗体设计 n（1）新建工程）新建工程 n新建一个新建一个“标准标准EXE”工程并将工程命名为工程并将工程命名为“汽车销售管理系统汽车销售管理系统”。 n（2）添加主窗体）添加主窗体 n选择选择“工程工程”“添加窗体添加窗体”，在项目中添加了主窗体。该窗体的一，在项目中添加了主窗体。该窗体的一 n些属性如表些属性如表15-1所示：所示： 属属 性性值值 Caption汽车销售管理系统 NameFormMain WindowstateMaxsize 注

14、：Windowstate的值为Maxsize，即程序启动之后自动最大化。 表 15-1 窗体属性表 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计 n（3）菜单设计）菜单设计 n选择选择“工具工具”“菜单编辑器菜单编辑器” 编辑菜单，各菜单项如表编辑菜单，各菜单项如表15- 2所示：所示： 菜单标题菜单标题说明说明快捷方式快捷方式 系统用户管理系统用户管理主菜单项主菜单项1 1自行设置自行设置 添加用户子菜单项11同上 查看/修改密码子菜单项12同上 汽车销售管理汽车销售管理主菜单项主菜单项2 2

15、同上 添加入库单子菜单项21同上 修改/删除入库单子菜单项22同上 编辑销售单子菜单项23同上 查询库存信息 编辑库存信息子菜单项24同上 客户信息管理客户信息管理主菜单项主菜单项3 3同上 查看客户信息子菜单项31同上 添加客户信息子菜单项32同上 修改/删除客户信 息 子菜单项33同上 车辆金额汇总车辆金额汇总主菜单项主菜单项4 4同上 车辆金额汇总子菜单项51同上 退出退出主菜单项主菜单项5 5同上 退出系统子菜单项61同上 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计 n4）工具栏设计）

16、工具栏设计 n添加部件添加部件 n选择选择“工程工程“部件部件”，在弹出的列表中选中，在弹出的列表中选中“Microsoft nWindows Common Control6.0(sp3)”选项，然后单击确定按钮选项，然后单击确定按钮, 将工具将工具 栏等控件添加到工具箱中，如图栏等控件添加到工具箱中，如图15-8所示：所示： Toobar控件 控件 仿宋体 控件 StatusBar控件 ImageList控件 图 15-8 ImageList,Toolbar,StartBar控件 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4 “汽车销售管理系统汽

17、车销售管理系统”窗体设计窗体设计 n设置设置ImageList控件控件 n将将ImageList控件放置窗体，右键单击此控件，在弹出的菜单中选择控件放置窗体，右键单击此控件，在弹出的菜单中选择“属属 性性”，在，在“属性页属性页”对话框中单击对话框中单击“通用通用”选项卡，并设置如图选项卡，并设置如图15-9所所 示的选项示的选项 选择“通用”选项卡中 的“3232”选项 图 15-9 ImageList通用属性设置 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计 n在在“属性页属性页”对话框中单

18、击对话框中单击“图像图像”选项卡，并设置选项卡，并设置 如图如图15-10所示的选项（注意：一定要添写关键字）所示的选项（注意：一定要添写关键字） 单击“插入图片” 插入所需图片 图 15-10 ImageList图像属性设置 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计 n设置设置ToolBar控件属性控件属性 n将将ToolBar控件放置窗体，控件放置窗体， 右键单击此控件，在弹右键单击此控件，在弹 出的菜单中选择出的菜单中选择“属属 性性”，在，在“属性页属性页”对对 话框中单击话框中单击

19、“通用通用”选选 项卡项卡,“图像列表图像列表”选择选择 ImageList1,如图如图15-11 所示：所示： 图 15-11 ToolBar通用属性设置 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计 n在在“属性页属性页”对话对话 框中单击框中单击“按钮按钮” 选项卡选项卡,单击单击“插入插入 按钮按钮”，将，将“关键关键 字字”与与“图像图像”一一 一对应，如图一对应，如图15-12 所示：所示： 图 15-12 ToolBar按钮属性的设置 VBVB程序设计项目化教程程序设计项目化教程中

20、国水利水电出版社中国水利水电出版社 15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计 n（5）状态栏设置）状态栏设置 n设置状态栏属性设置状态栏属性 n将将StatusBar控件放置窗体，右键单击此控件，在弹出的菜单中控件放置窗体，右键单击此控件，在弹出的菜单中 选择选择“属性属性”，在，在“属性页属性页”对话框中单击对话框中单击“窗格窗格”选项卡选项卡,单击单击 “插入窗格插入窗格”按钮，插入四个窗格，在窗格按钮，插入四个窗格，在窗格1中输入文本中输入文本“汽车汽车 销售管理系统主窗体销售管理系统主窗体”，在窗格，在窗格2中输入文本中输入文本 http:/，在窗格，在窗格3中样

21、式选中样式选“6- sbrData”， 在窗格在窗格4中样式选中样式选“5-sbrTime”。 n（6）主窗体背景设计）主窗体背景设计 nPicture属性：值为图片所在的路径属性：值为图片所在的路径 nStartUpPostion属性：值为属性：值为“1-所有者中心所有者中心” n阴影字阴影字“汽车销售管理系统汽车销售管理系统”的设置可参考项目三的设置可参考项目三 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计 n主窗体界面如图主窗体界面如图15-13所示：所示： 图 15-13 汽车销售管理系

22、统主窗体界面 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计 n3主窗体主要代码主窗体主要代码 nPrivate Sub carin_Click() 调用子窗体调用子窗体 nfrm_edit_Carin.Show nEnd Sub nPrivate Sub carsale_Click() 调用子窗体调用子窗体 nFrm_edit_CarSale.Show nEnd Sub nPrivate Sub Menu_addCar_Click() 调用子窗体调用子窗体 n Frm_addCar.Show n

23、End Sub nPrivate Sub Menu_addCus_Click() 调用子窗体调用子窗体 n Frm_addCus.Show nEnd Sub nPrivate Sub Menu_addUser_Click() 调用子窗体调用子窗体 n Frm_addUser.Show nEnd Sub VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n1子窗体设计子窗体设计 n（1）设计说明）设计说明 n 汽车销售管理系统的子窗汽车销售管理系统的子窗 体类型主要有体类型主要有“系统登录系统登录”、 “数据编辑录入数据编辑

24、录入”、“查查 询询”、“数据统计数据统计”等。在等。在 汽车管理系统中，要创建的汽车管理系统中，要创建的 所有子窗体如下表所有子窗体如下表15-3所示：所示： 子窗体标题子窗体标题子子 窗窗 体体 名名 添加用户 Frm_addUser 修改 /删除用户Frm_edit_User 添加入库单Frm_addCarin 修改/删除入库单 Frm_edit_addCarin 编辑销售单Frm_edit_Carsale 编辑库存信息Frm_edit_warehouse 查询库存信息Frm_queCar 查看客户信息Frm_queCus 添加客户信息Frm_addCus 修改/删除客户信息Frm_ed

25、it_addCus 查询销售金额Frm_queSum 销售信息图表Frm_datareport 系统登录Frm_login VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n（2）子窗体代码）子窗体代码 n 所有子窗体我们使用所有子窗体我们使用ADODC控件与数据绑定控件结合，实控件与数据绑定控件结合，实 现我们所需要的功能，基本上不需要编程代码或仅需要少许编程现我们所需要的功能，基本上不需要编程代码或仅需要少许编程 代码。代码。 n2数据编辑录入子窗体数据编辑录入子窗体 n 数据编辑录入窗体是指在窗体中显示一些常用的数

26、据录入控件，数据编辑录入窗体是指在窗体中显示一些常用的数据录入控件， 如文本框如文本框TextBox、组合框、组合框ComboBox等，及相应命令控件等，及相应命令控件 CommandButton， n对数据进行添加、修改、删除、取消等。除此之外数据编辑录入对数据进行添加、修改、删除、取消等。除此之外数据编辑录入 窗体，还应具有控制焦点在控件中的访问顺序，例如，当用户填窗体，还应具有控制焦点在控件中的访问顺序，例如，当用户填 写完一项内容后，自动将焦点转到下一项内容。我们介绍两种创写完一项内容后，自动将焦点转到下一项内容。我们介绍两种创 建数据编辑录入子窗体的方法。建数据编辑录入子窗体的方法。

27、 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n（1）创建数据编辑录入）创建数据编辑录入 子窗体方法一子窗体方法一 n我们以我们以“修改修改/删除入库删除入库 单单”子窗体为例，这种方子窗体为例，这种方 法运用前面我们学习的文法运用前面我们学习的文 本框、组合框及命令按钮，本框、组合框及命令按钮， 把它们一一放到窗体上，把它们一一放到窗体上， 设置属性，编辑代码。设置属性，编辑代码。 n“修改修改/删除入库单删除入库单” 子窗体如图子窗体如图15-14所示：所示： 图 15-14 修改/删除入库单 VBVB程序设计项

28、目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n入库单子窗体控件列表入库单子窗体控件列表 n添加添加DTPicker日历控件。日历控件。 n 选择选择“工程工程”“部件部件”中中Microsoft Windows Common nControns-2 6.0(SP6)，在工具箱中将，在工具箱中将 添加到窗体添加到窗体 中。中。 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 控控 件件 类类 别别控件控件NameName控件控件captioncaption Lab

29、el Label1入库单号 Label2日期 Label3车辆名称 Label4单价 Label5仓库（网点） Label6经手人 Label7备注 TextBox Txtnum(空) txtname(空) txtprice(空) txtwarehouse(空) txthandler(空) txtinfo(空) VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 DTPickerDTPicker1当前日期 CommandButton cmd_first第一条记录 cmd_pre前一条记录 cmd_next后一条记录 cmd_

30、last最后一条记录 Cmd_modi修改记录 Cmd_del删除记录 Cmd_quit退出 Frame Frame1入库单 Frame2查看入库信息 Frame3修改入库信息 ADODCADODC1ADODC1 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n连接数据库连接数据库 n 选择设置选择设置ADODC控件的控件的 ConnectionString属性属性(参考参考 项目十四项目十四) n用文件框绑定数据用文件框绑定数据 属性 DataSourceAdodc1 DataField入库单号（相应字段） 图 15

31、-15 文本框数据绑定 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n数据输出数据输出 n数据输出如图数据输出如图15-16所示：所示： 图 15-16 修改/删除入库单数据输出 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n销售单、库存信息及客户信息等窗体设计与入库单相同，可自销售单、库存信息及客户信息等窗体设计与入库单相同，可自 行设计行设计 n“修改修改/删除入库单删除入库单”主要代码主要代码 n控制焦点在控件中的访问顺序代码：控制焦

32、点在控件中的访问顺序代码： n要实现该功能，可以使用要实现该功能，可以使用KeyDown事件和事件和SetFocus方法，如当方法，如当 我们修改完我们修改完“入库单号入库单号”以后，让焦点自动移到以后，让焦点自动移到“日期日期”，代码，代码 如下：如下： nPrivate Sub txtnum_KeyDown(KeyCode As Integer, Shift As Integer) nIf KeyCode = vbKeyReturn Then DTPicker1.SetFocus nEnd Sub VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.

33、2 创建各子窗体创建各子窗体 n当我们点击当我们点击“修改修改”命令按钮时，让焦点自动移到命令按钮时，让焦点自动移到“入库单号入库单号”，代码如下：，代码如下： nPrivate Sub Cmd_modi_KeyDown(KeyCode As Integer, Shift As Integer) nIf KeyCode = vbKeyReturn Then txtnum.SetFocus nEnd Sub n“前一条前一条”命令按钮代码：命令按钮代码： nPrivate Sub Cmd_pre_Click() nCmd_next.Enabled = False nCmd_pre.Enabled

34、 = True nIf Adodc1.Recordset.BOF = False Then n Adodc1.Recordset.MovePrevious n Else n Cmd_pre.Enabled = False n Cmd_next.Enabled = True n End If nEnd Sub VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n“后一条后一条”命令按钮代码：命令按钮代码： nPrivate Sub Cmd_next_Click() nIf Cmd_pre.Enabled = False Th

35、en n Cmd_next.Enabled = True n End If n If Adodc1.Recordset.EOF = False Then n Adodc1.Recordset.MoveNext nElse n Cmd_next.Enabled = False n Cmd_pre.Enabled = True nEnd If nEnd Sub VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n“修改信息修改信息”命令按钮代码：命令按钮代码： nPrivate Sub Cmd_modi_Click() ncu

36、rId = Adodc1.Recordset.Fields.Count nAdodc1.Recordset.Fields(0).Value = Trim(txtnum.Text) nAdodc1.Recordset.Fields(1).Value = DTPicker1.Value nAdodc1.Recordset.Fields(2).Value = Trim(txtname.Text) nAdodc1.Recordset.Fields(3).Value = Val(Trim(txtprice.Text) nAdodc1.Recordset.Fields(4).Value= Val(Trim

37、(txtwarehouse.Text) nAdodc1.Recordset.Fields(5).Value = Trim(txthandler.Text) nAdodc1.Recordset.Fields(6).Value = Trim(txtInfo.Text) nAdodc1.Recordset.Update n MsgBox (入库单已修改入库单已修改) VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 nAdodc1.RecordSource = SELECT * FROM 入库单入库单 n Adodc1.Refr

38、esh n Do While Adodc1.Recordset.Fields.Count curId n Adodc1.Recordset.Move (1) n Loop nEnd Sub n“删除信息删除信息”命令按钮代码：命令按钮代码： nPrivate Sub Cmd_del_Click() n Adodc1.Recordset.Delete n Adodc1.Recordset.Update n MsgBox (入库单已删除入库单已删除) n Adodc1.RecordSource = SELECT * FROM 入库单入库单 n Adodc1.Refresh nEnd Sub VBV

39、B程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n（2）创建数据编辑录入子窗体方法二）创建数据编辑录入子窗体方法二 n 使用数据窗体向导设计数据编辑录入窗体。使用数据窗体向导设计数据编辑录入窗体。 n启动数据窗体向导启动数据窗体向导 n在在Visual Basic 6.0中提供了一个功能强大的数据窗体中提供了一个功能强大的数据窗体 向导，通过几个交互过程，便能够建立一个访问数据的向导，通过几个交互过程，便能够建立一个访问数据的 窗口。窗口。“数据窗体向导数据窗体向导”属于外接程序，选择属于外接程序，选择“外接程外接程 序序”“

40、外接程序管理器外接程序管理器”，弹出如图，弹出如图15-17所示的对话所示的对话 框，将框，将“VB6.0数据窗体向导数据窗体向导”装入到装入到“外接程序外接程序”的的 子菜单中，如图子菜单中，如图15-18所示：所示： VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 图 15-17 “外接程序管理器”对话框 图 15-18 添加后的外接程序 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n选择数据库类型选择数据库类型 n在选择配置文件时，可选择

41、在选择配置文件时，可选择“无无”，在数据库类型中，选择，在数据库类型中，选择Remote(ODBC)如图如图 15-19，单击，单击“下一步下一步” 图 15-19 选择数据库类型 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n输入连接信息输入连接信息 n输入连接信息，输入连接信息， 如图如图15-20所示：所示： 图 15-20 输入连接信息 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n输入窗体信息输入窗体信息 n输入窗体信息，输入窗体

42、信息， 如图如图15-21所示：所示： 图 15-21 窗体信息输入 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n选择记录源选择记录源 n选择记录源，选择记录源， 如图如图15-22所所 示：示： 图 15-22 选择数据窗体的记录源 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n选择所需要的控件选择所需要的控件 n根据需要选择控件，根据需要选择控件， 如图如图15-23所示，点所示，点 击击“完成完成”，生成如，生成如 图图15-24所

43、示所示“编辑编辑 销售单销售单”窗体。窗体。 图 15-23 选择需要的控件 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 图 15-24 用数据窗体向导设计“编辑销售单”窗体 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n完善完善“编辑销售单编辑销售单”窗体窗体 n我们可以根据需要，在已生成的我们可以根据需要，在已生成的“编辑销售单编辑销售单”窗体窗体 中再添加所需要的控件。我们添加一个中再添加所需要的控件。我们添加一个DataGrid控件

44、，控件， 并将其并将其DataSource属性设置为属性设置为datPrimaryRS（数据（数据 窗体向导设计窗体时，窗体向导设计窗体时，ADODC控件的默认名称为控件的默认名称为 datPrimaryRS，可更改为其它名称）。这样我们无需，可更改为其它名称）。这样我们无需 编写代码，就可完成对数据添加、修改、删除、更新编写代码，就可完成对数据添加、修改、删除、更新 等操作。如图等操作。如图15-25所示：所示： VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 图 15-25 添加控件后的“编辑销售单”窗体 VBVB程

45、序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n两种方法的比较两种方法的比较 n方法一，制作虽然复杂，但可以提高我们对知识的更深理解和掌方法一，制作虽然复杂，但可以提高我们对知识的更深理解和掌 握。方法二简单方便，充分利用握。方法二简单方便，充分利用VB6.0的强大功能，易于学习掌的强大功能，易于学习掌 握。握。 n3查询窗体设计查询窗体设计 n“查询查询”是应用软件中必不可少的部分，几乎任何一个应用软件是应用软件中必不可少的部分，几乎任何一个应用软件 的设计都离不开查询，并且占软件设计中相当大比重，离开了查的设计都离不开查询，

46、并且占软件设计中相当大比重，离开了查 询，软件应用也就失去了实际意义。我们以询，软件应用也就失去了实际意义。我们以“查询库存汽车查询库存汽车”窗窗 体为例。体为例。 n（1）“查询汽车库存查询汽车库存”窗体设计窗体设计 n “查询汽车库存查询汽车库存”窗体控件列表窗体控件列表 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 控控 件件 类类 别别控件控件NameName控件控件captioncaption OptionButton Option1按产品批号查询 Option2按车辆名称查询 Option3按供应商名称查询

47、 ComboBox Combo1入库单号 Combo2车辆名称 Combo3供应商名称 CommandButton Cmd_que查询 Command1退出 Cmd_del删除记录 Cmd_quit退出 Frame Frame1请选择查询方式 Frame2查询结果显示 ADODCADODC1ADODC1 DataGridDataGrid1DataGrid1 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n连接数据库连接数据库 n 设置设置ADODC控件的控件的ConnectionString属性属性(参考项参考项 目十

48、四目十四) n用用DataGrid控件绑定数据控件绑定数据 n设置设置DataGrid控件的控件的DataSource属性为属性为ADODC1。 n设置设置DataGrid控件的列值控件的列值 n鼠标右键单击鼠标右键单击DataGrid控件，在弹出的菜单中选择控件，在弹出的菜单中选择 “检索字段检索字段”菜单项，将数据源中的各字段添加到菜单项，将数据源中的各字段添加到 DataGrid控件的列中。控件的列中。 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n查询结果显示查询结果显示 n 查询结果如图查询结果如图15-2

49、5所示：所示： 图 15-25 查询库存汽车结果 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n（3）查询库存汽车窗体的主要代码：）查询库存汽车窗体的主要代码： n 查询按钮代码查询按钮代码 n Private Sub Cmd_que_Click() n If Option1 = True Then 选中按入库单号查询按钮选中按入库单号查询按钮 n If Combo1.Text Then n Adodc1.RecordSource = select * from 库存信息库存信息 where _ n入库单号入库单号

50、= + Trim(Val(Combo1.Text) + n Adodc1.Refresh n End If n End If n If Option2 = True Then 选中按车辆名称查询按钮选中按车辆名称查询按钮 n If Combo2.Text Then n Adodc1.RecordSource = select * from 库存信息库存信息 where_ n车辆名称车辆名称 = + Trim(Combo2.Text) + n Adodc1.Refresh n End If n End If VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.

51、4.2 创建各子窗体创建各子窗体 n If Option3 = True Then 选中按供应商名称查询按钮选中按供应商名称查询按钮 n If Combo3.Text Then n Adodc1.RecordSource = select * from 库存信息库存信息 where_ n供应商名称供应商名称 = + Trim(Combo3.Text) + n Adodc1.Refresh n End If n End If nEnd Sub VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n窗体加载代码窗体加载代码 nP

52、rivate Sub Form_Load() nMe.Left = (Screen.Width - Me.Width) / 2 窗体居中窗体居中 nMe.Top = (Screen.Height - Me.Height) / 2 nIf Adodc1.Recordset.EOF = False Then n With Adodc1.Recordset n Do While Not .EOF n Combo1.AddItem .Fields(0) 添加入库单号添加入库单号 n Combo2.AddItem .Fields(1) 添加车辆名称添加车辆名称 n Combo3.AddItem .Fie

53、lds(3) 添加供应商名称添加供应商名称 n .MoveNext n Loop nEnd With nEnd If nEnd Sub VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n4数据统计窗体设计数据统计窗体设计 n对数据进行汇总统计，是对数据进行汇总统计，是 销售管理系统重要的环节，销售管理系统重要的环节， 我们以我们以“汽车金额汇总汽车金额汇总” 窗体为例，通过查询汇总窗体为例，通过查询汇总 销售金额。销售金额。 n汽车金额汇总窗体设计汽车金额汇总窗体设计 n汽车金额汇总窗体设计与汽车金额汇总窗体设计与 查询

54、库存汽车窗体设计相查询库存汽车窗体设计相 同，参考一下，不再介绍。同，参考一下，不再介绍。 设计好汽车金额汇总窗体设计好汽车金额汇总窗体 如图如图15-26所示：所示： 图 15-26 汽车金额汇总窗体 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n汽车金额汇总窗体代码汽车金额汇总窗体代码 n 汇总按钮代码汇总按钮代码 n Sub Cmd_que_Click() n DataGrid1.Visible = True n If Option1 = True Then n If Combo1.Text Then n Ad

55、odc1.RecordSource = select * from 销售单销售单 where_ n销售单号销售单号 = + Trim(Combo1.Text) + n Adodc1.Refresh n 创建汇总数据源创建汇总数据源 n Adodc2.RecordSource = select count(*) as 销售数量销售数量,_ nsum(销售单价销售单价) as 销售金额销售金额 from 销售单销售单 where _ n销售单号销售单号 = + Trim(Val(Combo1.Text) + n Adodc2.Refresh n End If n n Label2.Caption

56、= Adodc2.Recordset.Fields(0) 显示汇总结果显示汇总结果 n Label4.Caption = Adodc2.Recordset.Fields(1) 显示汇总结果显示汇总结果 n End If VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n If Option2 = True Then n If Combo2.Text Then n Adodc1.RecordSource = select * from 销售单销售单 where_ n 车辆名称车辆名称 = + Trim(Combo2.Tex

57、t) + n Adodc1.Refresh n Adodc2.RecordSource = select count(*) as_ n销售数量销售数量,sum(销售单价销售单价) as 销售金额销售金额 from 销售单销售单_ n where 车辆名称车辆名称 = + Trim(Combo2.Text) + n Adodc2.Refresh n End If n Label2.Caption = Adodc2.Recordset.Fields(0) n Label4.Caption = Adodc2.Recordset.Fields(1) n End If VBVB程序设计项目化教程程序设计

58、项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n If Option3 = True Then n If Combo3.Text Then n Adodc1.RecordSource = select * from 销售单销售单_ nwhere 日期日期 between & CDate(Combo3.Text)_ n & and & CDate(Combo4.Text) & n Adodc1.Refresh n Adodc2.RecordSource = select count(*) as_ n销售数量销售数量,sum(销售单价销售单价) as 销售

59、金额销售金额 from 销售单销售单_ n where 日期日期 between & Combo3.Text & and_ n & Combo4.Text & n Adodc2.Refresh n End If n Label2.Caption = Adodc2.Recordset.Fields(0) n Label4.Caption = Adodc2.Recordset.Fields(1) n End If n End Sub VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社 15.4.2 创建各子窗体创建各子窗体 n窗体加载代码窗体加载代码 nPrivate

60、 Sub Form_Load() nMe.Left = (Screen.Width - Me.Width) / 2 窗体居中窗体居中 nMe.Top = (Screen.Height - Me.Height) / 2 nDataGrid1.Visible = False nIf Adodc1.Recordset.EOF = False Then n With Adodc1.Recordset n Do While Not .EOF n Combo1.AddItem .Fields(0) 添加入库单号添加入库单号 n Combo2.AddItem .Fields(2) 添加车辆名称添加车辆名称