159 lines
5.9 KiB
ObjectPascal
159 lines
5.9 KiB
ObjectPascal
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,
|
||
cxGridDBBandedTableView, cxStyles, cxPc, cxGroupBox, dxLayoutContainer,
|
||
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 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';
|
||
implementation
|
||
|
||
|
||
//function saveLayOut(dxLayoutControl1:TdxLayoutControl; ADOCmd: TADOQuery;mdesignCode:string):Boolean;
|
||
//var
|
||
// LayoutStream: TMemoryStream;
|
||
//begin
|
||
// LayoutStream := TMemoryStream.Create;
|
||
// try
|
||
// dxLayoutControl1.SaveToStream(LayoutStream);
|
||
// with ADOCmd 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
|
||
// edit;
|
||
// end
|
||
// else
|
||
// begin
|
||
// append;
|
||
// FieldByName('designCode').value:=mdesignCode;
|
||
// FieldByName('fileGroup').value:='1';
|
||
// FieldByName('height').value:=0;
|
||
//
|
||
// end;
|
||
// TBlobField(FieldByName('fileContent')).LoadFromStream(LayoutStream);
|
||
// Post;
|
||
// end;
|
||
// finally
|
||
// LayoutStream.Free; // <20>ͷ<EFBFBD><CDB7>ڴ<EFBFBD><DAB4><EFBFBD>
|
||
// end;
|
||
//end;
|
||
|
||
//
|
||
//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; // <20>ͷ<EFBFBD><CDB7>ڴ<EFBFBD><DAB4><EFBFBD>
|
||
// end;
|
||
//end;
|
||
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
// 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:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>';
|
||
// TcxTextEdit(TdxLayoutItem(layGroup.items[j]).Control).SetFocus;
|
||
// ShowMessage('<27><>'+mcatpion+'<27><>,<2C><><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>Ϊ<EFBFBD><CEAA>!');
|
||
//
|
||
// 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:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>';
|
||
// TcxButtonEdit(TdxLayoutItem(layGroup.items[j]).Control).SetFocus;
|
||
// ShowMessage('<27><>'+mcatpion+'<27><>,<2C><><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>Ϊ<EFBFBD><CEAA>!');
|
||
//
|
||
// exit ;
|
||
// end;
|
||
// continue;
|
||
// end;
|
||
//
|
||
// end;
|
||
// end;
|
||
//
|
||
// end;
|
||
//
|
||
// end;
|
||
// result:=true;
|
||
// end;
|
||
end.
|