addlessmode.cls

这个就不用多说了

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "AddLessMode"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
    Dim cmmMy As New ADODB.Command
    Dim rstMy As New ADODB.Recordset

    Sub AddRow(ByVal sqlstr As String)
    On Error GoTo err:
        sqlconn_open
        strinsert = sqlstr
        cmmMy.ActiveConnection = sqlconn
        cmmMy.CommandType = adCmdText
        cmmMy.CommandText = strinsert
        cmmMy.Execute
        sqlconn.Close
        Exit Sub
err:
        MsgBox (err.Description)
    End Sub
    Sub InitialData(ByVal mygrid As MSHFlexGrid, ByVal strSql As String) '初始化
        Call Bt(mygrid)
        sqlconn_open
        cmmMy.ActiveConnection = sqlconn
        cmmMy.CommandType = adCmdText
        cmmMy.CommandText = strSql
        Set rstMy = cmmMy.Execute
        If Not rstMy.BOF And Not rstMy.EOF Then
           While Not rstMy.EOF
                 mygrid.Rows = mygrid.Rows + 1
                 mygrid.Row = mygrid.Rows - 1
                 mygrid.col = 0
                 mygrid.Text = rstMy.Fields(0)
                 mygrid.col = 1
                 mygrid.CellAlignment = 1
                 mygrid.Text = rstMy.Fields(1)
                 rstMy.MoveNext
        
            Wend
   End If

    End Sub
Sub Bt(ByVal Grid As MSHFlexGrid)
Grid.Row = 0
Grid.col = 1
Grid.Text = "名称"
Grid.CellFontSize = 14
Grid.CellFontBold = True
Grid.CellAlignment = 5
Grid.ColWidth(0) = 0
Grid.ColWidth(1) = 4700
Grid.Rows = 1
End Sub
    Sub deleterow(ByVal strsql1 As String, ByVal strsql2 As String)
    On Error GoTo err:
      Dim strSql As String
     sqlconn_open
        cmmMy.ActiveConnection = sqlconn
        cmmMy.CommandType = adCmdText
        cmmMy.CommandText = strsql1
        Set rstMy = cmmMy.Execute
        If Not rstMy.EOF And Not rstMy.BOF Then
            MsgBox "以有记录不能再删除", vbInformation
            Exit Sub
        End If
           cmmMy.CommandText = strsql2
           cmmMy.Execute
     sqlconn.Close
     Exit Sub
err:
     MsgBox err.Description
       End Sub

    Function UpdataData(ByVal strUpdata As String)
    On Error GoTo err:
        sqlconn_open
        cmmMy.ActiveConnection = sqlconn
        cmmMy.CommandType = adCmdText
        cmmMy.CommandText = strUpdata
        cmmMy.Execute
        sqlconn.Close
        Exit Function
err:
        MsgBox err.Description
    End Function