替换 Access 2010 应用程序中的日历控件.docx

《替换 Access 2010 应用程序中的日历控件.docx》由会员分享，可在线阅读，更多相关《替换 Access 2010 应用程序中的日历控件.docx（23页珍藏版）》请在三一办公上搜索。

1、替换Access2010应用程序中的日历控件Office 20101 （共1 ）对本文的评价是有帮助-评价此主题Office可视操作方法摘要：了解如何替换MicrosoftAccess2010应用程序中已弃用的Calendar控件。适用范围：MicrosoftOffice2010|MicrosoftAccess2010发布时间：2010年10月供稿人：KenGetz，MCWTechnologies,LLC （该链接可能指向英文页面）概述Microsoft Access自首次在Access 2.0中添加对ActiveX控件的支持后，就包含了一个Calendar控件。Access 2010中未包含

2、日历控 件MSCAL.OCX。此外，如果您尝试打开包含该控件的窗体，则会收到以下错误：“Microsoft Office Access数据库或项目包含一个对文件 MSCAL.OCX的丢失的或损坏的引用。”编码对于替换Access 2010应用程序中的日历控件，您有多个选择。您可以：对绑定到日期字段的任何TextBox控件使用内置DatePicker功能。使用Windows DatePicker控件（它是Windows公共控件的一部分）。使用外观和功能与日历类似的子窗体。使用第三方日期/日历控件。此直观操作方法演示除最终选项之外的所有选项。若要开始操作，请下载示例数据库CalendarDemo.

3、accdb （一个Access 2010数据库）。 请注意，该数据库包含一个名为Birthdates的带三个字段（ID、CustomerName和Birthdate）的表和两个窗体： Birthdates，已绑定到名为Birthdates的示例表。 frmCalendar，Calendar 控件的示例替换。如果您当前的应用程序使用MSCAL.OCX Calendar控件，则您必须先移除该控件的每个实例，然后才能使用当前包含该控件的窗体。此示例 演示下一个步骤，即使用Access Calendar控件的替代项。使用内置DatePicker利用Access 2007和Access 2010，您可以

4、将日期选取器附加到任何绑定到日期字段的文本框控件。若要查看使用中的窗体，请打开 Birthdates窗体（见图1）。将“Birthdate”文本框绑定到Birthdates表中的Birthdate字段，当该文本框获得焦点时，您可以单击该 字段旁边的小日历图标以显示日历并选择日期。日历图标仅在文本框获得焦点时显示。出生日图1.内置日期选取器1部W仍19如年4月日四五六278咎303112345678910111213141516171S192021史23242526272B29301Z34567今日（!）若要使用内置日期选取器，您必须确认ShowDatePicker属性已设置为For Dates

5、,如图2所示。TextBox控件必须已绑定到日期字段，如 果您之前已创建输入掩码，则还必须删除该控件的InputMask属性。图 2. ShowDatePicker 属性显示日期选取器从不高度为日期k 1n * 1 匚*使用DatePicker控件Windows公共控件提供了一个在所有应用程序中使用的DatePicker ActiveX控件，并且Access应用程序也可使用此控件。虽然使用此控件所需的工作量大于使用内置日期选取器所需的工作量，但可以实现更大的灵活性。示例应用程序包含Windows DatePicker控件的多个实例。不过，您应尝试自行添加实例。若要使用WindowsDatePi

6、cker控件，请在设计视 图中打开Birthdates窗体。在功能区中，单击控件组右下角的下拉按钮以展示所有控件，然后从选项列表中选择“ActiveX控件”（见图3）。图3.ActiveX控件选项 ffl H ra 囱套fl IE93屈殆欢为控傀林值曲魅控作向导也争 ActiveXK在“插入活动控件”对话框中，向下滚动以查找Microsoft Date and Time Picker Control 6.0 （SP4）（您计算机上的该控件可能具有更新 的SP，如SP6），然后单击“确定”以插入该控件（见图4）。请注意，您的可用控件列表可能与此图不符。图 4. Microsoft Date an

7、d Time Picker 控件macranneaia nasn racrory udjsceMaxViewer ClassMierosaft Animation Conti ol 6.D (5P4)Microsoft Chart Contd 6.0 (SP4) (OLEDB)MicrosaftCarrirrian Dialog ContoL version 6.0湖匠诡6氏日盲食况T1节已.国溟E亡前丘61瓦瓦倚住旬I二二二二二二二二二：二：二二MicroBQftDDlaMicrosoft External Item PickerMicrosoft Fist Scrollbar Contro

8、J 6.0 旧F1 的结果将新的 Microsoft Date snd Time Pidijer Control 6.0 (SP4)插入到文档中选择该控件会在当前窗体中插入实例。可以像对Access中的任何其他控件一样，调整该控件的大小、移动和修改该控件(正如对原始Calendar控件执行的操作一样)。删除之前添加的控件-窗体中已有DatePicker控件的一个示例(见图5)。请注意与该控件有关的以下内容：由于DatePicker控件的ControlSource属性已设置为Birthdate，因此该控件的外观和功能与任何其他Access控件类似-当您更 改DatePicker中的日期时，Acc

9、ess会自动将该值存储到窗体的当前行的Birthdate字段中。该控件的CheckBox属性已设置为Yes。此属性确定该控件是否应显示一个指示其包含非Null值的复选框。若要使用户能够将新行添 加到窗体的基础表中，请将此属性设置为Yes，否则该控件将无法指示Birthdate字段的新行的Null值。您能够很好地控制该控件的用户界面。可以显示或隐藏向上键和向下键；可以更改字体(在此示例中设置为Calibri以匹配其他控件) 和其他可视特性。图5.包含DatePicker控件的示例窗体:EirthdarteI Illi I II II II II IH D iiii i iiii I iiii i

10、iii i iiii CustomerNanne三充充归二注Birthdate： = ： = ： = ：S /17/2010 2d :- - - - TysT- i i i i i i i i 11 11尝试使用该控件：打开Birthdates窗体，然后单击该控件中的下拉箭头（见图6）。选择一个日期，移至下一行并返回，您会发现，您已 成功更改当前人员的出生日期。移至新的一行，您会发现该控件中的复选框并未选中（表明该值为Null）。完成操作后，关闭该窗体。图 6. DatePicker 控件41明。年4月2728电30311234567S910111Z13141516171乎2021222324

11、252&2723301234567今日:2010/S/17使用自定义日历窗体除了前面的技术之外，您可能还需要一个始终显示的日历，正如旧的Calendar控件一样。实现此目的的一种方法是使用一个包含日历的所 有行为的子窗体。以前已为您创建了至少一个这样的窗体，并且示例应用程序包含一个名为frmCalendar的窗体。该窗体是一个自包含窗体， 您只需将该窗体导入您自己的应用程序，即可将其作为子窗体嵌入任何其他窗体。在设计视图中打开frmCalendar （见图7），您将看到， 它是一个具有按钮和其他控件的小型窗体-该窗体中的代码会执行更新和管理窗体的所有工作。在功能区的“工具”组中，选择“查看代

12、码”。查看代码，但不要更改代码。完成此操作后，请依次关闭Visual Basic编辑器和frmCalendar。图7.设计视图中的示例frmCalendar同|未绑定ib ii未绑定|冲tz日四五1六125456769101112131516171S192021 _222324252jG272S293031303-1272S2930339-W4142若要尝试在功能区中使用日历窗体，请选择“创建”，再选择“窗体设计”。从导航窗格中，将frmCalendar的副本拖动到新窗体上。此操 作将创建一个新的子窗体，如图8所示。默认情况下，该子窗体的名称为Calendar。您可以更改该名称，但现在请将其保

13、持不变。图8.新窗体上的frmCalendar实例如果您只能选择日期，则此日历窗体不起作用-此外，您必须能够确定更改选定日期的时间。示例窗体将引发DateChanged事件，这将为 其事件处理程序传递一个包含新的选定日期的参数。由于子窗体不是控件，因此响应此事件需要其他操作。实际上，这仅需要另外两行代码: 下列步骤演示如何挂接事件处理程序。在“设计”视图中打开之前创建的新窗体后，将一个TextBox控件添加到该窗体中的日历的旁边。将新的TextBox控件命名为 selectedDate。在功能区上，选择“查看代码”。在窗体模块中，添加以下声明。VBPrivateWithEvents calen

14、darForm as Form_frmCalendar此声明定义可引用日历窗体类(默认情况下名为Form_frmCalendar -每个窗体提供一个名为Form_窗体名称的类)的变量。通过使用 WithEvents关键字，您可以响应变量引用的对象所引发的事件。在此示例中，该对象仅引发DateChanged事件，并且您将为该事件添加一 个事件处理程序。从Visual Basic编辑器窗口左上角的“对象”下拉列表中，选择“窗体”。此操作将创建Form_Load事件处理程序。修改该事件处理程序， 使其与下面的代码示例类似。VBPrivateSub Form_Load()Set calendarFor

15、m = Calendar.FormEndSub此代码可设置您之前创建的变量，使其引用在该窗体上创建的子窗体的Form属性。也就是说，它使您能够以编程方式与日历窗体进行交互。 最后，在“对象”下拉列表中，选择“calendarForm”(之前使用WithEvents关键字声明的变量)。此操作将创建calendarForm_DateChanged事件处理程序。修改该事件处理程序，使其与下面的代码示例类似。VBPrivateSub calendarForm_DateChanged(newDate AsDate)selectedDate = newDateEndSub此代码采用由日历窗体传递给事件处理

16、程序的参数，并将此值复制到该窗体上的“selectedDate”文本框中。保存您的更改，并将该窗体命名为Form1，然后切换回Access 2010。打开该窗体，然后选择日历中的日期。您应在TextBox控件中看到选定日期（见图9）。完成此操作后，请关闭该窗体。图9.日历日期日历图 &月2010 |叫1甲即23日五六12 34567B910111213141515 171S19202122|23 24252627282930 31虽然您无法将日历窗体绑定到表字段（使用Calendar控件可做到这一点），但可编写代码来模拟该行为。示例窗体Birthdates包含要挂 接绑定的一些简单代码。在“设

17、计”视图中打开该窗体，然后选择“查看代码”。请注意，窗体模块中的代码与您所看到的代码类似，但有 一点除外：如下面的代码示例所示的窗体的Current事件处理程序。VBPrivateSub Form_Current（）OnErrorResumeNextcalendarForm.Value = Me.BirthdateEndSub此代码验证，当您在窗体上的行之间移动时，日历窗体是否会在当前行中显示Birthdate字段。通过添加On Error Resume Next语句，代 码可以避免新行（其中Birthdate字段为Null）所需的特殊错误处理。此外，DateChanged事件处理程序会设置窗

18、体的Birthdate字段值，而不是设置窗体上的TextBox控件的值。VBPrivateSub calendarForm_DateChanged(newDate AsDate)Me.Birthdate = newDateEndSub此源于之前的代码的更改会使得日历窗体中的更改立即传播回基础Birthdate字段，因此只要您进行更改，绑定到该字段的任何其他控件就 会更新。关闭Visual Basic编辑器窗口，并打开Birthdates窗体。在行之间移动并验证日历窗体是否已更新以匹配当前Birthdate字段。更改日 历窗体中的出生日期，并验证绑定到Birthdate字段的其他控件是否也将更新

19、。完成此操作后，请关闭该窗体。读取根据此处显示的选项，您应能够将Calendar控件替换为内置日期选取器、DatePicker控件或日历子窗体。这些替换项的工作方式不会与原 始Calendar控件完全相同。不过，应能够将该控件替换为这些选项之一。考虑每个选项的以下优点和缺点：内置日期选取器O易于使用(只需设置ShowDatePicker属性)。o无可用的自定义设置。O仅能与绑定到表中的Date字段的TextBox控件一起使用。 DatePicker 控件o易于使用。o允许的自定义设置多于内置日期选取器允许的自定义设置。o还可用于选择时间。o可绑定到数据源。o根据Microsoft自定义控件DL

20、L的不同，这将引发严重的版本控制问题。您的最终用户可能没有安装与您的DLL版本相同的 DLL，这就需要将其DLL更新到最新版本。o仅以下拉形式显示，且无法显示为打开的日历。日历窗体o仅显示为打开的日历（优点和缺点）。o可完全进行自定义，但需要在设计器和代码中执行一些操作。o易于使用-只需拖动到窗体上并编写代码。o挂接事件需要额外的代码。o在未编写代码的情况下，绑定将不可用。概述在Web应用程序中,通常会看到横跨在页面顶部的主菜单项，以及位于主菜单下方或者页面左侧或右侧的子项。Access2010旨在使您能够轻松创建面向Web的数据库应用程序，而新的导航窗体功能可让您轻松地为Web创建标准用户界

21、面。此外，这些界面在客户端应用程序中也很有用。此直观操作方法演示如何使 用新的导航窗体功能创建Access2010窗体，并讨论图1中所示的示例窗体。图1.示例窗体苹果汁职TB1饮料为全lOffi x 20包按月产品分类销售按类别产品销售按总收入产品销售按员工产品销售最编码在Access2010中，打开Northwind示例数据库。（若要检索Northwind示例数据库，请依次选择文件”、新建”和示例”。从O示例 列表中，选择Northwind2007 ”。）打开新的示例数据库，绕过登录窗体，然后在导航窗格中按类型对对象进行分组。在创建”选项卡中，选择导航” 选项，这将显示六种不同的布局，您在创

22、建导航窗体时可从这些布局中进行选择（见图2）。您可选择将导航选项卡在窗体顶部排列成一行，或者排列在窗体的 左侧或右侧。对于多层选项卡，您可将其放置在窗体顶部的两行中，或者先将这些选项卡在顶部横向排列，然后再在窗体的左侧或右侧向下排列。在此示例中， 选择水平标签和垂直标签，左侧”。单击标题导航窗体”，然后将其更改为管理实体”。完成此操作后，该窗体应与图3类似。图2.导航窗体布局选择奇体困!窗Ci向导以报表向导Zil 笺垂直嶷r左saw垂直龌P右侧水平标签r 2振水平标签和董直桁签r SfilCL)水平标签和垂直标拣r右恻图3显示了已修改标题的窗体。图3.已修改标题的窗体创建顶层选项卡示例窗体应显

23、示要用于客户、员工和产品的顶层选项。若要开始操作，请单击导航窗体顶部的新增”按钮，然后将文本更改为客户”；Access将添加一个 新选项卡。重复此过程来创建员工”和产品”选项卡。完成此操作后，选项卡应与图4类似。图4.顶层选项卡布局创建第二层选项卡利用顶层选项卡，可以在窗体的左侧轻松添加要在用户单击第二层选项卡时显示的窗体和报表。首先单击客户”顶层选项卡。从导航窗格中，将客户列表” 窗体拖动到窗体左侧的新增”选项卡上。这将在导航按钮和现有窗体之间创建一个新连接，设置导航目标名称”按钮属性，使其引用指定窗体。重复此过程 来将客户电话簿”和客户通讯簿”报表添加到左侧的选项卡上。单击窗体顶部的员工”

24、选项卡，并从导航窗格”中将员工列表”窗体拖动到窗体左侧的新增”选项卡上。对员工通讯簿”和员工电话簿报表重复 此步骤。单击顶部的产品”选项卡，然后将产品详细信息”窗体拖动到左侧的选项卡上。对与产品相关的四个报表重复此步骤。使用实体”名称保存新窗 体。此时，该窗体应与图1类似。在窗体”视图中显示此窗体，并与各种选项卡进行交互（从联系人”移动到员工”，再移动到产品”），然后验证 第二层选项卡是否工作正常。下一节包含有关如何设置导航窗体样式的信息。设置导航窗体的样式到目前为止，您仅使用了导航窗体的默认样式。实际上，您可以控制每个按钮的外观，并且可以同时对所有按钮应用样式。若要尝试此操作，请切换回布局”

25、 视图。然后，单击顶部的客户”选项卡。单击左侧的顶层选项卡，然后在按住Ctrl的同时单击左侧其余两个选项卡。在功能区中，选择格式”选项卡，然 后单击快速样式”下拉框，如图5所示。选择某个样式来配置所有选定按钮的样式。图5.使用快速样式设置选项卡格式若要配置按钮的形状，请选择更改形状”下拉框，如图6所示。通过使用同一组选定按钮来选择圆形选项。（还可通过使用功能区上的形状填充”、形状轮廓”和形状效果”工具来添加其他效果。）当更改为具有发光效果的圆形后，这些按钮应与图7中的按钮类似。图6.更改选项卡形状图7显示了更改形状后的按钮。图7.更改选定按钮的形状后的情况国主页、3空怀 o管理实核客户地址簿员

26、工产品新增客户电话簿车先生il3-：ao5-01(Q王先生1 3-)555-0100方先生冀先生C3-；555-01QO刘先生.GE3-：a53-01QO新增客户列表客户电话薄比较导航窗体和选项卡控件您可能想知道，为什么可能会需使用新的导航窗体功能而非标准选项卡”控件（该控件提供了类似的功能）。当然，其中一个原因是选项卡”控件不提供用 于支持选项层次结构的机制，而导航窗体提供了这一机制。若要使用户能够先选择一个主类别，然后再选择子类别，那么只能选择导航窗体。此外，这两种类型的控件的加载时行为不同。导航窗体会根据需要（即，当您单击相应的选项卡时）加载每个子窗体或报表，而选项卡”控件会在加载时加载 其所有子对象。这不仅会影响性能（当您打开主窗体时，您必须等待选项卡”控件加载其所有子对象），而且会使处理查询数据变得困难。由于导航窗体会在 您单击相应的选项卡时加载每个窗体，因此您可确保用户能看到最新数据，而不必创建特定的代码以在用户单击每个选项卡时重新查询窗体。这也意味着导航窗 体在您单击每个选项卡时不会提供特定事件，而是在每个窗体或报表的Load或Open事件处理程序中放入加载时代码。注释：导航窗体仅适用于Access2010。如果您尝试在Access2007和早期版本中打开包含导航窗体容器的窗体，则操作将失败。