用PB生成GUID解决主键重复(1)

编一个全局函数如下：

//---------------------------------------------
//Function f_get_GUID//得到全球唯一码
//Argument:

 1<ref string=""> of_guid //全球唯一码   
 2//Return: [None]   
 3//Create by 泥草鞋 2004-03-10   
 4//----------------------------------------------   
 5oleObject PBObject   
 6long ll_result   
 7PBObject = CREATE oleObject   
 8  
 9ll_result = PBObject.ConnectToNewObject("PowerBuilder.Application")   
10IF ll_result &lt; 0 THEN   
11messagebox(gs_message,"连接失败：与PowerBuilder.Application连接出错！")   
12return   
13ELSE   
14ll_result = PBObject.GenerateGUID(REF of_guid)   
15END IF   
16  
17IF ll_result &lt; 0 THEN   
18messagebox(gs_message,"生成GUID失败：不能获得GUID！")   
19return   
20END IF   
21  
22of_guid = mid(of_guid,2,len(of_guid) - 2)   
23//End of Fuction</ref>