您当前位置:网站首页 >> 编程开发 >> Visual Basic >> StatusBar显示数据库的属性

StatusBar显示数据库的属性

2013-12-04 10:37:13 来源:奇库斯(QCOOLS) 浏览:2597
关键字:属性,数据库,显示

内容提要:

  在编辑数据库的记录时,可以用StatusBar控件通知用户数据库的各种属性,例如正在编辑的表的名称、其创建日期、以及最后一次更新的日期。 
  下面的代码用到了如下对象:
  名为“frmDataviewer”的Form
  名为“sbrData”的StatusBar控件
  名为“da

  在编辑数据库的记录时,可以用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  

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

  StatusBar控件还可以用来重新设置正在显示的属性。在上面的应用实例中,DataGrid控件被绑定到Data控件。(关于如何实现控件的数据绑定的详细信息,请参阅《程序员指南》中的“使用VisualBasic标准控件”中的“使用ADO数据控件”)。在该StatusBar显示的属性中,只有LockEdits属性可以被重新设置。要做到这一点,可以在PanelClick事件中使用SelectCase语句,确定单击了哪个Panel对象。PanelClick事件包含有有对被单击的Panel的引用。使用该引用即可重新设置被单击的Panel对象的Text属性。  

  下面的代码首先创建Recordset类型的变量,并将其设置为由Data控件打开的记录集。SelectCase语句被用来检测Panel对象的Index属性。如果Index为4,则LockEdits属性在-1(True)和0(False)之间切换。最后,使用新的信息更新Panel对象的Text属性。  

  PrivateSubsbrData_PanelClick(ByValPanelAsPanel)

  DimmyRsAsRecordset'声明Recordset变量。

  'Data控件的名称为"datData"

  SetmyRs=datData.Recordset'设置变量。  

  SelectCasePanel.Index

  Case1to3

  '不能设置这些面板。

  Case4'UpdateablePropertyissettable.

  '切换该属性。

  myRs.LockEdits=Abs(myRs.LockEdits)-1

  '更新Panel对象的Text属性。

  sbrData.Panels(4).Text="LockEdits:"_

  &myRs.LockEdits

  EndSelect

  EndSub



发表评论
网名:
评论:
验证:
共有0人对本文发表评论查看所有评论(仅供表达个人看法,并不表明本站同意其观点或证实其描述)
赞助商链接