mrp_qry_oblongmps1.pas

一个MRPII系统源代码版本

unit Mrp_Qry_OblongMps1;

Interface

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

Type
  TFrm_Mrp_Qry_OblongMps1 = Class(TFrm_Base_Qry)
    Label2: TLabel;
    DbTxt_ItemFlag: TDBText;
    procedure FormDestroy(Sender: TObject);
    procedure Act_LookExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    conditionHint1:string;
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    procedure GetData; Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_OblongMps1: TFrm_Mrp_Qry_OblongMps1;

implementation

uses  Mrp_Qry_OblongMps1_C, Mrp_Qry_OblongMps1_D;


{$R *.DFM}

{ TFrm_Mrp_Qry_AnalyzerMonthTotalMps }

procedure TFrm_Mrp_Qry_OblongMps1.InitForm(AdOConnection: TAdOConnection; ShowExtendColumn: Boolean);
begin
  Inherited;
  Frm_Sys_Condition:= TFrm_Mrp_Qry_OblongMps1_C.Create(self);
  act_filter.Execute;
  Frm_Sys_Condition.Release;
  Frm_Sys_Condition:=nil;
end;

procedure TFrm_Mrp_Qry_OblongMps1.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Mrp_Qry_OblongMps1:=nil;
end;

procedure TFrm_Mrp_Qry_OblongMps1.Act_LookExecute(
  Sender: TObject);
begin
  inherited;
  Frm_Mrp_Qry_OblongMps1_D:=TFrm_Mrp_Qry_OblongMps1_D.Create(Application);
  Frm_Mrp_Qry_OblongMps1_D.GetConnect(AdoQry_Main);
  Frm_Mrp_Qry_OblongMps1_D.ShowModal;
  Frm_Mrp_Qry_OblongMps1_D.Release;
end;

procedure TFrm_Mrp_Qry_OblongMps1.GetData;
var
  SqlText:string;
  i,j:Integer;
begin
  if condition='none' then
    exit;
  SqlText:='Select ';
  for i:=1 to 12 do
  begin
    SqlText:=SqlText+' #TmPmps.['+IntToStr(I)+'月] As ['+IntToStr(I)+'月] ,' ;
  end;
  SqlText:=SqlText+' #TmPmps.ItemCode,#TmPmps.MpsQty,Item.ItemName,Uom.UomName,'
    +' Item.ItemCode+'''+' '+'''+Item.ItemName As ItemFlag '
    +' From #TmPmps '
    +' left Join Item On #TmPmps.ItemCode=Item.ItemCode '
    +' Left Join Uom On Item.UomCode=Uom.UomCode ';
  AdoQry_Main.Close;
  if Condition<>'' then
    AdoQry_Main.SQL.Text:=SqlText+' Where '+Condition
  else
    AdoQry_Main.SQL.Text:=SqlText;
  AdoQry_Main.Open;
  For I:=0 To AdoQry_Main.FieldCount -1 Do
  begin
    If AdoQry_Main.Fields[I].DataType=FtFloat Then
       Tfloatfield(AdoQry_Main.Fields[I]).DisplayFormat:='#,##0';
    If UpperCase(AdoQry_Main.Fields[I].DisplayName)=UpperCase('ItemName') Then
      AdoQry_Main.Fields[I].Origin:='Item'
    Else If UpperCase(AdoQry_Main.Fields[I].DisplayName)=UpperCase('UomName') Then
      AdoQry_Main.Fields[I].Origin:='Uom'
    Else If UpperCase(AdoQry_Main.Fields[I].DisplayName)=UpperCase('ItemFlag') Then
      AdoQry_Main.Fields[I].Origin:=''
    Else
      AdoQry_Main.Fields[I].Origin:='#TmPmps';
  end;
  Lbl_Condition.Caption := conditionHint1+'/'+Lbl_Condition.Caption;
end;

procedure TFrm_Mrp_Qry_OblongMps1.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
  SqlText:String;
begin
  inherited;
  try
     Sqltext:=' Drop Table #TmPmps ';
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:=SqlText;
    AdoQry_Tmp.ExecSQL;
  except
  end;
end;

end.