unit15.~pas

来自「这是个才财务管理系统！可能是哪个语言！但是我不认识！」· ~PAS 代码 · 共 54 行

unit Unit15;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  TeEngine, Series, ExtCtrls, TeeProcs, Chart, DBChart, StdCtrls, Buttons,
  ComCtrls, Db, DBTables;

type
  Tfrm_graph = class(TForm)
    dbc_chart: TDBChart;
    DTP_date1: TDateTimePicker;
    DTP_date2: TDateTimePicker;
    btn_print: TBitBtn;
    btn_exit: TBitBtn;
    Query1: TQuery;
    Series1: TBarSeries;
    procedure btn_printClick(Sender: TObject);
    procedure btn_exitClick(Sender: TObject);
    procedure DTP_date1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_graph: Tfrm_graph;

implementation

{$R *.DFM}

procedure Tfrm_graph.btn_printClick(Sender: TObject);
begin
  dbc_chart.print;
end;

procedure Tfrm_graph.btn_exitClick(Sender: TObject);
begin
  close;
end;

procedure Tfrm_graph.DTP_date1Change(Sender: TObject);
begin
  query1.close;
  query1.ParamByName('d1').asdatetime:=dtp_date1.DateTime;
  query1.ParamByName('d2').asdatetime:=dtp_date2.DateTime;
  query1.open;
end;

end.