|
第六章 程序设计 paper51.com
6.1软件开发工具Visual Basic 6.0的特点。 内容来自www.paper51.com
Microsoft Visual Basic 提供了开发Microsoft Windows应用程序的最迅速、最简捷的方法。不论是MicrosoftWindows应用程序的资深专业开发人员还是初学者，Visual Basic都为他们提供了整套工具，以方便开发应用程序。 内容来自论文无忧网 www.paper51.com 何谓Visual Basic？“Visual”指的是开发图形用户界面（GUI）的方法。不需编写大量代码去描述界面的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 paper51.com “Basic”指的是BASIC（Beginners All-Purpose Symbolit Instruction Code）语言， 一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic在原有BASIC语言的基础上进一点发展，至今包含了数据条语名、函数及关键词，其中很多和Windows GUI有直接关系。专业人员可以用Visual Basic实现其它任何Windows编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。 paper51.com Visual Basic不仅是Visual Basic编程系统和VBA都使用这一语言。Visual Basic Scripting Edition(VBScript)是广泛使用的脚本语言，它是Visual Basic 语言的子集。这样，在学习Visual Basic中得到的经验可应用到所有这些领域中。 paper51.com 数据访问特性允许对包括Microsoft Access和其它企业数据库在内的大部分数据格式建立数据库和前端应用程序，以及可调整的服务器端部件。 内容来自论文无忧网 www.paper51.com
已完成的应用程序是使用Visual Basic虚拟机.exe文件，可以自由发布。 内容来自www.paper51.com VisualBasic由于功能强大、简单易用而有着广泛的用户，尤其是在数据库、多媒体、商用系统的用户界面以及一般应用程序的设计等方面，Visual Basic更是有其他开发环境所不能取代的优越之处。升级到6.0之后，其功能和性能都得到了增强，汉化后的VisualBasic6.0中文版，由于有全新的中文界面，更是方便了用户的使用。 paper51.com Visual Basic是在原有Basic语言基础上的进一步发展，它包含了数百条语句、函数及关键词，其中很多与Windows GUI有直接的关系。VISUAL BASIC语言简单易学，只要稍有语言基础就可以很快掌握并进而精通。可视化编程环境的“所见即所得（WYSIWYG）”功能，使界面设计如积木游戏一般，编程变成了一种享受；强大的多媒体功能可轻而易举地开发出集声音、动画、影像和图片于一体的多媒体应用程序；新增的网络功能提供了编写INTERNET程序的能力。Visual Basic 6.0中文版还支持用户自己开发Active控件和制作Active文档。 paper51.com Visual Basic学习版本使编程人员轻松开发Windows和Windows NT(R)应用程序。该版本包括所有的内部控件以及网格、选项卡和数据绑定控件。学习版提供的文档有Learn VB Now CD和包含全部联机文档的Microsoft DeveloperNetwork CD。 内容来自论文无忧网 www.paper51.com
专业版为专业编程人员提供了一整套功能完备的开发工具。该版本包括学习版的全部功能以及ActiveX控件、Internet Information Sever Application Designer、集成的Visual Database Tools 和 Data EnvironmentActive Date Objects和Dynamic HTML Page Designer.专业版提供的文档有Visual Studio Professional Features 手册和包含全部联机文档的Microsoft Developer Network CD. copyright paper51.com 企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能以及Back Office工具，SQL Sever 、Microsoft Transaction Sever、 InternetInformation Sever 、Visual SourceSafe 、SNA Sever ，以及其他。企业版包括的印刷文档包括Visual StudioEnterprise Features 手册以及包含全部联机文档的Microsoft DeveloperNetwork CD. http://www.paper51.com
面向对象的程序设计 Visual Basic 6.0它提供了开发 Microsoft Windows 应用程序的最迅速、最简捷的方法。不论是Microsoft Windows 应用程序的资深专业开发人员还是初学者，Visual Basic 6.0都为他们提供了整套工具，以方便开发应用程序。 paper51.com Visual Basic 不仅是Visual Basic编程语言。Visual Basic编程系统和VBA都使用这一语言。Visual Basic Scripting Edition(VBScript) 是广泛使用的脚本语言，它是Visual Basic语言的子集。这样，在学习Visual Basic中得到的经验可应用到所有这些领域中。 内容来自www.paper51.com 数据访问特性允许对包括 Microsoft Access 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。 copyright paper51.com 有了 ActiveX 技术就可使用其它应用程序提供的功能，例如 Microsoft Word 字处理器，Microsoft Excel 电子数据表及其它 Windows 应用程序。甚至可直接使用 VBP 或 VBE 创建的应用程序和对象。 内容来自论文无忧网 www.paper51.com
Visual Basic 6.0企业版功能更加强大使得专业编程人员能够开发功能强大的组内分布式应用程序等。 paper51.com 尽管Visual Basic以非常快的速度成熟起来，但它也只在这些年间才作为实用的软件开发工具得到应用。这主要是因为在很长一段时间内忽略了数据访问这方面的功能，如果没有外部的数据库支持，不可能简单的拥有一个严格的开发工具。这个情况甚至在Visual Basic3.0中增加了对Microsoft JET数据库引擎的支持之后也没有得到改善，因为这些功能还不足以使Visual Basic像C＋＋一样有完全的数据库访问能力。随后在发布支持ODBC和RDO数据库访问方法的产品后，Visual Basic才真正加入了严格的开发工具领域。 内容来自论文无忧网 www.paper51.com 最新发布的Visual Basic在数据库访问方面带来了一些变化，它增加了 Active数据对像（ADO）访问方法。ADO是DAO和RDO的继承者，它的目标是成为Windows开发上的唯一通用（ONE－SIZE－FITS－ALL）的数据访问方法。Visual Basic6.0在很大方面对尚未成熟的ADO提供支持，大约提供了六个使用ADO数据库的专门优化过的控件。在Visual Basic6.0中增加了数据环境，这是一种对利用ADO的层次数据库进行组织的方法。增加数据报表实用程序，这是使用数据环境的结构生成报表的内部工具。 http://www.paper51.com
综上所诉Visual Basic 6.0与Access配合开发有许多优点，Access强大的数据库管理功能与Visual Basic 6.0方便灵活的开发非常协调，并且Visual Basic6.0与office 系列软件可以很好地结合在一起，可方便地调用office的强大功能，并与windows系统保持一致风格便于开发人员开发和用户使用。所以本系统采用Visual Basic 6.0企业版与Access在Windows平台上进行开发。 内容来自www.paper51.com 6.2系统主要功能的具体设计 copyright paper51.com 库存信息管理系统共有1个界面，8个窗体，包括5个主菜单。现具体介绍如下； 内容来自论文无忧网 www.paper51.com ①系统主界面如下图所示： 内容来自论文无忧网 www.paper51.com
： 内容来自论文无忧网 www.paper51.com
copyright paper51.com 图6-1系统主界面 paper51.com 系统主界面菜单设计： 内容来自www.paper51.com
菜单标题 内容来自www.paper51.com 菜单名称 内容来自论文无忧网 www.paper51.com
菜单级别 内容来自www.paper51.com 系统(&F) http://www.paper51.com TCST 内容来自论文无忧网 www.paper51.com 主菜单项 内容来自论文无忧网 www.paper51.com 登录 内容来自论文无忧网 www.paper51.com xtdl paper51.com
子菜单项 内容来自论文无忧网 www.paper51.com 初始化 内容来自论文无忧网 www.paper51.com
sjgl paper51.com 子菜单项 内容来自论文无忧网 www.paper51.com 退出系统 http://www.paper51.com tcgl paper51.com 子擦单项 http://www.paper51.com
设置（&E） copyright paper51.com CSSZ 内容来自论文无忧网 www.paper51.com 主菜单项 http://www.paper51.com 部门 内容来自www.paper51.com bmsz 内容来自www.paper51.com 子菜单项 paper51.com 商品 copyright paper51.com spsz paper51.com
子菜单项 内容来自论文无忧网 www.paper51.com 商品入库(&V) 内容来自www.paper51.com RKGL 内容来自www.paper51.com 主菜单项 内容来自www.paper51.com
入库 内容来自www.paper51.com
rkdj 内容来自www.paper51.com 子菜单项 http://www.paper51.com 商品出库(&P) 内容来自www.paper51.com CKGL paper51.com 主菜单项 内容来自www.paper51.com 出库 内容来自论文无忧网 www.paper51.com ckdj 内容来自www.paper51.com 子菜单项 内容来自论文无忧网 www.paper51.com 查询（&O） copyright paper51.com CXDY copyright paper51.com 主菜单项 http://www.paper51.com 查询打印 copyright paper51.com cxdys paper51.com 子菜单项 paper51.com ②部门设置窗体如下： copyright paper51.com copyright paper51.com 图6-2部门设置窗体 copyright paper51.com 部门设置代码设计： 内容来自论文无忧网 www.paper51.com
Private Sub Command1_Click() 内容来自论文无忧网 www.paper51.com
If Command1.Caption = "增加" Then paper51.com
Command1.Caption = "保存" paper51.com Text1.Text = "" copyright paper51.com Text2.Text = "" paper51.com
Else 内容来自论文无忧网 www.paper51.com If Len(Text1.Text) <> 0 Then 内容来自www.paper51.com
Command1.Caption ="增加" paper51.com Adodc1.Recordset.AddNew paper51.com Adodc1.Recordset("部门编号") =Text1.Text paper51.com Adodc1.Recordset("部门名称") =Text2.Text paper51.com Adodc1.Recordset.Update 内容来自论文无忧网 www.paper51.com Else 内容来自论文无忧网 www.paper51.com
MsgBox "数据不能为空，请输入数据！" 内容来自论文无忧网 www.paper51.com
End If 内容来自论文无忧网 www.paper51.com End If 内容来自www.paper51.com End Sub 内容来自www.paper51.com Private Sub Command2_Click() paper51.com Unload Form4 内容来自论文无忧网 www.paper51.com
End Sub 内容来自论文无忧网 www.paper51.com Private Sub Command3_Click() copyright paper51.com If Len(Text1.Text) <> 0 AndLen(Text2.Text) <> 0 Then http://www.paper51.com Adodc1.Recordset("部门编号") =Text1.Text http://www.paper51.com Adodc1.Recordset("部门名称") =Text2.Text 内容来自论文无忧网 www.paper51.com
Adodc1.Recordset.Update 内容来自www.paper51.com Text1.Text = "" copyright paper51.com Text2.Text = "" copyright paper51.com Else http://www.paper51.com MsgBox "数据不能为空，请输入数据！" 内容来自www.paper51.com
End If paper51.com End Sub 内容来自论文无忧网 www.paper51.com |