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