uy_qdjz_jz.pas

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

unit uy_qdjz_jz;

interface

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

type
  Ty_qdjz_jz = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    jzfs: TComboBox;
    Label2: TLabel;
    sr: TEdit;
    Label3: TLabel;
    zh: TEdit;
    Label4: TLabel;
    zj: TEdit;
    Label5: TLabel;
    xj: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    fwf: TEdit;
    zkf: TEdit;
    Bevel1: TBevel;
    Label8: TLabel;
    ds: TEdit;
    Label9: TLabel;
    zsje: TEdit;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure srChange(Sender: TObject);
    procedure srExit(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  y_qdjz_jz: Ty_qdjz_jz;

implementation

uses uy_qdjz;

{$R *.DFM}

procedure Ty_qdjz_jz.FormShow(Sender: TObject);
begin
if y_n=0 then  //所有未结帐签单
 with y_qdjz.q_qd do
  begin
  caption:='签单结帐___'+fieldbyname('dwmc').asstring;
  zj.Text:=y_qdjz.ze.Caption;
  ds.Text:=y_qdjz.ds.Caption;
  xj.Text:=Format('%*.*f', [8, 2,strtocurr(y_qdjz.sb.panels[2].text)]);
  fwf.Text:=Format('%*.*f', [8, 2,strtocurr(y_qdjz.sb.panels[4].text)]);
  zkf.Text:=Format('%*.*f', [8, 2,strtocurr(y_qdjz.sb.panels[6].text)]);
  zsje.Text:=Format('%*.*f', [8, 2,strtocurr(y_qdjz.sb.panels[8].text)]);
 end
else
 with y_qdjz.q_qd  do
  begin
  caption:='签单结帐___'+fieldbyname('dwmc').asstring;
  zj.Text:=Format('%*.*f', [8, 2,fieldbyname('zj').ascurrency]);
  ds.Text:='1';
  xj.Text:=Format('%*.*f', [8, 2,fieldbyname('xj').ascurrency]);
  fwf.Text:=Format('%*.*f', [8, 2,fieldbyname('fwf').ascurrency]);
  zkf.Text:=Format('%*.*f', [8, 2,fieldbyname('zkf').ascurrency]);
 end;
 sr.text:='';
 zh.text:='';
end;
procedure Ty_qdjz_jz.BitBtn2Click(Sender: TObject);
begin
 close;
end;

procedure Ty_qdjz_jz.BitBtn1Click(Sender: TObject);
begin
 if (copy(jzfs.text,1,1)='1') and (trim(sr.text)='') then
  begin
     messagebox(handle,'请输入收入金额!','系统提示信息',MB_OK+MB_ICONWARNING);
     sr.setfocus;
     exit;
  end;
if y_n=0 then  //所有未结帐签单
// with dm.q_qd_jz do
 with main.query1 do
  begin
    sql.Clear;
    sql.add('update cd1 set qdjz=:s_jzfs,jzrq=:d_jzrq,jzsj=:d_jzsj');
    sql.add('where  ckbh like :s_ckbh  and jzfs="4" and qdjz is null');
    ParamByName('s_ckbh').asstring:=y_qdjz.q_qd.fieldbyname('ckbh').asstring;
    ParamByName('s_jzfs').asstring:=copy(jzfs.text,1,1);
    ParamByName('d_jzrq').asdate:=date();
    ParamByName('d_jzsj').asdatetime:=time();
    execsql;
  end
else
 with main.query1 do
  begin
    sql.Clear;
    sql.add('update cd1 set qdjz=:s_jzfs,jzrq=:d_jzrq,jzsj=:d_jzsj');
    sql.add('where cdbh=:s_cdbh ');
    ParamByName('s_cdbh').asstring:=y_qdjz.q_qd.fieldbyname('cdbh').asstring;
    ParamByName('s_jzfs').asstring:=copy(jzfs.text,1,1);
    ParamByName('d_jzrq').asdate:=date();
    ParamByName('d_jzsj').asdatetime:=time();
    execsql;
  end;
 close;
end;

procedure Ty_qdjz_jz.srChange(Sender: TObject);
begin
if trim(sr.text)<>'' then
  begin
    try
      strtocurr(sr.text);
    except
      messagebox(handle,'请输入正确的数字!','系统提示信息',MB_OK+MB_ICONWARNING);
      sr.Text:=sr.SelText;
      sr.setfocus;
      exit;
    end;
    zh.text:=Format('%*.*f', [8, 2,strtocurr(sr.text)-strtocurr(zj.text)]);
   end
  else
    zh.text:='0.00';
end;

procedure Ty_qdjz_jz.srExit(Sender: TObject);
begin
 if trim(sr.text)<>'' then  sr.text:=Format('%*.*f', [8, 2,strtocurr(sr.text)]);
end;

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

end.