动态产生和删除相关组件并生成SQL语句

wxyfj

　　(**********************************************************************************************************
　　*
　　*
　　* 窗体描述：产生SQL条件语句，系统模块 [计划管理-打卡] 打印大/小卡
　　*           能够根据维护进去的条件，生成过软类型: 缸内过软、缸外过软、连续皂洗、空白
　　*
　　* 关键功能点：1、动态产生和删除子/父等相关组件按钮（注意移动组件位置）
　　*             2、组合添加的参数条件，生成 SQL 语句
　　*
　　*
　　**********************************************************************************************************)
　　unit ProductCardParameters;
　　interface
　　uses

　　Windows, Messages, SysUtils, Variants,>　　Dialogs, StdCtrls, Buttons, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
　　DB, ADODB, ComCtrls, dxDBTLCl, dxGrClms, ExtCtrls, StrUtils, cxControls,
　　cxSplitter;
　　type
　　//组件的位置信息
　　TComPosition = record
　　cmbParameter_Left:Integer;
　　cmbParameter_Top:Integer;
　　cmbParameter_Width:Integer;
　　cmbParameter_Height:Integer;
　　cmbCondition_Left:Integer;
　　cmbCondition_Top:Integer;
　　cmbCondition_Width:Integer;
　　cmbCondition_Height:Integer;
　　edtParameter_Left:integer;
　　edtParameter_Top:integer;
　　edtParameter_Width:integer;
　　edtParameter_Height:integer;
　　btnAddChild_Left:Integer;
　　btnAddChild_Top:Integer;
　　btnAddChild_Width:Integer;
　　btnAddChild_Height:Integer;
　　btnAddParent_Left:Integer;
　　btnAddParent_Top:Integer;
　　btnAddParent_Width:Integer;
　　btnAddParent_Height:Integer;
　　btnDelete_Left:Integer;
　　btnDelete_Top:Integer;
　　btnDelete_Width:Integer;
　　btnDelete_Height:Integer;
　　end;

　　TfrmProductCardParameters =>　　qryProductCardParameters: TADOQuery;
　　dsProductCardParameters: TDataSource;
　　adoExecSQL: TADOQuery;
　　Splitter1: TSplitter;
　　GroupBox1: TGroupBox;
　　Panel1: TPanel;
　　Panel3: TPanel;
　　sb1: TStatusBar;
　　Panel4: TPanel;
　　btnClose: TSpeedButton;
　　btnInit: TSpeedButton;
　　btnDelete: TSpeedButton;
　　btnEdit: TSpeedButton;
　　btnQuery: TSpeedButton;
　　btnAppend: TSpeedButton;
　　RdoSurfeit: TRadioGroup;
　　dxDBGrid1: TdxDBGrid;
　　dxDBGrid1Column1: TdxDBGridColumn;
　　dxDBGrid1Column7: TdxDBGridCheckColumn;
　　dxDBGrid1Column2: TdxDBGridColumn;
　　dxDBGrid1Column8: TdxDBGridColumn;
　　dxDBGrid1Column3: TdxDBGridColumn;
　　dxDBGrid1Column6: TdxDBGridColumn;
　　dxDBGrid1Column4: TdxDBGridColumn;
　　dxDBGrid1Column5: TdxDBGridColumn;
　　GroupBox2: TGroupBox;
　　scb1: TScrollBox;
　　Panel2: TPanel;
　　Label3: TLabel;
　　Label2: TLabel;
　　Label1: TLabel;
　　edtParameter1: TEdit;
　　cmbParameter1: TComboBox;
　　cmbCondition1: TComboBox;
　　chkIsActive: TCheckBox;
　　btnAddParent1: TBitBtn;
　　btnAddChild1: TBitBtn;
　　procedure btnAppendClick(Sender: TObject);
　　procedure btnDeleteClick(Sender: TObject);
　　procedure btnInitClick(Sender: TObject);
　　procedure btnCloseClick(Sender: TObject);
　　procedure btnQueryClick(Sender: TObject);
　　procedure FormCreate(Sender: TObject);
　　procedure btnAddParent1Click(Sender: TObject);
　　procedure btnAddChild1Click(Sender: TObject);
　　procedure FormDestroy(Sender: TObject);
　　procedure FormClose(Sender: TObject; var Action: TCloseAction);
　　procedure dxDBGrid1DblClick(Sender: TObject);
　　procedure btnEditClick(Sender: TObject);
　　private
　　procedure initComponent;                                           //初始化
　　procedure GetParameterInfo(v1:string='');                          //获取信息，可以查询哪一个参数
　　function GetParameter_eng(iIndex:integer):string;                  //返回参数英文名称
　　function GetSurfeit(iIndex:integer):string;                        //返回过软方式
　　function GetParameter_ref(iIndex:integer):string;                  //返回关系，大于，等于...
　　function GetServerTime():String;                                   //获取服务器时间
　　procedure GetComponentPosition();                                  //获取控件的位置信息
　　procedure AddTerm(Term_T:String;Sender: TObject);                  //增加子/父按钮
　　procedure FillComboBox(cmb: TComboBox; itype:Byte);                //赋值
　　procedure CreateComboBox(idNo:Byte; type_id, L, T, W, H:integer);  //创建ComBobox组件
　　procedure CreateEdit(idNo:Byte; type_id, L, T, W, H:integer);      //创建Edit组件
　　procedure Createbtn(idNo:Byte; type_id, L, T, W, H:integer);       //创建Button组件
　　procedure FreeUI(Sender: TObject);                                 //点击删除组件
　　procedure FreeAllUI();                                             //清除所有组件
　　function FindControl(ParentControl: TWinControl;
　　FindControlName: string): TControl;           //查找组件
　　procedure MoveControlButton(Sender:TObject);virtual;               //移动组件
　　function GetTermMaxTop: Integer;                                   //获取最大高度
　　function iif(Expression:Boolean;ValueTrue:Variant;
　　ValueFalse:Variant): Variant; overload;
　　function GetParentComboBox(cbb: TComboBox): TComboBox;             //取父条件
　　function IsOneParameter(v_Para:string):boolean;                    //判断是否只有一个参数时
　　function GetParameterTop(v_Para:string):integer;                   //获取scb1中第一个高度
　　function CheckEdtParameter(type_id:byte): Integer;                 //检查是否都输入了值
　　procedure DBGridEdit(Sender: TObject);                             //双击DBGrid时，弹出修改SQL语句的框框
　　{ Private declarations }
　　public
　　//这个全局变量双击DBGrid时传递给令一窗体的Memo (单元文件:SurfeitParaModified)
　　g_SQLSurfeit:string;
　　g_chkIsActive:boolean;
　　{ Public declarations }
　　end;
　　var
　　frmProductCardParameters: TfrmProductCardParameters;
　　recComPosition :TComPosition;
　　icmbParameter, icmbCondition, iEdt, iParentbtn, iChidbtn, ibtnDelete, iNum: integer;                //控件的序号值 从 1 开始
　　strCondition: array of string;                                        //保存产生的条件语句
　　//  iTop:Integer;
　　implementation
　　uses Main, SurfeitParaModified;
　　{$R *.dfm}
　　{ TfrmProductCardParameters }
　　//初始化函数
　　procedure TfrmProductCardParameters.initComponent;
　　var
　　i:integer;
　　begin
　　for i:=0 to Self.ComponentCount-1 do
　　begin
　　if Self.Components is TEdit then (Self.Components as TEdit).Clear;
　　if Self.Components is TComboBox then (Self.Components as TComboBox).ItemIndex := 0;
　　if Self.Components is TRadioGroup then (Self.Components as TRadioGroup).ItemIndex := -1;
　　end;
　　end;
　　//查询函数
　　procedure TfrmProductCardParameters.GetParameterInfo(v1: string='');
　　var
　　strSQL: string;
　　begin
　　strSQL := 'SELECT * FROM pdProductCardParameters WHERE 1=1 ';
　　if v1  '' then
　　strSQL := strSQL + ' AND Parameters_chs=''' + v1 +'''';
　　with qryProductCardParameters do
　　begin
　　Close;
　　SQL.Clear;
　　SQL.Add(strSQL);
　　Open;
　　end;
　　end;
　　//新增
　　procedure TfrmProductCardParameters.btnAppendClick(Sender: TObject);
　　var
　　strSQL: string;
　　iIndex:Byte;
　　i, j, iTop, k:Integer;

　　>　　cbb, cppParent: TComboBox;
　　bTag, bSQLCondition: boolean;
　　strSurfeit:string;                    //过软类型
　　begin
　　//检查条件
　　if RdoSurfeit.ItemIndex = -1 then
　　begin
　　Application.Messagebox(Pchar('请选择过软类型！'),Pchar('提示'),Mb_IconInforMation+MB_OK);
　　RdoSurfeit.SetFocus;
　　exit;
　　end;
　　if cmbParameter1.ItemIndex=-1 then
　　begin
　　Application.Messagebox(Pchar('请选择参数名称！'),Pchar('提示'),Mb_IconInforMation+MB_OK);
　　cmbParameter1.SetFocus;
　　exit;
　　end;
　　if cmbCondition1.ItemIndex=-1 then
　　begin
　　Application.Messagebox(Pchar('请选择参数条件！'),Pchar('提示'),Mb_IconInforMation+MB_OK);
　　cmbCondition1.SetFocus;
　　exit;
　　end;
　　if edtParameter1.Text='' then
　　begin
　　Application.Messagebox(Pchar('请输入参数内容！'),Pchar('提示'),Mb_IconInforMation+MB_OK);
　　edtParameter1.SetFocus;
　　exit;
　　end;
　　//参数名称
　　iIndex := cmbParameter1.ItemIndex;
　　strSurfeit := GetSurfeit(RdoSurfeit.ItemIndex);                //过软类型
　　sPar := GetParameter_eng(cmbParameter1.itemIndex);             //获取参数英文名称
　　sOper := GetParameter_ref(cmbCondition1.itemIndex);            //获取操作符
　　sParValue:=edtParameter1.Text;                                 //获取实际参数内容
　　//组合可视化的组件条件语句
　　SQLCondition := '(' + sPar + ' ' + sOper +' ''' + iif(pos('LIKE',sOper)>0, '%', '') +
　　sParValue+iif(pos('LIKE',sOper)>0, '%', '') + ''') or';
　　//如果有参数控件，检查是否都输入了内容
　　if IsOneParameter('edtParameter') then
　　begin
　　k := CheckEdtParameter(0);
　　if k  -1 then
　　begin
　　Application.Messagebox(Pchar('请输入参数内容！'),Pchar('提示'),Mb_IconInforMation+MB_OK);
　　//      TEdit('edtParameter'+inttostr(k)).SetFocus;
　　exit;
　　end;
　　end;
　　//属于可视化的组件下父条件是否有子条件 （子条件动态产生）
　　if not IsOneParameter('cmbParameter') then                                                     //true为存在, scb1内没有参数
　　begin
　　for j:=0 to scb1.ControlCount - 1 do                                                          //遍历子条件
　　begin
　　if LeftStr(Scb1.Controls[j].Name, Length('cmbCondition'))='cmbCondition' then              //条件组件
　　begin
　　cbb:=TComboBox(Scb1.Controls[j]);

　　>　　sPar := GetParameter_eng(cmbParameter1.itemIndex);                                       //哪个字段
　　sOper := GetParameter_ref(cbb.itemIndex);                                                //哪个操作符号
　　sParValue:=TEdit(FindControl(Scb1, 'edtParameter'+id_Name)).Text;                        //值
　　SQLCondition := SQLCondition +  ' (' +
　　sPar + ' ' + sOper +' ''' + iif(pos('LIKE',sOper)>0, '%', '') +
　　sParValue+iif(pos('LIKE',sOper)>0, '%', '') + ''') or';
　　end;
　　end;
　　SQLCondition := Copy(SQLCondition, 1, Length(SQLCondition)-2) + ' ';                            //去掉最后面的 or
　　end
　　else
　　begin
　　iTop := GetParameterTop('cmbParameter');
　　for j:=0 to scb1.ControlCount - 1 do                                                          //遍历子条件
　　begin
　　if (LeftStr(Scb1.Controls[j].Name, Length('cmbCondition'))='cmbCondition') and             //条件组件
　　(Scb1.Controls[j].Top　　sPar := GetParameter_eng(cmbParameter1.itemIndex);                                       //哪个字段
　　sOper := GetParameter_ref(cbb.itemIndex);                                                //哪个操作符号
　　sParValue:=TEdit(FindControl(Scb1, 'edtParameter'+id_Name)).Text;                        //值
　　SQLCondition := SQLCondition +  ' (' +
　　sPar + ' ' + sOper +' ''' + iif(pos('LIKE',sOper)>0, '%', '') +
　　sParValue+iif(pos('LIKE',sOper)>0, '%', '') + ''') or';
　　end;
　　end;
　　SQLCondition := Copy(SQLCondition, 1, Length(SQLCondition)-2) + ' ';                            //去掉最后面的 or
　　end;
　　//下面开始循环处理动态产生的所有组件并组合SQL语句
　　//  SQLCondition := '';
　　for i:=0 to scb1.ControlCount - 1 do                                                              //遍历父条件
　　begin
　　if LeftStr(Scb1.Controls.Name, Length('cmbParameter'))='cmbParameter' then                   //是参数组件
　　begin
　　if SQLCondition  '' then
　　SQLCondition := SQLCondition + ' AND ';                                                     //下一个参数时，是并列关系
　　for j:=0 to scb1.ControlCount - 1 do                                                          //遍历子条件，是 or 的关系
　　begin
　　if LeftStr(Scb1.Controls[j].Name, Length('cmbCondition'))='cmbCondition' then
　　begin
　　cbb:=TComboBox(Scb1.Controls[j]);
　　cppParent:=GetParentComboBox(cbb);                                                         //查找这个子条件所属的父条件
　　if cppParent.Name = Scb1.Controls.Name then                                             //属于这个父条件的子条件
　　begin

　　>　　sPar := GetParameter_eng(cppParent.itemIndex);                                           //哪个字段
　　sOper := GetParameter_ref(cbb.itemIndex);                                                //哪个操作符号
　　sParValue:=TEdit(FindControl(Scb1, 'edtParameter'+id_Name)).Text;                        //值
　　SQLCondition := SQLCondition +  ' (' +
　　sPar + ' ' + sOper +' ''' + iif(pos('LIKE',sOper)>0, '%', '') +
　　sParValue+iif(pos('LIKE',sOper)>0, '%', '') + ''') or';
　　end;
　　end;
　　end;
　　SQLCondition := Copy(SQLCondition, 1, Length(SQLCondition)-2) + ' ';                            //去掉最后面的 or
　　end;
　　end;
　　//生成最终插入数据库的语句
　　SQLCondition := ' WHEN ' + SQLCondition + ' THEN ''' + strSurfeit + ''' ';
　　//  ShowMessage(SQLCondition);
　　//  exit;
　　//更新进资料库
　　strSQL := 'INSERT INTO pdProductCardParameters([SQLCondition], [IsActive], [Surfeit]) ' +
　　' VALUES(:SQLCondition, :IsActive, :Surfeit) ';
　　with qryProductCardParameters do
　　begin
　　Close;
　　SQL.Clear;
　　SQL.Add(strSQL);
　　Parameters.ParamByName('SQLCondition').Value := SQLCondition;                       //SQL条件语句
　　//    Parameters.ParamByName('Oper_Date').Value :=  GetServerTime()                     //操作日期，改为由DB Default值GetDate()
　　Parameters.ParamByName('IsActive').Value := chkIsActive.Checked;                    //是否启用
　　Parameters.ParamByName('Surfeit').Value := strSurfeit;                              //过软类型
　　ExecSQL;
　　end;
　　initComponent;              //清空组件内容
　　cmbParameter1.ItemIndex := iIndex;
　　GetParameterInfo('');
　　ShowMessage('新增成功!');
　　sb1.SimpleText := ' 新增成功...';
　　end;
　　//取字段英文名称
　　function TfrmProductCardParameters.GetParameter_eng(
　　iIndex: integer): string;
　　var
　　strRetVal:string;
　　begin
　　//1、染色方式??PdBatchHead.Dye_Method
　　//2、流程?? artdb..rtproductartinfo?operation
　　//3、整理方式? artdb..rtproductartinfo Finishing_Desc
　　//4、纱类?.? ArtDB..rtRawArtInfo??yarn_type
　　//5、布种? ArtDB..rtRawArtInfo??G.Construction_Desc
　　//6、克重? artdb..rtproductartinfo E.Product_Gmmm
　　//7、客户? SystemDB..pbCustomerList customer
　　//8、码重? ArtDB..rtRawArtInfo??Ozyd

　　//9、门幅? ArtDB..rtRawArtInfo>　　//10、色号? FinishingDB.dbo.PdBatchHead color_code
　　strRetVal := '';
　　case iIndex of
　　//    0: strRetVal := 'PdBatchHead.Dye_Method';
　　//    1: strRetVal := 'rtproductartinfo.operation';
　　//    2: strRetVal := 'rtproductartinfo.Finishing_Desc';
　　//    3: strRetVal := 'rtRawArtInfo.yarn_type';
　　//    4: strRetVal := 'rtRawArtInfo.Construction_Desc';
　　//    5: strRetVal := 'rtproductartinfo.Product_Gmmm';
　　//    6: strRetVal := 'pbCustomerList.customer';
　　//    7: strRetVal := 'rtRawArtInfo.Ozyd';
　　//    8: strRetVal := 'rtRawArtInfo.width';
　　//    9: strRetVal := 'PdBatchHead.color_code';
　　0: strRetVal := 'Dye_Method';
　　1: strRetVal := 'operation';
　　2: strRetVal := 'Finishing_Desc';
　　3: strRetVal := 'yarn_type';
　　4: strRetVal := 'Construction_Desc';
　　5: strRetVal := 'Product_Gmmm';
　　6: strRetVal := 'customer';
　　7: strRetVal := 'Ozyd';
　　8: strRetVal := 'width';
　　9: strRetVal := 'color_code';
　　end;
　　Result := strRetVal;
　　end;
　　//返回符号
　　function TfrmProductCardParameters.GetParameter_ref(
　　iIndex: integer): string;
　　var
　　strRetVal:string;
　　begin
　　//包含
　　//不包含
　　//等于
　　//大于
　　//小于
　　//大于等于
　　//小于等于
　　//不等于
　　strRetVal := '';
　　case iIndex of
　　0: strRetVal := 'LIKE';
　　1: strRetVal := 'NOT LIKE';
　　2: strRetVal := '=';
　　3: strRetVal := '>';
　　4: strRetVal := '=';
　　6: strRetVal := '　　with adoExecSQL do
　　begin
　　Close;
　　SQL.Clear;
　　SQL.Add(strSQL);
　　Parameters.ParamByName('Iden').Value := qryProductCardParameters.fieldbyname('Iden').AsInteger;  //.FieldValues['Iden'].AsInteger;
　　ExecSQL;
　　end;
　　initComponent;
　　GetParameterInfo('');
　　ShowMessage('删除成功!');
　　sb1.SimpleText := ' 删除成功...';
　　end;
　　//清空
　　procedure TfrmProductCardParameters.btnInitClick(Sender: TObject);
　　begin
　　FreeAllUI();
　　initComponent;
　　qryProductCardParameters.Active := false;
　　end;
　　//退出
　　procedure TfrmProductCardParameters.btnCloseClick(Sender: TObject);
　　begin
　　close;
　　end;
　　//查询
　　procedure TfrmProductCardParameters.btnQueryClick(Sender: TObject);
　　begin
　　//  GetParameterInfo(Trim(cmbParameter1.Text));
　　GetParameterInfo('');
　　sb1.SimpleText := ' 查询成功...';
　　end;
　　//初始化
　　procedure TfrmProductCardParameters.FormCreate(Sender: TObject);
　　begin
　　initComponent;
　　GetParameterInfo('');
　　GetComponentPosition();               //获取控件的位置信息
　　end;
　　//获取服务器时间，如果出现错误取本机时间
　　function TfrmProductCardParameters.GetServerTime: String;
　　var
　　adoqry: TADOQuery;
　　strRetVal:string;
　　begin
　　strRetVal := '';
　　adoqry := TADOQuery.Create(Self);
　　try
　　with adoqry do
　　begin
　　try
　　Close;
　　SQL.Clear;
　　SQL.Add('SELECT CONVERT(NVARCHAR(20), GETDATE(), 120) AS DT1');
　　Open;
　　strRetVal := Trim(fieldbyname('DT1').AsString);
　　except
　　on E:Exception do
　　begin
　　strRetVal := FormatDateTime('yyyy-mm-dd hh:nn:ss', Now());
　　Application.Messagebox(Pchar('获取服务器时间出现错误，将使用本机时间！'),Pchar('提示'),MB_ICONWARNING+MB_OK);
　　end;
　　end;
　　end;
　　finally
　　adoqry.Free;
　　end;
　　Result := strRetVal;
　　end;
　　//获取控件的初始化信息
　　procedure TfrmProductCardParameters.GetComponentPosition;
　　begin
　　icmbParameter := 1;
　　icmbCondition := 1;
　　iEdt := 1;
　　iParentbtn := 1;
　　iChidbtn := 1;
　　ibtnDelete := 1;
　　iNum := 1;
　　recComPosition.cmbParameter_Left := cmbParameter1.Left;
　　recComPosition.cmbParameter_Top := cmbParameter1.Top;
　　recComPosition.cmbParameter_Width := cmbParameter1.Width;
　　recComPosition.cmbParameter_Height := cmbParameter1.Height;
　　recComPosition.cmbCondition_Left := cmbCondition1.Left;
　　recComPosition.cmbCondition_Top := cmbCondition1.Top;
　　recComPosition.cmbCondition_Width := cmbCondition1.Width;
　　recComPosition.cmbCondition_Height := cmbCondition1.Height;
　　recComPosition.edtParameter_Left := edtParameter1.Left;
　　recComPosition.edtParameter_Top := edtParameter1.Top;
　　recComPosition.edtParameter_Width := edtParameter1.Width;
　　recComPosition.edtParameter_Height := edtParameter1.Height;
　　recComPosition.btnAddChild_Left := btnAddChild1.Left;
　　recComPosition.btnAddChild_Top := btnAddChild1.Top;
　　recComPosition.btnAddChild_Width := btnAddChild1.Width;
　　recComPosition.btnAddChild_Height := btnAddChild1.Height;
　　recComPosition.btnAddParent_Left := btnAddParent1.Left;
　　recComPosition.btnAddParent_Top := btnAddParent1.Top;
　　recComPosition.btnAddParent_Width := btnAddParent1.Width;
　　recComPosition.btnAddParent_Height := btnAddParent1.Height;
　　recComPosition.btnDelete_Left := btnAddParent1.Left + btnAddParent1.Width + 30;
　　recComPosition.btnDelete_Top := btnAddParent1.Top;
　　recComPosition.btnDelete_Width := btnAddParent1.Width;
　　recComPosition.btnDelete_Height := btnAddParent1.Height;
　　end;
　　procedure TfrmProductCardParameters.AddTerm(Term_T: String;
　　Sender: TObject);
　　var
　　cmbParameter, cmbCondition: TComboBox;
　　edtParameter: TEdit;
　　btnAddChild, btnAddParent,btnDelete: TButton;
　　iTop: integer;
　　begin
　　if Term_T = 'F' then     //父条件
　　begin
　　//参数名称
　　iTop := GetTermMaxTop();
　　if iTop = 0 then
　　Inc(iTop, 15);
　　Inc(iTop, 30);
　　//    icmbParameter := icmbParameter+1;
　　iNum := iNum + 1;
　　//    recComPosition.cmbParameter_Top := recComPosition.cmbParameter_Top + 30;
　　CreateComboBox(iNum,
　　0,
　　recComPosition.cmbParameter_Left,
　　//                   recComPosition.cmbParameter_Top,
　　iTop,
　　recComPosition.cmbParameter_Width,
　　recComPosition.cmbParameter_Height);
　　//条件
　　//    recComPosition.cmbCondition_Top := recComPosition.cmbCondition_Top + 30;
　　//    icmbCondition := icmbCondition+1;
　　CreateComboBox(iNum,
　　1,
　　recComPosition.cmbCondition_Left,
　　//                   recComPosition.cmbCondition_Top,
　　iTop,
　　recComPosition.cmbCondition_Width,
　　recComPosition.cmbCondition_Height);
　　//参数内容
　　//    recComPosition.edtParameter_Top := recComPosition.edtParameter_Top + 30;
　　//    iEdt := iEdt+1;
　　CreateEdit(    iNum,
　　0,
　　recComPosition.edtParameter_Left,
　　//                   recComPosition.edtParameter_Top,
　　iTop,
　　recComPosition.edtParameter_Width,
　　recComPosition.edtParameter_Height);
　　//子按钮
　　//    recComPosition.btnAddChild_Top := recComPosition.btnAddChild_Top + 30;
　　//    iChidbtn := iChidbtn+1;
　　Createbtn(     iNum,
　　0,
　　recComPosition.btnAddChild_Left,
　　//                   recComPosition.btnAddChild_Top,
　　iTop,
　　recComPosition.btnAddChild_Width,
　　recComPosition.btnAddChild_Height);
　　//父按钮
　　//    recComPosition.btnAddParent_Top := recComPosition.btnAddParent_Top + 30;
　　//    iParentbtn := iParentbtn+1;
　　Createbtn(     iNum,
　　1,
　　recComPosition.btnAddParent_Left,
　　//                   recComPosition.btnAddParent_Top,
　　iTop,
　　recComPosition.btnAddParent_Width,
　　recComPosition.btnAddParent_Height);
　　//删除
　　//    recComPosition.btnDelete_Top := recComPosition.btnDelete_Top + 30;
　　//    ibtnDelete := ibtnDelete + 1;
　　Createbtn(     iNum,
　　2,
　　recComPosition.btnDelete_Left,
　　//                   recComPosition.btnDelete_Top,
　　iTop,
　　recComPosition.btnDelete_Width,
　　recComPosition.btnDelete_Height);
　　end
　　else if Term_T = 'C' then    //子条件
　　begin
　　//条件
　　iNum := iNum + 1;
　　//    recComPosition.cmbCondition_Top := recComPosition.cmbCondition_Top + 30;
　　//    icmbCondition := icmbCondition+1;
　　CreateComboBox(iNum,
　　1,
　　recComPosition.cmbCondition_Left,
　　//                   recComPosition.cmbCondition_Top,
　　TButton(Sender).Top + 30,
　　recComPosition.cmbCondition_Width,
　　recComPosition.cmbCondition_Height);
　　//参数内容
　　//    recComPosition.edtParameter_Top := recComPosition.edtParameter_Top + 30;
　　//    iEdt := iEdt+1;
　　CreateEdit(    iNum,
　　0,
　　recComPosition.edtParameter_Left,
　　//                   recComPosition.edtParameter_Top,
　　TButton(Sender).Top + 30,
　　recComPosition.edtParameter_Width,
　　recComPosition.edtParameter_Height);
　　//删除
　　//    recComPosition.btnDelete_Top := recComPosition.btnDelete_Top + 30;
　　//    ibtnDelete := ibtnDelete + 1;
　　Createbtn(     iNum,
　　2,
　　recComPosition.btnDelete_Left,
　　//                   recComPosition.btnDelete_Top,
　　TButton(Sender).Top + 30,
　　recComPosition.btnDelete_Width,
　　recComPosition.btnDelete_Height);
　　end;
　　end;
　　//添加父条件
　　procedure TfrmProductCardParameters.btnAddParent1Click(Sender: TObject);
　　begin
　　AddTerm('F', Sender);
　　end;
　　//填充ComBobox
　　procedure TfrmProductCardParameters.FillComboBox(cmb: TComboBox;
　　itype: Byte);
　　var
　　i: integer;
　　const cmbParameter: array[0..9] of string = (
　　'染色方式',
　　'流程',
　　'整理方式',
　　'纱类',
　　'布种',
　　'克重',
　　'客户',
　　'码重',
　　'门幅',
　　'色号');
　　const cmbCondition: array[0..7] of string = (
　　'包含',
　　'不包含',
　　'等于',
　　'大于',
　　'小于',
　　'大于等于',
　　'小于等于',
　　'不等于'
　　);
　　begin
　　if itype = 0 then
　　begin
　　cmb.Clear;
　　for i:=Low(cmbParameter) to High(cmbParameter) do
　　cmb.Items.Add(cmbParameter)
　　end
　　else if itype =1 then
　　begin
　　cmb.Clear;
　　for i:=Low(cmbCondition) to High(cmbCondition) do
　　cmb.Items.Add(cmbCondition)
　　end;
　　end;
　　//创建ComBobox
　　procedure TfrmProductCardParameters.CreateComboBox(idNo: Byte; type_id, L,
　　T, W, H: integer);
　　var
　　strName: string;
　　cbb: TComboBox;
　　begin
　　if type_id =0 then
　　begin
　　strName := 'cmbParameter'
　　end
　　else if type_id = 1 then
　　begin
　　strName := 'cmbCondition'
　　end;
　　//  ShowMessage(strName);
　　cbb := TComboBox.Create(Self);
　　cbb.Parent := Self.scb1;
　　cbb.Name := strName + IntToStr(idNo);
　　cbb.Style := csDropDownList;
　　FillComboBox(cbb, type_id);
　　cbb.ItemIndex := 0;
　　//  cbb.Text := strName + IntToStr(idNo);
　　cbb.Left := L;
　　cbb.Top := T;
　　cbb.Width := W;
　　cbb.Height := H;
　　cbb.Visible := true;
　　end;
　　//创建Edit
　　procedure TfrmProductCardParameters.CreateEdit(idNo: Byte; type_id, L, T,
　　W, H: integer);
　　var
　　strName: string;
　　edt: TEdit;
　　begin
　　if type_id =0 then
　　begin
　　strName := 'edtParameter'
　　end
　　else if type_id = 1 then
　　begin
　　;
　　end;
　　edt := TEdit.Create(Self);
　　edt.Parent := Self.scb1;
　　edt.Name := strName + IntToStr(idNo);
　　//  edt.CharCase := ecUpperCase;
　　edt.clear;
　　//  edt.Text := strName + IntToStr(idNo);
　　edt.Left := L;
　　edt.Top := T;
　　edt.Width := W;
　　edt.Height := H;
　　edt.Visible := true;
　　end;
　　//子条件
　　procedure TfrmProductCardParameters.btnAddChild1Click(Sender: TObject);
　　begin
　　MoveControlButton(Sender);
　　AddTerm('C', Sender);
　　end;
　　//创建按钮
　　procedure TfrmProductCardParameters.Createbtn(idNo: Byte; type_id, L, T, W,
　　H: integer);
　　var
　　strName, strCaption: string;
　　btn: TButton;
　　begin
　　if type_id =0 then
　　begin
　　strName := 'btnAddChild';   //子
　　strCaption := '+子条件';
　　end
　　else if type_id = 1 then     //父
　　begin
　　strName := 'btnAddParent';
　　strCaption := '+父条件';
　　end
　　else
　　begin
　　strName := 'btnDelete';    //删除
　　strCaption := '删除';
　　end;
　　btn := TButton.Create(Self);
　　btn.Parent := Self.scb1;
　　btn.Name := strName + IntToStr(idNo);
　　btn.Caption := strCaption;
　　//  btn.Caption := strName + IntToStr(idNo);
　　btn.Left := L;
　　btn.Top := T;
　　btn.Width := W;
　　btn.Height := H;
　　btn.Visible := true;
　　//设置onclick事件
　　if type_id =0 then
　　begin
　　btn.OnClick := btnAddChild1Click;   //子
　　end
　　else if type_id = 1 then     //父
　　begin
　　btn.OnClick := btnAddParent1Click;
　　end
　　else
　　begin
　　btn.OnClick := FreeUI;   //删除事件
　　end;
　　end;
　　//释放
　　procedure TfrmProductCardParameters.FreeUI(Sender: TObject);
　　var
　　i,j: integer;

　　>　　//  obj: TObject;
　　obj: TControl;
　　itop: integer;
　　begin
　　try

　　>
　　>　　iTop:=0;
　　obj := FindControl(scb1, 'btnAddParent'+ID_Name);
　　if Assigned(obj) then
　　begin
　　iTop:=iif(iTop