报销管理系统学习笔记_第四章_2

时　间:2009-03-14 09:59:14
作　者:rcylbx   ID：3459  城市：保定
摘　要:三、修改窗体制作   frmyg_child_Edit
四、返回修改记录的原始定位
五、删除功能的代码
正　文:

三、  修改窗体制作   frmyg_child_Edit

1、  文本框 员工姓名 ygxm

2、  拷贝Activex02窗体一区控件到页眉

3、  页眉页脚及格式设置同新增窗体

4、  添加模块，Variable  声明全局变量

Public selectstr As String

5、  回到frmyg_child设计视图，员工序号文本框_获得焦点事件：

On Error GoTo Err_ygId_GotFocus:
selectstr = Me.ygId
Forms!usysfrmMain!labFind.Tag = 1
Forms!usysfrmMain!btnEdit.Tag = 999
Exit_ygId_GotFocus:
Exit Sub
Err_ygId_GotFocus:
Resume Exit_ygId_GotFocus

Frmyg_child成为当前事件输入代码：=selectrecord()

6切换到frmyg_child_Edit,窗体加载事件：

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

6、设定员工姓名文本框数据源:控件来源为ygxm

7、输入代码：

Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
If IsNull(Me.ygxm) Then
MsgBox "请输入员工姓名!", vbCritical, "提示："
Me.ygxm.SetFocus
Exit Sub
End If

Me.Refresh
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"
DoCmd.Echo True
    '触发子窗体计时器事件
Forms!usysfrmMain!frmChild.Form.TimerInterval = 300
DoCmd.Close acForm, "frmyg_child_Edit"
End Sub

8、修改导航按钮的修改属性；添加权限；添加窗体说明：员工姓名_修改窗体

四、返回修改记录的原始定位

1、进入variable模块，声明全局变量

Public g_CurrentSelectStrID As String

2、frmyg_child的计时器触发，代码

Acchelp_FindstrRecord (g_CurrentSelectStrID)
 '计时器执行一次后不再执行
Me.TimerInterval = 0

3、frmyg_child_Edit窗体加载，原有代码加入新代码（2、3行之间）

g_CurrentSelectStrID = selectstr

五、删除功能的代码

1、frmyg_child，加入代码：

Public Sub btnDel()
If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then
DoCmd.Echo False
Call AccHelp_DeleteFldstrRow ("tblCodeyg", "ygId", selectstr)
Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"
DoCmd.Echo True
End If
End Sub

2、添加导航按钮的删除属性，设置权限。

上一课  下一课