unit MC_FYHZDY;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, StdCtrls, Buttons, OleServer, Excel97,WORD97;

type
  TFYHZDY = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    StringGrid1: TStringGrid;
    ExcelApplication1: TExcelApplication;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FYHZDY: TFYHZDY;

implementation

uses MC_XZHZDY;

{$R *.DFM}

procedure TFYHZDY.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     FYHZDY.Release;
     FYHZDY:=Nil;
end;

procedure TFYHZDY.BitBtn4Click(Sender: TObject);
begin
     Close;
end;

procedure TFYHZDY.BitBtn1Click(Sender: TObject);
begin
     if Not Assigned(XZHZDY) then
        begin
             XZHZDY:=TXZHZDY.Create(Self);
             XZHZDY.ShowModal;
        end;
end;

procedure TFYHZDY.FormShow(Sender: TObject);
begin
     StringGrid1.Cells[1,0]:='戶主姓名';
     StringGrid1.Cells[2,0]:='房間編號';
end;

procedure TFYHZDY.BitBtn3Click(Sender: TObject);
begin
     StringGrid1.RowCount:=2;
     StringGrid1.ColCount:=3;
     StringGrid1.Cells[1,1]:='';
     StringGrid1.Cells[2,1]:='';
end;

procedure TFYHZDY.BitBtn2Click(Sender: TObject);
var RangeE,RangeA: Excel97.Range;
    I,Row: Integer;
    Sheet: Variant;
    //BookmarK: TBookMarkStr;
begin
     {ExcelApplication1.Visible[0]:=True;//Create And Show
     ExcelApplication1.Workbooks.Add(Null,0);
     RangeE:=ExceLapplication1.ActiveCell;//當前坐標列
     RangeE.Value:='房間編號';//第一列
     RangeE:=RangeE.Next;//下一列
     RangeE.Value:='戶主姓名';
     RangeE:=RangeE.Next;
     RangeE.Value:='實收水費';
     RangeE:=RangeE.Next;
     RangeE.Value:='實收電費';
     Row:=2;
     RangeE:=ExceLapplication1.Range['A'+IntToStr(Row),'A'+IntToStr(Row)];//The X and Y Tobject
     RangeE.Value:='A01111';
     RangeE:=RangeE.Next;
     RangeE.Value:='A01112';
     RangeE:=ExceLapplication1.Range['B'+IntToStr(Row),'B'+IntToStr(Row)];
     RangeE.Value:='李濤';
     RangeE:=RangeE.Next;
     RangeE.Value:='夢沖';}
     {RangeE:=ExceLapplication1.Range['A1','E'+IntToStr(Row-1)];
     RangeE.AutoFormat(3,Null,Null,Null,Null,Null,Null);}
     //-------------------------------------------------------------------------
     ExcelApplication1.Visible[0]:=True;//連接Excel
     ExcelApplication1.Workbooks.Add(0,0);//創建表格  ///ADD(0,0)第一個0原為NULL
     RangeE:=Excelapplication1.ActiveCell;//當前行句柄
     Sheet:=ExcelApplication1.Workbooks[1].Worksheets['Sheet1'];
     For I:=1 To StringGrid1.ColCount-1 do
     begin
          RangeE.Value:=StringGrid1.Cells[I,0];
          For Row:=2 To StringGrid1.RowCount do
          begin
               Sheet.Cells[Row,I]:=StringGrid1.Cells[I,Row-1];
          end;
          RangeE:=RangeE.Next;
     end;
     //-------------------------------------------------------------------------
     //-------------------------------------------------------------------------
end;

end.