unit1.pas

一个用DELPHI做的对Excel的操作 可以通过本程序对EXCEL进行导入 导出操作 附上源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Buttons;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    SpeedButton1: TSpeedButton;
    ADOConnExcel: TADOConnection;
    EditPath: TEdit;
    OpenDiaEX: TOpenDialog;
    query2: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

    uses unit40;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 subtitle:array[1..6]of string;
 i,j,m,n:integer;

begin
    query2.Close;
    query2.SQL.Clear;
    query2.SQL.Add('select * from student');
    query2.Open;
    if query2.Active = false  then
    showmessage('没有可打印资料')
    else
    begin
    RepCreat;
    CreatRepSheet('补考名单',2,1);
    CreatTitle('年度补考名单',6);
    SetRepline(2,6);
    subtitle[1]:='学号';
    subtitle[2]:='姓名';
    subtitle[3]:='成绩';
    subtitle[4]:='学号';
    subtitle[5]:='姓名';
    subtitle[6]:='成绩';
    CreatSubHead(subtitle);


      i:=3;j:=3;
     query2.First ;
    while not  query2.Eof    do
     begin
      if ((i-1) mod 45=0) and (i<=trunc(query2.RecordCount /2)) then
         begin

        cellwrite(' ',i,1);
        cellwrite(' ',i,2);
        cellwrite(' ',i,3);
        cellwrite(' ',i,4);
        cellwrite(' ',i,5);
        cellwrite(' ',i,6);
        i:=i+1;
        cellwrite(' ',i,1);
        cellwrite(' ',i,2);
        cellwrite(' ',i,3);
        cellwrite(' ',i,4);
        cellwrite(' ',i,5);
        cellwrite(' ',i,6);
        i:=i+1;
         end ;
         if (j-1) mod 45=0 then
         begin
        j:=j+1;
        j:=j+1;
         end ;


      if ((i-1) mod 45=0)   then
        begin
       cellwrite(query2.Fieldbyname('xh').AsString  ,j,4);
       SetRepline(j,4);
       cellwrite(query2.Fieldbyname('xm').AsString ,j,5);
       SetRepline(j,5);
       cellwrite(query2.Fieldbyname('cj2').AsString ,j,6);
       SetRepline(j,6);
       j:=j+1;
        end
        else
        begin

         cellwrite(query2.Fieldbyname('xh').AsString,i,1);
         cellwrite(query2.Fieldbyname('xm').AsString,i,2);
         cellwrite(query2.Fieldbyname('cj2').AsString ,i,3) ;
         SetRepline(i,1);
         SetRepline(i,2);
         SetRepline(i,3);
         i:=i+1;

        end;
    query2.Next ;
     end;
   for i:=2 to trunc(query2.RecordCount /2)+3*trunc((query2.RecordCount /90)) do
     begin
     if (i-1) mod 45 =0 then
      begin
      RepPageBreak(i,6,1);
     end;
     end;

end;
end;




procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
     if OpenDiaEX.Execute then
  begin
    EditPath.Text := OpenDiaEX.FileName;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
       Form1.close;
end;

end.