sendfaxunit.pas

来自「本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过」· PAS 代码 · 共 113 行

unit sendfaxUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons;

type
  TsendfaxForm = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    flFileName: TEdit;
    flCover: TEdit;
    flPhoneNumber: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    { Private declarations }
    function GetFaxName : String;
    procedure SetFaxName(const NewName : String);
    function GetCoverName : String;
    procedure SetCoverName(const NewName : String);
    function GetPhoneNumber : String;
    procedure SetPhoneNumber(const NewNumber : String);


  public
    { Public declarations }
     property FaxName : String
      read GetFaxName write SetFaxName;
    property CoverName : String
      read GetCoverName write SetCoverName;
    property PhoneNumber : String
      read GetPhoneNumber write SetPhoneNumber;
  end;

var
  sendfaxForm: TsendfaxForm;

implementation

uses REMain1;

{$R *.DFM}


procedure TsendfaxForm.BitBtn1Click(Sender: TObject);
begin

     ModalResult := mrOK;
   if (trim(flPhoneNumber.text)<>'') then
   begin
   mainform.faxmemo.Lines.Clear;
   mainform.faxmemo.Lines.Add(flPhoneNumber.Text);
   mainform.faxmemo.Lines.Add(flFileName.Text);
   mainform.faxmemo.Lines.Add(flCover.Text);
   mainform.faxmemo.Lines.SaveToFile('c:\newstar\fax\fax.ini');

   end;

end;

procedure TsendfaxForm.BitBtn2Click(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

function TsendfaxForm.GetFaxName : String;
begin
  Result := flFileName.Text;
end;

procedure TsendfaxForm.SetFaxName(const NewName : String);
begin
  flFileName.Text := NewName;
end;

function TsendfaxForm.GetCoverName : String;
begin
  Result := flCover.Text;
end;

procedure TsendfaxForm.SetCoverName(const NewName : String);
begin
  flCover.Text := NewName;
end;

function TsendfaxForm.GetPhoneNumber : String;
begin
  Result := flPhoneNumber.Text;
end;

procedure TsendfaxForm.SetPhoneNumber(const NewNumber : String);
begin
  flPhoneNumber.Text := NewNumber;
end;



procedure TsendfaxForm.FormActivate(Sender: TObject);
begin
 flPhoneNumber.SetFocus;
end;

end.