执行或取消。
6)OLEDragDrag事件:当源部件决定放操作能发生,却源部件被放到目标部件时,此事件发生。
*框架类的控件:
1)List属性:列表框控件的表项是使用数组的方式保存,数组的每一个元素存储列表控件的一个表项
1)Listcount属性:控件列表部分项目的个数。
2)Mutselect属性:可以设置列表框为单选或允许多选属性.
3)Selectd属性:标示一个数组,数组各元素为:
4)Selected(0),selected(1)...
*滚动条类的控件:
1)Value属性:滚动条上滑块所在位置由value值所决定。
2)Max和min属性:对value值的最大,最小进行限制。
3)Largechange属性:用户点击滚动条与键头之间的区域时,value的改变量。
4)事件:用来添加按钮的单击事件所执行的程序代码。
*定时器类类的控件:
1)Interval属性:表示定时的时间间隔,以毫秒为单位。
2)Enable属性:为true时(缺省值),激活定时器开始计时;为false时处于休眠状态.
Visualbasic6.0连接数据库的主要方式以下几种方式:一是:用data控件进行数据库链接,二是利用adodc(ADODataControl)进行数据库链接。三是:利用DataEnvironment进行数据库链接.四是利用ADO(ActiveXDataObjects)进行编程
:现在我们来大致对这几种技术应用介绍:
一、用data控件进行数据库链接.
第一步:给窗体添加一个Data控件。
第二步:用Access建立一个名为Pad的数据库,在库中建立一个表Myset,给表添加四个字段:backcolor(数据),forecolor(文本),fontname(文本),fontsize(文本)。注意:请将库文件存入程序所在目录。
如果你的机器没安装有Access,可通过VB建库。
二、利用adodc(ADODataControl)进行数据库链接:
使用adodata控件访问数据库可以完全不用编写代码,只需要通过简单的设置和操作其属性就可以实现与数据库的连接,通过绑定数据感知控件,就能提供一个访问数据库的界面,用来实现对数据库的浏览,贴加,删除,修改等操作.
三、利用DAO对数据库进行操纵:
在visualbasic中提供了两种与jet数据引擎接口的方法:data控件与数据访问对象(DAO)DAO是databaseobject的英文缩写,要访问数据库一方面数据库要提供访问接口,另一方面要在编程环境中有对数据库的支持.
DAO模型是设计关系数据库系统结构的对象类的集合.他们提供了管理关系型数据库系统所需要的全部操作属性和方法,这其中包括建立数据库,定义表,字段和建立表间关系,定位和查询数据库等.
关系数据库介绍:
关系数据库是目前各类数据库中最重要、最流行的数据库,他应用数学方法来处理数据库数据,是目前使用最广泛的数据库系统。20世纪70年代以后开发的数据库管理系统产品几乎都是基于关系的。在数据库发展的历史上,最重要的成就就是关系模型。
关系数据库系统与非关系数据库系统的区别是:关系系统只有"表"这一种数据结构;而非关系数据库系统还有其他数据结构,对这些数据结构有其他的操作。
结构化查询语言SQL(StructuredQueryLanguage)是一种介于关系代数与关系演算之间的语言,其功能包括查询、操纵、定义和控制四个方面,是一个通用的、功能极强的关系数据库语言。目前已成为关系数据库的标准语言
MicrosoftAccess介绍:
使用MicrosoftAccess,可以在单一的数据库文件中管理所有的信息。在这个文件中,用户可以将自己的数据分别保存在各自独立的存储空间中,这些空间称作表;可以使用联机窗体来查看、添加及更新表中的数据;使用查询来查找并检索所要的数据;也可以使用报表以特定的版面布置来分析及打印数据。
如果要保存数据,请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起,就要定义各个表之间的关系。
如果要搜索并检索符合指定条件的数据,包括来自多个表中的数据,就要创建查询。查询的同时也可以更新或删除多条记录,并对数据执行内嵌或自定义的计算。
如果要简单地直接在某个表中查看、输入及更改数据,请创建一个窗体。在打开一个窗体时,MicrosoftAccess将从一个或多个表中检索数据,并使用用户在"窗体向导"选择的版面布局或所创建的版面布局,将窗体显示在屏幕上。
如果要分析数据或将数据以特定的方式打印出来,请创建一个报表。例如,可以打印一份将数据分组并计算数据总和的报表,也可以打印另一份带有各种数据格式的打印邮件标签的报表。
第二章系统的分析
2.1系统开发的目标和思想
本系统开发目标是服务于高速公路收费管理人员,方便工作人员,对过往车辆收费,发放收费票据记录,对信息的分类管理等.
同时力求做到界面人性化,功能齐全,数据存储安全.
2.2系统的可行性分析
技术上:本系统采用visualbasic6.0与微软的access作为数据库,技术上开发难度一般.
经济上:本系统服务于超市管理人员,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性.
社会上:本系统同时也方便了广大顾客,.所以具有社会可行性.
第三章系统的设计
3.1系统的功能结构设计
3.2系统的数据库设计
1:用户登陆表:
2:购入商品表:
3:商品保损表:
4:商品信息表:
5:供应商表:
6:销售表:
3.3界面设计与代码设计
1.登陆界面设计:
代码分析:
OptionExplicit
PrivateDeclareFunctionGetUserNameLib"advapi32.dll"Alias"GetUserNameA"(ByVallpbufferAsString,nSizeAsLong)AsLong
PublicOKAsBoolean
Dimm_AdminAsNewclsAdmin
Dimm_nErrCountAsInteger
PrivateSubForm_Load()
m_nErrCount=0
EndSub
PrivateSubcmdCancel_Click()
OK=False
Me.Hide
EndSub
PrivateSubcmdOK_Click()
'ToDo:创建测试密码是否正确
'检查正确密码
DimAccountAsString
DimPwdAsString
Account=RealString(txtUserName.Text)
Pwd=RealString(txtPassword.Text)
'判断密码是否正确
IfNotm_Admin.CheckPwd(Account,Pwd)Then
m_nErrCount=m_nErrCount+1
Ifm_nErrCount>=3Then
MsgBox"输入密码错误次数太多,请稍后重试",vbExclamation
End
EndIf
MsgBox"密码错误,再试一次!还有"&3-m_nErrCount&"次机会,注意密码区分大小写",vbCritical,"登录"
txtPassword.SetFocus
txtPassword.SelStart=0
txtPassword.SelLength=Len(txtPassword.Text)
Else
OK=True
g_Account=Account
Me.Hide
EndIf
EndSub
2:报损信息表:
代码分析:
OptionExplicit
PrivateOKAsBoolean'确定用户按了OK还是CANCEL按钮
Privatem_objAsclsDispose'数据对象,用来存储用户输入数据
Publicm_ViewTypeAsgxcViewType'显示状态,指添加还是修改
Privatem_TypeIdAsLong
Privatem_AccountAsString'调用此对话框的操作员
'根据是"新增"还是修改,确定显示内容
PrivateSubSetStatus()
'设置控件默认值
CallSetDefaultValue
'设置状态
SelectCasem_ViewType
Casevtadd'添加
CancelButton.Visible=True
OKButton.Caption="确定"
CasevtModify'修改
CancelButton.Visible=True
OKButton.Caption="保存"
CasevtInfo'查看
CancelButton.Visible=False
OKButton.Caption="关闭"
EndSelect
EndSub
'打开对话框,并传出用户输入数据
PublicFunctionShowDlg(ByRefobjAsObject,_
ByValeViewTypeAsgxcViewType,_
OptionalnTypeIdAs
上一篇:
vb超市管理系统无论文(论文和程序)
下一篇:
通达信股票软件数据接收程序 能够将连接服务器,接收数据,解码, 所有股票实时数据 需要 loki,boost 库编译