End Sub

       Private Sub Class_Terminate()

       End Sub

       ''''************************************

       ''''属性

       ''''************************************

       ‘设置表名的属性

       Public Property Let TableName(value)        

              sTableName=value

       End Property

    ‘设置条件

       Public Property Let Where(value)

              sWhere=value

       End Property

    ‘设置排序方式

       Public Property Let Order(value)

              sOrder=value

       End Property

    ‘设置查询语句的类型

       Public property Let SQLType(value)

              iSQLType=value

              select case iSQLType

              case 0

                     sSQL="insert into #0 (#1) values (#2)"

              case 1

                     sSQL="update #0 set #1=#2"

              case 2

                     sSQL="delete from #0 "

              case 3

                     sSQL="select #1 from #0 "          

上一页  [1] [2] [3] [4]  下一页