frmproduct.frm

一个简单但功能强大的进货系统,同样适合用于毕业论文的设计

         EndProperty
         BeginProperty Column01 
            DataField       =   "商品名称"
            Caption         =   "商品名称"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "规格型号"
            Caption         =   "规格型号"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "类别"
            Caption         =   "类别"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "单位"
            Caption         =   "单位"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               ColumnAllowSizing=   0   'False
               ColumnWidth     =   1005.165
            EndProperty
            BeginProperty Column01 
               ColumnAllowSizing=   0   'False
               ColumnWidth     =   1005.165
            EndProperty
            BeginProperty Column02 
               ColumnAllowSizing=   0   'False
               ColumnWidth     =   1005.165
            EndProperty
            BeginProperty Column03 
               ColumnAllowSizing=   0   'False
               ColumnWidth     =   1005.165
            EndProperty
            BeginProperty Column04 
               ColumnAllowSizing=   0   'False
               ColumnWidth     =   494.929
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "frmProduct"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsProduct As ADODB.Recordset
Dim SQLProduct As String
Dim AddOrEdit As Boolean
Dim rsProMat As ADODB.Recordset
Dim cmdProduct As ADODB.Command
Dim strMaxNum As String


Private Sub CmdAct_Click(Index As Integer)
    Dim blnIsTrue As Boolean
    With rsProduct
        Select Case Index
            Case 0
                blnIsTrue = Save()
                If Not blnIsTrue Then
                    Exit Sub
                End If
                .UpdateBatch
                If AddOrEdit = True Then
                    rsProMat.Open
                    rsProMat.AddNew "商品编号", Me.TxtPrID.Text
                    rsProMat.UpdateBatch
                    rsProMat.Close
                End If
                .Filter = "商品编号<>''"
                If .RecordCount <> 0 Then
                
                .MoveLast
                End If
            Case 1
                .CancelUpdate
                .Filter = "商品编号<>''"
                If .RecordCount <> 0 Then
                    .MoveFirst
                End If
        End Select
    End With
    Call IsEdit(False)
    Me.DataGrid1.Refresh

End Sub

Private Sub CmdDep_Click(Index As Integer)
    Dim strsql As String
    Dim intNum As Integer
    Select Case Index
        Case 0
            AddOrEdit = True
            Call AddNew
        Case 1
            AddOrEdit = False
            Call IsEdit(True)
            Me.TxtPrID.SetFocus
        Case 2
            
        Case 3
            intNum = MsgBox("确认删除当前记录吗?", vbYesNo + vbQuestion, "删除确认")
            If intNum = vbYes Then
                With rsProduct
                    strsql = "delete from mat_head where 商品编号='" & Me.TxtPrID.Text & "'"
                    cmdProduct.CommandText = strsql
                    cmdProduct.Execute
                    .Delete
                    .UpdateBatch
                    If .RecordCount <> 0 Then
                        .MoveFirst
                    Else
                        For intNum = 1 To 4
                            Me.CmdDep(intNum).Enabled = False
                        Next
                    End If
                End With
            End If
            
        Case 4
            
        Case 5
            Unload Me
    End Select
    

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    
    EnterToTab KeyAscii
    
End Sub

Private Sub Form_Load()

    Set rsProduct = DEaccp.rsCom商品信息
    Set rsProMat = DEaccp.rsComMatHead
    Set cmdProduct = New Command
    cmdProduct.ActiveConnection = DEaccp.Conaccp
    cmdProduct.CommandType = adCmdText

    
    Call IsEdit(False)
    
End Sub

Private Sub AddNew()
    
    With rsProduct
        If .RecordCount = 0 Then
            strMaxNum = 0
        Else
            .MoveLast
            strMaxNum = rsProduct!商品编号
        End If
        .AddNew "商品编号", Format(strMaxNum + 1, "0#######")
        Call IsEdit(True)
        Me.TxtPrID.SetFocus
    
    End With
    
End Sub

Private Sub IsEdit(blnIsEdit As Boolean)
    
    Dim intNum As Integer
    Me.TxtPrID.Enabled = blnIsEdit
    Me.TxtPrName.Enabled = blnIsEdit
    Me.TxtPrClass.Enabled = blnIsEdit
    Me.TxtPrType.Enabled = blnIsEdit
    Me.TxtUnit.Enabled = blnIsEdit
    Me.TxtTest.Enabled = blnIsEdit
    For intNum = 0 To 1
        Me.CmdAct(intNum).Enabled = blnIsEdit
    Next
    For intNum = 0 To 5
        Me.CmdDep(intNum).Enabled = Not blnIsEdit
    Next
'
    If rsProduct.RecordCount = 0 Then
        For intNum = 1 To 4
            Me.CmdDep(intNum).Enabled = False
        Next
    End If
    
    
End Sub

Private Function Save() As Boolean
    
    If Trim(Me.TxtPrID.Text) = "" Then
        MsgBox "商品编号不能为空!", vbOKOnly + vbCritical, "添加商品错误"
        Me.TxtPrID.SetFocus
        Save = False
        Exit Function
    End If
    
    If Trim(Me.TxtPrName.Text) = "" Then
        MsgBox "商品名称不能为空!", vbOKOnly + vbCritical, "添加商品错误"
        Me.TxtPrName.SetFocus
        Save = False
        Exit Function
    End If
    
    If Trim(Me.TxtPrClass.Text) = "" Then
        MsgBox "商品类别不能为空!", vbOKOnly + vbCritical, "添加商品错误"
        Me.TxtPrClass.SetFocus
        Save = False
        Exit Function
    End If
    
    If Trim(Me.TxtPrType.Text) = "" Then
        MsgBox "规格型号不能为空!", vbOKOnly + vbCritical, "添加商品错误"
        Me.TxtPrType.SetFocus
        Save = False
        Exit Function
    End If

    Save = True
    

End Function

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If CmdDep(5).Enabled = False Then
        MsgBox "请先退出编辑状态后再退出该程序!", , "提示"
        Cancel = True
    End If
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    rsProduct.Close
    Set rsProduct = Nothing
    
End Sub