过程.bas

随着市场经济的发展

Attribute VB_Name = "Module2"
'1 列表框、复选框初始化，  在列表框、复选框中动态显示相关内容
Public Sub listinitial(ByVal s As String, ByVal list As Object)
    Dim sql As String
    Dim rs As ADODB.Recordset
        Select Case s
        Case "spmc"                  '显示所有商品名称
            sql = "select spmc from spxxb"
        Case "dw"                    '显示某商品的单位
            sql = "select dwmc from jldwb "
        Case "yhm"                   '显示显示所有用户名
             sql = "select yhm from yhxxb"
        Case "xm"                    '显示某用户的姓名
              sql = "select xm from yhxxb"
        Case "yhsf"                  '显示某用户的身份
              sql = "select yhsf from yhxxb"
        Case "spbh"                  '显示某商品的商品编号
              sql = "select spbh from spxxb"
        End Select
        list.Clear
        Set rs = exesql(sql)
        If rs.RecordCount > 0 Then   '将记录集的值加到列表框或复选框中
            While Not rs.EOF
                If Trim(rs(0)) <> "" Then
                  list.AddItem rs(0)
                End If
                rs.MoveNext
            Wend
        End If
         Set rs = Nothing
End Sub
'网格加载，用于网格刷新并显示相关内容
Public Sub gridshow(ByVal sql As String, ByVal grid1 As Object, ByVal content As String)
   Dim rs As ADODB.Recordset
   Dim i As Integer
   Dim j As Integer
   grid1.Clear '网格清空
   Set rs = exesql(sql)
   grid1.ColWidth(0) = 500: grid1.ColWidth(1) = 1500  '初始化列宽
   grid1.ColWidth(2) = 1500: grid1.ColWidth(3) = 2000
   grid1.ColWidth(4) = 1500: grid1.ColWidth(5) = 1200
   grid1.ColWidth(6) = 1200: grid1.ColWidth(7) = 1200
   grid1.Row = 0
   If rs.RecordCount = 0 Then '判断结果是否为空，并给出提示
   MsgBox "没有满足查询条件的信息！"
   End If
   Select Case content '
        Case "djxsd"
            grid1.Col = 1: grid1.Text = "销售号"
            grid1.Col = 2: grid1.Text = "商品编号"
            grid1.Col = 3: grid1.Text = "商品名称"
            grid1.Col = 4: grid1.Text = "销售日期"
            grid1.Col = 5: grid1.Text = "单位"
            grid1.Col = 6: grid1.Text = "售价"
            grid1.Col = 7: grid1.Text = "本次销售量"
            i = 1
            If Not rs.EOF Then
            rs.MoveLast
            Do While Not rs.BOF
               grid1.Row = i: grid1.Col = 0
               grid1.RowHeight(i) = 250
               grid1.Text = i
               grid1.Col = 1: grid1.Text = rs.Fields("xsh")
               grid1.Col = 2: grid1.Text = rs.Fields("xsxxb.spbh")
               grid1.Col = 3: grid1.Text = rs.Fields("spmc")
               grid1.Col = 4: grid1.Text = rs.Fields("xsrq")
               grid1.Col = 5: grid1.Text = rs.Fields("dw")
               grid1.Col = 6: grid1.Text = rs.Fields("sj")
               grid1.Col = 7: grid1.Text = rs.Fields("drxssl")
               rs.MovePrevious
               i = i + 1
            Loop
            rs.Close
            End If
        Case "kcxx"
            grid1.Col = 1: grid1.Text = "商品编号"
            grid1.Col = 2: grid1.Text = "商品名称"
            grid1.Col = 3: grid1.Text = "单位"
            grid1.Col = 4: grid1.Text = "库存下限"
            grid1.Col = 5: grid1.Text = "库存数量"
            grid1.Col = 6: grid1.Text = ""
            i = 1
            If Not rs.EOF Then
            rs.MoveLast
            Do While Not rs.BOF
               grid1.Row = i: grid1.Col = 0
               grid1.RowHeight(i) = 250
               grid1.Text = i
               grid1.Col = 1: grid1.Text = rs.Fields("spbh")
               grid1.Col = 2: grid1.Text = rs.Fields("spmc")
               grid1.Col = 3: grid1.Text = rs.Fields("dw")
               grid1.Col = 4: grid1.Text = rs.Fields("kcxx")
               grid1.Col = 5: grid1.Text = rs.Fields("sl")
               rs.MovePrevious
               i = i + 1
            Loop
            rs.Close
            End If
        Case "xshz"
            grid1.Col = 1: grid1.Text = "商品编号"
            grid1.Col = 2: grid1.Text = "商品名称"
            grid1.Col = 3: grid1.Text = "成本价"
            grid1.Col = 4: grid1.Text = "售价"
            grid1.Col = 5: grid1.Text = "销售总数量"
            grid1.Col = 6: grid1.Text = "销售总额"
            grid1.Col = 7: grid1.Text = "成本总额"
            grid1.Col = 8: grid1.Text = "利润总额"
            i = 1
            If Not rs.EOF Then
            rs.MoveLast
            Do While Not rs.BOF
               grid1.Row = i: grid1.Col = 0
               grid1.RowHeight(i) = 250
               grid1.Text = i
               grid1.Col = 1: grid1.Text = rs.Fields("spbh")
               grid1.Col = 2: grid1.Text = rs.Fields("spmc")
               grid1.Col = 3: grid1.Text = rs.Fields("cbj")
               grid1.Col = 4: grid1.Text = rs.Fields("sj")
               grid1.Col = 5: grid1.Text = rs.Fields("zxssl")
               grid1.Col = 6: grid1.Text = rs.Fields("xsze")
               grid1.Col = 7: grid1.Text = rs.Fields("cbze")
               grid1.Col = 8: grid1.Text = rs.Fields("lrze")
               rs.MovePrevious
               i = i + 1
            Loop
            rs.Close
            End If
        Case "xsdcx"
            grid1.Col = 1: grid1.Text = "销售号"
            grid1.Col = 2: grid1.Text = "商品编号"
            grid1.Col = 3: grid1.Text = "商品名称"
            grid1.Col = 4: grid1.Text = "销售日期"
            grid1.Col = 5: grid1.Text = "单位"
            grid1.Col = 6: grid1.Text = "售价"
            grid1.Col = 7: grid1.Text = "本次销售量"
            i = 1
            If Not rs.EOF Then
            rs.MoveLast
            Do While Not rs.BOF
               grid1.Row = i: grid1.Col = 0
               grid1.RowHeight(i) = 250
               grid1.Text = i
               grid1.Col = 1: grid1.Text = rs.Fields("xsh")
               grid1.Col = 2: grid1.Text = rs.Fields("xsxxb.spbh")
               grid1.Col = 3: grid1.Text = rs.Fields("spmc")
               grid1.Col = 4: grid1.Text = rs.Fields("xsrq")
               grid1.Col = 5: grid1.Text = rs.Fields("dw")
               grid1.Col = 6: grid1.Text = rs.Fields("sj")
               grid1.Col = 7: grid1.Text = rs.Fields("drxssl")
               rs.MovePrevious
               i = i + 1
            Loop
            rs.Close
            End If
        Case "jldw"
            grid1.Col = 1: grid1.Text = "单位编号"
            grid1.Col = 2: grid1.Text = "单位名称"
            i = 1
            If Not rs.EOF Then
            rs.MoveLast
            Do While Not rs.BOF
               grid1.Row = i: grid1.Col = 0
               grid1.RowHeight(i) = 250
               grid1.Text = i
               grid1.Col = 1: grid1.Text = rs.Fields("dwbh")
               grid1.Col = 2: grid1.Text = rs.Fields("dwmc")
               rs.MovePrevious
               i = i + 1
            Loop
            rs.Close
            End If
  End Select
End Sub