inv_consistency_d.pas

一个MRPII系统源代码版本

unit Inv_Consistency_D;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  ExtCtrls, ComCtrls, ToolWin, StdCtrls, Base_Entry_Body;

Type
  TFrm_Inv_Consistency_D = Class(TFrm_Base_Entry_Body)
    Label1: TLabel;
    lbl_qty: TLabel;
    Label2: TLabel;
    procedure Act_QuitExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure initform(AdoQry:TAdOConnection;SelectWord,Title:String;Id:integer);
    { Public declarations }
  end;

var
  Frm_Inv_Consistency_D: TFrm_Inv_Consistency_D;

implementation

{$R *.DFM}

{ TFrm_Base_Entry_Body2 }

procedure TFrm_Inv_Consistency_D.initform(AdoQry: TAdOConnection;
  SelectWord,Title: String;Id:integer);
begin
  Pnl_Head.Caption:=Title;
  AdoQry_Tmp.Connection:=AdoQry;
  With AdoQry_Body do
  begin
    Connection:=AdoQry;
    Close;
    sql.clear;
    sql.Add(SelectWord);
    open;
    lbl_qty.Caption:=inttostr(recordCount);
  end;
  if Id=1 then
  with DBGridEh do
  begin
    Columns[0].Title.Caption:='物料标识';
    Columns[1].Title.Caption:='可用库存|当前库存';
    Columns[2].Title.Caption:='可用库存|物料主文件';
    Columns[3].Title.Caption:='可用库存|差异';
    Columns[4].Title.Caption:='待检库存|当前库存';
    Columns[5].Title.Caption:='待检库存|物料主文件';
    Columns[6].Title.Caption:='待检库存|差异';
    Columns[7].Title.Caption:='冻结库存|当前库存';
    Columns[8].Title.Caption:='冻结库存|物料主文件';
    Columns[9].Title.Caption:='冻结库存|差异';
    Columns[10].Title.Caption:='废品库存|当前库存';
    Columns[11].Title.Caption:='废品库存|物料主文件';
    Columns[12].Title.Caption:='废品库存|差异';
    Columns[13].Title.Caption:='在运库存|当前库存';
    Columns[14].Title.Caption:='在运库存|物料主文件';
    Columns[15].Title.Caption:='在运库存|差异';
    UseMultiTitle:=True;
    Refresh;
  end;
end;

procedure TFrm_Inv_Consistency_D.Act_QuitExecute(Sender: TObject);
begin
  //inherited;
  Close;
end;

procedure TFrm_Inv_Consistency_D.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //inherited;
  Action:=caFree;
end;

end.