IDC资讯中心
〈%
class sqlstring
************************************
变量定义
************************************
stablename —- 表名
isqltype —-sql语句类型：0-增加，1-更新，2-删除,3-查询
swhere —- 条件
sorder —- 排序方式
ssql —-值
private stablename,isqltype,swhere,sorder,ssql
************************************
类初始化/结束
************************************
private sub class_initialize()
stablename=""
isqltype=0
swhere=""
sorder=""
ssql=""
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 "
end select
end property
************************************
函数
************************************
增加字段（字段名称，字段值）
public sub addfield(sfieldname,svalue)
select case isqltype
case 0
ssql=replace(ssql,"{&*#}1",sfieldname & ",{&*#}1")
ssql=replace(ssql,"{&*#}2","" & svalue & ",{&*#}2")
case 1
ssql=replace(ssql,"{&*#}1",sfieldname)
ssql=replace(ssql,"{&*#}2","" & svalue & ",{&*#}1={&*#}2")
case 3
ssql=replace(ssql,"{&*#}1",sfieldname & ",{&*#}1")
end select
end sub
修改的返回字符串值的函数
返回sql语句
public function returnsql()
ssql=replace(ssql,"{&*#}0",stablename)
select case isqltype
case 0
ssql=replace(ssql,",{&*#}1","")
ssql=replace(ssql,",{&*#}2","")
case 1
ssql=replace(ssql,",{&*#}1={&*#}2","")
case 3
ssql=replace(ssql,",{&*#}1","")
end select
if swhere<>"" and isqltype<>0 then
ssql=ssql & " where " & swhere
end if
if sorder<>"" and isqltype<>0 then
ssql=ssql & " order by " & sorder
end if
returnsql=ssql
end function
返回sql语句
public function returnsql1()
ssql=replace(ssql,"{&*#}0",stablename)
select case isqltype
case 0
ssql=replace(ssql,",{&*#}1","")
ssql=replace(ssql,",{&*#}2","")
case 1
ssql=replace(ssql,",{&*#}1={&*#}2","")
case 3
ssql=replace(ssql,",{&*#}1","")
end select
if swhere<>"" and isqltype<>0 then
ssql=ssql & " where " & swhere
end if
if sorder<>"" and isqltype<>0 then
ssql=ssql & " order by " & sorder
end if
returnsql=ssql
end function
清空语句
public sub clear()
stablename=""
isqltype=0
swhere=""
sorder=""
ssql=""
end sub
end class
%〉
