vb+access电脑销售系统(论文+系统)
收藏
资源目录
压缩包内文档预览：(预览前20页/共97页)
编号：149910554
类型：共享资源
大小：2.06MB
格式：RAR
上传时间：2021-10-10
上传人：好资料QQ****51605
认证信息
个人认证
孙**（实名认证）
江苏
IP属地：江苏
20
积分
- 关 键 词：
-
vb
access
电脑
销售
系统
论文
- 资源描述：
-
vb+access电脑销售系统(论文+系统),vb,access,电脑,销售,系统,论文
- 内容简介：
-
目 录前言概要第一章 设计方案1. 开发背景2. 需求分析3. 可行性分析第二章 模块图及流程图1. 模块图2. 流程图第三章 功能分析第四章 程序清单及程序界面第五章 使用说明第六章 附录1. 开发人员分工名单2. 系统开发参考文献结束语前 言本文论述了销售管理系统的开发过程，它包括了软件的开发环境，开发工具以及相关技术、系统分析、系统设计、实现等内容。本系统能为企业繁重的工作带来极大的方便，提高了工作效率及工作准确性，能准确无误地查找货物的综合信息，为企业减少了许多工作细节。为了使此系统简单易学易用、功能强大、软件费用支出低、见效快等特点，我们选择Visual Basic6.0开发此系统。Visual Basic6.0起代码有效率以达到Visual c+的水平。在面向对象程序设计方面，Visual Basic6.0全面支持面向对你程序设计包括数据抽象、封装、对象与属性、类与成员、继承与多态。销售管理系统是所有企业所必须需要的。销售管理系统包括系统管理、备分、查询、添加、打印输出、修改等功能。如果单纯销售管理的话工作量将会很大，若公司的货物多而杂，货物信息的统计，其困难是不敢想象的，用计算机可使销售管理人员从繁重的工作中解脱出来 供使用者简单的操作便可及时、准确地获得所需的信息。本文既对面向对象的程序设计理念作了一定的阐述，同时 Visual Basic6.0的窗口、项目管理器、窗体设计器、按钮、数据表格、ADO和DATA控件与数据库的连接、标签组合框、框架、文本框、菜单设计器以及系统的运行和使用等作了相关的介绍并插入了大量图片加以说明。本系统具有特点：1. 通用性：适用于规模不同的企业。2. 界面友好：提供给管理员良好的操作界面3. 准确性：通过良好的用户界面，可快准确地实现信息查询总之，SIMS系统的设计开发，为管理人员提高了工作效率和工作质量，由于时间仓促，本小组又是第一次尝试大的软件开发，经验欠缺，加之经验水平有限，系统可能不完善，敬请用户批评指正。在开发软件的过程中，得到了任老师、胡老师、陈老师、廖老师的指导与帮助，在此表示衷心的感谢。概 要销售管理系统(SIMS)软件设计步骤流程图如下：软件设计需求分析软件计划 设计方案说明书程序文本测试记录有错软件维护软件测试软件编码一、目的本系统宗旨在用微机计算机对企业的货物信息进行管理其内容包括货物的称、型号、价格等信息管理。SIMS的服务对象为企业的仓库管理人员，要求界面友好，不需要非计算机专业的专门培训即可使用该系统。二、现有资源1) 人员：软件人员4人，要求接受过软件工程的基础训练，掌握Microsoft Visual Studio提供的Visual Basic6.0。2) 硬件：C1.0G微处理器，主存RAM128M,10G硬盘，软盘即可。3) 操作系统 Windows Me4) 鼠标或其他定位设备。第一章 设计方案一 开发背景 现代科学技术的飞速发展，改变了世界，也改变了人类的生活，作为新世纪的大学生，应该站在时代发展的最前列，掌握现代科学技术知识，调整自己的知识结构和能力结构，以适应社会发展的要求。新的世纪需要具有丰富的现代化科学技术知识；能够独立解决所面临的任务；有活力、有创新意识的新型人才。 同时在计算机技术迅猛发展的今天，一些企业也越来越需要一套完善的销售管理系统来管理有关销售等方面的信息，从而来减轻仓库管理人员的负担，提高仓库管理工作的效率，通过这样的系统可以做到企业的规范管理、系统化、自动化和快速查询等功能。因此为管理人员节省了大量的时间。此套销售管理系统界面美观，全中文操作，简单明了，易学易用，是企业实现规范管理的得力助手。二 需求分析由于现代社会某些企业对货物管理系统的许可认定，越来越复杂，因此查找难度大，不便于管理，这样给货物管理带来很大的难度，且费时费工，因此需要有一个功能强大的软件，能够对货物统一合理的管理，而且目前市场上缺乏这件软件。基于这种情况，本小组开发出了销售管理系统。它能完成任意标准的分类管理货物的入库、出库、销售、查看货物等功能。并对整个销售管理系统设置了安全性、保密性，使其进一步规范化、科学化管理。三 可行性分析一个完整的销售管理系统即要有高度的可靠性又要有安全的可靠保密性，它即要求灵活简便，操作要求简单易行，用户界面要求简单友好，同时又具有一定的美观性，是用户菜单方便，不繁琐，便于查询、统计和打印，使冗余的操作变的十分简便，让人操作起来能得心应手。销售管理系统采用了多种控件相结合的设计方法，从而进一步完善了系统，满足了用户的需要，具体分为三大部分：1) 技术可行性一个完整的销售管理要灵活简便；操作要求简单易行，用户界面要求简单同时又具有一定的美观性，使用户菜单方便不繁琐，便于查询，本着以上的设计原则，本系统采用Photoshop7.0制作了用户界面，在设计图形处理方面，交好的利用了Photoshop7.0将许多与Windows交互的低级操作隐蔽起来，让程序员可以较快的编写良好的界面应用程序的特点，编制了本系统。2)操作可行性本系统将诸多功能尽可能在一个界面内完成，以便于用户操作。 制作上使用Windows中文平台，中文显示提示信息，易学易懂，鼠标点击或快捷键操作方便迅速。3)经济可行性一个实用性较强的系统，要求开发成本底，对计算机配置的要求也不是过高，使得系统工作在一个较为合适的环境中，本销售管理系统正是基于这点开发出来的。 本系统对大多数用到销售系统管理的行业均有使用价值，特别适用于各行企事业单位，通过本系统可大大减轻工作人员对货物进、销、存，打印报表，进行货物管理的工作量。开发次系统对计算机硬件和软件配置都不需要特别的要求，且开发周期短，故在经济上可行。第二章 模块图及流程图主程序流程图输入次数大于三密码正确N主控窗体菜单日常业务登记库存管理查询统计业务信息管理打印报表输入密码开 始系统设置结 束N Y Y 入库登记流程图NY保存成功数据保存到入库单开 始YN是否保存输入内容是否登记N退 出是否退出Y查 询 模 块NNY是否查询开 始Y输入查询条件开始查询显示结果继续查询N结 束系统管理密码修改流程图 开 始YYNNY请输入用户名N请输入旧密码请输入新密码请输入确认密码无此用户名用户名是否存在旧密码是否正确旧密码不正确两次密码是否相同两次密码不同修改成功返 回系统管理添加用户流程图 开 始 NYY请输入用户名请输入密码N请输入确认密码两次密码是否相同两次密码不同用户名是否存在用户名已存在添加成功返 回销售登记流程图开 始 NYNY添加成功数据保存到销售库N是否退出Y是否保存输入内容是否登记结 束入库退单登记流程图开 始 NYNY添加成功数据保存到入库退单N是否退出Y是否保存输入内容是否登记结 束销售退单登记流程图开 始 NYNY添加成功数据保存到销售退单N是否退出Y是否保存输入内容是否登记结 束入库查询系统查询流程图：开 始 按货物名称查询方式YN N 按货物型号Y 按供应商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 输入所查询关系输入所查询值显示结果Y是否继续查询N退 出数据备份流程图:开 始选择盘符NY备 份？NY备 份结 束数据恢复流程图:YYNN结 束恢 复恢 复？选择盘符开 始打印流程图：NN打印预览开 始 Y页面设置Y是否打印NY开始打印结 束入库信息修改流程图：开 始N是否修改Y输入内容N是否保存显示结果Y继续修改？N结束入库信息删除流程图：开 始显示内容是否删除NY显示结果继续删除？YN结 束第三章 SIMS功能分析一 系统管理模块功能分析销售管理系统（SIMS）是专为中小企业研发的计算机自动化管理软件，该软件充分发挥了计算机快捷、准确、方便、高效率等特点，从而提高了货物管理工作的效率，同时也为管理人员节省了大量的时间。自SIMS研发成功以后，与以前各管理方法相比，其功能有了质的飞跃。下面，让我们来共同了解本系统后的一些功能。系统管理是当今数据库软件的一个必不可少的组成部分。该动能在维护数据库方面起到了举足轻重的作用。同时，它为我们更好的管理数据库提供了保证；在使用该系统后，让我们真的可以做到“高枕无忧”。系统管理模块是一个系统软件最危险的模块。如果说把SIMS比做说是保险库的话，那么系统管理模块就是这个保险库的钥匙。所以，我们在操作SIMS时一定要做到认真、仔细、谨慎，避免出现不当的错误。为了防止此类事件的发生在用户进行系统操作时，都会出现信息提示框，提示用户是否继续操作，因此在很大程度上避免错误的发生。系统管理模块包括添假、修改、退出三个子模块，从而更方便了用户管理。二 货物信息管理货物信息管理模块顾名思义就是对货物信息进行管理，用它可以将手工管理变为计算机自动管理的系统，充分发挥了计算机快捷、准确、方便、高效率等特点，现在货物数量的不断增加，货物信息管理趋向了复杂化和多元化，越来越多的货物信息均采用了计算机化的管理模式，查询、添加、和修改等操作都使用了计算机的数据库技术，比起以前使用帐本的方法有了很大的进步，提供了很大的方便，本次程序设计的目的是编制一个对货物信息添加、修改、查询和打印等操作，为了使用户进一步了解我们开发的销售管理系统，现将各子模块的功能介绍下：1、查询模块查询模块是销售管理系统不可缺少的重要组成部分，它可以对要涉及到大部分工作，进行货物相关数据信息的输入，货物因其他原因进行调整，所以在库中的数据进行编辑之前，首先查询、浏览一下，查看其中的内容，显示出用户所需要的查询结果。当用户进入到查询窗体时，窗体用到了标签、文本框、命令按钮等相结合的方式来完成条件输入，操作时，在下拉列表框中选择所要查询的字段：商品名称、简称、规格等。选中其一，然后在文本框中选择所要查询的值，最后点击“查找”按钮，则在相对应的位置中显示出来，可用游动条来进行查看。本窗体还包括货物信息的全部浏览和统计。2、货物信息的添加与修改通过本模块可以对货物进行添加、修改、删除的操作，采用了VISUAL BASIC内嵌的DATA数据控件，是访问数据库的一种方便的工具，它能够利用三种Recordset对象来访问数据库中的数据，数据控件提供有限的不需编程而能访问现存数据库的功能，允许将VISUAL BASIC的窗体与数据库方便地进行连接。本窗体模块有“第一条”、“上一条”、“下一条”、“最后一条”、“修改”、“删除”等命令按钮，在这些命令按钮中，设置了提示对话框，总之 操作简便灵活，功能强大，能显著的提高用户的工作效率。通过VISUAL BASIC的窗体控件工具栏中，本模块中用到的控件简单的分为五类：1：标签、DATA GRID2：文本框、列表框、组合框3：制类：命令按钮、单选按钮4：器类：FRAME5：接类：DATA在以上控件中，每个控件含有多种属性，其各控件属如下：1 标签的值：1)、Alignment：将属性设置为0，即从标签的左边开始显示标题。2)、Autosize：将属性设置为 true，则可根据caption属性指定的标题自动调整标签的大小。3)、Borderstyle：用来标签的边框，可以取值为1，既标签带有边框。2 文本框的值：1)、Maxlength：该属性设置为02)、Mnltiline：其值为False只能输入单行文本3 命令按钮设置Command1.Enabled=True使命令按钮生效；设置Command.Enabled=False使命令按钮失去作用；Data(数据控件)负责数据库和工程之间的数据库交换，本身一起来完成访问数据库的任务。4 Data控件：连接数据库。5 Data Grid控件：与数据库相连接，以表格的形式显示结果。三 系统维护1进入到本模块，可以对用户进行浏览，添加和删除。点击添加用户可以添加普通和高级用户。2 修改密码 如果遗忘密码之后，必须借助于具有管理该系统软件的内部人员进行对密码查询修改，具体步骤如下：首先，内部人员打开该系统，输入正确的密码其次，进入该系统的操作界面即显示主菜单的情况下。然后，打开密码表查看所遗忘的密码。最后，修改密码。 面对现在的社会形势，许多企事业单位要对人员进行调动，向货物管理系统安全性要求高的信息，如果对其内部人员进行调动的话，为了使信息内容具有安全性，就要对密码进行修改，修改步骤如下：1）管理人员打开本系统，输入正确的密码后进入操作界面2）进入系统主菜单3）电击系统设置主菜单3）再点击修改密码4）打开对话框这时鼠标定位到第一文本框中等待用户输入用户名、旧密码，如果密码输入正确，回车后鼠标定位到下一个文本框，用户输入新密码后，系统将新密码进行判断，如符合要求，用户可重新确定密码。如果正确系统提示密码修改成功。如果密码输入不符合要求系统自动弹出提示对话框，给于提示，确定后，光标定位到密码文本框中，这样就完成了密码修改。 四、打印功能为了提高SIMSR 透明度与清晰度，我们开发小组在该系统中加入了打印模块。可以分别对入库、销售、库存等信息进行打印。该打印模块中的各项都采用了简单的界面，在使用上操作简便，可用性强，用户可根据条件自由的实现组合打印、浏览结果等操作，因此，大大提高了打印质量和准确性。五 备份功能 备份是管理人员维护SIMS安全性和完整性的重要操作。备份是恢复受损SIMS最容易，把意外损失降低到最小的保障方法。没有备份所有的数据可能会丢失。备份可以防止因表和SIMS遭受破坏、介质失效或用户错误而造成的数据灾难。良好的备份策略是SIMS安全运行的保证，是没个管理工作人员必须认真调整和仔细规划在能完成的任务。第四章 程序清单及程序界面日常业务登记程序代码：Dim s, y, i 定义变量Dim mydb As Database 定义数据库Dim rs1 As Recordset 定义字段Dim rs2 As RecordsetDim lsph As Integer 定义一个整型变量Private Sub Form_Load()自动识别数据库路径Dim str As String 定义str = App.PathIf Right(str, 1) Thenstr = str + End IfData1.DatabaseName = str & 仓库.mdbData2.DatabaseName = str & 仓库.mdbData3.DatabaseName = str & 仓库.mdbData1.RecordSource = kcData2.RecordSource = gysData3.RecordSource = rkdData1.RefreshData2.RefreshData3.Refreshmf1.Rows = 102: mf1.Cols = 12 定义mf1表的总行数、总列数定义mf1表的列宽和表头信息s = Array(300, 1500, 900, 1200, 900, 1200, 600, 600, 600, 900, 1140, 850)y = Array(xh, 商品名称, 简称, 批号, 厂家, 规格, 包装, 单位, 数量, 单价, 金额, 备注)For i = 0 To 11mf1.ColWidth(i) = s(i): mf1.TextMatrix(0, i) = y(i)Next imf1.FixedRows = 1: mf1.FixedCols = 1 定义mf1表的固定行数、固定列数定义mf1表的列序号For i = 1 To 101mf1.TextMatrix(i, 0) = iNext irkrq.Text = Date 设置入库日期End SubPrivate Sub Form_Unload(Cancel As Integer)frm_main.Enabled = TrueEnd SubPrivate Sub gys_Change()DBList1.Visible = TrueDBList1.ReFill查询供应商信息Data2.RecordSource = select 供应商全称 from gys where (gys.供应商全称 like + Chr(34) + gys.Text + * + Chr(34) + )or (gys.简称 like + 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 = vbKeyReturn Then 当按回车键时With Data1.RecordsetIf Data1.Recordset.RecordCount 0 ThenIf Data1.Recordset.Fields(商品名称) Then赋值给mf1表格If .Fields(商品名称) Then mf1.TextMatrix(mf1.Row, 1) = .Fields(商品名称)If .Fields(简称) Then mf1.TextMatrix(mf1.Row, 2) = .Fields(简称)If .Fields(批号) Then mf1.TextMatrix(mf1.Row, 3) = .Fields(批号)If .Fields(产地) Then mf1.TextMatrix(mf1.Row, 4) = .Fields(产地)If .Fields(规格) Then mf1.TextMatrix(mf1.Row, 5) = .Fields(规格)If .Fields(包装) Then mf1.TextMatrix(mf1.Row, 6) = .Fields(包装)If .Fields(单位) Then mf1.TextMatrix(mf1.Row, 7) = .Fields(单位)If .Fields(进价) Then mf1.TextMatrix(mf1.Row, 9) = .Fields(进价)Text1.Text = mf1.Text 赋值给text1Text1.SetFocusmf1.Col = 8 到达第8列grid1.Visible = FalseElseMsgBox (无数据选择!)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 IfEnd 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 Sub jsr_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then 按回车键Text1.Visible = Truemf1.Row = 1: mf1.Col = 1 到达第1行，第1列Text1.SetFocusEnd IfIf KeyCode = vbKeyUp Then gys.SetFocus 按向上键gys获得焦点End SubPrivate Sub mf1_Click()If mf1.Row = 1 And mf1.TextMatrix(mf1.Row - 1, 8) Then 在mf1表格第1行或大于第1行时Text1.Visible = True text1可见Text1.SetFocusEnd IfEnd SubPrivate Sub mf1_entercell()frm_main.Text1.Text = 1Call frm_main.entercell 调用函数End SubPrivate Sub mf1_RowColChange() 格式化金额For i = 1 To 100If mf1.TextMatrix(i, 1) Thenmf1.TextMatrix(i, 9) = Format(mf1.TextMatrix(i, 9), #0.000)mf1.TextMatrix(mf1.Row, 10) = Val(mf1.TextMatrix(mf1.Row, 9) * Val(mf1.TextMatrix(mf1.Row, 8)mf1.TextMatrix(i, 10) = Format(mf1.TextMatrix(i, 10), #0.00)End IfNext iEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)frm_main.Text1.Text = 1If KeyCode = vbKeyReturn Thengrid1.Visible = FalseIf mf1.Col = 1 ThenWith Data1.RecordsetIf .RecordCount 0 Then 当记录大于零时赋值给mf1表格If .Fields(商品名称) Then mf1.TextMatrix(mf1.Row, 1) = .Fields(商品名称)If .Fields(简称) Then mf1.TextMatrix(mf1.Row, 2) = .Fields(简称)If .Fields(批号) Then mf1.TextMatrix(mf1.Row, 3) = .Fields(批号)If .Fields(产地) Then mf1.TextMatrix(mf1.Row, 4) = .Fields(产地)If .Fields(规格) Then mf1.TextMatrix(mf1.Row, 5) = .Fields(规格)If .Fields(包装) Then mf1.TextMatrix(mf1.Row, 6) = .Fields(包装)If .Fields(单位) Then mf1.TextMatrix(mf1.Row, 7) = .Fields(单位)If .Fields(进价) Then mf1.TextMatrix(mf1.Row, 9) = .Fields(进价)mf1.Col = 7End IfEnd WithEnd IfCall frm_main.movereturn 调用函数End IfIf KeyCode = vbKeyUp ThenIf mf1.Row 1 Then mf1.Row = mf1.Row - 1End IfIf KeyCode = vbKeyDown And (mf1.TextMatrix(mf1.Row, 2) ThenIf mf1.Row 0 Then 当记录大于零时grid1.Visible = True grid1可见Text1.SetFocusEnd IfEnd IfEnd IfIf mf1.Col = 8 Then mf1.TextMatrix(mf1.Row, 10) = Val(mf1.TextMatrix(mf1.Row, 8) * Val(mf1.TextMatrix(mf1.Row, 9)If mf1.Col = 9 Thenmf1.TextMatrix(mf1.Row, 10) = Val(mf1.TextMatrix(mf1.Row, 8) * Val(mf1.TextMatrix(mf1.Row, 9)If mf1.TextMatrix(mf1.Row, 8) = ThenMsgBox (数量无,请重新输入!)mf1.Col = 8grid1.Visible = FalseEnd IfEnd IfIf mf1.Col = 11 ThenIf mf1.TextMatrix(mf1.Row, 9) = ThenMsgBox (单价无,请重新输入!)mf1.Col = 9grid1.Visible = FalseEnd IfEnd IfDim A, B As SingleFor i = 1 To 31A = Val(mf1.TextMatrix(i, 10) + A: B = Val(mf1.TextMatrix(i, 8) + BIf mf1.TextMatrix(i, 1) And mf1.TextMatrix(i, 8) Then js.Text = iNext ihj.Text = A: hjsl.Text = B 计算合计金额，合计数量End SubPrivate Sub Comdj_Click()查询所有入库数据,并按票号排序Data3.RecordSource = select * from rkd order by 票号Data3.Refresh创建入库票号If Data3.Recordset.RecordCount 0 ThenIf Not Data3.Recordset.EOF Then Data3.Recordset.MoveLastIf Data3.Recordset.Fields(票号) Thenlsph = Right(Trim(Data3.Recordset.Fields(票号), 4) + 1PH.Text = Date & rkd & Format(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: mf1.Enabled = True: Combc.Enabled = True: Comqx.Enabled = True: Comdj.Enabled = False清空数据For i = 1 To 100For j = 1 To 11mf1.TextMatrix(i, j) = Next jNext igys.SetFocusmf1.Row = 1: mf1.Col = 1 到达mf1表格的第1行，第1列End SubPrivate Sub Combc_Click()Set mydb = Workspaces(0).OpenDatabase(App.Path & 仓库.mdb) 自动识别数据库路径Set rs1 = mydb.OpenRecordset(rkd, dbOpenTable)Set rs2 = mydb.OpenRecordset(kc, dbOpenTable)查询库存商品信息Data1.RecordSource = SELECT * FROM KCData1.RefreshFor i = 1 To 100If mf1.TextMatrix(i, 1) And mf1.TextMatrix(i, 8) Then添加入库商品信息到rkd表中rs1.AddNewIf mf1.TextMatrix(i, 1) Then rs1.Fields(商品名称) = mf1.TextMatrix(i, 1)If mf1.TextMatrix(i, 2) Then rs1.Fields(简称) = mf1.TextMatrix(i, 2)If mf1.TextMatrix(i, 3) Then rs1.Fields(批号) = mf1.TextMatrix(i, 3)If mf1.TextMatrix(i, 4) Then rs1.Fields(产地) = mf1.TextMatrix(i, 4)If mf1.TextMatrix(i, 5) Then rs1.Fields(规格) = mf1.TextMatrix(i, 5)If mf1.TextMatrix(i, 6) Then rs1.Fields(包装) = mf1.TextMatrix(i, 6)If mf1.TextMatrix(i, 7) Then rs1.Fields(单位) = mf1.TextMatrix(i, 7)If mf1.TextMatrix(i, 8) Then rs1.Fields(数量) = mf1.TextMatrix(i, 8)If mf1.TextMatrix(i, 9) Then rs1.Fields(进价) = mf1.TextMatrix(i, 9)If mf1.TextMatrix(i, 10) Then rs1.Fields(金额) = mf1.TextMatrix(i, 10)If mf1.TextMatrix(i, 11) Then rs1.Fields(备注) = mf1.TextMatrix(i, 11)If gys.Text Then rs1.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) + mf1.TextMatrix(i, 1) + Chr(34) + and 批号 like + Chr(34) + mf1.TextMatrix(i, 3) + Chr(34) + and 产地 like + Chr(34) + mf1.TextMatrix(i, 4) + Chr(34) + and 规格 like + Chr(34) + mf1.TextMatrix(i, 5) + Chr(34) + If Data1.Recordset.NoMatch Then添加入库商品到kc表中rs2.AddNewIf mf1.TextMatrix(i, 1) Then rs2.Fields(商品名称) = mf1.TextMatrix(i, 1)If mf1.TextMatrix(i, 2) Then rs2.Fields(简称) = mf1.TextMatrix(i, 2)If mf1.TextMatrix(i, 3) Then rs2.Fields(批号) = mf1.TextMatrix(i, 3)If mf1.TextMatrix(i, 4) Then rs2.Fields(产地) = mf1.TextMatrix(i, 4)If mf1.TextMatrix(i, 5) Then rs2.Fields(规格) = mf1.TextMatrix(i, 5)If mf1.TextMatrix(i, 6) Then rs2.Fields(包装) = mf1.TextMatrix(i, 6)If mf1.TextMatrix(i, 7) Then rs2.Fields(单位) = mf1.TextMatrix(i, 7)If mf1.TextMatrix(i, 8) Then rs2.Fields(库存) = mf1.TextMatrix(i, 8)If mf1.TextMatrix(i, 9) Then rs2.Fields(进价) = mf1.TextMatrix(i, 9)If mf1.TextMatrix(i, 10) Then rs2.Fields(库存金额) = mf1.TextMatrix(i, 10)rs2.Update 更新表Else更新kc表中的库存及库存金额Data1.Recordset.EditData1.Recordset.Fields(库存) = Val(mf1.TextMatrix(i, 8) + Val(Data1.Recordset.Fields(库存)Data1.Recordset.Fields(库存金额) = Val(Data1.Recordset.Fields(库存) * Val(Data1.Recordset.Fields(进价)Data1.UpdateRecordEnd IfEnd IfNext irs1.Close: mydb.Close清空数据For i = 1 To 100For j = 1 To 11mf1.TextMatrix(i, j) = Next jNext igys.Text = : jsr.Text = : js.Text = : hjsl.Text = : hj.Text = Text1.Visible = False: DBList1.Visible = False 设置控件不可见mf1.Enabled = False: Combc.Enabled = False: Comdj.Enabled = True: Comqx.Enabled = FalseEnd SubPrivate Sub Comqx_Click() 取消操作gys.Text = : jsr.Text = : js.Text = : hjsl.Text = : hj.Text = For i = 1 To 100For j = 1 To 11mf1.TextMatrix(i, j) = Next jNext igys.Enabled = False: jsr.Enabled = False: js.Enabled = False: hjsl.Enabled = False: hj.Enabled = FalseDBList1.Visible = False: Text1.Enabled = False: mf1.Enabled = False: Combc.Enabled = False:Comqx.Enabled = False: Comdj.Enabled = True: Comdj.SetFocusEnd SubPrivate Sub Comend_Click()frm_main.Enabled = TrueUnload MeEnd Sub查询模块程序代码:Dim lsql As StringDim tmpsql1 As StringDim tpsql1 As StringPrivate Sub Combo1_LostFocus()Combo1.AddItem 商品名称Combo1.AddItem 批号Combo1.AddItem 产地Combo1.AddItem 数量Combo1.AddItem 供应商Combo1.AddItem 日期Combo1.AddItem 票号End SubPrivate Sub Combo2_LostFocus()Combo2.AddItem Combo2.AddItem =Combo2.AddItem =Combo2.AddItem =End SubPrivate Sub Command1_Click()Text3.Text = str(Data1.Recordset.RecordCount)End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Combo1.Text = Combo2.Text = Combo3.Text = slql = select * from .kcData1.RecordSource = slqlData1.RefreshText3.Text = str(Data1.Recordset.RecordCount)End SubPrivate Sub Command4_Click()i = MsgBox(确实要重新设置吗？, 33, )If i = 1 ThenCombo1.Text = Combo2.Text = Combo3.Text = End IfEnd SubPrivate Sub Command5_Click()i = MsgBox(真的要打印吗？, 33, )If i = 1 ThenDataReport1.ShowElseCommonDialog1.CancelError = TrueOn Error GoTo errhandlerCommonDialog1.ShowPrintererrhandler:Exit SubEnd IfEnd SubPrivate Sub Command9_Click()On Error Resume NextIf Combo3.Text = ThenMsgBox 请输入查询内容！, 49, 提示信息End Iftmpsql1 = Combo1.Text & Combo2.Text & & Trim(Combo3.Text & )lsql = select * from rkd where & tmpsql1Data1.RecordSource = lsqlData1.RefreshMSFlexGrid1.Visible = TrueEnd SubPrivate Sub Form_Load() Data1.DatabaseName = App.Path & 仓库.mdb Me.Left = (Screen.Width - Me.Width) / 2 Me.Top = (Screen.Height - Me.Height) / 2 Me.Width = 8000 Me.Height = 5220 End Sub入库信息管理程序代码：Private Sub Command1_Click()Data1.Recordset.MoveFirstCommand2.Enabled = FalseCommand3.Enabled = TrueEnd SubPrivate Sub Command2_Click()Data1.Recordset.MovePreviousCommand3.Enabled = TrueIf Data1.Recordset.BOF ThenData1.Recordset.MoveFirstCommand2.Enabled = FalseEnd IfEnd SubPrivate Sub Command3_Click()Data1.Recordset.MoveNextCommand2.Enabled = TrueIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastCommand3.Enabled = FalseEnd IfEnd SubPrivate Sub Command4_Click()Data1.Recordset.MoveLastCommand3.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command5_Click()If Command5.Caption = 修改 ThenText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueText8.Enabled = TrueText9.Enabled = TrueText10.Enabled = TrueText11.Enabled = TrueText12.Enabled = TrueText13.Enabled = TrueText14.Enabled = TrueText15.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand6.Enabled = TrueCommand5.Caption = 确认Data1.Recordset.EditText1.SetFocusElseCommand5.Caption = 修改Text1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseText9.Enabled = FalseText10.Enabled = FalseText11.Enabled = FalseText12.Enabled = FalseText13.Enabled = FalseText14.Enabled = FalseText15.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueCommand6.Enabled = FalseData1.Recordset.UpdateEnd IfEnd SubPrivate Sub Command7_Click()r = MsgBox(你是否要真的删除，注意不能恢复！, vbOKCancel, 删除警告)If r = 1 ThenData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command6_Click()Command5.Caption = 修改Text1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseText9.Enabled = FalseText10.Enabled = FalseText11.Enabled = FalseText12.Enabled = FalseText13.Enabled = FalseText14.Enabled = FalseText15.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueCommand6.Enabled = FalseData1.UpdateControlsEnd SubPrivate Sub Command8_Click()Unload Mefrm_main.Enabled = TrueEnd SubPrivate Sub Form_Load()Command6.Enabled = FalseData1.DatabaseName = App.Path & 仓库.mdb 自动识别数据库路径End Sub供应商管理程序代码：Dim X, i 定义变量Public Sub viewdata() 定义显示数据的函数For i = 0 To 16If Data1.Recordset.Fields(i) Then gys(i).Text = Data1.Recordset.Fields(i) Else gys(i).Text = Next iEnd SubPrivate Sub Form_Activate() 向combo1添加查询项目列表X = Array(供应商编号, 供应商全称, 简称, 地址, 所属地区, 邮政编码, 电话, 传真)For i = 0 To 7Combo1.AddItem (X(i)Next iCombo1.Text = 供应商全称初始化给gys(i)赋值If Data1.Recordset.RecordCount 0 ThenCall viewdata 调用函数End IfEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & 仓库.mdb 自动识别数据库路径End SubPrivate Sub Form_Unload(Cancel As Integer)frm_main.Enabled = TrueUnload MeEnd SubPrivate Sub ComFind_Click()查询供应商信息Data1.RecordSource = select * from gys where (gys. & Combo1.Text & & like + Chr(34) + Text1.Text + * + Chr(34) + )Data1.RefreshCall viewdata 调用函数End SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub gys_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) 回车获得焦点If KeyCode = vbKeyReturn And Index 0 ThenIf SSTab1.Tab = 2 And ComAdd.Enabled = False ThenMsgBox (您正在处理数据,请取消数据处理,在执行本操作!)SSTab1.Tab = 0ElseEnd IfEnd IfEnd SubPrivate Sub CmdMD_Click(Index As Integer)Select Case IndexCase Is = 0 移到第一条记录If Not Data1.Recordset.BOF Then Data1.Recordset.MoveFirstCase Is = 1 移到上一条记录If Data1.Recordset.RecordCount 0 ThenIf Data1.Recordset.BOF = False Then Data1.Recordset.MovePreviousIf Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirstEnd IfCase Is = 2 移到下一条记录If Data1.Recordset.RecordCount 0 ThenIf Data1.Recordset.EOF = False Then Data1.Recordset.MoveNextIf Data1.Recordset.EOF = True Then Data1.Recordset.MoveLastEnd IfCase Is = 3 移到最后一条记录If Data1.Recordset.RecordCount 0 ThenIf Data1.Recordset.EOF = False Then Data1.Recordset.MoveNextIf Data1.Recordset.EOF = True Then Data1.Recordset.MoveLastEnd IfEnd SelectCall viewdata 调用函数End SubPrivate Sub ComAdd_Click() 允许用户添加新记录For i = 0 To 16gys(i).Text = gys(i).Enabled = TrueNext iComSaveM.Visible = True: ComSaveA.Visible = False: ComSaveM.Enabled = True: ComEsc.Enabled = TrueFor i = 0 To 3CmdMD(i).Enabled = FalseNext iComAdd.Enabled = False: ComModify.Enabled = False: ComDelete.Enabled = FalseSSTab1.Tab = 0: gys(0).SetFocusEnd SubPrivate Sub ComModify_Click() 允许用户修改记录If Data1.Recordset.RecordCount 0 ThenData1.Recordset.EditFor i = 0 To 16gys(i).Enabled = TrueNext iComSaveA.Visible = True: ComSaveA.Enabled = True: ComSaveM.Visible = False: ComEsc.Enabled = TrueFor i = 0 To 3CmdMD(i).Enabled = FalseNext iComAdd.Enabled = False: ComModify.Enabled = False: ComDelete.Enabled = FalseElseMsgBox (没有要修改的数据!)End IfEnd SubPrivate Sub ComSaveA_Click() 保存修改记录Dim A As StringA = MsgBox(您确实要修改这条数据吗?, vbYesNo)If A = vbYes ThenData1.Recordset.EditFor i = 0 To 16If gys(i).Text Then Data1.Recordset.Fields(i) = gys(i).Textgys(i).Enabled = FalseNext iComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = TrueFor i = 0 To 3CmdMD(i).Enabled = TrueNext iComModify.Enabled = True: ComDelete.Enabled = True: Data1.Recordset.UpdateEnd IfEnd SubPrivate Sub ComSaveM_Click() 保存新增记录Dim mydb As DatabaseDim myrs1 As RecordsetIf gys(0).Text And gys(1).Text ThenSet mydb1 = Workspaces(0).OpenDatabase(App.Path & 仓库.mdb)Set myrs1 = mydb1.OpenRecordset(gys, dbOpenTable)myrs1.AddNewFor i = 0 To 16If gys(i).Text Then myrs1.Fields(i) = gys(i).TextNext imyrs1.Update: myrs1.Close: mydb1.Close: Data1.RefreshFor i = 0 To 3CmdMD(i).Enabled = TrueNext iComModify.Enabled = True: ComDelete.Enabled = TrueComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = TrueElseEnd IfEnd SubPrivate Sub ComDelete_Click() 删除供应商信息If Data1.Recordset.RecordCount 0 ThenA = MsgBox(您确实要删除这条数据吗?, vbYesNo)If A = vbYes ThenData1.Recordset.DeleteData1.RefreshFor i = 0 To 3CmdMD(i).Enabled = TrueNext iComModify.Enabled = True: ComDelete.Enabled = TrueComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = TrueFor i = 0 To 16gys(i).Text = Next iEnd IfElseMsgBox (没有要删除的数据!)End IfEnd SubPrivate Sub ComEsc_Click() 取消操作If Data1.Recordset.RecordCount 0 ThenFor i = 0 To 16gys(i).Enabled = FalseIf Data1.Recordset.Fields(i) Then gys(i).Text = Data1.Recordset.Fields(i)Next iFor i = 0 To 3CmdMD(i).Enabled = TrueNext iComModify.Enabled = True: ComDelete.Enabled = True: ComSaveA.Enabled = FalseComSaveM.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = TrueEnd IfEnd SubPrivate Sub Comend_Click()frm_main.Enabled = TrueUnload MeEnd Sub库存盘点程序代码：Private Sub Form_Load()Data1.DatabaseName = App.Path & 仓库.mdb 自动识别数据库路径End SubPrivate Sub Form_Unload(Cancel As Integer)frm_main.Enabled = TrueEnd SubPrivate Sub Command1_Click()盘点库存大于零的库存信息Data1.RecordSource = select * from kc where kc.库存0 Data1.RefreshMS1.Col = 9: MS1.Sort = flexSortNumericAscending 第9行按升序排序End SubPrivate Sub Command2_Click()frm_main.Enabled = TrueUnload MeEnd Sub价格管理程序代码：Public Sub eval() 定义赋值函数If Data2.Recordset(0) Then pz.Caption = Data2.Recordset(0) Else pz.Caption = 0If Data2.Recordset(1) Then hjsl.Caption = Data2.Recordset(1) Else hjsl.Caption = 0If Data2.Recordset(2) Then hjje.Caption = Data2.Recordset(2) Else hjje.Caption =0End SubPrivate Sub Form_Load() 自动识别数据库路径Data1.DatabaseName = App.Path & 仓库.mdbData2.DatabaseName = App.Path & 仓库.mdbEnd SubPrivate Sub Form_Activate() 向combo1添加查询项目列表Combo1.AddItem (商品名称)Combo1.AddItem (简称)Combo1.AddItem (批号)Combo1.ListIndex = 0初始化查询统计库存商品信息Data2.RecordSource = select count(*)as 品种,sum(库存)as 合计库存,sum(库存金额)as 合计库存金额 from kc Data2.RefreshCall eval 调用函数End SubPrivate Sub Form_Unload(Cancel As Integer)frm_main.Enabled = TrueEnd SubPrivate Sub texgjj_Change()texgje.Text = Val(texgkc.Text) * Val(texgjj.Text) 计算库存金额Data2.RefreshCall eval 调用函数End SubPrivate Sub texgkc_Change()texgje.Text = Val(texgkc.Text) * Val(texgjj.Text) 计算库存金额Data2.RefreshCall eval 调用函数End SubPrivate Sub Command1_Click() 查询统计库存商品信息Data1.RecordSource = select * from kc where (kc. & Combo1.Text & & like + Chr(34) + Text1.Text + * + Chr(34) + )Data1.RefreshData2.RecordSource = select count(*)as 品种,sum(库存)as 合计库存,sum(库存金额)as 合计库存金额 from kc where (kc. & Combo1.Text & & like + Chr(34) + Text1.Text + * + Chr(34) + )Data2.RefreshCall eval 调用函数End SubPrivate Sub Command2_Click()frm_main.Enabled = TrueUnload MeEnd Sub添加与删除用户程序代码：Private Sub Command1_Click()If Command1.Caption = 添加 ThenCommand2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseText1.Enabled = True: Text2.Enabled = TrueCommand1.Caption = 确认Data1.Recordset.AddNewText1.SetFocusText3.Text = 0ElseCommand1.Caption = 添加Command2.Enabled = FalseCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueText1.Enabled = False: Text2.Enabled = FalseData1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command2_Click()Command1.Caption = 添加Command2.Enabled = FalseCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueText1.Enabled = False: Text2.Enabled = FalseData1.UpdateControlsData1.Recordset.Bookmark = mbookmarkEnd SubPrivate Sub Command3_Click()On Error Resume Nextr = MsgBox(你是否要真的删除，注意不能恢复！, vbOKCancel, 删除警告)If r = 1 ThenData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command4_Click()Unload Mefrm_main.Enabled = TrueEnd SubPrivate Sub Command5_Click()Data1.Recordset.MoveFirstEnd SubPrivate Sub Command6_Click()Data1.Recordset.MovePreviousIf Data1.Recordset.BOF Then Data1.Recordset.MoveFirstEnd SubPrivate Sub Command7_Click()Data1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastEnd SubPrivate Sub Command8_Click()Data1.Recordset.MoveLastEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & 仓库.mdbCommand2.Enabled = FalseEnd Sub修改密码程序代码：Private Sub Form_Load()Data1.DatabaseName = App.Path & 仓库.mdb 自动识别数据库路径End SubPrivate Sub Command1_Click() 确认修改操作员信息Data1.RecordSource = select * from ma where 操作员 = & Text1.Text & 查询操作员信息Data1.RefreshIf Text1.Text And Text2.Text And Text2.Text = ma.Text ThenIf Text3.Text = ThenMsgBox (请输入新密码!)Text3.SetFocusElseData1.Recordset.EditData1.Recordset.Fields(密码) = Text3.TextIf Text3.Text Text4.Text ThenMsgBox (两次密码不一样，请重新输入!)Text3.Text = Text4.Text = Text3.SetFocusElseData1.Recordset.UpdateMsgBox (密码修改成功!)Text1.Text = : Text2.Text = : Text3.Text = : Text4.Text = :End IfEnd IfElseIf Text1.Text = ThenMsgBox (请输入用户名!)Text1.SetFocusElseIf Data1.Recordset.EOF ThenMsgBox 无此用户Data1.RecordSource = maData1.RefreshText1.Text = Text1.SetFocusElseIf Text2.Text = ThenMsgBox (请输入旧密码!)Text2.SetFocusElseIf Text2.Text Data1.Recordset.Fields(密码) ThenMsgBox (旧密码错误,请重新输入旧密码!)Text2.SetFocusEnd IfEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()frm_main.Enabled = TrueUnload MeEnd Sub数据备份窗口代码：Private Sub Command1_Click() 确认数据备份YesNo = MsgBox(准备好了吗？, vbNo + vbQuestion)If YesNo = vbNo ThenExit SubEnd IfOn Error GoTo errpromptMe.MousePointer = 11MkDir (Text1.Text & :数据备份)FileCopy App.Path & yyjxc.mdb, Text1.Text & :数据备份yyjxc.mdbMe.MousePointer = 0MsgBox 数据已备份完毕。errprompt:Me.MousePointer = 0Select Case Err.NumberCase 57MsgBox 磁盘已满！, vbCriticalCase 70MsgBox 磁盘写保护！, vbCriticalEnd SelectEnd SubPrivate Sub Command2_Click()Load frm_mainfrm_main.Showfrm_main.Enabled = TrueUnload MeEnd Sub数据恢复窗口代码：Private Sub Form_Activate()赋值给text1Text1.Text = AEnd SubPrivate Sub Command1_Click() 确认数据恢复YesNo = MsgBox(准备好了吗？, vbNo + vbQuestion)If YesNo = vbNo ThenExit SubEnd IfOn Error GoTo errpromptMe.MousePointer = 11FileCopy Text1.Text & :数据备份yyjxc.mdb, App.Path & yyjxc.mdbMe.MousePointer = 0MsgBox 数据已恢复完毕。errprompt:Me.MousePointer = 0Select Case Err.NumberCase 57MsgBox 磁盘已满！, vbCriticalCase 70MsgBox 磁盘写保护！, vbCriticalEnd SelectEnd SubPrivate Sub Command2_Click()Load frm_mainfrm_main.Showfrm_main.Enabled = TrueUnload MeEnd Sub第五章 使用说明1、简介 本软件是一个简单的商品进销存管理系统，前台界面是使用VB开发的，后台是ACCESS数据库。用户可以使用本软件对商品的进、销、存纪录进行管理，及时的掌握商品的进、销、存情况。2、软件开发目的 针对小型的商品零售单位，业务发生频繁，每笔业务涉及金额小、内容重复等特点。3、软件适用范围小型超市、商店、个体工商户4 销售管理系统是专为小企业开发的货物挡案计算机管理系统。它可以将原先货物档案手工管理变为计算机可视化管理，充分发挥了计算机的快捷、准确、方便、高效的特点，使原来几个小时的大工作量变为在短短的几分钟就完成而且准确无误，极大的提高了工作效率和工作质量。该系统具有高度的可靠性和安全保密性，操作简单，易行，用户界面简单，友好，又具有一定的美观性，菜单式的使用方式方便，不繁琐，便于用户查询、统计和打印等。让人操作起来，得心应手，满足了用户的需要。第六章 附 录开发小组人员分工一览表日常业务登记模块：苏兆民 闫新民库存管理模块： 霍宪斌 闫新民查询统计模块： 李业森 霍宪斌业务信息管理模块：苏兆民 李业森打印报表模块： 闫新民 苏兆民系统设置和帮助： 霍宪斌 李业森参 考 文 献书 名作者出版社VB 程序设计简明教程龚沛曾 陆慰民 杨志强高等教育出版社VB 数据库开发入门与范例解析郭 胜 夏邦贵机械工业出版社VB 程序设计教程谭浩强清华大学出版社VB程序设计题典刘圣才 李春葆清华大学出版社VB For Windows语言参考详解周民光 王复康北京航空航天大学出版社结 束 语通过使用VB编程，使人真正体会到了可视化编程的优点，自己动手开发小规模的应用系统，学会一种规范化的编程方法，使我加深了对软件的理解。学以致用，学用结合，这既是学习理论知识目的，也是检验学习的最好方法。毕业设计是整个教学过程的最后环节，是学生综合运用所学知识解决实际问题能力的考查。这次毕业设计不尽使我了解了VB在数据库方面编程的概要，更让我知道了计算机的编程秘诀在于严密的思考与仔细的推敲，只有这样，才会有一个完善的软件生成。在此，我能够依据实际情况以及课堂上所学习的知识，应用到自己的实际工作，帮助解决工作过程中的问题，对实施方法程序有深刻理解，在数据库设计方面，编程技术方面有了一定的进步。通过这一系列工作使我系统地掌握三年来所学的专业知识，并基本掌握了开发一个应用软件的能力。 通过这次毕业设计，我受益匪浅，不仅巩固了三年来所学的知识，还深入学习了Visual Basic 6.程序设计语言，这种面向对象程序设计理念及快捷灵活的编程手法让人耳目一新。 在任老师的细心指导下，我解决了许多设计中遇到的问题，在此深表感谢，同时希望各位老师和同学对本系统提出宝贵意见，谢谢大家。数据库系统用于描述文件和数据库的概念相同结构中有各种各样的实质区别。一个数据库可以被定义成一个互相联系数据的集合，这个集合有很小的复杂，尽可能的为一个或多个应用程序在最理想的方式下服务，存贮数据的目的是使他们与用数据的程序独立，一种相同的控制方法用在数据库内啬新数据和修改，恢复已存在的数据，如果一个系统在结构上完全分离，则他们被称为一个数据库集合。一个数据库呵以设计为批处理，实施处理或连机数据处理，一个数据库系统包括应用程序，数据库管理系统和数据库。大多数数据库的最主要特点之一是他们需要不断的更新和增加。当数据类型和应用被增加时，的简单重构必须是可能的，重组织应当不用重新写应用程序，总体上应当尽可能是小的变化，这种不费力的改变数据库将在数据处理的速度上产生很大的影响。数据独立这个术语经常提出作为一个数据主要属性之一，它是指数据和使用数据的应用程序相互独立，目的改变一项时不用改变另一项，当一个单一的数据相集合服务于不同的应用时，不同的应用程序感知数据项与记录之间的管理说明有联系，也和数据是怎样存贮的和存在那里有关，衩用于许多应用中的在数据之间有很多种内在的联系。关于我们所存信息的项是一个实体，一个实体可以是一个实在的物体或抽象的事物，它有我们希望记录的各种性质，它能描述一个真实的世界，数据项代表一个属性，该属性与有关的实体联合。我们将属性设计成值，一个属性有一个特殊意义。据此而定义一个实体。计算机所用的识别一个记录或一个元组的一个属性或一组属性，叫做关键字。主关键字衩定义为能唯一的确定一个记录或一个元组的关键字。一个实体识别符包括一个或多个属性。主关键字是很重要的。因为它被用在计算机中，通过一个索引和地址算法来找出一个记录或一个元组。如果数据库的作用仅仅是存贮数据，那它的结构将是简单的，大多数复杂性起因于数据必须所表现所存贮各种各样的数据项之间的关系。在逻辑上和篁上描述数据是不同的。逻辑数据库的描述叫做一个模式。一个模式是一个所用数据类型的图表，它给出实体。属性和他们之间的特殊的关系，他是一个合适的保存数据项的框架。我们必须区别一个记录和一个记录的事例，当谈论到全体人员的记录时它是一个真正的记录类型，而不是与它相结合的数据值。一个模型用于描述数据库中的所用存贮在数据库中的数据项类型和记录类型的总体图表，子模式项指的是一个应用程序员观点下的数据，许多不同的模式可以从一个模式中得到。模式和子模式是由数据库管理系统使用的，数据库管理系统的主要作用是执行数据操作时服务于应用程序。一个数据库管理系统通常是用语同时处理多个数据调用，它必须组织系统缓冲使不同的数据操作能够一起处理，它提供种数据定义语言经指定概念模式很可能还包括用物理模式实现概念模式的一些细节，定义语言是一种高级语言，能够让你描述概念模型，术语为数据模型。数据模型选择是很困难的，图标库它必须有丰富的足够结构以描述真实世界的有意义的各个方面，并且必须通过物理模式有能力，自动决定概念模式的实现，必须强调，当一个数据库处理系统用于建立一个小数据库中时，许多数据库包括了上万字节，所以无效的执行可能是灾难性的。逻辑模式被定义为数据模式，带有附加在其上的特别折数据库管理系统的基本结构，目前，数据库管理系统有，三种主要的基本结构，他们是：关系结构，层次结构，网络结构。层次型和网络型从20世纪60年代已应用于DBMS中，关系模型在20世纪70年代早期开始有所介绍。在关系模型中，实体和他们的关系用二维表格表示，每一个表格代表一个实体，其值是有一定范围，最终用户被提供一个简单数据模型，他或她需求由信息内容的描述而明确的表达，不用表示面向系统的各方面复杂的情况，关系数据模型似乎用户所看到的，但不必知道物理的实现。数据模型在用户截面上排出了存贮结构和存取策略的细节，模型提供了一种高层次的数据关系，然而为了正确的使用关系数据模型，关系的设计必须是完备的和正确的。尽管一些基于关系数据模型的数据库管理系统今天以商业化的应用，但它是很难在大规模范围内 按需求的目标提供一套完整的操作能力，今天在提供快速且稳定的硬件方面的技术改进已有可能真正回答这个问题。层次型数据模型是基于数型结构的，由结点和数值组成，一个结点是描述此点上实体属性的数据集合。层次树结构的最顶层结点叫做跟结点。下层的各个结点叫子结点。层次型数据结构模型总是从根结点开始的，第每个结包括描述此结点的一个或多个属性，相关结点可以在下一层上，上层的结点变成新的相关结点或父结点，一个父结点可有一个相关子结点或多个子结点，层次数结点才能存取，许多的关系只能用笨拙的方法实现，这常常引起存贮数据的复杂。网状数据模型将企业的实体连接到网络中，在网状数据模型中，一个数据库包括大量区域，一个区域包括一些记录，而一个记录可以包含字段，一个集合是记录群，可以在一个区域中，或跨越一些区域，一个集合类型基于所有者的记录类型和成员记录类型，许多在真实生活中发生得很频繁的关系，可以很容易的实现，网状数据模型是和有复杂的，应用程序员必须很熟悉数据库的逻辑结构。为满足某一部门中多个用户多种应用的需要，按照一定的数据模型在计算机系统中组织、存储和使用的互相联系的数据集合。带有数据库的计算机系统，除具备一般的硬件、软件外，必须有用以存储大量数据的直接存取存储设备、管理并控制数据库的软件数据库管理系统(DBMS)、管理数据库的人员数据库管理员 (DBA)。这样的数据、硬件、软件和管理人员的总体构成数据库系统。数据库仅是数据库系统的一个组成部分。数据库系统的功能和特征 数据库系统由文卷系统发展而来。与文卷系统相比，这种系统具有数据、体系和控制三个方面的主要特征。数据特征 在文卷系统中虽然程序与数据之间可用存取方法进行转换,但文卷还是与应用程序对应的,即数据仍面向应用。每一应用各自建立自己的一组文卷。不同的应用若涉及相同的数据，则这些数据分别纳入各自的文卷之中。文卷的各种记录之间没有建立联系，因而数据冗余度大。增加新的应用，必须同时增加新的文卷。因此，文卷系统中的文卷是无结构的、不易扩充的信息集合。数据库则不仅描述数据本身，而且描述数据之间的联系。它的数据结构反映了某一部门的整体信息结构，数据冗余度小、易于扩充新的应用，因而是面向数据总体结构的信息集合，可为多个用户共享。体系特征 一切数据都有逻辑和物理两个侧面。在数据库系统中，数据逻辑结构的描述称为逻辑模式。逻辑模式又分为描述全局逻辑结构的全局模式(简称模式)和描述某些应用所涉及的局部逻辑结构的子模式。数据物理结构的描述称为存储模式。这两种模式总称为数据库模式。数据库系统中，用户根据子模式编制程序。子模式与模式模式与存储模式之间有软件进行映射。因此,程序与数据之间具有两级独立性：物理独立性和逻辑独立性。数据的存储模式改变，而模式可以不改变，因而不必改写应用程序,这称为物理独立性。模式改变时,子模式可能不改变，也就不必改写应用程序，这称为逻辑独立性。由于数据库系统具备比较高的程序与数据的独立性，可以使程序员在编制应用程序时集中精力考虑算法逻辑，不必过问物理细节，而且可以大大减少应用程序维护的工作量。控制特征 数据库数据数量庞大，结构复杂，又为多个用户所共享。因此，必须由数据库管理系统在定义、建立、运行以及维护时进行统一管理和控制，以保证数据库数据的安全性、完整性和并发操作的一致性。此外，还必须有数据库管理员专门负责对数据库的管理、控制监督和改进。由于数据库系统具有上述特征，它的出现使信息系统的研制从围绕加工数据的程序为中心，转变到围绕共享的数据库来进行。这便于数据的集中管理，有利于应用程序的研制和维护。数据减少了冗余度和提高了相容性，从而提高了作出决策的相容性。因此，大型复杂的信息系统大多以数据库为核心，数据库系统在计算机应用中起着越来越重要的作用。研究课题 数据库研究的课题，主要涉及三个领域。数据库管理系统软件的研制 DBMS是数据库系统的基础。研制DBMS的基本目标，是扩大功能，提高性能和可用性，从而提高用户的生产率。70年代以来，研制的重点是探索关系数据库管理系统的设计，内容包括关系数据语言、查询优化、并发控制和系统性能等。另一类课题是对DBMS标准化的研究，即研究一个统一的DBMS体系结构的规范。数据库设计 这是在计算机系统具有的数据库管理系统的基础上，按照应用要求以及计算机系统所提供的数据模型和功能，设计一个结构良好、使用方便、效率较高的，以数据库为核心的应用信息系统。这一领域主要的研究课题，是数据库设计方法学和设计工具的探索。例如，运用软件工程的方法和工具指导数据库设计；研究数据库设计各个阶段中完备的方法和工具；以关系数据库的规范化理论为指南进行数据库逻辑设计等。数据库理论 主要研究关系数据库理论。关系数据库理论研究的意义，一方面在于它为数据库学科奠定了理论基础;另一方面它为数据库设计提供了判别标准,从而成为数据库设计的有力指南。研究的主要内容是关系的规范化理论。关系规范化理论已应用于数据库设计的各个阶段。发展 数据库技术是计算机科学中发展最快的领域之一，新的领域越来越多。分布式数据库系统 随着70年代后期分布计算机系统的发展，相应地研究成功分布式数据库系统。分布式数据库系统是一个在逻辑上完整，而在物理上分散在若干台互相连接的结点机上的数据库系统。它既具有分布性又具有数据库的综合性。这是数据库系统发展的一个重要方向。分布式数据库系统结构复杂，其中最复杂的是分布式数据库管理系统。数据库机器 新的计算机系统的体系结构。它把由中央处理器包办的数据库操作分散给一些局部的部件来执行，或转移到一个与主计算机相连的专用计算机去执行，以提高并行性。数据库机器的发展，包括智能控制器和存储器，专用处理机和数据库计算机。数据库语义模型 数据库的数据模型基本上属于语法模型，语义体现很不完备，不能明显地含有现实世界的意义。因此，用户只能按照DBMS所提供的数据操纵语言访问数据库。语义模型能准确地描述现实世界中某个部门的信息集合及其意义，使用户能基于对现实世界的认识或用类似于自然语言的形式来访问数据库。这方面的研究已发展为数据语义学。数据库智能检索 数据库技术和人工智能相结合，根据数据库中的事实和知识进行推理，演绎出正确答案，这就是数据库的智能检索。这涉及到自然语言用户接口、逻辑演绎功能和数据库语义模型等问题，如70年代末所开始的知识库管理系统和演绎数据库的研究。办公室自动化系统中的数据库 研究在办公室自动化系统中数据库技术的应用，其中主要研究对各种非格式化数据如图像、声音、正文的处理，以及面向端点用户的高级语言接口。为满足某一部门中多个用户多种应用的需要，按照一定的数据模型在计算机系统中组织、存储和使用的互相联系的数据集合。带有数据库的计算机系统，除具备一般的硬件、软件外，必须有用以存储大量数据的直接存取存储设备、管理并控制数据库的软件数据库管理系统(DBMS)、管理数据库的人员数据库管理员 (DBA)。这样的数据、硬件、软件和管理人员的总体构成数据库系统。数据库仅是数据库系统的一个组成部分。数据库系统的功能和特征 数据库系统由文卷系统发展而来。与文卷系统相比，这种系统具有数据、体系和控制三个方面的主要特征。数据特征 在文卷系统中虽然程序与数据之间可用存取方法进行转换,但文卷还是与应用程序对应的,即数据仍面向应用。每一应用各自建立自己的一组文卷。不同的应用若涉及相同的数据，则这些数据分别纳入各自的文卷之中。文卷的各种记录之间没有建立联系，因而数据冗余度大。增加新的应用，必须同时增加新的文卷。因此，文卷系统中的文卷是无结构的、不易扩充的信息集合。数据库则不仅描述数据本身，而且描述数据之间的联系。它的数据结构反映了某一部门的整体信息结构，数据冗余度小、易于扩充新的应用，因而是面向数据总体结构的信息集合，可为多个用户共享。体系特征 一切数据都有逻辑和物理两个侧面。在数据库系统中，数据逻辑结构的描述称为逻辑模式。逻辑模式又分为描述全局逻辑结构的全局模式(简称模式)和描述某些应用所涉及的局部逻辑结构的子模式。数据物理结构的描述称为存储模式。这两种模式总称为数据库模式。数据库系统中，用户根据子模式编制程序。子模式与模式模式与存储模式之间有软件进行映射。因此,程序与数据之间具有两级独立性：物理独立性和逻辑独立性。数据的存储模式改变，而模式可以不改变，因而不必改写应用程序,这称为物理独立性。模式改变时,子模式可能不改变，也就不必改写应用程序，这称为逻辑独立性。由于数据库系统具备比较高的程序与数据的独立性，可以使程序员在编制应用程序时集中精力考虑算法逻辑，不必过问物理细节，而且可以大大减少应用程序维护的工作量。控制特征 数据库数据数量庞大，结构复杂，又为多个用户所共享。因此，必须由数据库管理系统在定义、建立、运行以及维护时进行统一管理和控制，以保证数据库数据的安全性、完整性和并发操作的一致性。此外，还必须有数据库管理员专门负责对数据库的管理、控制监督和改进。由于数据库系统具有上述特征，它的出现使信息系统的研制从围绕加工数据的程序为中心，转变到围绕共享的数据库来进行。这便于数据的集中管理，有利于应用程序的研制和维护。数据减少了冗余度和提高了相容性，从而提高了作出决策的相容性。因此，大型复杂的信息系统大多以数据库为核心，数据库系统在计算机应用中起着越来越重要的作用。研究课题 数据库研究的课题，主要涉及三个领域。数据库管理系统软件的研制 DBMS是数据库系统的基础。研制DBMS的基本目标，是扩大功能，提高性能和可用性，从而提高用户的生产率。70年代以来，研制的重点是探索关系数据库管理系统的设计，内容包括关系数据语言、查询优化、并发控制和系统性能等。另一类课题是对DBMS标准化的研究，即研究一个统一的DBMS体系结构的规范。数据库设计 这是在计算机系统具有的数据库管理系统的基础上，按照应用要求以及计算机系统所提供的数据模型和功能，设计一个结构良好、使用方便、效率较高的，以数据库为核心的应用信息系统。这一领域主要的研究课题，是数据库设计方法学和设计工具的探索。例如，运用软件工程的方法和工具指导数据库设计；研究数据库设计各个阶段中完备的方法和工具；以关系数据库的规范化理论为指南进行数据库逻辑设计等。数据库理论 主要研究关系数据库理论。关系数据库理论研究的意义，一方面在于它为数据库学科奠定了理论基础;另一方面它为数据库设计提供了判别标准,从而成为数据库设计的有力指南。研究的主要内容是关系的规范化理论。关系规范化理论已应用于数据库设计的各个阶段。发展数据库技术是计算机科学中发展最快的领域之一，新的领域越来越多。分布式数据库系统 随着70年代后期分布计算机系统的发展，相应地研究成功分布式数据库系统。分布式数据库系统是一个在逻辑上完整，而在物理上分散在若干台互相连接的结点机上的数据库系统。它既具有分布性又具有数据库的综合性。这是数据库系统发展的一个重要方向。分布式数据库系统结构复杂，其中最复杂的是分布式数据库管理系统。数据库机器 新的计算机系统的体系结构。它把由中央处理器包办的数据库操作分散给一些局部的部件来执行，或转移到一个与主计算机相连的专用计算机去执行，以提高并行性。数据库机器的发展，包括智能控制器和存储器，专用处理机和数据库计算机。数据库语义模型 数据库的数据模型基本上属于语法模型，语义体现很不完备，不能明显地含有现实世界的意义。因此，用户只能按照DBMS所提供的数据操纵语言访问数据库。语义模型能准确地描述现实世界中某个部门的信息集合及其意义，使用户能基于对现实世界的认识或用类似于自然语言的形式来访问数据库。这方面的研究已发展为数据语义学。数据库智能检索 数据库技术和人工智能相结合，根据数据库中的事实和知识进行推理，演绎出正确答案，这就是数据库的智能检索。这涉及到自然语言用户接口、逻辑演绎功能和数据库语义模型等问题，如70年代末所开始的知识库管理系统和演绎数据库的研究。办公室自动化系统中的数据库 研究在办公室自动化系统中数据库技术的应用，其中主要研究对各种非格式化数据如图像、声音、正文的处理，以及面向端点用户的高级语言接口。Database systemThe conception sued for describing files and databases has varied substantially in the same organization. A database may be defined as a collection of interrelated data stored together with as little redundancy as possible to serve one or more applications in an optimal fashion; the data are stored so that they are independents of programs which use the data; a common and controlled approach is used in adding new data and in modifying and retrieving existing data within the data base one system is said to contain a collection of databases if they are entirely separate in structure. At abase may be designed for batch processing, real-times processing, or in-line processing. a data base system involves application program, DBMS and database.One o he most important characteristic of most databases is that they will constantly need to change and grow easy restructuring of the database must be possible as new data types and new applications are added. The restructuring should be possible without having to rewrite the application program and in general should cause as little upheaval as possible the ease with which a database can be changed will have a major effect on the rate at which data-processing application can be developed in a corporation. The term data independence is often quoted as being one of the main attributes of a database int implies that the data and the may be changed without changing the other, when a single setoff data items serves a variety of applications, different application programs perceive different relationships between the data items, to a large extent database organization is concerned with the as how and where the data are stored a database used for many applications can have multiple interconnection referred to as entities an entity may be a tangible object or no tangible if it has various properties which we may wish to record it can describe the real world the data item represents an attribute and the attribute must be associated which the relevant entity we relevant entity we design values to the attributes one attribute has a special significance in that it identifies the entity. The logical database description id referred to as a schema. The names of the entities and attributes and specifics the relations between them .It is a framework into which the values of the data-items can be fitted. We must distinguish between a record type and a instance of the data-item types and record types stored in a database the term subschema refers to an collocation programmers vies of the data he uses. Many different sub subschema can be derived from one schema. The schema and the subschema are both used by the database management system the primary function of which is to serve the application programs by execution their data operations. A dams will usually be handling multiple data calls concurrently, it must organize its system buffers so that different data operations can be in process together, it provides a data definition language to specify the conceptual schema and most likely some of the details regarding the implementation of the conceptual schema by the physical schema the describe the conceptual schema in terms for a “data model”. The choice of a data model is a difficult one, since it must be such enough in structure to describe significant aspects of the real world, yet it must be possible to determine fairly automatically an efficient implementation of the conceptual conceptual schema by a physical schema it should be emphasized that while a dims might be used to build small databases many databases involve millions of bytes and an inefficient implementation can be disastrous. Logical schemas are defined as data, pedals with the underlying structure of particular database management systems superimposed on them at the present time there are three main underlying structures for database management systems these are:.relational .hierarchical .networkThe hierarchical and network structures have been used for dams since the 1960s . the relational structure was introduced in the early 1970s. In the relational model two-dimensional tables represent the entities and their relationships every table represents an entities are represented by common columns containing values from a domain or range of possible values . The end user is presented with a simple data model his and her request and don not reflect any complexities due to system-oriented aspects a relational data model is what the user sees , but it is mot necessarily what will be implemented physically. The relational data model removes the details of storage structure and access strategy from the user inter-face the model providers a relatively higher degree of data to make use of this property of the relational data model however, the design of the relations must be complete and accurate. Although some dams based on the relational data model are commercially available today it is difficult to provide a complete set of operational capabilities with required efficiency on a large scale it appears today that technological improvements in providing faster and more reliable hardware may answer the question positively. The hierarchical data model is based no a tree-like structure made up of nodes and branches a node is a collection of data attributes describing the entity at that opine the highest node of the hierarchical tree structure is called a root the nodes at succeeding lower levels are called children. A hierarchical data model always starts with a root node every node consists of one or more attributes describing the entity at that node dependent nodes can follow the succeeding levels the mode in the receding level becomes the parent node of the new dependent nodes a parent node can have one child node as a dependent or many children nodes the major advantage of the hierarchical data model is the existence of proven database management systems that use the hierarchical data model as the basic structure there is a reduction of data dependency but any child mode is accessible only in a clumsy way this often results in a redundancy in stored data. The network data model interconnects the entities of an enterprise into a network in the network data model a database. Consists of a number of areas an area contains records in turn a recode may consist of fields a set which is a grouping of records may reside in an area or span a number of areas a set type is based on the owner record type and the member record type the many-to-many relation-ship which occurs quite frequently in rap fife can be implemented easily the network data model is very compel the application programmer must be familiar with the logical structure of the database.To meet the multiple users in a particular sector of the need for a variety of applications, according to some data model in the computer system in the organization, storage and use of data collection linked to each other. With a database of computer systems, in addition to a general hardware, software, to be useful to store large amounts of data direct access storage devices, database management and control software - database management system (DBMS), database management personnel - Database administrator (DBA). Such data, hardware, software and the overall management of a database system. Database System database is only an integral part. Database system functions and features of the database system by system, developed from Vol. Volume system compared with the text, this system has the data, systems and control the three main features. Characteristics of the data in the system, although the volumes of data between the procedures and methods available to access conversion, but the volume or the text of the corresponding applications, that is still data-oriented applications. Each application to establish their own group, vol. Different applications involving the same data, these data were included in the respective volumes of text. Volume of the text there is no record of the establishment of links, and hence the degree of data redundancy. Add a new application, must also add new text vol. Therefore, the text of volumes in the system, is the structure of the volume and difficult to expand the collection of information. Database is not only describes the data itself, but also describe the links between data. It reflects the structure of the data in a given sector of the overall structure of information, data redundancy small, easy expansion of new applications, so it is the overall structure of data for information collection, for multiple users to share. System features all the data are two sides of logic and physics. In the database system, the logical structure of the data described as logical pattern. Logic model is divided into logical description of the overall structure of the whole model (model) and described by some of the logical structure of the sub-regional model. The physical structure of data storage mode as described. The two models of the database known as the model. atabase systems, users of patterns in accordance with procedures. Sub-model and model patterns and storage mode between the mapping software. Therefore, procedures and data between the two independence: the independence of physical and logical independence. Data storage patterns change, and can not change the model, which do not have to rewrite applications, this is known as physical independence. Model changes, sub-mode may not be changed, it do not have to rewrite applications, this is known as the logic of independence. As database system with relatively high procedures and the independence of data, allows programmers in the preparation of applications to focus on when considering algorithm logic, do not have to say the physical details, but can also significantly reduce application maintenance workload. Control features of the large number of databases of data, complex structures, as shared by multiple users. Therefore, we must by definition in the database management system, establishment, operation and maintenance when the unified management and control of the database to ensure data security, integrity and the consistency of concurrent operation. In addition, there must also be a database administrator responsible for the database management, control and improvement of supervision. As the database system has the characteristics of its emergence from the system of information on the procedures for data processing center, to focus on changes to a shared database. This facilitates the centralized management of data and is conducive to the development and application maintenance. Reduce redundant data and improve the compatibility of the decision-making to improve the compatibility. Therefore, the large and complex information systems to most of the database as the core database system in the computer applications play an increasingly important role. Research database on the subject, mainly involve three areas. Database Management System Software Development of DBMS database system is the foundation. DBMS Development of the basic objective is to expand the functionality, performance and availability, thereby enhancing user productivity. Since the 1970s, the focus is the development of relational database management system to explore the design, content, including relations between the data language, query optimization, with control and system performance. Another issue is the standardization of DBMS research, research that is a unified DBMS architecture specifications. This is the database design in the computer system has a database management system based on the application in accordance with the requirements of computer systems and the data provided by the model and functionality, design a well structured and easy to use, more efficient, as the core database to the application of information System. The main areas of research topics, is the database design methodology and design tool for exploration. For example, the use of software engineering methods and tools for guiding the database design, database design studies in all phases of comprehensive methods and tools; relational database for the standardization of guidelines for database logic design. Database of major research database theory. Relational database theory on the significance of the one hand, the database is that it laid a theoretical foundation subjects; On the other hand it provides a database design for the Criterion, thus becoming a powerful database design guidelines. The main content of the standardized theory. Relations standardized database design theory has been applied at all stages. Database development and technology is the computer science in one of the fastest-growing areas, more and more new areas. Distributed database system as the late 1970s the development of computer systems, corresponding to successfully distributed database system. Distributed database system is a logical integrity, and in the physical dispersion in a number of Taiwan interconnected nodes of the database system. It also has a distribution of a comprehensive database. This database system is an important direction of development. Distributed database system complex structure, which is the most complex distributed database management system. Database machines a new computer system architecture. It has a database arranged by the central processing unit to operate some scattered local components to implement, or transferred to a computer connected to the main computer dedicated to the implementation, to enhance the parallelism. The development of the database machines, including intelligent controller and memory, dedicated processor and the computer database. Database semantic model database data model is basically the model of grammar, semantics reflects very well, obviously can not contain real-world significance. Therefore, in accordance with the DBMS users only the information provided by the manipulation of language access the database. Semantic model can accurately describe the real world in a certain department of information collection and its significance, so that users can based on real-world understanding of natural language or similar to those used in the form of access to the database. This kind of research has been developed as data semantics. Intelligent database searchable database of combining technology and artificial intelligence, according to the database of facts and knowledge reasoning, interpretation of the correct answer, and this is a smart search database. This involves natural language user interface, logic and database semantic interpretation of functional model and other issues, such as the late 1970s by the beginning of the knowledge base database management systems and interpretation of the study. Office automation systems in the research database in the office automation system database technology applications, including research on a variety of non-formatted data such as images, sounds, text processing, and end-users of high-level language interface. To meet the multiple users in a particular sector of the need for a variety of applications, according to some data model in the computer system in the organization, storage and use of data collection linked to each other. With a database of computer systems, in addition to a general hardware, software, to be useful to store large amounts of data direct access storage devices, database management and control software - database management system (DBMS), database management personnel - Database administrator (DBA). Such data, hardware, software and the overall management of a database system. Database System database is only an integral part. Database system functions and features of the database system by system, developed from Vol. Volume system compared with the text, this system has the data, systems and control the three main features. Characteristics of the data in the system, although the volumes of data between the procedures and methods available to access conversion, but the volume or the text of the corresponding applications, that is still data-oriented applications. Each application to establish their own group, vol. Different applications involving the same data, these data were included in the respective volumes of text. Volume of the text there is no record of the establishment of links, and hence the degree of data redundancy. Add a new application, must also add new text vol. Therefore, the text of volumes in the system, is the structure of the volume and difficult to expand the collection of information. Database is not only describes the data itself, but also describe the links between data. It reflects the structure of the data in a given sector of the overall structure of information, data redundancy small, easy expansion of new applications, so it is the overall structure of data for information collection, for multiple users to share. System features all the data are two sides of logic and physics. In the database system, the logical structure of the data described as logical pattern. Logic model is divided into logical description of the overall structure of the whole model (model) and described by some of the logical structure of the sub-regional model. The physical structure of data storage mode as described. The two models of the database known as the model. Database systems, users of patterns in accordance
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号