pb9 取guid 脱离开发环境需要哪些文件。100分解决方法

pb9 取guid 脱离开发环境需要哪些文件。100分
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
语句如上
pb9 取guid 脱离开发环境需要哪些文件


------解决方案--------------------
这个不好用，我以前也用了，但编译后总不行，后来我改成从数据库取GUID的方式:newid()
------解决方案--------------------

SQL code

select top 1 newid()  from TB