mrp_qry_oblongmps1_d.pas

一个MRPII系统源代码版本

unit Mrp_Qry_OblongMps1_D;

Interface

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

Type
  TFrm_Mrp_Qry_OblongMps1_D = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Ed_Rs1: TEdit;
    Label9: TLabel;
    Ed_Rs2: TEdit;
    Label12: TLabel;
    Ed_Rs3: TEdit;
    Ed_Rs4: TEdit;
    Label18: TLabel;
    Ed_Rs5: TEdit;
    Label21: TLabel;
    Ed_Rs6: TEdit;
    Label24: TLabel;
    Ed_Rs7: TEdit;
    Label27: TLabel;
    Ed_Rs8: TEdit;
    Label30: TLabel;
    Ed_Rs9: TEdit;
    Label33: TLabel;
    Ed_Rs10: TEdit;
    Label36: TLabel;
    Ed_Rs11: TEdit;
    Label39: TLabel;
    Ed_Rs12: TEdit;
    Label7: TLabel;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure GetConnect(AdoQuery:TAdoQuery);
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_OblongMps1_D: TFrm_Mrp_Qry_OblongMps1_D;

implementation


{$R *.DFM}

{ TFrm_Mrp_Qry_AnalyzerMonthTotalMps_D }

procedure TFrm_Mrp_Qry_OblongMps1_D.GetConnect(
  AdoQuery: TAdoQuery);
begin
  With AdoQuery Do
  begin
    Edit1.Text := fieldbyname('ItemFlag').AsString;
    Edit2.Text := fieldbyname('UomName').AsString;
    Edit3.Text := fieldbyname('MpsQTY').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;

  end;
end;

procedure TFrm_Mrp_Qry_OblongMps1_D.FormActivate(
  Sender: TObject);
begin
  inherited;
  Frm_Mrp_Qry_OblongMps1_D.Caption := '主生产计划月分布表明细';
end;

end.