rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
8df5aee030
RTFormwork/public10/design/U_FormLayOutDesign.pas

587 lines
20 KiB
ObjectPascal
Raw Normal View History

1
2024-07-07 09:35:27 +08:00
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,
新的宽假
2024-10-12 10:45:24 +08:00
cxGridCustomTableView, cxGraphics, cxCalendar, cxCheckBox, cxGridDBTableView,StrUtils,
240820
2024-08-20 09:43:44 +08:00
cxGridDBBandedTableView, cxStyles, cxPc, cxGroupBox, dxLayoutContainer, U_dataLink,
1
2024-07-07 09:35:27 +08:00
cxCustomData, cxClasses, cxTimeEdit, cxEdit, cxLookAndFeels, dxLayoutControl,
Revert "Reapply "速度优化"" This reverts commit b48ad48221515747a0b22134d8cffe4637c63154.
2024-11-27 14:50:11 +08:00
cxLookAndFeelPainters, cxGridCustomView, Buttons, cxDropDownEdit, dxSkinsDefaultPainters;
1
2024-07-07 09:35:27 +08:00
//function saveLayOut(dxLayoutControl1:TdxLayoutControl; ADOCmd: TADOQuery;mdesignCode:string):Boolean;
240820
2024-08-20 09:43:44 +08:00
function readLayOut(dxLayoutControl1:TdxLayoutControl; ADOTmp: TADOQuery;mdesignCode:string):Boolean;
1
2024-07-07 09:35:27 +08:00
//function mustInCheck(dxLayoutControl1:TdxLayoutControl ;textFlag:string='*'):Boolean;
Revert "Reapply "速度优化"" This reverts commit b48ad48221515747a0b22134d8cffe4637c63154.
2024-11-27 14:50:11 +08:00
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';
240820
2024-08-20 09:43:44 +08:00
//function readLayOut(app:Tapplication;dxLayoutControl1:TdxLayoutControl; ADOTmp: TADOQuery;mdesignCode:PWideChar):integer;stdcall;external 'rtCommon.dll' Name 'readLayOut_A';
Revert "Reapply "速度优化"" This reverts commit b48ad48221515747a0b22134d8cffe4637c63154.
2024-11-27 14:50:11 +08:00
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';
240820
2024-08-20 09:43:44 +08:00
procedure InitStyleData( StyleRepository:TcxStyleRepository;mFontSize:integer);
function GetsysParam(AdoTmp:Tadoquery;StyleRepository:TcxStyleRepository;muserId: pchar; fparam1: pchar): Boolean;
Revert "Reapply "速度优化"" This reverts commit b48ad48221515747a0b22134d8cffe4637c63154.
2024-11-27 14:50:11 +08:00
procedure addQryCondition1(Application:Tapplication;AdoTmp:Tadoquery;Panel_zdy:Tpanel;layOut: TdxLayoutControl;mdesignCode:PWideChar;rowCount:integer=4)stdcall;external 'rtCommon.dll' Name 'addQryCondition';
新的宽假
2024-10-12 10:45:24 +08:00
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;
升级更新
2024-10-30 13:45:23 +08:00
procedure getSystemIni();
1
2024-07-07 09:35:27 +08:00
implementation
240820
2024-08-20 09:43:44 +08:00
uses
U_globalVar;
1
2024-07-07 09:35:27 +08:00
//
240820
2024-08-20 09:43:44 +08:00
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;
1
2024-07-07 09:35:27 +08:00
240820
2024-08-20 09:43:44 +08:00
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;
1
2024-07-07 09:35:27 +08:00
Revert "Reapply "速度优化"" This reverts commit b48ad48221515747a0b22134d8cffe4637c63154.
2024-11-27 14:50:11 +08:00
//<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;
240820
2024-08-20 09:43:44 +08:00
////////////////////////////////////
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';
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
with AdoTmp do
begin
close;
sql.Clear;
sql.Add('select getDate()as dt');
open;
DServerDate := fieldByName('dt').AsDatetime;
end;
Revert "Reapply "速度优化"" This reverts commit b48ad48221515747a0b22134d8cffe4637c63154.
2024-11-27 14:50:11 +08:00
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;
240820
2024-08-20 09:43:44 +08:00
result := true;
end;
新的宽假
2024-10-12 10:45:24 +08:00
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
2024-10-22 10:10:46 +08:00
cxCheckBox:TcxCheckBox;
新的宽假
2024-10-12 10:45:24 +08:00
mwidth,i,j,cnt:integer;
mdesignCode :String;
begin
mdesignCode := fDllFileName +'|'+layOut.Parent.name+ '|' + intTostr(formId) + '|' + gridName;
支持cxcheckbox
2024-10-22 10:10:46 +08:00
layOut.BeginUpdate; // Postpones updates
try
新的宽假
2024-10-12 10:45:24 +08:00
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];
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
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) ;
支持cxcheckbox
2024-10-22 10:10:46 +08:00
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) ;
新的宽假
2024-10-12 10:45:24 +08:00
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];
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
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
支持cxcheckbox
2024-10-22 10:10:46 +08:00
if layout.Items.VisibleCount=0 then layout.Visible:=false;
新的宽假
2024-10-12 10:45:24 +08:00
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;
//
/// /////////////////////////////////////////
/// /************<2A><>ȡ<EFBFBD>洢<EFBFBD><E6B4A2><EFBFBD>̲<EFBFBD><CCB2><EFBFBD>***********/////
/// /////////////////////////////////////////
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)) ;
更新rt_func
2024-10-30 15:34:13 +08:00
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
新的宽假
2024-10-12 10:45:24 +08:00
end;
end;
if Trim(Result) <> '' then
Result := Trim(RightStr(Result, Length(Result) - 1));
end;
升级更新
2024-10-30 13:45:23 +08:00
/////////////////////////////////////////////////////////
//
procedure getSystemIni();
var
programIni: Tinifile; //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
FileName: string;
begin
FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
if not FileExists(FileName) then
exit;
try
programIni := Tinifile.create(FileName);
gIsUseSkin := programIni.ReadBool('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', 'skin',true);
gIsCanDesign := programIni.ReadBool('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', 'design',false);
gGridNativeSet := programIni.ReadBool('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', 'grid',true);
gfontSize := programIni.ReadInteger('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>С', 12);
gfontName := programIni.ReadString('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '');
finally
programIni.Free;
end;
end;
1
2024-07-07 09:35:27 +08:00
end.
Reference in New Issue Copy Permalink