frm_main.frm

很好的行政管理系统,供大家享用,功能非常强大,希望大家的支持

      If AdoRs.Fields("21") = 1 Then
         XTSJQL.Enabled = True
      ElseIf AdoRs.Fields("21") = 0 Then
         XTSJQL.Enabled = False
      End If
      If AdoRs.Fields("22") = 1 Then
         CLFYZC.Enabled = True
      ElseIf AdoRs.Fields("22") = 0 Then
         CLFYZC.Enabled = False
      End If
      If AdoRs.Fields("23") = 1 Then
         YZGZAP.Enabled = True
      ElseIf AdoRs.Fields("23") = 0 Then
         YZGZAP.Enabled = False
      End If
End If
AdoRs.Close
End Sub

Private Sub Form_Load()
    frm_Main.UDP_Data.Protocol = sckUDPProtocol    '指定使用UDP协议
    Call Send
   
    TreeView1.LabelEdit = tvwManual
    Call Tree_change                         '调用过程，用于显示TreeView控件中的数据信息
End Sub

Private Sub GJDHDM_Click()
  frm_dhhmcx.Show 1               '国际电话代码
End Sub

Private Sub GYSGL_Click()
  frm_hysgl.Show 1                '会议室管理
End Sub

Private Sub GZJH_Click()
  frm_Gzjh.Show 1                  '工作计划
End Sub

Private Sub GZRZ_Click()
  frm_Gzrz.Show 1                  '工作日志
End Sub

Private Sub HBCX_Click()
  frm_hbcx.Show 1                 '航班查询
End Sub

Private Sub HYDJ_Click()
  frm_hyjl.Show 1                 '会议记录
End Sub

Private Sub HYSCX_Click()
  StrCx = 2
  Frm_Cx.Show 1                   '会议室信息查询
End Sub

Private Sub HYTZ_Click()
  frm_hytz.Show 1                 '会议通知
End Sub

Private Sub JSB_Click()
   frm_Jsb.Show 1               '记事本
End Sub

Private Sub JSHF_Click()        '数据恢复
Dim iTask As Long
MsgBox "请您注意,为了确保数据安全,在进行数据恢复的同时需要关闭应用程序,请您在恢复数据完成之后重新运行应用程序", 64, "提示信息"
'调用数据恢复可执行文件
iTask = Shell(App.Path & "\Restore.exe", vbNormalFocus)
End
End Sub

Private Sub JSRYDJ_Click()
   frm_jsrydj.Show 1            '驾驶人员登记
End Sub

Private Sub MMXG_Click()
  frm_EditPas.Show 1
End Sub

Private Sub SCRQ_Click()          '删除日志
Dim del
Dim Temp1 As String
On Error Resume Next  '错误处理语句
del = MsgBox("确认要清除系统的日志信息吗?", 17, "提示信息")
    If del = vbOK Then
         Kill (App.Path & "\系统日志.ini")
             Open (App.Path & "\系统日志.ini") For Output As #1
                  Temp1 = "  操作员姓名             日期时间                      操作类型"
             Print #1, Temp1
             Print #1,
             Close #1
             MsgBox "日志清理成功完成!!", , "提示信息"
    Else
    End If
End Sub

Private Sub SJBF_Click()
  frm_backup.Show 1         '数据备份
End Sub

Private Sub SJGSDCX_Click()
  frm_Sjgsd.Show 1          '手机归属地查询
End Sub

Private Sub TCXT_Click()
  End                         '退出系统
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  '单击节点调用相应的窗体并且判断操作员是否具有相应的权限
  If TreeView1.SelectedItem.Key = "会议室管理" And GYSGL.Enabled = True Then
     frm_hysgl.Show 1
  ElseIf TreeView1.SelectedItem.Key = "会议室管理" And GYSGL.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "会议通知" And HYTZ.Enabled = True Then
    frm_hytz.Show 1         '会议通知
  ElseIf TreeView1.SelectedItem.Key = "会议通知" And HYTZ.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "会议记录" And HYDJ.Enabled = True Then
    frm_hyjl.Show 1
  ElseIf TreeView1.SelectedItem.Key = "会议记录" And HYDJ.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "会议室查询" And HYSCX.Enabled = True Then
      StrCx = 2
      Frm_Cx.Show 1
  ElseIf TreeView1.SelectedItem.Key = "会议室查询" And HYSCX.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "会议记录查询" And DJCX.Enabled = True Then
      StrCx = 1
      Frm_Cx.Show 1
  ElseIf TreeView1.SelectedItem.Key = "会议记录查询" And DJCX.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "工作日志" And GZRZ.Enabled = True Then
     frm_Gzrz.Show 1
  ElseIf TreeView1.SelectedItem.Key = "工作日志" And GZRZ.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "记事本" And JSB.Enabled = True Then
     frm_Jsb.Show 1
  ElseIf TreeView1.SelectedItem.Key = "记事本" And JSB.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "工作计划" And GZJH.Enabled = True Then
     frm_Gzjh.Show 1
  ElseIf TreeView1.SelectedItem.Key = "工作计划" And GZJH.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "一周工作安排" And YZGZAP.Enabled = True Then
     frm_gzap.Show 1
  ElseIf TreeView1.SelectedItem.Key = "一周工作安排" And YZGZAP.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "车辆登记" And CLDJ.Enabled = True Then
      frm_cldj.Show 1
  ElseIf TreeView1.SelectedItem.Key = "车辆登记" And CLDJ.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "用车管理" And YCGL.Enabled = True Then
     frm_ycgl.Show 1
  ElseIf TreeView1.SelectedItem.Key = "用车管理" And YCGL.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "驾驶人员登记" And JSRYDJ.Enabled = True Then
      frm_jsrydj.Show 1            '驾驶人员登记
  ElseIf TreeView1.SelectedItem.Key = "驾驶人员登记" And JSRYDJ.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "车辆信息查询" And CLXXCX.Enabled = True Then
      StrCx = 3               '车辆信息查询
      Frm_Cx.Show 1
  ElseIf TreeView1.SelectedItem.Key = "车辆信息查询" And CLXXCX.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "用车信息查询" And UCXXCX.Enabled = True Then
      StrCx = 4                '用车信息查询
      Frm_Cx.Show 1
  ElseIf TreeView1.SelectedItem.Key = "用车信息查询" And UCXXCX.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "车辆投保管理" And CLTBXXGL.Enabled = True Then
      frm_cltb.Show 1
  ElseIf TreeView1.SelectedItem.Key = "车辆投保管理" And CLTBXXGL.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "电话费用管理" And DHFYGL.Enabled = True Then
      frm_dhfy.Show 1
  ElseIf TreeView1.SelectedItem.Key = "电话费用管理" And DHFYGL.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "报销费用管理" And BXFYGL.Enabled = True Then
      frm_bxfy.Show 1
  ElseIf TreeView1.SelectedItem.Key = "报销费用管理" And BXFYGL.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "费用支出管理" And CLFYZC.Enabled = True Then
     frm_clfyzc.Show 1
  ElseIf TreeView1.SelectedItem.Key = "费用支出管理" And CLFYZC.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "常用网址" And CYWZ.Enabled = True Then
     frm_wzcx.Show 1
  ElseIf TreeView1.SelectedItem.Key = "常用网址" And CYWZ.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "航班查询" And HBCX.Enabled = True Then
     frm_hbcx.Show 1
  ElseIf TreeView1.SelectedItem.Key = "航班查询" And HBCX.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
    If TreeView1.SelectedItem.Key = "查看日志" Then
       frm_rz.Show 1
    End If
  If TreeView1.SelectedItem.Key = "编码大全" And BMDQ.Enabled = True Then
     frm_bmcx.Show 1
  ElseIf TreeView1.SelectedItem.Key = "编码大全" And BMDQ.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "国际电话代码" And GJDHDM.Enabled = True Then
     frm_dhhmcx.Show 1
  ElseIf TreeView1.SelectedItem.Key = "国际电话代码" And GJDHDM.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "手机归属地查询" And SJGSDCX.Enabled = True Then
     frm_Sjgsd.Show 1
  ElseIf TreeView1.SelectedItem.Key = "手机归属地查询" And SJGSDCX.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "删除日志" And SCRQ.Enabled = True Then
       Dim del
       Dim Temp1 As String
       On Error Resume Next  '错误处理语句
       del = MsgBox("确认要清除系统的日志信息吗?", 17, "提示信息")
           If del = vbOK Then
                Kill (App.Path & "\系统日志.ini")
                    Open (App.Path & "\系统日志.ini") For Output As #1
                         Temp1 = "  操作员姓名             日期时间                      操作类型"
                    Print #1, Temp1
                    Print #1,
                    Close #1
                    MsgBox "日志清理成功完成!!", , "提示信息"
           Else
           End If
  ElseIf TreeView1.SelectedItem.Key = "删除日志" And SCRQ.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "数据备份" And SJBF.Enabled = True Then
     frm_backup.Show 1
  ElseIf TreeView1.SelectedItem.Key = "数据备份" And SJBF.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "用户管理" And YGGL.Enabled = True Then
     frm_systemer.Show 1
  ElseIf TreeView1.SelectedItem.Key = "用户管理" And YGGL.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "数据恢复" And JSHF.Enabled = True Then
      Dim iTask As Long
      MsgBox "请您注意,为了确保数据安全,在进行数据恢复的同时需要关闭应用程序,请您在恢复数据完成之后重新运行应用程序", 64, "提示信息"
      '调用数据恢复可执行文件
      iTask = Shell(App.Path & "\Restore.exe", vbNormalFocus)
      End
  ElseIf TreeView1.SelectedItem.Key = "数据恢复" And JSHF.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.Key = "数据清理" And XTSJQL.Enabled = True Then
     frm_sfyz.Show 1
  ElseIf TreeView1.SelectedItem.Key = "数据清理" And XTSJQL.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If

End Sub

Private Sub UCXXCX_Click()
  StrCx = 4                '用车信息查询
  Frm_Cx.Show 1
End Sub

Private Sub XTSJQL_Click()
   frm_sfyz.Show 1                '数据清理
End Sub

Private Sub YCGL_Click()
  frm_ycgl.Show 1                 '用车管理
End Sub

Private Sub YGGL_Click()
   frm_systemer.Show 1            '用户管理
End Sub

Private Sub UDP_Data_DataArrival _
(ByVal bytesTotal As Long)
On Error GoTo x
    Dim strData As String
    Dim strDatas As String
    UDP_Data.GetData strData
    strDatas = StrName
      If strData = "AAA" Then
         '调用信息接收窗体
         AdoRs1.Open "select * from 会议通知 where 接收人='" + Name1 + "' and 是否接收='0'", Cnn, adOpenKeyset
           If AdoRs1.RecordCount > 0 Then
             frm_hyjs.Show 1
           Else
           End If
         AdoRs1.Close
      End If
    Exit Sub
x:
  MsgBox "出现以外错误", 64, "友好提示信息"
End Sub

Private Sub Send()
  On Error Resume Next
    With frm_Main.UDP_Data
    .RemoteHost = StrName     '要连接的远程计算机
    .RemotePort = 666         '要连接的端口。
    .Bind 666                 '绑定到本地的端口上。
    End With
End Sub

Private Sub Timer1_Timer()
  StatusBar1.Panels.Item(4).Text = Time
End Sub

Private Sub YZGZAP_Click()
   frm_gzap.Show 1          '一周工作安排
End Sub

Public Sub Tree_change()
  Dim Key, Text, BH, strtemp As String
  Dim Nod As Node             '定义一个节点变量
  AdoRs.Open "select * from tb_zcd", Cnn, adOpenKeyset
    If AdoRs.RecordCount > 0 Then
       AdoRs.MoveFirst
         Do While AdoRs.EOF = False                 '循环读取第1层节点中的数据信息
           Key = Trim(AdoRs.Fields("主菜单名称"))
           Text = AdoRs.Fields("主菜单名称")
           strtemp = AdoRs.Fields("主菜单名称")
           Set Node1 = TreeView1.Nodes.Add(, tvwChild, Key, Text, 0)   '给第1层节点赋与数值
            AdoRs1.Open "select * from tb_zcd_zcd where 主菜单名称='" + strtemp + "'", Cnn, adOpenKeyset
               If AdoRs1.RecordCount > 0 Then
                  AdoRs1.MoveFirst
                    Do While AdoRs1.EOF = False        '循环读取第2层节点中的数据信息
                      Key = Trim(AdoRs1.Fields("子菜单名称"))
                      Text = AdoRs1.Fields("子菜单名称")
                      Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, Key, Text, 0)   '给第2层节点赋与数值
                      AdoRs1.MoveNext
                    Loop
               End If
             AdoRs1.Close
            AdoRs.MoveNext
          Loop
   End If
   AdoRs.Close
End Sub