excel.pas

书籍类别（种类编号

unit excel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, RzButton, RzRadChk, ExtCtrls, RzPanel,
  RzRadGrp;

type
  Tsetexcel = class(TForm)
    RzGroupBox2: TRzGroupBox;
    SpeedButton1: TSpeedButton;
    BitBtn2: TBitBtn;
    RzGroupBox1: TRzGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox18: TCheckBox;
    Panel1: TPanel;
    Panel2: TPanel;
    CheckBox19: TCheckBox;
    CheckBox20: TCheckBox;
    CheckBox21: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  setexcel: Tsetexcel;

implementation
uses inc;
{$R *.dfm}

procedure Tsetexcel.FormShow(Sender: TObject);
var
i:integer;
begin
for i:=1 to 24 do begin
check[i]:=0;
PName[i]:='';
end;

end;

procedure Tsetexcel.SpeedButton1Click(Sender: TObject);

begin
NumberOut:=1;
if CheckBox2.Checked=true then begin
NumberOut:=NumberOut+1;
check[2]:=1;
PName[2]:='项目名称';
Field[2]:='ItemName';
end;
if CheckBox3.Checked=true then begin
NumberOut:=NumberOut+1;
check[3]:=1;
PName[3]:='座落位置';
Field[3]:='Locate';
end;
if CheckBox4.Checked=true then begin
NumberOut:=NumberOut+1;
check[4]:=1;
PName[4]:='施工单位';
Field[4]:='ConstructUnit';
end;
if CheckBox5.Checked=true then begin
NumberOut:=NumberOut+1;
check[5]:=1;
PName[5]:='审计前金额';
Field[5]:='BeAudit';
end;
if CheckBox6.Checked=true then begin
NumberOut:=NumberOut+1;
check[6]:=1;
PName[6]:='审计后合同金额';
Field[6]:='AfAudit';
end;
if CheckBox7.Checked=true then begin
NumberOut:=NumberOut+1;
check[7]:=1;
PName[7]:='审计后价款';
Field[7]:='AfAuditPay';
end;
if CheckBox8.Checked=true then begin
NumberOut:=NumberOut+1;
check[8]:=1;
PName[8]:='已付款小计';
Field[8]:='Payed';
end;
if CheckBox9.Checked=true then begin
NumberOut:=NumberOut+1;
check[9]:=1;
PName[9]:='以前年度已付款';
Field[9]:='BePayed';
end;
if CheckBox10.Checked=true then begin
NumberOut:=NumberOut+1;
check[10]:=1;
PName[10]:='本年度已付款';
Field[10]:='ThisYear';
end;
if CheckBox11.Checked=true then begin
NumberOut:=NumberOut+1;
check[11]:=1;
PName[11]:='余额';
Field[11]:='Remain';
end;
if CheckBox21.Checked=true then begin
NumberOut:=NumberOut+1;
check[12]:=1;
PName[12]:='本月付款';
Field[12]:='benyue';
end;
if CheckBox12.Checked=true then begin
NumberOut:=NumberOut+1;
check[13]:=1;
PName[13]:='验收情况';
Field[13]:='acceptance';
end;
if CheckBox13.Checked=true then begin
NumberOut:=NumberOut+1;
check[14]:=1;
PName[14]:='合同履行情况';
Field[14]:='Fulfill';
end;
if CheckBox14.Checked=true then begin
NumberOut:=NumberOut+1;
check[15]:=1;
PName[15]:='报审情况';
Field[15]:='BSQK';
end;
if CheckBox15.Checked=true then begin
NumberOut:=NumberOut+1;
check[16]:=1;
PName[16]:='合同序号';
Field[16]:='ConNumber';
end;
if CheckBox16.Checked=true then begin
NumberOut:=NumberOut+1;
check[17]:=1;
PName[17]:='联系人';
Field[17]:='ConPerson';
end;
if CheckBox17.Checked=true then begin
NumberOut:=NumberOut+1;
check[18]:=1;
PName[18]:='签订时间';
Field[18]:='SignTime';
end;
if CheckBox18.Checked=true then begin
NumberOut:=NumberOut+1;
check[20]:=1;
PName[20]:='备注';
Field[20]:='remark';
end;
if CheckBox20.Checked=true then begin
NumberOut:=NumberOut+1;
check[19]:=1;
PName[19]:='联系电话';
Field[19]:='tel';
end;
////////////////////////////////////////
if checkbox19.Checked=true then
remainZero:=true
else                          //余额为零是否导出
remainZero:=false;
//////////////////////////////////////////////
close;
end;
procedure Tsetexcel.BitBtn2Click(Sender: TObject);
begin
NumberOut:=1000;
close;
end;

procedure Tsetexcel.FormClose(Sender: TObject; var Action: TCloseAction);
begin

Action:=caFree;
end;

end.