planadd.frm

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

      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "产品型号"
      Height          =   180
      Index           =   4
      Left            =   3960
      TabIndex        =   8
      Top             =   1995
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "表计类型"
      Height          =   180
      Index           =   3
      Left            =   360
      TabIndex        =   7
      Top             =   1995
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "客户名称"
      Height          =   180
      Index           =   2
      Left            =   360
      TabIndex        =   5
      Top             =   1515
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "批次号"
      Height          =   180
      Index           =   1
      Left            =   3960
      TabIndex        =   4
      Top             =   555
      Width           =   540
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "计划单号"
      Height          =   180
      Index           =   0
      Left            =   360
      TabIndex        =   2
      Top             =   555
      Width           =   720
   End
End
Attribute VB_Name = "PlanAdd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public opTypeIsSearch As Boolean
Public TaskPlanID_9 As String  '全局调用的计划单号

Private Sub Combo1_Click()
  MeterTypeToCombo Combo2, Combo1.Text
End Sub

Private Sub Command_Click(Index As Integer)
 TaskPlanID_9 = Trim(Text1.Text) & AddZero(2 - Len(Trim(Text2.Text))) & Trim(Text2.Text)
 Select Case Index
    Case 4
       Unload Me
    Case 1
       Plan_Add
    Case 2
       Plan_Modify TaskPlanID_9
    Case 3
       Plan_Del TaskPlanID_9
    Case 5
       TaskPlanID_9 = Trim(Text1.Text) & AddZero(2 - Len(Trim(Text2.Text))) & Trim(Text2.Text)
       Unload Me
 End Select
  
End Sub

Private Sub Form_Load()
  
  Command(1).Visible = IIf(opTypeIsSearch = True, False, True)
  Command(2).Visible = IIf(opTypeIsSearch = True, False, True)
  Command(3).Visible = IIf(opTypeIsSearch = True, False, True)
  Command(5).Visible = IIf(opTypeIsSearch = True, True, False)
  Label2.Caption = IIf(opTypeIsSearch = True, "计划信息查询", "计划信息添加")
  
  Me.Left = (Screen.Width - Me.Width) / 2
  Me.Top = (Screen.Height - Me.Height) / 2
  
  DepartToCombo Combo1
  
  ConvertFont Me
  
End Sub

Private Sub Text1_Change()
  Call Text2_Change
End Sub

Private Sub Text1_GotFocus()
  txtSelAll Text1
End Sub

Private Sub Text1_LostFocus()
  If Trim(Text1.Text) = "" Then Exit Sub
  If Len(Trim(Text1.Text)) < 7 Then Text1.Text = AddZero(7 - Len(Trim(Text1.Text))) & Trim(Text1.Text)
  DisplaySubPlan Trim(Text1.Text), Text2
End Sub

Private Sub Text2_Change()
  Dim JHD As String
  JHD = Trim(Text1.Text) & AddZero(2 - Len(Trim(Text2.Text))) & Trim(Text2.Text)
  If Len(Trim(Text1.Text)) = 7 And Len(Trim(Text2.Text)) <> 0 And IsNumeric(Text1.Text) = True And IsNumeric(Text2.Text) = True Then Plan_Display (JHD)
End Sub

Private Sub Text2_Click()
  Call Text2_Change
End Sub

Private Sub Text2_LostFocus()
If Len(Trim(Text2.Text)) < 2 Then Text2.Text = AddZero(2 - Len(Trim(Text2.Text))) & Trim(Text2.Text)
End Sub

Private Sub Text4_LostFocus()
If IsNumeric(Text4.Text) = False Then
  MsgBox "输入错误", vbInformation, "提示"
  txtSelAll Text4
End If
End Sub

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

Private Sub Plan_Display(PlanID_9 As String)
'计划单显示
    SQL = "select * from 计划信息 where 计划单号='" & Mid(PlanID_9, 1, 7) & "' and 批次号='" & Mid(PlanID_9, 8, 2) & "'"
    If rs.State = 1 Then rs.Close
    rs.Open SQL, DBConn, adOpenKeyset, adLockOptimistic, adCmdText
    If Not rs.EOF Then
        Text3.Text = Trim(rs.Fields("客户名称").Value)
        Combo2.Text = Trim(rs.Fields("表计类型").Value)
        Combo3.Text = Trim(rs.Fields("产品型号").Value)
        Text4.Text = Trim(rs.Fields("订货数量").Value)
        Combo4.Text = Trim(rs.Fields("电压规格").Value)
        Combo5.Text = Trim(rs.Fields("电流规格").Value)
        Combo6.Text = Trim(rs.Fields("电表常数").Value)
        Combo7.Text = Trim(rs.Fields("等级").Value)
        Combo1.Text = Trim(rs.Fields("部门名称").Value)
    End If
End Sub

Private Sub Plan_Add()
'计划单添加
If MsgBox("是否确定添加计划信息", vbInformation Or vbYesNo, "提示") = vbYes Then
 If TestPlanID(Trim(Text1.Text) & AddZero(2 - Len(Trim(Text2.Text))) & Trim(Text2.Text)) = False Then
    If rs.State = 1 Then rs.Close
    rs.Open "计划信息", DBConn, adOpenKeyset, adLockOptimistic, adCmdTable
    rs.AddNew
    rs.Fields("计划单号").Value = Trim(Text1.Text)
    rs.Fields("批次号").Value = AddZero(2 - Len(Trim(Text2.Text))) & Trim(Text2.Text)
    rs.Fields("客户名称").Value = Trim(Text3.Text)
    rs.Fields("表计类型").Value = Trim(Combo2.Text)
    rs.Fields("产品型号").Value = Trim(Combo3.Text)
    rs.Fields("订货数量").Value = Trim(Text4.Text)
    rs.Fields("电压规格").Value = Trim(Combo4.Text)
    rs.Fields("电流规格").Value = Trim(Combo5.Text)
    rs.Fields("电表常数").Value = Trim(Combo6.Text)
    rs.Fields("等级").Value = Trim(Combo7.Text)
    rs.Fields("部门名称").Value = Trim(Combo1.Text)
    rs.Update
    MsgBox "计划信息添加完成", vbInformation, "提示"
 Else
    MsgBox "计划信息已经存在", vbInformation, "提示"
 End If
End If
End Sub

Private Sub Plan_Modify(PlanID_9 As String)
'计划单修改
If MsgBox("是否确定修改计划信息", vbInformation Or vbYesNo, "提示") = vbYes Then
    SQL = "select * from 计划信息 where 计划单号='" & Mid(PlanID_9, 1, 7) & "' and 批次号='" & Mid(PlanID_9, 8, 2) & "'"
    If rs.State = 1 Then rs.Close
    rs.Open SQL, DBConn, adOpenKeyset, adLockOptimistic, adCmdText
    If Not rs.EOF Then
        rs.Fields("客户名称").Value = Trim(Text3.Text)
        rs.Fields("表计类型").Value = Trim(Combo2.Text)
        rs.Fields("产品型号").Value = Trim(Combo3.Text)
        rs.Fields("订货数量").Value = Trim(Text4.Text)
        rs.Fields("电压规格").Value = Trim(Combo4.Text)
        rs.Fields("电流规格").Value = Trim(Combo5.Text)
        rs.Fields("电表常数").Value = Trim(Combo6.Text)
        rs.Fields("等级").Value = Trim(Combo7.Text)
        rs.Fields("部门名称").Value = Trim(Combo1.Text)
        rs.Update
        MsgBox "计划信息修改完成", vbInformation, "提示"
   Else
        MsgBox "计划信息不存在", vbInformation, "提示"
   End If
End If
End Sub

Private Sub Plan_Del(PlanID_9 As String)
'计划单删除
If MsgBox("是否确定删除计划信息", vbInformation Or vbYesNo, "提示") = vbYes Then
    SQL = "select * from 计划信息 where 计划单号='" & Mid(PlanID_9, 1, 7) & "' and 批次号='" & Mid(PlanID_9, 8, 2) & "'"
    If rs.State = 1 Then rs.Close
    rs.Open SQL, DBConn, adOpenKeyset, adLockOptimistic, adCmdText
    If Not rs.EOF Then
        rs.Fields("客户名称").Value = Trim(Text3.Text)
        rs.Fields("表计类型").Value = Trim(Combo2.Text)
        rs.Fields("产品型号").Value = Trim(Combo3.Text)
        rs.Fields("订货数量").Value = Trim(Text4.Text)
        rs.Fields("电压规格").Value = Trim(Combo4.Text)
        rs.Fields("电流规格").Value = Trim(Combo5.Text)
        rs.Fields("电表常数").Value = Trim(Combo6.Text)
        rs.Fields("等级").Value = Trim(Combo7.Text)
        rs.Fields("部门名称").Value = Trim(Combo1.Text)
        rs.Update
        MsgBox "计划信息成功删除", vbInformation, "提示"
   Else
        MsgBox "计划信息不存在", vbInformation, "提示"
   End If
End If
End Sub

Private Sub DisplaySubPlan(PlanID_7 As String, combo As ComboBox)
'根据确定计划单号信息添加批次号信息
    combo.Clear
    SQL = "select * from 计划信息 where 计划单号='" & PlanID_7 & "'"
    If rs.State = 1 Then rs.Close
    rs.Open SQL, DBConn, adOpenKeyset, adLockOptimistic, adCmdText
    If Not rs.EOF Then
         'Debug.Print PlanID_7 & "   " & rs.RecordCount
         rs.MoveFirst
         Dim k
         For k = 1 To rs.RecordCount
           combo.AddItem Trim(rs.Fields("批次号").Value), k - 1
           rs.MoveNext
         Next k
    End If
    
End Sub