child_chart.pas

一个桌面数据库应用的源码,适合初学数据库编程的新手.

unit Child_Chart;

interface

uses
  WinTypes, WinProcs, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, TeEngine, TeeProcs, Chart, Series, Db, DBTables,
  Buttons;

type
  Tfrm_Chart = class(TForm)
    Table1: TTable;
    Panel1: TPanel;
    Chart1: TChart;
    Series1: TBarSeries;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Chart: Tfrm_Chart;

implementation

uses Main;

{$R *.DFM}

procedure Tfrm_Chart.FormShow(Sender: TObject);
var
  i:integer;
  data_sum:array[1..6]of integer;
begin
  for i:=1 to 6 do
    data_sum[i]:=0;
  with Table1 do
  begin
    First;
    while not eof do
    begin
      if FieldByName('状况').AsString='' then
        data_sum[1]:=data_sum[1]+1;
      if FieldByName('状况').AsString='好' then
        data_sum[2]:=data_sum[2]+1;
      if FieldByName('状况').AsString='良好' then
        data_sum[3]:=data_sum[3]+1;
      if FieldByName('状况').AsString='勘用' then
        data_sum[4]:=data_sum[4]+1;
      if FieldByName('状况').AsString='待修' then
        data_sum[5]:=data_sum[5]+1;
      if FieldByName('状况').AsString='报废' then
        data_sum[6]:=data_sum[6]+1;
      Next;
    end;
  end;
//  Chart1.LeftAxis.Title.Caption:='仪器数';
//  Chart1.BottomAxis.Title.Caption:='仪器状况';
  Series1.Add(data_sum[2],'好',clTeeColor);
  Series1.Add(data_sum[3],'良好',clTeeColor);
  Series1.Add(data_sum[4],'勘用',clTeeColor);
  Series1.Add(data_sum[5],'待修',clTeeColor);
  Series1.Add(data_sum[6],'报废',clTeeColor);
  Series1.Add(data_sum[1],'其他',clTeeColor);
end;

procedure Tfrm_Chart.FormCreate(Sender: TObject);
begin
  Height:=Constraints.MinHeight;
  Width:=Constraints.MinWidth;
  Panel1.Align:=alClient;
  Chart1.Align:=alClient;
  Table1.DatabaseName:=MainForm.GetExePath+'mdb';
  Table1.TableName:='Lab.DB';
  Table1.Open;
end;

procedure Tfrm_Chart.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  with Mainform do
  begin
    if MDIChildCount=1 then
      StatusBar.Panels[1].Text:='';
  end;
  Table1.Close;
  Action:=caFree;
end;

procedure Tfrm_Chart.FormActivate(Sender: TObject);
begin
  MainForm.StatusBar.Panels[1].Text:='仪器状态统计图表';
end;

end.