unit_mater_outview.~pas

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

unit Unit_Mater_OutView;

interface

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

type
  TForm_Mater_OutView = class(TForm)
    BitBtn_Exit: TBitBtn;
    Panel1: TPanel;
    Panel3: TPanel;
    DBEdit_Date: TDBEdit;
    Panel8: TPanel;
    Panel13: TPanel;
    Panel10: TPanel;
    DBEdit_SourceNum: TDBEdit;
    Panel2: TPanel;
    DBEdit_Mater: TDBEdit;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel9: TPanel;
    DBEdit_OutWt: TDBEdit;
    DBEdit_Man: TDBEdit;
    Edit_Index: TEdit;
    DBEdit_Per: TDBEdit;
    Panel11: TPanel;
    Panel4: TPanel;
    Panel14: TPanel;
    DBEdit_Dep: TDBEdit;
    Panel12: TPanel;
    DBEdit_OutCardNum: TDBEdit;
    DBEdit1: TDBEdit;
    Panel17: TPanel;
    Panel15: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Mater_OutView: TForm_Mater_OutView;

implementation

uses Unit_Mater_Qry, Unit_Mater_InView, Unit_Mater_DrawCardprt;

{$R *.DFM}

procedure TForm_Mater_OutView.BitBtn1Click(Sender: TObject);
begin
  if Form_Mater_Qry.Qry_Qry.Bof then
  begin
    showmessage('已经到了第一条记录');
    exit;
  end; //if

  Form_Mater_Qry.Qry_Qry.Prior;
  if not Form_Mater_Qry.Qry_Qry.FieldByName('出入标识').asboolean then
  begin
    close;
    Form_Mater_InView.show;
  end;//if
end;

procedure TForm_Mater_OutView.BitBtn2Click(Sender: TObject);
begin
  if Form_Mater_Qry.Qry_Qry.Eof then
  begin
    showmessage('已经到了最后一条记录');
    exit;
  end; //if

  Form_Mater_Qry.Qry_Qry.next;
  if not Form_Mater_Qry.Qry_Qry.FieldByName('出入标识').asboolean then
  begin
    close;
    Form_Mater_InView.show;
  end;// if

end;

procedure TForm_Mater_OutView.BitBtn3Click(Sender: TObject);
begin
  Form_Mater_drawCardprt.QuickRep1.Preview;
end;

end.