JackQu的程序员博客

欢迎来的我Blog.这里记录工作学习的点滴,愿与大家分享。欢迎大家共同交流 。

导航

12 2008 档案

删除业务判断
摘要:[代码] 阅读全文

posted @ 2008-12-19 16:16 Qcj 阅读(178) 评论(0) 推荐(0) 编辑

取一个文本的第二、三行
摘要:[代码] 阅读全文

posted @ 2008-12-19 16:14 Qcj 阅读(285) 评论(0) 推荐(0) 编辑

检索条件时间默认 当月第一天和最后一天
摘要:[代码] 阅读全文

posted @ 2008-12-19 16:11 Qcj 阅读(311) 评论(0) 推荐(0) 编辑

显示部门下的所有员工
摘要:Code Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->ProcedureShowDeptUsers; vars,aDept:String; aSqlQuery:TSqlQuery; begin s:='';... 阅读全文

posted @ 2008-12-19 16:09 Qcj 阅读(359) 评论(0) 推荐(0) 编辑

获得当前活动的Actid
摘要:Code Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->varFWf:TWorkFlowPackage; FWf:=GetCurrentWorkFlowPackage; FActid:=FWf.Activityid; 阅读全文

posted @ 2008-12-19 16:08 Qcj 阅读(516) 评论(0) 推荐(0) 编辑

获取系统常量
摘要:Code Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->表SYSPARAMS字段PTYPE=SYSCONSTS Pdesc=GetSysConst('PName','默认') 例: 1)functionGetAccBills... 阅读全文

posted @ 2008-12-19 16:05 Qcj 阅读(273) 评论(0) 推荐(0) 编辑

格式化字符串
摘要:FormatFloat('0.00;-0.00;0','') Code 阅读全文

posted @ 2008-12-19 16:03 Qcj 阅读(222) 评论(0) 推荐(0) 编辑

创建新业务实例 (非请勿入)
摘要:Code Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->NewEntityID:=GetNewEntityID('表名'); NewBillNo:=GetBillNo(EntityID,Actid,'单据类型',0); AMould... 阅读全文

posted @ 2008-12-19 15:59 Qcj 阅读(269) 评论(0) 推荐(0) 编辑

错误 Error
摘要:Code Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->try except showmessage(ExceptationParam) end 阅读全文

posted @ 2008-12-19 15:55 Qcj 阅读(250) 评论(1) 推荐(0) 编辑

判断字段值已经存在
摘要:Code Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->例:MBLNO procedureMblnoChange(Sender:Tfield); varaSQLQuery:TSQLQuery; aMblno:Str... 阅读全文

posted @ 2008-12-19 15:54 Qcj 阅读(552) 评论(0) 推荐(0) 编辑

获取当前供应商的联系人信息
摘要:javascript:WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions("Editor$Edit$lkbPost", "", true, "", "", false, true)) 阅读全文

posted @ 2008-12-19 15:52 Qcj 阅读(371) 评论(0) 推荐(0) 编辑

账单明细表 创建唯一索引
摘要:Code Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->CREATEUNIQUEASCENDINGINDEXI_ACCBILLSITEMS_SRCACTIDONACCBILLSITEMS(SYSID,SRCACTID,SR... 阅读全文

posted @ 2008-12-19 15:49 Qcj 阅读(414) 评论(0) 推荐(0) 编辑

DB下拉框事件
摘要:Code Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->procedureComboBoxSalesNameDropDown(Sender:TObject); varaSQLQuery:TSQLQuery; begin... 阅读全文

posted @ 2008-12-19 15:48 Qcj 阅读(468) 评论(0) 推荐(0) 编辑

字段值累加到字符串
摘要:Code Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->1varsl:TStrings; 2begin 3CommitDataSet; 4sl:=TStringList.Create; 5... 阅读全文

posted @ 2008-12-19 15:46 Qcj 阅读(253) 评论(0) 推荐(0) 编辑

SQL-使用Case进行行列转换
摘要:Code Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->selectsum(caseFcyNowhen'USD'thenfcyamtelse0end)usdfromaccbillsitems 提示错误expres... 阅读全文

posted @ 2008-12-19 15:43 Qcj 阅读(357) 评论(0) 推荐(0) 编辑

简单的函数
摘要:Code Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->FunctionUpdateOrInsert(Fbentityid,Itemid,CNTRID:integer):boolean; varaSQLQuery:TSQLQuer... 阅读全文

posted @ 2008-12-19 15:40 Qcj 阅读(246) 评论(0) 推荐(0) 编辑

用这个方法可以看数据集字段
摘要:SaveToFile('d:\js.xml',dfXMLUTF8) SaveToFile('d:/d',dfbinary); 跟踪调试 SendToDebugMSG(' '); 阅读全文

posted @ 2008-12-19 15:38 Qcj 阅读(143) 评论(0) 推荐(0) 编辑

Blob 字段 BLOB SUB_TYPE 说明
摘要:用sub_type子句指定子类型。最常用的子类型是0、1。 例如:Create Table Table2 (Blob1 Blob, Blob2 Blob Sub_Type 1, Blob3 Blob Sub_Type -1); 上面的语句创建了一个含有三个BLOB类型的数据表。第一个是缺省子类型0,代表无类型二进制数据;第二个子类型为1,代表是文本数据;第三个子类行为-1,代表用户自定义类型... 阅读全文

posted @ 2008-12-19 15:36 Qcj 阅读(302) 评论(0) 推荐(0) 编辑

判断角色
摘要:Code Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> 1 function GetUserrole: Boolean; 2 var ATeams: TStrings; 3 i:Integer; 4 begin 5 ... 阅读全文

posted @ 2008-12-18 08:44 Qcj 阅读(177) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示