readtable.pas

本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过

unit Readtable;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, Db, DBClient, Buttons;

type
  TForm1 = class(TForm)
    DirectoryListBox1: TDirectoryListBox;
    Memo5: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    ClientDataSet1: TClientDataSet;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public

     procedure CHJ;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit1;

{$R *.DFM}
var dir :string;

procedure TForm1.FormCreate(Sender: TObject);
begin
dir:=DirectoryListBox1.Directory;
end;

procedure TForm1.CHJ;
var i:integer;
begin
memo5.Lines.Clear;
memo2.Lines.Clear;
memo3.Lines.Clear;
for i:=0 to DataModule2.Query1.FieldCount-1 do
begin
memo2.Lines.Add(DataModule2.Query1.Fields[i].fieldname) ;

   if  (DataModule2.Query1.FieldDefs[i].datatype=ftstring) or (DataModule2.Query1.FieldDefs[i].datatype=ftfloat) or (DataModule2.Query1.FieldDefs[i].datatype=ftdate) or (DataModule2.Query1.FieldDefs[i].datatype=ftsmallint) or (DataModule2.Query1.FieldDefs[i].datatype=ftword) or (DataModule2.Query1.FieldDefs[i].datatype=ftautoinc) or (DataModule2.Query1.FieldDefs[i].datatype=ftinteger) or (DataModule2.Query1.FieldDefs[i].datatype=ftbcd) or (DataModule2.Query1.FieldDefs[i].datatype=ftCurrency) or(DataModule2.Query1.FieldDefs[i].datatype=ftdatetime)  or (DataModule2.Query1.FieldDefs[i].datatype=ftmemo)  or (DataModule2.Query1.FieldDefs[i].datatype=fttime)  or (DataModule2.Query1.FieldDefs[i].datatype=ftblob)  then
       begin
             if  (DataModule2.Query1.FieldDefs[i].datatype=ftdate) then
                 begin
                    memo3.Lines.Add('ftdate');
                 end;
             if  (DataModule2.Query1.FieldDefs[i].datatype=ftdatetime) then
                 begin
                    memo3.Lines.Add('ftdate');
                 end;

             if  (DataModule2.Query1.FieldDefs[i].datatype=ftcurrency) then
                 begin
                    memo3.Lines.Add('ftcurrency');
                 end;
             if  (DataModule2.Query1.FieldDefs[i].datatype=ftmemo) then
                 begin
                    memo3.Lines.Add('ftmemo');
                 end;
              if  (DataModule2.Query1.FieldDefs[i].datatype=ftbcd) then
                 begin
                    memo3.Lines.Add('ftbcd');
                 end;
             if  (DataModule2.Query1.FieldDefs[i].datatype=fttime) then
                 begin
                    memo3.Lines.Add('fttime');
                 end;
             if  (DataModule2.Query1.FieldDefs[i].datatype=ftautoinc) then
                 begin
                    memo3.Lines.Add('ftautoinc');
                 end;
             if  (DataModule2.Query1.FieldDefs[i].datatype=ftblob) then
                 begin
                    memo3.Lines.Add('ftblob');
                 end;
             if  (DataModule2.Query1.FieldDefs[i].datatype=ftstring) then
                 begin
                    memo3.Lines.Add('ftstring');
                 end;
             if  (DataModule2.Query1.FieldDefs[i].datatype=ftword) then
                 begin
                    memo3.Lines.Add('ftword');
                 end;
             if  (DataModule2.Query1.FieldDefs[i].datatype=ftsmallint) then
                 begin
                    memo3.Lines.Add('ftsmallint');
                 end;
             if  (DataModule2.Query1.FieldDefs[i].datatype=ftinteger) then
                 begin
                    memo3.Lines.Add('ftinteger');
                 end;
             if  (DataModule2.Query1.FieldDefs[i].datatype=ftfloat) then
                 begin
                    memo3.Lines.Add('ftfloat');
                 end;
             if  (DataModule2.Query1.FieldDefs[i].datatype=ftBoolean) then
                 begin
                    memo3.Lines.Add('ftboolean');
                 end;
      end
         else
                 begin
                    memo3.Lines.Add('OTHER');
                 end;
        memo5.Lines.Add(inttostr(DataModule2.Query1.Fields[i].displaywidth));
   end;
       memo2.Lines.SaveToFile(dir+'\fieldname.txt');
       memo3.Lines.SaveToFile(dir+'\fieldtype.txt');
       memo5.Lines.SaveToFile(dir+'\fieldsize.txt');

      form1.Close;
      
end;








procedure TForm1.Button1Click(Sender: TObject);
begin
DataModule2.Query1.Close;
DataModule2.Query1.SQL.Clear;
DataModule2.Query1.SQL.Add('SELECT * FROM  "'+OpenDialog1.FileName+'"');
DataModule2.Query1.open;
chj;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;

end.