uy_yyt_yh.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

unit uy_yyt_yh;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons,u_main, Db, DBTables;

type
  Ty_yyt_yh = class(TForm)
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid2: TDBGrid;
    ydcd: TCheckBox;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  y_yyt_yh: Ty_yyt_yh;

implementation

uses uy_yyt_login, uy_yyt;

{$R *.DFM}

procedure Ty_yyt_yh.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=27 then close;
end;

procedure Ty_yyt_yh.BitBtn1Click(Sender: TObject);
begin
  if y_yyt.yhyd.recordcount=0 then exit;
  esc_enter:=1;
  if ydcd.Checked then y_n:=1;
  close;
end;

procedure Ty_yyt_yh.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 y_yyt_yh:=NIL;
end;

procedure Ty_yyt_yh.FormShow(Sender: TObject);
begin
 y_yyt.yhyd.filter:='y_n=false and yhrq='+formatdatetime('yyyy.mm.dd',date())+' and yhsj>='+s_yd_sj1+' and yhsj<='+s_yd_sj2;
end;

end.