📄 frmmain.frm

📁 一个完整的仓库管理系统
💻 FRM
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
        M新增借入单.Enabled = False
        M新增借出单.Enabled = False
        M新增调拔单.Enabled = False
        M新增报损单.Enabled = False
        
   
        新增单据(0).MouseIcon = Picture1.MouseIcon
        新增单据(1).MouseIcon = Picture1.MouseIcon
        新增单据(2).MouseIcon = Picture1.MouseIcon
        新增单据(3).MouseIcon = Picture1.MouseIcon
        新增单据(4).MouseIcon = Picture1.MouseIcon
        新增单据(5).MouseIcon = Picture1.MouseIcon
        
        tbToolBar.Buttons(2).Enabled = False
    End If
    
    If 权限类别(3) = 0 Then
        M月盘点.Enabled = False
        
        tbToolBar.Buttons(4).Enabled = False
    End If
    If 权限类别(4) = 0 Then
        M供应商.Enabled = False
        登记新供应商.MouseIcon = Picture1.MouseIcon
    End If
    If 权限类别(5) = 0 Then
        M往来客户.Enabled = False
        登记新客户.MouseIcon = Picture1.MouseIcon
    End If
    If 权限类别(6) = 0 Then
        M单据查询.Enabled = False
        M库存查询.Enabled = False
        M货物出入统计.Enabled = False
        M职员操作统计.Enabled = False
        
        L货物出入统计.MouseIcon = Picture1.MouseIcon
        L职员操作统计.MouseIcon = Picture1.MouseIcon
        L单据查询.MouseIcon = Picture1.MouseIcon
        L库存查询.MouseIcon = Picture1.MouseIcon
        
        tbToolBar.Buttons(5).Enabled = False
        tbToolBar.Buttons(8).Enabled = False
    End If
    If 权限类别(7) = 0 Then
        M高级查询.Enabled = False
        自定义查询.Enabled = False
        
        L高级查询.MouseIcon = Picture1.MouseIcon
        L自定义查询管理.MouseIcon = Picture1.MouseIcon
        
        tbToolBar.Buttons(7).Enabled = False
    End If
    If 权限类别(8) = 0 Then
        M打印入库单.Enabled = False
        M打印出库单.Enabled = False
        M打印借入单.Enabled = False
        M打印借出单.Enabled = False
        M打印调拔单.Enabled = False
        M打印报损单.Enabled = False
        
        M打印月盘点.Enabled = False
        
        tbToolBar.Buttons(10).Enabled = False
    End If
    If 权限类别(9) = 0 Then
        M公司信息.Enabled = False
        
        修改公司信息.MouseIcon = Picture1.MouseIcon
    End If
    If 权限类别(10) = 0 Then
        M职员信息.Enabled = False
        
        登记新职员.MouseIcon = Picture1.MouseIcon
    End If
    If 权限类别(11) = 0 Then
        M仓库信息.Enabled = False
        创建新仓库.MouseIcon = Picture1.MouseIcon
    End If
    If 权限类别(12) = 0 Then
        M货物信息.Enabled = False
        登记新货物.MouseIcon = Picture1.MouseIcon
    End If
    If 权限类别(13) = 0 Then
        M数据清除.Enabled = False
        M系统初始化.Enabled = False
    End If
    If 权限类别(14) = 0 Then
        M备份数据库.Enabled = False
        M还原数据库.Enabled = False
        M还原到昨天数据库.Enabled = False
        
        备份数据库.MouseIcon = Picture1.MouseIcon
        还原数据库.MouseIcon = Picture1.MouseIcon
    End If
    If 权限类别(15) = 0 Then
        M查看日志.Enabled = False
        
        查看日志.MouseIcon = Picture1.MouseIcon
    
        tbToolBar.Buttons(12).Enabled = False
    End If
    If 权限类别(16) = 0 Then
        mnuUserManage.Enabled = False
        L用户管理.MouseIcon = Picture1.MouseIcon
    End If
    
End Sub

Public Function WriteLog(inf As String)
    
    On Error Resume Next
    
    Me.m_checkado.RecordSource = "select * from 系统日志"
    Me.m_checkado.Refresh
    
    If Me.m_checkado.Recordset.RecordCount > 0 Then
        Me.m_checkado.Recordset.MoveLast
    End If
    
    Me.m_checkado.Recordset.AddNew
    
    Me.m_checkado.Recordset.Fields("用户名").Value = UserName
    Me.m_checkado.Recordset.Fields("操作时间").Value = Date + Time
    Me.m_checkado.Recordset.Fields("操作内容").Value = inf
    
    Me.m_checkado.Recordset.update
    
    Me.m_checkado.Refresh
    
End Function

Public Sub 更新自定义查询菜单()

    On Error GoTo quit
    
    fMainForm.m_checkado.RecordSource = "select * from 自定义查询"
    fMainForm.m_checkado.Refresh
    
    Dim count As Integer
    count = fMainForm.m_checkado.Recordset.RecordCount

    If count >= 1 Then
        M自定义一.Visible = True
        M自定义一.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义一.Visible = False
    End If
    
    If count >= 2 Then
        M自定义二.Visible = True
        M自定义二.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义二.Visible = False
    End If
    
    If count >= 3 Then
        M自定义三.Visible = True
        M自定义三.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义三.Visible = False
    End If
    
    If count >= 4 Then
        M自定义四.Visible = True
        M自定义四.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义四.Visible = False
    End If
    
    If count >= 5 Then
        M自定义五.Visible = True
        M自定义五.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义五.Visible = False
    End If
    
    If count >= 6 Then
        M自定义六.Visible = True
        M自定义六.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义六.Visible = False
    End If
    
    If count >= 7 Then
        M自定义七.Visible = True
        M自定义七.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义七.Visible = False
    End If
   
    If count >= 8 Then
        M自定义八.Visible = True
        M自定义八.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义八.Visible = False
    End If
    
    GoTo quit2
quit:
    M自定义一.Visible = False
    M自定义二.Visible = False
    M自定义三.Visible = False
    M自定义四.Visible = False
    M自定义五.Visible = False
    M自定义六.Visible = False
    M自定义七.Visible = False
    M自定义八.Visible = False
quit2:

End Sub

'还原数据库后初始化各类信息
Private Sub InitAfterResume()

    '更改数据库中的用户信息
    m_checkado.RecordSource = "select * from 用户管理 where 用户名='" + UserName + "'"
    m_checkado.Refresh
            
    '如果已存在记录则更新
    If m_checkado.Recordset.RecordCount > 0 Then
        m_checkado.Recordset.Fields("用户密码").Value = UserPas
        m_checkado.Recordset.Fields("用户权限").Value = Purview
                
        m_checkado.Recordset.update
        m_checkado.Refresh
    Else '新建用户记录
        m_checkado.Recordset.AddNew
        m_checkado.Recordset.Fields("用户名").Value = UserName
        m_checkado.Recordset.Fields("用户密码").Value = UserPas
        m_checkado.Recordset.Fields("用户权限").Value = Purview
                
        m_checkado.Recordset.update
        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
    '初始化菜单
    InitMenu
    
    更新自定义查询菜单
    
    '加载图片
    操作信息.Picture = LoadPicture(App.Path + "\data\ground1.jpg")
    软件信息.Picture = LoadPicture(App.Path + "\data\ground2.jpg")
    
    '加载flash
    ShockwaveFlash1.Movie = App.Path + "\data\logo.swf"
    ShockwaveFlash1.Menu = False
    ShockwaveFlash1.Loop = True
    ShockwaveFlash1.ScaleMode = 1
    
    '禁止flash右键弹出
    Dim hwnd As Long
    hwnd = GetWindow(软件版权.hwnd, 5)
    AddWndMsg hwnd, 516, AddressOf FlashNoRButton
    
    '初始化软件信息
    当前日期.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 权限类别(7) <> 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 权限类别(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 mnuHelpAbout_Click()
    frmAbout.Show vbModal, Me
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 = T
上一页 1 2 3 45
💿 文件大小 761 K
👤 上传用户 lc1230z
📂 所属分类企业管理
🏷️ 相关标签

#仓库管理
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -