sys_enter_mrprmdtmd.pas

一个MRPII系统源代码版本

unit Sys_Enter_MrpRmDtMd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComServ, ComObj, VCLCom, StdVcl, BdeMts, DataBkr, DBClient,
  MtsRdm, Mtx, MrpMdl_TLB, Db, ADODB, Provider, Variants;

type
  TFrm_Sys_Enter_MrpRmDtMd = class(TMtsDataModule, IFrm_Sys_Enter_MrpRmDtMd)
    AdoConnectMain: TADOConnection;
    AdoQry_Main: TADOQuery;
    AJMrpAcnt: TDataSetProvider;
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    procedure GetConnect; safecall;
    procedure GetData(var SqlText, IsType: OleVariant); safecall;
  public
    { Public declarations }
  end;

var
  Frm_Sys_Enter_MrpRmDtMd: TFrm_Sys_Enter_MrpRmDtMd;

implementation

{$R *.DFM}

class procedure TFrm_Sys_Enter_MrpRmDtMd.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

procedure TFrm_Sys_Enter_MrpRmDtMd.GetConnect;
begin
  AdoQry_Main.Close;
  AdoQry_Main.SQL.Text:=' Select * '
                       +' From Account '
                       +' Where Valid='''+'Y'+''''
                       +' Or Valid='''+'y'+'''';
  AdoQry_Main.Open;
end;

procedure TFrm_Sys_Enter_MrpRmDtMd.GetData(var SqlText,
  IsType: OleVariant);
begin
  If Not ((VarisEmpty(SQlText)) Or (VarisNull(SQlText))
     Or (VarisEmpty(IsType)) Or (VarisNull(IsType))) Then
     SetAbort;   //有一个为空时不能运行
  AdoQry_Main.Close;
  If Not ((VarisEmpty(SQlText)) Or (VarisNull(SQlText))) then
   AdoQry_Main.SQL.Text:=String(SQlText);
  If Not ((VarisEmpty(IsType)) Or (VarisNull(IsType))) then
    If UpperCase(String(IsType))='QUERY' Then
      AdoQry_Main.Open
    else
      AdoQry_Main.ExecSQL;
end;

initialization
  TComponentFactory.Create(ComServer, TFrm_Sys_Enter_MrpRmDtMd,
    Class_Frm_Sys_Enter_MrpRmDtMd, ciMultiInstance, tmApartment);
end.