mrp_qry_analyzermonthtotalmps_d.pas

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

unit Mrp_Qry_AnalyzerMonthTotalMps_D;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Condition, Db, AdODB, StdCtrls;

Type
  TFrm_Mrp_Qry_AnalyzerMonthTotalMps_D = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Ed_Rs1: TEdit;
    Ed_Rw1: TEdit;
    Ed_Rc1: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Ed_Rs2: TEdit;
    Ed_Rw2: TEdit;
    Ed_Rc2: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Ed_Rs3: TEdit;
    Ed_Rw3: TEdit;
    Ed_Rc3: TEdit;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Ed_Rs4: TEdit;
    Ed_Rw4: TEdit;
    Ed_Rc4: TEdit;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Ed_Rs5: TEdit;
    Ed_Rw5: TEdit;
    Ed_Rc5: TEdit;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Ed_Rs6: TEdit;
    Ed_Rw6: TEdit;
    Ed_Rc6: TEdit;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Ed_Rs7: TEdit;
    Ed_Rw7: TEdit;
    Ed_Rc7: TEdit;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Ed_Rs8: TEdit;
    Ed_Rw8: TEdit;
    Ed_Rc8: TEdit;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Ed_Rs9: TEdit;
    Ed_Rw9: TEdit;
    Ed_Rc9: TEdit;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Ed_Rs10: TEdit;
    Ed_Rw10: TEdit;
    Ed_Rc10: TEdit;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Ed_Rs11: TEdit;
    Ed_Rw11: TEdit;
    Ed_Rc11: TEdit;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Ed_Rs12: TEdit;
    Ed_Rw12: TEdit;
    Ed_Rc12: TEdit;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure GetConnect(AdoQuery:TAdoQuery);
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_AnalyzerMonthTotalMps_D: TFrm_Mrp_Qry_AnalyzerMonthTotalMps_D;

implementation

uses Mrp_Qry_AnalyzerMonthTotalMps;

{$R *.DFM}

{ TFrm_Mrp_Qry_AnalyzerMonthTotalMps_D }

procedure TFrm_Mrp_Qry_AnalyzerMonthTotalMps_D.GetConnect(
  AdoQuery: TAdoQuery);
begin
  With AdoQuery Do
  begin
    Edit1.Text := fieldbyname('ItemFlag').AsString;
    Edit2.Text := fieldbyname('UomName').AsString;
    Edit3.Text := fieldbyname('MpsQTY').AsString;
    Edit4.Text := fieldbyname('MpsFinishQty').AsString;
    Edit5.Text := fieldbyname('MpsQtyFinishQty').AsString;
    Ed_Rs1.Text :=fieldbyname('1月需用量').AsString;
    Ed_Rs2.Text :=fieldbyname('2月需用量').AsString;
    Ed_Rs2.Text :=fieldbyname('3月需用量').AsString;
    Ed_Rs4.Text :=fieldbyname('4月需用量').AsString;
    Ed_Rs5.Text :=fieldbyname('5月需用量').AsString;
    Ed_Rs6.Text :=fieldbyname('6月需用量').AsString;
    Ed_Rs7.Text :=fieldbyname('7月需用量').AsString;
    Ed_Rs8.Text :=fieldbyname('8月需用量').AsString;
    Ed_Rs9.Text :=fieldbyname('9月需用量').AsString;
    Ed_Rs10.Text :=fieldbyname('10月需用量').AsString;
    Ed_Rs11.Text :=fieldbyname('11月需用量').AsString;
    Ed_Rs12.Text :=fieldbyname('12月需用量').AsString;

    Ed_Rw1.Text :=fieldbyname('1月完成量').AsString;
    Ed_Rw2.Text :=fieldbyname('2月完成量').AsString;
    Ed_Rw2.Text :=fieldbyname('3月完成量').AsString;
    Ed_Rw4.Text :=fieldbyname('4月完成量').AsString;
    Ed_Rw5.Text :=fieldbyname('5月完成量').AsString;
    Ed_Rw6.Text :=fieldbyname('6月完成量').AsString;
    Ed_Rw7.Text :=fieldbyname('7月完成量').AsString;
    Ed_Rw8.Text :=fieldbyname('8月完成量').AsString;
    Ed_Rw9.Text :=fieldbyname('9月完成量').AsString;
    Ed_Rw10.Text :=fieldbyname('10月完成量').AsString;
    Ed_Rw11.Text :=fieldbyname('11月完成量').AsString;
    Ed_Rw12.Text :=fieldbyname('12月完成量').AsString;

    Ed_Rc1.Text :=fieldbyname('1月完成率').AsString;
    Ed_Rc2.Text :=fieldbyname('2月完成率').AsString;
    Ed_Rc2.Text :=fieldbyname('3月完成率').AsString;
    Ed_Rc4.Text :=fieldbyname('4月完成率').AsString;
    Ed_Rc5.Text :=fieldbyname('5月完成率').AsString;
    Ed_Rc6.Text :=fieldbyname('6月完成率').AsString;
    Ed_Rc7.Text :=fieldbyname('7月完成率').AsString;
    Ed_Rc8.Text :=fieldbyname('8月完成率').AsString;
    Ed_Rc9.Text :=fieldbyname('9月完成率').AsString;
    Ed_Rc10.Text :=fieldbyname('10月完成率').AsString;
    Ed_Rc11.Text :=fieldbyname('11月完成率').AsString;
    Ed_Rc12.Text :=fieldbyname('12月完成率').AsString;

  end;
end;

procedure TFrm_Mrp_Qry_AnalyzerMonthTotalMps_D.FormActivate(
  Sender: TObject);
begin
  inherited;
  Frm_Mrp_Qry_AnalyzerMonthTotalMps_D.Caption := '主生产计划执行情况分析月度汇总列表明细';
end;

end.