- 博客(4)
- 资源 (2)
- 收藏
- 关注
原创 SQL中查询树结构式结果
//SQL中查询树结构式结果SQL:Select A.ID,A.GNWZMC,A.idx,B.idx As ParentIdx,A.级数 From (Select Rownum As Idx,Level As 级数,ID,FID,GNWZMCFrom GY_SB_WJJG Start With FID=-1 Connect By
2008-02-20 09:15:00 920
原创 控制一个窗体上的一类控件显示
//delphi中控制控件的方法//传入参数是PANEL 或Formprocedure TCT_WJJG. Set_Controls(obj_Component:TComponent);var int_Number:integer;begin for int_Number:=0 to obj_Component.ComponentCount-1 do begin if(o
2008-02-20 09:14:00 429
原创 删除子结点
//删除所有子结点的方法Procedure TCT_WJJG.DelAllChildrenNode(FNodeID:string);var sqlStr: String;begin sqlStr:= delete GY_SB_WJJG where id in( + select id from GY_SB_WJJG + start
2008-02-20 09:11:00 344
原创 几个判断合法性的例子(功能位置)
function FunctionEquipment.IsAddRightPlace:Boolean;var FDXName:string;begin FDXName:=CommunalFunction.GetFatherNodeDXName(self.AddGNWZBZID); if(SysUtils.UpperCase(FDXName.Trim)=SysUtils
2008-02-20 09:07:00 532
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人