uz_sp_cx.pas

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

unit uz_sp_cx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids,u_main, Variants;

type
  Tz_sp_cx = class(TForm)
    DBGrid1: TDBGrid;
    spbm: TEdit;
    procedure spbmChange(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure spbmKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_sp_cx: Tz_sp_cx;

implementation

uses uz_gtsp;

{$R *.DFM}

procedure Tz_sp_cx.spbmChange(Sender: TObject);
begin
 with z_gtsp.q_sp_cx do
  begin
   DisableControls;
   ParamByName('s_spbm').asstring:=spbm.text+'%';
   active:=false;
   active:=true;
   EnableControls;
  end;
end;

procedure Tz_sp_cx.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#27 then   close;
end;

procedure Tz_sp_cx.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if (key=#13) and (z_gtsp.q_sp_cx.RecordCount<>0) then
   with z_gtsp.q_gtsp do
     begin
      DisableControls;
      ParamByName('s_spbm').asstring:=z_gtsp.q_sp_cxspbm.asstring;
      active:=false;
      active:=true;
      EnableControls;
      if recordcount=0 then
        begin
         messagebox(NULL,'柜台里无此商品!','系统提示信息',MB_OK+MB_ICONWARNING);
         z_sp_cx.spbm.setfocus;
        end
       else
        begin
         esc_enter:=1;
         z_sp_cx.close;
        end;
     end;
end;

procedure Tz_sp_cx.spbmKeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) and (z_gtsp.q_sp_cx.recordcount<>0) then  DBGrid1.setfocus;
end;

end.