系统_主操作桌面.frm

新世纪ERP设备管理源代码

            If Not Security_Log("Dev_Remove", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_DevRemoveListForm.Show
            Dev_DevRemoveFindForm.Show 1
        Case "Dev_ChangeAdd"                        '设备革新
            If Not Security_Log("Dev_ChangeAdd", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_ChangeAddListForm.Show
            Dev_ChangeAddFindForm.Show 1
        Case "Dev_DevReject"                        '设备报废
            If Not Security_Log("Dev_DevReject", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_DevRejectListForm.Show
            Dev_DevRejectFindForm.Show 1
            
    '设备运行
        Case "Dev_CheckFile"                        '设备检查记录
            If Not Security_Log("Dev_CheckFile", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_CheckFileListForm.Show
            Dev_CheckFileFindForm.Show 1
        Case "Dev_Accident"                         '设备事故
            If Not Security_Log("Dev_Accident", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_AccidentListForm.Show
            Dev_AccidentFindForm.Show 1
        Case "Dev_HiddenTrouble"                    '设备隐患
            If Not Security_Log("Dev_HiddenTrouble", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_HiddenTroubleListForm.Show
            Dev_HiddenTroubleFindForm.Show 1
        Case "Dev_Malfunction"                      '设备故障
            If Not Security_Log("Dev_Malfunction", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_MalfunctionListForm.Show
            Dev_MalfunctionFindForm.Show 1
        Case "Dev_StateCheck"                       '设备状态维护
            If Not Security_Log("Dev_StateCheck", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_StateCheckListForm.Show
            Dev_StateCheckFindForm.Show 1
            
    '设备检修管理
        Case "Dev_DayRepair"                        '设备日常维修
            If Not Security_Log("Dev_DayRepair", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_DayRepairListForm.Show
            Dev_DayRepairFindForm.Show 1
        Case "Dev_MonthRepair"                      '设备月度检修计划
            If Not Security_Log("Dev_DayRepair", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_MonthRepairPlanListForm.Show
            Dev_MonthRepairPlanFindForm.Show 1
        Case "Dev_CheckScenario"                    '设备检修方案
            If Not Security_Log("Dev_CheckScenario", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_CheckScenarioListForm.Show
            Dev_CheckScenarioFindForm.Show 1
        Case "Dev_DevCheckFile"                     '设备检修记录
            If Not Security_Log("Dev_DevCheckFile", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_RepairFileListForm.Show
            Dev_RepairFileFindForm.Show 1
        
    '设备润滑管理
        Case "Dev_LubricateCard"                    '设备润滑标准
            If Not Security_Log("Dev_LubricateCard", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_LubricateListFrom.Show
            Dev_LubricateFindFrom.Show 1
        Case "Dev_LubricateStat"                    '润滑油统计
            If Not Security_Log("Dev_LubricateStat", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_LubrucateStatListForm.Show
            Dev_LubricateStatFindForm.Show 1
        Case "Dev_LubricateAna"                     '设备润滑油分析
            If Not Security_Log("Dev_LubricateAna", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_FrmLubricateAnalyzeCxjg.Show
            Dev_FrmLubricateAnalyzeCxtj.Show 1
    '备品备件
        Case "Dev_SparePart"                        '备品备件库存查询
            If Not Security_Log("Dev_SparePart", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_SparePartListForm.Show
            Dev_SparePartFindForm.Show 1
    '设备密封管理
        Case "Dev_Airproof"                         '设备密封
            If Not Security_Log("Dev_Airproof", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_FrmAirproofCxjg.Show
            Dev_FrmAirproofcxtj.Show 1
        Case "Dev_Leak"                             '设备泄漏
            If Not Security_Log("Dev_Leak", Xtczybm, 1) Then
                Exit Sub
            End If
            Dev_FrmLeakCxjg.Show
            Dev_FrmLeakCxtj.Show 1
            
          
        '工具
        Case "Dev_IsQ"                        '计算器
            Shell App.Path & "\calc.exe", vbNormalFocus
        
        
        '帮助
        Case "Dev_MHelp"                           '系统帮助
            Call F1bz
        Case "Dev_About"                             '关于
            XT_frmAbout.Show
    End Select
    
    '用户退出时写上机日志
   Security_Log gnsy, Xtczybm, 2, False
   
    Exit Sub
Cwcl:
    Tsxx = "此项系统功能有待完善!"
    Call Xtxxts(Tsxx, 0, 4)
    Exit Sub

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)        '用户关闭窗体
  
    If Unload_TF = False Then
        Cancel = 1
        Me.WindowState = 1
    End If

End Sub

Private Sub Form_Load()
    
    '设置窗体图标
    Me.Icon = XT_Main.Icon
    
    '设置窗体位置大小,并调入系统功能树
    Me.Left = 0
    Me.Top = 0
    Me.Width = XT_Main.Width - 60
    Me.Height = XT_Main.Height - 760 - 690
    Call Cshgns
    
    '启动调入数据等待提示
    Load Xt_Wait
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    On Error Resume Next
    
    Dim i As Integer
    For i = Forms.Count - 1 To 1 Step -1
        Unload Forms(i)
    Next
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
    SaveSetting App.Title, "Settings", "ViewMode", lvListView.View

End Sub

Private Sub Form_Resize()
    
    On Error Resume Next
    If Me.Width < 3000 Then Me.Width = 3000
    SizeControls imgSplitter.Left

End Sub

Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    With imgSplitter
        picSplitter.Move .Left, .Top, .Width \ 2, .Height - 20
    End With
    picSplitter.Visible = True
    mbMoving = True

End Sub

Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    Dim sglPos As Single
    If mbMoving Then
        sglPos = x + imgSplitter.Left
        If sglPos < sglSplitLimit Then
            picSplitter.Left = sglSplitLimit
        ElseIf sglPos > Me.Width - sglSplitLimit Then
            picSplitter.Left = Me.Width - sglSplitLimit
        Else
            picSplitter.Left = sglPos
        End If
    End If

End Sub

Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    SizeControls picSplitter.Left
    picSplitter.Visible = False
    mbMoving = False
    lvListView.Refresh

End Sub

Private Sub TreeView1_DragDrop(Source As Control, x As Single, y As Single)
    
    If Source = imgSplitter Then
        SizeControls x
    End If

End Sub

Sub SizeControls(x As Single)
    
    On Error Resume Next

    '设置 Width 属性
    If x < 3500 Then x = 3500
    If x > (Me.Width - 1500) Then x = Me.Width - 1500
    tvTreeView.Width = x
    imgSplitter.Left = x
    lvListView.Left = x + 40
    lvListView.Width = Me.Width - (tvTreeView.Width + 140)
    lblTitle(0).Width = tvTreeView.Width
    lblTitle(1).Left = lvListView.Left + 20
    lblTitle(1).Width = lvListView.Width - 40

    '设置 Top 属性

    tvTreeView.Top = tbToolBar.Height + picTitles.Height

    lvListView.Top = tvTreeView.Top

    '设置 height 属性
    tvTreeView.Height = Me.ScaleHeight - (picTitles.Top + picTitles.Height)
    
    lvListView.Height = tvTreeView.Height
    imgSplitter.Top = tvTreeView.Top
    imgSplitter.Height = tvTreeView.Height

End Sub

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
    
    On Error Resume Next
    
    Select Case Button.Key
        Case "返回"
            tvTreeView.SetFocus
              SendKeys "{up}", True
        Case "向前"
             tvTreeView.SetFocus
              SendKeys "{DOWN}", True
        Case "大图标"
            lvListView.View = lvwIcon
        Case "小图标"
            lvListView.View = lvwSmallIcon
        Case "列表"
            lvListView.View = lvwList
        Case "详细资料"
            lvListView.View = lvwReport
    End Select

End Sub