uy_yyt_ck.pas

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

unit uy_yyt_ck;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons,u_main;

type
  Ty_yyt_ck = class(TForm)
    ckbh1: TLabel;
    ckbh: TEdit;
    SpeedButton1: TSpeedButton;
    Label7: TLabel;
    dwmc: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure ckbhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  y_yyt_ck: Ty_yyt_ck;

implementation

uses ug_dcd,uy_yyt, ug_ckxx, ug_ckcx;

{$R *.DFM}

procedure Ty_yyt_ck.BitBtn3Click(Sender: TObject);
begin
 if length(trim(ckbh.text))<>4 then
   begin
    messagebox(handle,'请确认当前常客!','系统提示信息',MB_OK+MB_ICONWARNING);
    ckbh.setfocus;
    exit;
   end;
 s_ckbh:=ckbh.text;
 if g_ckxx=NIL then g_ckxx:=Tg_ckxx.Create(self);
 if not g_ckxx.ckzl.FindKey([ckbh.text]) then
  begin
    messagebox(handle,'当前常客查询有误，请重新确定此常客!','系统提示信息',MB_OK+MB_ICONWARNING);
    ckbh.setfocus;
    g_ckxx.Release;
    g_ckxx:=NIL;
    exit;
  end;
 g_ckxx.showmodal;
end;

procedure Ty_yyt_ck.ckbhKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if ((key>=65) and (key<=90))  or ((key<=57) and (key>=48)) or ((key<=105) and (key>=96)) then
   begin
    c_key:=chr(key);
    esc_enter:=0;
    g_ckcx.showmodal;
    if esc_enter=1 then
      begin
       dwmc.text:=g_ckcx.q_ck.fieldbyname('dwmc').asstring;
       ckbh.text:=g_ckcx.q_ck.fieldbyname('ckbh').asstring;
       y_yyt.cd.edit;
       y_yyt.cd.fieldbyname('ckbh').value:=g_ckcx.q_ck.fieldbyname('ckbh').asstring;
      end;
    esc_enter:=0;
   end;
end;

procedure Ty_yyt_ck.SpeedButton1Click(Sender: TObject);
begin
 esc_enter:=0;
 g_ckcx.showmodal;
 if esc_enter=1 then
  begin
   dwmc.text:=g_ckcx.q_ck.fieldbyname('dwmc').asstring;
   ckbh.text:=g_ckcx.q_ck.fieldbyname('ckbh').asstring;
   y_yyt.cd.edit;
   y_yyt.cd.fieldbyname('ckbh').value:=g_ckcx.q_ck.fieldbyname('ckbh').asstring;
  end;
 esc_enter:=0;
end;

procedure Ty_yyt_ck.FormShow(Sender: TObject);
begin
 ckbh.text:='';
 dwmc.text:='';
end;

procedure Ty_yyt_ck.BitBtn1Click(Sender: TObject);
begin
// dm.cd.post;
 close;
end;

procedure Ty_yyt_ck.BitBtn2Click(Sender: TObject);
begin
// dm.cd.Cancel;
end;

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

end.