mc_fyhzdy.~pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

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.