mrp_qry_oblongmps_d.pas

一个MRPII系统源代码版本

unit Mrp_Qry_OblongMps_D;

Interface

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

Type
  TFrm_Mrp_Qry_OblongMps_D = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Label2: TLabel;
    Edt_MonthTotal: TEdit;
    Label3: TLabel;
    ExtEdt_ItemCode: TExtEdit;
    Label4: TLabel;
    Edt_UomName: TEdit;
    Label5: TLabel;
    Lbl_ItemName: TLabel;
    Label6: TLabel;
    Edt_1: TEdit;
    Label7: TLabel;
    Edt_2: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Edt_3: TEdit;
    Edt_4: TEdit;
    Edt_5: TEdit;
    Edt_6: TEdit;
    Edt_7: TEdit;
    Edt_8: TEdit;
    Edt_9: TEdit;
    Edt_10: TEdit;
    Edt_11: TEdit;
    Edt_12: TEdit;
    Edt_13: TEdit;
    Edt_14: TEdit;
    Edt_15: TEdit;
    Edt_16: TEdit;
    Edt_17: TEdit;
    Edt_18: TEdit;
    Edt_19: TEdit;
    Edt_20: TEdit;
    Edt_21: TEdit;
    Edt_22: TEdit;
    Edt_23: TEdit;
    Edt_24: TEdit;
    Edt_25: TEdit;
    Edt_26: TEdit;
    Edt_27: TEdit;
    Edt_28: TEdit;
    Edt_29: TEdit;
    Edt_30: TEdit;
    Edt_31: TEdit;
    Edt_Date1: TEdit;
    procedure btn_CancelClick(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure GetConnect(AdoQuery:TAdoQuery);
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_OblongMps_D: TFrm_Mrp_Qry_OblongMps_D;

implementation

uses Sys_Global;

{$R *.DFM}
procedure TFrm_Mrp_Qry_OblongMps_D.GetConnect(AdoQuery:TAdoQuery);
var
  I,J:Integer;
  CurrentDay:String;
  NameStr:String;
begin
  With AdoQuery Do
  begin
    Edt_Date1.Text:=fieldbyname('MpsMonth').AsString;
    Edt_MonthTotal.Text:=fieldbyname('MonthTotalQty').Asstring;
    ExtEdt_ItemCode.Text:=fieldbyname('ItemCode').AsString;
    Edt_UomName.Text:=fieldbyname('UomName').AsString;
    Lbl_ItemName.Caption:=fieldbyname('ItemName').AsString;
    For I:=1 To 31 Do
    begin
      Currentday:=IntToStr(I)+'日';
      NameStr:='Edt_'+IntTostr(I);
      For J:=0 To Frm_Mrp_Qry_OblongMps_D.ControlCount-1   Do
      begin
       If Trim(Frm_Mrp_Qry_OblongMps_D.Controls[J].Name)=Trim(NameStr) Then
        begin
          TEdit(Frm_Mrp_Qry_OblongMps_D.Controls[J]).Text:=FloatToStr(fieldbyname(Currentday).AsFloat);
          Break;
        end;
      end;
    end;
  end;
end;

procedure TFrm_Mrp_Qry_OblongMps_D.btn_CancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TFrm_Mrp_Qry_OblongMps_D.btn_okClick(Sender: TObject);
begin
  inherited;
  ModalResult:=Mrok;
end;

procedure TFrm_Mrp_Qry_OblongMps_D.FormActivate(Sender: TObject);
begin
  inherited;
  TForm(Sender).Caption:='主生产计划日分布明细查询';
end;

end.