mrp_qry_analyzermo2.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 74 行

unit Mrp_Qry_AnalyzerMo2;


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_AnalyzerMo2 = Class(TFrm_Base_Qry)
    AdoQry_MainMoNo: TStringField;
    AdoQry_MainDeptName: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_Mainmoqty: TFloatField;
    AdoQry_MainMoNoFinishqty: TFloatField;
    AdoQry_MainFinishQty: TFloatField;
    AdoQry_MainFinishRate: TStringField;
    AdoQry_MainItemflag: TStringField;
    dbtxtDeptName: TDBText;
    dbtxtItemflag: TDBText;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    dbtxtFinishrate: TDBText;
    AdoQry_MainDeptflag: TStringField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Mrp_Qry_AnalyzerMo2: TFrm_Mrp_Qry_AnalyzerMo2;

implementation
uses Mrp_Qry_AnalyzerMo2_C;
{$R *.DFM}

{ TFrm_Mrp_Qry_AnalyzerMo2 }

procedure TFrm_Mrp_Qry_AnalyzerMo2.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
 { SelectFromSql:='Select Mo.MoNo,Dept.DeptName,Item.ItemName,MoLine.ItemCode,'+
                      ' MoLine.moqty,MoLine.MoNoFinishqty,'+
                      ' MoLine.MoQty-MoLine.MoNoFinishQty As FinishQty,'+
                      ' MoLineStatus= case MoLineStatus when 0 then ''0 未批准''  when 1 then ''1 生效''  when 2 then ''2 关闭'' when 3 then ''3 永久关闭'' end,'+
                      ' Convert(varchAr,Convert(decimal(10,2),(MoLine.MoQty-MoLine.MoNoFinishqty)/MoLine.MoQty*100)) +''%'' As FinishRate'+
                 ' From MoLine'+
                 ' Join Mo On MoLine.MoNo=Mo.MoNo'+
                 ' Join Item On MoLine.ItemCode=Item.ItemCode'+
                 ' Join Dept On Mo.DeptCode=Dept.DeptCode and MoLine.MoQty>0';
  Condition:='MoLine.MoLinestatus<>3';
  Orderbyfields:='DeptName';
  Getdata;}
  Frm_Sys_Condition:=TFrm_Mrp_Qry_AnalyzerMo2_C.Create(self);
  act_filter.Execute;

end;

procedure TFrm_Mrp_Qry_AnalyzerMo2.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Mrp_Qry_AnalyzerMo2:=nil;
end;

end.