unitprodmain.~pas

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

unit UnitProdMain;

interface

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

type
  TfrmProdMain = class(TForm)
    bbInOutCard: TBitBtn;
    BitBtn23: TBitBtn;
    BitBtn24: TBitBtn;
    BitBtn25: TBitBtn;
    BitBtn26: TBitBtn;
    BitBtn27: TBitBtn;
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    procedure bbInOutCardClick(Sender: TObject);
    procedure BitBtn23Click(Sender: TObject);
    procedure BitBtn25Click(Sender: TObject);
    procedure BitBtn24Click(Sender: TObject);
    procedure BitBtn26Click(Sender: TObject);
    procedure BitBtn27Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmProdMain: TfrmProdMain;

implementation

uses UnitProdVoucher, UnitProdWasteBook, UnitProdStock, UnitDM,
  UnitProdSetAccount, UnitAccSet, UnitReSetAccount, UnitProdQuery,
  Unit_Main, UnitProdOutInCard;

{$R *.DFM}

procedure TfrmProdMain.bbInOutCardClick(Sender: TObject);
begin
  with frmProdVoucher do
  begin
    dtpDate.date:=date;
    zdyShowfilterCard(dtpDate.date);
    showmodal;
  end; //with

end;

procedure TfrmProdMain.BitBtn23Click(Sender: TObject);
begin
  BitBtn23.Cursor:=crAppStart;
  with frmProdWasteBook do
  begin
    frmProdWasteBook.zdyWasteBook();
    BitBtn23.Cursor:=crDefault;
    showmodal;
  end; //with

end;

procedure TfrmProdMain.BitBtn25Click(Sender: TObject);
begin
  BitBtn25.Cursor:=crAppStart;
  frmProdStock.zdyCurStock(dm.zdyGetProdCheckDate);
  with dm.tabProdStock do
  begin
    filtered:=false;
    if not active then open;
  end; //with
  BitBtn25.Cursor:=crDefault;
  hide;
  frmProdStock.showmodal;

end;

procedure TfrmProdMain.BitBtn24Click(Sender: TObject);
  begin
  hide;
  frmCommAccSet.showmodal;
end;

procedure TfrmProdMain.BitBtn26Click(Sender: TObject);
begin
  frmCommReSetAccount.zdyProdCheckDiary;
  frmCommReSetAccount.PageControl1.ActivePageIndex:=3;
  frmCommReSetAccount.showmodal;

end;

procedure TfrmProdMain.BitBtn27Click(Sender: TObject);
begin
  close;
end;

procedure TfrmProdMain.BitBtn1Click(Sender: TObject);
begin
  frmProdQuery.show;
end;

procedure TfrmProdMain.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  form_main.WindowState:=wsMaximized;
  frmProdOutInCard.close;
end;

procedure TfrmProdMain.FormCreate(Sender: TObject);
begin
  bbInOutCard.caption:='出、入库'+#13+'记帐';
end;

end.