📄 uadatapacket.pas

📁 基于Midas 技术的多层应用开发包第二版（带开发文档）
💻 PAS
📖 第 1 页 / 共 4 页
字号:

  inherited;
  FRowSheetList := TUAParams.Create;
  FDataSheetList:= TUAParams.Create;
  FMasterLinkList := TUAParams.Create;
  FRequestDataList := TUAParams.Create;
  FAnyParam := TUAParamsList.Create;
  FMustGetRecCount := 0;

end;

destructor TUARequestDataInPacket.Destroy;
begin

  FRowSheetList.Free;
  FDataSheetList.Free;
  FMasterLinkList.Free;
  FRequestDataList.Free;
  FAnyParam.Free;
  inherited;

end;


function TUARequestDataInPacket.GetItemAnyParam(index,
  itemid: integer): TAnyParam;
begin
  Result := TAnyParam( FAnyParam.GetItem(index,itemid) );

end;

function TUARequestDataInPacket.GetItemDataSheet(
  index: Integer): TDataSheetParam;
begin
  Result := TDataSheetParam(FDataSheetList.Items[index]);
end;

function TUARequestDataInPacket.GetItemMasterLink(
  index: Integer): TMasterLinkParam;
begin
  Result := TMasterLinkParam(FMasterLinkList.Items[index]);
end;

function TUARequestDataInPacket.GetItemRequestData(
  index: Integer): TDataRequestParam;
begin
  Result := TDataRequestParam(FRequestDataList.Items[index]);
end;

function TUARequestDataInPacket.GetItemRowSheet(
  index: Integer): TRowSheetParam;
begin
  Result := TRowSheetParam(FRowSheetList.Items[Index]);
end;

function TUARequestDataInPacket.GetUaData: OleVariant;
begin
  Result := VarArrayCreate([0,8], varVariant);
  Result[0] := inherited GetUaData;  Result[1] := FRequestType;  Result[2] := FRequestDataList.UAData;  Result[3] := FMasterLinkList.UAData;  Result[4] := FRowSheetList.UAData;  Result[5] := FDataSheetList.UAData;  Result[6] := FAnyParam.UAData;  Result[7] := FDBConnTag;  Result[8] := FMustGetRecCount;end;
procedure TUARequestDataInPacket.SetDBConnTag(const Value: string);
begin
  FDBConnTag := Value;
end;

procedure TUARequestDataInPacket.SetMustGetRecCount(const Value: integer);
begin
  FMustGetRecCount := Value;
end;

procedure TUARequestDataInPacket.SetRequestType(const Value: Integer);
begin
  FRequestType := Value;
end;

procedure TUARequestDataInPacket.SetUaData(const Value: OleVariant);
begin

  inherited SetUaData(value[0]);
  FRequestType := value[1];  FRequestDataList.UAData := value[2];  FMasterLinkList.UAData := value[3];  FRowSheetList.UAData := value[4];  FDataSheetList.UAData := value[5];  FAnyParam.UAData := value[6];  FDbConnTag := value[7];  FMustGetRecCount := value[8];end;
{ TUARequestDataOutPacket }


procedure TUARequestDataOutPacket.AddItemAnyValue(index: integer;
  aAnyValue: TAnyParam);
begin
  FAnyValue.AddItem(index, aAnyValue);

end;

procedure TUARequestDataOutPacket.AddItemDataSheet(
  aDataSheetParam: TDataSheetParam);
begin
 FDataSheetList.Add(aDataSheetParam);

end;

procedure TUARequestDataOutPacket.AddItemErrorParam(
  aErrorParam: TErrorParam);
begin
  FErrorList.Add(aErrorParam);
end;

procedure TUARequestDataOutPacket.AddItemReturnData(
  aReturnData: TDataReturnParam);
begin
  FReturnDataList.Add(aReturnData);
end;

procedure TUARequestDataOutPacket.AddItemRowSheet(
  aRowSheetParam: TRowSheetParam);
begin
 FRowSheetList.Add(aRowSheetParam);

end;

procedure TUARequestDataOutPacket.ClearAllUaData;
begin
  FRowSheetList.Clear;
  FDataSheetList.Clear;
  FReturnDataList.Clear;
  FErrorList.Clear;
  FAnyValue.Clear;
end;


function TUARequestDataOutPacket.CountAnyValue(index: integer): integer;
var
  aList: TObjectList;begin  if index=-1 then    result := FAnyValue.Count  else    if index>=FAnyValue.Count then      result := -1    else    begin      aList := TObjectList(FAnyValue[index]);      result := aList.Count;    end;
end;

function TUARequestDataOutPacket.CountDataSheet(index: integer): integer;
//var
//  aList: TObjectList;begin  if index=-1 then    result := FDataSheetList.Count  else    result := -1

end;

function TUARequestDataOutPacket.CountErrorParam(index: integer): integer;
//var
//  aList: TObjectList;begin  if index=-1 then    result := FErrorList.Count  else    result := -1

end;

function TUARequestDataOutPacket.CountReturnData(index: integer): integer;
//var
//  aList: TObjectList;begin  if index=-1 then    result := FReturnDataList.Count  else    result := -1
end;

function TUARequestDataOutPacket.CountRowSheet(index: integer): integer;
//var
//  aList: TObjectList;begin  if index=-1 then    result := FRowSheetList.Count  else    result := -1
end;

constructor TUARequestDataOutPacket.Create;
begin
  inherited;
  FRowSheetList := TUAParams.Create;
  FDataSheetList:= TUAParams.Create;
  FReturnDataList := TUAParams.Create;
  FErrorList := TUAParams.Create;
  FAnyValue := TUAParamsList.Create;

end;

destructor TUARequestDataOutPacket.Destroy;
begin

  FRowSheetList.Free;
  FDataSheetList.Free;
  FReturnDataList.Free;
  FErrorList.Free;
  FAnyValue.Free;

  inherited;
end;


function TUARequestDataOutPacket.GetItemAnyValue(index,
  itemid: integer): TAnyParam;
begin
  Result := TAnyParam( FAnyValue.GetItem(index,itemid) );

end;

function TUARequestDataOutPacket.GetItemDataSheet(
  index: Integer): TDataSheetParam;
begin
  Result := TDataSheetParam(FDataSheetList.Items[index]);
end;

function TUARequestDataOutPacket.GetItemErrorParam(
  index: Integer): TErrorParam;
begin
  Result := TErrorParam(FErrorList.Items[index]);
end;

function TUARequestDataOutPacket.GetItemReturnData(
  index: Integer): TDataReturnParam;
begin
  Result := TDataReturnParam(FReturnDataList.Items[index]);

end;

function TUARequestDataOutPacket.GetItemRowSheet(
  index: Integer): TRowSheetParam;
begin
  Result := TRowSheetParam(FRowSheetList.Items[index]);
end;

function TUARequestDataOutPacket.GetResultCode: integer;
begin
  Result := FResultCode;
end;

function TUARequestDataOutPacket.GetUaData: OleVariant;
begin

  Result := VarArrayCreate([0,6], varVariant);
  Result[0] := inherited GetUaData;  Result[1] := FReturnDataList.UAData;  Result[2] := FDataSheetList.UAData;  Result[3] := FRowSheetList.UAData;  Result[4] := FErrorList.UAData;  Result[5] := ResultCode;  Result[6] := FAnyValue.UAData;  end;

procedure TUARequestDataOutPacket.SetResultCode(const Value: integer);
begin
  FResultCode := Value;
end;

procedure TUARequestDataOutPacket.SetUaData(const Value: OleVariant);
begin

  inherited SetUaData(value[0]);
  FReturnDataList.UAData := value[1];  FDataSheetList.UAData := value[2];  FRowSheetList.UAData := value[3];  FErrorList.UAData := value[4];  ResultCode := value[5];  FAnyValue.UAData := value[6];  end;
{ TUAUpdateDataOutPacket }

procedure TUAUpdateDataOutPacket.AddItemAnyValue(index: integer;
  aAnyValue: TAnyParam);
begin
  FAnyValue.AddItem(index, aAnyValue);

end;

procedure TUAUpdateDataOutPacket.AddItemErrorParam(
  aErrorParam: TErrorParam);
begin
  FErrorList.Add(aErrorParam);

end;

procedure TUAUpdateDataOutPacket.ClearAllUaData;
begin
  FErrorList.Clear;
  FAnyValue.Clear;
end;

function TUAUpdateDataOutPacket.CountAnyValue(index: integer): integer;
var
  aList: TObjectList;begin  if index=-1 then    result := FAnyValue.Count  else    if index>=FAnyValue.Count then      result := -1    else    begin      aList := TObjectList(FAnyValue[index]);      result := aList.Count;    end;
end;

function TUAUpdateDataOutPacket.CountErrorParam(index: integer): integer;
//var
//  aList: TObjectList;begin  if index=-1 then    result := FErrorList.Count  else    result := -1

end;

constructor TUAUpdateDataOutPacket.Create;
begin
  inherited;
  FErrorList := TUAParams.Create;
  FAnyValue := TUAParamsList.Create;

end;

destructor TUAUpdateDataOutPacket.Destroy;
begin
  FAnyValue.Free;
  FErrorList.Free;
  inherited;
end;

function TUAUpdateDataOutPacket.GetItemAnyValue(index,
  itemid: integer): TAnyParam;
begin
  Result := TAnyParam( FAnyValue.GetItem(index,itemid) );

end;

function TUAUpdateDataOutPacket.GetItemErrorParam(
  index: Integer): TErrorParam;
begin
  Result := TErrorParam(FErrorList.Items[index]);
end;

function TUAUpdateDataOutPacket.GetResultCode: Integer;
begin
  Result := FResultCode;
end;

function TUAUpdateDataOutPacket.GetUaData: OleVariant;
begin
  Result := VarArrayCreate([0,3], varVariant);
  Result[0] := inherited GetUaData;  Result[1] := FResultCode;  Result[2] := FErrorList.UAData;  Result[3] := FAnyValue.UAData;end;

procedure TUAUpdateDataOutPacket.SetResultCode(const Value: Integer);
begin
  FResultCode := Value;
end;

procedure TUAUpdateDataOutPacket.SetUaData(const Value: OleVariant);
begin

  inherited SetUaData(value[0]);
  FResultCode := value[1];
  FErrorList.UAData := value[2];  FAnyValue.UAData := value[3];end;

{ TUAExecuteDataInPacket }

procedure TUAExecuteDataInPacket.AddItemAnyParam(index: integer;
  aAnyParam: TAnyParam);
begin
  FAnyParam.AddItem(index, aAnyParam);
end;

procedure TUAExecuteDataInPacket.ClearAllUaData;
begin
  FAnyParam.Clear;
end;

function TUAExecuteDataInPacket.CountAnyParam(index: integer): integer;
var
  aList: TObjectList;begin  if index=-1 then    result := FAnyParam.Count  else    if index>=FAnyParam.Count then      result := -1    else    begin      aList := TObjectList(FAnyParam[index]);      result := aList.Count;    end;
end;

constructor TUAExecuteDataInPacket.Create;
begin
  inherited;
  FAnyParam := TUAParamsList.Create;

end;

destructor TUAExecuteDataInPacket.Destroy;
begin
  FAnyParam.Free;
  inherited;
end;

function TUAExecuteDataInPacket.GetItemAnyParam(index,
  itemid: integer): TAnyParam;
begin
  Result := TAnyParam( FAnyParam.GetItem(index,itemid) );
end;

function TUAExecuteDataInPacket.GetUaData: OleVariant;
begin

  Result := VarArrayCreate([0,2], varVariant);
  Result[0] := inherited GetUaData;  Result[1] := FAnyParam.UAData;  Result[2] := FDbConnTag;
end;

procedure TUAExecuteDataInPacket.SetDBConnTag(const Value: string);
begin
  FDBConnTag := Value;
end;

procedure TUAExecuteDataInPacket.SetUaData(const Value: OleVariant);
begin

  inherited SetUaData(value[0]);
  FAnyParam.UAData := value[1];
  FDbConnTag := value[2];
  
end;

{ TUAExecuteDataOutPacket }

procedure TUAExecuteDataOutPacket.AddItemAnyValue(index: integer;
  aAnyValue: TAnyParam);
begin
  FAnyValue.AddItem(index, aAnyValue);

end;

procedure TUAExecuteDataOutPacket.AddItemErrorParam(
  aErrorParam: TErrorParam);
begin
  FErrorList.Add(aErrorParam);

end;

procedure TUAExecuteDataOutPacket.ClearAllUaData;
begin
  FErrorList.Clear;
  FAnyValue.Clear;
end;

function TUAExecuteDataOutPacket.CountAnyValue(index: integer): integer;
var
  aList: TObjectList;begin  if index=-1 then    result := FAnyValue.Count  else    if index>=FAnyValue.Count then      result := -1    else    begin      aList := TObjectList(FAnyValue[index]);      result := aList.Count;    end;
end;

function TUAExecuteDataOutPacket.CountErrorParam(index: integer): integer;
//var
//  aList: TObjectList;begin  if index=-1 then    result := FErrorList.Count  else    result := -1
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -