⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frmain.frm

📁 此为我2001年为东莞建发楦头开发的企业管理软件他们使用至今,望斑竹指教! 其他会员最好不要随意下载,需经斑竹同意或我本人同意,谢谢!
💻 FRM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
         Index           =   5
      End
      Begin VB.Menu zl 
         Caption         =   "&6.大货生产单查询"
         Index           =   6
      End
   End
   Begin VB.Menu main 
      Caption         =   "【&E.结束作业】"
      Index           =   7
      Begin VB.Menu exit 
         Caption         =   "&1.重新登录"
         Index           =   1
      End
      Begin VB.Menu exit 
         Caption         =   "&2.更改密码"
         Index           =   2
      End
      Begin VB.Menu exit 
         Caption         =   "&3.退出到Win98状态"
         Index           =   3
      End
   End
End
Attribute VB_Name = "frmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
    Option Explicit

Private Sub BASE_Click(Index As Integer)
    Select Case Index
        Case 1
            Me.MousePointer = 11
           frmclient.Show
            Me.MousePointer = 0
        Case 2
            Me.MousePointer = 11
           frmclientprint.Show
           Me.MousePointer = 0
        Case 3
            Me.MousePointer = 11
           frmemployee.Show
           Me.MousePointer = 0
        Case 4
            Me.MousePointer = 11
            frmsnmas.Show
            Me.MousePointer = 0
        Case 5
            Me.MousePointer = 11
            frmMaterial.Show
            Me.MousePointer = 0
        Case 6
            Me.MousePointer = 11
           frmType1.Show
           Me.MousePointer = 0
        Case 7
            Me.MousePointer = 11
           frmType2.Show
           Me.MousePointer = 0
        Case 8
            Me.MousePointer = 11
            frmType3.Show
            Me.MousePointer = 0
        Case 9
            Me.MousePointer = 11
            frmFangXiang.Show
            Me.MousePointer = 0
        Case 10
            Me.MousePointer = 11
            frmScope.Show
            Me.MousePointer = 0
        Case 11
            Me.MousePointer = 11
            frmbackup.Show 1
            Me.MousePointer = 0
        Case 12
            Me.MousePointer = 11
            frmdelete.Show 1
            Me.MousePointer = 0
        Case 14
            Me.MousePointer = 11
            FrmClientTzdj.Show
            Me.MousePointer = 0
    End Select
End Sub

Private Sub cube_Click(Index As Integer)
    Select Case Index
        Case 1
            Me.MousePointer = 11
            FrmPai.Show
            Me.MousePointer = 0
        Case 2
            Me.MousePointer = 11
           checkform = "stk"
           FrmCubeStk.Show
           Me.MousePointer = 0
        Case 3
            Me.MousePointer = 11
            frmeveryday.Show
            Me.MousePointer = 0
        Case 4
            Me.MousePointer = 11
            frmeveryprint.Show 1
            Me.MousePointer = 0
        Case 5
            Me.MousePointer = 11
            frmInput.Show
            Me.MousePointer = 0
        Case 6
            Me.MousePointer = 11
            frmOutput.Show
            Me.MousePointer = 0
        Case 7
            Me.MousePointer = 11
            frmReturn.Show
            Me.MousePointer = 0
        Case 8
            Me.MousePointer = 11
            frmQueryInput.Show
            Me.MousePointer = 0
        Case 9
            Me.MousePointer = 11
            frmQueryOutput.Show
            Me.MousePointer = 0
        Case 10
            Me.MousePointer = 11
            frmQueryReturn.Show
            Me.MousePointer = 0
  End Select

End Sub

Private Sub exit_Click(Index As Integer)
    Select Case Index
        Case 1
            Me.MousePointer = 11
            frmlogin.Show 1
            Me.MousePointer = 0
        Case 2
            If Len(opvalue) <> 0 Then
            Me.MousePointer = 11
                frmchange.Show 1
            Me.MousePointer = 0
            End If
        Case 3
            Me.MousePointer = 11
            frmexit.Show 1
            Me.MousePointer = 0
    End Select
End Sub

Private Sub GR_Click(Index As Integer)
    Select Case Index
        Case 1
            Me.MousePointer = 11
            frmdin.Show
            frmdin.SetFocus
            Me.MousePointer = 0
        Case 2
            Me.MousePointer = 11
           frmOrderprint.Show 1
           Me.MousePointer = 0
        Case 3
            Me.MousePointer = 11
           frmsproduce1.Show
           frmsproduce1.SetFocus
           Me.MousePointer = 0
        Case 4
            Me.MousePointer = 11
           Call Preport("样品生产单明细表", "sp1")
           Me.MousePointer = 0
        Case 5
            Me.MousePointer = 11
           Call Preport("样品生产单汇总表", "sp1")
           Me.MousePointer = 0
        Case 6
            Me.MousePointer = 11
           frmsproduce2.Show
           frmsproduce2.SetFocus
           Me.MousePointer = 0
        Case 7
            Me.MousePointer = 11
            Call Preport("大货生产单明细表", "sp2")
            Me.MousePointer = 0
        Case 8
            Me.MousePointer = 11
            Call Preport("大货生产单汇总表", "sp2")
            Me.MousePointer = 0
        Case 9
            Me.MousePointer = 11
           Call Preport("订单汇总", "sp2")
           Me.MousePointer = 0
        Case 10
            Me.MousePointer = 11
           Call Preport("客户月汇总", "sp2")
           Me.MousePointer = 0
        Case 11
            Me.MousePointer = 11
            frmPchart.Show
            frmPchart.SetFocus
            Me.MousePointer = 0
        Case 12
            Me.MousePointer = 11
            PCheck = "small"
            frmDinprint.Show 1
            Me.MousePointer = 0
        Case 13
            Me.MousePointer = 11
            PCheck = "big"
            frmDinprint.Show 1
            Me.MousePointer = 0
        Case 14
            Me.MousePointer = 11
            PCheck = "ca"
            frmDinprint.Show 1
            Me.MousePointer = 0
        Case 15
            Me.MousePointer = 11
            PCheck = "sheng"
            frmCubeprint.Show 1
            Me.MousePointer = 0

End Select
End Sub

Private Sub kf_Click(Index As Integer)
 Select Case Index
   Case 1
            Me.MousePointer = 11
            frmkf.Show
            frmkf.SetFocus
            Me.MousePointer = 0
   Case 2
            Me.MousePointer = 11
            FrmkfFind.Show
            FrmkfFind.SetFocus
            Me.MousePointer = 0
   Case 3
            Me.MousePointer = 11
            frmkfprint.Show 1
            Me.MousePointer = 0
   Case 4
            Me.MousePointer = 11
            FrmTapFind.Show
            FrmTapFind.SetFocus
            Me.MousePointer = 0
   Case 5
            Me.MousePointer = 11
            frmkftotal.Show 1
            Me.MousePointer = 0
End Select
   
End Sub

Private Sub MDIForm_Load()
    exitflag = "F"
    frmain.Caption = "建发鞋楦厂电脑管理系统  " & "  今天是:" & Format(Date, "dddddd") & "  现在时间:" & Format(Time, "H:mm:ss")
End Sub

Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then PopupMenu main(1)
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbFormControlMenu Then Cancel = True
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
Unload Me
End Sub

Private Sub Timer1_Timer()
    frmain.Caption = "建发鞋楦厂电脑管理系统  操作员:" & namevalue & "  今天是:" & Format(Date, "dddddd") _
        & "     现在时间:" & Format(Time, "h:mm")
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
        Case 1
            Me.MousePointer = 11
            frmclient.Show
            frmclient.SetFocus
            Me.MousePointer = 0
        Case 2
            Me.MousePointer = 11
            frmdin.Show
            frmdin.SetFocus
            Me.MousePointer = 0
        Case 3
            Me.MousePointer = 11
            frmsproduce1.Show
            frmsproduce1.SetFocus
            Me.MousePointer = 0
        Case 4
            Me.MousePointer = 11
            frmsproduce2.Show
            frmsproduce2.SetFocus
            Me.MousePointer = 0
        Case 5
            Me.MousePointer = 11
            frmtimas.Show
            frmtimas.SetFocus
            Me.MousePointer = 0
        Case 6
            Me.MousePointer = 11
            frmkf.Show
            frmkf.SetFocus
            Me.MousePointer = 0
        Case 7
            Me.MousePointer = 11
            frmqinmas.Show
            frmqinmas.SetFocus
            Me.MousePointer = 0
        Case 8
            Me.MousePointer = 11
            FrmkfFind.Show
            FrmkfFind.SetFocus
            Me.MousePointer = 0
        Case 9
            Me.MousePointer = 11
            frmexit.Show 1
            Me.MousePointer = 0
    End Select
End Sub

Private Sub tq_Click(Index As Integer)
    Select Case Index
        Case 1
            Me.MousePointer = 11
            frmtimas.Show
            frmtimas.SetFocus
            Me.MousePointer = 0
        Case 2
            Me.MousePointer = 11
            frmTiprint.Show 1
            Me.MousePointer = 0
        Case 3
            Me.MousePointer = 11
            frmqinmas.Show
            frmqinmas.SetFocus
            Me.MousePointer = 0
        Case 4
            Me.MousePointer = 11
            frmqinprint.Show 1
            Me.MousePointer = 0
        Case 5
            Me.MousePointer = 11
            frmqincompare.Show 1
            Me.MousePointer = 0
    End Select
End Sub

Private Sub zl_Click(Index As Integer)
    Select Case Index
        Case 1
            Me.MousePointer = 11
            FrmCubeClient.Show
            Me.MousePointer = 0
        Case 2
            Me.MousePointer = 11
            FrmClientCX.Show
            Me.MousePointer = 0
        Case 3
            Me.MousePointer = 11
            frmscmodi.Show
            Me.MousePointer = 0
        Case 4
            Me.MousePointer = 11
            FrmScFind.Show
            Me.MousePointer = 0
        Case 5
            Me.MousePointer = 11
            frmquerysproduce1.Show
            Me.MousePointer = 0
        Case 6
            Me.MousePointer = 11
            frmquerysproduce2.Show
            Me.MousePointer = 0
    End Select
End Sub
12

⌨️ 快捷键说明

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