deletesell.pas

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

unit DeleteSell;

interface

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

type
  TDeleteSellFrm = class(TForm)
    DeleteSell_DBNavigator: TDBNavigator;
    DeleteSellOk_BitBtn: TBitBtn;
    DeleteSellCancel_BitBtn: TBitBtn;
    DeleteSell_DataSource: TDataSource;
    DeleteSell_Table: TTable;
    Sell_GroupBox: TGroupBox;
    CustomerID_Label: TLabel;
    CustomerName_Label: TLabel;
    ProductID_Label: TLabel;
    ProductName_Label: TLabel;
    Spec_Label: TLabel;
    unit_Label: TLabel;
    Quantity_Label: TLabel;
    SellDate_Label: TLabel;
    UnitPrice_Label: TLabel;
    Discount_Label: TLabel;
    SellRemark_GroupBox: TGroupBox;
    SellRemark_DBEdit: TDBEdit;
    CustomerID_DBEdit: TDBEdit;
    CustomerName_DBEdit: TDBEdit;
    ProductID_DBEdit: TDBEdit;
    ProductName_DBEdit: TDBEdit;
    Spec_DBEdit: TDBEdit;
    unit_DBEdit: TDBEdit;
    Quantity_DBEdit: TDBEdit;
    UnitPrice_DBEdit: TDBEdit;
    SellDate_DBEdit: TDBEdit;
    Discount_DBEdit: TDBEdit;
    procedure DeleteSellCancel_BitBtnClick(Sender: TObject);
    procedure DeleteSellOk_BitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DeleteSellFrm: TDeleteSellFrm;

implementation

{$R *.dfm}

procedure TDeleteSellFrm.DeleteSellCancel_BitBtnClick(Sender: TObject);
begin 
   DeleteSellFrm.hide;
end;

procedure TDeleteSellFrm.DeleteSellOk_BitBtnClick(Sender: TObject);
var i:integer;
begin
   with  DeleteSell_Table do
    begin
     if recordcount=0 then
          begin
           messagebox(DeleteSellFrm.handle,'数据库为空！','警告',mb_ok+mb_iconwarning);
          end
     else
      begin
       delete;
       update;
      for i:=1 to recordcount do
          begin
          //-------更新销售数据库------
          edit;
          fieldvalues['SellID']:=inttostr(i);
          post;
          update;
          end;
      end;
    end;   
end;

procedure TDeleteSellFrm.FormShow(Sender: TObject);
begin
  DeleteSell_Table.active:=False;
  DeleteSell_Table.active:=True;
end;

end.