frmbiggenus.frm

网上销售源代码

         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "关闭"
            Key             =   "quit"
            Object.ToolTipText     =   "关闭"
            ImageIndex      =   19
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmBigGenus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public P_SID As String

Private Sub tlbOperate_ButtonClick(ByVal Button As MSComctlLib.Button)
 Select Case Button.Key
        Case "update"
            '保存数据
                If P_SID = "" Then
                    Sava
                Else
                    Update
                End If
            
        Case "cancel"
            '撤消
            InitClear
        
        Case "first"
            '首页
            frmMQBigGenus.mintCurPage = 1
            gFillFg frmMQBigGenus.fg, frmMQBigGenus.mrstDriveRoom, frmMQBigGenus.tlbOperate.Buttons, frmMQBigGenus.mintCurPage, frmMQBigGenus.mintPageSize
            P_SID = frmMQBigGenus.fg.TextMatrix(1, 1)
            
            frmMQBigGenus.fg.TextMatrix(0, 0) = "序号"
            frmMQBigGenus.ShowID
            
            If frmMQBigGenus.mintCurPage = 1 Then
                If frmMQBigGenus.fg.Row = 1 Then
                    Me.tlbOperate.Buttons("first").Enabled = False
                    Me.tlbOperate.Buttons("prev").Enabled = False
                    Me.tlbOperate.Buttons("next").Enabled = True
                    Me.tlbOperate.Buttons("last").Enabled = True
                End If
            End If
            
        Case "prev"
            '前页
            If frmMQBigGenus.fg.Row = frmMQBigGenus.fg.Rows - 1 Then
                If frmMQBigGenus.mintCurPage <= frmMQBigGenus.mrstDriveRoom.PageCount Then
                    frmMQBigGenus.mintCurPage = frmMQBigGenus.mintCurPage - 1
                    gFillFg frmMQBigGenus.fg, frmMQBigGenus.mrstDriveRoom, frmMQBigGenus.tlbOperate.Buttons, frmMQBigGenus.mintCurPage, frmMQBigGenus.mintPageSize
                    P_SID = frmMQBigGenus.fg.TextMatrix(frmMQBigGenus.fg.Rows - 1, 1)
                    frmMQBigGenus.fg.TextMatrix(0, 0) = "序号"
                    frmMQBigGenus.ShowID
                End If
            End If
            
            If frmMQBigGenus.mintCurPage = 1 Then
                If frmMQBigGenus.fg.Row = 1 Then
                    Me.tlbOperate.Buttons("first").Enabled = False
                    Me.tlbOperate.Buttons("prev").Enabled = False
                    Me.tlbOperate.Buttons("next").Enabled = True
                    Me.tlbOperate.Buttons("last").Enabled = True
                End If
            End If
        
        Case "next"
            '下页
            If frmMQBigGenus.fg.Row = frmMQBigGenus.fg.Rows - 1 Then
                frmMQBigGenus.mintCurPage = frmMQBigGenus.mintCurPage + 1
                gFillFg frmMQBigGenus.fg, frmMQBigGenus.mrstDriveRoom, frmMQBigGenus.tlbOperate.Buttons, frmMQBigGenus.mintCurPage, frmMQBigGenus.mintPageSize
                P_SID = frmMQBigGenus.fg.TextMatrix(1, 1)
                frmMQBigGenus.fg.TextMatrix(0, 0) = "序号"
                frmMQBigGenus.ShowID
            End If
            
            If frmMQBigGenus.mintCurPage = frmMQBigGenus.mrstDriveRoom.PageCount Then
                If frmMQBigGenus.fg.Row = frmMQBigGenus.fg.Rows - 1 Then
                    Me.tlbOperate.Buttons("first").Enabled = True
                    Me.tlbOperate.Buttons("prev").Enabled = True
                    Me.tlbOperate.Buttons("next").Enabled = False
                    Me.tlbOperate.Buttons("last").Enabled = False
                End If
            End If
            
        Case "last"
            '末页
            frmMQBigGenus.mintCurPage = -1
            gFillFg frmMQBigGenus.fg, frmMQBigGenus.mrstDriveRoom, frmMQBigGenus.tlbOperate.Buttons, frmMQBigGenus.mintCurPage, frmMQBigGenus.mintPageSize
            P_SID = frmMQBigGenus.fg.TextMatrix(frmMQBigGenus.fg.Rows - 1, 1)
            frmMQBigGenus.fg.TextMatrix(0, 0) = "序号"
            frmMQBigGenus.ShowID
               
            If frmMQBigGenus.mintCurPage = frmMQBigGenus.mrstDriveRoom.PageCount Then
                If frmMQBigGenus.fg.Row = frmMQBigGenus.fg.Rows - 1 Then
                    Me.tlbOperate.Buttons("first").Enabled = True
                    Me.tlbOperate.Buttons("prev").Enabled = True
                    Me.tlbOperate.Buttons("next").Enabled = False
                    Me.tlbOperate.Buttons("last").Enabled = False
                End If
            End If
            
        Case "quit"
            Unload Me
     End Select
End Sub

Private Sub Sava()
'保存数据
Dim sql As String
Dim Asql As String
Dim o As Integer
Dim Ars As New ADODB.Recordset

If Trim(txtGoodsBigTypeID.Text) = "" Then
    MsgBox "商品大类编号不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtGoodsBigTypeName.Text) = "" Then
    MsgBox "商品大类名称不能为空", vbInformation, "提示"
    Exit Sub
End If

'编号是否存在
sql = "Select GoodsBigTypeID from GoodsBigGenus Where GoodsBigTypeID='" & Trim(txtGoodsBigTypeID.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Not Ars.EOF Then
    MsgBox "商品大类编号已存在，不能重复添加", vbInformation, "提示"
    Exit Sub
End If

'名称是否存在
sql = "Select GoodsBigTypeName from GoodsBigGenus Where GoodsBigTypeName='" & Trim(txtGoodsBigTypeName.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Not Ars.EOF Then
    MsgBox "商品大类名称已存在，不能重复添加", vbInformation, "提示"
    Exit Sub
End If

On Error GoTo ErrShow
SQLDB.BeginTrans
    '添加主表信息
    Asql = "Insert into GoodsBigGenus(GoodsBigTypeID,GoodsBigTypeName,Remark) " & _
           "Values('" & Trim(txtGoodsBigTypeID.Text) & "','" & Trim(txtGoodsBigTypeName.Text) & "'," & _
           "'" & Trim(txtRemark.Text) & "')"
    SQLDB.Execute Asql
SQLDB.CommitTrans
InitClear
frmMQBigGenus.QuerySalesRoom
MsgBox "添加成功", vbInformation, "提示"
Exit Sub
ErrShow:
    SQLDB.RollbackTrans
    MsgBox "添加商品大类信息出错" & Err.Description, vbInformation, "提示"
End Sub

Private Sub Update()
'修改数据
Dim sql As String
Dim Asql As String
Dim o As Integer
Dim Ars As New ADODB.Recordset

If Trim(txtGoodsBigTypeName.Text) = "" Then
    MsgBox "商品大类名称不能为空", vbInformation, "提示"
    Exit Sub
End If

'名称是否存在
sql = "Select GoodsBigTypeName from GoodsBigGenus Where GoodsBigTypeID='" & Trim(txtGoodsBigTypeID.Text) & "' AND  GoodsBigTypeName<>'" & Trim(txtGoodsBigTypeName.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Not Ars.EOF Then
    MsgBox "商品大类名称已存在，不能重复添加", vbInformation, "提示"
    Exit Sub
End If

On Error GoTo ErrShow
SQLDB.BeginTrans
    '添加主表信息
    Asql = "Update GoodsBigGenus set GoodsBigTypeName='" & Trim(txtGoodsBigTypeName.Text) & "'," & _
           "Remark='" & Trim(txtRemark.Text) & "' Where GoodsBigTypeID='" & Trim(txtGoodsBigTypeID.Text) & "'"
    SQLDB.Execute Asql
SQLDB.CommitTrans
InitClear
frmMQBigGenus.QuerySalesRoom
MsgBox "添加成功", vbInformation, "提示"
Exit Sub
ErrShow:
    SQLDB.RollbackTrans
    MsgBox "添加商品大类信息出错" & Err.Description, vbInformation, "提示"
End Sub

Private Sub InitClear()
'清空文本柜数据
    txtGoodsBigTypeID.Text = ""
    txtGoodsBigTypeName.Text = ""
    txtRemark.Text = ""
End Sub