用query,添加如下SQL语句 Select younum = Substring(youfield,strat,length) From youtable where ... 说明youfiedl为字符型,否则最好先转换 Convert(varchar(50),youfield)
select * from tablename where id like '_12345%' 多看看SQL语句的语法.
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean); begin if Pos('2345',DataSet.FieldByName('身份证').AsString) = 2 then Accept := true; end; ————————————————————————————————— MaximStr := '宠辱不惊,看庭前花开花落,去留无意; 毁誉由人,望天上云卷云舒,聚散任风。'; if Not Assigned(I) then I := TI.Create(Nil); I.Maxim := MaximStr; I.Explain := '假如上述代码中出现“OA”等字样,删除它们'; I.Desire := '加不加分随你'; —————————————————————————————————
Select younum = Substring(youfield,strat,length) From youtable
where ...
说明youfiedl为字符型,否则最好先转换 Convert(varchar(50),youfield)
var Accept: Boolean);
begin
if Pos('2345',DataSet.FieldByName('身份证').AsString) = 2 then
Accept := true;
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————