frmmqplace.frm

网上销售源代码

Public mintPageSize     As Integer      '每页多少行
Public mrstDriveRoom    As Recordset

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

frmPlace.cboAreaStorID.ListIndex = getComIndex(frmPlace.cboAreaStorID, fg.TextMatrix(fg.Row, 1))
frmPlace.cboStorageID.ListIndex = getComIndex(frmPlace.cboStorageID, fg.TextMatrix(fg.Row, 3))
frmPlace.cboAreaID.ListIndex = getComIndex(frmPlace.cboAreaID, fg.TextMatrix(fg.Row, 5))
frmPlace.txtPlaceID.Text = fg.TextMatrix(fg.Row, 7)
frmPlace.txtPlaceName.Text = fg.TextMatrix(fg.Row, 8)
frmPlace.txtRow.Text = fg.TextMatrix(fg.Row, 9)
frmPlace.txtCol.Text = fg.TextMatrix(fg.Row, 10)
frmPlace.txtLong.Text = fg.TextMatrix(fg.Row, 11)
frmPlace.txtWidth.Text = fg.TextMatrix(fg.Row, 12)
frmPlace.txtHigh.Text = fg.TextMatrix(fg.Row, 13)
frmPlace.txtRemark.Text = fg.TextMatrix(fg.Row, 14)

frmPlace.txtPlaceID.Enabled = False
frmPlace.txtPlaceName.Enabled = False
frmPlace.txtRow.Enabled = False
frmPlace.txtCol.Enabled = False
frmPlace.txtLong.Enabled = False
frmPlace.txtWidth.Enabled = False
frmPlace.txtHigh.Enabled = False
frmPlace.txtRemark.Enabled = False

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

frmPlace.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"
            '添加
            frmPlace.P_SID = ""
            frmPlace.tlbOperate.Buttons("first").Enabled = False
            frmPlace.tlbOperate.Buttons("prev").Enabled = False
            frmPlace.tlbOperate.Buttons("next").Enabled = False
            frmPlace.tlbOperate.Buttons("last").Enabled = False
            frmPlace.Show 1
            
        Case "edit"
            frmPlace.cboAreaStorID.ListIndex = getComIndex(frmPlace.cboAreaStorID, fg.TextMatrix(fg.Row, 1))
            frmPlace.cboStorageID.ListIndex = getComIndex(frmPlace.cboStorageID, fg.TextMatrix(fg.Row, 3))
            frmPlace.cboAreaID.ListIndex = getComIndex(frmPlace.cboAreaID, fg.TextMatrix(fg.Row, 5))
            frmPlace.txtPlaceID.Text = fg.TextMatrix(fg.Row, 7)
            frmPlace.txtPlaceName.Text = fg.TextMatrix(fg.Row, 8)
            frmPlace.txtRow.Text = fg.TextMatrix(fg.Row, 9)
            frmPlace.txtCol.Text = fg.TextMatrix(fg.Row, 10)
            frmPlace.txtLong.Text = fg.TextMatrix(fg.Row, 11)
            frmPlace.txtWidth.Text = fg.TextMatrix(fg.Row, 12)
            frmPlace.txtHigh.Text = fg.TextMatrix(fg.Row, 13)
            frmPlace.txtRemark.Text = fg.TextMatrix(fg.Row, 14)
            frmPlace.txtPlaceID.Enabled = False

            frmPlace.P_SID = Me.fg.TextMatrix(fg.Row, 7)
            frmPlace.tlbOperate.Buttons("first").Enabled = False
            frmPlace.tlbOperate.Buttons("prev").Enabled = False
            frmPlace.tlbOperate.Buttons("next").Enabled = False
            frmPlace.tlbOperate.Buttons("last").Enabled = False
            frmPlace.Show 1
                        
        Case "del"
            '删除
            If fg.TextMatrix(fg.Row, 1) = "" Then
                Exit Sub
            End If
            
            If MsgBox("确实要删除区域编号为" & fg.TextMatrix(fg.Row, 3) & "的数据吗？", vbYesNo, "询问") = vbYes Then
                Del (fg.TextMatrix(fg.Row, 3))
           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
Dim Ars As New ADODB.Recordset

SQLDB.BeginTrans

    '查询是否以使用了仓库信息
    sql = "Select PlaceID from Place Where PlaceID='" & id & "'"
    Set Ars = SQLDB.Execute(sql)
    If Not Ars.EOF Then
        MsgBox id & "已被使用，不能删除", vbInformation, "提示"
        SQLDB.RollbackTrans
        Exit Sub
    End If
    
    sql = "Delete Place Where PlaceID='" & 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 AreaStor.AreaStorID AS 区办编号, AreaStor.AreaStorName AS 区办名称, " & _
      "Storage.StorageID AS 仓库编号, Storage.StorageName AS 仓库名称," & _
      "Area.AreaID AS 区域编号, Area.AreaName AS 区域名称, Place.PlaceID AS 储位编号," & _
      "Place.PlaceName AS 储位名称,Place.Row as 行,Place.Col as 列,Place.long AS 长, Place.width AS 宽, Place.high AS 高," & _
      "Place.Remark AS 备注 " & _
      "FROM Place INNER JOIN " & _
      "AreaStor ON Place.AreaStorID = AreaStor.AreaStorID INNER JOIN " & _
      "Area ON AreaStor.AreaStorID = Area.AreaStorID AND " & _
      "Place.AreaID = Area.AreaID INNER JOIN " & _
      "Storage ON Place.StorageID = Storage.StorageID AND " & _
      "Area.StorageID = Storage.StorageID order by Place.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 = 15
    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