----赖格英-----

记忆不好了,记录工作中的点点滴滴....

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理
table2.Close;
 table2.Active:=false;
 table2.Exclusive:=true;
 table2.TableName:='h:\gzkd\sds';
 table2.TableType:=ttFOXPRO;
   with table2.FieldDefs do
   begin
   clear;
   with addfielddef do
   begin
   name:='bh';
   datatype:=FTSTRING;
   size:=6;
     end;
      with addfielddef do
   begin
   name:='xm';
   datatype:=FTSTRING;
   size:=8;
     end;
      with addfielddef do
   begin
   name:='ms';
   datatype:=FTSTRING;
   size:=10;
     end;
       with addfielddef do
   begin
   name:='dw';
   datatype:=FTSTRING;
   size:=20;
    end;
    with addfielddef do
   begin
   name:='gzsr';
   datatype:=FTfloat;
   end;
    with addfielddef do
   begin
   name:='gwjt';
   datatype:=FTfloat;
   end;
    with addfielddef do
   begin
   name:='shbt';
   datatype:=FTfloat;
     end;
       with addfielddef do
   begin
   name:='qtsr';
   datatype:=FTfloat;
     end;
       with addfielddef do
   begin
   name:='srze';
   datatype:=FTfloat;
     end;
       with addfielddef do
   begin
   name:='jsze';
   datatype:=FTfloat;
     end;
       with addfielddef do
   begin
   name:='yjsds';
   datatype:=FTfloat;
     end;
       with addfielddef do
   begin
   name:='yijsds';
   datatype:=FTfloat;
     end;
       with addfielddef do
   begin
   name:='bjsds';
   datatype:=FTfloat;
     end;
       with addfielddef do
   begin
   name:='ny';
   datatype:=FTfloat;
     end;
   end;
   table2.CreateTabe;

 

posted on 2014-01-05 00:25  向北方  阅读(733)  评论(0编辑  收藏  举报