mrp_qry_moh.pas

一个MRPII系统源代码版本

unit Mrp_Qry_MoH;

Interface

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

Type
  TFrm_Mrp_Qry_MoH = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadMONO: TStringField;
    AdoQry_HeadDeptCode: TStringField;
    AdoQry_HeadMODATE: TDateTimeField;
    AdoQry_HeadMORemArk: TStringField;
    AdoQry_HeadDeptName: TStringField;
    AdoQry_HeadMOSpecial: TIntegerField;
    AdoQry_HeadSaleType: TStringField;
    AdoQry_HeadSysParamCode: TStringField;
    AdoQry_HeadSysParamValuec: TStringField;
    AdoQry_HeadDeptFlag: TStringField;
    AdoQry_HeadSaleFlag: TStringField;
    Label1: TLabel;
    DBText1: TDBText;
    Label2: TLabel;
    DBText2: TDBText;
    Label3: TLabel;
    DBText3: TDBText;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_MoH: TFrm_Mrp_Qry_MoH;

implementation

uses  Mrp_Enter_Mo;

{$R *.DFM}

procedure TFrm_Mrp_Qry_MoH.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
begin
  Application.ProcessMessages;
  inherited;
  SelectFromSql:='Select Mo.*,Dept.DeptName,SysParam.SysParamCode,SysParam.SysParamValuec,'
               +' Dept.DeptCode+'''+' '+'''+Dept.DeptName As DeptFlag, '
               +' SysParam.SysParamCode+'''+' '+'''+SysParam.SysParamValuec As SaleFlag '
               +' From Mo,Dept,SysParam ';
  ConditionUserDefine:=' (Mo.DeptCode=Dept.DeptCode '
                      +' And SysParam.SysParamCode=Mo.SaleType) ';
  OrderByFields:='DeptCode,MoDate,MoNo';
  GetData;
  Frm_Entry_Body:=TFrm_Mrp_Enter_Mo.Create(Application);
end;


procedure TFrm_Mrp_Qry_MoH.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Mrp_Qry_MoH:=Nil;
end;

end.