deletestock.pas

可对供应商,顾客,商品,信息进行添加修改查询删除.可随时统计进货量和销售量,同时统计销售额和利润等.

unit Deletestock;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Buttons, ExtCtrls, DBCtrls, Mask;

type
  TDeletestockFrm = class(TForm)
    Deletestock_DBNavigator: TDBNavigator;
    DeleteStockOk_BitBtn: TBitBtn;
    DeleteStockReturn_BitBtn: TBitBtn;
    Deletestock_DataSource: TDataSource;
    Deletestock_Table: TTable;
    Stock_GroupBox: TGroupBox;
    FeederID_Label: TLabel;
    FeederName_Label: TLabel;
    ProductID_Label: TLabel;
    ProductName_Label: TLabel;
    Spec_Label: TLabel;
    unit_Label: TLabel;
    Quantity_Label: TLabel;
    StockDate_Label: TLabel;
    UnitPrice_Label: TLabel;
    GroupBox3: TGroupBox;
    StockRemark_DBEdit: TDBEdit;
    FeederID_DBEdit: TDBEdit;
    FeederName_DBEdit: TDBEdit;
    ProductID_DBEdit: TDBEdit;
    ProductName_DBEdit: TDBEdit;
    Spec_DBEdit: TDBEdit;
    unit_DBEdit: TDBEdit;
    Quantity_DBEdit: TDBEdit;
    UnitPrice_DBEdit: TDBEdit;
    StockDate_DBEdit: TDBEdit;
    procedure DeleteStockReturn_BitBtnClick(Sender: TObject);
    procedure DeleteStockOk_BitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DeletestockFrm: TDeletestockFrm;

implementation

{$R *.dfm}

procedure TDeletestockFrm.DeleteStockReturn_BitBtnClick(Sender: TObject);
begin   
   DeletestockFrm.hide;
end;

procedure TDeletestockFrm.DeleteStockOk_BitBtnClick(Sender: TObject);
var i:integer;
begin
  with  Deletestock_Table do
    begin 
      if recordcount=0 then
          begin
           messagebox(DeletestockFrm.handle,'数据库为空！','警告',mb_ok+mb_iconwarning);
          end
      else
       begin
         delete;
         update;
         for i:=1 to recordcount do
          begin
          //-------更新进货数据库------
          edit;
          fieldvalues['stockID']:=inttostr(i);
          post;
          update;
          end;
         end;
    end;  
end;

procedure TDeletestockFrm.FormShow(Sender: TObject);
begin
  Deletestock_Table.active:=False;
  Deletestock_Table.active:=True;
end;

end.