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-25 16:55:05 +08:00
parent 4593757069
commit 81d5c8477f
5 changed files with 127 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

125
public10/design/U_MainBaseList.dfm
View File

@ -3,7 +3,7 @@ object frmMainBaseList: TfrmMainBaseList
Top = 0 Top = 0
Caption = 'frmMainBaseList' Caption = 'frmMainBaseList'
ClientHeight = 538 ClientHeight = 538
ClientWidth = 1077 ClientWidth = 1112
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -11,6 +11,7 @@ object frmMainBaseList: TfrmMainBaseList
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
WindowState = wsMaximized
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
@ -21,8 +22,8 @@ object frmMainBaseList: TfrmMainBaseList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1077 Width = 1112
Height = 30 Height = 60
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 115 ButtonWidth = 115
@ -37,45 +38,103 @@ object frmMainBaseList: TfrmMainBaseList
Left = 0 Left = 0
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#35810 Caption = #21047#26032
ImageIndex = 8 ImageIndex = 1
OnClick = TrefreshClick OnClick = TrefreshClick
end end
object Tprint: TToolButton object Tadd: TToolButton
Left = 71 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686
ImageIndex = 9
end
object ToolButton2: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
end
object ToolButton3: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
end
object Tcheck: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
end
object Tuncheck: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 11
end
object Tzdy1: TToolButton
Left = 458
Top = 0
AutoSize = True
Caption = #33258#23450#20041'1'
Visible = False
end
object Tzdy2: TToolButton
Left = 526
Top = 0
AutoSize = True
Caption = #33258#23450#20041'2'
Wrap = True
Visible = False
end
object Tzdy3: TToolButton
Left = 0
Top = 30
AutoSize = True
Caption = #33258#23450#20041'3'
Visible = False
end
object Tprint: TToolButton
Left = 68
Top = 30
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 = 180 Left = 177
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 21 ImageIndex = 21
OnClick = TprintGridClick OnClick = TprintGridClick
end end
object TsaveGrid: TToolButton object TsaveGrid: TToolButton
Left = 251 Left = 248
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
ImageIndex = 30 ImageIndex = 30
OnClick = TsaveGridClick OnClick = TsaveGridClick
end end
object ToolButton1: TToolButton object TgridSet: TToolButton
Left = 354 Left = 351
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #34920#26684#21015#35774#32622 Caption = #34920#26684#21015#35774#32622
ImageIndex = 16 ImageIndex = 16
OnClick = ToolButton1Click Visible = False
OnClick = TgridSetClick
end end
object Tclose: TToolButton object Tclose: TToolButton
Left = 473 Left = 470
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 7 ImageIndex = 7
@ -83,11 +142,16 @@ object frmMainBaseList: TfrmMainBaseList
end end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 8 Left = 0
Top = 209 Top = 187
Width = 1033 Width = 1112
Height = 321 Height = 351
Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = 8
ExplicitTop = 209
ExplicitWidth = 1033
ExplicitHeight = 321
object tv1: TcxGridDBTableView object tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -199,8 +263,8 @@ object frmMainBaseList: TfrmMainBaseList
end end
object dxLayoutControl_query: TdxLayoutControl object dxLayoutControl_query: TdxLayoutControl
Left = 0 Left = 0
Top = 75 Top = 105
Width = 1077 Width = 1112
Height = 45 Height = 45
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -208,6 +272,9 @@ object frmMainBaseList: TfrmMainBaseList
LayoutLookAndFeel = BaseDataLink.dxLayoutSkinLookAndFeel1 LayoutLookAndFeel = BaseDataLink.dxLayoutSkinLookAndFeel1
OptionsItem.SizableHorz = True OptionsItem.SizableHorz = True
OptionsItem.SizableVert = True OptionsItem.SizableVert = True
OnDblClick = dxLayoutControl_queryDblClick
ExplicitTop = 75
ExplicitWidth = 1077
object custName: TcxTextEdit object custName: TcxTextEdit
Tag = 2 Tag = 2
Left = 262 Left = 262
@ -280,16 +347,18 @@ object frmMainBaseList: TfrmMainBaseList
end end
object Panel_page: TPanel object Panel_page: TPanel
Left = 0 Left = 0
Top = 120 Top = 150
Width = 1077 Width = 1112
Height = 37 Height = 37
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 3 TabOrder = 3
ExplicitTop = 120
ExplicitWidth = 1077
DesignSize = ( DesignSize = (
1077 1112
37) 37)
object LBCPAP: TLabel object LBCPAP: TLabel
Left = 425 Left = 425
@ -352,8 +421,8 @@ object frmMainBaseList: TfrmMainBaseList
end end
inline frmFrameDateSel1: TfrmFrameDateSel10 inline frmFrameDateSel1: TfrmFrameDateSel10
Left = 0 Left = 0
Top = 30 Top = 60
Width = 1077 Width = 1112
Height = 45 Height = 45
Align = alTop Align = alTop
AutoSize = True AutoSize = True
@ -364,7 +433,7 @@ object frmMainBaseList: TfrmMainBaseList
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 1077 ExplicitWidth = 1077
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 1077 Width = 1112
ExplicitWidth = 1077 ExplicitWidth = 1077
inherited BegDate: TcxDateEdit inherited BegDate: TcxDateEdit
Left = 116 Left = 116

43
public10/design/U_MainBaseList.pas
View File

@ -14,23 +14,7 @@ uses
cxContainer, dxCore, cxDateUtils, dxLayoutcxEditAdapters, dxLayoutContainer, cxContainer, dxCore, cxDateUtils, dxLayoutcxEditAdapters, dxLayoutContainer,
cxMaskEdit, cxDropDownEdit, cxCalendar, cxTextEdit, dxLayoutControl, cxMaskEdit, cxDropDownEdit, cxCalendar, cxTextEdit, dxLayoutControl,
FrameDateSel, Datasnap.DBClient, cxMemo, Vcl.StdCtrls, Vcl.ExtCtrls, FrameDateSel, Datasnap.DBClient, cxMemo, Vcl.StdCtrls, Vcl.ExtCtrls,
cxGeometry, dxFramedControl, dxPanel, FrameDateSel10, dxSkinBasic, cxGeometry, dxFramedControl, dxPanel, FrameDateSel10;
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmMainBaseList = class(TForm) TfrmMainBaseList = class(TForm)
@ -76,7 +60,15 @@ type
TCBNOR: TcxComboBox; TCBNOR: TcxComboBox;
Label31: TLabel; Label31: TLabel;
frmFrameDateSel1: TfrmFrameDateSel10; frmFrameDateSel1: TfrmFrameDateSel10;
ToolButton1: TToolButton; TgridSet: TToolButton;
Tadd: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
Tcheck: TToolButton;
Tuncheck: TToolButton;
Tzdy1: TToolButton;
Tzdy2: TToolButton;
Tzdy3: 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);
@ -89,7 +81,8 @@ type
procedure BTLPClick(Sender: TObject); procedure BTLPClick(Sender: TObject);
procedure BTNPClick(Sender: TObject); procedure BTNPClick(Sender: TObject);
procedure TCBNORPropertiesChange(Sender: TObject); procedure TCBNORPropertiesChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure TgridSetClick(Sender: TObject);
procedure dxLayoutControl_queryDblClick(Sender: TObject);
private private
fWindowDesign: TWindowFormdesign; fWindowDesign: TWindowFormdesign;
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
@ -165,7 +158,7 @@ begin
close; close;
end; end;
procedure TfrmMainBaseList.ToolButton1Click(Sender: TObject); procedure TfrmMainBaseList.TgridSetClick(Sender: TObject);
begin begin
fWindowDesign.OpenGridDesignWin10(fDesignCode,'cxgrid1',tv1); fWindowDesign.OpenGridDesignWin10(fDesignCode,'cxgrid1',tv1);
end; end;
@ -323,6 +316,11 @@ begin
Tv1.EndUpdate; Tv1.EndUpdate;
end; end;
end; end;
procedure TfrmMainBaseList.dxLayoutControl_queryDblClick(Sender: TObject);
begin
layoutDesign(TdxLayoutControl(Sender),ADOQueryBaseCmd,PWideChar(dcode));
end;
/// ///
procedure TfrmMainBaseList.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmMainBaseList.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
@ -353,9 +351,9 @@ begin
fDesignCode := fDllFileName +'|'+self.name+ '|' + intTostr(fformId) + '|' + 'cxgrid1'; fDesignCode := fDllFileName +'|'+self.name+ '|' + intTostr(fformId) + '|' + 'cxgrid1';
if DParameters8<>'1' then if DParameters8<>'1' then
begin begin
fWindowDesign.FormStyleInit(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10); fWindowDesign.FormStyleInit10(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10);
end; end;
TgridLiSet.Visible:=gIsCanDesign; TgridSet.Visible:=gIsCanDesign;
mdesignCode := fDllFileName +'|'+self.name+ '|' + intTostr(fformId) + '|' + 'cxgrid1'; mdesignCode := fDllFileName +'|'+self.name+ '|' + intTostr(fformId) + '|' + 'cxgrid1';
//Ôö¼Ó¶¯Ì¬Ìõ¼þ //Ôö¼Ó¶¯Ì¬Ìõ¼þ
addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid1',dxLayoutControl_query,7); addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid1',dxLayoutControl_query,7);
@ -367,6 +365,7 @@ end;
/// ///
procedure TfrmMainBaseList.initGrid(); procedure TfrmMainBaseList.initGrid();
begin begin
if fProcedureName='' then exit;
if fQueryType='criteria' then if fQueryType='criteria' then
begin begin
doQueryByCriteria() ; doQueryByCriteria() ;

8
public10/design/U_QryBaseList.dfm
View File

@ -36,8 +36,8 @@ object frmQryBaseList: TfrmQryBaseList
Left = 0 Left = 0
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#35810 Caption = #21047#26032
ImageIndex = 8 ImageIndex = 1
OnClick = TrefreshClick OnClick = TrefreshClick
end end
object Tprint: TToolButton object Tprint: TToolButton
@ -64,14 +64,14 @@ object frmQryBaseList: TfrmQryBaseList
ImageIndex = 30 ImageIndex = 30
OnClick = TsaveGridClick OnClick = TsaveGridClick
end end
object TgridLiSet: TToolButton object TgridSet: TToolButton
Left = 262 Left = 262
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #34920#26684#21015#35774#32622 Caption = #34920#26684#21015#35774#32622
ImageIndex = 16 ImageIndex = 16
Visible = False Visible = False
OnClick = TgridLiSetClick OnClick = TgridSetClick
end end
object Tclose: TToolButton object Tclose: TToolButton
Left = 358 Left = 358

8
public10/design/U_QryBaseList.pas
View File

@ -59,7 +59,7 @@ type
BTLP: TButton; BTLP: TButton;
TCBNOR: TcxComboBox; TCBNOR: TcxComboBox;
Label31: TLabel; Label31: TLabel;
TgridLiSet: TToolButton; TgridSet: 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);
@ -73,7 +73,7 @@ type
procedure BTNPClick(Sender: TObject); procedure BTNPClick(Sender: TObject);
procedure TCBNORPropertiesChange(Sender: TObject); procedure TCBNORPropertiesChange(Sender: TObject);
procedure dxLayoutControl_queryDblClick(Sender: TObject); procedure dxLayoutControl_queryDblClick(Sender: TObject);
procedure TgridLiSetClick(Sender: TObject); procedure TgridSetClick(Sender: TObject);
private private
fWindowDesign: TWindowFormdesign; fWindowDesign: TWindowFormdesign;
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
@ -149,7 +149,7 @@ begin
close; close;
end; end;
procedure TfrmQryBaseList.TgridLiSetClick(Sender: TObject); procedure TfrmQryBaseList.TgridSetClick(Sender: TObject);
begin begin
fWindowDesign.OpenGridDesignWin10(fDesignCode,'cxgrid1',tv1); fWindowDesign.OpenGridDesignWin10(fDesignCode,'cxgrid1',tv1);
end; end;
@ -342,7 +342,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;

1
public10/design/U_QryPivotBaseList.dfm
View File

@ -68,6 +68,7 @@ object frmQryPivotBaseList: TfrmQryPivotBaseList
AutoSize = True AutoSize = True
Caption = #34920#26684#21015#35774#32622 Caption = #34920#26684#21015#35774#32622
ImageIndex = 16 ImageIndex = 16
Visible = False
end end
object Tclose: TToolButton object Tclose: TToolButton
Left = 358 Left = 358