frmmqcargo.frm

网上销售源代码

            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQCargo.frx":127E2
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQCargo.frx":12AFC
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQCargo.frx":133D6
            Key             =   ""
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmMQCargo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public mintCurPage      As Integer      '当前页
Public mintPageSize     As Integer      '每页多少行
Public mrstDriveRoom    As Recordset

Private Sub fg_DblClick()
If fg.TextMatrix(fg.Row, 1) = "" Then
    Exit Sub
End If

frmCargo.P_SID = fg.TextMatrix(fg.Row, 1)
frmCargo.txtCargoID.Enabled = False
frmCargo.txtCargoName.Enabled = False
frmCargo.txtRetailPrice.Enabled = False
frmCargo.txtCostPrice.Enabled = False
frmCargo.txtJobPrice.Enabled = False
frmCargo.txtTopStock.Enabled = False
frmCargo.txtNeapStock.Enabled = False

frmCargo.tlbOperate.Buttons("update").Enabled = False
frmCargo.tlbOperate.Buttons("cancel").Enabled = False
If mrstDriveRoom.PageCount = 1 Then
    frmCargo.tlbOperate.Buttons("first").Enabled = False
    frmCargo.tlbOperate.Buttons("prev").Enabled = False
    frmCargo.tlbOperate.Buttons("next").Enabled = False
    frmCargo.tlbOperate.Buttons("last").Enabled = False
    frmCargo.tlbOperate.Buttons("cancel").Enabled = False
Else
    
End If

frmCargo.Show 1

End Sub

Private Sub Form_Load()
    mintCurPage = 1
    mintPageSize = 1
    
    Initfg
    
    QuerySalesRoom
        
End Sub

Private Sub tlbOperate_ButtonClick(ByVal Button As MSComctlLib.Button)
     Select Case Button.Key
        Case "add"
            '添加
            frmCargo.P_SID = ""
            frmCargo.tlbOperate.Buttons("first").Enabled = False
            frmCargo.tlbOperate.Buttons("prev").Enabled = False
            frmCargo.tlbOperate.Buttons("next").Enabled = False
            frmCargo.tlbOperate.Buttons("last").Enabled = False
            frmCargo.Show 1
        
        Case "edit"
            '修改数据
            frmCargo.P_SID = Me.fg.TextMatrix(fg.Row, 1)
            frmCargo.txtCargoID.Enabled = False
            frmCargo.tlbOperate.Buttons("first").Enabled = False
            frmCargo.tlbOperate.Buttons("prev").Enabled = False
            frmCargo.tlbOperate.Buttons("next").Enabled = False
            frmCargo.tlbOperate.Buttons("last").Enabled = False
            frmCargo.Show 1
            
        Case "del"
            '删除
            If MsgBox("确实要删除吗！", vbYesNo, "询问") = vbYes Then
                Del (fg.TextMatrix(fg.Row, 1))
           End If
        Case "search"
            '搜索
            QuerySalesRoom
            
        Case "refresh"
            '刷新
            QuerySalesRoom
            
        Case "first"
            '首页
            mintCurPage = 1
            gFillFg fg, mrstDriveRoom, Me.tlbOperate.Buttons, mintCurPage, mintPageSize
            ShowID
            
        Case "prev"
            '前页
            If mintCurPage <= mrstDriveRoom.PageCount Then
                mintCurPage = mintCurPage - 1
                gFillFg fg, mrstDriveRoom, Me.tlbOperate.Buttons, mintCurPage, mintPageSize
                ShowID
            End If
            
        Case "next"
            '下页
            If mintCurPage + 1 <= mrstDriveRoom.PageCount Then
                mintCurPage = mintCurPage + 1
                gFillFg fg, mrstDriveRoom, Me.tlbOperate.Buttons, mintCurPage, mintPageSize
                ShowID
            End If
            
        Case "last"
            '末页
            mintCurPage = -1
            gFillFg fg, mrstDriveRoom, Me.tlbOperate.Buttons, mintCurPage, mintPageSize
            ShowID
            
        Case "preview"
            '预览
        
        Case "printout"
            '打印
            
        Case "quit"
            Unload Me
     End Select
End Sub

Public Sub Del(id As String)
'删除数据
On Error GoTo ErrShow
Dim sql As String
SQLDB.BeginTrans
    sql = "Delete Cargo Where CargoID='" & id & "'"
    SQLDB.Execute sql
SQLDB.CommitTrans

Initfg
QuerySalesRoom
MsgBox "删除成功", vbInformation, "提示"
Exit Sub
ErrShow:
    SQLDB.RollbackTrans
    MsgBox "删除" & id & "商品信息出错" & Err.Description, vbInformation, "提示"
    Exit Sub
End Sub

Public Sub QuerySalesRoom()
'查询所有门市信息
Dim sql As String

sql = "SELECT Cargo.CargoID AS 商品编号, Cargo.CargoName AS 商品名称, " & _
      "Cargo.GoodsBandID AS 品牌编号, GoodsBand.GoodsBandName AS 品牌名称," & _
      "GoodsBigGenus.GoodsBigTypeID AS 大类编号," & _
      "GoodsBigGenus.GoodsBigTypeName AS 大类名称," & _
      "GoodsSmallGenus.GoodsBigTypeID AS 小类编号," & _
      "GoodsSmallGenus.GoodsSmallTypeID AS 小类名称职, Cargo.Unit AS 单位," & _
      "Cargo.Color AS 颜色, Cargo.RetailPrice AS 零销单价, Cargo.CostPrice AS 成本单价," & _
      "Cargo.JobPrice AS 批发单价, Cargo.TopStock AS 最高库存," & _
      "Cargo.NeapStock AS 最低库存 " & _
      "FROM Cargo INNER JOIN " & _
      "GoodsBand ON Cargo.GoodsBandID = GoodsBand.GoodsBandID INNER JOIN " & _
      "GoodsBigGenus ON " & _
      "Cargo.GoodsBigTypeID = GoodsBigGenus.GoodsBigTypeID INNER JOIN " & _
      "GoodsSmallGenus ON " & _
      "Cargo.GoodsSmallTypeID = GoodsSmallGenus.GoodsSmallTypeID order by Cargo.id desc"
Set mrstDriveRoom = SQLDB.Execute(sql)
gFillFg fg, mrstDriveRoom, Me.tlbOperate.Buttons, mintCurPage, mintPageSize

fg.TextMatrix(0, 0) = "序号"
ShowID
End Sub

Public Sub Initfg()
    fg.Clear
    fg.Rows = 2
    fg.Cols = 16
    fg.FormatString = "序号  |<商品编号   |<商品名称       |<品牌编号       |<品牌名称       |<大类编号       |<大类名称       |<小类编号        |<小类名称      |<单位    |<颜色   |<零销单价    |<成本单价   |<批发单价   |<最高库存   |<最低库存  "
    
    ShowID
End Sub

Public Sub ShowID()
Dim i As Integer

    '计算网格有多少行
    For i = 1 To fg.Rows - 1
        fg.TextMatrix(i, 0) = i
    Next
End Sub