zf_unit.~pas

餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述

unit zf_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB;

type
  TZF_Form = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZF_Form: TZF_Form;

implementation

uses SALESM_Unit, DMUnit;

{$R *.dfm}

procedure TZF_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure TZF_Form.FormDestroy(Sender: TObject);
begin
ZF_FORM:=nil;
end;

procedure TZF_Form.FormCreate(Sender: TObject);
begin
Label1.Caption:=INTTOSTR(SALESM_form.LSNO);
end;

procedure TZF_Form.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TZF_Form.BitBtn1Click(Sender: TObject);
var
  S:string;
begin
 S:='作废';
 if Application.MessageBox('是否作废该笔销售记录？如果作废该笔数据将不会汇总', '提示',
  MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = IDYES then
  With DM.ZFQry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('update sale set item_MARKS='''+Memo1.Text+''' ,item_bs='''+S+''' where SALENO='''+Label1.Caption+'''');
    DM.ZFQry.ExecSQL;
  end;
  ZF_Form.Close;
end;

end.