pb uo_datastore

最新推荐文章于 2021-03-03 22:52:32 发布

秋高工作室

最新推荐文章于 2021-03-03 22:52:32 发布

阅读量206

点赞数

分类专栏： PB

原文链接：https://blog.csdn.net/tomandllj/article/details/102474685

版权

PB 专栏收录该内容

175 篇文章 21 订阅

订阅专栏

forward
global type uo_datastore from datastore
end type
end forward
 
global type uo_datastore from datastore
end type
global uo_datastore uo_datastore
 
type variables
string is_sqlerrtext
end variables
 
forward prototypes
public function long of_retrieve (transaction trans_1, string as_sql, ref string as_errors)
public function integer of_create (string as_sql, ref string as_err)
public function long of_retrieve (string as_sql)
end prototypes
 
public function long of_retrieve (transaction trans_1, string as_sql, ref string as_errors);create(trans_1.syntaxfromsql(as_sql,"style(type=grid)",as_errors))
settransobject(trans_1)
retrieve()
if len(as_errors)>0 then return -1
return rowcount()
end function
 
public function integer of_create (string as_sql, ref string as_err);create(sqlca.syntaxfromsql(as_sql,"style(type=grid)",as_err))
settransobject(sqlca)
if len(as_err)>0 then
	return -1
end if 
return 1
end function
 
public function long of_retrieve (string as_sql);string ls_err
create(sqlca.syntaxfromsql(as_sql,"style(type=grid)",ls_err))
settransobject(sqlca)
retrieve()
if len(ls_err)>0 then 
	messagebox('提示',"ds语法错误"+as_sql+'~r~n'+ls_err)
	return -1
end if 
return rowcount()
end function
 
on uo_datastore.create
call super::create
TriggerEvent( this, "constructor" )
end on
 
on uo_datastore.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on
 
event dberror;is_sqlerrtext=sqlerrtext
end event