农博士育种家软件

Size: px

Start display at page:

Download "农博士育种家软件"

此娴舒
5 years ago
Views:

1 农博士育种家软件 NBSBreeding API 手册 Ver 1.0 北京中农博思科技发展有限公司 Beijing China-agri BRAINS Science&Technology Co.,Ltd.

2 一 API 说明...2 二数据库连接函数...2 三育种年度标识相关函数...3 四育种性状相关函数...3 五育种材料相关函数...6 六杂交相关函数...8 七统计相关函数...8 八图像识别相关函数...9 一 API 说明 NBSBreeding API Ver1.0, 包括育种年度标识育种性状育种材料杂交权限统计图像共 41 个函数按照 C 语言动态链接库数据类型标准提供每个函数名首字母大写每个函数给出功能参数介绍返回值有特殊情况配单独说明部分函数给出 Delphi 调用示例代码本 API 需要正版软件才能正常调用二数据库连接函数 function Database_open(str:pchar):boolean; stdcall ; 功能 : 系统必须用到的函数, 建立育种数据库连接参数 :str, 数据库连接字符串 function Database_close:boolean; stdcall ; 功能 : 关闭数据库连接参数 : 无

3 三育种年度标识相关函数 function Loadndbs:boolean;stdcall; 功能 : 在系统刚启动时执行, 建立育种年度标识的列表, 用于确定年度标识的先后顺序, 在定义新的育种年度后, 应再次调用该函数, 刷新列表参数 : 无 function Get_currentndbs:pchar; stdcall ; 功能 : 获得当前使用中的育种年度标识参数 : 无 function Upndbs(ndbs:pchar):pchar; stdcall ; 功能 : 获得当年年度的上一年度标识参数 :ndbs, 年度标识 function Nextndbs(ndbs:pchar):pchar; stdcall ; 功能 : 获得 ndbs 年度的下一育种年度参数 :ndbs, 年度标识 function Check_ndbs(ndbs:pchar):boolean; stdcall ; 功能 : 检查是否存在该年度参数 :ndbs, 年度标识 function Get_ndbs_xh(ndbs:pchar):pchar;stdcall; 功能 : 获得一个年度标识的唯一数字序号参数 :ndbs, 年度标识四育种性状相关函数 function Load_jbxz_list:boolean; stdcall ; 功能 : 建立性状列表一些跟性状有关的操作依赖该列表参数 : 无 function Xzmc_fieldname(xzmc:pchar):pchar; stdcall ; 功能 : 性状名称转换为对应的表字段名参数 :xzmc, 育种性状名称示例 :

4 // 获得产量性状对应的数据库字段名 procedure TForm1.Button4Click(Sender: TObject); Var S:pchar; zdname,str:string; str:='provider=sqlncli.1;integrated Security=SSPI;Persist Security Info=false;Initial Catalog=nbsyz;Data Source=ibm\sqlexpress'; if Database_open(pchar(str)) then showmessage('database_open(str:string) ok!'); // 建立育种数据库连接 S:= Xzmc_fieldname(pchar(' 产量 ')); // 调用 Xzmc_fieldname 函数 zdname:=strpas(s); showmessage(zdname); //zdname 的值 'n38' if Database_close then showmessage('database_close ok!'); // 关闭育种数据库连接 function Fieldname_xzmc(fname:pchar):pchar; stdcall ; 功能 : 数据库字段名转换为对应的性状名称参数 :fname, 性状的数据库字段名示例 : // 获得 n38 字段对应的性状名称 procedure TForm1.Button5Click(Sender: TObject); Var S:pchar; xzmc,str:string; str:='provider=sqlncli.1;integrated Security=SSPI;Persist Security Info=false;Initial Catalog=nbsyz;Data Source=ibm\sqlexpress'; if Database_open(pchar(str)) then showmessage('database_open(str:string) ok!'); S:= Fieldname_xzmc(pchar('n38')); xzmc:=strpas(s); showmessage(xzmc); //xzmc 的值 ' 产量 ' if Database_close then showmessage('database_close ok!'); function Xzinpu(xzmc:pchar):boolean; stdcall ; 功能 : 检测性状是否为考察性状参数 :xzmc, 育种性状名称 function Isfjxz(xzmc:pchar):boolean;stdcall;

5 功能 : 检测性状是否为分级性状参数 :xzmc, 育种性状名称 function Fieldisinteger(fname:pchar):boolean; stdcall ; 功能 : 检测字段否为数字类型参数 :fname, 数据库字段名 function Slxz(xzmc:pchar):boolean;stdcall; 功能 : 检测性状是否为数量性状参数 :xzmc, 育种性状名称 function Get_fjxz_xxh(xzmc,dyz:pchar):integer;stdcall; 功能 : 获得分级性状值对应的模拟计算值参数 :xzmc, 育种性状名称 ;dyz, 分级性状值返回值 : 不存在返回 -1. function Zlxz(xzmc:pchar):boolean;stdcall; 功能 : 检测性状是否为质量性状参数 :xzmc, 育种性状名称 function Get_xz_max(xzmc:pchar):double;stdcall; 功能 : 获得数量性状的最大值不存在返回 0. 参数 :xzmc, 育种性状名称返回值 : 不存在返回 0. function Get_xz_min(xzmc:pchar):double;stdcall; 功能 : 获得数量性状的最小值不存在返回 0. 参数 :xzmc, 育种性状名称返回值 : 不存在返回 0. function Mean_xz(xzmc,ndbs,dnhh:pchar):double;stdcall; 功能 :ndbs+dnhh 确定一个材料该材料在性状 xzmc 上采集数据的均值参数 : xzmc, 育种性状名称 ; ndbs, 育种年度 ; dnhh, 材料编号 ; 返回值 : 数据不存在返回 0

6 procedure TForm1.Button6Click(Sender: TObject); Var S:pchar; chanliang:double; str:string; str:='provider=sqlncli.1;integrated Security=SSPI;Persist Security Info=false;Initial Catalog=nbsyz;Data Source=ibm\sqlexpress'; if Database_open(pchar(str)) then showmessage('database_open(str:string) ok!'); chanliang:= Mean_xz(pchar(' 产量 '),pchar('2010'),pchar('201001cp1')); //2010 是年度,201001CP1 是材料编号 showmessage(floattostr(chanliang)); if Database_close then showmessage('database_close ok!'); function Mean_xz_fjxz(xzmc,ndbs,dnhh:pchar):double;stdcall; 功能 : 同 Mean_xz, 支持分级性状参数 : 同 Mean_xz 返回值 : 数据不存在返回 0 function Get_fjxz_max(xzmc:pchar):integer;stdcall; 功能 : 获得一个分级性状的最大模拟计算值参数 :xzmc, 育种性状名称返回值 : 分级性状的模拟计算值如果存在, 最小值是 1, 如果不存在, 函数返回 0 五育种材料相关函数 function Get_xph(dnhh,ndbs:pchar;disphanghao,dispfm:boolean):pchar;stdcall; 功能 : 动态生成一个材料的系谱并返回系谱信息参数 :dnhh, 材料编号 ;ndbs, 育种年度 ;disphanghao, 返回信息是否包含历年编号信息 ; dispfm, 返回信息是否包含父母本信息 function Get_dnhhmc(ndbs,dnhh:pchar):pchar;stdcall; 功能 : 获得一个材料的名称参数 :ndbs, 育种年度 ;dnhh, 材料编号 function Get_qbzh2(xph:pchar):pchar; stdcall; 功能 : 将 Get_xph 函数获得的系谱信息, 转换为标准杂交组合形式如 :A/B//C 参数 :xph, 特指 Get_xph() 返回的系谱信息

7 function Get_xph_hanghao(xph:pchar):pchar;stdcall; 功能 : 获得系谱中的历年行号参数 :xph, 特指 Get_xph() 返回的系谱信息 function Get_xph_parent(xph:pchar):pchar;stdcall; 功能 : 获得系谱中的历年亲本参数 :xph, 特指 Get_xph() 返回的系谱信息权限 function Hasqx(czy,mc:pchar):boolean;stdcall; 功能 : 操作员是否具有某项菜单操作的权限参数 :czy, 操作员 ;mc, 菜单名称 ; function Isliulan(czy:pchar):boolean;stdcall; 功能 : 操作员是否仅具浏览权限参数 :czy, 操作员 function Dj_jl (czy,nr:pchar):boolean; stdcall; 功能 : 系统操作日志记录参数 :czy, 操作员 ;nr, 操作内容格式 function Ftos(value:double):pchar; stdcall; 功能 : 格式化数字, 返回字符串, 格式 : 0.00 参数 :value,double 类型 function Fto4(value:double):pchar;stdcall; 功能 : 格式化数字, 返回字符串, 格式 : 参数 :value,double 类型 function Isnum(value:pchar):boolean;stdcall; 功能 :Value 是否为数字类型参数 :value,double 类型 function Isdate(value:pchar):boolean;stdcall; 功能 :Value 是否为日期类型参数 :value,pchar 类型 function Datacheck(xzmc,value:pchar):pchar;stdcall; 功能 : 检查 value 是否符合 xzmc 对应性状的采集数据标准要求参数 :xzmc, 育种性状名称 ;value, 采集数据值

8 返回值 : ok, 表示符合采集规范要求, 否则, 返回错误提醒信息六杂交相关函数 function Writezajiao3(mundbs,snhh,zjndbs,zjfubh:pchar):boolean;stdcall; 功能 : 记录材料间杂交信息参数 :mundbs, 母本所属年度 ;snhh, 母本编号 ;zjndbs, 父本所属年度 ;zjfubh, 父本编号 function Fwritezajiao3(mundbs,snhh:pchar):boolean;stdcall; 功能 : 撤销材料间杂交信息参数 :mundbs, 母本所属年度 ;snhh, 母本编号七统计相关函数 function Ffb(n1,n2:integer;f:double):double;stdcall; 功能 :F 分布, 无须数据库支持, 可以直接调用参数 :n1 分子自由度 ;n2 分母自由度 ;f,f 值返回值 : 概率示例 : // 分子自由度 4, 分母自由度 12,F=3.26 的概率 procedure TForm1.Button7Click(Sender: TObject); showmessage(floattostr(ffb(4,12,3.26))); // 结果是 //95% function Tfb(v:integer;p:double):double;stdcall; 功能 :T 分布, 无须数据库支持, 可以直接调用参数 :v, 自由度 ;p, 概率 (0-1) 返回值 :t 值示例 : procedure TForm1.Button8Click(Sender: TObject); showmessage(floattostr(tfb(4,0.05)));

9 // 结果是八图像识别相关函数 function Xihua(Bitmap: TBitmap): Boolean;stdcall; 功能 : 对二值化后的图像, 进行细化, 骨架化无须数据库支持, 可以直接调用参数 :Bitmap, 二值化后的内存图像

今天 2011年春季号总 92 期

今天 2011年春季号总 92 期今天 2011 年春季号总 92 期目录业余诗人专辑这些业余诗人赵野海波的诗 ( 七首 ) 凄凉犯简史海波吉木狼格的诗 ( 六首 ) 我的诗歌吉木朗格李亚伟的诗 ( 十三首 ) 口语和八十年代李亚伟默默的诗 ( 十三首 ) 我们就是海市蜃楼一个人