addsell.pas

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

unit AddSell;

interface

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

type
  TAddSellFrm = class(TForm)
    Sell_GroupBox: TGroupBox;
    CustomerID_Label: TLabel;
    CustomerName_Label: TLabel;
    ProductID_Label: TLabel;
    ProductName_Label: TLabel;
    Spec_Label: TLabel;
    unit_Label: TLabel;
    Quantity_Label: TLabel;
    UnitPrice_Label: TLabel;
    SellDate_Label: TLabel;
    SellRemark_GroupBox: TGroupBox;
    SellRemark_Edit: TEdit;
    CustomerName_Edit: TEdit;
    ProductName_Edit: TEdit;
    Spec_Edit: TEdit;
    unit_Edit: TEdit;
    Quantity_Edit: TEdit;
    UnitPrice_Edit: TEdit;
    SellDate_Edit: TEdit;
    AddSellOk_BitBtn: TBitBtn;
    AddSellReturn_BitBtn: TBitBtn;
    AddSell_Table: TTable;
    Discount_Edit: TEdit;
    Discount_Label: TLabel;
    AddSell_Query: TQuery;
    CustomerID_ComboBox: TComboBox;
    ProductID_ComboBox: TComboBox;
    procedure AddSellReturn_BitBtnClick(Sender: TObject);
    procedure AddSellOk_BitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CustomerID_ComboBoxChange(Sender: TObject);
    procedure ProductID_ComboBoxChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddSellFrm: TAddSellFrm;

implementation

uses AddCustomer, AddProduct;

{$R *.dfm}

procedure TAddSellFrm.AddSellReturn_BitBtnClick(Sender: TObject);
begin     
   AddSellFrm.hide;
end;

procedure TAddSellFrm.AddSellOk_BitBtnClick(Sender: TObject);
var SellID:integer;
begin
 with AddSell_query do
    begin
    if recordcount=0 then
       SellID:=0
    else
     begin
       last;
       SellID:=recordcount;
     end;
     end;
   with AddSell_table do
    begin
     last;
     //-------添加销售数据------
     append;
     fieldvalues['SellID']:=inttostr(SellID+1);
     fieldvalues['CustomerID']:=CustomerID_ComboBox.Text;
     fieldvalues['CustomerName']:=CustomerName_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['SellDate']:=SellDate_Edit.Text;
     fieldvalues['Discount']:=Discount_Edit.Text;
     fieldvalues['SellRemark']:=SellRemark_Edit.Text;
     post;
     update;
     //-------清空-------
     CustomerID_ComboBox.Text:='';
     CustomerName_Edit.Text:='';
     ProductID_ComboBox.Text:='';
     ProductName_Edit.Text:='';
     Spec_Edit.Text:='';
     unit_Edit.Text:='';
     Quantity_Edit.Text:='';
     UnitPrice_Edit.Text:='';
     SellDate_Edit.Text:='';
     Discount_Edit.Text:='';
     SellRemark_Edit.Text:='';
    end;

end;

procedure TAddSellFrm.FormShow(Sender: TObject);
begin
   AddCustomerFrm.AddCustomer_Table.active:=False;
   AddCustomerFrm.AddCustomer_Table.active:=True;
   CustomerID_ComboBox.clear;
   //-------读取数据库的顾客编号信息------
   AddCustomerFrm.AddCustomer_Table.first;
   while not AddCustomerFrm.AddCustomer_Table.eof do
      begin
       CustomerID_ComboBox.items.insert(-1,AddCustomerFrm.AddCustomer_Table.fieldbyname('CustomerID').asstring);
       AddCustomerFrm.AddCustomer_Table.Next;
      end;

   //-------读取数据库的商品编号信息------
   ProductID_ComboBox.clear;
   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 TAddSellFrm.CustomerID_ComboBoxChange(Sender: TObject);
var querystring:string;
begin
   //-------读取数据库的顾客名称信息------
  querystring:='select * from Customer where CustomerID='+''''+CustomerID_ComboBox.Text+'''';
  with AddCustomerFrm.AddCustomer_query do
        begin
          close;
          sql.Clear;
          sql.add(querystring);
          open;
          CustomerName_Edit.text:=fieldbyname('CompanyName').asstring;
        end;
end;

procedure TAddSellFrm.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.