zoukankan      html  css  js  c++  java
  • 在Delphi中如何动态创建dbf数据库(一)?

    table2.Close;
     table2.Active:=false;
     table2.Exclusive:=true;
     table2.TableName:='h:gzkdsds';
     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;
  • 相关阅读:
    《程序员修炼之道:从小工到专家》阅读笔记(一)
    第十一周进度报告
    用户模板和用户场景
    第十周进度报告
    团队冲刺第十天
    团队冲刺第九天
    团队冲刺第八天
    第一阶段用户评价
    第十二周总结
    第十一周总结
  • 原文地址:https://www.cnblogs.com/China3S/p/3505571.html
Copyright © 2011-2022 走看看