xftdunit.pas

东华休闲山庄洗浴、餐饮、客房管理系统

unit XFTDUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIEdit, StdCtrls, SUIMemo, SUIButton, ExtCtrls, SUIImagePanel;

type
  TXFTDForm = class(TForm)
    suiPanel1: TsuiPanel;
    btn1: TsuiButton;
    btn2: TsuiButton;
    Label1: TLabel;
    suiEdit1: TsuiEdit;
    Label2: TLabel;
    suiMemo1: TsuiMemo;
    Label4: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure suiEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XFTDForm: TXFTDForm;

implementation

uses LoginUnit, MainUnit, ZJXFUnit;

{$R *.dfm}

procedure TXFTDForm.FormCreate(Sender: TObject);
begin
  suiPanel1.Caption:='退单餐台【'+mainform.typename+mainform.roomnum+'】';
  Self.Label6.Caption:=ZJXFForm.ds2.fieldbyname('Lbxf_xfxm').AsString+'】';
  Self.Label3.Caption:=ZJXFForm.ds2.fieldbyname('Lbxf_xfsl').AsString;
  suiMemo1.Clear;
end;

procedure TXFTDForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZJXFForm.RefrushData;
  ZJXFForm.Enabled:=True;
end;

procedure TXFTDForm.FormActivate(Sender: TObject);
begin
  self.suiEdit1.SetFocus;
end;

procedure TXFTDForm.btn2Click(Sender: TObject);
begin
  close;
end;

procedure TXFTDForm.btn1Click(Sender: TObject);
var
  num:integer;
  xfsl,xfje,xmdj:string;
  stocknum:Integer;
begin
  xfsl:=IntToStr(StrToInt(self.Label3.Caption)-strtoint(self.suiEdit1.Text));
  xmdj:=ZJXFForm.ds2.fieldbyname('Lbxf_xmdj').AsString;
  xfje:=FormatFloat('￥0.00',StrToInt(xfsl)*strtofloat(xmdj)*ZJXFForm.ds2.fieldbyname('Lbxf_dzbl').AsFloat);
  loginform.ExecuteSQL('select xfxm_qmye from xfxm '+
                       'where xfxm_mc='''+ZJXFForm.ds2.fieldbyname('Lbxf_xfxm').AsString+'''');
  stocknum:=LoginForm.dsQuery.Fields[0].AsInteger;
  num:=stocknum+strtoint(self.suiEdit1.Text);
  LoginForm.dsQuery.Close;
  if stocknum>=0 then
    loginform.ExecuteSQL('update xfxm set xfxm_qmye='''+inttostr(num)+''' '+
                         'where xfxm_mc='''+ZJXFForm.ds2.fieldbyname('Lbxf_xfxm').AsString+'''');
  if strtoint(self.suiEdit1.Text)=StrToInt(ZJXFForm.ds2.fieldbyname('Lbxf_xfsl').AsString) then
    loginform.ExecuteSQL('delete from consume '+
                         'where Lbxf_xfbh='''+zjxfform.id+''' and '+
                               'Lbxf_sph='''+mainform.roomnum+''' and '+
                               'Lbxf_xfBegin='''+ZJXFForm.ds2.fieldbyname('Lbxf_xfBegin').AsString+'''')
  else
    loginform.ExecuteSQL('update consume set Lbxf_xfsl='''+xfsl+''',Lbxf_xfje='''+xfje+''''+
                         'where Lbxf_xfbh='''+zjxfform.id+''' and '+
                               'Lbxf_sph='''+mainform.roomnum+''' and '+
                               'Lbxf_xfBegin='''+ZJXFForm.ds2.fieldbyname('Lbxf_xfBegin').AsString+'''');
  loginform.ExecuteSQL('insert into tdgl '+
                       'values('''+zjxfform.id+''','+
                               ''''+ZJXFForm.ds2.fieldbyname('Lbxf_sph').AsString+''','+
                               ''''+ZJXFForm.ds2.fieldbyname('Lbxf_xfxm').AsString+''','+
                               ''''+self.suiEdit1.Text+''','+
                               ''''+self.suiMemo1.Text+''','+
                               ''''+formatdatetime('yyyy-mm-dd hh:nn:ss',now)+''')');
  loginform.ExecuteSQL('insert into log '+
                       'values('''+formatdatetime('yyyy-mm-dd hh:nn:ss',now)+''','+
                               ''''+loginform.userid+''','''+LoginForm.username+''','+
                               '''消费项目【'+ZJXFForm.ds2.fieldbyname('Lbxf_xfxm').AsString+'】'+
                               '消费时间【'+ZJXFForm.ds2.fieldbyname('Lbxf_xfBegin').AsString+'】'+
                               '由房间'+mainform.roomnum+'退单数量'+self.suiEdit1.Text+''')');
  close;
end;

procedure TXFTDForm.suiEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#48..#57,#8,#13]) then
    key:=#0
  else
    if Key=#13 then
      if suiEdit1.Text='' then
        MessageDlg('退单数量不可以为空！',mtConfirmation, [mbYes], 0)
      else
        if (StrToInt(suiEdit1.Text)>0) and (StrToInt(suiEdit1.Text)<=StrToInt(self.Label3.Caption)) then
          suiMemo1.SetFocus
        else
          MessageDlg('退单数量范围应在1到'+self.Label3.Caption+'之间！',mtConfirmation, [mbYes], 0);
end;

end.