路产管理系统 第20页
procedure TFrmQryBridge.ActionQueryExecute(Sender: TObject);
var
strWhere: string;
begin
strWhere:='';
if trim(edtNo.Text) <> '' then
begin
strWhere := ifthen(strwhere = '', '', strWhere + ' and ') + format(' 编号 like ''%%%s%%'' ', [uppercase(trim(edtNo.Text))]);
end;
if trim(edtStub.Text) <> '' then
begin
strWhere := ifthen(strwhere = '', '', strWhere + ' and ') + ' 里程桩号 >= '''+uppercase(trim(edtStub.Text))+'''';
end;
if trim(edtStubE.Text) <> '' then
begin
strWhere := ifthen(strwhere = '', '', strWhere + ' and ') + ' 里程桩号 <= '''+uppercase(trim(edtStubE.Text))+'''';
end;
if trim(edtType.Text) <> '' then
begin
strWhere := ifthen(strwhere = '', '', strWhere + ' and ') + format('孔数及结构类型 like ''%%%s%%'' ', [uppercase(trim(edtType.Text))]);
end;
if trim(edtDesign.Text) <> '' then
begin
strWhere := ifthen(strwhere = '', '', strWhere + ' and ') + format(' 设计荷载 like ''%%%s%%'' ', [uppercase(trim(edtDesign.Text))]);
end;
if trim(edtWidthB.Text) <> '' then
begin
strWhere := ifthen(strwhere = '', '', strWhere + ' and ') + ' Cint(桥面总宽)>='+uppercase(trim(edtWidthB.Text));
end;
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] ... 下一页 >>