mrkhfkfx.pas

功能强大,画面精致.是一款不可多得的客户管理系统acess数据库,用户名:yuansheng 密码:yuansheng 级别:高级用户 建议在xp系统下运行。

unit MRKHFKFX;

interface

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

type
  TFRM_KHFKFX = class(TForm)
    Button1: TButton;
    DBChart1: TDBChart;
    Series1: TPieSeries;
    Series2: TBarSeries;
    Button2: TButton;
    Button3: TButton;
    Series3: TFastLineSeries;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_KHFKFX: TFRM_KHFKFX;

implementation
  USES DATA;
{$R *.dfm}

procedure TFRM_KHFKFX.FormShow(Sender: TObject);
var
  ini : Tinifile;
  ssp : string;
begin
  ssp := '客户反馈满意程度分析';
  ini:=Tinifile.Create('c:\cc.ini');
  ini.WriteString('one',datetimetostr(now),ssp);
  ini.Free;
  DATABASE.ADO_KHFKFX.Open;
  dbcHART1.Series[0].Active := tRUE;
  dbcHART1.Series[1].Active := false;
  dbcHART1.Series[2].Active := false;
  DBCHART1.Series[0].DataSource := DATABASE.ADO_KHFKFX;

end;

procedure TFRM_KHFKFX.Button1Click(Sender: TObject);
begin
  DATABASE.ADO_KHFKFX.Open;
  dbcHART1.Series[0].Active := tRUE;
  dbcHART1.Series[1].Active := false;
  dbcHART1.Series[2].Active := false;
  DBCHART1.Series[0].DataSource := DATABASE.ADO_KHFKFX;
end;

procedure TFRM_KHFKFX.Button2Click(Sender: TObject);
begin
  DATABASE.ADO_KHFKFX.Open;
  dbcHART1.Series[0].Active := false;
  dbcHART1.Series[1].Active := tRUE;
  dbcHART1.Series[2].Active := false;
  DBCHART1.Series[1].DataSource := DATABASE.ADO_KHFKFX;

end;

procedure TFRM_KHFKFX.Button3Click(Sender: TObject);
begin
  DATABASE.ADO_KHFKFX.Open;
  dbcHART1.Series[0].Active:= false;
  dbcHART1.Series[1].Active := false;
  dbcHART1.Series[2].Active := tRUE;
  DBCHART1.Series[2].DataSource:=DATABASE.ADO_KHFKFX;

end;

procedure TFRM_KHFKFX.FormCreate(Sender: TObject);
begin
  database.ADO_KHFKFX.Active := false;
  database.ADO_KHFKFX.Active := true;
end;

procedure TFRM_KHFKFX.BitBtn1Click(Sender: TObject);
begin
  close;
end;

end.