Запутался в связях (Page 1 of 2)

procedure Print_Button_OnClick (Sender: string; var Cancel: boolean);
var
    frxDBActs, frxDBMyFirm, frxDBCounterparty, frxDBNomenclature, frxDBActsPositions: TfrxDBDataset;
    Acts, MyFirm, Counterparty, Nomenclature, ActsPositions: TDataSet;

begin

SQLQuery('SELECT * FROM Acts WHERE Acts.id ='+ Main.TableGrid1.sqlValue , Acts);
SQLQuery('SELECT * FROM MyFirm', MyFirm);
SQLQuery('SELECT * FROM Counterparty WHERE Counterparty.id ='+ Main.TableGrid1.sqlValue, Counterparty);
SQLQuery('SELECT * FROM Nomenclature WHERE Nomenclature.id ='+ Main.TableGrid1.sqlValue, Nomenclature);
SQLQuery('SELECT * FROM ActsPositions', ActsPositions);

 // create Acts
    frxDBActs := TfrxDBDataset.Create(Acts);
    frxDBActs.UserName        := 'Acts';
    frxDBActs.CloseDataSource := True;
    frxDBActs.OpenDataSource  := True;
    frxDBActs.DataSet         := Acts;

 // create MyFirm
    frxDBMyFirm := TfrxDBDataset.Create(MyFirm);
    frxDBMyFirm.UserName        := 'MyFirm';
    frxDBMyFirm.CloseDataSource := True;
    frxDBMyFirm.OpenDataSource  := True;
    frxDBMyFirm.DataSet         := MyFirm;

 // create Counterparty
    frxDBCounterparty := TfrxDBDataset.Create(Counterparty);
    frxDBCounterparty.UserName        := 'Counterparty';
    frxDBCounterparty.CloseDataSource := True;
    frxDBCounterparty.OpenDataSource  := True;
    frxDBCounterparty.DataSet         := Counterparty;

 // create Nomenclature
    frxDBNomenclature := TfrxDBDataset.Create(Nomenclature);
    frxDBNomenclature.UserName        := 'Nomenclature';
    frxDBNomenclature.CloseDataSource := True;
    frxDBNomenclature.OpenDataSource  := True;
    frxDBNomenclature.DataSet         := Nomenclature;

 // create ActsPositions
    frxDBActsPositions := TfrxDBDataset.Create(ActsPositions);
    frxDBActsPositions.UserName        := 'ActsPositions';
    frxDBActsPositions.CloseDataSource := True;
    frxDBActsPositions.OpenDataSource  := True;
    frxDBActsPositions.DataSet         := ActsPositions;

    Main.frxReport.Clear;
    Main.frxReport.DataSets.Clear;
    Main.frxReport.DataSets.Add(frxDBActs);
    Main.frxReport.DataSets.Add(frxDBCounterparty);
    Main.frxReport.DataSets.Add(frxDBMyFirm);
    Main.frxReport.DataSets.Add(frxDBNomenclature);
    Main.frxReport.DataSets.Add(frxDBActsPositions);


    // DESIGN MODE
    Main.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\rep.fr3');
    Main.frxReport.DesignReport;

    frxDBActs.Free;
    frxDBMyFirm.Free;
    frxDBCounterparty.Free;
    frxDBNomenclature.Free;
    frxDBActsPositions.Free;

end;

procedure RoundedMemo_Create(AMemo: TdbMemo);
// создание
// если в свойстве TEXT указать NOFRAME, то отображение будет без рамки; COPY_TO_CLIPBOARD - добавляет кнопку копирования в буфер обмена
var
  s: TShape;
  tmpLabel: TdbLabel;
  tmpLabelLimit: TdbLabel;
  tmpForm: TAForm;
  tmpName: string;
  tmpImage: TdbImage;
  tmpImageName: string;
  tmpPanel: TdbPanel;
  tmpParam: array of string; // параметры
  tmpBPanel: TdbPanel;
  i: integer;
begin
  tmpParam := SplitString(AMemo.Text, '%');
  AMemo.Text := '';
  CForm(AMemo, tmpForm);
  tmpName := DeleteClassName(AMemo.Name);
  // панель - подложка
  tmpPanel := TdbPanel.Create(tmpForm);
  tmpPanel.Name := T_PANEL + tmpName + SX_BACK;
  tmpPanel.Caption := '';
  tmpPanel.Parent := AMemo.Parent;
  tmpPanel.BevelWidth := 0;
  tmpPanel.Top := AMemo.Top;
  tmpPanel.Left := AMemo.Left;
  tmpPanel.Width := AMemo.Width;
  tmpPanel.Height := AMemo.Height;
  tmpPanel.Anchors := AMemo.Anchors;
  // пересаживаем на неЄ мемку
  AMemo.Parent := tmpPanel;
  AMemo.Top := 0;
  AMemo.Left := 0;
  //
  AMemo.BorderStyle := bsNone;
  SetFont(AMemo.Font, FORM_TEXT_SIZE);
  if (Length(tmpParam) = 1) and (tmpParam[0] = 'NOFRAME') then
  begin // нет рамки и надписи - используетс¤ дл¤ отображени¤ на панели
    AMemo.TagString := 'NOFRAME'
  end
  else
  begin
    // красивая рамка состоит из 10-ти элементов
    // верхний левый угол
    s := TShape.Create(tmpForm);
    s.Name := T_SHAPE + tmpName + SX_TOP_LEFT;
    s.Parent := tmpPanel;
    s.Shape := stCircle;
    s.Top := 0;
    s.Left := 0;
    s.Height := RP_SIZE;
    s.Width := RP_SIZE;
    s.Anchors := akTop + akLeft;
    // верхний правй угол
    s := TShape.Create(tmpForm);
    s.Name := T_SHAPE + tmpName + SX_TOP_RIGHT;
    s.Parent := tmpPanel;
    s.Shape := stCircle;
    s.Top := 0;
    s.Left := tmpPanel.Width - RP_SIZE;
    s.Height := RP_SIZE;
    s.Width := RP_SIZE;
    s.Anchors := akTop + akRight;
    // нижний левый угол
    s := TShape.Create(tmpForm);
    s.Name := T_SHAPE + tmpName + SX_BOTTOM_LEFT;
    s.Parent := tmpPanel;
    s.Shape := stCircle;
    s.Top := AMemo.Height - RP_SIZE;
    s.Left := 0;
    s.Height := RP_SIZE;
    s.Width := RP_SIZE;
    s.Anchors := akBottom + akLeft;
    // нижний правый угол
    s := TShape.Create(tmpForm);
    s.Name := T_SHAPE + tmpName + SX_BOTTOM_RIGHT;
    s.Parent := tmpPanel;
    s.Shape := stCircle;
    s.Top := tmpPanel.Height - RP_SIZE;
    s.Left := tmpPanel.Width - RP_SIZE;
    s.Height := RP_SIZE;
    s.Width := RP_SIZE;
    s.Anchors := akBottom + akRight;
    // горизонтальна¤ полоска
    s := TShape.Create(tmpForm);
    s.Name := T_SHAPE + tmpName + SX_HORIZ;
    s.Parent := tmpPanel;
    s.Shape := stRectangle;
    s.Top := RP_SIZE div 2;
    s.Left := 0;
    s.Height := tmpPanel.Height - RP_SIZE;
    s.Width := tmpPanel.Width;
    s.Anchors := akBottom + akRight + akTop + akLeft;
    // вертикальна¤ полоска
    s := TShape.Create(tmpForm);
    s.Name := T_SHAPE + tmpName + SX_VERT;
    s.Parent := tmpPanel;
    s.Shape := stRectangle;
    s.Top := 0;
    s.Left := RP_SIZE div 2;
    s.Height := tmpPanel.Height;
    s.Width := tmpPanel.Width - RP_SIZE;
    s.Anchors := akBottom + akRight + akTop + akLeft;
    // верхн¤¤ горизонтальна¤ лини¤
    s := TShape.Create(tmpForm);
    s.Name := T_SHAPE + tmpName + SX_TOP;
    s.Parent := tmpPanel;
    s.Shape := stRectangle;
    s.Top := 0;
    s.Left := RP_SIZE div 2;
    s.Height := 1;
    s.Width := tmpPanel.Width - RP_SIZE;
    s.Anchors := akRight + akTop + akLeft;
    // нижн¤¤ горизонтальна¤ лини¤
    s := TShape.Create(tmpForm);
    s.Name := T_SHAPE + tmpName + SX_BOTTOM;
    s.Parent := tmpPanel;
    s.Shape := stRectangle;
    s.Top := tmpPanel.Height - 1;
    s.Left := RP_SIZE div 2;
    s.Height := 1;
    s.Width := tmpPanel.Width - RP_SIZE;
    s.Anchors := akBottom + akRight + akLeft;
    // лева¤ вертикальна¤ лини¤
    s := TShape.Create(tmpForm);
    s.Name := T_SHAPE + tmpName + SX_LEFT;
    s.Parent := tmpPanel;
    s.Shape := stRectangle;
    s.Top := RP_SIZE div 2;
    s.Left := 0;
    s.Height := tmpPanel.Height - RP_SIZE;
    s.Width := 1;
    s.Anchors := akBottom + akTop + akLeft;
    // права¤ вертикальна¤ лини¤
    s := TShape.Create(tmpForm);
    s.Name := T_SHAPE + tmpName + SX_RIGHT;
    s.Parent := tmpPanel;
    s.Shape := stRectangle;
    s.Top := RP_SIZE div 2;
    s.Left := tmpPanel.Width - 1;
    s.Height := tmpPanel.Height - RP_SIZE;
    s.Width := 1;
    s.Anchors := akBottom + akRight + akTop;
    // надпись
    tmpLabel := TdbLabel.Create(tmpForm);
    tmpLabel.Name := T_LABEL + tmpName + SX_CAPTION;
    tmpLabel.Parent := tmpPanel.Parent;
    tmpLabel.Alignment := taLeftJustify;
    tmpLabel.Caption := AMemo.Hint;
    //
    if isRequiredMark(tmpLabel.Caption) then
      tmpLabel.Tag := TG_REQUIRED_FIELD;
    //
    tmpLabel.Top := tmpPanel.Top - tmpLabel.Height - 10; // - 2
    tmpLabel.Left := tmpPanel.Left; // AEdit.Left;

    SetFont(tmpLabel.Font, EDIT_CAPTION_FONT_SIZE);
    if (Length(tmpParam) = 2) and (tmpParam[0] = 'CHECK_LENGTH') then
    begin
      // добавляем контрол отображения лимита
      tmpLabelLimit := TdbLabel.Create(tmpForm);
      tmpLabelLimit.Name := T_LABEL + tmpName + SX_TOP_RIGHT;
      // лимит храним в теге
      tmpLabelLimit.Tag := StrToInt(tmpParam[1]);
      tmpLabelLimit.Parent := tmpPanel.Parent;
      tmpLabelLimit.Alignment := taRightJustify;
      tmpLabelLimit.Anchors := AMemo.Anchors;
      tmpLabelLimit.Autosize := False;
      SetFont(tmpLabelLimit.Font, EDIT_CAPTION_FONT_SIZE);
      // положение на экране
      tmpLabelLimit.Top := tmpLabel.Top;
      tmpLabelLimit.Left := tmpLabel.Left;
      tmpLabelLimit.Height := tmpLabel.Height;
      tmpLabelLimit.Width := tmpPanel.Width;
      // обработчик на изменение данных
      AMemo.OnChange := @RoundedMemo_CheckLimit;
      RoundedMemo_CheckLimit(AMemo);
    end;
    // коррекци¤ по ширине
    AMemo.Width := AMemo.Width - 16;
    AMemo.Height := AMemo.Height - 16;
    AMemo.Left := AMemo.Left + 8;
    AMemo.Top := AMemo.Top + 8;
    // положение на экране

    for i := 0 to Length(tmpParam) - 1 do
    begin
      if tmpParam[i] = 'COPY_TO_CLIPBOARD' then
      begin
        // добавляем панель с кнопкой правее основной панели
        tmpBPanel := TdbPanel.Create(tmpForm);
        tmpBPanel.Name := T_PANEL + tmpName + SX_BUTTON_PANEL;
        tmpBPanel.Caption := '';
        tmpBPanel.Parent := tmpPanel.Parent;
        tmpBPanel.BevelWidth := 0;
        //
        tmpBPanel.Height := 33; // уточнить
        tmpBPanel.Top := tmpPanel.Top + tmpPanel.Height - tmpBPanel.Height;
        tmpBPanel.Width := tmpBPanel.Height;
        tmpBPanel.Left := tmpPanel.Left + tmpPanel.Width - tmpBPanel.Width;
        // коррктировка ширины основной панели
        tmpPanel.Width := tmpPanel.Width - tmpBPanel.Width - 4;
        tmpBPanel.Tag := 1; // признак наличия кноки
        // якоря зависят от якорей основной панели
        if tmpPanel.Anchors AND akRight then
          tmpBPanel.Anchors := akRight
        else
          tmpBPanel.Anchors := akLeft;
        //
        if tmpPanel.Anchors AND akBottom then
          tmpBPanel.Anchors := tmpBPanel.Anchors + akBottom
        else
          tmpBPanel.Anchors := tmpBPanel.Anchors + akTop;
        // добавляем кнопку
        tmpBPanel.TagString := 'CopyToClipboard';
        PanelButton_Create('CopyToClipboard', tmpBPanel, -1, 'RoundedMemo_CopyToClipboard',
          'Скопировать текст в буффер обмена');
        break;
      end;
    end;

  end;
end;

(SELECT printf('%,.2f', SUM(TovarMain.CenaTovarItem * TovarMain.KolvoTovara)) AS Total 
FROM TovarMain                   
WHERE TovarMain.id_kp = kp.id)