frm_navigation.frm

来自「一个公司的客户财产管理系统vb源码」· FRM 代码 · 共 877 行 · 第 1/2 页

FRM
877 行
字号
12
      Width           =   1425
      _ExtentX        =   2514
      _ExtentY        =   847
      CustomPicture   =   "frm_navigation.frx":37352
      MouseOverPicture=   "frm_navigation.frx":38B4D
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ScaleWidth      =   95
      ScaleMode       =   0
      ScaleHeight     =   32
   End
   Begin as97Popup.asPopup cmd_Riches_Repair_View 
      Height          =   1695
      Left            =   6300
      Top             =   4080
      Width           =   1695
      _ExtentX        =   2990
      _ExtentY        =   2990
      CustomPicture   =   "frm_navigation.frx":3A65E
      Caption         =   "修改记录查看"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   14737632
      Layout          =   3
      ScaleWidth      =   113
      ScaleMode       =   0
      ScaleHeight     =   113
   End
   Begin as97Popup.asPopup cmd_Data_Recover 
      Height          =   1695
      Left            =   6360
      Top             =   4080
      Width           =   1575
      _ExtentX        =   2778
      _ExtentY        =   2990
      CustomPicture   =   "frm_navigation.frx":3B147
      Caption         =   "数据恢复"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   14737632
      Layout          =   3
      ScaleWidth      =   105
      ScaleMode       =   0
      ScaleHeight     =   113
   End
End
Attribute VB_Name = "frm_navigation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd_Check_View_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_IQC_Check_View
  Frm_IQC_Check_View.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_Customer_Del_View_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_Area_Delete_View
  Frm_Area_Delete_View.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_Customer_Riches_Click(Cancel As Boolean)
On Error GoTo err

     Me.cmd_Mark_Write.Visible = True    '客户财产
     Me.cmd_Mark_OutStemper.Visible = True
     Me.cmd_IQC_Write.Visible = True
     Me.cmd_Stat_Write.Visible = True

   If OperatorDepartment = "营销部" Then
     Me.cmd_Mark_Write.Enabled = True
     Me.cmd_Mark_OutStemper.Enabled = True
     Me.cmd_IQC_Write.Enabled = False
     Me.cmd_Stat_Write.Enabled = False
   ElseIf OperatorDepartment = "品质部-IQC" Then
     Me.cmd_Mark_Write.Enabled = False    '客户财产
     Me.cmd_Mark_OutStemper.Enabled = True
     Me.cmd_IQC_Write.Enabled = True
     Me.cmd_Stat_Write.Enabled = False
   ElseIf OperatorDepartment = "生产部-统计" Then
     Me.cmd_Mark_Write.Enabled = False    '客户财产
     Me.cmd_Mark_OutStemper.Enabled = True
     Me.cmd_IQC_Write.Enabled = False
     Me.cmd_Stat_Write.Enabled = True
   End If
   
    Me.cmd_Check_View.Visible = False     '信息查询
    Me.cmd_Customer_Del_View.Visible = False
    Me.cmd_Riches_Del_View.Visible = False
    Me.cmd_Riches_Repair_View.Visible = False
    
    Me.cmd_Data_Backup.Visible = False  '系统设置
    Me.cmd_Operator_Set.Visible = False
    Me.cmd_Data_Recover.Visible = False
    Me.cmd_Pass_Repair.Visible = False
    
    Me.cmd_Spec_Bill_Create.Visible = False '创建规格单
    Me.cmd_SpecBill_Export.Visible = False
    Me.cmd_OutStemperSpecBill.Visible = False
    Me.cmd_WholeBoxSign.Visible = False
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_Data_Backup_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_Data_Backup_frist
  Frm_Data_Backup_frist.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_Data_Recover_Click(Cancel As Boolean)
On Error GoTo err
  Load frm_Data_Recover_first
  frm_Data_Recover_first.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_Info_Search_Click(Cancel As Boolean)
On Error GoTo err
    Me.cmd_Mark_Write.Visible = False    '客户财产
    Me.cmd_Mark_OutStemper.Visible = False
    Me.cmd_IQC_Write.Visible = False
    Me.cmd_Stat_Write.Visible = False
    Me.cmd_Check_View.Visible = True     '信息查询
    Me.cmd_Customer_Del_View.Visible = True
    Me.cmd_Riches_Del_View.Visible = True
    Me.cmd_Riches_Repair_View.Visible = True
   If OperatorLevel <= 2 Then
     Me.cmd_Check_View.Enabled = True
     Me.cmd_Customer_Del_View.Enabled = True
     Me.cmd_Riches_Del_View.Enabled = True
     Me.cmd_Riches_Repair_View.Enabled = True
   Else
     Me.cmd_Check_View.Enabled = False
     Me.cmd_Customer_Del_View.Enabled = False
     Me.cmd_Riches_Del_View.Enabled = False
     Me.cmd_Riches_Repair_View.Enabled = False
   End If
   
    Me.cmd_Data_Backup.Visible = False  '系统设置
    Me.cmd_Operator_Set.Visible = False
    Me.cmd_Data_Recover.Visible = False
    Me.cmd_Pass_Repair.Visible = False
    
    Me.cmd_Spec_Bill_Create.Visible = False '创建规格单
    Me.cmd_SpecBill_Export.Visible = False
    Me.cmd_OutStemperSpecBill.Visible = False
    Me.cmd_WholeBoxSign.Visible = False

Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_IQC_Write_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_Customer_Riches
  Frm_Customer_Riches.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_Mark_OutStemper_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_OutCustomer_Riches
  Frm_OutCustomer_Riches.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical

End Sub

Private Sub cmd_Mark_Write_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_Customer_Riches
  Frm_Customer_Riches.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_Operator_Set_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_Group_User
  Frm_Group_User.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_OutStemperSpecBill_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_OutWholeStemperSpecBill
  Frm_OutWholeStemperSpecBill.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical

End Sub

Private Sub cmd_Pass_Repair_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_Pass_Repair
  Frm_Pass_Repair.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_Riches_Del_View_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_Customer_Riches_Delete_View
  Frm_Customer_Riches_Delete_View.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_Riches_Repair_View_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_Repair_View
  Frm_Repair_View.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_Spec_Bill_Click(Cancel As Boolean)
On Error GoTo err

   If OperatorDepartment = "营销部" Then
     Me.cmd_Spec_Bill_Create.Visible = True '创建规格单
     Me.cmd_Spec_Bill_Create.Enabled = True
     Me.cmd_SpecBill_Export.Visible = True '创建规格单
     Me.cmd_SpecBill_Export.Enabled = True
     Me.cmd_OutStemperSpecBill.Visible = True '创建规格单
     Me.cmd_OutStemperSpecBill.Enabled = True
     Me.cmd_WholeBoxSign.Visible = True
     Me.cmd_WholeBoxSign.Enabled = True
   Else
     Me.cmd_Spec_Bill_Create.Visible = True '创建规格单
     Me.cmd_Spec_Bill_Create.Enabled = False
     Me.cmd_SpecBill_Export.Visible = True '创建规格单
     Me.cmd_SpecBill_Export.Enabled = False
     Me.cmd_OutStemperSpecBill.Visible = True '创建规格单
     Me.cmd_OutStemperSpecBill.Enabled = False
     Me.cmd_WholeBoxSign.Visible = True
     Me.cmd_WholeBoxSign.Enabled = False

   End If
   
     Me.cmd_Mark_Write.Visible = False  '客户财产
     Me.cmd_Mark_OutStemper.Visible = False
     Me.cmd_IQC_Write.Visible = False
     Me.cmd_Stat_Write.Visible = False
     
    Me.cmd_Check_View.Visible = False     '信息查询
    Me.cmd_Customer_Del_View.Visible = False
    Me.cmd_Riches_Del_View.Visible = False
    Me.cmd_Riches_Repair_View.Visible = False
    
    Me.cmd_Data_Backup.Visible = False  '系统设置
    Me.cmd_Operator_Set.Visible = False
    Me.cmd_Data_Recover.Visible = False
    Me.cmd_Pass_Repair.Visible = False
    
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_Spec_Bill_Create_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_Whole_SpecBill
  Frm_Whole_SpecBill.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_SpecBill_Export_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_Whole_StemperSpecBill
  Frm_Whole_StemperSpecBill.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_Stat_Write_Click(Cancel As Boolean)
On Error GoTo err
  Load Frm_Customer_Riches
  Frm_Customer_Riches.Show vbModal
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_System_Set_Click(Cancel As Boolean)
On Error GoTo err
    Me.cmd_Mark_Write.Visible = False    '客户财产
    Me.cmd_Mark_OutStemper.Visible = False
    Me.cmd_IQC_Write.Visible = False
    Me.cmd_Stat_Write.Visible = False
    Me.cmd_Check_View.Visible = False     '信息查询
    Me.cmd_Customer_Del_View.Visible = False
    Me.cmd_Riches_Del_View.Visible = False
    Me.cmd_Riches_Repair_View.Visible = False
    Me.cmd_Data_Backup.Visible = True  '系统设置
    Me.cmd_Operator_Set.Visible = True
    Me.cmd_Data_Recover.Visible = True
    Me.cmd_Pass_Repair.Visible = True
    If OperatorLevel <= 2 Then
      Me.cmd_Data_Backup.Enabled = True  '系统设置
      Me.cmd_Operator_Set.Enabled = True
      Me.cmd_Data_Recover.Enabled = True
      Me.cmd_Pass_Repair.Enabled = True
    Else
      Me.cmd_Data_Backup.Enabled = True  '系统设置
      Me.cmd_Operator_Set.Enabled = False
      Me.cmd_Data_Recover.Enabled = False
      Me.cmd_Pass_Repair.Enabled = True
    End If
    
    Me.cmd_Spec_Bill_Create.Visible = False '创建规格单
    Me.cmd_SpecBill_Export.Visible = False
    Me.cmd_OutStemperSpecBill.Visible = False
    Me.cmd_WholeBoxSign.Visible = False

Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_WholeBoxSign_Click(Cancel As Boolean)
On Error Resume Next
  Load Frm_WholeBoxSign
  Frm_WholeBoxSign.Show vbModal
  
'Exit Sub
'err:
'   MsgBox err.Description, vbCritical
End Sub

Private Sub Form_Load()
On Error GoTo err

   Me.Left = 0
   Me.Top = 0
   Me.Icon = LoadPicture(App.Path & "\icon\daohang.ico")
   Me.Picture = LoadPicture(App.Path & "\icon\daohang.jpg")

     Me.cmd_Mark_Write.Visible = True    '客户财产
     Me.cmd_Mark_OutStemper.Visible = True
     Me.cmd_IQC_Write.Visible = True
     Me.cmd_Stat_Write.Visible = True


   If OperatorDepartment = "营销部" Then
     Me.cmd_Mark_Write.Enabled = True
     Me.cmd_Mark_OutStemper.Enabled = True
     Me.cmd_IQC_Write.Enabled = False
     Me.cmd_Stat_Write.Enabled = False
   ElseIf OperatorDepartment = "品质部-IQC" Then
     Me.cmd_Mark_Write.Enabled = False    '客户财产
     Me.cmd_Mark_OutStemper.Enabled = True
     Me.cmd_IQC_Write.Enabled = True
     Me.cmd_Stat_Write.Enabled = False
   ElseIf OperatorDepartment = "生产部-统计" Then
     Me.cmd_Mark_Write.Enabled = False    '客户财产
     Me.cmd_Mark_OutStemper.Enabled = True
     Me.cmd_IQC_Write.Enabled = False
     Me.cmd_Stat_Write.Enabled = True
   End If
   
    Me.cmd_Check_View.Visible = False     '信息查询
    Me.cmd_Customer_Del_View.Visible = False
    Me.cmd_Riches_Del_View.Visible = False
    Me.cmd_Riches_Repair_View.Visible = False
    
    Me.cmd_Data_Backup.Visible = False  '系统设置
    Me.cmd_Operator_Set.Visible = False
    Me.cmd_Data_Recover.Visible = False
    Me.cmd_Pass_Repair.Visible = False
    
    Me.cmd_Spec_Bill_Create.Visible = False '创建规格单
    Me.cmd_SpecBill_Export.Visible = False
    Me.cmd_OutStemperSpecBill.Visible = False
    Me.cmd_WholeBoxSign.Visible = False

    
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub


Private Sub Form_Unload(Cancel As Integer)
   Frm_Main.Check1.Value = 0
End Sub
12

frm_navigation.frm - 源码说明

本页面展示了「一个公司的客户财产管理系统vb源码」中的 frm_navigation.frm 源码文件，采用 FRM 编程语言编写，共 877 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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