?? 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
?? 文件大小 442 K
?? 上傳用戶 wzy1
?? 所屬分類 SQL Server
??? 相關標簽

#倉庫管理 #截面 #美的
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmmain.frm

?? 快捷鍵說明
