分享
分享赚钱 收藏 举报 版权申诉 / 33

类型用Access 2003开发进销存管理系统.pdf.pdf

  • 上传人:精品资料
  • 文档编号:7968227
  • 上传时间:2019-05-31
  • 格式:PDF
  • 页数:33
  • 大小:1.72MB
  • 配套讲稿:

    如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

    特殊限制:

    部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

    关 键  词:
    用Access 2003开发进销存管理系统.pdf.pdf
    资源描述:

    1、 1 用Access 2003开发进销存管理系统 内容提要: 本文介绍了进销存管理系统的整个开发设计过程。 学完本文后, 读者应能运用 Access基本工具完成数据库应用系统的建立,设置数据库的安全机制,使数据库的使用更加安全。还能利用 VBA 编写驱动程序,使数据库的操作更方便、灵活。另外,本文中还介绍了可以使用切换面板管理器实现系统的集成和功能选择。 关键字:数据库、销存管理 引言:进销存管理是商业企业经营管理中的核心环节,也是一个企业能否取得效益的关键。如能做到合理生产、及时销售、库存量最小,减少积压,那么企业就能取得最佳的效益。由此可见,进销存管理决策的正确与否直接影响着企业的经济效益

    2、。 正文: 1 系统分析与设计 1.1 系统分析 在开始设计数据库之前,需要确定数据库的目的以及如何使用,尽量多了解一些有关数据库的设计要求,弄清用户需要明确希望从数据库得到什么信息,经过实际的研究和分析,对目标系统形成初步的说明。 目标是一个包括订单管理、产品管理、客户管理和供应商管理在内的管理信息系统,能及时的为企业决策层领导、业务员、质检员以及其他的相关人员提供有关资料。 目标系统必须具有可靠性、安全性、可维护性、可移植性等,对于不同的操作人员授予不同的操作权限,定期地进行数据备份,系统还必须为以后整个企业信息化提供了良好的接口,以备功能扩充。 在创建一个数据库之前必须明确以下几点: (

    3、 1)数据库必须能够管理、生成用户期望的输出和打印输出所有必须具备的信息。 ( 2)数据库中不保存不必要的信息。 ( 3)弄清数据库应该为用户所做的操作和应解决的问题。 ( 4)明确用户通过什么样的界面来操作数据库中的数据和输出。 1.2 功能描述 ( 1)产品管理子系统。 产品管理子系统可以实现对各种产品进行管理,包括产品的型号、价格、供应商等。这个子系统包括:产品输入功能、产品的查询功能、产品的删除功能、产品的修改功能、产品统计报表的功能。 ( 2)订单管理子系统。 订单管理在产品管理中起着举足轻重的作用,该子系统把订单处理流程加以电子化,以提供对订单的管理、处理和查询,提高订单处理的效率

    4、,通过该子系统可以提高管理的准确性和及时性,减少操作人员的工作压力,减少人为出错、降低成本,从而实现对订单的有效控制,子系统主要包括:订单输入功能、订单确认功能、订单修改功能、订单删除功能、订单查询功能、订单报表打印功能。 ( 3)出货管理子系统。 出货管理子系统向用户提供了发货的时间、客户、出货数量、出货价格等信息。 ( 4)进库管理子系统。 进库管理子系统向用户提供了进库号、进库数量、进库时间和负责人等信息,包括:添加进库 2 记录和修改库存等。 ( 5)库存管理子系统。 向用户提供了货物的库存量、库存地点等信息。 ( 6)供应商管理子系统。 供应商管理子系统负责对供应商的具体生产情况加以

    5、管理,包括:供应商资料的输入功能、供应商资料的删除功能、供应商查询功能。 ( 7)客户管理子系统。 为进一步实现对客户的管理,系统提供了客户管理子系统,其主要功能:客户的资料输入功能、客户资料的查询功能。 ( 8)报表显示子系统。 通过报表显示子系统,可以向用户提供各种报表,以便报表统计和报表打印。 1.3 逻辑模型设计 根据系统分析,建立了进销存管理系统的逻辑模型,如图 1 所示。 用 户 订单信息 出货信息 产品信息 进销存管理系统 进库信息 库存信息 供应商信息 客户信息 报表显示 图 1 2 数据表的创建和设计 2.1 数据库的创建 首先建立一个数据库,具体步骤如下: ( 1)启动 A

    6、ccess 2003,进入 Access 2003 的设计界面。 ( 2)单击工具栏上的新建按钮 ,在 Access 2003 界面的右边出现“新建文件”任务窗格。 ( 3)在该任务窗格中选择 项,系统弹出“文件新建数据库”对话框。选择数据库的保存路径,并输入文件名为“进销存管理系统” 。 ( 4)单击“创建”按钮,进入数据库窗口。 2.2 设计和建立数据表 下面先分别建立所需的数据表: ( 1)在数据库窗口中双击 选项,系统进入表的设计视图。 ( 2)在“字段名称”列的第一行中输入第一个字段,在“数据类型”列表框中选择相应的类型,必要时还可以在“说明”字段列下的文本框填入说明,方便浏览者的理

    7、解。然后在下边的字段属性框中,按表里每个字段的设计来修改属性。 3 ( 3)可以手工为每个表设置主键,也可以由系统自动设置主键。然后输入表名,存盘。 对每个表的创建,都是按上述的步骤来完成的。 下边列出各个表的逻辑结构设计,在“字段属性”对话框的“常规”选项卡里就按这些逻辑结构来修改。 产品表。产品表的逻辑结构如表 1 所示。 表1 产品表的逻辑结构 字段名 数据类型 长度 备注 产品编号 文本 10 产品名称 文本 20供应商编号 文本 10 与供应商表有关 生产地点 文本 30 单价 货币 缺省 型号 文本 20 设置“产品编号”为主键。 订单表。订单表的逻辑结构如表 2 所示。 表2 订

    8、单表的逻辑结构 字段名 数据类型 长度 备注 订单号 文本 10 订单日期 日期 /时间 缺省 客户代号 文本 10 与客户表有关 产品数量 数字 缺省 订单金额 货币 缺省 目的地 文本 30 订单业务员 文本 10确认标识 是 /否 缺省 记录客户是否对订单确认 设置“订单号”为主键。 出货表。出货表的逻辑结构如表 3 所示。 表3 出货表的逻辑结构 字段名 数据类型 长度 备注 订单号 文本 10 出货日期 日期 /时间 缺省 客户代号 文本 10 与客户表有关 产品编号 文本 10 出货数量 数字 缺省 出货价格 货币 缺省 目的地 文本 30 出货负责人 文本 10设置“订单号”为主

    9、键。 进库表。进库表的逻辑结构如表 4 所示。 表4 进库表的逻辑结构 字段名 数据类型 长度 备注 进库号 文本 10 产品编号 文本 10进库数量 数字 缺省 进库日期 日期 /时间 缺省 负责人 文本 20 设置“进库号”为主键。 供应商表。供应商表的逻辑结构如表 5 所示。 4 表5 供应商表的逻辑结构 字段名 数据类型 长度 备注 供应商编号 文本 10 供应商名称 文本 20地址 文本 50 电话 文本 20联系人 文本 10 传真 文本 20电子邮箱 文本 20 设置“供应商编号”为主键。 库存表。库存表的逻辑结构如表 6 所示。 表6 库存表的逻辑结构 字段名 数据类型 长度

    10、备注 产品编号 文本 10 库存量 数字 缺省 存放地点 文本 50 设置“产品编号”为主键。 客户表。客户表的逻辑结构如表 7 所示。 表7 客户表的逻辑结构 字段名 数据类型 长度 备注 客户代号 文本 10 客户名称 文本 30地址 文本 50 电话 文本 20联系人 文本 10 传真 文本 20电子邮箱 文本 20 设置“客户代号”为主键。 这样,初步完成了数据表的设计。 此时,数据库窗口的“表”对象选区如图 2 所示。 图 2 2.3 创建表间关系 ( 1)单击 Access 2003 窗口上的工具栏的“工具”菜单,选择“关系”菜单项,或者直接单击工具栏上的关系按钮 ,系统弹出“显示

    11、表”对话框。 ( 2)单击“添加”按钮把所有表都添加到布局中,如图 3 所示。 ( 3)接下来就是给表建立联系了。比如在“产品表”用鼠标拖动“产品编号”到“出货表”中 5 对应的字段,系统弹出“编辑关系”对话框如图 4 所示。 图 3 图 4 单击“创建”按钮,两个表之间的关系便建立了。 ( 4)重复步骤( 3) ,按同样的方法建立所有的关联,得到的关系图如图 5 所示。 图 5 ( 5)把“关系”保存。 3 查询的设计 使用“进销存管理系统”的用户,要查看各方面的数据,就要使用“查询” 。通过设计查询,使用“进销存管理系统”的用户可以浏览全部数据或部分该用户想查看的数据。 3.1 设计各表的

    12、查询 1. 产品表查询 ( 1)单击数据库窗口“对象”栏的“查询”选项,双击 项。 ( 2)在 下拉列表框中选择“产品表” ,单击 选择所有的字段。 ( 3)单击“下一步”按钮,系统弹出如图 6 所示的对话框。 ( 4)在该对话框中按默认设置,然后单击“下一步” ,系统弹出的对话框如图 7 所示。 图 6 图 7 ( 5)输入查询名称为“产品表查询” ,然后单击“完成” ,结果如图 8 所示。 图 8 6 ( 6)最后单击工具栏上的保存按钮 ,保存所作的更改,然后关闭设计视图窗口。 2. 订单表查询 利用向导建立订单表查询的步骤与建立产品表查询的步骤几乎相同,只是在步骤( 2)选择“订单表”

    13、,步骤( 5)输入查询的名称为“订单表查询” ,结构如图 9 所示。 图 9 3. 出货表查询 效仿“产品表查询”的建立步骤,在步骤( 2)选择“出货表” ,步骤( 5)中输入“出货表查询” ,结果如图 10 所示。 图 10 4. 进库表查询 效仿“产品表查询”的建立步骤,在步骤( 2)选择“进库表” ,步骤( 5)中输入“进库表查询” ,结果如图 11 所示。 图 11 5. 供应商表查询 效仿“产品表查询”的建立步骤,在步骤( 2)选择“供应商表” ,在步骤( 5)中输入“供应商表查询” ,结果如图 12 所示。 图 12 6. 库存表查询 效仿“产品表查询”的建立步骤,在步骤( 2)选

    14、择“库存表” ,在步骤( 5)中输入“库存表查询” ,结果如图 13 所示。 图 13 7. 客户表查询 效仿“产品表查询”的建立步骤,在步骤( 2)选择“客户表” ,在步骤( 5)中输入“客户表查询” ,结果如图 14 所示。 图 14 7 3.2 为查询选择字段 查询一个表的时候,并不一定要查看这个表的所有字段,这种情况下就要为查询选择字段。例如对产品表查询时,只要求看到“产品编号” 、 “单价”和“型号”这三个字段,创建的方法如下: ( 1)在数据库窗口单击“对象”栏的“查询”项,选中之前建立的“产品表查询”查询。然后单击数据库窗口工具栏上的 按钮,系统弹出查询设计视图,如图 15 所示

    15、。 ( 2)先选中“产品名称” ,使它变成 ,然后按 Delete 键将它删除。按同样的方法再分别选中“产品名称” 、 “供应商编号”和“生产地点” ,并把它们删除,如图 16 所示,则这些字段就不会在查询中显示了。 图 15 图 16 ( 3)单击工具栏上的运行按钮 ,结果如图 17 所示。 图 17 3.3 为查询选择记录 还有一种情况,就是不要查看表的所有记录,而是有选择地查询部分记录。例如查询产品表时,只查询“产品名称”是“中央处理器”的情况,步骤如下: ( 1)先按照前面的方法留下字段“产品编号” 、 “单价” 、 “产品名称”和“型号” 。 ( 2)在“产品名称”列的“条件”行里输

    16、入“ =中央处理器 ” ,并单击其“显示”复选框,不显示“产品名称”字段,如图 18 所示。 ( 3)单击工具栏上的运行按钮 ,运行查询的结果如图 19 所示。 图 18 图 19 3.4 为查询选择排序 有时为了查看方便,经常需要把查询的结果按照某种顺序来显示数据。例如要在上面的查询结果按照“单价”的“降序”来显示,则步骤如下: 8 ( 1)在数据库窗口中选中“产品表查询” ,单击 ,弹出查询设计视图。 ( 2)单击“单价”的“排序”行,在其下拉列表框中选择“降序” ,如图 20 所示。 图 20 ( 3)单击工具栏上的运行按钮 ,查询结果如图 21 所示。 图 21 ( 4)保存查询结果,

    17、关闭查询窗口。 4 窗体的设计 对应于需要经常输入及更改数据的表,有必要创建相应的窗体对表中的数据进行操作,下面分别介绍窗体的创建。 4.1 产品表窗体的创建和设计 1. 产品表窗体的创建 产品表窗体的创建步骤如下: ( 1)打开数据库窗口,切换到“窗体”对象的选区。 ( 2)用鼠标双击 项,系统弹出一个向导对话框。在 下拉列表框中选择“表:产品表” ,并单击 选择表中的所有字段。 ( 3)单击“下一步”按钮,出现第二个向导对话框,这一步是确定窗体的使用布局的,有 6种选择,这里选择 ,如图 22 所示。 ( 4)单击“下一步”按钮,出现第三个向导对话框,这一步是确定窗体所用的样式,这里选择“

    18、国际”样式,如图 23 所示。 图 22 图 23 ( 5)单击“下一步”按钮,出现第四个向导对话框,输入窗体的名称为“产品表” ,如图 24所示。 9 ( 6)单击“完成”按钮,保存设计,结果如图 25 所示。 图 24 图 25 2. 为产品表窗体加入命令按钮 加入“添加记录”按钮: ( 1)在数据库窗口中切换到“窗体”对象选区,单击选中刚建立的“产品表”窗体,然后单击工具栏上的 按钮,进入窗体设计视图,如图 26 所示。 图 26 ( 2)单击工具箱上的命令按钮 ,鼠标左键单击窗体设计视图“主体”工作区里的任一位置,系统弹出“命令按钮向导”对话框。单击 中的“记录操作”和 中的“添加新记

    19、录” 。 ( 3)单击“下一步” ,出现如图 27 所示的对话框,在此对话框选择“文本” ,表示按钮上显示的是文本而不是图片。 ( 4)单击“下一步” ,出现的对话框要求指定按钮的名称以便于引用,这里输入“ cmdAdd” ,如图 28 所示。 图 27 图 28 ( 5)单击“完成”按钮,结果如图 29 所示。这样就实现添加记录的功能了。 加入“查看库存”按钮: ( 1)在没有选中工具箱的控件向导按钮 的情况下,单击命令按钮 ,用鼠标左键单击设计窗口“主体”区的适当位置,把命令按钮加到窗体中,如图 30 所示。 ( 2)选中命令按钮“ Command14” ,单击鼠标右键,在弹出的快捷菜单中

    20、选择“属性”项。在 10 这个属性设置对话框选中“全部”选项卡,在“标题”处输入“查看库存” ,如图 31 所示。 ( 3)关闭属性设置对话框,并适当调整该命令按钮的大小和位置,结果如图 32 所示。 图 29 图 30 图 31 图 32 3. 编写代码 “产品表”窗体具有“添加记录” 、 “查看库存”两项功能,可通过编写 VBA 代码来实现,具体过程如下: ( 1)在窗口的菜单栏上单击“视图”项,然后选择 选项,则系统弹出代码编辑器,如图 33 所示。 图 33 ( 2)在右边的文本框中输入如下代码: Option Compare Database Private Sub cmdAdd_C

    21、lick() 添加记录 11 On Error GoTo Err_cmdAdd_Click DoCmd.GoToRecord , , acFirst DoCmd.GoToRecord , , acNewRec cmdMod.Enabled=True cmdMod.SetFocus cmdAdd.Enabled=False Exit_cmdAdd_Click: Exit Sub Err_cmdAdd_Click: MsgBox Err.Description Resume Exit_cmdAdd_Click End Sub Private Sub Command14_Click() 查看库存报表

    22、 DoCmd.OpenReport “库存报表 “,acViewPreview End Sub ( 3)保存代码,运行代码。 4. 预览窗体运行效果 单击工具栏上的视图切换按钮 ,便可以运行“产品表”窗体了,如图 34 所示。 图 34 在文本框内输入一条记录,然后单击“添加记录” ,就可以向数据库内添加一条新的记录了。若在原来的记录上作修改,然后单击“添加记录” ,就可以修改该记录了。 若单击“查看库存” ,系统将为用户打开“库存报表” (将在后面的内容创建报表) 。 4.2 订单表窗体的创建和设计 1. 订单表窗体的创建 ( 1)在数据库窗口的“窗体”对象选区,双击“使用向导创建窗体” 。

    23、 ( 2)选择“表:订单表”作为数据源,单击 选取全部字段。 ( 3)单击“下一步”按钮,系统弹出如图 35 所示对话框。这里选择“纵栏表”单选项。 ( 4)单击“下一步”按钮,系统弹出如图 36 所示的对话框,这里选择“国际” 。 图 35 图 36 12 ( 5)单击“下一步”按钮,系统弹出如图 37 所示的对话框。这里输入窗体的名称为“订单表” 。 ( 6)单击“完成”按钮,结果如图 38 所示。 图 37 图 38 ( 7)保存并关闭“订单表”窗体。 2. 为订单表窗体加入命令按钮 加入“打印订单”按钮: ( 1)在数据库窗口中的“窗体”对象选区中选择“订单表”窗体,单击工具栏上的 按

    24、钮,系统弹出窗体设计视图。 ( 2)在没有选中工具箱的控件向导按钮 的情况下,单击命令按钮 ,鼠标左键单击设计窗口的主体工作区的适当位置,把命令按钮加到窗体中,如图 39 所示。 图 39 ( 3)选中刚添加的命令按钮“ Command18” ,单击鼠标右键,在弹出的快捷菜单中选择“属性”项,系统会弹出该命令按钮的属性设置对话框。在这对话框中单击“全部”选项卡,设置如图 40所示。 ( 4)关闭该命令按钮的属性设置对话框,并适当调整该命令按钮的大小和位置。结果如图 41所示。 图 40 图 41 13 3. 编写代码 “打印订单”的功能由编写 VBA 代码来实现,具体过程如下: ( 1)在窗口

    25、的菜单栏上单击“视图”项,然后选择 选项,则系统弹出代码编辑器。 ( 2)在右边的窗口中输入如下代码: Option Compare Database Private Sub cmd18_Click() 打印订单 On Error GoTo err_printinvoice_click Dim strdocname As String strdocname = “订单表 “ DoCmd.OpenReport strdocname, acViewPreview, “订单表 “ exit_printinvoice_click: Exit Sub err_printinvoice_click: Co

    26、nst conerrdocmdcancelled = 2501 If (Err = conerrdocmdcancelled) Then Resume exit_printinvoice_click Else MsgBox Err.Description Resume exit_printinvoice_click End If End Sub ( 3)保存代码,运行代码。 4. 预览窗体运行效果 单击工具栏上的视图切换按钮 ,便可以运行“订单表”窗体了,如图 42 所示。 图 42 单击“打印订单” ,就可以看到“订单报表” (将在后面的内容中介绍创建报表) 。 4.3 出货表窗体的创建和设

    27、计 ( 1)在数据库窗口的“窗体”对象选区,双击“使用向导创建窗体” 。 ( 2)选择“表:出货表”作为数据源,单击 选取全部字段。 ( 3)单击“下一步”按钮,系统弹出如图 43 所示对话框。这里选择“纵栏表”单选项。 ( 4)单击“下一步”按钮,系统弹出如图 44 所示的对话框,这里选择“国际”样式。 ( 5)单击“下一步”按钮,系统弹出如图 45 所示的对话框。这里输入窗体的名称为“出货表” 。 14 ( 6)单击“完成”按钮,结果如图 46 所示。 图 43 图 44 图 45 图 46 ( 7)保存并关闭“出货表”窗体。 4.4 进库表窗体的创建和设计 1. 进库表窗体的创建 ( 1

    28、)在数据库窗口的“窗体”对象选区中双击“使用向导创建窗体” 。 ( 2)选择“表:进库表”作为数据源,单击 选取全部字段。 ( 3)单击“下一步”按钮,在弹出的对话框中选择“纵栏表”单选按钮。 ( 4)单击“下一步”按钮,在弹出的确定所用样式对话框中选择“国际”样式。 ( 5)单击“下一步”按钮,在弹出的为窗体指定标题的对话框中输入窗体的名称为“进库表” 。 ( 6)单击“完成”按钮,结果如图 47 所示。 图 47 ( 7)保存并关闭“进库表”窗体。 2. 为进库表窗体加入命令按钮 加入“添加记录”按钮: ( 1)在数据库窗口中的“窗体”对象选区选择“进库表”窗体,单击工具栏上的 按钮,系统

    29、出现的窗体设计视图如图 48 所示。 ( 2)单击工具箱上的命令按钮 ,鼠标左键单击窗体设计视图“主体”工作区里的任一位置, 15 系统弹出命令按钮向导对话框。单击 列表框中的“记录操作”和 列表框中的“添加新记录” 。 ( 3)单击“下一步” ,出现如图 49 所示的对话框,在此对话框选择“文本” ,表示按钮上显示的是文本而不是图片。 图 48 图 49 ( 4)单击“下一步” ,出现的对话框要求指定按钮的名称以便于引用,这里输入“ cmdAdd” 。 ( 5)单击“完成”按钮,结果如图 50 所示。这样就实现添加记录的功能了。 加入“修改库存”按钮的步骤如下: ( 1)在没有选中工具箱的控

    30、件向导按钮 的情况下,单击命令按钮 ,用鼠标左键单击设计窗口的主体的适当位置,把命令按钮加到窗体中,如图 51 所示。 图 50 图 51 ( 2)选中命令按钮“ Command12” ,单击鼠标右键,在弹出的快捷菜单中选择“属性”项。单击这个属性设置对话框的“全部”选项卡,在“名称”文本框中输入“ cmdMod”,在“标题”文本框中填入“修改库存” ,如图 52 所示。 ( 3)关闭属性设置对话框,并适当调整该命令按钮的大小和位置,结果如图 53 所示。 图 52 图 53 3. 编写代码 “进库表”窗体,具有“添加记录”和“修改库存”的功能,可通过编写 VBA 代码来实现, 16 具体过程

    31、如下: ( 1)在窗口的菜单栏上单击“视图”项,然后选择 选项,则系统弹出代码编辑器。 ( 2)在右边的窗口中输入如下代码: Option Compare Database Private Sub cmdAdd_Click() 添加记录 On Error GoTo Err_cmdAdd_Click DoCmd.GoToRecord , , acFirst DoCmd.GoToRecord , , acNewRec cmdMod.Enabled=True cmdMod.SetFocus cmdAdd.Enabled=False Exit_cmdAdd_Click: Exit Sub Err_cm

    32、dAdd_Click: MsgBox Err.Description Resume Exit_cmdAdd_Click End Sub Private Sub cmdMod_Click() 修改库存 Dim curdb As Database Dim curRS As Recordset Dim deviceCnt As Integer Set curdb = CurrentDb Set curRS = curdb.OpenRecordset(“select * from 库存表 where 产品编号 “ & 产品编号 .Value & “) If Not curRS.EOF Then dev

    33、iceCnt = curRS.Fields(“库存量 “) deviceCnt = deviceCnt + CInt(进库数量 .Value) curdb.Execute “update 库存表 set 库存量 =“ & deviceCnt & _ “ where 产品编号 =“ & 产品编号 .Value & “ Else With curRS .AddNew .Fields(“产品编号 “) = 产品编号 .Value .Fields(“库存量 “) = CInt(进库数量 .Value) .Fields(“存放地点 “) = “广州 “ .Update End With End If c

    34、mdAdd.Enabled = True cmdAdd.SetFocus cmdMod.Enabled = False End Sub ( 3)保存代码并运行。 17 4. 预览窗体运行效果 单击工具栏上的视图切换按钮 ,便可以运行“进库表”窗体了,如图 54 所示。 图 54 在文本框内输入一条记录,然后单击“添加记录” ,就可以向“进库表”数据表添加一条新的记录了。单击“修改库存”由于产品的变化而引起的库存变化就会在“库存表”表中得到体现。 4.5 库存表窗体的创建和设计 ( 1)在数据库窗口的“窗体”对象选区双击“使用向导创建窗体” 。 ( 2)选择“表:库存表”作为数据源,单击 选取全

    35、部字段。 ( 3)单击“下一步”按钮,在弹出的对话框中选择“纵栏表”单选按钮。 ( 4)单击“下一步”按钮,在弹出的确定所用样式的对话框中选择“国际”样式。 ( 5)单击“下一步”按钮,在弹出的为窗体指定标题的对话框中输入窗体的名称为“库存表” 。 ( 6)单击“完成”按钮,结果如图 55 所示。 图 55 ( 7)保存并关闭“库存表”窗体。 4.6 供应商表窗体的创建和设计 1. 供应商表窗体的创建 ( 1)在数据库窗口的“窗体”对象选区中双击“使用向导创建窗体” 。 ( 2)选择“表:供应商表”作为数据源,单击 选取全部字段。 ( 3)单击“下一步”按钮,在弹出的对话框中选择“纵栏表”单选

    36、按钮。 ( 4)单击“下一步”按钮,在弹出的确定所用样式的对话框中选择“国际”样式。 ( 5) 单击 “下一步” 按钮, 在弹出的为窗体指定标题的对话框中输入窗体的名称为 “供应商表” 。 ( 6)单击“完成”按钮,结果如图 56 所示。 图 56 ( 7)保存并关闭“供应商表”窗体。 18 2. 为进库表窗体加入命令按钮 加入“添加供应商”按钮: ( 1)在数据库窗口中的“窗体”对象选区选择“供应商表”窗体,单击工具栏上的 按钮,系统出现的窗体设计视图如图 57 所示。 ( 2)单击工具箱上的命令按钮 ,鼠标左键单击窗体设计视图“主体”工作区里的任一位置,系统弹出“命令按钮向导”对话框。单击

    37、 列表框中的“记录操作”和 列表框中的“添加新记录” 。 ( 3)单击“下一步” ,出现如图 58 所示的对话框,在此对话框中选择“文本” ,表示按钮上显示的是文本而不是图片,并把“添加记录”改为“添加供应商” 。 图 57 图 58 ( 4)单击“下一步” ,出现的对话框要求指定按钮的名称以便于引用,这里输入“ cmdAdd” 。 ( 5)单击“完成”按钮,结果如图 59 所示。这样就实现添加记录的功能了。 3. 编写代码 “供应商表”窗体具有“添加供应商”的功能,可以通过编写 VBA 代码来实现,具体过程如下: ( 1)在窗口的菜单栏上单击“视图”项,然后选择 选项,则系统弹出代码编辑器。

    38、 ( 2)在右边的窗口中输入如下代码: Option Compare Database Private Sub cmdAdd_Click() 添加记录 On Error GoTo Err_cmdAdd_Click DoCmd.GoToRecord , , acFirst DoCmd.GoToRecord , , acNewRec cmdMod.Enabled=True cmdMod.SetFocus cmdAdd.Enabled=False Exit_cmdAdd_Click: Exit Sub Err_cmdAdd_Click: MsgBox Err.Description Resume E

    39、xit_cmdAdd_Click End Sub 19 4. 预览窗体运行效果 单击工具栏上的视图切换按钮 ,便可以运行“供应商表”窗体了,如图 60 所示。 图 59 图 60 在文本框内输入新的供应商的信息,然后单击“添加供应商”就可以向“供应商表”数据表添加一条新的记录了。 4.7 客户表窗体的创建和设计 1. 客户表窗体的创建 ( 1)在数据库窗口的“窗体”对象选区双击“使用向导创建窗体” 。 ( 2)选择“表:客户表”作为数据源,单击 选取全部字段。 ( 3)单击“下一步”按钮,在弹出的对话框中选择“纵栏表”单选按钮。 ( 4)单击“下一步”按钮,在弹出的确定所用样式的对话框中选择“

    40、国际”样式。 ( 5)单击“下一步”按钮,在弹出的为窗体指定标题的对话框中输入窗体的名称为“客户表” 。 ( 6)单击“完成”按钮,结果如图 61 所示。 ( 7)保存并关闭“客户表”窗体。 2. 为进库表窗体加入命令按钮 加入“添加客户”按钮: ( 1)在数据库窗口中的“窗体”对象选区选择“客户表”窗体,单击工具栏上的 按钮,系统出现的窗体设计视图如图 62 所示。 图 61 图 62 ( 2)单击工具箱上的命令按钮 ,鼠标左键单击窗体设计视图“主体”工作区里的任一位置,系统弹出“命令按钮向导”对话框。选择 列表框中的“记录操作”和 列表框中的“添加新记录” 。 ( 3)单击“下一步” ,出

    41、现如图 63 所示的对话框,在此对话框中选择“文本” ,表示按钮上显示的是文本而不是图片,并且把“添加记录”改为“添加客户” 。 ( 4)单击“下一步” ,出现的对话框要求指定按钮的名称以便于引用,这里输入“ cmdAdd” 。 20 ( 5)单击“完成”按钮,结果如图 64 所示。这样就实现添加记录的功能了。 图 63 图 64 3. 编写代码 “客户表”窗体具有“添加客户”的功能,可以通过编写 VBA 代码来实现,具体过程如下: ( 1)在窗口的菜单栏上单击“视图”项,然后选择 选项,则系统弹出代码编辑器。 ( 2)在右边的窗口中输入如下代码: Option Compare Databas

    42、e Private Sub cmdAdd_Click() 添加记录 On Error GoTo Err_cmdAdd_Click DoCmd.GoToRecord , , acFirst DoCmd.GoToRecord , , acNewRec cmdMod.Enabled=True cmdMod.SetFocus cmdAdd.Enabled=False Exit_cmdAdd_Click: Exit Sub Err_cmdAdd_Click: MsgBox Err.Description Resume Exit_cmdAdd_Click End Sub 4. 预览窗体运行效果 单击工具栏

    43、上的视图切换按钮 ,便可以运行“客户表”窗体了,如图 65 所示。 图 65 在文本框内输入新的供应商的信息,然后单击“添加客户” ,就可以向“客户表”数据表添加一条新的记录了。 5 报表的设计 与其他几种对象一样, Access 2003 也为创建报表提供了方便的向导。下面就利用向导来创建几 21 个报表。创建报表就是要为了打印报表。 5.1 报表的创建 要创建四个报表,分别是: “产品报表” 、 “订单报表” 、 “出货报表”和“库存报表” 。现在以“产品报表”的创建为例,其他几个报表的创建可以按照相同的方法进行。具体步骤如下: ( 1)打开数据库窗口中的“报表”对象选区,双击“使用向导创

    44、建报表”项。 ( 2)此时弹出“报表向导”的第一个对话框,在 的下拉列表框选“表:产品表” ,单击选取所有字段。 ( 3)单击“下一步”按钮,出现向导的第二个对话框,这里选择“产品编号”作为分组依据,如图 66 所示。 图 66 ( 4)单击“下一步”按钮,出现向导的第三个对话框,这里选“单价”作“升序”排列,如图67 所示。 ( 5)单击“下一步”按钮,出现向导的第四个对话框,这一步是让用户选择报表的布局,这里选择默认设置,如图 68 所示。 图 67 图 68 ( 6)单击“下一步”按钮,出现如图 69 所示的对话框,要求选择报表的样式,这里选择“组织”样式。 ( 7)单击“下一步”按钮,

    45、这里将报表命名为“产品报表” ,如图 70 所示。 图 69 图 70 22 ( 8)单击“完成”按钮,就创建了一个报表了,如图 71 所示。 按照上面的相同的步骤,分别创建“订单报表” 、 “出货报表”和“库存报表”如下: ( 1)订单报表如图 72 所示。 图 71 图 72 ( 2)出货报表如图 73 所示。 ( 3)库存报表如图 74 所示。 图 73 图 74 5.2 报表显示窗体的设计 1. 窗体的建立和设计 接下来要设计一个报表显示的窗体,以方便用户浏览报表。具体的操作步骤如下: ( 1)在数据库窗口的“对象”栏单击“窗体” ,选中“使用向导创建窗体”项,然后单击工具栏上的 按钮

    46、,系统弹出如图 75 所示的对话框。 图 75 ( 2)在对话框中选择“设计视图” , 处的文本框留空,然后单击“确定”按钮,系统弹出一个新窗体的设计视图。 23 ( 3)单击工具栏上的自动套用格式按钮 。 ( 4)在弹出的对话框中选择“国际”项,然后单击“确定”按钮。 ( 5)单击工具箱上的复选框按钮 ,在窗体上的主体工作区单击鼠标左键,在“主体”工作区出现一个复选框和一个标签。 ( 6)再重复步骤( 5)三次,添加多三个的复选框和标签,并适当调整位置,结果如图 76 所示。 ( 7)单击工具箱中的命令按钮 ,在窗体“主体”工作区单击鼠标左键,就会出现一个命令按钮。以同样方法在窗体上再添加一

    47、个命令按钮,结果如图 77 所示。 图 76 图 77 ( 8)属性设置如下: 复选框: chkCP 的属性设置如表 8 所示。 表8 复选框控件chkCP的属性 属性名称 属性值 名称 chkCP 可见性 是 可用 是 边框样式 实线 复选框: chkDD 的属性设置如表 9 所示。 表9 复选框控件chkDD的属性 属性名称 属性值 名称 chkDD 可见性 是 可用 是 边框样式 实线 复选框: chkCH 的属性设置如表 10 所示。 表10 复选框控件chkCH的属性 属性名称 属性值 名称 chkCH 可见性 是 可用 是 边框样式 实线 复选框: chkKC 的属性设置如表 11 所示。 表11 复选框控件chkKC的属性 属性名称 属性值 名称 chkKC 可见性 是 可用 是 边框样式 实线 标签: lblCP 的属性设置如表 12 所示。 24 表12 标签控件1b1CP的属性 属性名称 属性值 名称 lblCP 标题 产品报表 边框样式 透明 标签: lblDD 的属性设置如表 13 所示。 表13 标签控件1b1DD的属性 属性名称 属性值 名称 lblDD 标题 订单报表 边框样式 透明 标签: lblCH 的属性设置如表 14 所示。 表14 标签控件1b1CH的属性 属性名称 属性值 名称 lblCH 标题 出货报表 边框样式 透明

    展开阅读全文
    提示  道客多多所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
    关于本文
    本文标题:用Access 2003开发进销存管理系统.pdf.pdf
    链接地址:https://www.docduoduo.com/p-7968227.html
    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

    道客多多用户QQ群:832276834  微博官方号:道客多多官方   知乎号:道客多多

    Copyright© 2025 道客多多 docduoduo.com 网站版权所有世界地图

    经营许可证编号:粤ICP备2021046453号    营业执照商标

    1.png 2.png 3.png 4.png 5.png 6.png 7.png 8.png 9.png 10.png



    收起
    展开