Office中国论坛/Access中国论坛

标题: 关于一段代码 [打印本页]

作者: Jany 时间: 2009-6-2 19:52
标题: 关于一段代码
各位大侠，我是一只菜鸟，可以帮我解析一下，下面这一段代码吗？最好详细一点，因为我很笨的。谢谢！！
以下是一个“员工信息管理系统”中的一个“员工离职”窗体。

  （1）关闭按钮
Private Sub cmdclose_Click()
DoCmd.Close
End Sub
  （2）确定按钮
Private Sub Cmdok_Click()
Dim sql As String

If IsNull(Me.Combo0) Then
MsgBox ("请输入部门！")
Exit Sub
End If
If IsNull(Me.combo1) Then
MsgBox ("请输入员工！")
Exit Sub
End If
sql = "insert into 离职记录(部门,员工编号,离职日期,离职原因)"
'录入数据到“离职记录”
sql = sql & "values ('" & Me.Combo0 & "','" & Me.combo1 & "','" & Me.Text12 & "','" & Me.Combo2 & "')"

DoCmd.RunSQL sql

sql = "update 员工信息 set 离职=yes,离开单位时间=" & Me.Text12 & " where 员工编号='" & Me.combo1 & "'"

DoCmd.RunSQL sql

Me.Combo0 = Null
Me.combo1 = Null
Me.Combo2 = Null

MsgBox ("员工离职成功！")
End Sub
（3）combo0 这一组合框更新后
Private Sub combo0_AfterUpdate()
Me.combo1.Requery
'部门名称对应组合框combo0 更新后，更新combo1这一组合框的数据
End Sub

作者: chuang0321 时间: 2009-6-2 21:35
（1）点击“关闭”按钮后关闭窗体
（2）点击“确定”按钮后，首先验证“部门”和“员工”是否不为空。都不为空后，先在“离职记录”表中按照窗体显示添加新记录，然后在“员工信息”表中将该员工的“离职”字段更改为“yes”。最后将窗体中的前三个控件重置为空，并显示"员工离职成功！"。
（3）部门名称发生更新后，根据对应的部门对员工进行更新查询，应该是获取该部门所属的员工列表。

作者: Jany 时间: 2009-6-4 16:40
谢谢~~

2# chuang0321

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)