sjzh.pas

一个简单的电子表格导入导出

unit sjzh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBTables, DB, ADODB, Grids, DBGrids, ExtCtrls, Menus,
  ComCtrls, Gauges, ComObj,OleServer;

type
  TFsjzh = class(TForm)
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    DataSource2: TDataSource;
    Table1: TTable;
    Button13: TButton;
    DBGrid2: TDBGrid;
    Button1: TButton;
    Edit5: TEdit;
    Edrwjm: TEdit;
    Button2: TButton;
    Table1id: TIntegerField;
    Table1stattime: TStringField;
    Table1dw_leixing: TStringField;
    Table1ry_leixing: TStringField;
    Table1ry_zhuangtai: TStringField;
    Table1gwxz: TStringField;
    Table1gkcs: TStringField;
    Table1ysbmbm: TStringField;
    Table1dwmc: TStringField;
    Table1xm: TStringField;
    Table1gzdwdz: TStringField;
    Table1rydzlx: TStringField;
    Table1sfzhm: TStringField;
    Table1cjgzsj: TDateTimeField;
    Table1ltxsj: TDateTimeField;
    Table1lbdwgzqd: TStringField;
    Table1xrzw: TStringField;
    Table1zc: TStringField;
    Table1zw: TStringField;
    Table1jszc: TStringField;
    Table1zydj: TStringField;
    Table1jsdj: TStringField;
    Table1zcjb: TStringField;
    Table1zwjb: TStringField;
    Table1zgqk: TStringField;
    Table1ltxqk: TStringField;
    Table1hj: TBCDField;
    Table1j_xj: TBCDField;
    Table1j_zwgz: TBCDField;
    Table1j_jbgz: TBCDField;
    Table1j_jcgz: TBCDField;
    Table1j_glgz: TBCDField;
    Table1j_gwgz: TBCDField;
    Table1j_jsdjgz: TBCDField;
    Table1j_jt: TBCDField;
    Table1j_zyzz: TBCDField;
    Table1j_lczjltxf: TBCDField;
    Table1s_xj: TBCDField;
    Table1s_zwgz: TBCDField;
    Table1s_jt: TBCDField;
    Table1s_djgz: TBCDField;
    Table1s_zyzz: TBCDField;
    Table1s_lczz: TBCDField;
    Table1s_qtgxjbt: TBCDField;
    Table1s_lczjltxf: TBCDField;
    Table1zwbt: TBCDField;
    Table1gwbt: TBCDField;
    Table1wcbz: TBCDField;
    Table1qtjbt: TBCDField;
    Table1blgz: TBCDField;
    Table1gzbc: TBCDField;
    Table1bljt: TBCDField;
    Table1kfcsbt: TBCDField;
    Table1qtshbt: TBCDField;
    Table1qtbt: TBCDField;
    Table1tsgwjt: TBCDField;
    Table1jxjt: TBCDField;
    Table1hmhsbt: TBCDField;
    Table1lc: TBCDField;
    Table1jlhljt: TBCDField;
    Table1dsznbt: TBCDField;
    Table1glbt: TBCDField;
    Table1hlf: TBCDField;
    Table1jtf: TBCDField;
    Table1txbt: TBCDField;
    Table1zzdhbt: TBCDField;
    Table1zftsjt: TBCDField;
    Table1zfgz: TBCDField;
    Table1qt: TBCDField;
    Table1jly_zb: TStringField;
    Table1jly_bz: TBCDField;
    Table1bz: TStringField;
    Table1rybh: TIntegerField;
    Table1ryxz: TStringField;
    Table1g_xj: TBCDField;
    Table1cssj: TDateTimeField;
    Table1sex: TStringField;
    Table1addflag: TStringField;
    Table1jyflag: TStringField;
    Table1zgf: TBCDField;
    Table1lxycxshf: TBCDField;
    Table1tgzwbt: TBCDField;
    Table1tggwbt: TBCDField;
    Table1ugflag: TStringField;
    Table1ddbt: TBCDField;
    Table1sflxbjdx: TStringField;
    Table1gfxjbt: TBCDField;
    Table1rysf: TStringField;
    Table1gw: TStringField;
    Table1gzjb: TStringField;
    Table1gzdc: TStringField;
    Table1shbt: TBCDField;
    Table1gzjt: TBCDField;
    Table1shbt_xj: TBCDField;
    Table1gzjg: TStringField;
    Table1jhl: TBCDField;
    Table1jhljt: TBCDField;
    Table1s_gwgz: TBCDField;
    Table1j_lczz: TBCDField;
    Button3: TButton;
    procedure Button13Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fsjzh: TFsjzh;
  xlapp:variant;



implementation

uses dcexcel;



{$R *.dfm}

procedure TFsjzh.Button13Click(Sender: TObject);
begin
  dcexcel.ExportExcelFile(Table1);
end;

procedure TFsjzh.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  table1.Close;
  if not varisempty(xlapp) then begin
    xlapp.displayalerts:=false;
    xlapp.quit;
  end;
end;

procedure TFsjzh.Button2Click(Sender: TObject);
var i,j:integer;dt1,dt2:string;    sheet:variant;
begin
if opendialog1.Execute then
begin
   EdRwjm.Text:=opendialog1.FileName;
   //try

      if varisempty(xlapp) then
        xlapp:=createoleobject('Excel.Application');
      xlapp.visible:=false;
      xlapp.workbooks.open(EdRwjm.Text);
      sheet:=xlapp.workbooks[1].worksheets[1];

     table1.Open;
     i:=2;
     while length(sheet.cells[i,3])>0 do
     begin

       table1.Append;
       for j:=1 to table1.FieldCount do
       try
         //table1.FieldByName().AsString:=sheet.cells[i,j];
         table1.Fields[j-1].Value:=sheet.cells[i,j];
       except
       //
       end;
       table1.Post;

       i:=i+1;

        edit5.text:=inttostr(table1.RecordCount);
        edit5.Refresh;
     end;

      if not varisempty(xlapp) then
      begin
        xlapp.displayalerts:=false;
        xlapp.quit;
      end;
end;

end;

procedure TFsjzh.Button1Click(Sender: TObject);
begin
  table1.Active:=false;
  table1.EmptyTable;
  table1.Active:=true;
  edit5.text:=inttostr(table1.RecordCount);  
end;

procedure TFsjzh.FormCreate(Sender: TObject);
begin
  table1.Active:=true;
end;

procedure TFsjzh.Button3Click(Sender: TObject);
var i,j:integer;dt1,dt2:string;    sheet:variant;
begin
if opendialog1.Execute then
begin
   EdRwjm.Text:=opendialog1.FileName;
      if varisempty(xlapp) then
        xlapp:=createoleobject('Excel.Application');
      xlapp.visible:=true;
      xlapp.workbooks.open(EdRwjm.Text);
      sheet:=xlapp.workbooks[1].worksheets[1];

     table1.First;
     i:=2;
     while not table1.Eof do
     begin
       for j:=1 to table1.FieldCount do
         sheet.cells[i,j]:=table1.Fields[j-1].Value;
       i:=i+1;
       TABLE1.Next;
     end;
    xlapp.SAVE;

    if not varisempty(xlapp) then
    begin
      xlapp.displayalerts:=false;
      xlapp.quit;
    end;
end;
END;
END.