rs3savehintdlg.pas

最小二乘相关介绍,最小二乘相关介绍,及其原程序!仔细整理收获不少!

{***************************************************************************}
{                                                                           }
{                 RS-3 供油机构高低温、高空性能试验测控系统                 }
{                                                                           }
{        版权所有 (c) 2002-2004 航天科技集团公司四川达宇特种车辆制造厂      }
{                                                                           }
{***************************************************************************}

unit RS3SaveHintDlg;
{****************************************************************************
项目: RS-3 供油机构高低温、高空性能试验测控系统
模块: RS3CfgAdmin.mpp模块，RS3CalcCfg单元
描述: 当退出“传感器输入-输出校准模块”时，如果用户对校线数据进行了修改，则显
      示该对话框以提示用户保存数据。
版本: V1.0
日期: 2003-08-14
作者: 罗建
更新: 2004-01-19
todo:
****************************************************************************}

interface

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

type
  TRS3SaveHintForm = class(TForm)
    Label1: TLabel;
    labItem: TLabel;
    Label3: TLabel;
    btnSave: TButton;
    btnSaveAll: TButton;
    btnDiscard: TButton;
    btnDiscardAll: TButton;
    Image1: TImage;
    Bevel1: TBevel;
    procedure DoneClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    nRes: Integer;
  end;

var
  RS3SaveHintForm: TRS3SaveHintForm;

implementation

{$R *.dfm}

procedure TRS3SaveHintForm.DoneClick(Sender: TObject);
begin
  nRes := (Sender as TButton).Tag;
  Close;
end;

end.