unit8.pas

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

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Db, DBTables;

type
  TForm8 = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    Edit1: TEdit;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Table1: TTable;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses Unit1;

{$R *.DFM}


procedure TForm8.BitBtn1Click(Sender: TObject);
    var i:integer;
begin
if  (form1.filelistbox1.FileName<>'') and  (form1.filelistbox2.FileName<>'') then
begin
           if (edit1.Text<>'') and (not FileExists(ExtractFilePath(form1.FileListBox2.filename)+'\'+edit1.text ))   then
     begin
   with form1 do
   begin
     {======================}

      table1.Close;
      table1.FieldDefs.Clear;


     for i:=0 to  clientdataset1.FieldCount-1 do
      begin
      if   clientdataset1.FieldDefs.Items[i].DataType   =ftsmallint then
           begin
             {filetype.Lines.Add('ftsmallint');}
             table1.FieldDefs.Add(clientdataset1.FieldDefs.Items[i].Name,ftsmallint,0,false);

           end;

      if   clientdataset1.FieldDefs.Items[i].DataType =ftdate then
           begin
           { filetype.Lines.Add('ftdate');}
            table1.FieldDefs.Add(clientdataset1.FieldDefs.Items[i].Name,ftdate, 0,false);
           end;
      if   clientdataset1.FieldDefs.Items[i].DataType =ftword then
           begin
            {filetype.Lines.Add('ftword');}
           table1.FieldDefs.Add(clientdataset1.FieldDefs.Items[i].Name ,ftword, 0,false);
           end;
      if   clientdataset1.FieldDefs.Items[i].DataType =ftinteger then
           begin
           table1.FieldDefs.Add( clientdataset1.FieldDefs.Items[i].Name,ftinteger,0,false);
           {filetype.Lines.Add('ftinteger');}
           end;
      if   clientdataset1.FieldDefs.Items[i].DataType =ftfloat then
           begin
           table1.FieldDefs.Add( clientdataset1.FieldDefs.Items[i].Name,ftfloat,0,false);
{           filetype.Lines.Add('ftfloat');   }
           end;
      if   clientdataset1.FieldDefs.Items[i].DataType =ftboolean then
           begin
           table1.FieldDefs.Add( clientdataset1.FieldDefs.Items[i].Name,ftboolean,0,false);
 {          filetype.Lines.Add('ftboolean');}
           end;
      if   clientdataset1.FieldDefs.Items[i].DataType =fttime then
           begin
           table1.FieldDefs.Add( clientdataset1.FieldDefs.Items[i].Name,fttime,0,false);
{           filetype.Lines.Add('fttime');     }
           end;
      if   clientdataset1.FieldDefs.Items[i].DataType =ftautoinc then
           begin
           table1.FieldDefs.Add( clientdataset1.FieldDefs.Items[i].Name,ftautoinc,0,false);
 {          filetype.Lines.Add('ftautoinc');}
           end;
      if   clientdataset1.FieldDefs.Items[i].DataType =ftcurrency then
           begin
           table1.FieldDefs.Add( clientdataset1.FieldDefs.Items[i].Name,ftcurrency,0,false);
{           filetype.Lines.Add('ftcurrency'); }
           end;
      if   clientdataset1.FieldDefs.Items[i].DataType =ftmemo then
           begin
           table1.FieldDefs.Add( clientdataset1.FieldDefs.Items[i].Name,ftmemo,word(clientdataset1.Fields[i].DisplayWidth),false);
        {   filetype.Lines.Add('ftmemo');}
           end;
      if   clientdataset1.FieldDefs.Items[i].DataType =ftstring then
           begin
           table1.FieldDefs.Add( clientdataset1.FieldDefs.Items[i].Name,ftstring,word(clientdataset1.Fields[i].DisplayWidth),false);
{           filetype.Lines.Add('ftstring'); }
           end;
      if   clientdataset1.FieldDefs.Items[i].DataType =ftbcd then
           begin
           table1.FieldDefs.Add( clientdataset1.FieldDefs.Items[i].Name,ftbcd,word(clientdataset1.Fields[i].DisplayWidth),false);
 {          filetype.Lines.Add('ftbcd');}
           end;
      if   clientdataset1.FieldDefs.Items[i].DataType =ftblob then
           begin
           table1.FieldDefs.Add( clientdataset1.FieldDefs.Items[i].Name,ftblob,word(clientdataset1.Fields[i].DisplayWidth),false);
{           filetype.Lines.Add('ftblob'); }
           end;
 {          filename.Lines.Add(  clientdataset1.FieldDefs.Items[i].Name);}
{           filesize.Lines.Add(  inttostr(clientdataset1.Fields[i].DisplayWidth));}
        end;

      table1.TableName:=ExtractFilePath(form1.FileListBox2.filename)+'\'+edit1.text;
      table1.Createtable;
      table1.Open;
       table1.Close;

     filelistbox2.Update;





     {+++++++++++++++++++++}
    end;





















      
      close;
     end else
     begin
     showmessage('要生成的模版文件已经存在，请更换一名称!');
     exit;
     end;

end
else begin
showmessage('录入参数有错误..!');
end;




end;

procedure TForm8.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm8.FormActivate(Sender: TObject);
begin
form1.enabled:=false;
end;

procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.enabled:=true;
end;

end.