modstartfile.bas

这是一个对药品入库

Attribute VB_Name = "module1"
Public cn As ADODB.Connection
Public name As String
Public Qx As String

Public Function Ex_Sql(ByVal sqlstr As String) As Recordset
  Set cm = New ADODB.Command
  cm.CommandText = sqlstr
  cm.ActiveConnection = cn
  cn.CursorLocation = adUseClient
  Set Ex_Sql = cm.Execute
End Function
Public Sub showdata(ByVal rs As ADODB.Recordset, ByVal msflexgrid As msflexgrid)
  Dim i As Integer
    With msflexgrid
      .Rows = 1
      Do While Not rs.EOF
         .Rows = .Rows + 1
         For i = 1 To rs.Fields.Count
           .TextMatrix(.Rows - 1, i) = rs.Fields(i - 1)
         Next i
         rs.MoveNext
      Loop
    End With
End Sub