tempchart.~pas

使用Delphi 6.0开发用于控制空调的程序

unit TempChart;

interface

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

type
  TfrmTemChart = class(TForm)
    dbcht1: TDBChart;
    LsSeries1: TLineSeries;
    AT1: TADOTable;
    AQ1: TADOQuery;
    btnFilter: TButton;
    dtpStart: TDateTimePicker;
    lbl1: TLabel;
    lbl2: TLabel;
    dtpStop: TDateTimePicker;
    statTempReturn: TStatusBar;
    btnMark: TButton;
    cbb1: TComboBox;
    Label1: TLabel;
    procedure btnFilterClick(Sender: TObject);
    procedure btnMarkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTemChart: TfrmTemChart;

implementation

{$R *.dfm}

procedure TfrmTemChart.btnFilterClick(Sender: TObject);
var
  str1,str2:string;
begin
   str1 := DateToStr(dtpStart.Date);
   str2 :=  DateToStr(dtpStop.Date);
//     ShowMessage(TimeToStr(dtpStart.Time) );
   with AQ1 do
   begin
       Close;
       SQL.Clear;
       SQL.Add('select * from ACData where ACAddress =:add and 时间 between :dt1 and  :dt2');
       Parameters.ParamByName('add').Value := cbb1.Text;
       Parameters.ParamByName('dt1').Value := StrToDate(str1);
       Parameters.ParamByName('dt2').Value := StrToDate(str2);
       Open;
   end;
end;

procedure TfrmTemChart.btnMarkClick(Sender: TObject);
begin
    if  dbcht1.Legend.Visible = False then
    begin
       dbcht1.Legend.Visible := True;
       btnMark.Caption := '隐藏注释';
    end
    else
    if dbcht1.Legend.Visible = True then
    begin
        dbcht1.Legend.Visible := False;
        btnMark.Caption := '显示注释';
    end;
   // dbcht1.Series[0].SetIntegerProperty(59.0 ,13);
    //dbcht1.Series[0].MinXValue := 15;

end;

end.