editsell.pas

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

unit EditSell;

interface

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

type
  TEditSellFrm = class(TForm)
    EditSell_DBNavigator: TDBNavigator;
    Sell_GroupBox: TGroupBox;
    SellRemark_GroupBox: TGroupBox;
    SellRemark_DBEdit: TDBEdit;
    CustomerID_DBEdit: TDBEdit;
    CustomerName_DBEdit: TDBEdit;
    ProductID_DBEdit: TDBEdit;
    ProductName_DBEdit: TDBEdit;
    Spec_DBEdit: TDBEdit;
    unit_DBEdit: TDBEdit;
    Quantity_DBEdit: TDBEdit;
    UnitPrice_DBEdit: TDBEdit;
    SellDate_DBEdit: TDBEdit;
    EditSellOk_BitBtn: TBitBtn;
    EditSellReturn_BitBtn: TBitBtn;
    EditSell_DataSource: TDataSource;
    EditSell_Table: TTable;
    Discount_DBEdit: TDBEdit;
    CustomerID_Label: TLabel;
    CustomerName_Label: TLabel;
    ProductID_Label: TLabel;
    ProductName_Label: TLabel;
    Spec_Label: TLabel;
    unit_Label: TLabel;
    Quantity_Label: TLabel;
    SellDate_Label: TLabel;
    UnitPrice_Label: TLabel;
    Discount_Label: TLabel;
    procedure EditSellReturn_BitBtnClick(Sender: TObject);
    procedure EditSellOk_BitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditSellFrm: TEditSellFrm;

implementation

{$R *.dfm}

procedure TEditSellFrm.EditSellReturn_BitBtnClick(Sender: TObject);
begin      
   EditSellFrm.hide;
end;

procedure TEditSellFrm.EditSellOk_BitBtnClick(Sender: TObject);
begin
with EditSell_table do
       begin
        edit;
        //-------修改销售数据库------
        fieldvalues['CustomerID']:=CustomerID_DBEdit.Text;
        fieldvalues['CustomerName']:=CustomerName_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['SellDate']:=SellDate_DBEdit.Text;
        fieldvalues['Discount']:=Discount_DBEdit.Text;
        fieldvalues['SellRemark']:=SellRemark_DBEdit.Text;
        post;
        update;
       end;  
end;

procedure TEditSellFrm.FormShow(Sender: TObject);
begin
  EditSell_Table.active:=False;
  EditSell_Table.active:=True;
end;

end.