editstock.pas

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

unit Editstock;

interface

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

type
  TEditstockFrm = class(TForm)
    Editstock_DBNavigator: TDBNavigator;
    Stock_GroupBox: TGroupBox;
    StockRemark_GroupBox: 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;
    EditStockOk_BitBtn: TBitBtn;
    EditStockReturn_BitBtn: TBitBtn;
    Editstock_DataSource: TDataSource;
    Editstock_Table: TTable;
    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;
    procedure EditStockReturn_BitBtnClick(Sender: TObject);
    procedure EditStockOk_BitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditstockFrm: TEditstockFrm;

implementation

{$R *.dfm}

procedure TEditstockFrm.EditStockReturn_BitBtnClick(Sender: TObject);
begin    
   EditstockFrm.hide;
end;

procedure TEditstockFrm.EditStockOk_BitBtnClick(Sender: TObject);
begin
with Editstock_table do
       begin
       //-------修改进货数据库------
        edit;   
        fieldvalues['FeederID']:=FeederID_DBEdit.Text;
        fieldvalues['FeederName']:=FeederName_DBEdit.Text;
        fieldvalues['ProductID']:=ProductID_DBEdit.Text;
        fieldvalues['ProductName']:=ProductName_DBEdit.Text;
        fieldvalues['Spec']:=Spec_DBEdit.Text;
        fieldvalues['unit']:=unit_DBEdit.Text;
        fieldvalues['Quantity']:=Quantity_DBEdit.Text;
        fieldvalues['UnitPrice']:=UnitPrice_DBEdit.Text;
        fieldvalues['StockDate']:=StockDate_DBEdit.Text;
        fieldvalues['StockRemark']:=StockRemark_DBEdit.Text;
        post;
        update;
       end; 
end;

procedure TEditstockFrm.FormShow(Sender: TObject);
begin
  Editstock_Table.active:=False;
  Editstock_Table.active:=True;
end;

end.