realtyprint1.pas

来自「物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、」· PAS 代码 · 共 54 行

unit RealtyPrint1;

interface

uses Windows, SysUtils, Variants, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons,Dialogs, ExtCtrls,DB, ADODB,IniFiles,StrUtils,Registry,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  DBCtrls, jpeg,Messages, ExtDlgs, ComCtrls, math, frxClass, frxDBSet;


type
    Tf_RealtyPrint1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
    f_RealtyPrint1: Tf_RealtyPrint1;

implementation

uses data,RealtyPrint2, MAIN;

{$R *.dfm}



procedure Tf_RealtyPrint1.Button1Click(Sender: TObject);
begin
    mainform.t6:='预览';
    f_RealtyPrint2:=Tf_RealtyPrint2.Create(self);
    f_RealtyPrint2.show;
    close;
end;

procedure Tf_RealtyPrint1.Button2Click(Sender: TObject);
begin
    mainform.t6:='格式';
    f_RealtyPrint2:=Tf_RealtyPrint2.Create(self);
    f_RealtyPrint2.show;
    close;
end;

end.