unitprodviewoutcard.pas

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

unit UnitProdViewOutCard;

interface

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

type
  TfrmProdViewOutCard = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    dbeDate: TDBEdit;
    Panel2: TPanel;
    Panel1: TPanel;
    Panel7: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel17: TPanel;
    dbeNote: TDBEdit;
    dbeNum: TDBEdit;
    dbeOuterID: TDBEdit;
    dbeProdName: TDBEdit;
    dbeOuter: TDBEdit;
    Panel3: TPanel;
    dbeFigID: TDBEdit;
    Panel4: TPanel;
    dbeProcID: TDBEdit;
    dbeManufacturerID: TDBEdit;
    Panel5: TPanel;
    dbeManufacturer: TDBEdit;
    Panel6: TPanel;
    dbeBox: TDBEdit;
    bbPost: TBitBtn;
    dbeCardID: TDBEdit;
    Label1: TLabel;
    bbPrior: TBitBtn;
    bbNext: TBitBtn;
    procedure bbPostClick(Sender: TObject);
    procedure bbPriorClick(Sender: TObject);
    procedure bbNextClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmProdViewOutCard: TfrmProdViewOutCard;

implementation

uses UnitDM;

{$R *.DFM}

procedure TfrmProdViewOutCard.bbPostClick(Sender: TObject);
begin
 close;
end;

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

  dm.tabProdOutCard.Prior;
end;

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

end.