unit U_FormLayOutDesign;
interface
uses
  Windows, SysUtils, Messages, Classes, Controls, StdCtrls, ComCtrls, Forms,
  ExtCtrls, ComObj, DXCORE, ActiveX, cxMemo, cxButtons, Graphics, IniFiles,
  Dialogs, Menus, DB, ADODB, cxLabel, BtnEdit, RTComboBox, cxTextEdit, cxMRUEdit,
  cxDBData, cxGridLevel, cxButtonEdit, cxCurrencyEdit, cxGridTableView, cxGrid,
  cxGridCustomTableView, cxGraphics, cxCalendar, cxCheckBox, cxGridDBTableView,StrUtils,
  cxGridDBBandedTableView, cxStyles, cxPc, cxGroupBox,  dxLayoutContainer, U_dataLink,
  cxCustomData, cxClasses, cxTimeEdit, cxEdit, cxLookAndFeels, dxLayoutControl,
  cxLookAndFeelPainters, cxGridCustomView, Buttons, cxDropDownEdit,dxSkinsCore, dxSkinWXI,dxSkinsDefaultPainters;


//function saveLayOut(dxLayoutControl1:TdxLayoutControl; ADOCmd: TADOQuery;mdesignCode:string):Boolean;
function readLayOut(dxLayoutControl1:TdxLayoutControl; ADOTmp: TADOQuery;mdesignCode:string):Boolean;
//function mustInCheck(dxLayoutControl1:TdxLayoutControl ;textFlag:string='*'):Boolean;
procedure SetFormOperRight(app:Tapplication;mParent: TwinControl; mRightCaptions: PWideChar)stdcall;external 'rtCommon.dll' Name 'SetFormOperRight_A';
function getSystemFontSize(ADOTmp: TADOQuery;mStyleCode:PWideChar): Integer;stdcall;external 'rtCommon.dll' Name 'getSystemFontSize_A';
function mustInCheck(app:Tapplication;dxLayoutControl1:TdxLayoutControl;textFlag:PWideChar):boolean;stdcall;external 'rtCommon.dll' Name 'mustInCheck_A';
function isHasDesignRight(ADOTmp: TADOQuery;userId:PWideChar): boolean;stdcall;external 'rtCommon.dll' Name 'isHasDesignRight_A';
function isUseSkin(): boolean;stdcall;external 'rtCommon.dll' Name 'isUseSkin_A';
function isGridNativeSet(): boolean;stdcall;external 'rtCommon.dll' Name 'isGridNativeSet_A';
//function readLayOut(app:Tapplication;dxLayoutControl1:TdxLayoutControl; ADOTmp: TADOQuery;mdesignCode:PWideChar):integer;stdcall;external 'rtCommon.dll' Name 'readLayOut_A';
function saveLayOut(app:Tapplication;dxLayoutControl1:TdxLayoutControl; ADOCmd: TADOQuery;mdesignCode:PWideChar):integer;stdcall;external 'rtCommon.dll' Name 'saveLayOut_A';
procedure layoutDesign(dxLayoutControl1:TdxLayoutControl;ADOTmp: TADOQuery;userId:PWideChar )stdcall;external 'rtCommon.dll' Name 'layoutDesign_A';
procedure SetShowModalHide(mHandle:Thandle;form:Tform)stdcall;external 'rtCommon.dll';
procedure InitStyleData( StyleRepository:TcxStyleRepository;mFontSize:integer);
function GetsysParam(AdoTmp:Tadoquery;StyleRepository:TcxStyleRepository;muserId: pchar; fparam1: pchar): Boolean;
procedure addQryCondition1(Application:Tapplication;AdoTmp:Tadoquery;Panel_zdy:Tpanel;layOut: TdxLayoutControl;mdesignCode:PWideChar;rowCount:integer=4)stdcall;external 'rtCommon.dll' Name 'addQryCondition';
procedure addQryCondition( AdoTmp:Tadoquery;formId:Integer;gridName:string;FlowPanel1:TFlowPanel;rowCount:integer=4);
procedure addQryContionByLay(AdoTmp:Tadoquery;formId:Integer;gridName:string;layOut:TdxLayoutControl;rowCount:integer=4);
procedure initWinData(AdoTmp:TadoQuery;obj:TwinControl;sqlStr:string);
function GetProcedureParam(layoutControl: TdxLayoutControl; EquTag: Integer=0): string;
procedure getSystemIni();
implementation
uses
  U_globalVar;

//
function readLayOut(dxLayoutControl1:TdxLayoutControl; ADOTmp: TADOQuery;mdesignCode:string):Boolean;
var
  LayoutStream: TMemoryStream;
begin
  LayoutStream := TMemoryStream.Create;
  try
    dxLayoutControl1.BeginUpdate  ;
    with ADOTmp do
    begin
      close;
      sql.Clear;
      sql.Add('select A.* ');
      sql.Add('from SD_Design_FormLayout A');
      sql.Add('where A.designCode=' + quotedStr(mdesignCode));
      open;

      if RecordCount>0 then
      begin
        TBlobField(FieldByName('fileContent')).SaveToStream(LayoutStream) ;
        LayoutStream.Seek(0,soFromBeginning);
        dxLayoutControl1.LoadFromStream(LayoutStream);
      end;
      Close;
    end;
  finally
    dxLayoutControl1.EndUpdate();
    LayoutStream.Free; // 释放内存流
  end;
end;

 //必须输入控制
// function  mustInCheck(dxLayoutControl1:TdxLayoutControl ;textFlag:string='*'):Boolean;
// var
//   i:integer;
//   j:Integer;
//   mcatpion:string;
//   layGroup:TdxLayoutGroup;
// begin
//   result:=false;
//   for I := 0 to dxLayoutControl1.Items.Count-1 do
//   begin
//   // mcatpion:= TdxLayoutItem(dxLayoutControl1.Controls[i].Parent).caption ;
//   // if pos(textFlag, mcatpion)>=0 then
//   // begin
//       // ShowMessage(dxLayoutControl1.Items[i].name);
//   // end;
//
//   if dxLayoutControl1.Items[i]  is TdxLayoutGroup then
//   begin
//     layGroup := TdxLayoutGroup( dxLayoutControl1.Items[i]) ;
//     for j := 0 to layGroup.Count -1 do
//     begin
//      // ShowMessage(layGroup.items[j].name);
//      mcatpion:= TdxLayoutItem(layGroup.items[j]).Caption ;
//     if pos(textFlag, mcatpion)>0 then
//     begin
//        if TdxLayoutItem(layGroup.items[j]).Control is TcxTextEdit then
//        begin
//          if Trim(TcxTextEdit(TdxLayoutItem(layGroup.items[j]).Control).Text) ='' then
//          begin
//          //
//            mcatpion:=StringReplace(mcatpion,'[COLOR=#FF0000]*[/COLOR]','',[]);
//            TcxTextEdit(TdxLayoutItem(layGroup.items[j]).Control).TextHint:='请输入数据！';
//            TcxTextEdit(TdxLayoutItem(layGroup.items[j]).Control).SetFocus;
//            ShowMessage('【'+mcatpion+'】,数据不能为空!');
//
//             exit ;
//          end;
//          continue;
//        end;
//        //
//         if TdxLayoutItem(layGroup.items[j]).Control is TcxButtonEdit then
//        begin
//          if Trim(TcxButtonEdit(TdxLayoutItem(layGroup.items[j]).Control).Text) ='' then
//          begin
//          //
//            mcatpion:=StringReplace(mcatpion,'[COLOR=#FF0000]*[/COLOR]','',[]);
//           // TcxButtonEdit(TdxLayoutItem(layGroup.items[j]).Control).TextHint:='请输入数据！';
//            TcxButtonEdit(TdxLayoutItem(layGroup.items[j]).Control).SetFocus;
//            ShowMessage('【'+mcatpion+'】,数据不能为空!');
//
//             exit ;
//          end;
//          continue;
//        end;
//
//     end;
//     end;
//
//   end;
//
//   end;
//   result:=true;
// end;

 ////////////////////////////////////
 procedure InitStyleData( StyleRepository:TcxStyleRepository;mFontSize:integer);
 var
   i:integer;
 begin
   if mFontSize<9 then   mFontSize:=9;

  for i := 0 to StyleRepository.Count-1 do
  begin
    TcxStyle( StyleRepository.Items[i] ).Font.Size:=mFontSize;
  end;
 end;

 ///
 function GetsysParam(AdoTmp:Tadoquery;StyleRepository:TcxStyleRepository;muserId: pchar; fparam1: pchar): Boolean;
 var
   i:integer;
begin
  result := true;
  //////////////////////////////
//  shortDateFormat := 'yyyy-MM-dd';
  //服务器日期
  with AdoTmp do
  begin
    close;
    sql.Clear;
    sql.Add('select getDate()as dt');
    open;
    DServerDate := fieldByName('dt').AsDatetime;
  end;
  gFontSize:= getSystemFontSize(AdoTmp,PWideChar('01'));

  for i := 0 to StyleRepository.Count-1 do
  begin
    if gFontSize>=9 then
      TcxStyle( StyleRepository.Items[i] ).Font.Size:=gFontSize;
  end;
  result := true;
end;

procedure addQryCondition( AdoTmp:Tadoquery;formId:Integer;gridName:string;FlowPanel1:TFlowPanel;rowCount:integer=4);
var
  i,k:integer;
  textEdit:TcxTextEdit;
  combox:TcxCombobox;
  cxDateEdit:TcxDateEdit;
  cxButtonEdit:TcxButtonEdit;
  lable:Tlabel;
  rows:integer;
  mwidth:integer;
  mdesignCode :String;
begin
  mdesignCode := fDllFileName +'|'+FlowPanel1.Parent.name+ '|' + intTostr(formId) + '|' + gridName;
  mwidth:=FlowPanel1.Width div rowCount ;
  FlowPanel1.AutoSize:=true;

    with AdoTmp do begin close;
      sql.Clear;
      sql.Add('select A.* ');
      sql.Add('from SD_FormGrid_Design A');
      sql.Add('where A.designCode=' + quotedStr(mdesignCode));
      sql.Add('and columnQuery=1');
      sql.Add('order by queryControlOrder');
      open;
      if isEmpty then
      begin
        exit;
      end;
    end;

  AdoTmp.First;
  while not AdoTmp.eof do
  begin
    if FlowPanel1.Parent.FindComponent(trim(AdoTmp.FieldByName('fieldName').AsString))<>nil then
    begin
      AdoTmp.next;
      continue;
    end;
    lable:=Tlabel.Create(nil);
    lable.Alignment:=taCenter;
    lable.AlignWithMargins:=true;

    lable.Caption:=trim(AdoTmp.FieldByName('caption').AsString)+'';
    lable.Parent:=FlowPanel1 ;

    if trim(AdoTmp.FieldByName('queryControlType').AsString)='combox' then
    begin
      combox:= TcxCombobox.Create(nil);
      combox.Name:= trim(AdoTmp.FieldByName('fieldName').AsString);
      combox.Text:='';
      combox.Parent:=  FlowPanel1 ;
      combox.AlignWithMargins:=true;
      combox.Width:= mwidth - lable.Width - mwidth div rowCount;
      //
      if trim(AdoTmp.FieldByName('sqlStr').AsString)<>'' then
        initWinData(AdoTmp,combox,trim(AdoTmp.FieldByName('sqlStr').AsString));
    end
    else if trim(AdoTmp.FieldByName('queryControlType').AsString)='date' then
    begin
      cxDateEdit:= TcxDateEdit.Create(nil);
      cxDateEdit.Name:= trim(AdoTmp.FieldByName('fieldName').AsString);
      cxDateEdit.Date:=date();
      cxDateEdit.Properties.ShowTime:=false;
      cxDateEdit.Parent:=  FlowPanel1 ;
      cxDateEdit.AlignWithMargins:=true;
      cxDateEdit.Width:= mwidth - lable.Width - mwidth div rowCount;
    end
    else if trim(AdoTmp.FieldByName('queryControlType').AsString)='buttonedit' then
    begin
      cxButtonEdit:= TcxButtonEdit.Create(nil);
      cxButtonEdit.Name:= trim(AdoTmp.FieldByName('fieldName').AsString);
      cxButtonEdit.Text:='';
      cxButtonEdit.Parent:=  FlowPanel1 ;
      cxButtonEdit.AlignWithMargins:=true;
      cxButtonEdit.Width:= mwidth - lable.Width - mwidth div rowCount;
    end
    else
    begin
      textEdit:= TcxTextEdit.Create(nil);
      textEdit.Name:= trim(AdoTmp.FieldByName('fieldName').AsString);
      textEdit.Text:='';
      textEdit.Parent:=  FlowPanel1 ;
      textEdit.AlignWithMargins:=true;
      textEdit.Width:= mwidth - lable.Width - mwidth div rowCount;
    end;


    AdoTmp.Next ;
  end;
end;

///////////////////////////////////////////////////////
procedure addQryContionByLay(AdoTmp:Tadoquery;formId:Integer;gridName:string;layOut:TdxLayoutControl;rowCount:integer=4);
var
  ALayoutGroup: TdxLayoutGroup;
  ALayoutGroup1: TdxLayoutGroup;
  ALayoutItem: TdxLayoutItem;
  itemGroup: TdxCustomLayoutItem  ;
  textEdit:TcxTextEdit;
  combox:TcxCombobox;
  cxDateEdit:TcxDateEdit;
  cxButtonEdit:TcxButtonEdit;
  cxCheckBox:TcxCheckBox;
  mwidth,i,j,cnt:integer;
  mdesignCode :String;
begin

  mdesignCode := fDllFileName +'|'+layOut.Parent.name+ '|' + intTostr(formId) + '|' + gridName;

  layOut.BeginUpdate;  // Postpones updates
  try
    with AdoTmp do begin close;
      sql.Clear;
      sql.Add('select A.* ');
      sql.Add('from SD_FormGrid_Design A');
      sql.Add('where A.designCode=' + quotedStr(mdesignCode));
      sql.Add('and columnQuery=1');
      sql.Add('order by queryControlOrder');
      open;
      if isEmpty then
      begin
        exit;
      end;
    end;
      // Creates a child group within the root group
    for  i := 0 to layOut.Items.Count - 1 do
    begin
       itemGroup := layOut.Items[i];
      // 检查项是否是组
      if itemGroup is TdxLayoutGroup then
      begin
         ALayoutGroup:= TdxLayoutGroup(itemGroup);
         break;
      end;

    end;
    //
    if (ALayoutGroup=nil) or (ALayoutGroup.Count> rowCount) then
      ALayoutGroup := TdxLayoutGroup(layOut.CreateGroup(nil, layOut.Items));
    ALayoutGroup.LayoutDirection:=ldHorizontal;
    ALayoutGroup.Hidden:=true;
   // ALayoutGroup.Name:='zdygroup1';
    ALayoutGroup.CaptionOptions.Text := ''; // Specifies the group caption
    ALayoutGroup.Padding.Top:=-5;
    //
    AdoTmp.First;
    cnt:=1;
    while not AdoTmp.eof do
    begin
      if layOut.Parent.FindComponent(trim(AdoTmp.FieldByName('fieldName').AsString))<>nil then
      begin
        AdoTmp.next;
        continue;
      end;

      ALayoutItem:= TdxLayoutItem( layOut.FindItem('item_'+trim(AdoTmp.FieldByName('fieldName').AsString))) ;


    if cnt mod  rowCount=0 then
    begin
      ALayoutGroup:=TdxLayoutGroup(layOut.CreateGroup(nil, layOut.Items));
      ALayoutGroup.LayoutDirection:=ldHorizontal;
      ALayoutGroup.Hidden:=true;
      ALayoutGroup.CaptionOptions.Text := '';
     // ALayoutGroup.Padding.Top:=5;
      ALayoutGroup.Offsets.Top:=5;
    end;

    if trim(AdoTmp.FieldByName('queryControlType').AsString)='combox' then
    begin
      combox:= TcxCombobox.Create(nil);
      combox.Name:= trim(AdoTmp.FieldByName('fieldName').AsString);
      combox.Text:='';
      combox.Style.Font.Size:=gFontSize;
      combox.AlignWithMargins:=true;
      combox.TabOrder:=cnt;
      combox.tag:=2;
      //
      if trim(AdoTmp.FieldByName('sqlStr').AsString)<>'' then
        initWinData(AdoTmp,combox,trim(AdoTmp.FieldByName('sqlStr').AsString));

      if ALayoutItem=nil then
        ALayoutItem := TdxLayoutItem(layOut.CreateItem);
      ALayoutItem.Control := combox;
      ALayoutItem.CaptionOptions.Text:=trim(AdoTmp.FieldByName('caption').AsString) ;
      ALayoutItem.Parent := ALayoutGroup;
      ALayoutItem.Name:= 'item_'+trim(AdoTmp.FieldByName('fieldName').AsString) ;

    end
    else if trim(AdoTmp.FieldByName('queryControlType').AsString)='checkBox' then
    begin
      cxCheckBox:= TcxCheckBox.Create(nil);
      cxCheckBox.Name:= trim(AdoTmp.FieldByName('fieldName').AsString);
      cxCheckBox.AlignWithMargins:=true;
      cxCheckBox.Style.Font.Size:=gFontSize;
      cxCheckBox.Caption:= trim(AdoTmp.FieldByName('caption').AsString) ;
      cxCheckBox.TabOrder:=cnt;
      cxCheckBox.Tag:=99;
      //
      if ALayoutItem=nil then
        ALayoutItem := TdxLayoutItem(layOut.CreateItem);
      ALayoutItem.Control := cxCheckBox;
      ALayoutItem.CaptionOptions.Text:='';//trim(AdoTmp.FieldByName('caption').AsString) ;
      ALayoutItem.Parent := ALayoutGroup;
      ALayoutItem.Name:= 'item_'+trim(AdoTmp.FieldByName('fieldName').AsString) ;

    end
    else if trim(AdoTmp.FieldByName('queryControlType').AsString)='date' then
    begin
      cxDateEdit:= TcxDateEdit.Create(nil);
      cxDateEdit.Name:= trim(AdoTmp.FieldByName('fieldName').AsString);
      cxDateEdit.Date:=date();
      cxDateEdit.Properties.ShowTime:=false;
      cxDateEdit.AlignWithMargins:=true;
      cxDateEdit.Style.Font.Size:=gFontSize;
      cxDateEdit.TabOrder:=cnt;
      //
      if ALayoutItem=nil then
        ALayoutItem := TdxLayoutItem(layOut.CreateItem);
      ALayoutItem.Control := cxDateEdit;
      ALayoutItem.CaptionOptions.Text:=trim(AdoTmp.FieldByName('caption').AsString) ;
      ALayoutItem.Parent := ALayoutGroup;
      ALayoutItem.Name:= 'item_'+trim(AdoTmp.FieldByName('fieldName').AsString) ;

    end
    else if trim(AdoTmp.FieldByName('queryControlType').AsString)='buttonedit' then
    begin
      cxButtonEdit:= TcxButtonEdit.Create(nil);
      cxButtonEdit.Name:= trim(AdoTmp.FieldByName('fieldName').AsString);
      cxButtonEdit.Text:='';
      cxButtonEdit.AlignWithMargins:=true;
      cxButtonEdit.Style.Font.Size:=gFontSize;
      cxButtonEdit.TabOrder:=cnt;
      cxButtonEdit.tag:=2;

      //
      if ALayoutItem=nil then
        ALayoutItem := TdxLayoutItem(layOut.CreateItem);
      ALayoutItem.Control := cxButtonEdit;
      ALayoutItem.CaptionOptions.Text:=trim(AdoTmp.FieldByName('caption').AsString) ;
      ALayoutItem.Parent := ALayoutGroup;
      ALayoutItem.Name:= 'item_'+trim(AdoTmp.FieldByName('fieldName').AsString) ;

    end
    else
    begin
      textEdit:= TcxTextEdit.Create(nil);
      textEdit.Name:= trim(AdoTmp.FieldByName('fieldName').AsString);
      textEdit.Text:='';
      textEdit.AlignWithMargins:=true;
      textEdit.Style.Font.Size:=gFontSize;
      textEdit.TabOrder:=cnt;
      textEdit.tag:=2;

      //
      if ALayoutItem=nil then
        ALayoutItem := TdxLayoutItem(layOut.CreateItem);
      ALayoutItem.Control := textEdit;
      ALayoutItem.CaptionOptions.Text:=trim(AdoTmp.FieldByName('caption').AsString) ;
      ALayoutItem.Parent := ALayoutGroup;
      ALayoutItem.Name:= 'item_'+trim(AdoTmp.FieldByName('fieldName').AsString) ;
    end;

    inc(cnt);

    AdoTmp.Next ;
  end;
  //



    for  i := 0 to layOut.Items.Count - 1 do
    begin
       itemGroup := layOut.Items[i];
      // 检查项是否是组
      if itemGroup is TdxLayoutGroup then
      begin
         ALayoutGroup:= TdxLayoutGroup(itemGroup);

         for j := ALayoutGroup.VisibleCount-1 downto 0 do
         begin
           if ALayoutGroup.VisibleItems[j] is TdxLayoutItem then
           begin
             if TdxLayoutItem( ALayoutGroup.VisibleItems[j] ).Control=nil then
                ALayoutGroup.VisibleItems[j].Visible:=false;
           end;
         end;

      end;

    end;


  finally
    layOut.EndUpdate;  // Resumes updates, even if an exception occurs
    if  layout.Items.VisibleCount=0  then   layout.Visible:=false;
  end;
end;

////////////////////////////////////////////////////////
procedure initWinData(AdoTmp:TadoQuery;obj:TwinControl;sqlStr:string);
var
  ado1:TadoQuery;
begin
   try
      ado1:=TadoQuery.Create(nil);
      ado1.Connection:= AdoTmp.Connection;
      with ado1 do
      begin
        close;
        sql.Clear;
        sql.add(sqlStr);
        open;
        if RecordCount>0 then
        begin
          if obj is TcxCombobox then
          begin
             while not Eof do
             begin
               TcxCombobox(obj).Properties.Items.Add(trim(fields[0].AsString));
               next;
             end;
          end;
          close;
        end;
      end;
   finally
      ado1.Free;
   end;
end;

//
/// /////////////////////////////////////////
/// /************获取存储过程参数***********/////
/// /////////////////////////////////////////
function GetProcedureParam(layoutControl: TdxLayoutControl; EquTag: Integer=0): string;
var
  i, j, k: Integer;
  mControl:TControl;
begin
  Result := '';
  with layoutControl do
  begin
    for i := 0 to layoutControl.ControlCount -1 do
    begin
      mControl:=layoutControl.Controls[i];
      if  layoutControl.FindItem(mControl) =nil then continue;
      if not layoutControl.FindItem(mControl).Visible  then  continue;

      if mControl is TLabel or (mControl.Tag=99) then
        continue;

      if mControl is TcxTextEdit then
      begin
          Result := Result  + ',@'+mControl.Name + '=' + quotedStr(Trim(TcxTextEdit(mControl).Text)) ;
      end
      else if mControl is TcxButtonEdit then
      begin
        if Trim(TBtnEditC(mControl).TxtCode) <> '' then
        begin
            Result := Result + ',@' + mControl.Name + '=' + quotedStr(Trim(TBtnEditC(mControl).TxtCode)) ;

        end
        else
        begin
            Result := Result + ',@' + mControl.Name + '=' + quotedStr(Trim(TBtnEditC(mControl).Text)) ;
        end;
      end

      else if mControl is TcxComboBox then
      begin
          Result := Result + ',@' + mControl.Name + '=' + quotedStr(Trim(TcxComboBox(mControl).Text)) ;

      end
       else if mControl is TcxCheckBox then
      begin
        if TcxCheckBox(mControl).Checked then
          Result := Result + ',@' + mControl.Name + '=1'
        else
          Result := Result + ',@' + mControl.Name + '=0' ;

      end
    end;
  end;
  if Trim(Result) <> '' then
    Result := Trim(RightStr(Result, Length(Result) - 1));
end;

/////////////////////////////////////////////////////////
//
procedure getSystemIni();
var
  programIni: Tinifile;  //配置文件名
  FileName: string;
begin
  FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
  if not FileExists(FileName) then
    exit;

  try
    programIni := Tinifile.create(FileName);
    gIsUseSkin := programIni.ReadBool('窗口设置', 'skin',true);
    gIsCanDesign := programIni.ReadBool('窗口设置', 'design',false);
    gGridNativeSet := programIni.ReadBool('窗口设置', 'grid',true);
    gfontSize := programIni.ReadInteger('窗口设置', '字体大小', 12);
    gfontName := programIni.ReadString('窗口设置', '字体名称', '');
  finally
    programIni.Free;
  end;
end;

end.