browser.~pas

对于商品销售、库存信息

unit Browser;

interface

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

type
  TFormBrowser = class(TForm)
    LabelDate: TLabel;
    LabelPrice: TLabel;
    LabelSum: TLabel;
    LabelDetail: TLabel;
    LabelGoodName: TLabel;
    LabelAmount: TLabel;
    LabelDealer: TLabel;
    DBEditDate: TDBEdit;
    DBEditPrice: TDBEdit;
    DBEditSum: TDBEdit;
    DBEditGoodName: TDBEdit;
    DBEditAmount: TDBEdit;
    DBEditDealer: TDBEdit;
    DBMemoDetail: TDBMemo;
    GroupBox1: TGroupBox;
    BTNFirst: TButton;
    BTNNext: TButton;
    BTNPrev: TButton;
    BTNLast: TButton;
    BTNAdd: TButton;
    BTNDel: TButton;
    BTNModify: TButton;
    BTNClose: TButton;
    Label1: TLabel;
    DBEditCoding: TDBEdit;
    GroupBox2: TGroupBox;
    LabelBrand: TLabel;
    DBEditBrand: TDBEdit;
    LabelProducer: TLabel;
    DBEditProducer: TDBEdit;

    procedure DBEditDateChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BTNFirstClick(Sender: TObject);
    procedure BTNNextClick(Sender: TObject);
    procedure BTNPrevClick(Sender: TObject);
    procedure BTNLastClick(Sender: TObject);
    procedure BTNAddClick(Sender: TObject);
    procedure BTNDelClick(Sender: TObject);
    procedure BTNModifyClick(Sender: TObject);
    procedure BTNCloseClick(Sender: TObject);
    procedure DBEditGoodNameChange(Sender: TObject);
    procedure DBEditPriceChange(Sender: TObject);
    procedure DBEditAmountChange(Sender: TObject);
    procedure DBEditSumChange(Sender: TObject);
    procedure DBEditDealerChange(Sender: TObject);
    procedure DBMemoDetailChange(Sender: TObject);
    procedure DBEditCodingChange(Sender: TObject);
    procedure DBEditBrandChange(Sender: TObject);
    procedure DBEditProducerChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormBrowser: TFormBrowser;

implementation
uses DataModule, SaleAdd, Cover;
{$R *.dfm}

procedure TFormBrowser.FormCreate(Sender: TObject);
begin
  BTNModify.Enabled := False;
  BTNPrev.Enabled := False;
  BTNFirst.Enabled := False;
  DataModule.Notify_DataChange := False;
end;






procedure TFormBrowser.BTNFirstClick(Sender: TObject);
begin
  DataModule1.ADODataSet1.First;
  BTNPrev.Enabled := False;
  BTNFirst.Enabled := False;
  BTNLast.Enabled := True;
  BTNNext.Enabled := True;
  BTNModify.Enabled := False;
  DataModule.Notify_DataChange := False;
end;

procedure TFormBrowser.BTNNextClick(Sender: TObject);
begin
  DataModule1.ADODataSet1.Next;
  BTNPrev.Enabled := True;
  BTNFirst.Enabled := True;
  BTNModify.Enabled := False;
  DataModule.Notify_DataChange := False;
  if DataModule1.ADODataSet1.RecNo = DataModule1.ADODataSet1.RecordCount then begin
    BTNNext.Enabled := False;
    BTNLast.Enabled := False;
  end;
end;

procedure TFormBrowser.BTNPrevClick(Sender: TObject);
begin
  DataModule1.ADODataSet1.Prior;
  BTNNext.Enabled := True;
  BTNLast.Enabled := True;
  BTNModify.Enabled := False;
  DataModule.Notify_DataChange := False;
  if DataModule1.ADODataSet1.RecNo = 0 then begin
    BTNPrev.Enabled := False;
    BTNFirst.Enabled := False;
  end;
end;

procedure TFormBrowser.BTNLastClick(Sender: TObject);
begin
  DataModule1.ADODataSet1.Last;
  BTNNext.Enabled := False;
  BTNFirst.Enabled := True;
  BTNLast.Enabled := False;
  BTNPrev.Enabled := True;
  BTNModify.Enabled := False;
  DataModule.Notify_DataChange := False;
end;

procedure TFormBrowser.BTNAddClick(Sender: TObject);
begin
  if DataModule.Notify_DataChange then begin
    DataModule1.ADODataSet1.UpdateRecord;
    DataModule.Notify_DataChange := False;
  end
  else begin
  end;
  DataModule1.ADODataSet1.Append;
  BTNNext.Enabled := False;
  BTNFirst.Enabled := True;
  BTNLast.Enabled := False;
  BTNPrev.Enabled := True;
  BTNAdd.Enabled := False;
  BTNModify.Enabled := False;
  DataModule.Notify_DataChange := False;
end;

procedure TFormBrowser.BTNDelClick(Sender: TObject);
begin
  DataModule1.ADODataSet1.Delete;
  DataModule.Notify_DataChange := False;
end;

procedure TFormBrowser.BTNModifyClick(Sender: TObject);
begin
  if DataModule.Notify_DataChange then begin
    DataModule1.ADODataSet1.UpdateRecord;
    BTNModify.Enabled := False;
  end;
  DataModule.Notify_DataChange := False;
  BTNAdd.Enabled := True;
end;

procedure TFormBrowser.BTNCloseClick(Sender: TObject);
begin
  //保存更改
  try
    DataModule1.ADODataSet1.Refresh;
  finally
    DataModule.Notify_DataChange := False;
    close;
  end;
end;

procedure TFormBrowser.DBEditDateChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormBrowser.DBEditGoodNameChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormBrowser.DBEditPriceChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormBrowser.DBEditAmountChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormBrowser.DBEditSumChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormBrowser.DBEditDealerChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormBrowser.DBMemoDetailChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormBrowser.DBEditCodingChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormBrowser.DBEditBrandChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormBrowser.DBEditProducerChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

end.