mainform.frm

生产计划管理等信息 可以查询计划完成情况等

      End
      Begin VB.Menu fsdf 
         Caption         =   "休息时间"
      End
      Begin VB.Menu line0004 
         Caption         =   "-"
      End
      Begin VB.Menu appexit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu SCJH 
      Caption         =   "生产计划"
      Begin VB.Menu JHTJ 
         Caption         =   "计划添加"
      End
      Begin VB.Menu line0001 
         Caption         =   "-"
      End
      Begin VB.Menu JHAP 
         Caption         =   "计划安排"
         Begin VB.Menu D_JHAP 
            Caption         =   "单计划安排"
         End
         Begin VB.Menu fgr4g 
            Caption         =   "-"
         End
         Begin VB.Menu DJHAP 
            Caption         =   "多计划安排"
         End
      End
   End
   Begin VB.Menu cngs 
      Caption         =   "产能估算"
      Begin VB.Menu RJHPG 
         Caption         =   "每日计划评估"
      End
   End
   Begin VB.Menu XTBZ 
      Caption         =   "系统帮助"
      Begin VB.Menu GY 
         Caption         =   "关于"
      End
      Begin VB.Menu line0002 
         Caption         =   "-"
      End
      Begin VB.Menu BZ 
         Caption         =   "帮助"
      End
   End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Const SPLT_WDTH As Integer = 3
Private currSplitPosX As Long
Dim CTRL_OFFSET As Integer
Dim SPLT_COLOUR As Long

Private Sub appexit_Click()
  Unload Me
End Sub

Private Sub bjlx_Click()
  MeterType.Show
End Sub

Private Sub BZ_Click()
    If Dir(App.Path & "\readme.txt") <> "" Then StartDoc App.Path & "\readme.txt"
End Sub

Private Sub D_JHAP_Click()
    PlanArrangements.DspIsModify = False
    PlanArrangements.Show
End Sub

Private Sub DJHAP_Click()
    MutilPlanArrangements.Show
End Sub

Private Sub Form_Load()

 ' Call DrawMenu(Me)

  CTRL_OFFSET = 5
  SPLT_COLOUR = &H808080
  currSplitPosX = &H7FFFFFFF

  Me.Left = (Screen.Width - Me.Width) / 2
  Me.Top = (Screen.Height - Me.Height) / 2

  Me.Show
  DoEvents

'  picLOAD.Visible = True
'  picLOAD.Left = (Me.Width - picLOAD.Width) / 2
'  picLOAD.Top = (Me.Height - picLOAD.Height * 2) / 2
'  picLOAD.ZOrder 0
'  DoEvents
'  InitSysTree_ByPlanArrangements JH_TreeView
'  picLOAD.Visible = False

   ConvertFont Me
   
   

End Sub

Private Sub Form_Resize()
On Error Resume Next

  Image1.Top = 0
  Image1.Left = 0
  Image1.Width = Me.ScaleWidth
  Image1.Height = 1140 * 4 / 7
  
  JH_TreeView.Left = 0
  JH_TreeView.Top = Image1.Top + Image1.Height
  JH_TreeView.Height = Me.ScaleHeight - JH_TreeView.Top
  
  Splitter.Left = JH_TreeView.Width
  Splitter.Top = JH_TreeView.Top
  Splitter.Height = JH_TreeView.Height

  Toolbar1.Top = Image1.Top + Image1.Height
  Toolbar1.Left = Splitter.Left + Splitter.Width
  Toolbar1.Width = Me.ScaleWidth - Toolbar1.Left

  Picture1.Top = Toolbar1.Top + Toolbar1.Height
  Picture1.Left = JH_TreeView.Width + 10
  Picture1.Width = Me.ScaleWidth - Picture1.Left
  
  JH_ListView.Top = Picture1.Top + Picture1.Height
  JH_ListView.Left = Toolbar1.Left
  JH_ListView.Width = Me.ScaleWidth - Picture1.Left
  JH_ListView.Height = Me.ScaleHeight - JH_ListView.Top
  
End Sub

Private Sub fsdf_Click()
    TimeConfig.Show
End Sub

Private Sub gxpz_Click()
    ProcessesConfig.Show
End Sub

Private Sub GY_Click()
   frmAbout.Show vbModal
End Sub

Private Sub JH_ListView_DblClick()
On Error GoTo ex
If JH_ListView.SelectedItem.Index > 0 Then
    PlanArrangements.DspIsModify = True
    PlanArrangements.Text1.Text = JH_ListView.SelectedItem.Text
    PlanArrangements.Text2.Text = JH_ListView.SelectedItem.SubItems(1)
    PlanArrangements.Text4.Text = JH_ListView.SelectedItem.SubItems(2)
    PlanArrangements.Text3.Text = JH_ListView.SelectedItem.SubItems(10)
    IniFlex PlanArrangements.Grid, JH_ListView.SelectedItem.Text & JH_ListView.SelectedItem.SubItems(1)
    PlanArrangements.LoadConfig PlanArrangements.Grid, JH_ListView.SelectedItem.Text & JH_ListView.SelectedItem.SubItems(1), JH_ListView.SelectedItem.SubItems(2)
    PlanArrangements.Show
End If
Exit Sub
ex:
End Sub

Private Sub JH_TreeView_NodeClick(ByVal Node As MSComctlLib.Node)
    If AssertNodeIsBanzu(Node.Text) = True Then '是班组
       InfoToListview_ByDepartment JH_ListView, Node.Parent.Text, Node.Text, CDate(Mid(Node.Parent.Parent.Parent.Parent.Text, 1, 4) & "-" & Mid(Node.Parent.Parent.Parent.Text, 1, 2) & "-" & Mid(Node.Parent.Parent.Text, 1, 2))
    ElseIf Len(Node.Text) = 2 And IsNumeric(Node.Text) = True Then '是子批次
       InfoToListview_BySubPlan JH_ListView, Node.Parent.Text, Node.Text
    ElseIf Len(Node.Text) = 9 And IsNumeric(Node.Text) = True Then '是整个批次
       InfoToListview_ByPlan JH_ListView, Node.Text
    End If
End Sub

Private Sub JHTJ_Click()
  PlanAdd.opTypeIsSearch = False
  PlanAdd.Show
End Sub

Private Sub RJHPG_Click()
   Capacity.Show
End Sub

Private Sub sczq_Click()
   ProductCycle.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Caption
       Case "计划单添加"
           PlanAdd.opTypeIsSearch = False
           PlanAdd.Show
       Case "日产能估算"
           Capacity.Show
       Case "日计划打印"
           DayPlanPrint.Show
    End Select
End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
  JH_ListView.ListItems.Clear
  
  Select Case ButtonMenu.Text
  
     Case "按计划安排日期"
     
            picLOAD.Visible = True
            picLOAD.Left = (Me.Width - picLOAD.Width) / 2
            picLOAD.Top = (Me.Height - picLOAD.Height * 2) / 2
            picLOAD.ZOrder 0
            DoEvents
            InitSysTree_ByPlanArrangements JH_TreeView
            picLOAD.Visible = False
            
    Case "按计划单信息"
    
            picLOAD.Visible = True
            picLOAD.Left = (Me.Width - picLOAD.Width) / 2
            picLOAD.Top = (Me.Height - picLOAD.Height * 2) / 2
            picLOAD.ZOrder 0
            DoEvents
            InitSysTree_ByPlanID JH_TreeView
            picLOAD.Visible = False
    
    Case "确定计划查询"
    
            Dim JHDH As String
            JHDH = InputBox("请输入7位计划单号", "信息")
            picLOAD.Visible = True
            picLOAD.Left = (Me.Width - picLOAD.Width) / 2
            picLOAD.Top = (Me.Height - picLOAD.Height * 2) / 2
            picLOAD.ZOrder 0
            DoEvents
            InitSysTree_ByPlan JH_TreeView, JHDH
            picLOAD.Visible = False
            
    Case "按客户查询"
    
            Dim KH As String
            KH = InputBox("请输入7位计划单号", "信息")
            picLOAD.Visible = True
            picLOAD.Left = (Me.Width - picLOAD.Width) / 2
            picLOAD.Top = (Me.Height - picLOAD.Height * 2) / 2
            picLOAD.ZOrder 0
            DoEvents
            InitSysTree_ByCustomer JH_TreeView, KH
            picLOAD.Visible = False
    
    Case "单计划安排"
    
            PlanArrangements.DspIsModify = False
            PlanArrangements.Show
            
    Case "多计划安排"
    
            MutilPlanArrangements.Show
            
  End Select
End Sub

'================================================================================================================

Private Sub Splitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

    If Button = vbLeftButton Then
    
    Splitter.BackColor = SPLT_COLOUR
    
    currSplitPosX = CLng(x)
    Else

    If currSplitPosX <> &H7FFFFFFF Then Splitter_MouseUp Button, Shift, x, y
    
    currSplitPosX = &H7FFFFFFF
    End If

End Sub

Private Sub Splitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

    If currSplitPosX& <> &H7FFFFFFF Then
    
    If CLng(x) <> currSplitPosX Then
    Splitter.Move Splitter.Left + x, CTRL_OFFSET + Image1.Height, SPLT_WDTH, ScaleHeight - (CTRL_OFFSET * 2) - Image1.Height
    currSplitPosX = CLng(x)
    
    End If
    
    End If

End Sub

Private Sub Splitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

    If currSplitPosX <> &H7FFFFFFF Then
    
    If CLng(x) <> currSplitPosX Then
        Splitter.Move Splitter.Left + x, CTRL_OFFSET + Image1.Height, SPLT_WDTH, ScaleHeight - (CTRL_OFFSET * 2) - Image1.Height
    End If
    
    currSplitPosX = &H7FFFFFFF
    
    Splitter.BackColor = &H8000000F
    
    If Splitter.Left > 60 And Splitter.Left < (ScaleWidth - 60) Then
    
    JH_TreeView.Width = Splitter.Left - JH_TreeView.Left
    
    ElseIf Splitter.Left < 60 Then
    JH_TreeView.Width = 60
    Else
    JH_TreeView.Width = ScaleWidth - 60
    End If
    Form_Resize
    End If

End Sub