product_analyse.pas

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

unit Product_Analyse;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart, DBCtrls,
  StdCtrls, Buttons, TeeFunci, ComCtrls;

type
  TProduct_AnalyseFrm = class(TForm)
    RadioGroup1: TRadioGroup;
    DBLookupComboBox1: TDBLookupComboBox;
    BitBtn1: TBitBtn;
    DBLookupComboBox2: TDBLookupComboBox;
    Chart1: TChart;
    Series1: TBarSeries;
    Series2: TBarSeries;
    Series3: TBarSeries;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Product_AnalyseFrm: TProduct_AnalyseFrm;

implementation
 uses DataModule;
{$R *.dfm}

procedure TProduct_AnalyseFrm.BitBtn1Click(Sender: TObject);
var
  str:string;
  value1,value2,value3:array [1..10]of Double;
  i:integer;
begin
  case RadioGroup1.ItemIndex of
   0:  begin
       str:='Select * from Product_check where Product_Name='+''''+DBLookupComboBox1.Text+'''';
       end;
   1:  begin
       str:='Select * from Product_check where Manufacture_Name='+''''+DBLookupComboBox2.Text+'''';
       end;
  end;
   with DM.AQ_Product_Analyse do
    begin
      close;
      SQL.Clear;
      SQL.Add(str);
      open;
      DM.AQ_Product_Analyse.RecordCount;
      first;
     for i:=1 to  DM.AQ_Product_Analyse.RecordCount do
        begin
        value1[i]:=DM.AQ_Product_Analyse['Quality_goods']/(DM.AQ_Product_Analyse['Quality_goods']+DM.AQ_Product_Analyse['Inferior']+DM.AQ_Product_Analyse['Waster']);
        value2[i]:=DM.AQ_Product_Analyse['Inferior']/(DM.AQ_Product_Analyse['Quality_goods']+DM.AQ_Product_Analyse['Inferior']+DM.AQ_Product_Analyse['Waster']);
        value3[i]:=1-value1[i]-value2[i];
        Chart1.Series[0].AddXY(DM.AQ_Product_Analyse['Quality_check_Time'],value1[i]);
        Chart1.Series[1].AddXY(DM.AQ_Product_Analyse['Quality_check_Time'],value2[i]);
        Chart1.Series[2].AddXY(DM.AQ_Product_Analyse['Quality_check_Time'],value3[i]);
        DM.AQ_Product_Analyse.next;
        end;
    end;

end;

procedure TProduct_AnalyseFrm.RadioGroup1Click(Sender: TObject);
begin
   case RadioGroup1.ItemIndex of
   0:  begin
       Label1.Caption:='产品质量分析';
       end;
   1:  begin
       Label1.Caption:='生产质量分析';
       end;
   end;
end;

end.