frm_main.frm

VB物流管理系统毕业设计带源码源码+论文 vB+sql的毕业设计

   Begin VB.Menu EXIT 
      Caption         =   "退出系统"
      Begin VB.Menu CXDL 
         Caption         =   "重新登录"
         Shortcut        =   ^R
      End
      Begin VB.Menu END 
         Caption         =   "退出系统"
         Shortcut        =   ^E
      End
   End
End
Attribute VB_Name = "Frm_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_REMOVE = &H1000&
Private Const SC_MAXIMIZE = &HF030

Private Sub BMZLSZ_Click()    '部门信息设置
  Frm_Bmzl.Show 1
End Sub

Private Sub CKRZ_Click()
  frm_rz.Show 1
End Sub

Private Sub CLDDAP_Click()
   Frm_Cldd.Show 1              '车辆调度
End Sub

Private Sub CLDDXXCX_Click()
   StrCx = 2
   Frm_Xxcx.Show 1
End Sub

Private Sub CLXXSZ_Click()
  Frm_Clxx.Show 1
End Sub

Private Sub CXDL_Click()
  Unload Me
  frm_xtdl.Show
End Sub

Private Sub END_Click()
  End
End Sub

Private Sub Form_Activate()
  StatusBar1.Panels.Item(3).Text = Format(Now, "yyyy年mm月dd日")
  AdoRs.Open "select * from tb_user where user_Name='" + Name1 + "'", Cnn, adOpenKeyset
  If AdoRs.RecordCount > 0 Then
      If AdoRs.Fields("1") = 1 Then
         BMZLSZ.Enabled = True
      ElseIf AdoRs.Fields("1") = 0 Then
         BMZLSZ.Enabled = False
      End If
      If AdoRs.Fields("2") = 1 Then
         zwxxsz.Enabled = True
      ElseIf AdoRs.Fields("2") = 0 Then
         zwxxsz.Enabled = False
      End If
      If AdoRs.Fields("3") = 1 Then
         GSZLSZ.Enabled = True
      ElseIf AdoRs.Fields("3") = 0 Then
         GSZLSZ.Enabled = False
      End If
      If AdoRs.Fields("4") = 1 Then
         YGZLSZ.Enabled = True
      ElseIf AdoRs.Fields("4") = 0 Then
         YGZLSZ.Enabled = False
      End If
      If AdoRs.Fields("5") = 1 Then
         KHZLSZ.Enabled = True
      ElseIf AdoRs.Fields("5") = 0 Then
         KHZLSZ.Enabled = False
      End If
      If AdoRs.Fields("6") = 1 Then
         SJZLSZ.Enabled = True
      ElseIf AdoRs.Fields("6") = 0 Then
         SJZLSZ.Enabled = False
      End If
      If AdoRs.Fields("7") = 1 Then
         CLXXSZ.Enabled = True
      ElseIf AdoRs.Fields("7") = 0 Then
         CLXXSZ.Enabled = False
      End If
      If AdoRs.Fields("8") = 1 Then
         CLDDAP.Enabled = True
         Toolbar1.Buttons(4).Enabled = True
      ElseIf AdoRs.Fields("8") = 0 Then
         CLDDAP.Enabled = False
         Toolbar1.Buttons(4).Enabled = False
      End If
      If AdoRs.Fields("9") = 1 Then
         SQDGL.Enabled = True
         Toolbar1.Buttons(1).Enabled = True
      ElseIf AdoRs.Fields("9") = 0 Then
         SQDGL.Enabled = False
         Toolbar1.Buttons(1).Enabled = False
      End If
      If AdoRs.Fields("10") = 1 Then
         HWTYDGL.Enabled = True
         Toolbar1.Buttons(6).Enabled = True
      ElseIf AdoRs.Fields("10") = 0 Then
         HWTYDGL.Enabled = False
         Toolbar1.Buttons(6).Enabled = False
      End If
      If AdoRs.Fields("11") = 1 Then
         HWYSDGL.Enabled = True
         Toolbar1.Buttons(12).Enabled = True
      ElseIf AdoRs.Fields("11") = 0 Then
         HWYSDGL.Enabled = False
         Toolbar1.Buttons(12).Enabled = False
      End If
      If AdoRs.Fields("12") = 1 Then
         PSJLDGL.Enabled = True
         Toolbar1.Buttons(9).Enabled = True
      ElseIf AdoRs.Fields("12") = 0 Then
         PSJLDGL.Enabled = False
         Toolbar1.Buttons(9).Enabled = False
      End If
      If AdoRs.Fields("13") = 1 Then
         HWSQDCX.Enabled = True
      ElseIf AdoRs.Fields("13") = 0 Then
         HWSQDCX.Enabled = False
      End If
      If AdoRs.Fields("14") = 1 Then
         CLDDXXCX.Enabled = True
      ElseIf AdoRs.Fields("14") = 0 Then
         CLDDXXCX.Enabled = False
      End If
      If AdoRs.Fields("15") = 1 Then
         HWTYXXCX.Enabled = True
         Toolbar1.Buttons(14).Enabled = True
      ElseIf AdoRs.Fields("15") = 0 Then
         HWTYXXCX.Enabled = False
         Toolbar1.Buttons(14).Enabled = False
      End If
      If AdoRs.Fields("16") = 1 Then
         HWTYYSCX.Enabled = True
      ElseIf AdoRs.Fields("16") = 0 Then
         HWTYYSCX.Enabled = False
      End If
      If AdoRs.Fields("17") = 1 Then
         PSHWBGCX.Enabled = True
      ElseIf AdoRs.Fields("17") = 0 Then
         PSHWBGCX.Enabled = False
      End If
      If AdoRs.Fields("18") = 1 Then
         HWSQDBB.Enabled = True
      ElseIf AdoRs.Fields("18") = 0 Then
         HWSQDBB.Enabled = False
      End If
      If AdoRs.Fields("19") = 1 Then
         HWTYDBB.Enabled = True
         Toolbar1.Buttons(16).Enabled = True
      ElseIf AdoRs.Fields("19") = 0 Then
         HWTYDBB.Enabled = False
         Toolbar1.Buttons(16).Enabled = False
      End If
      If AdoRs.Fields("20") = 1 Then
         HWYSDBB.Enabled = True
      ElseIf AdoRs.Fields("20") = 0 Then
         HWYSDBB.Enabled = False
      End If
      If AdoRs.Fields("21") = 1 Then
         SCRZ.Enabled = True
      ElseIf AdoRs.Fields("21") = 0 Then
         SCRZ.Enabled = False
      End If
      If AdoRs.Fields("22") = 1 Then
         YHGL.Enabled = True
         Toolbar1.Buttons(19).Enabled = True
      ElseIf AdoRs.Fields("22") = 0 Then
         YHGL.Enabled = False
         Toolbar1.Buttons(19).Enabled = False
      End If
      If AdoRs.Fields("23") = 1 Then
         SJBF.Enabled = True
      ElseIf AdoRs.Fields("23") = 0 Then
         SJBF.Enabled = False
      End If
      If AdoRs.Fields("24") = 1 Then
         SJHF.Enabled = True
      ElseIf AdoRs.Fields("24") = 0 Then
         SJHF.Enabled = False
      End If
      If AdoRs.Fields("25") = 1 Then
         SJQL.Enabled = True
      ElseIf AdoRs.Fields("25") = 0 Then
         SJQL.Enabled = False
      End If
End If
AdoRs.Close

  If TWidth <= 800 Or THeigth <= 600 Then
     Me.BorderStyle = 2
     Me.WindowState = 2
   Else
        RemoveMenu GetSystemMenu(Frm_Main.hwnd, 0), SC_MAXIMIZE, MF_REMOVE        '最大化按钮不可用
  End If

End Sub

Private Sub GSZLSZ_Click()    '公司资料设置
    Frm_Gszl.Show 1
End Sub

Private Sub HWSQDBB_Click()
On Error Resume Next
DEvr1.rsCom_sqd.Open "select * from tb_Goods_sqd"
  If DEvr1.rsCom_sqd.RecordCount > 0 Then
     DRP_Sqd.Show 1
  End If
End Sub

Private Sub HWSQDCX_Click()
   StrCx = 1
   Frm_Xxcx.Show 1
End Sub

Private Sub HWTYDBB_Click()
 DEvr1.rsCom_tyd.Open "select * from tb_Goods_tyd"
   If DEvr1.rsCom_tyd.RecordCount > 0 Then
      DRP_Tyd.Show 1
   End If
End Sub

Private Sub HWTYDGL_Click()
   Frm_Hpty.Show 1             '货品托运
End Sub

Private Sub HWTYXXCX_Click()
   StrCx = 3
   Frm_Xxcx.Show 1
End Sub

Private Sub HWTYYSCX_Click()
   StrCx = 4
   Frm_Xxcx.Show 1
End Sub

Private Sub HWYSDBB_Click()
 DEvr1.rsCom_Ysd.Open "select * from tb_Goods_khys"
  If DEvr1.rsCom_Ysd.RecordCount > 0 Then
     DRP_Ysd.Show 1
  End If
End Sub

Private Sub HWYSDGL_Click()
  Frm_Hpys.Show 1
End Sub

Private Sub KHZLSZ_Click()    '客户资料信息
   Frm_Khxx.Show 1
End Sub
Private Sub PSHWBGCX_Click()
   Frm_ZtgzCx.Show 1
End Sub

Private Sub PSJLDGL_Click()
   Frm_Ztgz.Show 1
End Sub

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

Private Sub SJQL_Click()
  frm_sfyz.Show 1
End Sub

Private Sub SJZLSZ_Click()
   Frm_Sjxx.Show 1
End Sub

Private Sub SQDGL_Click()
  Frm_Tysq.Show 1              '托运申请
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.key
      Case "SQ"
         Frm_Tysq.Show 1
      Case "DD"
         Frm_Cldd.Show 1
      Case "TY"
         Frm_Hpty.Show 1
      Case "GZ"
         Frm_Ztgz.Show 1
      Case "YS"
         Frm_Hpys.Show 1
      Case "CX"
         StrCx = 3
         Frm_Xxcx.Show 1
      Case "BB"
         DRP_Tyd.Show 1
      Case "RZ"
         frm_systemer.Show 1
      Case "TC"
         End
  End Select
End Sub

Private Sub YGZLSZ_Click()    '员工资料信息
   Frm_Ygzl.Show 1
End Sub

Private Sub YHGL_Click()
   frm_systemer.Show 1
End Sub

Private Sub zwxxsz_Click()
  Frm_Zwxx.Show 1
End Sub
Private Sub Timer1_Timer()
  StatusBar1.Panels.Item(4).Text = Time
End Sub

Private Sub ChangeScreen()     '改变屏幕分辨率函数
   
   MsgBox "您桌面的分辨率并不是800*600,建议您将桌面的分辨率调整成800*600之后，再运行此程序!", 64, "提示信息"
   
End Sub