模板
教程
环境
性能
功能
管理
用PB生成GUID解决主键重复(1)
发表于：2007-06-07来源：作者：点击数：
标签：
编一个全局函数如下： //--------------------------------------------- //Functionf_get_GUID//得到全球唯一码 //Argument:refstringof_guid//全球唯一码 //Return:[None] //Createby泥草鞋2004-03-10 //---------------------------------------------- o
编一个全局函数如下：
//---------------------------------------------
//Function f_get_GUID//得到全球唯一码
//Argument: <ref string> of_guid //全球唯一码
//Return: [None]
//Create by 泥草鞋 2004-03-10
//----------------------------------------------
oleObject PBObject
long ll_result
PBObject = CREATE oleObject
ll_result = PBObject.ConnectToNewObject("PowerBuilder.Application")
IF ll_result < 0 THEN
messagebox(gs_message,"连接失败：与PowerBuilder.Application连接出错！")
return
ELSE
ll_result = PBObject.GenerateGUID(REF of_guid)
END IF
IF ll_result < 0 THEN
messagebox(gs_message,"生成GUID失败：不能获得GUID！")
return
END IF
of_guid = mid(of_guid,2,len(of_guid) - 2)
//End of Fuction
