项目15汽车销售管理系统

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

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

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

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

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

6、“数据链接属性数据链接属性”对话框中设置。对话框中设置。n3RecordSource属性属性nRecordSource属性也是属性也是ADODC控件特有的属性，该控件特有的属性，该属性通常是由一条属性通常是由一条SQL语句组成，用于决定从数据库语句组成，用于决定从数据库中检索信息。中检索信息。VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.1.2 ADODC控件常用方法控件常用方法n1Refresh方法方法n该方法用于刷新与该方法用于刷新与ADODC控件连接的记录集的数据。控件连接的记录集的数据。n2.UpDateRecord方法方法n通过此方法可以将数据

7、绑定控件上的当前内容写入到数据库中。通过此方法可以将数据绑定控件上的当前内容写入到数据库中。n3Close方法方法 nClose方法主要用于关闭打开的对象及相关的对象。方法主要用于关闭打开的对象及相关的对象。n其它关于如何调用其它关于如何调用ADCDC控件及其专门与控件及其专门与ADODC控件绑定的控件绑定的ActiveX控件可参考项目十四控件可参考项目十四“ADO数据库访问技术数据库访问技术”。VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.2 汽车管理系统功能设计汽车管理系统功能设计 n15.2.1 系统目标系统目标n通过使用汽车销售管理系统，可以方便

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

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

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

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

12、教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计n1设计概述设计概述n在主窗体界面中单击菜单或工具栏上的功能按钮在主窗体界面中单击菜单或工具栏上的功能按钮,可以调用相应的子窗体可以调用相应的子窗体,进行相应的操作。在进行相应的操作。在状态栏中显示当前的日期、时间以及公司的网址。对界面背景进行添加图片和阴影字的设计。状态栏中显示当前的日期、时间以及公司的网址。对界面背景进行添加图片和阴影字的设计。n2.主窗体设计主窗体设计n（1）新建工程）新建工程n新建一个新建一个“标准标准EXE”工程并将工程命名为工程并将工程命名为“汽车

13、销售管理系统汽车销售管理系统”。n（2）添加主窗体）添加主窗体n选择选择“工程工程”“添加窗体添加窗体”，在项目中添加了主窗体。该窗体的一，在项目中添加了主窗体。该窗体的一n些属性如表些属性如表15-1所示：所示：属属 性性值值Caption汽车销售管理系统NameFormMainWindowstateMaxsize 注：Windowstate的值为Maxsize，即程序启动之后自动最大化。表 15-1 窗体属性表VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计n（3）菜单设计）菜单设计n选择选择“工

14、具工具”“菜单编辑器菜单编辑器”编辑菜单，各菜单项如表编辑菜单，各菜单项如表15-2所示：所示： 菜单标题菜单标题说明说明快捷方式快捷方式系统用户管理系统用户管理主菜单项主菜单项1 1自行设置自行设置添加用户子菜单项11同上查看/修改密码子菜单项12同上汽车销售管理汽车销售管理主菜单项主菜单项2 2同上添加入库单子菜单项21同上修改/删除入库单子菜单项22同上编辑销售单子菜单项23同上查询库存信息编辑库存信息子菜单项24同上客户信息管理客户信息管理主菜单项主菜单项3 3同上查看客户信息子菜单项31同上添加客户信息子菜单项32同上修改/删除客户信息子菜单项33同上车辆金额汇总车辆金额汇总主菜单项

15、主菜单项4 4同上车辆金额汇总子菜单项51同上退出退出主菜单项主菜单项5 5同上退出系统子菜单项61同上VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计n4）工具栏设计）工具栏设计n添加部件添加部件n选择选择“工程工程“部件部件”，在弹出的列表中选中，在弹出的列表中选中“Microsoft nWindows Common Control6.0(sp3)”选项，然后单击确定按钮选项，然后单击确定按钮, 将工具将工具栏等控件添加到工具箱中，如图栏等控件添加到工具箱中，如图15-8所示：所示：Toobar控

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

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

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

19、键关键字字”与与“图像图像”一一一对应，如图一对应，如图15-12所示：所示： 图 15-12 ToolBar按钮属性的设置VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计n（5）状态栏设置）状态栏设置 n设置状态栏属性设置状态栏属性n将将StatusBar控件放置窗体，右键单击此控件，在弹出的菜单中控件放置窗体，右键单击此控件，在弹出的菜单中选择选择“属性属性”，在，在“属性页属性页”对话框中单击对话框中单击“窗格窗格”选项卡选项卡,单击单击“插入窗格插入窗格”按钮，插入四个窗格，在窗格按钮，插入四

20、个窗格，在窗格1中输入文本中输入文本“汽车汽车销售管理系统主窗体销售管理系统主窗体”，在窗格，在窗格2中输入文本中输入文本http:/，在窗格，在窗格3中样式选中样式选“6-sbrData”， 在窗格在窗格4中样式选中样式选“5-sbrTime”。n（6）主窗体背景设计）主窗体背景设计nPicture属性：值为图片所在的路径属性：值为图片所在的路径nStartUpPostion属性：值为属性：值为“1-所有者中心所有者中心”n阴影字阴影字“汽车销售管理系统汽车销售管理系统”的设置可参考项目三的设置可参考项目三VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.

21、4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计n主窗体界面如图主窗体界面如图15-13所示：所示：图 15-13 汽车销售管理系统主窗体界面VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4 “汽车销售管理系统汽车销售管理系统”窗体设计窗体设计n3主窗体主要代码主窗体主要代码nPrivate Sub carin_Click() 调用子窗体调用子窗体nfrm_edit_Carin.ShownEnd SubnPrivate Sub carsale_Click() 调用子窗体调用子窗体nFrm_edit_CarSale.ShownEnd SubnPri

22、vate Sub Menu_addCar_Click() 调用子窗体调用子窗体n Frm_addCar.ShownEnd SubnPrivate Sub Menu_addCus_Click() 调用子窗体调用子窗体n Frm_addCus.ShownEnd SubnPrivate Sub Menu_addUser_Click() 调用子窗体调用子窗体n Frm_addUser.ShownEnd SubVBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n1子窗体设计子窗体设计n（1）设计说明）设计说明n 汽车销售管理系统的子窗汽

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

24、客户信息Frm_addCus修改/删除客户信息Frm_edit_addCus查询销售金额Frm_queSum销售信息图表Frm_datareport系统登录Frm_loginVBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n（2）子窗体代码）子窗体代码n 所有子窗体我们使用所有子窗体我们使用ADODC控件与数据绑定控件结合，实控件与数据绑定控件结合，实现我们所需要的功能，基本上不需要编程代码或仅需要少许编程现我们所需要的功能，基本上不需要编程代码或仅需要少许编程代码。代码。n2数据编辑录入子窗体数据编辑录入子窗体n 数据编辑

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

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

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

28、库单号Label2日期Label3车辆名称Label4单价Label5仓库（网点）Label6经手人Label7备注TextBoxTxtnum(空)txtname(空)txtprice(空)txtwarehouse(空)txthandler(空)txtinfo(空)VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体DTPickerDTPicker1当前日期CommandButtoncmd_first第一条记录cmd_pre前一条记录cmd_next后一条记录cmd_last最后一条记录Cmd_modi修改记录Cmd_del删除

29、记录Cmd_quit退出FrameFrame1入库单Frame2查看入库信息Frame3修改入库信息ADODCADODC1ADODC1VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n连接数据库连接数据库n 选择设置选择设置ADODC控件的控件的ConnectionString属性属性(参考参考项目十四项目十四)n用文件框绑定数据用文件框绑定数据属性DataSourceAdodc1DataField入库单号（相应字段）图 15-15 文本框数据绑定VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版

30、社15.4.2 创建各子窗体创建各子窗体n数据输出数据输出n数据输出如图数据输出如图15-16所示：所示：图 15-16 修改/删除入库单数据输出VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n销售单、库存信息及客户信息等窗体设计与入库单相同，可自销售单、库存信息及客户信息等窗体设计与入库单相同，可自行设计行设计n“修改修改/删除入库单删除入库单”主要代码主要代码n控制焦点在控件中的访问顺序代码：控制焦点在控件中的访问顺序代码：n要实现该功能，可以使用要实现该功能，可以使用KeyDown事件和事件和SetFocus方法，如

31、当方法，如当我们修改完我们修改完“入库单号入库单号”以后，让焦点自动移到以后，让焦点自动移到“日期日期”，代码，代码如下：如下：nPrivate Sub txtnum_KeyDown(KeyCode As Integer, Shift As Integer)nIf KeyCode = vbKeyReturn Then DTPicker1.SetFocusnEnd SubVBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n当我们点击当我们点击“修改修改”命令按钮时，让焦点自动移到命令按钮时，让焦点自动移到“入库单号入库单号”，代

32、码如下：，代码如下：nPrivate Sub Cmd_modi_KeyDown(KeyCode As Integer, Shift As Integer)nIf KeyCode = vbKeyReturn Then txtnum.SetFocusnEnd Subn“前一条前一条”命令按钮代码：命令按钮代码：nPrivate Sub Cmd_pre_Click()nCmd_next.Enabled = FalsenCmd_pre.Enabled = TruenIf Adodc1.Recordset.BOF = False Thenn Adodc1.Recordset.MovePreviousn

33、Elsen Cmd_pre.Enabled = Falsen Cmd_next.Enabled = Truen End IfnEnd SubVBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n“后一条后一条”命令按钮代码：命令按钮代码：nPrivate Sub Cmd_next_Click()nIf Cmd_pre.Enabled = False Thenn Cmd_next.Enabled = Truen End Ifn If Adodc1.Recordset.EOF = False Thenn Adodc1.Records

34、et.MoveNextnElsen Cmd_next.Enabled = Falsen Cmd_pre.Enabled = TruenEnd IfnEnd SubVBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n“修改信息修改信息”命令按钮代码：命令按钮代码：nPrivate Sub Cmd_modi_Click()ncurId = Adodc1.Recordset.Fields.CountnAdodc1.Recordset.Fields(0).Value = Trim(txtnum.Text)nAdodc1.Records

35、et.Fields(1).Value = DTPicker1.ValuenAdodc1.Recordset.Fields(2).Value = Trim(txtname.Text)nAdodc1.Recordset.Fields(3).Value = Val(Trim(txtprice.Text)nAdodc1.Recordset.Fields(4).Value= Val(Trim(txtwarehouse.Text)nAdodc1.Recordset.Fields(5).Value = Trim(txthandler.Text)nAdodc1.Recordset.Fields(6).Valu

36、e = Trim(txtInfo.Text)nAdodc1.Recordset.Updaten MsgBox (入库单已修改入库单已修改)VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体nAdodc1.RecordSource = SELECT * FROM 入库单入库单n Adodc1.Refreshn Do While Adodc1.Recordset.Fields.Count curIdn Adodc1.Recordset.Move (1)n LoopnEnd Subn“删除信息删除信息”命令按钮代码：命令按钮代码：n

37、Private Sub Cmd_del_Click()n Adodc1.Recordset.Deleten Adodc1.Recordset.Updaten MsgBox (入库单已删除入库单已删除)n Adodc1.RecordSource = SELECT * FROM 入库单入库单n Adodc1.RefreshnEnd SubVBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n（2）创建数据编辑录入子窗体方法二）创建数据编辑录入子窗体方法二n 使用数据窗体向导设计数据编辑录入窗体。使用数据窗体向导设计数据编辑录入窗体。

38、n启动数据窗体向导启动数据窗体向导n在在Visual Basic 6.0中提供了一个功能强大的数据窗体中提供了一个功能强大的数据窗体向导，通过几个交互过程，便能够建立一个访问数据的向导，通过几个交互过程，便能够建立一个访问数据的窗口。窗口。“数据窗体向导数据窗体向导”属于外接程序，选择属于外接程序，选择“外接程外接程序序”“外接程序管理器外接程序管理器”，弹出如图，弹出如图15-17所示的对话所示的对话框，将框，将“VB6.0数据窗体向导数据窗体向导”装入到装入到“外接程序外接程序”的的子菜单中，如图子菜单中，如图15-18所示：所示：VBVB程序设计项目化教程程序设计项目化教程中国水利水电出

39、版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体图 15-17 “外接程序管理器”对话框图 15-18 添加后的外接程序VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n选择数据库类型选择数据库类型n在选择配置文件时，可选择在选择配置文件时，可选择“无无”，在数据库类型中，选择，在数据库类型中，选择Remote(ODBC)如图如图15-19，单击，单击“下一步下一步” 图 15-19 选择数据库类型VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗

40、体n输入连接信息输入连接信息n输入连接信息，输入连接信息，如图如图15-20所示：所示： 图 15-20 输入连接信息VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n输入窗体信息输入窗体信息n输入窗体信息，输入窗体信息，如图如图15-21所示：所示：图 15-21 窗体信息输入VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n选择记录源选择记录源n选择记录源，选择记录源，如图如图15-22所所示：示： 图 15-22 选择数据窗体的记录源VBVB程序设计

41、项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n选择所需要的控件选择所需要的控件n根据需要选择控件，根据需要选择控件，如图如图15-23所示，点所示，点击击“完成完成”，生成如，生成如图图15-24所示所示“编辑编辑销售单销售单”窗体。窗体。图 15-23 选择需要的控件VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体图 15-24 用数据窗体向导设计“编辑销售单”窗体VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子

42、窗体创建各子窗体n完善完善“编辑销售单编辑销售单”窗体窗体 n我们可以根据需要，在已生成的我们可以根据需要，在已生成的“编辑销售单编辑销售单”窗体窗体中再添加所需要的控件。我们添加一个中再添加所需要的控件。我们添加一个DataGrid控件，控件，并将其并将其DataSource属性设置为属性设置为datPrimaryRS（数据（数据窗体向导设计窗体时，窗体向导设计窗体时，ADODC控件的默认名称为控件的默认名称为datPrimaryRS，可更改为其它名称）。这样我们无需，可更改为其它名称）。这样我们无需编写代码，就可完成对数据添加、修改、删除、更新编写代码，就可完成对数据添加、修改、删除、更新

43、等操作。如图等操作。如图15-25所示：所示： VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体图 15-25 添加控件后的“编辑销售单”窗体VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n两种方法的比较两种方法的比较n方法一，制作虽然复杂，但可以提高我们对知识的更深理解和掌方法一，制作虽然复杂，但可以提高我们对知识的更深理解和掌握。方法二简单方便，充分利用握。方法二简单方便，充分利用VB6.0的强大功能，易于学习掌的强大功能，易于学习掌握。握。n3查询

44、窗体设计查询窗体设计n“查询查询”是应用软件中必不可少的部分，几乎任何一个应用软件是应用软件中必不可少的部分，几乎任何一个应用软件的设计都离不开查询，并且占软件设计中相当大比重，离开了查的设计都离不开查询，并且占软件设计中相当大比重，离开了查询，软件应用也就失去了实际意义。我们以询，软件应用也就失去了实际意义。我们以“查询库存汽车查询库存汽车”窗窗体为例。体为例。n（1）“查询汽车库存查询汽车库存”窗体设计窗体设计n “查询汽车库存查询汽车库存”窗体控件列表窗体控件列表VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体控控 件

45、件 类类 别别控件控件NameName控件控件captioncaptionOptionButtonOption1按产品批号查询Option2按车辆名称查询Option3按供应商名称查询ComboBoxCombo1入库单号Combo2车辆名称Combo3供应商名称CommandButtonCmd_que查询Command1退出Cmd_del删除记录Cmd_quit退出FrameFrame1请选择查询方式Frame2查询结果显示ADODCADODC1ADODC1DataGridDataGrid1DataGrid1VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.

46、4.2 创建各子窗体创建各子窗体n连接数据库连接数据库n 设置设置ADODC控件的控件的ConnectionString属性属性(参考项参考项目十四目十四)n用用DataGrid控件绑定数据控件绑定数据n设置设置DataGrid控件的控件的DataSource属性为属性为ADODC1。n设置设置DataGrid控件的列值控件的列值n鼠标右键单击鼠标右键单击DataGrid控件，在弹出的菜单中选择控件，在弹出的菜单中选择“检索字段检索字段”菜单项，将数据源中的各字段添加到菜单项，将数据源中的各字段添加到DataGrid控件的列中。控件的列中。VBVB程序设计项目化教程程序设计项目化教程中国水利水

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

48、cordSource = select * from 库存信息库存信息 where _n入库单号入库单号 = + Trim(Val(Combo1.Text) + n Adodc1.Refreshn End Ifn End Ifn If Option2 = True Then 选中按车辆名称查询按钮选中按车辆名称查询按钮n If Combo2.Text Thenn Adodc1.RecordSource = select * from 库存信息库存信息 where_ n车辆名称车辆名称 = + Trim(Combo2.Text) + n Adodc1.Refreshn End Ifn End I

49、fVBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n If Option3 = True Then 选中按供应商名称查询按钮选中按供应商名称查询按钮n If Combo3.Text Thenn Adodc1.RecordSource = select * from 库存信息库存信息 where_ n供应商名称供应商名称 = + Trim(Combo3.Text) + n Adodc1.Refreshn End Ifn End IfnEnd SubVBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社

50、15.4.2 创建各子窗体创建各子窗体n窗体加载代码窗体加载代码nPrivate Sub Form_Load()nMe.Left = (Screen.Width - Me.Width) / 2 窗体居中窗体居中nMe.Top = (Screen.Height - Me.Height) / 2nIf Adodc1.Recordset.EOF = False Thenn With Adodc1.Recordsetn Do While Not .EOFn Combo1.AddItem .Fields(0) 添加入库单号添加入库单号n Combo2.AddItem .Fields(1) 添加车辆名称添

51、加车辆名称n Combo3.AddItem .Fields(3) 添加供应商名称添加供应商名称n .MoveNextn LoopnEnd WithnEnd IfnEnd SubVBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n4数据统计窗体设计数据统计窗体设计n对数据进行汇总统计，是对数据进行汇总统计，是销售管理系统重要的环节，销售管理系统重要的环节，我们以我们以“汽车金额汇总汽车金额汇总”窗体为例，通过查询汇总窗体为例，通过查询汇总销售金额。销售金额。n汽车金额汇总窗体设计汽车金额汇总窗体设计n汽车金额汇总窗体设计与汽车金

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

53、c1.RecordSource = select * from 销售单销售单 where_ n销售单号销售单号 = + Trim(Combo1.Text) + n Adodc1.Refreshn 创建汇总数据源创建汇总数据源n Adodc2.RecordSource = select count(*) as 销售数量销售数量,_nsum(销售单价销售单价) as 销售金额销售金额 from 销售单销售单 where _n销售单号销售单号 = + Trim(Val(Combo1.Text) + n Adodc2.Refreshn End Ifn n Label2.Caption = Adodc2

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

55、freshn Adodc2.RecordSource = select count(*) as_ n销售数量销售数量,sum(销售单价销售单价) as 销售金额销售金额 from 销售单销售单_n where 车辆名称车辆名称 = + Trim(Combo2.Text) + n Adodc2.Refreshn End Ifn Label2.Caption = Adodc2.Recordset.Fields(0)n Label4.Caption = Adodc2.Recordset.Fields(1)n End IfVBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社

56、15.4.2 创建各子窗体创建各子窗体n If Option3 = True Thenn If Combo3.Text Thenn Adodc1.RecordSource = select * from 销售单销售单_ nwhere 日期日期 between & CDate(Combo3.Text)_n & and & CDate(Combo4.Text) & n Adodc1.Refreshn Adodc2.RecordSource = select count(*) as_ n销售数量销售数量,sum(销售单价销售单价) as 销售金额销售金额 from 销售单销售单_n where 日期

57、日期 between & Combo3.Text & and_n & Combo4.Text & n Adodc2.Refreshn End Ifn Label2.Caption = Adodc2.Recordset.Fields(0)n Label4.Caption = Adodc2.Recordset.Fields(1)n End Ifn End SubVBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n窗体加载代码窗体加载代码nPrivate Sub Form_Load()nMe.Left = (Screen.Width

58、 - Me.Width) / 2 窗体居中窗体居中nMe.Top = (Screen.Height - Me.Height) / 2nDataGrid1.Visible = FalsenIf Adodc1.Recordset.EOF = False Thenn With Adodc1.Recordsetn Do While Not .EOFn Combo1.AddItem .Fields(0) 添加入库单号添加入库单号n Combo2.AddItem .Fields(2) 添加车辆名称添加车辆名称n Combo3.AddItem .Fields(1) 添加日期添加日期n Combo4.AddI

59、tem .Fields(1)n .MoveNextn LoopnEnd WithnEnd IfnEnd Sub VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n客户信息查询窗体设计与库存汽车查询窗体设计相同，不再介绍。客户信息查询窗体设计与库存汽车查询窗体设计相同，不再介绍。n5数据图表窗体设计数据图表窗体设计nVB6.0中的中的MSChart控件是一个功能强大的高级图表工具，拥有控件是一个功能强大的高级图表工具，拥有丰富的图表绘制功能，可显示二维和三维的棒图、区域图、线形丰富的图表绘制功能，可显示二维和三维的棒图、区域图

60、、线形图、饼图等多种常用图表。本小节内容可选做。图、饼图等多种常用图表。本小节内容可选做。n我们使用我们使用“销售单销售单”数据和数据和“数据窗体向导数据窗体向导”制作数据图表窗体，制作数据图表窗体，具体步骤如下：具体步骤如下：n（1）启动）启动“数据窗体向导数据窗体向导”VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社15.4.2 创建各子窗体创建各子窗体n启动启动“数据窗体向数据窗体向导导”后，在后，在“选择选择要求的窗体类型和要求的窗体类型和数据绑定类型用于数据绑定类型用于访问数据库访问数据库”中，中，我们选择我们选择MS Chart和和ADO代码。如图代