mrp_qry_analyzercapacity1_new.pas

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

unit Mrp_Qry_AnalyzerCapacity1_New;

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_AnalyzerCapacity1_New = Class(TFrm_Base_Qry)
    AdoQry_MainWcCode: TStringField;
    AdoQry_Mainmono: TStringField;
    AdoQry_MainMoLineno: TIntegerField;
    AdoQry_Mainmohours: TFloatField;
    AdoQry_MainMpsType: TStringField;
    AdoQry_MainWCName: TStringField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainOverCapacity: TFloatField;
    AdoQry_Mainmoqty: TFloatField;
    AdoQry_MainOverCapacityrate: TStringField;
    AdoQry_Mainwcflag: TStringField;
    AdoQry_MainItemflag: TStringField;
    dbtxtwcflag: TDBText;
    dbtxtItemflag: TDBText;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    dbtxtMpsType: TDBText;
    dbtxtOverCapacityrate: TDBText;
    AdoQry_MainCapacityhours: TFloatField;
    AdoQry_Mainmodate: TDateTimeField;
    procedure FormDestroy(Sender: TObject);
    procedure DBGridEhGetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
  private
    { Private declarations }
  public
         procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
 { Public declarations }
  end;

var
  Frm_Mrp_Qry_AnalyzerCapacity1_New: TFrm_Mrp_Qry_AnalyzerCapacity1_New;

implementation
  uses Mrp_Qry_AnalyzerCapacity1_C_New;
{$R *.DFM}

{ TFrm_Mrp_Qry_AnalyzerCapacity }

procedure TFrm_Mrp_Qry_AnalyzerCapacity1_New.InitForm(
  AdOConnection: TAdOConnection; ShowExtendColumn: Boolean);
begin
  inherited;
  Frm_Sys_Condition:=TFrm_Mrp_Qry_AnalyzerCapacity1_C_New.Create(self);
  Act_Filter.Execute;

end;

procedure TFrm_Mrp_Qry_AnalyzerCapacity1_New.FormDestroy(Sender: TObject);
begin
  inherited;
Frm_Mrp_Qry_AnalyzerCapacity1_New:=nil;
end;

procedure TFrm_Mrp_Qry_AnalyzerCapacity1_New.DBGridEhGetCellParams(
  Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
  inherited;
  if AdoQry_Main.fieldbyname('MpsType').asstring='日小计' then
  begin
    Background:=clyellow;
    afont.Color:=clblue;
  end;
end;

end.