unit3.pas

计算机故障智能诊断系统 用户输入计算机的故障症状 即可由系统得出故障原因和相关的处理方法

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    Panel2: TPanel;
    GroupBox2: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Button3: TButton;
    Button4: TButton;
    ruler3Qry: TADOQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit7;

{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);
begin
    with ruler3Qry do
    begin
      close;
      with sql do
        begin
          clear;
          add('delete from fact_table');
        end;
      execsql;
     end;

     with ruler3Qry do
      begin
      close;
       with sql do
        begin
          clear;
          add('update pre_table set known=0 where known=1');
        end;
      execsql;
      end;

    with ruler3Qry do
      begin
        close;
       with sql do
        begin
          clear;
          add('update act_table set known=0 where known=1');
        end;
      execsql;
   end;
   Application.Terminate;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
   with ruler3Qry do
    begin
      close;
      with sql do
        begin
          clear;
          add('delete from fact_table');
        end;
      execsql;
     end;

     with ruler3Qry do
      begin
      close;
       with sql do
        begin
          clear;
          add('update pre_table set known=0 where known=1');
        end;
      execsql;
      end;

    with ruler3Qry do
      begin
        close;
       with sql do
        begin
          clear;
          add('update act_table set known=0 where known=1');
        end;
      execsql;
   end;
  Application.Terminate;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
   if (radioButton3.Checked)  then
    begin
      ruler3Qry.Close;
      ruler3Qry.SQL.Clear;
      ruler3Qry.sql.add('insert into fact_table values('+'19'+') ' );
      ruler3Qry.ExecSQL;
      ruler3Qry.Close;
      ruler3Qry.SQL.Clear;
      ruler3Qry.sql.add('insert into fact_table values('+'20'+') ' );
      ruler3Qry.ExecSQL;
    end
     else if (radioButton4.Checked)  then
    begin
      ruler3Qry.Close;
      ruler3Qry.SQL.Clear;
      ruler3Qry.sql.add('insert into fact_table values('+'19'+') ' );
      ruler3Qry.ExecSQL;
      ruler3Qry.Close;
      ruler3Qry.SQL.Clear;
      ruler3Qry.sql.add('insert into fact_table values('+'22'+') ' );
      ruler3Qry.ExecSQL;
    end;
  Form3.Close;
  Form7.show;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin

  //将事实加入事实库fact_table
  if (radioButton1.Checked)  then
    begin
      ruler3Qry.Close;
      ruler3Qry.SQL.Clear;
      ruler3Qry.sql.add('insert into fact_table values('+'8'+') ' );
      ruler3Qry.ExecSQL;
      ruler3Qry.SQL.Clear;
      ruler3Qry.sql.add('insert into fact_table values('+'9'+') ' );
      ruler3Qry.ExecSQL;
    end
  else if (radioButton2.Checked)  then
    begin
      ruler3Qry.Close;
      ruler3Qry.SQL.Clear;
      ruler3Qry.sql.add('insert into fact_table values('+'8'+') ' );
      ruler3Qry.ExecSQL;
      ruler3Qry.Close;
      ruler3Qry.SQL.Clear;
      ruler3Qry.sql.add('insert into fact_table values('+'11'+') ' );
      ruler3Qry.ExecSQL;
    end ;



  Form3.Hide;
  Form7.show;

end;

procedure TForm3.TabSheet1Show(Sender: TObject);
begin
  radioButton1.Checked:=false;
  radioButton2.Checked:=false;

end;

procedure TForm3.TabSheet2Show(Sender: TObject);
begin
  radioButton3.Checked:=false;
  radioButton4.Checked:=false;

end;

procedure TForm3.FormShow(Sender: TObject);
begin
  RadioButton1.Checked:=false;
  RadioButton2.Checked:=false;
  RadioButton3.Checked:=false;
  RadioButton4.Checked:=false;
end;

end.