realtyprint2.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

unit RealtyPrint2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
  StrUtils, ExtDlgs, ComCtrls, math, frxDesgn, frxClass, frxDBSet, Menus;

type
    Tf_RealtyPrint2 = class(TForm)
    T1_DBDataset: TfrxDBDataset;
    frxReport1: TfrxReport;
    T2_DBDataset: TfrxDBDataset;
    Button2: TButton;
    T3_DBDataset: TfrxDBDataset;
    T4_DBDataset: TfrxDBDataset;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure frxReport1GetValue(const VarName: String;
      var Value: Variant);

  private
    { Private declarations }
    procedure GetData;
  public
    { Public declarations }
  end;
var
  f_RealtyPrint2: Tf_RealtyPrint2;


implementation

uses main,data,RealtyPrint1;

{$R *.dfm}

procedure Tf_RealtyPrint2.FormCreate(Sender: TObject);
begin
    Button2Click(Sender);
end;

procedure Tf_RealtyPrint2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    rep7:='';
    sPrintc1:='';
    sPrintc2:='';
    sPrintc3:='';
    Action := caFree;
end;

procedure Tf_RealtyPrint2.GetData;
begin

    if sPrintc<>'' then
    begin
        DataModuleADO.ADOQuery1.Close;
        DataModuleADO.ADOQuery1.SQL.Clear;
        DataModuleADO.ADOQuery1.SQL.Add(sPrintc);
        DataModuleADO.ADOQuery1.Open;
    end;

    if sPrintc1<>'' then
    begin
        DataModuleADO.ADOQuery2.Close;
        DataModuleADO.ADOQuery2.SQL.Clear;
        DataModuleADO.ADOQuery2.SQL.Add(sPrintc1);
        DataModuleADO.ADOQuery2.Open;
    end;

    if sPrintc2<>'' then
    begin
        DataModuleADO.ADOQuery3.Close;
        DataModuleADO.ADOQuery3.SQL.Clear;
        DataModuleADO.ADOQuery3.SQL.Add(sPrintc2);
        DataModuleADO.ADOQuery3.Open;
    end;

    if sPrintc3<>'' then
    begin
        DataModuleADO.ADOQuery4.Close;
        DataModuleADO.ADOQuery4.SQL.Clear;
        DataModuleADO.ADOQuery4.SQL.Add(sPrintc3);
        DataModuleADO.ADOQuery4.Open;
    end;

    frxReport1.LoadFromFile(extractfilepath(Application.exename)+'data\'+sFilep);

    if mainform.t6='格式' then
    begin
        frxReport1.Modified := True;
        frxReport1.DesignReport;
    end
    else
    begin
        frxReport1.ShowReport;
    end;
     
end;


procedure Tf_RealtyPrint2.Button2Click(Sender: TObject);
var
    s:string;
begin
    GetData;
    close;
end;

procedure Tf_RealtyPrint2.frxReport1GetValue(const VarName: String;
  var Value: Variant);
begin
    if VarName = 'Title' then Value := mainform.sCompany+sTitlep;
    if rep7<> '' then if VarName = 'M3' then  Value := rep7;
end;

end.