frmmain.frm

关于仓库物流管理方面

        m_checkado.Refresh
    End If
    
    '更新当前操作用户
    操作用户.caption = UserName
     '初始化菜单
    InitMenu
    更新自定义查询菜单
    
End Sub


Private Sub Form_Load()
    
    '初始化m_checkado
    m_checkado.ConnectionString = DataConnectString
    m_checkado.Visible = False
    
    
     '每天首次运行自动备份数据库
    fMainForm.m_checkado.RecordSource = "select 操作时间 from 系统日志 order by 操作时间 desc"
    fMainForm.m_checkado.Refresh
    
    If fMainForm.m_checkado.Recordset.RecordCount > 0 Then
        
        fMainForm.m_checkado.Recordset.MoveFirst
        
        Dim t As String
        
        t = fMainForm.m_checkado.Recordset.Fields("操作时间").Value
        '如果今天从未有人登陆,备份数据库
        If InStr(1, t, Str(Date)) <> 1 Then
            BackupData DataPath, App.Path + "\everyday.bkp"
        End If
    Else
        BackupData DataPath, App.Path + "\everyday.bkp"
    End If
    
     '写入系统日志
    fMainForm.WriteLog ("登陆系统")
    
    '初始化各种权限类别
    InitPurview
    '初始化菜单
      
    '加载图片
    操作信息.Picture = LoadPicture(App.Path + "\data\14.gif")
    软件信息.Picture = LoadPicture(App.Path + "\data\11.jpg")
    '初始化软件信息
    当前日期.caption = LTrim(Str(Year(Date))) + "年" + LTrim(Str(Month(Date))) + "月" + LTrim(Str(Day(Date))) + "日"
    操作用户.caption = UserName

End Sub


Private Sub Form_Resize()
   On Error Resume Next
   操作信息.width = Me.width - 软件信息.width
End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    '写入系统日志
    fMainForm.WriteLog ("退出系统")
    
End Sub



Private Sub L用户管理_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    If 权限类别(16) <> 0 Then mnuUserManage_Click
End Sub

Private Sub mnuFileExit_Click()
    Unload Me
End Sub

Private Sub mnuModifyPassword_Click()
    PasModify.Show vbModal
End Sub

Private Sub mnuUserManage_Click()
    用户管理.Show vbModal
End Sub



Private Sub mnuFilePageSetup_Click()
    On Error Resume Next
    With dlgCommonDialog
        .DialogTitle = "页面设置"
        .CancelError = True
        .ShowPrinter
    End With

End Sub

Private Sub mnuViewStatusBar_Click()
    sbStatusBar.Visible = True - sbStatusBar.Visible
    mnuViewStatusBar.Checked = sbStatusBar.Visible
End Sub

Private Sub mnuViewToolbar_Click()
    tbToolBar.Visible = True - tbToolBar.Visible
    mnuViewToolbar.Checked = tbToolBar.Visible
End Sub

Private Sub M报损单_Click()
     报损单.Show vbModal
End Sub



Private Sub M查看日志_Click()
    
    系统日志.Show vbModal
    
End Sub
Private Sub M仓库信息_Click()
    仓库.Show vbModal
End Sub


Private Sub M出库单_Click()
    出库单.Show vbModal
End Sub

Private Sub M单据查询_Click()
    单据查询.Show vbModal
End Sub

Private Sub M调拔单_Click()
    调拔单.Show vbModal
End Sub
Private Sub M供应商_Click()
    供应商.Show vbModal
End Sub

Private Sub M换用户登陆_Click()

     '启动登陆对话框
    Dim fLogin As New frmLogin
    fLogin.HelpContextID = 2411
    fLogin.Show vbModal
    
    If Not fLogin.OK Then
       '登录失败，退出应用程序
        Exit Sub
    End If
    Unload fLogin

    '启动主窗口
    Unload Me
    Set fMainForm = New frmMain
    fMainForm.Show
    
End Sub

Private Sub M货物出入统计_Click()
    货物出入统计.Show vbModal
End Sub

Private Sub M货物信息_Click()
    货物信息.Show vbModal
End Sub
Private Sub M库存查询_Click()
    库存查询.Show vbModal
End Sub

Private Sub M库存状况_Click()
    库存状况.Show vbModal
End Sub

Private Sub M入库单_Click()
    入库单.Show vbModal
End Sub

Private Sub M数据清除_Click()
    数据清除.Show vbModal
End Sub

Private Sub M往来客户_Click()
    客户.Show vbModal
End Sub

Private Sub M系统初始化_Click()
    
    If MsgBox("这将删除您所有的数据信息,整个数据库将全部清空,您确信要系统初始化吗?", vbYesNo Or vbExclamation) = vbNo Then Exit Sub
    
    On Error Resume Next
   
    '删除入库单
    fMainForm.m_checkado.RecordSource = "select * from 入库单"
    fMainForm.m_checkado.Refresh
    DeleteRecordData fMainForm.m_checkado.Recordset
    
    '删除出库单
    fMainForm.m_checkado.RecordSource = "select * from 出库单"
    fMainForm.m_checkado.Refresh
    DeleteRecordData fMainForm.m_checkado.Recordset
    
    '删除调拔单
    fMainForm.m_checkado.RecordSource = "select * from 调拔单"
    fMainForm.m_checkado.Refresh
    DeleteRecordData fMainForm.m_checkado.Recordset
    
    '删除报损单
    fMainForm.m_checkado.RecordSource = "select * from 报损单"
    fMainForm.m_checkado.Refresh
    DeleteRecordData fMainForm.m_checkado.Recordset
    
    '删除库存状况
    fMainForm.m_checkado.RecordSource = "select * from 库存状况"
    fMainForm.m_checkado.Refresh
    DeleteRecordData fMainForm.m_checkado.Recordset
    
    '删除客户
    fMainForm.m_checkado.RecordSource = "select * from 客户"
    fMainForm.m_checkado.Refresh
    DeleteRecordData fMainForm.m_checkado.Recordset
    
     '删除供应商
    fMainForm.m_checkado.RecordSource = "select * from 供应商"
    fMainForm.m_checkado.Refresh
    DeleteRecordData fMainForm.m_checkado.Recordset
    
     '删除货物信息
    fMainForm.m_checkado.RecordSource = "select * from 货物信息"
    fMainForm.m_checkado.Refresh
    DeleteRecordData fMainForm.m_checkado.Recordset
 
     '删除货物类别
    fMainForm.m_checkado.RecordSource = "select * from 货物类别"
    fMainForm.m_checkado.Refresh
    DeleteRecordData fMainForm.m_checkado.Recordset
     
     '删除仓库
    fMainForm.m_checkado.RecordSource = "select * from 仓库"
    fMainForm.m_checkado.Refresh
    DeleteRecordData fMainForm.m_checkado.Recordset
     
     '删除职员信息
    fMainForm.m_checkado.RecordSource = "select * from 职员信息"
    fMainForm.m_checkado.Refresh
    DeleteRecordData fMainForm.m_checkado.Recordset
     
     '删除系统日志
    fMainForm.m_checkado.RecordSource = "select * from 系统日志"
    fMainForm.m_checkado.Refresh
    DeleteRecordData fMainForm.m_checkado.Recordset
     
     '删除用户管理
    fMainForm.m_checkado.RecordSource = "select * from 用户管理"
    fMainForm.m_checkado.Refresh
    DeleteRecordData fMainForm.m_checkado.Recordset
    
    '增加一个管理员admin
    fMainForm.m_checkado.RecordSource = "select * from 用户管理"
    
    fMainForm.m_checkado.Recordset.AddNew
    fMainForm.m_checkado.Recordset.Fields("用户名") = "admin"
    fMainForm.m_checkado.Recordset.Fields("用户密码") = ""
    fMainForm.m_checkado.Recordset.Fields("用户权限") = 131071
    
    fMainForm.m_checkado.Recordset.update
    fMainForm.m_checkado.Refresh
    
    '更改当前登陆用户信息
    UserName = "admin": UserPas = "": Purview = 131071
    Dim i As Integer
    For i = 0 To 16
        权限类别(i) = 1
    Next
    
    MsgBox "系统初始化成功!"
    
End Sub


Private Sub M新增报损单_Click()
    新增报损单.Show vbModal
End Sub

Private Sub M新增出库单_Click()
    新增出库单.Show vbModal
End Sub

Private Sub M新增调拔单_Click()
    新增调拔单.Show vbModal
End Sub
Private Sub M新增入库单_Click()
    新增入库单.Show vbModal
End Sub


Private Sub M职员操作统计_Click()
    职员操作统计.Show vbModal
End Sub

Private Sub M职员信息_Click()
    职员信息.Show vbModal
End Sub




Private Sub tbToolBar_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
    
    Select Case ButtonMenu.Key
        Case "入库单"
            M新增入库单_Click
        Case "出库单"
            M新增出库单_Click
        Case "调拔单"
            M新增调拔单_Click
        Case "报损单"
            M新增报损单_Click
        Case "单据"
            M单据查询_Click
        Case "库存"
            M库存查询_Click
        Case "货物出入"
            M货物出入统计_Click
        Case "职员操作"
            M职员操作统计_Click
    End Select

End Sub

Private Sub Timer1_Timer()
    
    If Len(sbStatusBar.Panels(1).Text) < sbStatusBar.Panels(1).width / 80 Then
        sbStatusBar.Panels(1).Text = " " + sbStatusBar.Panels(1).Text
    Else
        sbStatusBar.Panels(1).Text = LTrim(sbStatusBar.Panels(1).Text)
    End If
    
End Sub



Private Sub 操作信息_Resize()
7
    Shape1.left = 0
    Shape1.width = 操作信息.width
    Shape2.left = 0
    Shape2.width = 操作信息.width
    
End Sub

Private Sub 查看库存状况_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    M库存状况_Click
End Sub



Private Sub 查询统计_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub

    
End Sub

Private Sub 创建新仓库_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    If 权限类别(11) <> 0 Then M仓库信息_Click
End Sub

Private Sub L单据查询_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    If 权限类别(6) <> 0 Then M单据查询_Click
End Sub

Private Sub 登记新供应商_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    If 权限类别(4) <> 0 Then M供应商_Click
End Sub

Private Sub 登记新货物_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    If 权限类别(12) <> 0 Then M货物信息_Click
End Sub

Private Sub 登记新客户_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    If 权限类别(5) <> 0 Then M往来客户_Click
End Sub

Private Sub 登记新职员_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    If 权限类别(10) <> 0 Then M职员信息_Click
End Sub

Private Sub 给作者写信_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    ShellExecute 0, "", "mailto:[e-mail]", "", "", 5
End Sub

Private Sub 更换用户登陆_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    M换用户登陆_Click
End Sub

Private Sub L货物出入统计_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    If 权限类别(6) <> 0 Then M货物出入统计_Click
End Sub

Private Sub L库存查询_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    If 权限类别(6) <> 0 Then M库存查询_Click
End Sub
Private Sub 软件版权_Resize()

    ShockwaveFlash1.left = 0
    ShockwaveFlash1.width = 软件版权.width
    ShockwaveFlash1.Top = 0
    ShockwaveFlash1.Height = 软件版权.Height / 10
    
    If ShockwaveFlash1.IsPlaying = 0 Then ShockwaveFlash1.Play
    
End Sub

Private Sub 我的主页_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    ShellExecute 0, "", "http://fxstudio.nease.net", "", "", 5
End Sub
Private Sub 修改密码_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    mnuModifyPassword_Click
End Sub

Private Sub L职员操作统计_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    If 权限类别(6) <> 0 Then M职员操作统计_Click
End Sub