| 订阅 | 在线投稿
分享
 
 
当前位置: 王朝网络 >> delphi >> Delphiwe编写规范 Delphiwe bian xie gui fan
 

Delphiwe编写规范

2006-12-17 09:48:34 编辑來源:互联网 繁體版 评论
 
 
本文为【Delphiwe编写规范】的汉字拼音对照版显示拼音
  Delphiwebianxieguifan

  

  Delphiwebianxieguifan cheng xu bian xie gui fan

  1 bianliangshengmingd

   suoyoudebianliangbu lunleixing yunyivkaitou ru

  var vWorkerName:string;

  vYear:integer;

  vDate:tdate;

   _recordsetduixiangdeqianzhuiweivrs

   teshudebianliangvSqljibenshangsuoyoudeSQLyujuyunxianyongbianliangvSqlbinzhi ru

   var vSql:string;

   begin

   vsql:=select a.fdworker ;

   vsql:=vsql+ from tabworker a ;

   end;

  kongjianmingming

  lei qianzhui shili

  TEdit ed edWorkerNo

  TDBGrid grd grdWorker

  TCombobox cbo cboWorker

  TDateTimePicker dp dpDate

  TButton c cOk cCancel

  TCheckBox chk chkCancel

  TSpeedButton sb sbWorker

  TClientDataSet cln clnWorker

  TDataSource ds dsWorker

  TAdoDataSet adods adodsWorker

  TPanel pan panTop

  TForm frm frmWorker

  TDataSetProvider pvd pvdWorker

  TTreeview trv trvRawType

  TListview lst lstWorker

  TPageControl pc pcWorkerInformation

  TImage img imgWorker

  TMemo ed edMemo

  2 hanshujiguochengdemingming3

   hanshudeqianzhuiyongf

  liruchulishujujianchadehanshufunction fCheckData:boolean;

   guochengdeqianzhuiyongp

  liruchuligongrenlizhideguochengprocedure pWorkerLeave;

  mingmingguize

   suoyoubianlianghuokongjiandemingming yuncaiquyingwenyiyimingming bingqiejinliangbu yaoyongsuoxie

  liru duishurugongrenxingmingdeTEditdemingmingweiedWorkerName

  erbuyaomingmingweiedWNdengsuoxiexingshi

  

   shujubiaodeqianzhuiweitab ziduandeqianzhuiweifd

  liru gongrenbiaodemingchengweitabworker

  gongrenbianhaodeziduanweifdworkerno

  shujukucaozuofangfa

   caozuoshujukuxuanzecharugengxinshanchujibenshangyongSQLyujulaicaozuoshujuku bimianyongData Awareleidekongjianlaicaozuoshujuku

  lirucharuyitiaoshengchanjilu

   var vSql:string;

   vWorkerID:string;

   vProductNum:string;

   begin

   xxxxxx;

   ;

   vsql:=insert into tabproduct (fddate,fdworkerid,fdproductnum) values(;

   vsql:=vsql+vinfo.vdbsqldate(date);

   vsql:=vsql+,+(vWorkerID);

   vsql:=vsql+,+(vProductNum);

   vsql:=vsql+);

   vinfo.execute(vsql);

   end;

  *zhuvinfodaibiaoyigezidingyileiTInfodeyigeshililimianfengzhuanglegezhonghanshujutineirongzaihoumianyoushuoming

   yongTDBGridxianshishujudefangfa

  1 使shiyongTDBGrid TDataSource TClientDataSet TDataSetProvider TAdoDataSetkongjian

  2 lianjiefangshiweiTDBGrid->TDataSource->TClientDataSet->TDataSetProvider->TAdoDataSet

  3 xianyong_recordsetduixianglaijieshoushuju4 ranhouba_recordsetduixiangbingeiTAdoDataSetkongjian5 zaitiaoyongTClientDataSetdeClosefangfaOpenfangfa

   duoyonghucaozuoshujudechulitongchangbayaocaozuodebiaojinxingsuoding suodingfangfaweiyongTInfoleidepLockTablefangfa

  shujuhefaxingjianchafangfa

   tongchangzaiyaobaocunshujudeshihouzhiqianjinxingshujuhefaxingdejiancha bu yaozaishurudeshihoujianchashujudehefaxing

  jianchabaokuo

  1 jianchashifoushizhengshu

  yongleiTInfodefIsInthanshupanduan

  2 jianchashifoushifudianshu

  yongleiTInfodefIsFloathanshupanduan

  3 jianchashifoushiriqi

  riqiyongTDateTimePickerlaijinxingshurutongchangbuyongjiancha

  4 jianchashifoumeiyoushuru

  yongleiTInfodeflenhanshupanduan

  5 shujuwanzhengxingdejianchajianchaneironghuizaikaifawendangzhongshuoming

  6 shujuluojixingdejianchajianchaneironghuizaikaifawendangzhongshuoming

   duiyuzifuleixingdeshuju zhuyiyidingyaoyongtrimhanshuqingchuqianhoudekongge

  leiTInfodeshuoming

  Tinfoleifengzhuangleyixiejibendehanshuguochengjichangshu

   hanshujiguocheng

  6 function fIsFloat(vData:string):boolean;

  7 function fIsInt(vData:string):boolean;

  8 function fLen(vData:string):boolean;

  9 procedure pBeginTrans;//shiwukaishi

  10 procedure pCommitTrans;//shiwutijiao

  11 procedure pRollBack;//shiwuhuigun

  12 procedure execute(const vSql:string;var vRs:_recordset;vAbort:boolean=false);overload;

  anquandeSQLzhixinghanshu1vSqlweiyaozhixingdeSQLyujuvrsweijieshoufanhuizhide_recordsetduixiangvAbortbiaoshidangfashengshuyulianjiewangluozhongduandecuowushishifouzhongzhichulitongchangzhixingbaohanzaiyigeshiwulideSQLyujushiyongtrueerbuzaishiwulideSQLyujubuyongzhiding

  liru var vSql:string;

   vrsWorker

   begin

   vsql:=select a.fdworkerno,a.fdworkername ;

   vsql:=vsql+ from tabworker a ;

  vinfo.execute(vsql,vrsworker);//zhejumeiyouzhidingvabortzequeshengweifalse

  {shangmianzheyijuzaizhixingruguowangluozhongduandaozhibunenglianjiedaoshujukuzehuijinxingtishishifouyaochongshiruguobuyaochongshize退tuichuzhenggexitongruguochongshizehuichongshilianjiedaoshujukudanruguorengranbunenglianjiezechongfujinxingtishizhidaolianjieshanghuoyouyonghuquxiaolianjieyi退tuichuxitong}

  vinfo.execute(vsql,vrsworker,true);//zhejuzhidingvabort

  {shangmianzheyijuzaizhixingruguowangluozhongduandaozhibunenglianjiedaoshujukuzehuijinxingtishibunenglianjiedaoshujukusuoyizhixingzhongzhibinghuichangshilianjiedaoshujukuruguobunenglianjiezetishishifouyaochongshiruguobuyaochongshize退tuichuzhenggexitongruguochongshizehuichongshilianjiedaoshujukudanruguorengranbunenglianjiezechongfujinxingtishizhidaolianjieshanghuoyouyonghuquxiaolianjieyi退tuichuxitong}

   end;

  

  13 procedure execute(const vSql:string;vAbort:boolean=false);overload;

  anquandeSQLzhixinghanshu2yu1dequbiezaiyu1youfanhuishujuji

   changshu

  1 vDateStrdangqianjisuanjideriqigeshi2 ruguodangqianjisuanjidegeshiwei2weinianfen3 zezhuanhuawei4weinianfen

  lirudangqianjisuanjideduanriqigeshiweiyy-mm-ddzevDateStrweiyyyy-mm-yy

  4 vCurrentUserNodangqiandengludecaozuoyuandebianhao

  5 vCurrentUserNamedangqiandengludecaozuoyuandeming6 cheng原文】【拼音
 
 
 
上一篇《在Delphi中实现类型安全的容器,Delphi泛型库DGL引介(提供源码下载)》
下一篇《用Delphi设计的网络营销软件》
 
 
 
 
 
 
日版宠物情人插曲《Winding Road》歌词

日版宠物情人2017的插曲,很带节奏感,日语的,女生唱的。 最后听见是在第8集的时候女主手割伤了,然后男主用嘴帮她吸了一下,插曲就出来了。 歌手:Def...

兄弟共妻,我成了他们夜里的美食

老钟家的两个儿子很特别,就是跟其他的人不太一样,魔一般的执着。兄弟俩都到了要结婚的年龄了,不管自家老爹怎么磨破嘴皮子,兄弟俩说不娶就不娶,老父母为兄弟两操碎了心...

如何磨出破洞牛仔裤?牛仔裤怎么剪破洞?

把牛仔裤磨出有线的破洞 1、具体工具就是磨脚石,下面垫一个硬物,然后用磨脚石一直磨一直磨,到把那块磨薄了,用手撕开就好了。出来的洞啊很自然的。需要猫须的话调几...

我就是扫描下图得到了敬业福和爱国福

先来看下敬业福和爱国福 今年春节,支付宝再次推出了“五福红包”活动,表示要“把欠大家的敬业福都还给大家”。 今天该活动正式启动,和去年一样,需要收集“五福”...

冰箱异味产生的原因和臭味去除的方法

有时候我们打开冰箱就会闻到一股异味,冰箱里的这种异味是因为一些物质发出的气味的混合体,闻起来让人恶心。 产生这些异味的主要原因有以下几点。 1、很多人有这种习...

 
 
Delphiwe编写规范 Delphiwe编写规范 程 序 编 写 规 范 1、 变量声明d  所有的变量不 论类型, 均以v开头, 如: var vWorkerName:string; vYear:integer; vDate:tdate;  _recordset对象的前缀为vrs。  特殊的变量:vSql:基本上所有的SQL语句均先用变量vSql斌值, 如: var vSql:string; begin vsql:=’select a.fdworker ‘; vsql:=vsql+’ from tabworker a ‘; end; 控件命名 类 前缀 示例 TEdit ed edWorkerNo TDBGrid grd grdWorker TCombobox cbo cboWorker TDateTimePicker dp dpDate TButton c cOk cCancel TCheckBox chk chkCancel TSpeedButton sb sbWorker TClientDataSet cln clnWorker TDataSource ds dsWorker TAdoDataSet adods adodsWorker TPanel pan panTop TForm frm frmWorker TDataSetProvider pvd pvdWorker TTreeview trv trvRawType TListview lst lstWorker TPageControl pc pcWorkerInformation TImage img imgWorker TMemo ed edMemo 2、 函数及过程的命名3、  函数的前缀用f 例如:处理数据检查的函数:function fCheckData:boolean;  过程的前缀用p 例如:处理工人离职的过程:procedure pWorkerLeave; 命名规则  所有变量或控件的命名 均采取英文意义命名, 并且尽量不 要用缩写。 例如: 对输入工人姓名的TEdit的命名为:edWorkerName 而不要命名为:edWN等缩写形式  数据表的前缀为tab, 字段的前缀为fd。 例如: 工人表的名称为:tabworker 工人编号的字段为:fdworkerno 数据库操作方法  操作数据库(选择、插入、更新、删除):基本上用SQL语句来操作数据库, 避免用Data Aware类的控件来操作数据库。 例如:插入一条生产记录: var vSql:string; vWorkerID:string; vProductNum:string; begin xxxxxx; ………; vsql:=’insert into tabproduct (fddate,fdworkerid,fdproductnum) values(‘; vsql:=vsql+vinfo.vdbsqldate(date); vsql:=vsql+’,’+(vWorkerID); vsql:=vsql+’,’+(vProductNum); vsql:=vsql+’)’; vinfo.execute(vsql); end; *注:vinfo代表一个自定义类TInfo的一个实例,里面封装了各种函数,具体内容在后面有说明。  用TDBGrid显示数据的方法: 1. 使用TDBGrid TDataSource TClientDataSet TDataSetProvider TAdoDataSet控件。 2. 连接方式为TDBGrid->TDataSource->TClientDataSet->TDataSetProvider->TAdoDataSet 3. 先用_recordset对象来接收数据,4. 然后把_recordset对象斌给TAdoDataSet控件,5. 再调用TClientDataSet的Close方法、Open方法。  多用户操作数据的处理:通常把要操作的表进行锁定, 锁定方法为用TInfo类的pLockTable方法。 数据合法性检查方法  通常在要保存数据的时候之前进行数据合法性的检查, 不 要在输入的时候检查数据的合法性。 检查包括: 1. 检查是否是整数; 用类TInfo的fIsInt函数判断。 2. 检查是否是浮点数; 用类TInfo的fIsFloat函数判断。 3. 检查是否是日期; 日期用TDateTimePicker来进行输入,通常不用检查。 4. 检查是否没有输入; 用类TInfo的flen函数判断。 5. 数据完整性的检查(检查内容会在开发文档中说明); 6. 数据逻辑性的检查(检查内容会在开发文档中说明);  对于字符类型的数据, 注意一定要用trim函数清除前后的空格。 类TInfo的说明 Tinfo类封装了一些基本的函数、过程及常数:  函数及过程: 6. function fIsFloat(vData:string):boolean; 7. function fIsInt(vData:string):boolean; 8. function fLen(vData:string):boolean; 9. procedure pBeginTrans;//事务开始 10. procedure pCommitTrans;//事务提交 11. procedure pRollBack;//事务回滚 12. procedure execute(const vSql:string;var vRs:_recordset;vAbort:boolean=false);overload; 安全的SQL执行函数1,vSql为要执行的SQL语句,vrs为接收返回值的_recordset对象,vAbort表示当发生属于连接(网络中断)的错误时,是否中止处理。通常执行包含在一个事务里的SQL语句时用true,而不在事务里的SQL语句不用指定。 例如: var vSql:string; vrsWorker begin vsql:=’select a.fdworkerno,a.fdworkername ‘; vsql:=vsql+’ from tabworker a ‘; vinfo.execute(vsql,vrsworker);//这句没有指定vabort,则缺省为false {上面这一句在执行,如果网络中断,导致不能连接到数据库,则会进行提示是否要重试,如果不要重试,则退出整个系统;如果重试,则会重试连接到数据库,但如果仍然不能连接,则重复进行提示直到连接上或由用户取消连接以退出系统} vinfo.execute(vsql,vrsworker,true);//这句指定vabort {上面这一句在执行,如果网络中断,导致不能连接到数据库,则会进行提示不能连接到数据库,所以执行中止。并会尝试连接到数据库。如果不能连接,则提示是否要重试,如果不要重试,则退出整个系统;如果重试,则会重试连接到数据库,但如果仍然不能连接,则重复进行提示直到连接上或由用户取消连接以退出系统} end; 13. procedure execute(const vSql:string;vAbort:boolean=false);overload; 安全的SQL执行函数2,与1的区别在于1有返回数据集。  常数: 1. vDateStr:当前计算机的日期格式,2. 如果当前计算机的格式为2位年份,3. 则转化为4位年份。 例如:当前计算机的短日期格式为’yy-mm-dd’,则vDateStr为’yyyy-mm-yy’。 4. vCurrentUserNo:当前登录的操作员的编号。 5. vCurrentUserName:当前登录的操作员的名6. 称。
󰈣󰈤
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
清凉一夏_清纯美丽
纯白色小礼服
靓丽可人儿_嘉嘉
我的女神_靓丽女生
主题摄影
贵州,让我欢喜,让我神伤。
莫干山
天平秋色
 
>>返回首页<<
 
 
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 热帖排行
 
 
 
 
©2005- 王朝网络 版权所有