新建窗体设置各项设置及相应代码总结

时　间:2013-02-20 15:14:52
作　者:张晓   ID：14431  城市：舟山
摘　要:三个主要窗体的属性设置及相应代码
正　文:

UMV平台用的最多的窗体有三种分别是frm_child、frm_child_Add以及frm_child_edit。这三个窗体在教程中都需要我们自行创建并设置好一些属性。但在实际操作中，我们也可以将窗体直接复制一份，然后修改其属性和代码就可以使用了。这样做可以提示一些效率。

在实际操作过程中，我发现修改窗体属性是一个比较麻烦的事情，一粗心就会遗漏一些属性的设置和改变。如果把窗体设置全部用代码来实现，至少用搜索-替换就比用鼠标点来点去容易得多。

鉴于以上设想，我编写了一段代码，可以在载入窗体事件中，把上述三个窗体的基本设置用代码来完成。

首先总结一下上述三个窗体各自的属性设置，以frm_yg_child、frm_yg_child_add和frm_yg_child_edit为例

一、frm_yg_child

1、【数据】选项卡

1.1记录源            Select tblCode_yg.* FROM tblCode_yg;

1.2记录集类型       快照

2、【格式】选项卡

2.1默认视图       数据表

3、窗体【视图属性】（右键单击窗体）

3.1添加备注：如 员工姓名——主数据窗体

4、控件（主要是文本框控件）

4.1控件名称    对应表中字段名称ygID

4.2控件来源    对应表中字段名称ygID

    二、frm_yg_child_Add

  1、【数据】选项卡

    1.1记录集类型       快照

    2、【格式】选项卡

    2.1自动居中：是

    2.2边框样式：对话框边框

    2.3记录选择器：否

    2.4导航按钮：否

    2.5滚动条：两者都无

    2.6标题：员工信息新增

    3、【其他】选项卡

    3.1弹出方式：是

    3.2模式：是

   三、frm_yg_child_Edit

    1、【数据】选项卡

    1.1记录集类型       快照

    2、【格式】选项卡

    2.1自动居中：是

    2.2边框样式：对话框边框

    2.3记录选择器：否

    2.4导航按钮：否

    2.5滚动条：两者都无

    2.6标题：员工信息修改

    3、【其他】选项卡

    3.1弹出方式：是

    3.2模式：是

    4、【事件】选项卡

    4.1获得焦点(GotFocus 事件写入相应代码）

    4.2成为当前：=selectrecord()

    4.3加载（Form_load事件写入相应代码）

    Me.RecordSource = "Select * FROM tblCodeyg Where ygId = '" & selectstr & "'" 

明白了以上各个窗体需要设置的属性。我们就可以把需要的设置用代码来实现了。

下面还是以以上三个窗体来举例

 一、frm_yg_child

在vbe中选择对应的窗体，增加以下代码

Private Sub Form_Load()
  '主数据窗体初始化窗体各项属性


  ' 1.1记录源            Select tblCode_yg.*FROM tblCode_yg;
  ' 1.2记录集类型       快照
  
   Dim strRecordSource As String, strTableName As String
   strTableName = "tblCodeyg"
   strRecordSource = "Select " & strTableName & ".* FROM " & strTableName
   Me.RecordSource = strRecordSource
   Me.Label0.Caption = "员工序号"
   Me.Label1.Caption = "员工姓名"
End Sub

二、frm_yg_child_Add

Private Sub Form_Load()
  '新增窗体属性设置
'1【数据】选项卡
'    1.1记录集类型       快照
'2【格式】选项卡
'    2.1标题：员工新增
'    2.2自动居中：是
'    2.3边框样式：对话框边框
'    2.4记录选择器：否
'    2.5导航按钮：否
'    2.6滚动条：两者都无
'3【其他】选项卡
'    3.1弹出方式：是
'    3.2模式：是

  Dim strCaption As String
  strCaption = "员工新增"
  With Me
    .RecordsetType = 2  '快照
    .Caption = strCaption '设置窗体标题
    ’.AutoCenter = True  '自动居中
   ’ .BorderStyle = 3  '对话框边框
    .RecordSelectors = False  '记录选择器
    .NavigationButtons = False  '导航按钮
    .ScrollBars = 0 '滚动条
    .Modal = True '弹出方式
    ’.HasModule = True '模式
  End With

End Sub

    

Access快速开发平台QQ群 (群号:321554481) 　　　　　　Access源码网店