VB高速公路票据管理系统

rivate Sub mnuViewStatusBar_Click()
mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked
StatusBar1.Visible = mnuViewStatusBar.Checked
End Sub

Private Sub mnuViewToolbar_Click()
mnuViewToolbar.Checked = Not mnuViewToolbar.Checked
Toolbar1.Visible = mnuViewToolbar.Checked

End Sub

Private Sub mnuWindowCascade_Click()
Me.Arrange vbCascade
End Sub

Private Sub mnuWindowTileHorizontal_Click()
Me.Arrange vbTileHorizontal
End Sub

Private Sub mnuWindowTileVertical_Click()
Me.Arrange vbTileVertical
End Sub

Private Sub rpw_Click()
renpwfrm.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)


    On Error Resume Next
    Select Case Button.Key
        Case "输入数据"
           data_Click
        Case "记录查询"
           find_Click
        Case "添加用户"
           adduser_Click
        Case "收费员信息"
           addsfy_Click
        Case "修改密码"
           rpw_Click
        Case "层叠"
           mnuWindowCascade_Click
        Case "横向平铺"
           mnuWindowTileHorizontal_Click
        Case "纵向平铺"
           mnuWindowTileVertical_Click
        Case "退出"
           exit_Click

End Select
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)

On Error Resume Next
    Select Case Button.Key
        Case "输入数据"
           data_Click
        Case "记录查询"
           find_Click
        Case "修改密码"
           rpw_Click
        Case "层叠"
           mnuWindowCascade_Click
        Case "横向平铺"
           mnuWindowTileHorizontal_Click
        Case "纵向平铺"
           mnuWindowTileVertical_Click
        C

首页上一页 6 7 8 9 10 下一页尾页 9/10/10

VB高速公路票据管理系统(九)