unitprodviewincard.pas

此代码为企业原料管理代码

unit UnitProdViewInCard;

interface

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

type
  TfrmProdViewInCard = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    dbeDate: TDBEdit;
    Panel1: TPanel;
    Panel7: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel17: TPanel;
    dbeNote: TDBEdit;
    dbeNum: TDBEdit;
    dbeCheckerID: TDBEdit;
    dbeProdName: TDBEdit;
    dbeChecker: TDBEdit;
    Panel3: TPanel;
    dbeFigID: TDBEdit;
    Panel4: TPanel;
    dbeProcID: TDBEdit;
    dbeCardID: TDBEdit;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    bbPrior: TBitBtn;
    bbNext: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure bbPriorClick(Sender: TObject);
    procedure bbNextClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmProdViewInCard: TfrmProdViewInCard;

implementation

uses UnitDM;

{$R *.DFM}

procedure TfrmProdViewInCard.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TfrmProdViewInCard.bbPriorClick(Sender: TObject);
begin
  if dm.tabProdInCard.bof then
  begin
    messagedlg('已经到第一条记录!',mtinformation,[mbok],0);
    exit;
  end; //if

  dm.tabProdInCard.Prior;

end;

procedure TfrmProdViewInCard.bbNextClick(Sender: TObject);
begin
  if dm.tabProdInCard.eof then
  begin
    messagedlg('已经到最后一条记录!',mtinformation,[mbok],0);
    exit;
  end; //if

  dm.tabProdInCard.Next;
end;

end.