unit11.pas

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

unit Unit11;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button3: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    preMemo: TMemo;
    Label1: TLabel;
    Button4: TButton;
    actMemo: TMemo;
    Button5: TButton;
    Button2: TButton;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    ADOConnection1: TADOConnection;
    query1: TADOQuery;
    query2: TADOQuery;
    GroupBox3: TGroupBox;
    sugMemo: TMemo;
    Button6: TButton;
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.FormShow(Sender: TObject);
var count:integer;
begin
  Button1.Enabled:=false;
  Button2.Enabled:=false;
 
  Button6.Enabled:=false;
  with query1 do
    begin
      close;
      with sql do
        begin
          clear;
          add('select count(*) from act_table');
        end;
      open;
      count:=Fields[0].AsInteger;
     // showMessage(count);
    end;
    edit2.Text:= inttostr(count);


end;

procedure TForm1.Button4Click(Sender: TObject);
var id,interpret:String;
    count:integer;
begin
 interpret:='';
 interpret:=preMemo.Text;
// showmessage(interpret);

 /////向事实库中添加事实
  with query2 do
    begin
      close;
      with sql do
        begin
          clear;
          add('select count(*) from dict_table');
        end;
      open;
      count:=Fields[0].AsInteger+1;
      id:=inttostr(count);
  //    showmessage(id);
    end;
    with query2 do
      begin
        close;

        with sql do
           begin
            clear;
            add('insert into dict_table(id,interpret) values('''+id+''','''+ interpret+''')');
           end;
    //    showmessage(sql.Text);
        execsql;
      end;
    ////向前件库中添加前件
    with query2 do
    begin
      close;
      with sql do
        begin
          clear;
          add('insert into pre_table(ruleName,id) values('''+edit1.Text+''','''+id+''')');
        end;
  //    showmessage(sql.Text);
      execsql;
    end;
    preMemo.Clear;

end;

procedure TForm1.Button5Click(Sender: TObject);
  var id,interpret:String;
    count:integer;
begin
  Button2.Enabled:=true;

 interpret:='';
 interpret:=preMemo.Text;
 //showmessage(interpret);

 /////向事实库中添加事实
  with query2 do
    begin
      close;
      with sql do
        begin
          clear;
          add('select count(*) from dict_table');
        end;
      open;
      count:=Fields[0].AsInteger+1;
      id:=inttostr(count);
    //  showmessage(id);
    end;
    with query2 do
      begin
        close;

        with sql do
           begin
            clear;
            add('insert into dict_table(id,interpret) values('''+id+''','''+ interpret+''')');
           end;
    //    showmessage(sql.Text);
        execsql;
      end;
    ////向前件库中添加前件
    with query2 do
    begin
      close;
      with sql do
        begin
          clear;
          add('insert into pre_table(ruleName,id) values('''+edit1.Text+''','''+id+''')');
        end;
   //  showmessage(sql.Text);
      execsql;
    end;
    showMessage('前件添加完毕');

end;

procedure TForm1.Button2Click(Sender: TObject);
var num,count:integer;
    interpret,id,nums:String;

begin
  Button6.Enabled:=true;
   interpret:='';
 interpret:=actMemo.Text;
 ///向事实库中添加事实
   with query2 do
    begin
      close;
      with sql do
        begin
          clear;
          add('select count(*) from dict_table');
        end;
      open;
      count:=Fields[0].AsInteger+1;
      id:=inttostr(count);
    //  showmessage(id);
    end;
    with query2 do
      begin
        close;

        with sql do
           begin
            clear;
            add('insert into dict_table(id,interpret) values('''+id+''','''+ interpret+''')');
           end;
     //   showmessage(sql.Text);
        execsql;
      end;

  ///添加后件库
  with query2 do
    begin
      close;
      with sql do
        begin
          clear;
          add('select count(*) from pre_table where ruleName='''+edit1.Text+'''');
        end;
      open;
      num:=Fields[0].AsInteger;
      nums:=inttostr(num);
     // showmessage(inttostr(num));
    end;

   with query2 do
     begin
       close;
       with sql do
         begin
           clear;
           add('insert into act_table(ruleName,id,num) values('''+edit1.Text+''','''+id+''','+nums+')' );
         end;
       execsql;

       end;
       showMessage('后件添加完毕');
   end;

procedure TForm1.Button1Click(Sender: TObject);
  var count:integer;
begin
  edit1.Clear;
  preMemo.Clear;
  actMemo.Clear;
  with query1 do
    begin
      close;
      with sql do
        begin
          clear;
          add('select count(*) from act_table');
        end;
      open;
      count:=Fields[0].AsInteger;
    end;
    edit2.Text:= inttostr(count);


end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  Button1.Enabled:=true;
  with query2 do
    begin
      close;
      with sql do
        begin
          clear;
          add('insert into sug_table(ruleName,sugestion) values('''+edit1.Text+''','''+sugMemo.Text+''')');
        end;
      execsql;
  end;
  showMessage('规则添加成功');
end;

end.