unit_mater_inview.~pas

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

unit Unit_Mater_InView;

interface

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

type
  TForm_Mater_InView = class(TForm)
    Panel1: TPanel;
    Panel3: TPanel;
    DBEdit_InCardNum: TDBEdit;
    DBEdit_Date: TDBEdit;
    Panel8: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    Panel15: TPanel;
    Panel11: TPanel;
    DBEdit1: TDBEdit;
    Panel2: TPanel;
    DBEdit_Mater: TDBEdit;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel9: TPanel;
    Panel16: TPanel;
    DBEdit_InWt: TDBEdit;
    DBEdit_Chk: TDBEdit;
    DBEdit_Per: TDBEdit;
    Edit_Index: TEdit;
    Panel4: TPanel;
    Panel14: TPanel;
    DBEdit_Add: TDBEdit;
    Panel18: TPanel;
    DBEdit_Fac: TDBEdit;
    DBEdit_Taker: TDBEdit;
    Panel10: TPanel;
    BitBtn_Exit: TBitBtn;
    Panel17: 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_InView: TForm_Mater_InView;

implementation

uses Unit_Mater_Qry, Unit_Mater_OutView, Unit_Mater_InCardprt;

{$R *.DFM}

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

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

end;

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

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

end;

procedure TForm_Mater_InView.BitBtn3Click(Sender: TObject);
begin
  Form_Mater_InCardprt.QuickRep1.Preview;
end;

end.