uy_ctyl_bl.pas

来自「恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001」· PAS 代码 · 共 61 行

unit uy_ctyl_bl;

interface

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

type
  Ty_ctyl_bl = class(TForm)
    DBChart1: TDBChart;
    Series1: TPieSeries;
    ctzk: TQuery;
    ctzkCOUNTOFtht: TIntegerField;
    ctzkzt: TStringField;
    ctzkzt1: TStringField;
    ImageList1: TImageList;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ct_zt: TTable;
    ct_ztBh: TStringField;
    ct_ztZt: TStringField;
    procedure ToolButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  y_ctyl_bl: Ty_ctyl_bl;

implementation

{$R *.DFM}

procedure Ty_ctyl_bl.ToolButton2Click(Sender: TObject);
begin
  close;
end;

procedure Ty_ctyl_bl.FormShow(Sender: TObject);
begin
 if not ct_zt.Active then ct_zt.Active:=true;
 ctzk.Active:=false;
 ctzk.Active:=true;
end;

procedure Ty_ctyl_bl.ToolButton1Click(Sender: TObject);
begin
 DBChart1.Print;
end;

end.