请假的设计界面完成了,如何实现类别选择和审批人抄送人选择。
拖拉一个PopList控件。双击审批人按钮控件,进入事件,这里贴一张事件代码
<span style="font-size:14px;"> '获取审批人
Private Sub BtnCUser_Click(sender As Object, e As EventArgs) Handles BtnCUser.Click, BtnCUser2.Click
Dim frmLeave As New frmLeave(Session("UserID").ID)
Dim table As DataTable = frmLeave.GetConfirmUser() '获取数据
PopList1.Groups.Clear()
Dim poli As New PopListGroup
PopList1.Groups.Add(poli)
poli.Text = "审批人"
'显示选择列表中key和values
For Each rowli As DataRow In table.Rows
poli.Items.Add(rowli.Item("USER_ID"), rowli.Item("USER_ID"))
Next
PopList1.Show()
End Sub</span>
poplist选择后赋值代码
<span style="font-size:14px;">''' <summary>
''' poplist选择控件赋值审阅人
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub PopList1_Selected(sender As Object, e As EventArgs) Handles PopList1.Selected
If PopList1.Selection IsNot Nothing Then
CUser = PopList1.Selection.Value
Me.BtnCUser.Text = PopList1.Selection.Text.Trim
End If
End Sub</span>
请假条创建界面的功能基本完成了,接下来就是对界面输入数据保存了。这里是通过ToolbarItemClick事件,具体代码如下:
<span style="font-size:14px;">'toolbar按钮触发事件
Private Sub frmLeaveCreate_ToolbarItemClick(sender As Object, e As ToolbarClickEventArgs) Handles MyBase.ToolbarItemClick
Try
Select Case e.Name
Case save.Name
If Me.isSaving Then
Return
End If
isSaving = True
'数据保存逻辑代码
'......
MessageBox.Show("请假条已创建成功!", Sub() Me.Close())
Case tExit.Name
MessageBox.Show("是否确定返回?", MessageBoxButtons.YesNo, Sub(s As Object, args As MessageBoxHandlerArgs) If args.Result = Smobiler.Core.ShowResult.Yes Then Me.Close(), Nothing)
End Select
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
isSaving = False
End Try
End Sub</span>