rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

升级更新

Browse Source
This commit is contained in:
sgwp 2024-10-30 13:45:23 +08:00
parent bf01b29590
commit 2e4d94727c
16 changed files with 523 additions and 161 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
public10/design/U_BaseHelp.pas
View File

@ -30,7 +30,22 @@ uses
{$R *.dfm} {$R *.dfm}
procedure TfrmBaseHelp.FormCreate(Sender: TObject); procedure TfrmBaseHelp.FormCreate(Sender: TObject);
var
mFontSize:integer;
begin begin
getSystemIni();
if gFontSize<9 then
begin
mFontSize := 12;
end
else
begin
mFontSize:=gFontSize ;
end;
self.Font.Size := gFontSize;
if trim(gFontName)<>'' then
self.Font.Name:=gFontName;
fWindowDesign:=TWindowFormDeSign.Create(); fWindowDesign:=TWindowFormDeSign.Create();
end; end;

17
public10/design/U_BaseInput.pas
View File

@ -29,11 +29,26 @@ var
implementation implementation
uses uses
U_RTFun ,U_globalVar,U_dataLink; U_RTFun ,U_globalVar,U_dataLink,U_FormLayOutDesign;
{$R *.dfm} {$R *.dfm}
procedure TfrmBaseInput.FormCreate(Sender: TObject); procedure TfrmBaseInput.FormCreate(Sender: TObject);
var
mFontSize:integer;
begin begin
getSystemIni();
if gFontSize<9 then
begin
mFontSize := 12;
end
else
begin
mFontSize:=gFontSize ;
end;
self.Font.Size := gFontSize;
if trim(gFontName)<>'' then
self.Font.Name:=gFontName;
fWindowDesign:=TWindowFormDeSign.Create(); fWindowDesign:=TWindowFormDeSign.Create();
end; end;

22
public10/design/U_BaseList.pas
View File

@ -10,7 +10,7 @@ uses
cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit, cxNavigator, cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit, cxNavigator,
dxDateRanges, dxScrollbarAnnotations, cxDBData, cxGridLevel, cxClasses, dxDateRanges, dxScrollbarAnnotations, cxDBData, cxGridLevel, cxClasses,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, cxContainer, cxProgressBar, dxSkinBasic; cxGrid, cxContainer, cxProgressBar;
type type
TfrmBaseList = class(TForm) TfrmBaseList = class(TForm)
@ -42,7 +42,7 @@ var
implementation implementation
uses uses
U_RTFun, U_globalVar, U_dataLink; U_RTFun, U_globalVar, U_dataLink,U_FormLayOutDesign;
{$R *.dfm} {$R *.dfm}
constructor TfrmBaseList.Create(AOwner: TComponent; ACaption: string=''; Parameters1: string=''; Parameters2: string=''; Parameters3: string=''; Parameters4: string=''; Parameters5: string=''; Parameters10: string='';FormID:Integer=0); constructor TfrmBaseList.Create(AOwner: TComponent; ACaption: string=''; Parameters1: string=''; Parameters2: string=''; Parameters3: string=''; Parameters4: string=''; Parameters5: string=''; Parameters10: string='';FormID:Integer=0);
@ -70,8 +70,23 @@ begin
end; end;
procedure TfrmBaseList.FormCreate(Sender: TObject); procedure TfrmBaseList.FormCreate(Sender: TObject);
var
mFontSize:integer;
begin begin
getSystemIni();
if gFontSize<9 then
begin
mFontSize := 12;
end
else
begin
mFontSize:=gFontSize ;
end;
self.Font.Size := gFontSize;
if trim(gFontName)<>'' then
self.Font.Name:=gFontName;
// ´°¿Ú±³¾°É«
fWindowDesign := TWindowFormdesign.Create(); fWindowDesign := TWindowFormdesign.Create();
end; end;
@ -90,6 +105,9 @@ begin
else else
fWindowDesign.FormStyleInit(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10); fWindowDesign.FormStyleInit(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10);
end; end;
// TFormInitThread.Create(fWindowDesign,self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd,trim(gStructVer));
// SendMessage(self.Handle, WM_SETREDRAW, 1, 0);
end; end;

15
public10/design/U_BaseOneTableInput.pas
View File

@ -71,7 +71,22 @@ begin
end; end;
procedure TfrmBaseOneTableInput.FormCreate(Sender: TObject); procedure TfrmBaseOneTableInput.FormCreate(Sender: TObject);
var
mFontSize:integer;
begin begin
getSystemIni();
if gFontSize<9 then
begin
mFontSize := 12;
end
else
begin
mFontSize:=gFontSize ;
end;
self.Font.Size := gFontSize;
if trim(gFontName)<>'' then
self.Font.Name:=gFontName;
fWindowDesign:=TWindowFormDeSign.Create(); fWindowDesign:=TWindowFormDeSign.Create();
end; end;

15
public10/design/U_DetailBaseList.pas
View File

@ -330,7 +330,22 @@ begin
end; end;
procedure TfrmDetailBaseList.FormCreate(Sender: TObject); procedure TfrmDetailBaseList.FormCreate(Sender: TObject);
var
mFontSize:integer;
begin begin
getSystemIni();
if gFontSize<9 then
begin
mFontSize := 12;
end
else
begin
mFontSize:=gFontSize ;
end;
self.Font.Size := gFontSize;
if trim(gFontName)<>'' then
self.Font.Name:=gFontName;
cxgrid1.Align:=alClient; cxgrid1.Align:=alClient;
CurrentPage := 1; CurrentPage := 1;
RecordsNumber := 500; RecordsNumber := 500;

24
public10/design/U_FormLayOutDesign.pas
View File

@ -31,6 +31,7 @@ procedure addQryCondition( AdoTmp:Tadoquery;formId:Integer;gridName:string;FlowP
procedure addQryContionByLay(AdoTmp:Tadoquery;formId:Integer;gridName:string;layOut:TdxLayoutControl;rowCount:integer=4); procedure addQryContionByLay(AdoTmp:Tadoquery;formId:Integer;gridName:string;layOut:TdxLayoutControl;rowCount:integer=4);
procedure initWinData(AdoTmp:TadoQuery;obj:TwinControl;sqlStr:string); procedure initWinData(AdoTmp:TadoQuery;obj:TwinControl;sqlStr:string);
function GetProcedureParam(layoutControl: TdxLayoutControl; EquTag: Integer=0): string; function GetProcedureParam(layoutControl: TdxLayoutControl; EquTag: Integer=0): string;
procedure getSystemIni();
implementation implementation
uses uses
U_globalVar; U_globalVar;
@ -551,4 +552,27 @@ begin
Result := Trim(RightStr(Result, Length(Result) - 1)); Result := Trim(RightStr(Result, Length(Result) - 1));
end; 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. end.

82
public10/design/U_MainBaseList.dfm
View File

@ -170,88 +170,6 @@ object frmMainBaseList: TfrmMainBaseList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 57 Width = 57
end end
object tv1OrderNo: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
end
object tv1custName: TcxGridDBColumn
Caption = #23458#25143#21517#31216
DataBinding.FieldName = 'custName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 106
end
object tv1ConNo: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object tv1C_Name: TcxGridDBColumn
Caption = #21697#21517#20013#25991
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 86
end
object tv1C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object tv1C_EColor: TcxGridDBColumn
Caption = #39068#33394'('#33521#25991')'
DataBinding.FieldName = 'C_EColor'
DataBinding.IsNullValueType = True
Options.Editing = False
Width = 95
end
object tv1C_ColorNo: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object tv1C_Pattern: TcxGridDBColumn
Caption = #33457#22411#33457#21495
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
Options.Editing = False
end
object tv1C_StyleNo: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object tv1C_Width: TcxGridDBColumn
Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object tv1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325'(g/'#13217')'
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = tv1 GridView = tv1

26
public10/design/U_MainBaseList.pas
View File

@ -26,23 +26,12 @@ type
Tclose: TToolButton; Tclose: TToolButton;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
tv1: TcxGridDBTableView; tv1: TcxGridDBTableView;
tv1custName: TcxGridDBColumn;
tv1OrderNo: TcxGridDBColumn;
tv1ConNo: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
DataSource1: TDataSource; DataSource1: TDataSource;
ADOQueryList: TADOQuery; ADOQueryList: TADOQuery;
cxGridPopupMenu1: TcxGridPopupMenu; cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryBaseCmd: TADOQuery; ADOQueryBaseCmd: TADOQuery;
ADOQueryBaseTemp: TADOQuery; ADOQueryBaseTemp: TADOQuery;
tv1C_Name: TcxGridDBColumn;
tv1C_Color: TcxGridDBColumn;
tv1C_ColorNo: TcxGridDBColumn;
tv1C_EColor: TcxGridDBColumn;
tv1C_Pattern: TcxGridDBColumn;
tv1C_StyleNo: TcxGridDBColumn;
tv1C_Width: TcxGridDBColumn;
tv1C_GramWeight: TcxGridDBColumn;
tv1SSel: TcxGridDBColumn; tv1SSel: TcxGridDBColumn;
dxLayoutControl_query: TdxLayoutControl; dxLayoutControl_query: TdxLayoutControl;
custName: TcxTextEdit; custName: TcxTextEdit;
@ -331,7 +320,22 @@ begin
end; end;
procedure TfrmMainBaseList.FormCreate(Sender: TObject); procedure TfrmMainBaseList.FormCreate(Sender: TObject);
var
mFontSize:integer;
begin begin
getSystemIni();
if gFontSize<9 then
begin
mFontSize := 12;
end
else
begin
mFontSize:=gFontSize ;
end;
self.Font.Size := gFontSize;
if trim(gFontName)<>'' then
self.Font.Name:=gFontName;
cxgrid1.Align:=alClient; cxgrid1.Align:=alClient;
CurrentPage := 1; CurrentPage := 1;
RecordsNumber := 500; RecordsNumber := 500;

157
public10/design/U_PageBaseList.dfm
View File

@ -50,7 +50,7 @@ object frmPageBaseList: TfrmPageBaseList
ImageIndex = 9 ImageIndex = 9
Visible = False Visible = False
end end
object ToolButton2: TToolButton object Tooledit: TToolButton
Left = 142 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
@ -58,7 +58,7 @@ object frmPageBaseList: TfrmPageBaseList
ImageIndex = 3 ImageIndex = 3
Visible = False Visible = False
end end
object ToolButton3: TToolButton object ToolDel: TToolButton
Left = 213 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
@ -66,51 +66,149 @@ object frmPageBaseList: TfrmPageBaseList
ImageIndex = 5 ImageIndex = 5
Visible = False Visible = False
end end
object Tzdy1: TToolButton object Toolzdy1: TToolButton
Left = 284 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #33258#23450#20041'1' Caption = '1'
Visible = False Visible = False
end end
object Tzdy2: TToolButton object Toolzdy2: TToolButton
Left = 352 Left = 304
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #33258#23450#20041'2' Caption = '2'
Visible = False Visible = False
end end
object Tzdy3: TToolButton object Toolzdy3: TToolButton
Left = 420 Left = 324
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #33258#23450#20041'3' Caption = '3'
Visible = False Visible = False
end end
object Tzdy4: TToolButton object Toolzdy4: TToolButton
Left = 488 Left = 344
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #33258#23450#20041'4' Caption = '4'
Visible = False Visible = False
end end
object Tzdy5: TToolButton object Toolzdy5: TToolButton
Left = 556 Left = 364
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #33258#23450#20041'5' Caption = '5'
Visible = False
end
object Toolzdy6: TToolButton
Left = 384
Top = 0
AutoSize = True
Caption = '6'
Wrap = True Wrap = True
Visible = False Visible = False
end end
object Tzdy6: TToolButton object Toolzdy7: TToolButton
Left = 0 Left = 0
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #33258#23450#20041'6' Caption = '7'
ImageIndex = 8 Visible = False
end
object Toolzdy8: TToolButton
Left = 20
Top = 30
AutoSize = True
Caption = '8'
Visible = False
end
object Toolzdy9: TToolButton
Left = 40
Top = 30
AutoSize = True
Caption = '9'
Visible = False
end
object Toolzdy10: TToolButton
Left = 60
Top = 30
AutoSize = True
Caption = '10'
Visible = False
end
object Toolzdy11: TToolButton
Left = 89
Top = 30
AutoSize = True
Caption = '11'
Visible = False
end
object Toolzdy12: TToolButton
Left = 118
Top = 30
AutoSize = True
Caption = '12'
Visible = False
end
object Toolzdy13: TToolButton
Left = 147
Top = 30
AutoSize = True
Caption = '13'
Visible = False
end
object Toolzdy14: TToolButton
Left = 176
Top = 30
AutoSize = True
Caption = '14'
Visible = False
end
object Toolzdy15: TToolButton
Left = 205
Top = 30
AutoSize = True
Caption = '15'
Visible = False
end
object Toolzdy16: TToolButton
Left = 234
Top = 30
AutoSize = True
Caption = '16'
Visible = False
end
object Toolzdy17: TToolButton
Left = 263
Top = 30
AutoSize = True
Caption = '17'
Visible = False
end
object Toolzdy18: TToolButton
Left = 292
Top = 30
AutoSize = True
Caption = '18'
Visible = False
end
object Toolzdy19: TToolButton
Left = 321
Top = 30
AutoSize = True
Caption = '19'
Visible = False
end
object Toolzdy20: TToolButton
Left = 350
Top = 30
AutoSize = True
Caption = '20'
Visible = False
end end
object Tprint: TToolButton object Tprint: TToolButton
Left = 96 Left = 379
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20986'Excel' Caption = #23548#20986'Excel'
@ -118,7 +216,7 @@ object frmPageBaseList: TfrmPageBaseList
OnClick = TprintClick OnClick = TprintClick
end end
object TprintGrid: TToolButton object TprintGrid: TToolButton
Left = 205 Left = 488
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -126,7 +224,7 @@ object frmPageBaseList: TfrmPageBaseList
OnClick = TprintGridClick OnClick = TprintGridClick
end end
object TsaveGrid: TToolButton object TsaveGrid: TToolButton
Left = 276 Left = 559
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -134,7 +232,7 @@ object frmPageBaseList: TfrmPageBaseList
OnClick = TsaveGridClick OnClick = TsaveGridClick
end end
object TgridSet: TToolButton object TgridSet: TToolButton
Left = 379 Left = 662
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #34920#26684#21015#35774#32622 Caption = #34920#26684#21015#35774#32622
@ -143,7 +241,7 @@ object frmPageBaseList: TfrmPageBaseList
OnClick = TgridSetClick OnClick = TgridSetClick
end end
object Tclose: TToolButton object Tclose: TToolButton
Left = 498 Left = 781
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -161,7 +259,6 @@ object frmPageBaseList: TfrmPageBaseList
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
ExplicitTop = 150
DesignSize = ( DesignSize = (
1112 1112
37) 37)
@ -373,10 +470,6 @@ object frmPageBaseList: TfrmPageBaseList
Height = 258 Height = 258
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = -547
ExplicitTop = 77
ExplicitWidth = 1112
ExplicitHeight = 238
object tv1: TcxGridDBTableView object tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -434,10 +527,6 @@ object frmPageBaseList: TfrmPageBaseList
Height = 258 Height = 258
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = -547
ExplicitTop = 77
ExplicitWidth = 1112
ExplicitHeight = 238
object tv2: TcxGridDBTableView object tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -491,7 +580,7 @@ object frmPageBaseList: TfrmPageBaseList
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <> PopupMenus = <>
Left = 992 Left = 992
Top = 39 Top = 111
end end
object ADOQueryBaseCmd: TADOQuery object ADOQueryBaseCmd: TADOQuery
Parameters = <> Parameters = <>

46
public10/design/U_PageBaseList.pas
View File

@ -39,13 +39,13 @@ type
frmFrameDateSel1: TfrmFrameDateSel10; frmFrameDateSel1: TfrmFrameDateSel10;
TgridSet: TToolButton; TgridSet: TToolButton;
Tadd: TToolButton; Tadd: TToolButton;
ToolButton2: TToolButton; Tooledit: TToolButton;
ToolButton3: TToolButton; ToolDel: TToolButton;
Tzdy4: TToolButton; Toolzdy4: TToolButton;
Tzdy5: TToolButton; Toolzdy5: TToolButton;
Tzdy1: TToolButton; Toolzdy1: TToolButton;
Tzdy2: TToolButton; Toolzdy2: TToolButton;
Tzdy3: TToolButton; Toolzdy3: TToolButton;
cxPageControl1: TcxPageControl; cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet; cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet; cxTabSheet2: TcxTabSheet;
@ -63,7 +63,21 @@ type
ADOQueryList2: TADOQuery; ADOQueryList2: TADOQuery;
CDS_List2: TClientDataSet; CDS_List2: TClientDataSet;
cxProgressBar1: TMovePanel; cxProgressBar1: TMovePanel;
Tzdy6: TToolButton; Toolzdy6: TToolButton;
Toolzdy7: TToolButton;
Toolzdy8: TToolButton;
Toolzdy9: TToolButton;
Toolzdy10: TToolButton;
Toolzdy11: TToolButton;
Toolzdy12: TToolButton;
Toolzdy13: TToolButton;
Toolzdy14: TToolButton;
Toolzdy15: TToolButton;
Toolzdy16: TToolButton;
Toolzdy17: TToolButton;
Toolzdy18: TToolButton;
Toolzdy19: TToolButton;
Toolzdy20: TToolButton;
procedure TrefreshClick(Sender: TObject); procedure TrefreshClick(Sender: TObject);
procedure TprintClick(Sender: TObject); procedure TprintClick(Sender: TObject);
procedure TprintGridClick(Sender: TObject); procedure TprintGridClick(Sender: TObject);
@ -464,7 +478,23 @@ begin
end; end;
procedure TfrmPageBaseList.FormCreate(Sender: TObject); procedure TfrmPageBaseList.FormCreate(Sender: TObject);
var
mFontSize:integer;
begin begin
getSystemIni();
if gFontSize<9 then
begin
mFontSize := 12;
end
else
begin
mFontSize:=gFontSize ;
end;
self.Font.Size := gFontSize;
if trim(gFontName)<>'' then
self.Font.Name:=gFontName;
cxPageControl1.Align:=alClient; cxPageControl1.Align:=alClient;
CurrentPage := 1; CurrentPage := 1;
RecordsNumber := 500; RecordsNumber := 500;

170
public10/design/U_QryBaseList.dfm
View File

@ -40,16 +40,176 @@ object frmQryBaseList: TfrmQryBaseList
ImageIndex = 1 ImageIndex = 1
OnClick = TrefreshClick OnClick = TrefreshClick
end end
object Tprint: TToolButton object toolzdy1: TToolButton
Left = 48 Left = 48
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = '1'
ImageIndex = 8
Visible = False
end
object toolzdy2: TToolButton
Left = 73
Top = 0
AutoSize = True
Caption = '2'
ImageIndex = 8
Visible = False
end
object toolzdy3: TToolButton
Left = 98
Top = 0
AutoSize = True
Caption = '3'
ImageIndex = 8
Visible = False
end
object toolzdy4: TToolButton
Left = 123
Top = 0
AutoSize = True
Caption = '4'
ImageIndex = 8
Visible = False
end
object toolzdy5: TToolButton
Left = 148
Top = 0
AutoSize = True
Caption = '5'
ImageIndex = 8
Visible = False
end
object toolzdy6: TToolButton
Left = 173
Top = 0
AutoSize = True
Caption = '6'
ImageIndex = 8
Visible = False
end
object toolzdy7: TToolButton
Left = 198
Top = 0
AutoSize = True
Caption = '7'
ImageIndex = 8
Visible = False
end
object toolzdy8: TToolButton
Left = 223
Top = 0
AutoSize = True
Caption = '8'
ImageIndex = 8
Visible = False
end
object toolzdy9: TToolButton
Left = 248
Top = 0
AutoSize = True
Caption = '9'
ImageIndex = 9
Visible = False
end
object toolzdy10: TToolButton
Left = 273
Top = 0
AutoSize = True
Caption = '10'
ImageIndex = 10
Visible = False
end
object toolzdy11: TToolButton
Left = 307
Top = 0
AutoSize = True
Caption = '11'
ImageIndex = 8
Visible = False
end
object toolzdy12: TToolButton
Left = 341
Top = 0
AutoSize = True
Caption = '12'
ImageIndex = 8
Visible = False
end
object toolzdy13: TToolButton
Left = 375
Top = 0
AutoSize = True
Caption = '13'
ImageIndex = 8
Visible = False
end
object toolzdy14: TToolButton
Left = 409
Top = 0
AutoSize = True
Caption = '14'
ImageIndex = 8
Visible = False
end
object toolzdy15: TToolButton
Left = 443
Top = 0
AutoSize = True
Caption = '15'
ImageIndex = 8
Visible = False
end
object toolzdy16: TToolButton
Left = 477
Top = 0
AutoSize = True
Caption = '16'
ImageIndex = 9
Visible = False
end
object toolzdy17: TToolButton
Left = 511
Top = 0
AutoSize = True
Caption = '17'
ImageIndex = 10
Visible = False
end
object toolzdy18: TToolButton
Left = 545
Top = 0
AutoSize = True
Caption = '18'
ImageIndex = 11
Visible = False
end
object toolzdy19: TToolButton
Left = 579
Top = 0
AutoSize = True
Caption = '19'
ImageIndex = 12
Visible = False
end
object toolzdy20: TToolButton
Left = 613
Top = 0
AutoSize = True
Caption = '20'
ImageIndex = 8
Visible = False
end
object Tprint: TToolButton
Left = 647
Top = 0
AutoSize = True
Caption = #23548#20986'Excel' Caption = #23548#20986'Excel'
ImageIndex = 28 ImageIndex = 28
OnClick = TprintClick OnClick = TprintClick
end end
object TprintGrid: TToolButton object TprintGrid: TToolButton
Left = 134 Left = 733
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -57,7 +217,7 @@ object frmQryBaseList: TfrmQryBaseList
OnClick = TprintGridClick OnClick = TprintGridClick
end end
object TsaveGrid: TToolButton object TsaveGrid: TToolButton
Left = 182 Left = 781
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -65,7 +225,7 @@ object frmQryBaseList: TfrmQryBaseList
OnClick = TsaveGridClick OnClick = TsaveGridClick
end end
object TgridSet: TToolButton object TgridSet: TToolButton
Left = 262 Left = 861
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #34920#26684#21015#35774#32622 Caption = #34920#26684#21015#35774#32622
@ -74,7 +234,7 @@ object frmQryBaseList: TfrmQryBaseList
OnClick = TgridSetClick OnClick = TgridSetClick
end end
object Tclose: TToolButton object Tclose: TToolButton
Left = 358 Left = 957
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

36
public10/design/U_QryBaseList.pas
View File

@ -61,6 +61,26 @@ type
Label31: TLabel; Label31: TLabel;
TgridSet: TToolButton; TgridSet: TToolButton;
cxProgressBar1: TMovePanel; cxProgressBar1: TMovePanel;
toolzdy1: TToolButton;
toolzdy2: TToolButton;
toolzdy3: TToolButton;
toolzdy4: TToolButton;
toolzdy5: TToolButton;
toolzdy6: TToolButton;
toolzdy7: TToolButton;
toolzdy8: TToolButton;
toolzdy9: TToolButton;
toolzdy10: TToolButton;
toolzdy11: TToolButton;
toolzdy12: TToolButton;
toolzdy13: TToolButton;
toolzdy14: TToolButton;
toolzdy15: TToolButton;
toolzdy16: TToolButton;
toolzdy17: TToolButton;
toolzdy18: TToolButton;
toolzdy19: TToolButton;
toolzdy20: TToolButton;
procedure TrefreshClick(Sender: TObject); procedure TrefreshClick(Sender: TObject);
procedure TprintClick(Sender: TObject); procedure TprintClick(Sender: TObject);
procedure TprintGridClick(Sender: TObject); procedure TprintGridClick(Sender: TObject);
@ -322,7 +342,23 @@ begin
end; end;
procedure TfrmQryBaseList.FormCreate(Sender: TObject); procedure TfrmQryBaseList.FormCreate(Sender: TObject);
var
mFontSize:integer;
begin begin
getSystemIni();
if gFontSize<9 then
begin
mFontSize := 12;
end
else
begin
mFontSize:=gFontSize ;
end;
self.Font.Size := gFontSize;
if trim(gFontName)<>'' then
self.Font.Name:=gFontName;
cxgrid1.Align:=alClient; cxgrid1.Align:=alClient;
CurrentPage := 1; CurrentPage := 1;
RecordsNumber := 500; RecordsNumber := 500;

2
public10/design/U_QryPivotBaseList.dfm
View File

@ -62,7 +62,7 @@ object frmQryPivotBaseList: TfrmQryPivotBaseList
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
ImageIndex = 30 ImageIndex = 30
end end
object TgridLiSet: TToolButton object TgridSet: TToolButton
Left = 262 Left = 262
Top = 0 Top = 0
AutoSize = True AutoSize = True

20
public10/design/U_QryPivotBaseList.pas
View File

@ -37,7 +37,7 @@ type
Tprint: TToolButton; Tprint: TToolButton;
TprintGrid: TToolButton; TprintGrid: TToolButton;
TsaveGrid: TToolButton; TsaveGrid: TToolButton;
TgridLiSet: TToolButton; TgridSet: TToolButton;
Tclose: TToolButton; Tclose: TToolButton;
frmFrameDateSel1: TfrmFrameDateSel10; frmFrameDateSel1: TfrmFrameDateSel10;
dxLayoutControl_query: TdxLayoutControl; dxLayoutControl_query: TdxLayoutControl;
@ -155,7 +155,23 @@ begin
end; end;
procedure TfrmQryPivotBaseList.FormCreate(Sender: TObject); procedure TfrmQryPivotBaseList.FormCreate(Sender: TObject);
var
mFontSize:integer;
begin begin
getSystemIni();
if gFontSize<9 then
begin
mFontSize := 12;
end
else
begin
mFontSize:=gFontSize ;
end;
self.Font.Size := gFontSize;
if trim(gFontName)<>'' then
self.Font.Name:=gFontName;
cxDBPivotGrid1.Align:=alClient; cxDBPivotGrid1.Align:=alClient;
CurrentPage := 1; CurrentPage := 1;
RecordsNumber := 500; RecordsNumber := 500;
@ -176,7 +192,7 @@ begin
begin begin
fWindowDesign.FormStyleInit10(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10); fWindowDesign.FormStyleInit10(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10);
end; end;
TgridLiSet.Visible:=gIsCanDesign; TgridSet.Visible:=gIsCanDesign;
if dxLayoutControl_query.Tag<>999 then if dxLayoutControl_query.Tag<>999 then
readLayOut(dxLayoutControl_query,ADOQueryBaseTemp,PWideChar( fDllFileName+'|'+self.name+'|'+dxLayoutControl_query.Name+'.ini')); readLayOut(dxLayoutControl_query,ADOQueryBaseTemp,PWideChar( fDllFileName+'|'+self.name+'|'+dxLayoutControl_query.Name+'.ini'));
fWindowDesign.fProcedureName:=fProcedureName; fWindowDesign.fProcedureName:=fProcedureName;

36
public10/design/U_WindowFormdesign.pas
View File

@ -351,6 +351,7 @@ var
mIsDrawGridHeader: boolean; mIsDrawGridHeader: boolean;
mdesignCode: string; mdesignCode: string;
setGridButton: TToolButton; setGridButton: TToolButton;
SaveRedraw:boolean;
begin begin
ADOQueryCmd := ADOQCmd; ADOQueryCmd := ADOQCmd;
ADOQueryTmp := ADOTmp; ADOQueryTmp := ADOTmp;
@ -358,24 +359,27 @@ begin
fFormName := mForm.name; fFormName := mForm.name;
fFormId := mFormId; fFormId := mFormId;
gIsCanDesign :=IsHasDesignRight(ADOTmp,PWideChar(dCode)) ; // gIsCanDesign :=IsHasDesignRight(ADOTmp,PWideChar(dCode)) ;
//
// if gFontSize>=9 then
// begin
// fFontSize:= gFontSize ;
// end
// else
// begin
// fFontSize:= getSystemFontSize(ADOTmp,PWideChar(mStyleCode));
// if fFontSize < 9 then
// fFontSize := 12;
// gFontSize:=fFontSize;
// end;
if gFontSize>=9 then // mForm.Font.Size := fFontSize;
begin //if gFontName<>'' then
fFontSize:= gFontSize ; // mForm.Font.Name:=gFontName;
end
else
begin
fFontSize:= getSystemFontSize(ADOTmp,PWideChar(mStyleCode));
if fFontSize < 9 then
fFontSize := 12;
gFontSize:=fFontSize;
end;
mForm.Font.Size := fFontSize;
// ´°¿Ú±³¾°É« // ´°¿Ú±³¾°É«
//exit;
try try
// SaveRedraw := (GetWindowLong(mForm.Handle, GWL_STYLE) and WS_VISIBLE) <> 0;
for i := 0 to mForm.ComponentCount - 1 do for i := 0 to mForm.ComponentCount - 1 do
begin begin
if not ( mForm.Components[i] is TcxGrid) and not( mForm.Components[i] is TToolBar) and not( mForm.Components[i] is TdxCustomLayoutControl) then Continue; if not ( mForm.Components[i] is TcxGrid) and not( mForm.Components[i] is TToolBar) and not( mForm.Components[i] is TdxCustomLayoutControl) then Continue;
@ -447,6 +451,7 @@ begin
continue; continue;
end; end;
end; end;
except except
showMessage('´°¿Ú³õʼ»¯Òì³£!'); showMessage('´°¿Ú³õʼ»¯Òì³£!');
end; end;
@ -476,6 +481,7 @@ begin
fDllName := gDllFileName; fDllName := gDllFileName;
fFormName := mForm.name; fFormName := mForm.name;
fFormId := mFormId; fFormId := mFormId;
exit;
gIsCanDesign :=IsHasDesignRight(ADOTmp,PWideChar(dCode)) ; gIsCanDesign :=IsHasDesignRight(ADOTmp,PWideChar(dCode)) ;
// //

1
public10/design/U_globalVar.pas
View File

@ -12,6 +12,7 @@ var
gIsCanDesign:Boolean; gIsCanDesign:Boolean;
gGridNativeSet:boolean; gGridNativeSet:boolean;
gFontSize:integer; gFontSize:integer;
gFontName:string;
gIsUseSkin:boolean; gIsUseSkin:boolean;
gStructVer:string; gStructVer:string;
const const