用PB生成GUID(全球唯一码)解决主键重复

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2019-04-28 13:24:07

  编一个全局函数如下:
//---------------------------------------------
//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

好啦,以后不用为主键重复问题再烦恼了吧。
不过,请注意该函数需要的支持文件:(以PB7.0为例)
pbappl.reg(执行它注册一遍,7.0以下必须此文件)
Pbvm70.dll(不用多说了)
Pbaen70.tlb(PB自动应用服务类库入口)

------------------------------------------------
GUID如何做到唯一?
要确保一个标识是唯一的,仅有两个方法:
1。通过一些机构组织来登记;
2。使用特别的算法来产生唯一的数字,这些数字可被认为在世界范围内是唯一的。
   第一个方法很常见,比如身份证号码是国家制定的标识个人。它的问题是,制定这标识的机构组织自身存在执行偏差,而且手续繁琐,多数情况下你得花钱费时。

  第二个方法更适合于开发者。如果你可以发明一个算法,每次调用它都可以产生一个可被认为是唯一的名字,那么这个问题就解决了。
事实上,开发软件基金会(Open Software Foundation,OSF)已经研究出一种能产生唯一标识符的算法,产生全球唯一标识符(Universally Unique Identifier,UUID)。在COM的命名标准上,微软使用同样的算法!在COM中微软将它重命名为Globally Unique Identifier(GUID)。  
生成GUID的算法根据以下几个方面:1.当前日期和时间。2.网络适配器卡地址。3.时针序。4.自动递增计数器。其中,网卡地址是相互不同的,对没有网卡的机器,地址对使用中的机器保持唯一性。
GUID的记录通常采用16进制。不过这没有关系,一个典型的GUID类似为:"88AB240C-F761-49B8-B47F-94B0ABA4115A",略去"-",即为一个128位的唯一数字。2的128次方是一个非常大的数字。128位的接口标识符使得我们可能创建大约340282366920900000000000000000000000000个独立的接口,足够为将来10782897524560000000年每秒创建一万亿个接口。(晕!为什么不是我的存款)
这是个什么概念呢?就拿这几个数字中最小的“一万亿”来说。假如把银河系缩小一万亿倍,也就是把银河系直径缩小到一百万公里,这时太阳就变成一粒芝麻,那么最大的行星木星就变成了一粒灰尘。
即使地球毁灭了,它仍然是全球唯一。


Tags:

作者:佚名
分享到: 微信 更多