c_sell.pas

《delphi数据库设计与实例开发》随书光盘

unit c_sell;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, DBCtrls,
  ComCtrls, ToolWin, DB;

type
  Tcfrm_sell = class(TForm)
    ToolBar1: TToolBar;
    TButton1: TToolButton;
    TButton2: TToolButton;
    TButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton7: TToolButton;
    DBNavigator1: TDBNavigator;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    ImageList2: TImageList;
    DataSource1: TDataSource;
    procedure TButton1Click(Sender: TObject);
    procedure TButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_sell: Tcfrm_sell;

implementation

uses datam, c_selledit;

{$R *.dfm}

procedure Tcfrm_sell.TButton1Click(Sender: TObject);
begin
   dm.ADO_sell.Append;
  cfrm_selledit:=tcfrm_selledit.create(application);
  cfrm_selledit.Bitbtn1.tag:=0;
  cfrm_selledit.showmodal;
end;

procedure Tcfrm_sell.TButton2Click(Sender: TObject);
begin
cfrm_selledit:=tcfrm_selledit.create(application);
  cfrm_selledit.Bitbtn1.tag:=1;
  cfrm_selledit.showmodal;
end;

procedure Tcfrm_sell.FormCreate(Sender: TObject);
begin
dm.ADO_sell.open;
 
end;

procedure Tcfrm_sell.TButton3Click(Sender: TObject);
var mes:string;
begin
mes:='是否要删除出库信息< '+dm.ADO_sell.fieldbyname('SellID').AsString+'>';
 if application.MessageBox(pchar(mes),pchar('等待确认')
    ,+MB_ICONQUESTION+mb_okcancel+MB_DEFBUTTON2)=idok then
     begin
      dm.ADO_sell.Delete;//删除入库信息
      dm.ADO_storage.Open;
     if dm.ADO_storage.Locate('ProductID;DepotID',VarArrayOf([dm.ADO_sell.FieldByName('ProductID').AsString,dm.ADO_sell.FieldByName('DepotID').AsString]),[])  then
     begin
     dm.ADO_storage.Edit;//更新库存信息
     dm.ADO_storage.FieldByName('Quantity').AsFloat:= dm.ADO_storage.FieldByName('Quantity').AsFloat+dm.ADO_sell.fieldbyname('Quantity').AsFloat;
     dm.ADO_storage.Post;
     end;
     end;

end;

procedure Tcfrm_sell.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.ADO_sell.Close;
release;
end;

end.