editsell.pas

来自「针对快餐店的会员管理系统.具有详细的分类及管理作用」· PAS 代码 · 共 113 行

unit Editsell;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzTabs, ComCtrls, RzDTP, RzDBDTP, StdCtrls, Mask, RzEdit, DB,
  RzDBEdit, ExtCtrls, RzPanel, Grids, DBGrids, RzDBGrid, DBCtrls, Menus,
  RzDBNav, RzButton, cxControls, cxContainer, cxEdit, cxTextEdit,
  cxMaskEdit, cxDropDownEdit, cxCalendar, cxDBEdit, RzLabel, RzDBLbl;

type
  TEditSellForm = class(TForm)
    RzGroupBox1: TRzGroupBox;
    Label1: TLabel;
    RzDBEdit1: TRzDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    RzDBGrid1: TRzDBGrid;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Label4: TLabel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzDBMemo1: TRzDBMemo;
    cxDBDateEdit1: TcxDBDateEdit;
    RzDBLabel1: TRzDBLabel;
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    IsInsert : Boolean;
    { Public declarations }
  end;

var
  EditSellForm : TEditSellForm;
  SellNumber   : String;
  ProductLis   : TStrings;
implementation

uses DM, productForm, Load, MAIN;

{$R *.dfm}

procedure TEditSellForm.N1Click(Sender: TObject);
begin
    DM1.ADODataSet7.Append;
    ProductListForm.ShowModal;
    if DM1.ADODataSet7.Modified then
       DM1.ADODataSet7.Post
    else DM1.ADODataSet7.Cancel;
end;

procedure TEditSellForm.N3Click(Sender: TObject);
begin
if Messagebox(handle,'您确定要删除这条记录吗？','询问',mb_yesno+mb_iconquestion)=idyes then
   DM1.ADODataSet7.Delete;
end;

procedure TEditSellForm.RzBitBtn1Click(Sender: TObject);
begin
  //如果有对产品销售进行改动，则保存
  //**********保存销售记录***********
  if DM1.ADODataSet6.State in[dsEdit] then begin
     DM1.ADODataSet6.FieldByName('Operator').AsString:=LoadForm.LandingUser;
     DM1.ADODataSet6.Post;
  end;
  //********保存销售明细，并统计销售量************
  if DM1.ADODataSet7.State in[dsEdit] then begin
     DM1.ADODataSet7.Post;
     MainForm.StatProductSell;
  end;
  
  Close;
end;

procedure TEditSellForm.RzBitBtn2Click(Sender: TObject);
begin
   Close;
end;

procedure TEditSellForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   if IsInsert and(DM1.ADODataSet6.State in[dsEdit]) then DM1.ADODataSet6.Delete;

   DM1.ADODataSet7.Cancel;
   DM1.ADODataSet6.Cancel;

end;

procedure TEditSellForm.FormCreate(Sender: TObject);
begin
   ProductLis:=TStringList.Create;
end;

procedure TEditSellForm.FormDestroy(Sender: TObject);
begin
  ProductLis.Free;
end;

end.