cgf6.pas

非常丰富的delphi小程序,相信会对你有帮助

unit cgf6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, DB, DBTables, Buttons;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Panel4: TPanel;
    OpenDialog1: TOpenDialog;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
  Function Legit1(const s:string):boolean;  { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 If Opendialog1.Execute  then
   begin
   Edit1.Text:=opendialog1.FileName;
   end;
end;

function TForm1.Legit1(const s: string): boolean;
var count1:integer;str:string;
begin
    count1:=length(s);
  if count1<8 then result:=false
   else
     begin
      str:=copy(s,count1-3,4);
      if (str='.txt')or(str='.TXT')or(str='.tXT')or(str='.tXt')or(str='.Txt')
        or(str='.TXt')or(str='.TxT') Then result:=true
        else  result:=false;
     end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var query1:Tquery;str:pchar;
begin
 if Legit1(edit1.text) then
   begin
    if FileExists(Edit1.Text) then
       begin
       Dbgrid1.Visible:=false;
       str:=pchar(Edit1.Text);
       copyfile(str,'F:\论文\test1.txt',false);
       query1:=Tquery.Create(self);
       query1.DatabaseName:='ExceltoText';
       Query1.close;
       query1.SQL.Clear;
       query1.SQL.Add('select * from test1.txt');
       query1.Open;
       table1.Active :=true;
       table1.BatchMove(query1,batcopy);
       table1.Active:=false;
       query1.Destroy ;
       end
      else
       begin
       showmessage('文件不存在！');
       end;
   end
  else
   begin
   showmessage('文件名有问题');
   end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var count1:integer;
begin

 if button2.Caption='显示' Then
    begin
    table1.Active :=true;
    count1:=table1.RecordCount ;
    table1.Active:=false;
    if count1=0 then
      begin
       showmessage('数据库没有内容！');
      end
     else
      begin
      button2.Caption:='关闭';
      table1.Active:=true;
      Dbgrid1.Visible:=true;
      end;
    end
   else
    begin
    button2.Caption :='显示';
    Table1.Active:=false;
    Dbgrid1.Visible:=false;
    end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
   self.close;
end;

end.