unit3.pas

人工神经网络bp 算法是用于数学建模Alife.c 基于遗传算法的人工生命模拟源程序, 输入数据文件world GA_nn.c 基于遗传算法优化神经网络结构源程序,输入数据文件sample Patma

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, BubbleCh, DB, DBTables, TeeProcs, Chart,
  DbChart, StdCtrls, ExtCtrls, Buttons;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBChart1: TDBChart;
    DataSource1: TDataSource;
    Table1: TTable;
    Table2: TTable;
    DataSource2: TDataSource;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Panel3: TPanel;
    Series1: TPointSeries;
    Series2: TPointSeries;
    Series3: TPointSeries;
    Series4: TPointSeries;
    Series5: TPointSeries;
    Series6: TPointSeries;
    Series7: TPointSeries;
    Series8: TPointSeries;
    Series9: TPointSeries;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
     dbseries:array[0..8] of tchartseries;
     biaozhi:array[0..3] of boolean;
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
  i:integer;

begin
   dbchart1.RemoveAllSeries;
   table1.Close;
   table1.TableName:='';

   if biaozhi[0] then
   begin
     table1.TableName:='原始数据';
     table1.Open;

     for i:=0 to combobox1.Items.Count-1 do
   begin
   if combobox1.Text=combobox1.Items[i] then
     begin
       // dbchart1.RemoveAllSeries;
        dbchart1.AddSeries(dbseries[i]);
        dbseries[i].Active:=true;
        dbseries[i].DataSource:=table1;
        dbseries[i].XLabelsSource:=table1.Fields[i].Name;
        dbseries[i].YValues.ValueSource:=combobox1.Items[i];
     end;
   end;
    // biaozhi[0]:=false;
   end;

   if biaozhi[1] then
   begin
     table1.TableName:='模糊化数据';
     table1.Open;
     for i:=0 to combobox1.Items.Count-1 do
   begin
   if combobox1.Text=combobox1.Items[i] then
     begin
        //dbchart1.RemoveAllSeries;
        dbchart1.AddSeries(dbseries[i]);
        dbseries[i].Active:=true;
        dbseries[i].DataSource:=table1;
        dbseries[i].XLabelsSource:=table1.Fields[i].Name;
        dbseries[i].YValues.ValueSource:=combobox1.Items[i];
     end;
   end;
     //biaozhi[1]:=not biaozhi[1];
   end;

   if biaozhi[2] then
   begin
     table1.TableName:='期望值';
     table1.Open;
     for i:=0 to combobox1.Items.Count-1 do
   begin
   if combobox1.Text=combobox1.Items[i] then
     begin
       // dbchart1.RemoveAllSeries;
        dbchart1.AddSeries(dbseries[i+6]);
        dbseries[i+6].Active:=true;
        dbseries[i+6].DataSource:=table1;
        dbseries[i+6].XLabelsSource:=table1.Fields[i].Name;
        dbseries[i+6].YValues.ValueSource:=combobox1.Items[i];
     end;
   end;
    // biaozhi[2]:=not biaozhi[2];
   end;

   if biaozhi[3] then
   begin
     table1.TableName:='扩展数据库';
     table1.Open;
     for i:=0 to combobox1.Items.Count-2 do
   begin
   if combobox1.Text=combobox1.Items[i] then
     begin
       // dbchart1.RemoveAllSeries;
        dbchart1.AddSeries(dbseries[i]);
        dbseries[i].Active:=true;
        dbseries[i].DataSource:=table1;
        dbseries[i].XLabelsSource:=table1.Fields[i].Name;
        dbseries[i].YValues.ValueSource:=combobox1.Items[i];
     end;
   end;
    // biaozhi[3]:=not biaozhi[3];
   end;




   //dbseries[i].Active:=true;
   //combobox1.Clear;
  // table1.Close;
end;
procedure TForm3.Button2Click(Sender: TObject);
var
  i:integer;
begin
  biaozhi[0]:=false;
  biaozhi[1]:=false;
  biaozhi[2]:=false;
  biaozhi[3]:=false;

  
  if combobox2.Text='原始数据' then
  begin
    biaozhi[0]:=true;
    table2.Close;
    table2.TableName:='原始数据';
    table2.Open;
    with table2 do
    begin
      combobox1.Items.Clear;
      for i:=0 to table2.FieldCount-1 do
         combobox1.Items.Add(fields[i].FieldName);
      combobox1.ItemIndex:=0;
    end;
  end;
  if combobox2.Text='模糊化数据' then
  begin
    biaozhi[1]:=true;
    table2.Close;
    table2.TableName:='模糊化数据';
    table2.Open;
    with table2 do
    begin
      combobox1.Items.Clear;
      for i:=0 to FieldCount-1 do
        combobox1.Items.Add(table2.Fields[i].FieldName);
      combobox1.ItemIndex:=0;
    end;
  end;
  if combobox2.Text='期望值' then
  begin
    biaozhi[2]:=true;
    table2.Close;
    table2.TableName:='期望值';
    table2.Open;
    with table2 do
    begin
    combobox1.Items.Clear;
    for i:=0 to table2.FieldCount-1 do
      combobox1.Items.Add(table2.Fields[i].FieldName);
    combobox1.ItemIndex:=0;
    end;
  end;
  if combobox2.Text='扩展数据库' then
  begin
    biaozhi[3]:=true;
    table2.Close;
    table2.TableName:='扩展数据库';
    table2.Open;
    with table2 do
    begin
    combobox1.Items.Clear;
    for i:=0 to table2.FieldCount-2 do
      combobox1.Items.Add(table2.Fields[i].FieldName);
    combobox1.ItemIndex:=0;
    end;
  end;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  dbseries[0]:=series1;
  dbseries[1]:=series2;
  dbseries[2]:=series3;
  dbseries[3]:=series4;
  dbseries[4]:=series5;
  dbseries[5]:=series6;
  dbseries[6]:=series7;
  dbseries[7]:=series8;
  dbseries[8]:=series9;
  biaozhi[0]:=false;
  biaozhi[1]:=false;
  biaozhi[2]:=false;
  biaozhi[3]:=false;
end;

end.