网络功能提供了编写INTERNET程序的能力。VisualBasic6.0中文版还支持用户自己开发Active控件和制作Active文档。
VisualBasic学习版本使编程人员轻松开发Windows和WindowsNT(R)应用程序。该版本包括所有的内部控件以及网格、选项卡和数据绑定控件。学习版提供的文档有LearnVBNowCD和包含全部联机文档的MicrosoftDeveloperNetworkCD。
专业版为专业编程人员提供了一整套功能完备的开发工具。该版本包括学习版的全部功能以及ActiveX控件、InternetInformationSeverApplicationDesigner、集成的VisualDatabaseTools和DataEnvironmentActiveDateObjects和DynamicHTMLPageDesigner.专业版提供的文档有VisualStudioProfessionalFeatures手册和包含全部联机文档的MicrosoftDeveloperNetworkCD.
企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能以及BackOffice工具,SQLSever、MicrosoftTransactionSever、InternetInformationSever、VisualSourceSafe、SNASever,以及其他。企业版包括的印刷文档包括VisualStudioEnterpriseFeatures手册以及包含全部联机文档的MicrosoftDeveloperNetworkCD.
面向对象的程序设计VisualBasic6.0它提供了开发MicrosoftWindows应用程序的最迅速、最简捷的方法。不论是MicrosoftWindows应用程序的资深专业开发人员还是初学者,VisualBasic6.0都为他们提供了整套工具,以方便开发应用程序。
VisualBasic不仅是VisualBasic编程语言。VisualBasic编程系统和VBA都使用这一语言。VisualBasicScriptingEdition(VBScript)是广泛使用的脚本语言,它是VisualBasic语言的子集。这样,在学习VisualBasic中得到的经验可应用到所有这些领域中。
数据访问特性允许对包括MicrosoftAccess和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序,以及可调整的服务器端部件。
有了ActiveX技术就可使用其它应用程序提供的功能,例如MicrosoftWord字处理器,MicrosoftExcel电子数据表及其它Windows应用程序。甚至可直接使用VBP或VBE创建的应用程序和对象。
VisualBasic6.0企业版功能更加强大使得专业编程人员能够开发功能强大的组内分布式应用程序等。
尽管VisualBasic以非常快的速度成熟起来,但它也只在这些年间才作为实用的软件开发工具得到应用。这主要是因为在很长一段时间内忽略了数据访问这方面的功能,如果没有外部的数据库支持,不可能简单的拥有一个严格的开发工具。这个情况甚至在VisualBasic3.0中增加了对Microsoft JET数据库引擎的支持之后也没有得到改善,因为这些功能还不足以使VisualBasic像C++一样有完全的数据库访问能力。随后在发布支持ODBC和RDO数据库访问方法的产品后,VisualBasic才真正加入了严格的开发工具领域。
最新发布的VisualBasic在数据库访问方面带来了一些变化,它增加了 Active数据对像(ADO)访问方法。ADO是DAO和RDO的继承者,它的目标是成为Windows开发上的唯一通用(ONE-SIZE-FITS-ALL)的数据访问方法。VisualBasic6.0在很大方面对尚未成熟的ADO提供支持,大约提供了六个使用ADO数据库的专门优化过的控件。在VisualBasic6.0中增加了数据环境,这是一种对利用ADO的层次数据库进行组织的方法。增加数据报表实用程序,这是使用数据环境的结构生成报表的内部工具。
综上所诉VisualBasic6.0与Access配合开发有许多优点,Access强大的数据库管理功能与VisualBasic6.0方便灵活的开发非常协调,并且VisualBasic6.0与office系列软件可以很好地结合在一起,可方便地调用office的强大功能,并与windows系统保持一致风格便于开发人员开发和用户使用。所以本系统采用VisualBasic6.0企业版与Access在Windows平台上进行开发。
6.2系统主要功能的具体设计
库存信息管理系统共有1个界面,8个窗体,包括5个主菜单。现具体介绍如下;
①系统主界面如下图所示:
:
图6-1系统主界面
系统主界面菜单设计:
菜单标题
菜单名称
菜单级别
系统(&F)
TCST
主菜单项
登录
xtdl
子菜单项
初始化
sjgl
子菜单项
退出系统
tcgl
子擦单项
设置(&E)
CSSZ
主菜单项
部门
bmsz
子菜单项
商品
spsz
子菜单项
商品入库(&V)
RKGL
主菜单项
入库
rkdj
子菜单项
商品出库(&P)
CKGL
主菜单项
出库
ckdj
子菜单项
查询(&O)
CXDY
主菜单项
查询打印
cxdys
子菜单项
②部门设置窗体如下:
图6-2部门设置窗体
部门设置代码设计:
PrivateSubCommand1_Click()
IfCommand1.Caption="增加"Then
Command1.Caption="保存"
Text1.Text=""
Text2.Text=""
Else
IfLen(Text1.Text)<>0Then
Command1.Caption="增加"
Adodc1.Recordset.AddNew
Adodc1.Recordset("部门编号")=Text1.Text
Adodc1.Recordset("部门名称")=Text2.Text
Adodc1.Recordset.Update
Else
MsgBox"数据不能为空,请输入数据!"
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadForm4
EndSub
PrivateSubCommand3_Click()
IfLen(Text1.Text)<>0AndLen(Text2.Text)<>0Then
Adodc1.Recordset("部门编号")=Text1.Text
Adodc1.Recordset("部门名称")=Text2.Text
Adodc1.Recordset.Update
Text1.Text=""
Text2.Text=""
Else
MsgBox"数据不能为空,请输入数据!"
EndIf
EndSub
PrivateSubCommand4_Click()
IfLen(Text1.Text)<>0AndLen(Text2.Text)<>0Then
aa=MsgBox("真的要删除该部门吗?",1,"消息")
Ifaa=1Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Text1.Text=""
Text2.Text=""
EndIf
Else
MsgBox"数据不能为空,请选择部门!"
EndIf
EndSub
PrivateSubCommand5_Click()
Text1.Text=""
Text2.Text=""
IfCommand1.Caption="保存"Then
Command1.Caption="增加"
EndIf
EndSub
PrivateSubDataGrid1_Click()
IfAdodc1.Recordset.EOF=FalseAndAdodc1.Recordset.BOF=FalseThen
Text1.Text=Adodc1.Recordset.Fields(0).Value
Text2.Text=Adodc1.Recordset.Fields(1).Value
EndIf
EndSub
③产品入库窗体如下:
图6-3产品入库窗体
产品入库代码设计:
PrivateSubCommand1_Click()
IfCommand1.Caption="增加"Then
Command1.Caption="保存"
Command3.Enabled=False
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Combo1.Text=""
Else
IfLen(Text1.Text)<>0Then
Command1.Caption="增加"
Command3.Enabled=True
Adodc1.Recordset.AddNew
Adodc1.Recordset("商品名称")=Combo1.Text
Adodc1.Recordset("型号")=Text1.Text
Adodc1.Recordset("单价")=Text2.Text
Adodc1.Recordset("数量")=Text3.Text
Adodc1.Recordset("单位")=Text4.Text
Adodc1.Recordset("总金额")=Text5.Text
Adodc1.Recordset("入库日期")=DTPicker1.Value
Adodc1.Recordset("经办人")=Text6.Text
Adodc1.Recordset.Update
Else
MsgBox"数据不能为空,请输入数据!"
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadForm3
EndSub
PrivateSubCommand3_Click()
IfLen(Text6.Text)<>0AndLen(Combo1.Text)<>0AndLen(Text4.Text)<>0Then
aa=MsgBox("真的要修改该商品吗?",1,"消息")
Ifaa=1Then
Adodc1.Recordset("商品
上一篇:
VB干部档案管理系统AC(论文和程序)
下一篇:
还记得,那年的风车吗?