dmsysoperator.pas

来自「非常地全面完整的物流供应链管理系统 包含全部的需求文档」· PAS 代码 · 共 52 行

unit dmSysOperator;

interface

uses
  SysUtils, Classes, DB, DBClient, MConnect, ObjBrkr, SConnect;

type
  TSysOperatorDM = class(TDataModule)
    SocketConSysOperator: TSocketConnection;
    cdsSysOperator: TClientDataSet;
    cdsPerMaster: TClientDataSet;
    cdsEmployee: TClientDataSet;
    SocketConQuery: TSocketConnection;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure cdsSysOperatorFilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SysOperatorDM: TSysOperatorDM;

implementation
uses untConfig, StrUtils;
{$R *.dfm}

procedure TSysOperatorDM.DataModuleCreate(Sender: TObject);
begin
  SetSocketConnectionConnect(SocketConSysOperator);
  SetSocketConnectionConnect(SocketConQuery);
end;

procedure TSysOperatorDM.DataModuleDestroy(Sender: TObject);
begin
  SocketConSysOperator.Close;
  SocketConQuery.Close;
end;

procedure TSysOperatorDM.cdsSysOperatorFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  Accept := (MidStr(DataSet.FieldByName('EmployeeId').AsString,3,3)
             = RightStr(GetOrderDepartId,3));
end;

end.