• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

在Delphi中如何动态创建dbf数据库(一)?

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
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;

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
MATLAB视频读取转换为图片发布时间:2022-07-18
下一篇:
【转】Delphi利用系统环境变量获取常用系统目录发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap