unit2.pas

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

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ruler2Qry: TADOQuery;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    GroupBox2: TGroupBox;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit7;

{$R *.dfm}

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

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

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

  Application.Terminate;
 // Form1.think();
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  ruler2Qry.Close;
  //将事实加入事实库fact_table
  if (radioButton1.Checked)  then
    begin
      ruler2Qry.SQL.Clear;
      ruler2Qry.sql.add('insert into fact_table values('+'1'+') ' );
      ruler2Qry.ExecSQL;
    end;

    if (radioButton2.Checked)  then
    begin
      ruler2Qry.SQL.Clear;
      ruler2Qry.sql.add('insert into fact_table values('+'2'+') ' );
      ruler2Qry.ExecSQL;
    end
     else if (radioButton3.Checked)  then
    begin
      ruler2Qry.SQL.Clear;
      ruler2Qry.sql.add('insert into fact_table values('+'4'+') ' );
      ruler2Qry.ExecSQL;
    end
     else if (radioButton4.Checked)  then
    begin
      ruler2Qry.SQL.Clear;
      ruler2Qry.sql.add('insert into fact_table values('+'6'+') ' );
      ruler2Qry.ExecSQL;
    end;

  Form2.Hide;
  Form7.show;
end;

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

end.