addstock.pas

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

unit Addstock;

interface

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

type
  TAddstockFrm = class(TForm)
    Stock_GroupBox: TGroupBox;
    FeederID_Label: TLabel;
    FeederName_Label: TLabel;
    ProductID_Label: TLabel;
    ProductName_Label: TLabel;
    Spec_Label: TLabel;
    unit_Label: TLabel;
    Quantity_Label: TLabel;
    UnitPrice_Label: TLabel;
    StockDate_Label: TLabel;
    StockRemark_GroupBox: TGroupBox;
    StockRemark_Edit: TEdit;
    FeederName_Edit: TEdit;
    ProductName_Edit: TEdit;
    Spec_Edit: TEdit;
    unit_Edit: TEdit;
    Quantity_Edit: TEdit;
    UnitPrice_Edit: TEdit;
    StockDate_Edit: TEdit;
    AddStockOk_BitBtn: TBitBtn;
    AddStockReturn_BitBtn: TBitBtn;
    Addstock_Table: TTable;
    Addstock_Query: TQuery;
    FeederID_ComboBox: TComboBox;
    ProductID_ComboBox: TComboBox;
    procedure AddStockReturn_BitBtnClick(Sender: TObject);
    procedure AddStockOk_BitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FeederID_ComboBoxChange(Sender: TObject);
    procedure ProductID_ComboBoxChange(Sender: TObject); 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddstockFrm: TAddstockFrm;

implementation

uses AddFeeder, AddCustomer, AddProduct;

{$R *.dfm}

procedure TAddstockFrm.AddStockReturn_BitBtnClick(Sender: TObject);
begin
   AddstockFrm.hide;
end;

procedure TAddstockFrm.AddStockOk_BitBtnClick(Sender: TObject);
var stockID:integer;
begin
 with Addstock_query do
    begin
    if recordcount=0 then
       stockID:=0
    else
     begin
       last;
       stockID:=recordcount;
     end;
     end;
   with Addstock_table do
    begin
     last;
     //-------添加进货数据------
     append;
     fieldvalues['stockID']:=inttostr(stockID+1);
     fieldvalues['FeederID']:=FeederID_ComboBox.Text;
     fieldvalues['FeederName']:=FeederName_Edit.Text;
     fieldvalues['ProductID']:=ProductID_ComboBox.Text;
     fieldvalues['ProductName']:=ProductName_Edit.Text;
     fieldvalues['Spec']:=Spec_Edit.Text;
     fieldvalues['unit']:=unit_Edit.Text;
     fieldvalues['Quantity']:=Quantity_Edit.Text;
     fieldvalues['UnitPrice']:=UnitPrice_Edit.Text;
     fieldvalues['StockDate']:=StockDate_Edit.Text;
     fieldvalues['StockRemark']:=StockRemark_Edit.Text;
     post;
     update;
     //-------清空-------
     FeederID_ComboBox.Text:='';
     FeederName_Edit.Text:='';
     ProductID_ComboBox.Text:='';
     ProductName_Edit.Text:='';
     Spec_Edit.Text:='';
     unit_Edit.Text:='';
     Quantity_Edit.Text:='';
     UnitPrice_Edit.Text:='';
     StockDate_Edit.Text:='';
     StockRemark_Edit.Text:='';
    end;

end;

procedure TAddstockFrm.FormShow(Sender: TObject);
begin
   AddFeederFrm.AddFeeder_Table.active:=False;
   AddFeederFrm.AddFeeder_Table.active:=True;
   //-------读取数据库的供应商编号信息------
   FeederID_ComboBox.clear;
   AddFeederFrm.AddFeeder_Table.first;
   while not AddFeederFrm.AddFeeder_Table.eof do
      begin
       FeederID_ComboBox.items.insert(-1,AddFeederFrm.AddFeeder_Table.fieldbyname('FeederID').asstring);
       AddFeederFrm.AddFeeder_Table.Next;
      end;

   AddProductFrm.AddProduct_Table.active:=False;
   AddProductFrm.AddProduct_Table.active:=True;
   //-------读取数据库的商品编号信息------
   ProductID_ComboBox.clear;
   AddProductFrm.AddProduct_Table.first;
   while not AddProductFrm.AddProduct_Table.eof do
      begin
       ProductID_ComboBox.items.insert(-1,AddProductFrm.AddProduct_Table.fieldbyname('ProductID').asstring);
       AddProductFrm.AddProduct_Table.Next;
      end;
end;


procedure TAddstockFrm.FeederID_ComboBoxChange(Sender: TObject);
var querystring:string;
begin
  //-------读取数据库的供应商信息------
  querystring:='select * from Feeder where FeederID='+''''+FeederID_ComboBox.Text+'''';
  with AddFeederFrm.AddFeeder_query do
        begin
          close;
          sql.Clear;
          sql.add(querystring);
          open;
          FeederName_Edit.text:=fieldbyname('CompanyName').asstring;
        end;
end;

procedure TAddstockFrm.ProductID_ComboBoxChange(Sender: TObject);
var querystring:string;
begin
  //-------读取数据库的商品信息------
  querystring:='select * from Product where ProductID='+''''+ProductID_ComboBox.Text+'''';
  with AddProductFrm.AddProduct_query do
        begin
          close;
          sql.Clear;
          sql.add(querystring);
          open;
          ProductName_Edit.text:=fieldbyname('ProductName').asstring;
          Spec_Edit.text:=fieldbyname('Spec').asstring;
          Unit_Edit.text:=fieldbyname('Unit').asstring;
        end;
end;



end



.