截取特定的字符串，举例说明

Question

1.在表中有一个字段的类型是int型的，从中截取出固定的长度的数字并按照其查询。
例如：时间：197810231645 从中截取出10。
2.按条件查询，显示在dbgrid中数据的所有的内容，选择其中某个条件保存到其它不同的表中。
和在dbgrid中选择其中的几条记录保存到他它表中。以上的代码怎么写？？？？？？
并举例说明：小弟感谢！！！！！！！！！！！！！！！！

Answer 1

if combobox1.Text='01' then
    begin
      str:=str+' (copy(commymdh as varchar),5,2).asint: = 01';
    with data1.adoc_dj do
       begin
      close;
      sql.Clear;
      sql.Add(str);
      open;
     end;

Answer 2

1sql  select * from dd where field=left(nn,n)2按某个条件你可以滤出来，然后添加到另个表中

Answer 3

.在表中字段的类型是int型的，从中截取出固定的长度的数字。
例如：时间：197810231645 从中截取出10。
2.按条件查询，显示在dbgrid中数据的所有的内容，选择其中某个条件保存到其它不同的表中。
和在dbgrid中选择其中的几条记录保存到他它表中。以上的代码怎么写？？？？？？

Answer 4

1、197810231645 从中截取出10
  strtoint(copy(inttostr(197810231645),5,2)),这样可以得出10了。
第二没明白什么意思？请讲清楚些！

Answer 5

select * from tablename where ... order by (int_field / 1000000) % 100

Answer 6

把dbgrid中的数据，保存到其它不同的表中。
在dbgrid中选择其中的几条记录保存到他它表中。以上的代码怎么写？？？？？？

Answer 7

把dbgrid中的数据，保存到其它不同的表中。
在dbgrid中选择其中的几条记录保存到他它表中。以上的代码怎么写？？？？？？
就是这个问题啦？？？？？？？？？？？？？？？？？？？？

Answer 8

with dbgrid.datasource.dataset do
begin
filter:=...............
filetred:=true;
end;

Answer 9

干吗呢 你用sql语句重新查询一遍不就可以了吗？
干吗非得利用第一个dbgrid呢 还不知道怎么回事？

Answer 10

var
  s,s1:string;
begin
  s:='197810231645';
  s1:='10';
  s:=SearchBuf(pchar(S),StrLen(pchar(s)),0,0,pchar(s1));
  s:=copy(pchar(s),1,Length(s1));
  ShowMessage(s);
end;

Answer 11

显示在dbgrid中数据的所有的内容，选择其中某个条件保存到其它不同的表中。
和在dbgrid中选择其中的几条记录保存到他它表中.举出实例阿！
我这周解帖拉.

Answer 12

with dmEse.sdsTemp do
  begin
    Insert;
    FieldByName('PID').Value := dmEse.sdsProductsPRODUCT_ID.Value;
    FieldByName('PName').Value := dmEse.sdsProductsPRODUCT_NAME.Value;
    .....
    Post;
  end;
其中sdsTemp是你所说的其他表所对应的数据集控件。
    dmEse是数据模块。
    sdsProductsPRODUCT_ID.Value是dbGrid组件所对应的数据集控件的永久字段。
执行后可以将dbGrid组件所对应的数据集控件的当前纪录添加到另一个数据表中。

Answer 13

对使用
with dbgrid.datasource.dataset do
begin
filter:=...............
filetred:=true;
end;
得到的过滤后的数据使用一个循环添加到其他数据表中。

Answer 14

在dbgrid中选择其中的几条记录保存到他它表中。以上的代码怎么写？？？？？？

Answer 15

procedure THangCiXuanZeForm.Button3Click(Sender: TObject);
{var
i,j:integer;
str:string;
begin
for i:=0 to dbgrid1.Columns.Count-1 do
 begin
 str:=dbgrid1.Columns[i].FieldName ;
  end;
 ///////////////////    }
 var
  i, j: Integer;
  s: string;
begin
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
end;
怎么到如到其他表中呢？？？？？？？？？？？？？？？？？？？？？？？？？

Answer 16

procedure THangCiXuanZeForm.Button3Click(Sender: TObject);
{var
i,j:integer;
str:string;
begin
for i:=0 to dbgrid1.Columns.Count-1 do
 begin
 str:=dbgrid1.Columns[i].FieldName ;
  end;
 ///////////////////    }
 var
  i, j: Integer;
  s: string;
begin
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
end;
怎么到如到其他表中呢？？？？？？？？？？？？？？？？？？？？？？？？？紧急阿！！！！！！！！！！！！！！！！！！！！1111