mrp_qry_classifystatmo.pas

一个MRPII系统源代码版本

unit Mrp_Qry_ClassifyStatMo;
   
Interface

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

Type
  TFrm_Mrp_Qry_ClassifyStatMo = Class(TFrm_Base_Qry)
    Lbl_Type: TLabel;
    DbTxt_Date: TDBText;
    DbTxt_ItemFlag: TDBText;
    DbTxt_FinishRate: TDBText;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormDestroy(Sender: TObject);
    procedure Act_FilterExecute(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_ClassifyStatMo: TFrm_Mrp_Qry_ClassifyStatMo;

implementation

uses Mrp_Qry_ClassifyStatMo_F;

{$R *.DFM}
procedure FormatDisplay(AdoQuery:TAdoQuery);
var
  I:Integer;
begin
  For I:=0 To AdoQuery.FieldCount -1 Do
  begin
    If UpperCase(AdoQuery.Fields[I].DisplayName)=UpperCase('FinishedRate') Then
      TFloatField(AdoQuery.Fields[I]).displayFormat:='#,##0'+'%';
    If (AdoQuery.Fields[I].DataType=FtFloat) And (AdoQuery.Fields[I].DisplayName<>'FinishedRate')  Then
   TFloatField(AdoQuery.Fields[I]).DisplayFormat:='#,##0';
  end;
end;

procedure TFrm_Mrp_Qry_ClassifyStatMo.InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);
begin
  Application.ProcessMessages;
  Inherited;
  Frm_Mrp_Qry_ClassifyStatMo_F:=TFrm_Mrp_Qry_ClassifyStatMo_F.Create(Application);
  Frm_Mrp_Qry_ClassifyStatMo_F.SetDBConnect(DbConnect);
  If Frm_Mrp_Qry_ClassifyStatMo_F.ShowModal=Mrok Then
    FormatDisplay(AdoQry_Main);
  Frm_Mrp_Qry_ClassifyStatMo_F.Release;
  OrderByfields:='Date1,ItemFlag';
  DbTxt_Date.DataField:='Date1';
  DbTxt_ItemFlag.DataField:='ItemFlag';
  DbTxt_FinishRate.DataField:='FinishedRate';
end;

procedure TFrm_Mrp_Qry_ClassifyStatMo.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Mrp_Qry_ClassifyStatMo:=Nil;
end;

procedure TFrm_Mrp_Qry_ClassifyStatMo.Act_FilterExecute(Sender: TObject);
begin
  Frm_Mrp_Qry_ClassifyStatMo_F:=TFrm_Mrp_Qry_ClassifyStatMo_F.Create(Application);
  Frm_Mrp_Qry_ClassifyStatMo_F.SetDBConnect(DbConnect);
  If Frm_Mrp_Qry_ClassifyStatMo_F.ShowModal=Mrok Then
    FormatDisplay(AdoQry_Main);
  Frm_Mrp_Qry_ClassifyStatMo_F.Release;
end;

end.