c_stock.pas

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

unit c_stock;

interface

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

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

var
  cfrm_stock: Tcfrm_stock;

implementation

uses datam, c_stockedit;

{$R *.dfm}

procedure Tcfrm_stock.TButton1Click(Sender: TObject);
begin
   dm.ADO_stock.Append;
  cfrm_stockedit:=tcfrm_stockedit.create(application);
  cfrm_stockedit.Bitbtn1.tag:=0;
  cfrm_stockedit.showmodal;
end;

procedure Tcfrm_stock.TButton2Click(Sender: TObject);
begin
 cfrm_stockedit:=tcfrm_stockedit.create(application);
  cfrm_stockedit.Bitbtn1.tag:=1;
  cfrm_stockedit.showmodal;
end;

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

end;

procedure Tcfrm_stock.FormCreate(Sender: TObject);
begin
dm.ADO_stock.Open;
end;

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

end.