saleadd.~pas

对于商品销售、库存信息

unit SaleAdd;

interface

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

type
  TFormSaleAdd = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEditDate: TDBEdit;
    DBEditGoodName: TDBEdit;
    DBEditPrice: TDBEdit;
    DBEditAmount: TDBEdit;
    DBEditSum: TDBEdit;
    DBEditDealer: TDBEdit;
    GroupBox1: TGroupBox;
    BTNMore: TButton;
    BTNOk: TButton;
    BTNClose: TButton;
    Label7: TLabel;
    DBEditCoding: TDBEdit;
    Label8: TLabel;
    DBEditBrand: TDBEdit;
    DBEditProducer: TDBEdit;
    Label9: TLabel;
    GroupBox2: TGroupBox;
    Label10: TLabel;
    DBMemoDetail: TDBMemo;
    procedure BTNMoreClick(Sender: TObject);
    procedure BTNOkClick(Sender: TObject);
    procedure BTNCloseClick(Sender: TObject);
    procedure DBEditDateChange(Sender: TObject);
    procedure DBEditGoodNameChange(Sender: TObject);
    procedure DBEditPriceChange(Sender: TObject);
    procedure DBEditAmountChange(Sender: TObject);
    procedure DBEditSumChange(Sender: TObject);
    procedure DBEditDealerChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBEditCodingChange(Sender: TObject);
    procedure DBEditBrandChange(Sender: TObject);
    procedure DBEditProducerChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSaleAdd: TFormSaleAdd;

implementation

uses DataModule, Browser;

{$R *.dfm}


procedure TFormSaleAdd.FormCreate(Sender: TObject);
begin
FormSaleAdd.BTNOK.Enabled := False;
  FormSaleAdd.BTNMore.Enabled := False;
  DataModule.Notify_DataChange := False;
end;


procedure TFormSaleAdd.BTNMoreClick(Sender: TObject);
begin
 FormBrowser.show;
 DataModule1.ADODataSet1.Last;
end;

procedure TFormSaleAdd.BTNOkClick(Sender: TObject);
begin
try
    if DataModule.Notify_DataChange = True then begin
      DataModule1.ADODataSet1.UpdateRecord;
      DataModule1.ADODataSet1.UpdateStatus;
      BTNOk.Enabled := False;
      BTNMore.Enabled := False;
    end
    else begin
    end;
  finally
    DataModule.Notify_DataChange := False;
    FormSaleAdd.Close;
  end;
end;

procedure TFormSaleAdd.BTNCloseClick(Sender: TObject);
begin
try
    if DataModule.Notify_DataChange = True then begin
      DataModule1.ADODataSet1.UpdateRecord;
      BTNOk.Enabled := False;
      BTNMore.Enabled := True;
    end
    else begin
    end;
  finally
    DataModule.Notify_DataChange := False;
    DataModule1.ADODataSet1.Append;
  end;
end;

procedure TFormSaleAdd.DBEditDateChange(Sender: TObject);
begin
DataModule.Notify_DataChange := True;
  BTNOk.Enabled := True;
  BTNMore.Enabled := True;
end;

procedure TFormSaleAdd.DBEditGoodNameChange(Sender: TObject);
begin
DataModule.Notify_DataChange := True;
  BTNOk.Enabled := True;
  BTNMore.Enabled := True;
end;

procedure TFormSaleAdd.DBEditPriceChange(Sender: TObject);
begin
DataModule.Notify_DataChange := True;
  BTNOk.Enabled := True;
  BTNMore.Enabled := True;
end;

procedure TFormSaleAdd.DBEditAmountChange(Sender: TObject);
begin
DataModule.Notify_DataChange := True;
  BTNOk.Enabled := True;
  BTNMore.Enabled := True;
end;

procedure TFormSaleAdd.DBEditSumChange(Sender: TObject);
begin
 DataModule.Notify_DataChange := True;
  BTNOk.Enabled := True;
  BTNMore.Enabled := True;
end;

procedure TFormSaleAdd.DBEditDealerChange(Sender: TObject);
begin
DataModule.Notify_DataChange := True;
  BTNOk.Enabled := True;
  BTNMore.Enabled := True;
end;



procedure TFormSaleAdd.DBEditCodingChange(Sender: TObject);
begin
DataModule.Notify_DataChange := True;
  BTNOk.Enabled := True;
  BTNMore.Enabled := True;
end;

procedure TFormSaleAdd.DBEditBrandChange(Sender: TObject);
begin
DataModule.Notify_DataChange := True;
  BTNOk.Enabled := True;
  BTNMore.Enabled := True;
end;

procedure TFormSaleAdd.DBEditProducerChange(Sender: TObject);
begin
DataModule.Notify_DataChange := True;
  BTNOk.Enabled := True;
  BTNMore.Enabled := True;
end;

end.