用PB生成GUID处理主键重复(1)1

数据库，简而言之可视为电子化的文件柜——存储电子文件的处所，用户可以对文件中的数据进行新增、截取、更新、删除等操作。所谓“数据库”是以一定方式储存在一起、能与多个用户共享、具有尽可能小的冗余度、与应用程序彼此独立的数据集合。

编一个全局函数如下：

　　//---------------------------------------------
　　//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

全新的路由器不仅让你更稳定快速地连接无线网络，更可以让家中的智能设备连接在一起。

……

标签:用PB生成GUID处理主键重复(1)