addproduct.pas

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

unit AddProduct;

interface

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

type
  TAddProductFrm = class(TForm)
    Product_GroupBox: TGroupBox;
    ProductName_Label: TLabel;
    Spec_Label: TLabel;
    Unit_Label: TLabel;
    ProductRemark_GroupBox: TGroupBox;
    ProductRemark_Edit: TEdit;
    ProductName_Edit: TEdit;
    Spec_Edit: TEdit;
    Unit_Edit: TEdit;
    AddProductOk_BitBtn: TBitBtn;
    AddProductCancel_BitBtn: TBitBtn;
    AddProduct_Table: TTable;
    AddProduct_Query: TQuery;
    procedure AddProductCancel_BitBtnClick(Sender: TObject);
    procedure AddProductOk_BitBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddProductFrm: TAddProductFrm;

implementation

{$R *.dfm}

procedure TAddProductFrm.AddProductCancel_BitBtnClick(Sender: TObject);
begin    
   AddProductFrm.hide;
end;

procedure TAddProductFrm.AddProductOk_BitBtnClick(Sender: TObject);
var productID:integer;
begin
  with AddProduct_query do
    begin
    if recordcount=0 then
       productID:=0
    else
     begin
       last;
       productID:=recordcount;
     end;
     end;
   with AddProduct_Table do
    begin
     last;
     //-------添加商品数据------
     append;
     fieldvalues['productID']:=inttostr(productID+1);
     fieldvalues['productName']:=ProductName_Edit.Text;
     fieldvalues['spec']:=Spec_Edit.Text;
     fieldvalues['unit']:=Unit_Edit.Text;
     fieldvalues['productremark']:=ProductRemark_Edit.Text;
     post;
     update;
     //-------清空-------
     ProductName_Edit.Text:='';
     Spec_Edit.Text:='';
     Unit_Edit.Text:='';
     ProductRemark_Edit.Text:='';
    end;    
end;


end.