pm_qry_sspoinfo_h.pas

一个MRPII系统源代码版本

unit Pm_Qry_SsPoInfo_H;

Interface

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

Type
  TFrm_Pm_Qry_SsPoInfo_H = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadItemCode: TStringField;
    AdoQry_HeadItemName: TStringField;
    AdoQry_HeadUomName: TStringField;
    AdoQry_Headldtime: TFloatField;
    AdoQry_HeadCurrentonhandInv: TFloatField;
    AdoQry_HeadTotalType: TStringField;
    AdoQry_HeadPmBatch: TIntegerField;
    procedure Act_LookExecute(Sender: TObject);
    procedure Act_QuitExecute(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Pm_Qry_SsPoInfo_H: TFrm_Pm_Qry_SsPoInfo_H;

implementation

uses Pm_Qry_SsPoInfo;

{$R *.DFM}

{ TFrm_Pm_Qry_SsPoInfo_H }

procedure TFrm_Pm_Qry_SsPoInfo_H.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
var sqltext:string;
begin
  inherited;
    sqltext:=' select distinct  Item.ItemCode,                      '+#13+
             '                  Item.ItemName,                      '+#13+
             '                  Uom.UomName,                        '+#13+
             '                  ldtime=purchldtime,                 '+#13+
             '                  PmBatch,                            '+#13+
             '                  CurrentonhandInv,                   '+#13+
             '                  TotalType=''月''                    '+#13+
             '   into #tmp                                          '+#13+
             '   from   Item                                        '+#13+
             '    left outer join Uom on Item.UomCode=Uom.UomCode   '+#13+
             '    join ss on Item.ItemCode=ss.ItemCode              ';
    with  AdoQry_Head do
       begin
         Close;
         sql.clear;
         sql.Add(sqltext);
         try
          execsql;
         except
         end;
         selectfromsql:='select * from #tmp';

         Close;
         sql.clear;
         sql.Add('select * from #tmp');
         Prepared;
         open;
       end;
end;

procedure TFrm_Pm_Qry_SsPoInfo_H.Act_LookExecute(Sender: TObject);
var condition:string;
begin
  inherited;
  condition:='';
  condition:=condition+' 物料代码:'+AdoQry_Head.fieldbyname('ItemCode').asstring;
  condition:=condition+' 物料描述:'+AdoQry_Head.fieldbyname('ItemName').asstring;
  condition:=condition+' 阶段:'+AdoQry_Head.fieldbyname('TotalType').asstring;
  if Frm_Pm_Qry_SsPoInfo=nil then
  begin
  Frm_Pm_Qry_SsPoInfo:=TFrm_Pm_Qry_SsPoInfo.Create(Self);
  Frm_Pm_Qry_SsPoInfo.SetSysParam('gf','gf','gfd','fd');
  Frm_Pm_Qry_SsPoInfo.InitForm(AdoConnectMain,True);
  Frm_Pm_Qry_SsPoInfo.setconditionHint(Frm_Pm_Qry_SsPoInfo.lbl_Condition,condition)
  end
  else Frm_Pm_Qry_SsPoInfo.Show;

end;

procedure TFrm_Pm_Qry_SsPoInfo_H.Act_QuitExecute(Sender: TObject);
begin
    with AdoQry_tmp do
      begin
          Close;
          sql.clear;
          sql.Add('drop table #tmp');
          try
          execsql;
          except
          end;
      end;

  inherited;

end;

procedure TFrm_Pm_Qry_SsPoInfo_H.FormDestroy(Sender: TObject);
begin
  inherited;
Frm_Pm_Qry_SsPoInfo_H:=nil;
end;

end.