用StatusBar控件通知用户数据库的各种属性

  次阅读 作者:智能小宝 来源:互联网 2016-01-26 10:35 我要评论(0)

在编辑数据库的记录时,可以用StatusBar控件通知用户数据库的各种属性,例如正在编辑的表的名称、其创建日期、以及最后一次更新的日期。

下面的代码用到了如下对象:

名为 frmDataviewer 的Form

名为 sbrData 的StatusBar控件

名为 datData 的Data控件

添加显示数据库属性的StatusBar

用Add方法创建Panel对象的集合。

为每个Panel对象配置AutoSize属性。

用Panel对象的Text属性显示数据库的属性。

在PanelClick事件中用SelectCase语句重新设置属性。

用Add方法创建Panel对象的集合

要在运行时创建Panel对象的集合,需要使用Add方法。首先需要声明一个Panel类型的变量。在添加每个Panel对象时,可以用该变量包含对新创建的对象的引用。下面的代码在Form对象的Load事件中创建了三个Panel对象。

PrivateSubForm_Load()

DimpnlXAsPanel

DimiAsInteger

Fori=1to3'第一个面板已存在。

SetpnlX=sbrData.Panels.Add()

Nexti

EndSub

注意:在向集合中添加了三个Panel对象之后,控件中实际上有四个面板,原因是该控件中已缺省地创建了一个面板。

为每个Panel对象配置AutoSize属性

StatusBar控件的一个特性就是面板能够根据自身的内容自动改变大校下例循环遍历了所有Panel对象,并将每个的AutoSize属性设置为sbrSpring(1)。这样每个面板通过 伸缩 分享该控件的总宽度。

PrivateSubForm_Load()

DimpnlXAsPanel

DimiAsInteger

Fori=1to3'第一个面板已存在。

SetpnlX=sbrData.Panels.Add()

Nexti

'改变所有面板的AutoSize。

Fori=1to4'<--新代码

sbrData.Panels(i).AutoSize=sbrSpring'新

Nexti'新

EndSub

用Panel对象的Text属性显示数据库的属性

要改变所有面板中显示的信息,只需设置该Panel对象的Text属性即可。下面的代码显示了由数据访问对象打开的数据库的有关信息。

在Form对象的Load事件中,首先创建两个数据库变量,并分别赋值为打开的数据库(Biblio.mdb)和记录集(Authors)。然后代码将Name、DateCreated、LastUpdated和LockEdit属性的值赋予每个Panel对象的Text属性。

'声明数据库变量。

DimmyDBAsDatabase,myRsAsRecordset

'将Database设置为BIBLIO.MDB数据库

SetmyDB=DBEngine.Workspaces(0)._

OpenDatabase("BIBLIO.MDB")

'将记录集变量设置为Authors表。

SetmyRs=_

myDB.OpenRecordset("Publishers",dbOpenTable)

'将Text属性设置为记录集属性。

sbrData.Panels(1).Text="名称:"&myRs.Name

sbrData.Panels(2).Text="创建日期:"&_

myRs.DateCreated

sbrData.Panels(3).Text="上一次修改的日期:"&_

myRs.LastUpdated

sbrData.Panels(4).Text="编辑上锁:"&myRs.LockEdits

本站文章信息来源于网络以及网友投稿,本站只负责对文章进行整理、排版、编辑,是出于传递更多信息之目的,并不意味着赞同其观点或证实其内容的真实性。如果您有什么意见或建议,请联系QQ28-1688-302!

人工智能实验室
相关文章相关文章
  • 英国研发“杀生”机器人 通过生命体获取能量

    英国研发“杀生”机器人 通过生命体获取能量

  • 未来两年人工智能要怎么走?看这篇就够了

    未来两年人工智能要怎么走?看这篇就够了

  • 无人驾驶汽车如何改变城市生活?听听他们怎么说

    无人驾驶汽车如何改变城市生活?听听他们怎么说

  • 韩春雨称已能重复实验结果 近期将有消息公布

    韩春雨称已能重复实验结果 近期将有消息公布

网友点评网友点评
阅读推荐阅读推荐

据国外媒体报道,在过去两年内,聊天机器人(chatbot)、人工智能以及机器学习的研发和采用取得了巨大进展。许多初创公司正利用人工智能和...

霍金 视觉中国 图 英国著名物理学家霍金(Stephen Hawking)再次就人工智能(AI)发声,他认为:对于人类来说,强大AI的出现可能是最美妙的...

文|郑娟娟 今年,人工智能(AI) 60岁了。在AI60岁的时候,笔者想要介绍一下AI100,一个刚刚2岁的研究项目,但它的预设寿命是100年,甚至更长...

AlphaGo与李世石的人机大战,为大众迅速普及了人工智能的概念。 但对谷歌而言,除了下围棋,现在的人工智能进展到哪一步了?未来,人工智能...