u_analyse.pas

repair repairrepairrepairrepair

unit u_analyse;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  TeEngine, Series, StdCtrls, DBCtrls, ComCtrls, ExtCtrls, TeeProcs, Chart,
  Grids, DBGrids;

type
  TF_analyse = class(TForm)
    GroupBox1: TGroupBox;
    DBG_group_list: TDBGrid;
    GroupBox2: TGroupBox;
    Chart1: TChart;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    i_end_time: TDateTimePicker;
    GroupBox4: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    i_distribution: TDBLookupComboBox;
    B_analyse: TButton;
    DBText1: TDBText;
    o_p1: TEdit;
    o_p2: TEdit;
    o_p3: TEdit;
    Label6: TLabel;
    o_mttf: TEdit;
    B_save_result: TButton;
    Series1: TLineSeries;
    Series2: TLineSeries;
    Label7: TLabel;
    procedure FormShow(Sender: TObject);
    procedure B_analyseClick(Sender: TObject);
    procedure B_save_resultClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_analyse: TF_analyse;

implementation

uses u_data;
{$R *.DFM}

procedure TF_analyse.FormShow(Sender: TObject);
begin
  DM_main.OpenGroupList;
end;

procedure TF_analyse.B_analyseClick(Sender: TObject);
begin
  DM_main.Analyse;
end;

procedure TF_analyse.B_save_resultClick(Sender: TObject);
begin
  DM_main.SaveResult;
end;

end.