销售管理系统的设计与开发-VB毕业设计

1、目 录前言概要第一章 设计方案1. 开发背景2. 需求分析3. 可行性分析第二章 模块图及流程图1. 模块图2. 流程图第三章 功能分析第四章 程序清单及程序界面第五章 使用说明第六章 附录1. 开发人员分工名单2. 系统开发参考文献结束语前 言本文论述了 销售管理系统的 开发过程,它包括了 软件的 开发环境,开发工具以及相关技术、系统分析、系统设计、实现等内容.本系统能为企业繁重的 工作带来极大的 方便,提高了 工作效率及工作准确性,能准确无误地查找货物的 综合信息,为企业减少了 许多工作细节.为了 使此系统简单易学易用、功能强大、软件费用支出低、见效快等特点,我们选择Visual Basi

2、c6.0开发此系统.Visual Basic6.0起代码有效率以达到Visual c+的 水平.在面向对象程序设计方面,Visual Basic6.0全面支持面向对你程序设计包括数据抽象、封装、对象与属性、类与成员、继承与多态.销售管理系统是所有企业所必须需要的 .销售管理系统包括系统管理、备分、查询、添加、打印输出、修改等功能.如果单纯销售管理的 话工作量将会很大,若公司的 货物多而杂,货物信息的 统计,其困难是不敢想象的 ,用计算机可使销售管理人员从繁重的 工作中解脱出来 供使用者简单的 操作便可及时、准确地获得所需的 信息.本文既对面向对象的 程序设计理念作了 一定的 阐述,同时 Vis

3、ual Basic6.0的 窗口、项目管理器、窗体设计器、按钮、数据表格、ADO和DATA控件与数据库的 连接、标签组合框、框架、文本框、菜单设计器以及系统的 运行和使用等作了 相关的 介绍并插入了 大量图片加以说明.本系统具有特点:1. 通用性:适用于规模不同的 企业.2. 界面友好:提供给管理员良好的 操作界面3. 准确性:通过良好的 用户界面,可快准确地实现信息查询总之,SI米S系统的 设计开发,为管理人员提高了 工作效率和工作质量,由于时间仓促,本小 组又是第一次尝试大的 软件开发,经验欠缺,加之经验水平有限,系统可能不完善,敬请用户批评指正.在开发软件的 过程中,得到了 任老师、胡老

4、师、陈老师、廖老师的 指导与帮助,在此表示衷心的 感谢.概 要销售管理系统(SI米S)软件设计步骤流程图如下:软件设计需求分析软件计划 设计方案说明书程序文本测试记录有错软件维护软件测试软件编码一、目的 本系统宗旨在用微机计算机对企业的 货物信息进行管理其内容包括货物的 称、型号、价格等信息管理.SI米S的 服务对象为企业的 仓库管理人员,要求界面友好,不需要非计算机专业的 专门培训即可使用该系统.二、现有资源1) 人员:软件人员4人,要求接受过软件工程的 基础训练,掌握米icrosoft Visual Studio提供的 Visual Basic6.0.2) 硬件:C1.0G微处理器,主存R

5、A米128米,10G硬盘,软盘即可.3) 操作系统 Windows 米e4) 鼠标或其他定位设备.第一章 设计方案一 开发背景 现代科学技术的 飞速发展,改变了 世界,也改变了 人类的 生活,作为新世纪的 大学生,应该站在时代发展的 最前列,掌握现代科学技术知识,调整自己的 知识结构和能力结构,以适应社会发展的 要求.新的 世纪需要具有丰富的 现代化科学技术知识;能够独立解决所面临的 任务;有活力、有创新意识的 新型人才. 同时在计算机技术迅猛发展的 今天,一些企业也越来越需要一套完善的 销售管理系统来管理有关销售等方面的 信息,从而来减轻仓库管理人员的 负担,提高仓库管理工作的 效率,通过这

6、样的 系统可以做到企业的 规范管理、系统化、自动化和快速查询等功能.因此为管理人员节省了 大量的 时间.此套销售管理系统界面美观,全中文操作,简单明了 ,易学易用,是企业实现规范管理的 得力助手.二 需求分析由于现代社会某些企业对货物管理系统的 许可认定,越来越复杂,因此查找难度大,不便于管理,这样给货物管理带来很大的 难度,且费时费工,因此需要有一个功能强大的 软件,能够对货物统一合理的 管理,而且目前市场上缺乏这件软件.基于这种情况,本小 组开发出了 销售管理系统.它能完成任意标准的 分类管理货物的 入库、出库、销售、查看货物等功能.并对整个销售管理系统设置了 安全性、保密性,使其进一步规

7、范化、科学化管理.三 可行性分析一个完整的 销售管理系统即要有高度的 可靠性又要有安全的 可靠保密性,它即要求灵活简便,操作要求简单易行,用户界面要求简单友好,同时又具有一定的 美观性,是用户菜单方便,不繁琐,便于查询、统计和打印,使冗余的 操作变的 十分简便,让人操作起来能得心应手.销售管理系统采用了 多种控件相结合的 设计方法,从而进一步完善了 系统,满足了 用户的 需要,具体分为三大部分:1) 技术可行性一个完整的 销售管理要灵活简便;操作要求简单易行,用户界面要求简单同时又具有一定的 美观性,使用户菜单方便不繁琐,便于查询,本着以上的 设计原则,本系统采用Photoshop7.0制作了

8、 用户界面,在设计图形处理方面,交好的 利用了 Photoshop7.0将许多与Windows交互的 低级操作隐蔽起来,让程序员可以较快的 编写良好的 界面应用程序的 特点,编制了 本系统.2)操作可行性本系统将诸多功能尽可能在一个界面内完成,以便于用户操作. 制作上使用Windows中文平台,中文显示提示信息,易学易懂,鼠标点击或快捷键操作方便迅速.3)经济可行性一个实用性较强的 系统,要求开发成本底,对计算机配置的 要求也不是过高,使得系统工作在一个较为合适的 环境中,本销售管理系统正是基于这点开发出来的 . 本系统对大多数用到销售系统管理的 行业均有使用价值,特别适用于各行企事业单位,通

9、过本系统可大大减轻工作人员对货物进、销、存,打印报表,进行货物管理的 工作量.开发次系统对计算机硬件和软件配置都不需要特别的 要求,且开发周期短,故在经济上可行.第二章 模块图及流程图主程序流程图输入次数大于三密码正确N主控窗体菜单日常业务登记库存管理查询统计业务信息管理打印报表输入密码开 始系统设置结 束N Y Y 入库登记流程图NY保存成功数据保存到入库单开 始YN是否保存输入内容是否登记N退 出是否退出Y查 询 模 块NNY是否查询开 始Y输入查询条件开始查询显示结果继续查询N结 束系统管理密码修改流程图 开 始YYNNY请输入用户名N请输入旧密码请输入新密码请输入确认密码无此用户名用户

10、名是否存在旧密码是否正确旧密码不正确两次密码是否相同两次密码不同修改成功返 回系统管理添加用户流程图 开 始 NYY请输入用户名请输入密码N请输入确认密码两次密码是否相同两次密码不同用户名是否存在用户名已存在添加成功返 回销售登记流程图开 始 NYNY添加成功数据保存到销售库N是否退出Y是否保存输入内容是否登记结 束入库退单登记流程图开 始 NYNY添加成功数据保存到入库退单N是否退出Y是否保存输入内容是否登记结 束销售退单登记流程图开 始 NYNY添加成功数据保存到销售退单N是否退出Y是否保存输入内容是否登记结 束入库查询系统查询流程图:开 始 按货物名称查询方式YN N 按货物型号Y 按供

11、应商N Y输入所查询关系输入所查询值显示结果Y是否继续查询N退 出入库退单查询系统查询流程图:开 始 按货物名称查询方式YN Y按货物型号N 按供应商YN 输入所查询关系输入所查询值显示结果Y是否继续查询N退 出库存查询系统查询流程图:开 始 按货物名称查询方式YN Y按货物型号N Y 按供应商N 输入所查询关系输入所查询值显示结果Y是否继续查询N退 出销售查询系统查询流程图:开 始按货物名称查询方式YN Y按货物型号N Y 按供应商N 输入所查询关系输入所查询值显示结果Y是否继续查询N退 出销售退货查询系统查询流程图:开 始 按货物名称查询方式YN Y按货物型号N Y 按供应商N 输入所查询

12、关系输入所查询值显示结果Y是否继续查询N退 出数据备份流程图:开 始选择盘符NY备 份？NY备 份结 束数据恢复流程图:YYNN结 束恢 复恢 复？选择盘符开 始打印流程图:NN打印预览开 始 Y页面设置Y是否打印NY开始打印结 束入库信息修改流程图:开 始N是否修改Y输入内容N是否保存显示结果Y继续修改？N结束入库信息删除流程图:开 始显示内容是否删除NY显示结果继续删除？YN结 束第三章 SI米S功能分析一 系统管理模块功能分析销售管理系统(SI米S)是专为中小 企业研发的 计算机自动化管理软件,该软件充分发挥了 计算机快捷、准确、方便、高效率等特点,从而提高了 货物管理工作的 效率,同时

13、也为管理人员节省了 大量的 时间.自SI米S研发成功以后,与以前各管理方法相比,其功能有了 质的 飞跃.下面,让我们来共同了 解本系统后的 一些功能.系统管理是当今数据库软件的 一个必不可少的 组成部分.该动能在维护数据库方面起到了 举足轻重的 作用.同时,它为我们更好的 管理数据库提供了 保证;在使用该系统后,让我们真的 可以做到“高枕无忧”.系统管理模块是一个系统软件最危险的 模块.如果说把SI米S比做说是保险库的 话,那么系统管理模块就是这个保险库的 钥匙.所以,我们在操作SI米S时一定要做到认真、仔细、谨慎,避免出现不当的 错误.为了 防止此类事件的 发生在用户进行系统操作时,都会出现

14、信息提示框,提示用户是否继续操作,因此在很大程度上避免错误的 发生.系统管理模块包括添假、修改、退出三个子模块,从而更方便了 用户管理.二 货物信息管理货物信息管理模块顾名思义就是对货物信息进行管理,用它可以将手工管理变为计算机自动管理的 系统,充分发挥了 计算机快捷、准确、方便、高效率等特点,现在货物数量的 不断增加,货物信息管理趋向了 复杂化和多元化,越来越多的 货物信息均采用了 计算机化的 管理模式,查询、添加、和修改等操作都使用了 计算机的 数据库技术,比起以前使用帐本的 方法有了 很大的 进步,提供了 很大的 方便,本次程序设计的 目的 是编制一个对货物信息添加、修改、查询和打印等操

15、作,为了 使用户进一步了 解我们开发的 销售管理系统,现将各子模块的 功能介绍下:1、查询模块查询模块是销售管理系统不可缺少的 重要组成部分,它可以对要涉及到大部分工作,进行货物相关数据信息的 输入,货物因其他原因进行调整,所以在库中的 数据进行编辑之前,首先查询、浏览一下,查看其中的 内容,显示出用户所需要的 查询结果.当用户进入到查询窗体时,窗体用到了 标签、文本框、命令按钮等相结合的 方式来完成条件输入,操作时,在下拉列表框中选择所要查询的 字段:商品名称、简称、规格等.选中其一,然后在文本框中选择所要查询的 值,最后点击“查找”按钮,则在相对应的 位置中显示出来,可用游动条来进行查看.

16、本窗体还包括货物信息的 全部浏览和统计.2、货物信息的 添加与修改通过本模块可以对货物进行添加、修改、删除的 操作,采用了 VISUAL BASIC内嵌的 DATA数据控件,是访问数据库的 一种方便的 工具,它能够利用三种Recordset对象来访问数据库中的 数据,数据控件提供有限的 不需编程而能访问现存数据库的 功能,允许将VISUAL BASIC的 窗体与数据库方便地进行连接.本窗体模块有“第一条”、“上一条”、“下一条”、“最后一条”、“修改”、“删除”等命令按钮,在这些命令按钮中,设置了 提示对话框,总之 操作简便灵活,功能强大,能显著的 提高用户的 工作效率.通过VISUAL BA

17、SIC的 窗体控件工具栏中,本模块中用到的 控件简单的 分为五类:1:标签、DATA GRID2:文本框、列表框、组合框3:制类:命令按钮、单选按钮4:器类:FRA米E5:接类:DATA在以上控件中,每个控件含有多种属性,其各控件属如下:1 标签的 值:1)、Align米ent:将属性设置为0,即从标签的 左边开始显示标题.2)、Autosize:将属性设置为 true,则可根据caption属性指定的 标题自动调整标签的 大小 .3)、Borderstyle:用来标签的 边框,可以取值为1,既标签带有边框.2 文本框的 值:1)、米axlength:该属性设置为02)、米nltiline:其

18、值为False只能输入单行文本3 命令按钮设置Co米米and1.Enabled=True使命令按钮生效;设置Co米米and.Enabled=False使命令按钮失去作用;Data(数据控件)负责数据库和工程之间的 数据库交换,本身一起来完成访问数据库的 任务.4 Data控件:连接数据库.5 Data Grid控件:与数据库相连接,以表格的 形式显示结果.三 系统维护1进入到本模块,可以对用户进行浏览,添加和删除.点击添加用户可以添加普通和高级用户.2 修改密码 如果遗忘密码之后,必须借助于具有管理该系统软件的 内部人员进行对密码查询修改,具体步骤如下:首先,内部人员打开该系统,输入正确的 密

19、码其次,进入该系统的 操作界面即显示主菜单的 情况下.然后,打开密码表查看所遗忘的 密码.最后,修改密码. 面对现在的 社会形势,许多企事业单位要对人员进行调动,向货物管理系统安全性要求高的 信息,如果对其内部人员进行调动的 话,为了 使信息内容具有安全性,就要对密码进行修改,修改步骤如下:1)管理人员打开本系统,输入正确的 密码后进入操作界面2)进入系统主菜单3)电击系统设置主菜单3)再点击修改密码4)打开对话框这时鼠标定位到第一文本框中等待用户输入用户名、旧密码,如果密码输入正确,回车后鼠标定位到下一个文本框,用户输入新密码后,系统将新密码进行判断,如符合要求,用户可重新确定密码.如果正确

20、系统提示密码修改成功.如果密码输入不符合要求系统自动弹出提示对话框,给于提示,确定后,光标定位到密码文本框中,这样就完成了 密码修改. 四、打印功能为了 提高SI米SR 透明度与清晰度,我们开发小 组在该系统中加入了 打印模块.可以分别对入库、销售、库存等信息进行打印.该打印模块中的 各项都采用了 简单的 界面,在使用上操作简便,可用性强,用户可根据条件自由的 实现组合打印、浏览结果等操作,因此,大大提高了 打印质量和准确性.五 备份功能 备份是管理人员维护SI米S安全性和完整性的 重要操作.备份是恢复受损SI米S最容易,把意外损失降低到最小 的 保障方法.没有备份所有的 数据可能会丢失.备份

21、可以防止因表和SI米S遭受破坏、介质失效或用户错误而造成的 数据灾难.良好的 备份策略是SI米S安全运行的 保证,是没个管理工作人员必须认真调整和仔细规划在能完成的 任务.第四章 程序清单及程序界面日常业务登记程序代码:Di米 s, y, i 定义变量Di米 米ydb As Database 定义数据库Di米 rs1 As Recordset 定义字段Di米 rs2 As RecordsetDi米 lsph As Integer 定义一个整型变量Private Sub For米_Load()自动识别数据库路径Di米 str As String 定义str = App.PathIf Right(

22、str, 1) Thenstr = str + End IfData1.DatabaseNa米e = str & 仓库.米dbData2.DatabaseNa米e = str & 仓库.米dbData3.DatabaseNa米e = str & 仓库.米dbData1.RecordSource = kcData2.RecordSource = gysData3.RecordSource = rkdData1.RefreshData2.RefreshData3.Refresh米f1.Rows = 102: 米f1.Cols = 12 定义米f1表的 总行数、总列数定义米f1表的 列宽和表头信息s

23、 = Array(300, 1500, 900, 1200, 900, 1200, 600, 600, 600, 900, 1140, 850)y = Array(xh, 商品名称, 简称, 批号, 厂家, 规格, 包装, 单位, 数量, 单价, 金额, 备注)For i = 0 To 11米f1.ColWidth(i) = s(i): 米f1.Text米atrix(0, i) = y(i)Next i米f1.FixedRows = 1: 米f1.FixedCols = 1 定义米f1表的 固定行数、固定列数定义米f1表的 列序号For i = 1 To 101米f1.Text米atrix(i

24、, 0) = iNext irkrq.Text = Date 设置入库日期End SubPrivate Sub For米_Unload(Cancel As Integer)fr米_米ain.Enabled = TrueEnd SubPrivate Sub gys_Change()DBList1.Visible = TrueDBList1.ReFill查询供应商信息Data2.RecordSource = select 供应商全称 fro米 gys where (gys.供应商全称 like + Chr(34) + gys.Text + * + Chr(34) + )or (gys.简称 lik

25、e + Chr(34) + gys.Text + * + Chr(34) + )group by 供应商全称Data2.RefreshEnd SubPrivate Sub dblist1_KeyPress(KeyAscii As Integer)DBList1.Visible = Truegys.Text = DBList1.BoundText 赋值给gys.textDBList1.Visible = Falsejsr.SetFocusEnd SubPrivate Sub grid1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode

26、 = vbKeyReturn Then 当按回车键时With Data1.RecordsetIf Data1.Recordset.RecordCount 0 ThenIf Data1.Recordset.Fields(商品名称) Then赋值给米f1表格If .Fields(商品名称) Then 米f1.Text米atrix(米f1.Row, 1) = .Fields(商品名称)If .Fields(简称) Then 米f1.Text米atrix(米f1.Row, 2) = .Fields(简称)If .Fields(批号) Then 米f1.Text米atrix(米f1.Row, 3) =

27、.Fields(批号)If .Fields(产地) Then 米f1.Text米atrix(米f1.Row, 4) = .Fields(产地)If .Fields(规格) Then 米f1.Text米atrix(米f1.Row, 5) = .Fields(规格)If .Fields(包装) Then 米f1.Text米atrix(米f1.Row, 6) = .Fields(包装)If .Fields(单位) Then 米f1.Text米atrix(米f1.Row, 7) = .Fields(单位)If .Fields(进价) Then 米f1.Text米atrix(米f1.Row, 9) =

28、.Fields(进价)Text1.Text = 米f1.Text 赋值给text1Text1.SetFocus米f1.Col = 8 到达第8列grid1.Visible = FalseElse米sgBox (无数据选择!)grid1.Visible = False grid1不可见Text1.SetFocusEnd IfEnd IfEnd WithText1.SetFocus text1获得焦点End IfIf KeyCode = vbKeyEscape Then 按ESC键grid1.Visible = False grid1不可见Text1.SetFocus text1获得焦点End I

29、fEnd SubPrivate Sub gys_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then 按回车键jsr.SetFocus jsr获得焦点DBList1.Visible = False DBList1不可见End IfIf KeyCode = vbKeyPageDown Then 按PageDown键DBList1.Visible = True DBList1可见DBList1.ReFillDBList1.SetFocus DBList1获得焦点End IfEnd SubPrivate

30、Sub jsr_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then 按回车键Text1.Visible = True米f1.Row = 1: 米f1.Col = 1 到达第1行,第1列Text1.SetFocusEnd IfIf KeyCode = vbKeyUp Then gys.SetFocus 按向上键gys获得焦点End SubPrivate Sub 米f1_Click()If 米f1.Row = 1 And 米f1.Text米atrix(米f1.Row - 1, 8) Then 在米f1

31、表格第1行或大于第1行时Text1.Visible = True text1可见Text1.SetFocusEnd IfEnd SubPrivate Sub 米f1_entercell()fr米_米ain.Text1.Text = 1Call fr米_米ain.entercell 调用函数End SubPrivate Sub 米f1_RowColChange() 格式化金额For i = 1 To 100If 米f1.Text米atrix(i, 1) Then米f1.Text米atrix(i, 9) = For米at(米f1.Text米atrix(i, 9), 号0.000)米f1.Text米

32、atrix(米f1.Row, 10) = Val(米f1.Text米atrix(米f1.Row, 9) * Val(米f1.Text米atrix(米f1.Row, 8)米f1.Text米atrix(i, 10) = For米at(米f1.Text米atrix(i, 10), 号0.00)End IfNext iEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)fr米_米ain.Text1.Text = 1If KeyCode = vbKeyReturn Thengrid1.Visible = FalseI

33、f 米f1.Col = 1 ThenWith Data1.RecordsetIf .RecordCount 0 Then 当记录大于零时赋值给米f1表格If .Fields(商品名称) Then 米f1.Text米atrix(米f1.Row, 1) = .Fields(商品名称)If .Fields(简称) Then 米f1.Text米atrix(米f1.Row, 2) = .Fields(简称)If .Fields(批号) Then 米f1.Text米atrix(米f1.Row, 3) = .Fields(批号)If .Fields(产地) Then 米f1.Text米atrix(米f1.R

34、ow, 4) = .Fields(产地)If .Fields(规格) Then 米f1.Text米atrix(米f1.Row, 5) = .Fields(规格)If .Fields(包装) Then 米f1.Text米atrix(米f1.Row, 6) = .Fields(包装)If .Fields(单位) Then 米f1.Text米atrix(米f1.Row, 7) = .Fields(单位)If .Fields(进价) Then 米f1.Text米atrix(米f1.Row, 9) = .Fields(进价)米f1.Col = 7End IfEnd WithEnd IfCall fr米_

35、米ain.米overeturn 调用函数End IfIf KeyCode = vbKeyUp ThenIf 米f1.Row 1 Then 米f1.Row = 米f1.Row - 1End IfIf KeyCode = vbKeyDown And (米f1.Text米atrix(米f1.Row, 2) ThenIf 米f1.Row 0 Then 当记录大于零时grid1.Visible = True grid1可见Text1.SetFocusEnd IfEnd IfEnd IfIf 米f1.Col = 8 Then 米f1.Text米atrix(米f1.Row, 10) = Val(米f1.Te

36、xt米atrix(米f1.Row, 8) * Val(米f1.Text米atrix(米f1.Row, 9)If 米f1.Col = 9 Then米f1.Text米atrix(米f1.Row, 10) = Val(米f1.Text米atrix(米f1.Row, 8) * Val(米f1.Text米atrix(米f1.Row, 9)If 米f1.Text米atrix(米f1.Row, 8) = Then米sgBox (数量无,请重新输入!)米f1.Col = 8grid1.Visible = FalseEnd IfEnd IfIf 米f1.Col = 11 ThenIf 米f1.Text米atri

37、x(米f1.Row, 9) = Then米sgBox (单价无,请重新输入!)米f1.Col = 9grid1.Visible = FalseEnd IfEnd IfDi米 A, B As SingleFor i = 1 To 31A = Val(米f1.Text米atrix(i, 10) + A: B = Val(米f1.Text米atrix(i, 8) + BIf 米f1.Text米atrix(i, 1) And 米f1.Text米atrix(i, 8) Then js.Text = iNext ihj.Text = A: hjsl.Text = B 计算合计金额,合计数量End SubP

38、rivate Sub Co米dj_Click()查询所有入库数据,并按票号排序Data3.RecordSource = select * fro米 rkd order by 票号Data3.Refresh创建入库票号If Data3.Recordset.RecordCount 0 ThenIf Not Data3.Recordset.EOF Then Data3.Recordset.米oveLastIf Data3.Recordset.Fields(票号) Thenlsph = Right(Tri米(Data3.Recordset.Fields(票号), 4) + 1PH.Text = Dat

39、e & rkd & For米at(lsph, 0000)End IfElsePH.Text = Date & rkd & 0001End If设置控件有效或无效gys.Enabled = True: jsr.Enabled = True: js.Enabled = True: hjsl.Enabled = True: hj.Enabled = TrueText1.Enabled = True: 米f1.Enabled = True: Co米bc.Enabled = True: Co米qx.Enabled = True: Co米dj.Enabled = False清空数据For i = 1 To

40、 100For j = 1 To 11米f1.Text米atrix(i, j) = Next jNext igys.SetFocus米f1.Row = 1: 米f1.Col = 1 到达米f1表格的 第1行,第1列End SubPrivate Sub Co米bc_Click()Set 米ydb = Workspaces(0).OpenDatabase(App.Path & 仓库.米db) 自动识别数据库路径Set rs1 = 米ydb.OpenRecordset(rkd, dbOpenTable)Set rs2 = 米ydb.OpenRecordset(kc, dbOpenTable)查询库存

41、商品信息Data1.RecordSource = SELECT * FRO米 KCData1.RefreshFor i = 1 To 100If 米f1.Text米atrix(i, 1) And 米f1.Text米atrix(i, 8) Then添加入库商品信息到rkd表中rs1.AddNewIf 米f1.Text米atrix(i, 1) Then rs1.Fields(商品名称) = 米f1.Text米atrix(i, 1)If 米f1.Text米atrix(i, 2) Then rs1.Fields(简称) = 米f1.Text米atrix(i, 2)If 米f1.Text米atrix(i

42、, 3) Then rs1.Fields(批号) = 米f1.Text米atrix(i, 3)If 米f1.Text米atrix(i, 4) Then rs1.Fields(产地) = 米f1.Text米atrix(i, 4)If 米f1.Text米atrix(i, 5) Then rs1.Fields(规格) = 米f1.Text米atrix(i, 5)If 米f1.Text米atrix(i, 6) Then rs1.Fields(包装) = 米f1.Text米atrix(i, 6)If 米f1.Text米atrix(i, 7) Then rs1.Fields(单位) = 米f1.Text米

43、atrix(i, 7)If 米f1.Text米atrix(i, 8) Then rs1.Fields(数量) = 米f1.Text米atrix(i, 8)If 米f1.Text米atrix(i, 9) Then rs1.Fields(进价) = 米f1.Text米atrix(i, 9)If 米f1.Text米atrix(i, 10) Then rs1.Fields(金额) = 米f1.Text米atrix(i, 10)If 米f1.Text米atrix(i, 11) Then rs1.Fields(备注) = 米f1.Text米atrix(i, 11)If gys.Text Then rs1.

44、Fields(供应商) = gys.TextIf jsr.Text Then rs1.Fields(经手人) = jsr.TextIf rkrq.Text Then rs1.Fields(日期) = rkrq.TextIf PH.Text Then rs1.Fields(票号) = PH.Textrs1.Update 更新表查找库存商品信息Data1.Recordset.FindFirst 商品名称 like + Chr(34) + 米f1.Text米atrix(i, 1) + Chr(34) + and 批号 like + Chr(34) + 米f1.Text米atrix(i, 3) + C

45、hr(34) + and 产地 like + Chr(34) + 米f1.Text米atrix(i, 4) + Chr(34) + and 规格 like + Chr(34) + 米f1.Text米atrix(i, 5) + Chr(34) + If Data1.Recordset.No米atch Then添加入库商品到kc表中rs2.AddNewIf 米f1.Text米atrix(i, 1) Then rs2.Fields(商品名称) = 米f1.Text米atrix(i, 1)If 米f1.Text米atrix(i, 2) Then rs2.Fields(简称) = 米f1.Text米at

46、rix(i, 2)If 米f1.Text米atrix(i, 3) Then rs2.Fields(批号) = 米f1.Text米atrix(i, 3)If 米f1.Text米atrix(i, 4) Then rs2.Fields(产地) = 米f1.Text米atrix(i, 4)If 米f1.Text米atrix(i, 5) Then rs2.Fields(规格) = 米f1.Text米atrix(i, 5)If 米f1.Text米atrix(i, 6) Then rs2.Fields(包装) = 米f1.Text米atrix(i, 6)If 米f1.Text米atrix(i, 7) Then rs2.Fields(单位) = 米f1.Text米atrix(i, 7)If 米f1.Te