uz_yhyd_xz.pas

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

 z_yhyd.yhyd.Cancel;
end;

procedure Tz_yhyd_xz.krzsChange(Sender: TObject);
begin
 if not krzs.Focused then exit;
 try
  strtofloat(krzs.text);
 except
  krzs.text:=ys_krzs;
  exit;
 end;
 if strtofloat(krzs.text)<0 then krzs.text:=ys_krzs;
 ys_krzs:=krzs.text;
end;

procedure Tz_yhyd_xz.djChange(Sender: TObject);
begin
 if not dj.Focused then exit;
 try
  strtofloat(dj.text);
 except
  dj.text:=ys_dj;
  exit;
 end;
 if strtofloat(dj.text)<0 then  dj.text:=ys_dj;
 ys_dj:=dj.text;
end;

procedure Tz_yhyd_xz.yhbzChange(Sender: TObject);
begin
 if not yhbz.Focused then exit;
 try
  strtofloat(yhbz.text);
 except
  yhbz.text:=ys_yhbz;
  exit;
 end;
 if strtofloat(yhbz.text)<0 then  yhbz.text:=ys_yhbz;
 ys_yhbz:=yhbz.text;
end;

procedure Tz_yhyd_xz.sjrsChange(Sender: TObject);
begin
if not sjrs.Focused then exit;
 try
  strtofloat(sjrs.text);
 except
  sjrs.text:=ys_sjrs;
  exit;
 end;
 if strtofloat(sjrs.text)<0 then sjrs.text:=ys_sjrs;
 ys_sjrs:=sjrs.text;
end;

procedure Tz_yhyd_xz.xhrsChange(Sender: TObject);
begin
if not xhrs.Focused then exit;
 try
  strtofloat(xhrs.text);
 except
  xhrs.text:=ys_xhrs;
  exit;
 end;
 if strtofloat(xhrs.text)<0 then xhrs.text:=ys_xhrs;
 ys_xhrs:=xhrs.text;
end;

procedure Tz_yhyd_xz.dzlChange(Sender: TObject);
begin
 if not dzl.Focused then exit;
 try
  strtofloat(dzl.text);
 except
  dzl.text:=ys_dzl;
  exit;
 end;
 if strtofloat(dzl.text)>=1 then dzl.text:=ys_dzl;
 ys_dzl:=dzl.text;
end;

procedure Tz_yhyd_xz.fwflChange(Sender: TObject);
begin
if not fwfl.Focused then exit;
 try
  strtofloat(fwfl.text);
 except
  fwfl.text:=ys_fwfl;
  exit;
 end;
 if strtofloat(fwfl.text)>=1 then fwfl.text:=ys_fwfl;
 ys_fwfl:=fwfl.text;
end;

procedure Tz_yhyd_xz.SpeedButton1Click(Sender: TObject);
var
 i:integer;
begin
if yddt.Items.Count>=strtoint(ydzs.text) then
  begin
   messagebox(handle,'预定多台已够预定桌数！','系统提示信息',MB_OK+MB_ICONWARNING);
   exit;
  end;
 for i:=0 to yddt.Items.Count-1 do
  begin
   if ydth.Text=yddt.Items[i] then
    begin
     messagebox(handle,'预定台号已经转入预定多台！','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
    end;
  end;
 yddt.Items.Add(ydth.Text);
 yddt.text:=ydth.text;
end;

procedure Tz_yhyd_xz.SpeedButton2Click(Sender: TObject);
begin
 z_yhyd_xzt.showmodal;
end;

procedure Tz_yhyd_xz.yddtChange(Sender: TObject);
begin
   yddt.text:=yddt.Items[0];
end;

procedure Tz_yhyd_xz.yddwKeyDown(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=0 then exit;
   with g_ckcx.q_ck do
    begin
     yddw.text:=fieldbyname('dwmc').asstring;
     dz.text:=fieldbyname('dwdz').asstring;
     lxr.text:=fieldbyname('dbxm').asstring;
     lxdh.text:=fieldbyname('dh').asstring;
     z_yhyd.yhyd.fieldbyname('ckbh').value:=fieldbyname('ckbh').asstring;
    end;
 end;
end;
procedure Tz_yhyd_xz.SpeedButton3Click(Sender: TObject);
begin
 esc_enter:=0;
 g_ckcx.showmodal;
 if esc_enter=0 then exit;
 with g_ckcx.q_ck do
  begin
   z_yhyd.yhyd.fieldbyname('ckbh').value:=fieldbyname('ckbh').asstring;
   yddw.text:=fieldbyname('dwmc').asstring;
   dz.text:=fieldbyname('dwdz').asstring;
   lxr.text:=fieldbyname('dbxm').asstring;
   lxdh.text:=fieldbyname('dh').asstring;
  end;
end;

procedure Tz_yhyd_xz.ydthKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
  begin
   esc_enter:=0;
   y_yyt_rt.showmodal;
   if esc_enter=1 then  ydth.text:=y_yyt_rt.q_xt.fieldbyname('tht').asstring;
 end;
end;

procedure Tz_yhyd_xz.SpeedButton4Click(Sender: TObject);
begin
 esc_enter:=0;
 y_yyt_rt.showmodal;
 if esc_enter=1 then  ydth.text:=y_yyt_rt.q_xt.fieldbyname('tht').asstring;
end;

procedure Tz_yhyd_xz.DBGrid1Enter(Sender: TObject);
begin
 try
   strtoint(yddh.text);
  except
    messagebox(handle,'宴会单号必须为10位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    yddh.setfocus;
    exit;
  end;
 if (trim(yddh.text)='') or (length(yddh.text)<>10) then
   begin
    messagebox(handle,'宴会单号必须为10位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    yddh.setfocus;
    exit;
   end;
 z_yhyd.yhydcd.Filter:='yddh='+yddh.text;
 z_yhyd_xz.KeyPreview:=false;
end;

procedure Tz_yhyd_xz.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then z_yhyd.yhydcd.append;
 if (key=46) and (trim(z_yhyd.yhydcd.fieldbyname('cm').asstring)<>'')then
   if messagebox(handle,'您真的要删除该菜吗','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then 
    begin
     z_yhyd.yhydcd.edit;
     z_yhyd.yhydcd.Delete;
     yhydje;
    end;
 if ((key>=65) and (key<=90) and (trim(z_yhyd.yhydcd.fieldbyname('cm').asstring)=''))  or ((key<=57) and (key>=48) and (trim(z_yhyd.yhydcd.fieldbyname('cm').asstring)=''))  or ((key<=105) and (key>=96) and (trim(z_yhyd.yhydcd.fieldbyname('cm').asstring)='')) then
    begin
      c_key:=chr(key);
      dccz;
      yhydje;
    end;
end;

procedure Tz_yhyd_xz.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then selectnext(activecontrol,true,true);
  if key=#27 then qxClick(Sender);
end;

procedure Tz_yhyd_xz.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if z_yhyd.yhydcd.fieldbyname('cm').asstring='' then
     DBGrid1.ReadOnly:=true
  else
     DBGrid1.ReadOnly:=false;
end;

procedure Tz_yhyd_xz.DBGrid1Exit(Sender: TObject);
begin
 z_yhyd_xz.KeyPreview:=true;
end;

procedure Tz_yhyd_xz.yhbzEnter(Sender: TObject);
begin
 ys_yhbz:=yhbz.text;
end;

procedure Tz_yhyd_xz.djEnter(Sender: TObject);
begin
 ys_dj:=dj.text;
end;

procedure Tz_yhyd_xz.dzlEnter(Sender: TObject);
begin
 ys_dzl:=dzl.text;
end;

procedure Tz_yhyd_xz.fwflEnter(Sender: TObject);
begin
 ys_fwfl:=fwfl.text;
end;

procedure Tz_yhyd_xz.krzsEnter(Sender: TObject);
begin
 ys_krzs:=krzs.text;

end;

procedure Tz_yhyd_xz.xhrsEnter(Sender: TObject);
begin
 ys_xhrs:=xhrs.text;
end;

procedure Tz_yhyd_xz.sjrsEnter(Sender: TObject);
begin
 ys_sjrs:=sjrs.text;
end;

procedure Tz_yhyd_xz.ydthChange(Sender: TObject);
begin
 if (length(trim(ydth.text))>2) then ydth.text:=copy(ydth.text,1,2);
 if (length(trim(ydth.text))<>2) or (not ydth.Focused) then exit;
 s_sql:='select * where ((zt="2" and tht=:s_tai) or (zt="4" and tht=:s_tai)) and t.th=tai.th';
 if main.h_only(s_sql,'s_tai',ydth.text)=0 then
   begin
    messagebox(y_yyt.handle,'您输入的台号可能:'+#13+'  1、已被使用;'+#13+'  2、或被预定;'#13+'  3、或没有设置.'+#13+'请重输或用鼠标双击或用回车键进行选台.','系统提示信息',MB_OK+MB_ICONWARNING);
    ydth.setfocus;  exit;
   end;
end;

procedure Tz_yhyd_xz.ydthKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  begin
   esc_enter:=0;
   y_yyt_rt.showmodal;
   if esc_enter=0 then exit;
   ydth.text:=y_yyt_rt.q_xt.fieldbyname('tht').asstring;
  end;
end;

end.