untchoosereport.pas

是分布式粮库程序,是采用Delphi实现的

unit UntChooseReport;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls,Excel97,OleServer,ComObj;

const  SUCCESS = 1;
       FAILED_CONNECTXLS  = -1;
       FAILED_ATTACH      = -2;
       FAILED_DISCONNECT  = -3;

type
  TfrmChooseReport = class(TForm)
    Label1: TLabel;
    cbxReportType: TComboBox;
    btnReport: TButton;
    btnExit: TButton;
    qryTmp: TQuery;
    Button1: TButton;
    procedure btnReportClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    sgUnitName:string;
    XlsObject : OLEVariant;

  end;

var
  frmChooseReport: TfrmChooseReport;

implementation
 uses UnitDataModul,uRpt4;

{$R *.dfm}

procedure TfrmChooseReport.btnReportClick(Sender: TObject);
var
  i,j,iLen:integer;
  sCellText,sStr1,sStr2,sValue:string;
begin
  XLS_Create;
  CopyFile(PChar(GetCurrentDir+'\报表\'+cbxReportType.Text+'.xls'),PChar(GetCurrentDir+'\报表\Temp.xls'),False);
  XLS_Open(GetCurrentDir+'\报表\Temp.xls');
  try
    for j:=3 to 100 do
    begin
      sStr1:=XLS_ReadCell(1,j);
      sStr2:=XLS_readCell(2,j);
      for i:=1 to 25 do
      begin
        sCellText:=XLS_ReadCell(i,j);
        if copy(sCellText,1,1)='_' then
        begin
          if sCellText='_UnitName' then
            XLS_FillCell(i,j,sgUnitName,-1)
          else if  sCellText='_DateTime' then
            XLS_FillCell(i,j,datetimetostr(now),-1);
        end
        else if copy(sCellText,1,1)='#' then
        begin
          iLen:=length(sCellText);
          sCellText:=copy(sCellText,2,iLen-1);
          qryTmp.Active := false;
          qryTmp.SQL.Clear;
          qryTmp.SQL.Add(sStr1+sCellText+sStr2);
          qryTmp.Active := true;
          svalue:=qryTmp.Fields[0].AsString;
          XLS_FillCell(i,j,svalue,0);
        end;

      end;
      SCELLTEXT:='';
    end;
  Except
     showmessage(inttostr(i)+'::::'+inttostr(j));
  end;
  XLS_Show;
end;

procedure TfrmChooseReport.btnExitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmChooseReport.FormCreate(Sender: TObject);
begin
  sgUnitName:='南星桥分公司';
end;



procedure TfrmChooseReport.Button1Click(Sender: TObject);
begin
  showmessage(datetimetostr(now));
end;

end.