function toEan13(strtmp: string): string; var i, a, b: Integer; begin a:=0; b:=0; if Length(strtmp)>=12 then begin for i:=1 to 12 do begin if i mod 2=0 then b:=b+ord(strtmp)-48 else a:=a+ord(strtmp)-48; end; a:=(10-((b*3+a) mod 10)) mod 10; Result:=copy(strtmp,1,12)+Chr(a+48); end ...
by huxiubo - C/C++ - 2007-10-23 23:01:05 阅读(1341) 回复(5)
function PrnBar_Ean13(left,top,width,height:integer;bhuman:Boolean;barcode:string;var bmp1:TBitmap):integer; const // 商品条码字符集 // 左侧数据符,A子集,奇数位 lodd:array[0..9] of string[7]=('0001101','0011001','0010011','0111101','0100011','0110001','0101111','0111011','0110111','0001011'); // 左侧数据符,B子集,偶数位 leven:array[0..9] of string[7]=('0100111','0110011','00...
即我为了防止两人同时按按钮在数据库中输入数据,因为一个字段必须为unique可否 database1.exclusive:=true; ------ database1.exclusive:=false; 如此可否?? 我在输入数据时强制别人不得进行操作,如何实现?
1、3年以上的delphi方面的开发经验 2、熟练使用Sybase 3、具有良好的学习钻研能力 4、能够承担工作压力, 善于沟通,具有团队合作精神 我们将为您提供极具竞争力的工资、良好的福利保障体系。 有意者请将中文简历以Word附件形式Mail至[email]dlzp@use.com.cn[/email],请注明应聘职位编号。 [ 本帖最后由 UFIDA-DL 于 2008-5-30 11:36 编辑 ]
基本要求 1、计算机及相关专业,本科以上学历。 2、2年以上delphi专职开发工作经验。具备面向对象分析设计能力。 3、有较好的沟通能力,较强的理解和接受能力。 4、乐于学习和掌握公司软件涉及的领域知识。 专业技能 1、熟练掌握delphi语言和以及delphi IDE环境,有丰富的软件调试、排错经验。 2、熟悉面向对象开发技术,有足够的OOP经验,对delphi VCL库的架构和应用有深入了解。 3、熟悉软件模块基本设计原理,有UML实...
delphi是我所喜欢的编程工具,而PHP是我觉得服务器端编程中最看好和最喜欢的一种.现在,CodeGear发布了delphi for PHP,让人十分惊喜.我觉得codeGear,亦或是原来的borland要想在市场上有立足之地,就应该有自己的东西.虽然PHP不属于自己的东西,不过,他是免费的,而PHP的市场占有量是很高的,微软在搞ASP/ASP.NET,SUN在搞JSP,那么PHP总算也是市场空缺,CODEGEAR终于可以找到缝隙了.这让我想起当年的Kylix.在linux环境下,RAD工具少之又少,而...
2007年2月20日, CodeGear公司宣布delphi for PHP产品准备发布! 迫不及待跑CodeGear公司的主页上看了消息,下载了该产品的DataSheet看了一下。总体来说就是一个类似delphi的一个PHP开发的IDE,但不仅仅如此,令人关注的是该产品后面的VCL for PHP! 该产品是面向PHP5的,集成了一个称为VCL for PHP的PHP5类库,这个我已经猜到了,PHP5有不错的OO特性,要是开发Component Base的PHP框架,PHP5是肯定的首选。标准的控件也我们熟...