readerpercent.~pas

图书馆管理系统

unit readerpercent;

interface

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

type
  TForm10 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBChart2: TDBChart;
    ADOTable2: TADOTable;
    ADOTable3: TADOTable;
    ADOQuery1: TADOQuery;
    Series2: TPieSeries;
    DBChart1: TDBChart;
    Series1: TPieSeries;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);
begin
 messagedlg('确认连接打印机!',mtInformation,[mbOK],0);
end;

procedure TForm10.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TForm10.FormActivate(Sender: TObject);
begin
   adotable1.Active:=false;
   adotable1.Active:=true;
end;

procedure TForm10.FormShow(Sender: TObject);
var i:integer;
begin    //更新记录
  adotable1.Active:=false;
  adotable2.Active :=false;
  adotable3.Active :=false;
  adotable1.Active:=true;
  adotable2.Active :=true;
  adotable3.Active :=true;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('delete TypeStat');
  adoquery1.ExecSQL ;

  while( not adotable3.Eof)do
  begin
    adotable2.First;
    i:=0;
    while( not adotable2.Eof )do
    begin
      if(adotable3.FieldByName('RT_typename').AsString =adotable2.FieldByName('reader_type').AsString ) then
        i:=i+1;
      adotable2.Next ;
    end;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('insert into TypeStat values('''+adotable3.fieldbyname('RT_typename').AsString +''','+inttostr(i)+')');
    adoquery1.ExecSQL ;
    adotable3.Next;
  end;
  adotable2.Active :=false;
  adotable3.Active :=false;
  adotable2.Active :=true;
  adotable3.Active :=true;
  adotable1.Active:=true;
end;

end.