【delphi开源代码栏目提醒】:本文主要为网学会员提供MRKHFKFX.pas,希望对需要MRKHFKFX.pas网友有所帮助,学习一下!
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.