dataview.pas

delphi+access,水位控制系统

unit DataView;

interface

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

type
  TFormDataView = class(TForm)
    BTN_A_OK: TButton;
    BTN_B_OK: TButton;
    BTN_Close: TButton;
    procedure BTN_A_OKClick(Sender: TObject);
    procedure BTN_CloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormDataView: TFormDataView;

implementation
uses Report, Setting, waterctrl;
{$R *.dfm}

procedure TFormDataView.BTN_A_OKClick(Sender: TObject);
begin
if (not FormWaterControl.TimerControl.Enabled) and
      (not  FormWaterControl.TimerRedo.Enabled)  then
  begin
    FormWaterControl.Menu_Redo.Enabled := False;
    FormWaterControl.BTN_Redo.Enabled := False;
    FormWaterControl.BTN_Begin.Enabled := False;
    FormWaterControl.Menu_Begin.Enabled := False;
    FormWaterControl.ADODataSet1.Refresh;
    FormWaterControl.ADODataSet1.First;
    QuickReport1.QRLabel_Height.Caption := '期望水位为 '+
                    Inttostr(FormSetting.A_HP)+ ' mm';
    QuickReport1.QRLabel_MaxTime.Caption := '最长实验时间 ' +
                    Inttostr(FormSetting.MaxTime)+' 分钟';
    QuickReport1.QRLabel_Timer.Caption := '采样周期 '+
                    Inttostr(FormSetting.SampleTime)+' 毫秒';
    QuickReport1.QRLabel_Error.Caption := '期望误差范围 '+
                    Inttostr(FormSetting.ErrorValue)+'%';
    QuickReport1.Preview;
  end
else
  begin
  if Application.MessageBox('查看结果应先停止实验，你确定现在要停止实验吗？',
    '水箱水位模糊控制系统',MB_OKCANCEL+MB_ICONINFORMATION+MB_SYSTEMMODAL
       +MB_DEFBUTTON2) = IDOK then
       begin
         FormWaterControl.TimerControl.Enabled := False;
         FormWaterControl.TimerRedo.Enabled := False;
         BTN_A_OKClick(Sender);
       end;
  end;
end;

procedure TFormDataView.BTN_CloseClick(Sender: TObject);
begin
   FormWaterControl.ADODataSet1.Refresh;
   FormWaterControl.ADODataSet1.First;
   FormWaterControl.BTN_Begin.Enabled := True;
   FormWaterControl.BTN_Redo.Enabled := True;
   FormWaterControl.Menu_Redo.Enabled := True;
   FormWaterControl.Menu_Begin.Enabled := True;
   close;
end;

end.