【delphi开源代码栏目提醒】：网学会员为需要delphi开源代码的朋友们搜集整理了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.
     
    

上一篇：AddRecord.pas
下一篇：10years匿名社交网