deletecustomer.pas

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

unit DeleteCustomer;

interface

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

type
  TDeleteCustomerFrm = class(TForm)
    DeleteCustomer_Table: TTable;
    DeleteCustomer_DataSource: TDataSource;
    DBNavigator1: TDBNavigator;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Customer_GroupBox: TGroupBox;
    CompanyName_Label: TLabel;
    LinkMan_Label: TLabel;
    Address_Label: TLabel;
    City_Label: TLabel;
    Region_Label: TLabel;
    ZipCode_Label: TLabel;
    Tel_Label: TLabel;
    Homepage_Label: TLabel;
    Fax_Label: TLabel;
    CustomerRemark_GroupBox: TGroupBox;
    CustomerRemark_DBEdit: TDBEdit;
    CompanyName_DBEdit: TDBEdit;
    LinkMan_DBEdit: TDBEdit;
    Address_DBEdit: TDBEdit;
    City_DBEdit: TDBEdit;
    Region_DBEdit: TDBEdit;
    Zipcode_DBEdit: TDBEdit;
    Tel_DBEdit: TDBEdit;
    Fax_DBEdit: TDBEdit;
    Homepage_DBEdit: TDBEdit;
   procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DeleteCustomerFrm: TDeleteCustomerFrm;

implementation

{$R *.dfm}
procedure TDeleteCustomerFrm.BitBtn2Click(Sender: TObject);
var i:integer;
begin
   with  DeleteCustomer_Table do
    begin 
     if recordcount=0 then
          begin
           messagebox(DeleteCustomerFrm.handle,'数据库为空！','警告',mb_ok+mb_iconwarning);
          end
     else
       begin
        delete;
        update;
      for i:=1 to recordcount do
          begin
          //-------更新顾客数据库------
          edit;
          fieldvalues['CustomerID']:=inttostr(i);
          post;
          update;
          end;
      end;
    end; 
end;

procedure TDeleteCustomerFrm.BitBtn1Click(Sender: TObject);
begin
   DeleteCustomerFrm.hide;
end;



procedure TDeleteCustomerFrm.FormShow(Sender: TObject);
begin
  DeleteCustomer_Table.active:=False;
  DeleteCustomer_Table.active:=True;
end;

end.