1234
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
bb41a862cd
commit
9e38876960
|
|
@ -21,7 +21,7 @@ object frmYSCR: TfrmYSCR
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1280
|
||||
Width = 1272
|
||||
Height = 31
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
|
|
@ -118,7 +118,7 @@ object frmYSCR: TfrmYSCR
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 31
|
||||
Width = 1280
|
||||
Width = 1272
|
||||
Height = 69
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -167,6 +167,13 @@ object frmYSCR: TfrmYSCR
|
|||
Height = 12
|
||||
Caption = #35746#21333#21495
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 551
|
||||
Top = 15
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20135#21697#32534#21495
|
||||
end
|
||||
object begdate: TDateTimePicker
|
||||
Left = 72
|
||||
Top = 11
|
||||
|
|
@ -232,12 +239,21 @@ object frmYSCR: TfrmYSCR
|
|||
TabOrder = 5
|
||||
OnChange = FactoryNameChange
|
||||
end
|
||||
object cpcode: TEdit
|
||||
Tag = 2
|
||||
Left = 599
|
||||
Top = 12
|
||||
Width = 103
|
||||
Height = 20
|
||||
TabOrder = 6
|
||||
OnChange = FactoryNameChange
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 123
|
||||
Width = 1280
|
||||
Height = 534
|
||||
Width = 1272
|
||||
Height = 526
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 3
|
||||
|
|
@ -344,6 +360,12 @@ object frmYSCR: TfrmYSCR
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 78
|
||||
end
|
||||
object Tv2Column4: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'cpcode'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 67
|
||||
end
|
||||
object v2Column12: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'CPSpec'
|
||||
|
|
@ -434,7 +456,7 @@ object frmYSCR: TfrmYSCR
|
|||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 100
|
||||
Width = 1280
|
||||
Width = 1272
|
||||
Height = 23
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
|
|
@ -447,7 +469,7 @@ object frmYSCR: TfrmYSCR
|
|||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 23
|
||||
ClientRectRight = 1280
|
||||
ClientRectRight = 1272
|
||||
ClientRectTop = 19
|
||||
end
|
||||
object MovePanel1: TMovePanel
|
||||
|
|
|
|||
|
|
@ -14,7 +14,20 @@ uses
|
|||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxPC, cxDropDownEdit, Menus, MovePanel, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, dxSkinscxPCPainter;
|
||||
dxSkinsDefaultPainters, dxSkinscxPCPainter, 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, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||
dxSkinXmas2008Blue;
|
||||
|
||||
type
|
||||
TfrmYSCR = class(TForm)
|
||||
|
|
@ -99,6 +112,9 @@ type
|
|||
xiaogangfei: TEdit;
|
||||
shangjifei: TEdit;
|
||||
Tv2Column3: TcxGridDBColumn;
|
||||
Label15: TLabel;
|
||||
cpcode: TEdit;
|
||||
Tv2Column4: TcxGridDBColumn;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=E:\淃커栗죕\06_처弄무鱇\曲己\D7myTuoxuan\壇澗壇마\testDll.exe
|
||||
HostApplication=D:\D7W\淃커덜쯤\D7myTuoxuan\壇澗壇마\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
|||
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=E:\项目资料\06_贸易公司\拓轩\D7myTuoxuan\染整计划(DyeingFinishingPlan.dll)\testDll.exe
|
||||
HostApplication=D:\D7W\ÏîÄ¿´úÂë\D7myTuoxuan\ȾÕû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
|||
|
|
@ -20,7 +20,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1349
|
||||
Width = 1341
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 107
|
||||
|
|
@ -114,7 +114,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1349
|
||||
Width = 1341
|
||||
Height = 69
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -422,7 +422,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
|||
TabOrder = 11
|
||||
OnKeyPress = KHConNOKeyPress
|
||||
end
|
||||
object KuanHao: TEdit
|
||||
object PRTKuanNO: TEdit
|
||||
Tag = 2
|
||||
Left = 1086
|
||||
Top = 32
|
||||
|
|
@ -478,8 +478,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
|||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 129
|
||||
Width = 1349
|
||||
Height = 561
|
||||
Width = 1341
|
||||
Height = 553
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 3
|
||||
|
|
@ -830,7 +830,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
|||
end
|
||||
object v1Column40: TcxGridDBColumn
|
||||
Caption = #27454#21495
|
||||
DataBinding.FieldName = 'KuanHao'
|
||||
DataBinding.FieldName = 'PRTKuanNO'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 67
|
||||
|
|
@ -992,14 +992,14 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
|||
object Panel6: TPanel
|
||||
Left = 0
|
||||
Top = 101
|
||||
Width = 1349
|
||||
Width = 1341
|
||||
Height = 28
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BorderStyle = bsSingle
|
||||
TabOrder = 2
|
||||
DesignSize = (
|
||||
1345
|
||||
1337
|
||||
24)
|
||||
object Label31: TLabel
|
||||
Left = 25
|
||||
|
|
|
|||
|
|
@ -144,7 +144,7 @@ type
|
|||
v1Column38: TcxGridDBColumn;
|
||||
v1Column40: TcxGridDBColumn;
|
||||
Label14: TLabel;
|
||||
KuanHao: TEdit;
|
||||
PRTKuanNO: TEdit;
|
||||
v1Column41: TcxGridDBColumn;
|
||||
v1Column43: TcxGridDBColumn;
|
||||
ToolButton2: TToolButton;
|
||||
|
|
|
|||
|
|
@ -21,8 +21,8 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object cxGrid3: TcxGrid
|
||||
Left = 911
|
||||
Top = 89
|
||||
Width = 463
|
||||
Height = 675
|
||||
Width = 455
|
||||
Height = 667
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object Tv3: TcxGridDBTableView
|
||||
|
|
@ -119,7 +119,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
Left = 0
|
||||
Top = 89
|
||||
Width = 405
|
||||
Height = 675
|
||||
Height = 667
|
||||
Align = alLeft
|
||||
TabOrder = 1
|
||||
object SpeedButton13: TSpeedButton
|
||||
|
|
@ -478,7 +478,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
Left = 405
|
||||
Top = 89
|
||||
Width = 212
|
||||
Height = 675
|
||||
Height = 667
|
||||
Align = alLeft
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -513,7 +513,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label5: TLabel
|
||||
Left = 19
|
||||
Top = 104
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 23
|
||||
Caption = #38271#24230
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -526,7 +526,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label11: TLabel
|
||||
Left = 19
|
||||
Top = 386
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 23
|
||||
Caption = #27611#37325
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -539,7 +539,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label10: TLabel
|
||||
Left = 11
|
||||
Top = 485
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 23
|
||||
Caption = #27491#21697
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -552,7 +552,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label12: TLabel
|
||||
Left = 118
|
||||
Top = 485
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 22
|
||||
Caption = #27425#21697
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -565,7 +565,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label26: TLabel
|
||||
Left = 11
|
||||
Top = 538
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 22
|
||||
Caption = #20986#32440
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -578,7 +578,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label30: TLabel
|
||||
Left = 19
|
||||
Top = 292
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 23
|
||||
Caption = #30382#37325
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -604,7 +604,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label32: TLabel
|
||||
Left = 19
|
||||
Top = 339
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 23
|
||||
Caption = #20928#37325
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -630,7 +630,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label34: TLabel
|
||||
Left = 118
|
||||
Top = 538
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 22
|
||||
Caption = #20221#25968
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -643,7 +643,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label36: TLabel
|
||||
Left = 19
|
||||
Top = 13
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 23
|
||||
Caption = #21367#21495
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -656,7 +656,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label37: TLabel
|
||||
Left = 19
|
||||
Top = 58
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 23
|
||||
Caption = #32568#21495
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -669,7 +669,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label38: TLabel
|
||||
Left = 19
|
||||
Top = 433
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 23
|
||||
Caption = #31995#25968
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -682,7 +682,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label6: TLabel
|
||||
Left = 19
|
||||
Top = 245
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 23
|
||||
Caption = #25918#30721
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -695,7 +695,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label14: TLabel
|
||||
Left = 19
|
||||
Top = 148
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 23
|
||||
Caption = #38376#24133
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -708,7 +708,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Label16: TLabel
|
||||
Left = 19
|
||||
Top = 196
|
||||
Width = 36
|
||||
Width = 40
|
||||
Height = 23
|
||||
Caption = #20811#37325
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -1223,7 +1223,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
Left = 617
|
||||
Top = 89
|
||||
Width = 294
|
||||
Height = 675
|
||||
Height = 667
|
||||
Align = alLeft
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -1232,7 +1232,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
Left = 2
|
||||
Top = 2
|
||||
Width = 290
|
||||
Height = 387
|
||||
Height = 379
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv2: TcxGridDBTableView
|
||||
|
|
@ -1331,7 +1331,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
end
|
||||
object AOrdDefNote1: TRichEdit
|
||||
Left = 2
|
||||
Top = 389
|
||||
Top = 381
|
||||
Width = 290
|
||||
Height = 284
|
||||
Align = alBottom
|
||||
|
|
@ -1348,14 +1348,14 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object Panel5: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1374
|
||||
Width = 1366
|
||||
Height = 89
|
||||
Align = alTop
|
||||
TabOrder = 0
|
||||
object Panel6: TPanel
|
||||
Left = 1
|
||||
Top = 31
|
||||
Width = 1372
|
||||
Width = 1364
|
||||
Height = 57
|
||||
Align = alClient
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -1513,7 +1513,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
|||
object ToolBar1: TToolBar
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1372
|
||||
Width = 1364
|
||||
Height = 30
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 119
|
||||
|
|
|
|||
|
|
@ -532,8 +532,8 @@ begin
|
|||
FKUANNO := Trim(ADOTmp.fieldbyname('PRTKUANNO').AsString);
|
||||
MKXS.Text := Trim(ADOTmp.fieldbyname('Xs2').AsString);
|
||||
|
||||
jymf.Text := Trim(ADOTmp.fieldbyname('MPRTMF').AsString);
|
||||
jykz.Text := Trim(ADOTmp.fieldbyname('MPRTKZ').AsString);
|
||||
// jymf.Text := Trim(ADOTmp.fieldbyname('MPRTMF').AsString);
|
||||
// jykz.Text := Trim(ADOTmp.fieldbyname('MPRTKZ').AsString);
|
||||
|
||||
AOrdDefNote1.Text := '¶©µ¥ºÅ£º' + Trim(ADOTmp.fieldbyname('OrderNo').AsString) + #13;
|
||||
AOrdDefNote1.Text := AOrdDefNote1.Text + 'Æ·Ãû£º' + Trim(ADOTmp.fieldbyname('MPRTCodeName').AsString) + #13;
|
||||
|
|
@ -966,7 +966,7 @@ begin
|
|||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('update CK_SXPB_CRMX SET mxmjxh=1+isnull((select cast (max(mxmjxh) as int) from CK_SXPB_CRMX X ');
|
||||
sql.Add(' where X.MXGANGHAO=CK_SXPB_CRMX.MXGANGHAO and X.CRNO=CK_SXPB_CRMX.CRNO and X.MXID<>CK_SXPB_CRMX.MXID and X.MJType =''ÕýÆ·''),0)');
|
||||
sql.Add(' where X.CRNO=CK_SXPB_CRMX.CRNO and X.MXID<>CK_SXPB_CRMX.MXID and X.MJType =''ÕýÆ·''),0)');
|
||||
sql.Add('where mxid=''' + Trim(maxno) + '''');
|
||||
execsql;
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\ÍØÐù\½ø¶Èͳ¼Æ²éѯ(Statistics.dll)\testDll.exe
|
||||
HostApplication=D:\D7W\ÏîÄ¿´úÂë\D7myTuoxuan\½ø¶Èͳ¼Æ²éѯ(Statistics.dll)\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
|||
|
|
@ -7,6 +7,7 @@ uses
|
|||
forms,
|
||||
WinTypes,
|
||||
WinProcs,
|
||||
midaslib,
|
||||
U_GetDllForm in 'U_GetDllForm.pas',
|
||||
U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas',
|
||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
||||
|
|
|
|||
|
|
@ -122,13 +122,14 @@ object frmCPTopList: TfrmCPTopList
|
|||
Left = 0
|
||||
Top = 102
|
||||
Width = 1157
|
||||
Height = 364
|
||||
ActivePage = cxTabSheet1
|
||||
Height = 363
|
||||
Align = alClient
|
||||
Style = 8
|
||||
TabOrder = 2
|
||||
Properties.ActivePage = cxTabSheet1
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 8
|
||||
OnChange = cxPageControl1Change
|
||||
ClientRectBottom = 364
|
||||
ClientRectBottom = 363
|
||||
ClientRectRight = 1157
|
||||
ClientRectTop = 23
|
||||
object cxTabSheet1: TcxTabSheet
|
||||
|
|
@ -138,11 +139,11 @@ object frmCPTopList: TfrmCPTopList
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 1157
|
||||
Height = 341
|
||||
Height = 340
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv1: TcxGridDBBandedTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
|
|
@ -996,7 +997,7 @@ object frmCPTopList: TfrmCPTopList
|
|||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv2: TcxGridDBBandedTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
|
|
@ -1449,10 +1450,11 @@ object frmCPTopList: TfrmCPTopList
|
|||
Font.Name = 'Arial'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Style = 8
|
||||
TabIndex = 1
|
||||
TabOrder = 4
|
||||
Tabs.Strings = (
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 8
|
||||
Properties.TabIndex = 1
|
||||
Properties.Tabs.Strings = (
|
||||
' $ '
|
||||
' '#65509' '
|
||||
' '#8364' ')
|
||||
|
|
|
|||
|
|
@ -10,7 +10,22 @@ uses
|
|||
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
|
||||
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||
cxDropDownEdit, MovePanel, Menus, cxCheckBox, RM_Dataset, RM_System, RM_Common,
|
||||
RM_Class, RM_GridReport, RM_e_Xls, cxPC;
|
||||
RM_Class, RM_GridReport, RM_e_Xls, cxPC, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, dxSkinsCore, 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, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter,
|
||||
dxBarBuiltInMenu, cxNavigator;
|
||||
|
||||
type
|
||||
TfrmCPTopList = class(TForm)
|
||||
|
|
|
|||
|
|
@ -5,7 +5,20 @@ interface
|
|||
uses
|
||||
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
||||
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
|
||||
dxSkinsDefaultPainters;
|
||||
dxSkinsDefaultPainters, 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, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||
dxSkinXmas2008Blue;
|
||||
var
|
||||
DConString:String; {全局连接字符串}
|
||||
server, dtbase, user, pswd: String; {数据库连接参数}
|
||||
|
|
|
|||
|
|
@ -14,7 +14,7 @@ implementation
|
|||
|
||||
uses
|
||||
U_DataLink, U_SxXnKcList, U_OrderProgress, U_AllOrderProgress, U_CPTopList,
|
||||
U_KHTopList, U_OrderLRList, U_OrderProgress2, U_DDLRCX;
|
||||
U_KHTopList, U_OrderLRList, U_OrderProgress2, U_DDLRCX, U_YWYTopList;
|
||||
|
||||
/////////////////////////////////////////////////////////////////
|
||||
// 功能说明:取Dll中得窗体 //
|
||||
|
|
@ -69,7 +69,7 @@ begin
|
|||
|
||||
server := '121.40.233.100,7781';
|
||||
// server := '.';
|
||||
dtbase := 'TUOXUANdata';
|
||||
dtbase := 'TUOXUAN10data';
|
||||
user := 'sa';
|
||||
pswd := 'rightsoft@123';
|
||||
// pswd := 'rightsoft';
|
||||
|
|
@ -284,6 +284,25 @@ begin
|
|||
//句柄
|
||||
mnewHandle := frmCPTopList.Handle;
|
||||
end;
|
||||
133: //ÒµÎñÔ±ÏúÁ¿ÅÅÐаñ
|
||||
begin
|
||||
if frmywyTopList = nil then
|
||||
begin
|
||||
frmYWYTopList := TfrmYWYTopList.Create(application.MainForm);
|
||||
with frmYWYTopList do
|
||||
begin
|
||||
caption := Trim(Title);
|
||||
FormStyle := mstyle;
|
||||
windowState := mstate;
|
||||
BorderStyle := mborderstyle;
|
||||
//show;
|
||||
end;
|
||||
end
|
||||
else
|
||||
frmYWYTopList.BringToFront;
|
||||
//¾ä±ú
|
||||
mnewHandle := frmYWYTopList.Handle;
|
||||
end;
|
||||
end;
|
||||
|
||||
Result := mnewHandle;
|
||||
|
|
|
|||
|
|
@ -111,14 +111,14 @@ object frmKHTopList: TfrmKHTopList
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object KHName: TEdit
|
||||
object KHNAME: TEdit
|
||||
Tag = 2
|
||||
Left = 154
|
||||
Top = 8
|
||||
Width = 119
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
OnChange = KHNameChange
|
||||
OnChange = KHNAMEChange
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 51
|
||||
|
|
@ -135,13 +135,14 @@ object frmKHTopList: TfrmKHTopList
|
|||
Left = 0
|
||||
Top = 102
|
||||
Width = 1185
|
||||
Height = 397
|
||||
ActivePage = cxTabSheet1
|
||||
Height = 396
|
||||
Align = alClient
|
||||
Style = 8
|
||||
TabOrder = 2
|
||||
Properties.ActivePage = cxTabSheet1
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 8
|
||||
OnChange = cxPageControl1Change
|
||||
ClientRectBottom = 397
|
||||
ClientRectBottom = 396
|
||||
ClientRectRight = 1185
|
||||
ClientRectTop = 23
|
||||
object cxTabSheet1: TcxTabSheet
|
||||
|
|
@ -157,11 +158,11 @@ object frmKHTopList: TfrmKHTopList
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 1185
|
||||
Height = 374
|
||||
Height = 373
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
|
|
@ -227,7 +228,7 @@ object frmKHTopList: TfrmKHTopList
|
|||
Styles.Header = DataLink_Statistics.Default
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'KHName'
|
||||
DataBinding.FieldName = 'KHNAME'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -342,11 +343,11 @@ object frmKHTopList: TfrmKHTopList
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 1185
|
||||
Height = 374
|
||||
Height = 373
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv2: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
|
|
@ -483,10 +484,11 @@ object frmKHTopList: TfrmKHTopList
|
|||
Font.Name = 'Arial'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Style = 8
|
||||
TabIndex = 1
|
||||
TabOrder = 4
|
||||
Tabs.Strings = (
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 8
|
||||
Properties.TabIndex = 1
|
||||
Properties.Tabs.Strings = (
|
||||
' $ '
|
||||
' '#65509' '
|
||||
' '#8364' ')
|
||||
|
|
|
|||
|
|
@ -10,7 +10,20 @@ uses
|
|||
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
|
||||
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||
cxDropDownEdit, MovePanel, Menus, cxCheckBox, RM_Dataset, RM_System, RM_Common,
|
||||
RM_Class, RM_GridReport, RM_e_Xls, cxPC;
|
||||
RM_Class, RM_GridReport, RM_e_Xls, cxPC, cxLookAndFeels, cxLookAndFeelPainters,
|
||||
dxSkinsCore, 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, dxSkinPumpkin, dxSkinSeven,
|
||||
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
||||
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
||||
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||
dxSkinXmas2008Blue, dxSkinscxPCPainter, dxBarBuiltInMenu, cxNavigator;
|
||||
|
||||
type
|
||||
TfrmKHTopList = class(TForm)
|
||||
|
|
@ -26,7 +39,7 @@ type
|
|||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
CDS_Main: TClientDataSet;
|
||||
Label1: TLabel;
|
||||
KHName: TEdit;
|
||||
KHNAME: TEdit;
|
||||
Label2: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
cxPageControl1: TcxPageControl;
|
||||
|
|
@ -68,7 +81,7 @@ type
|
|||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
procedure KHNameChange(Sender: TObject);
|
||||
procedure KHNAMEChange(Sender: TObject);
|
||||
procedure cxPageControl1Change(Sender: TObject);
|
||||
procedure cxTabControl1Change(Sender: TObject);
|
||||
private
|
||||
|
|
@ -133,8 +146,10 @@ begin
|
|||
begin
|
||||
Parameters.ParamByName('BZType').Value := '€';
|
||||
end;
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
|
||||
SCreateCDS20(ADOQueryMain, CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain, CDS_Main);
|
||||
finally
|
||||
|
|
@ -173,7 +188,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmKHTopList.KHNameChange(Sender: TObject);
|
||||
procedure TfrmKHTopList.KHNAMEChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
|
|
|||
543
进度统计查询(Statistics.dll)/U_YWYTopList.dfm
Normal file
543
进度统计查询(Statistics.dll)/U_YWYTopList.dfm
Normal file
|
|
@ -0,0 +1,543 @@
|
|||
object frmywyTopList: TfrmywyTopList
|
||||
Left = 281
|
||||
Top = 176
|
||||
Width = 1201
|
||||
Height = 537
|
||||
Caption = #19994#21153#21592#38144#37327#25490#34892#27036
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1185
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_Statistics.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 0
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 20
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 21
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1185
|
||||
Height = 36
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 128
|
||||
Top = 12
|
||||
Width = 39
|
||||
Height = 12
|
||||
Caption = #19994#21153#21592
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 23
|
||||
Top = 12
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #24180#20221
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 308
|
||||
Top = 12
|
||||
Width = 117
|
||||
Height = 12
|
||||
Caption = #27880#65306#25968#25454#26174#31034#20026#37329#39069
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object KHNAME: TEdit
|
||||
Tag = 2
|
||||
Left = 174
|
||||
Top = 8
|
||||
Width = 119
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
OnChange = KHNAMEChange
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 51
|
||||
Top = 8
|
||||
Width = 60
|
||||
Height = 20
|
||||
Date = 40675.000000000000000000
|
||||
Format = 'yyyy'
|
||||
Time = 40675.000000000000000000
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object cxPageControl1: TcxPageControl
|
||||
Left = 0
|
||||
Top = 102
|
||||
Width = 1185
|
||||
Height = 396
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
Properties.ActivePage = cxTabSheet1
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 8
|
||||
OnChange = cxPageControl1Change
|
||||
ClientRectBottom = 396
|
||||
ClientRectRight = 1185
|
||||
ClientRectTop = 23
|
||||
object cxTabSheet1: TcxTabSheet
|
||||
Caption = #25353#26376#20221
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -14
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ImageIndex = 0
|
||||
ParentFont = False
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1185
|
||||
Height = 373
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column7
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column1
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column8
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column3
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column2
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column4
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column3
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column9
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column10
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column11
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_Statistics.SHuangSe
|
||||
Styles.IncSearch = DataLink_Statistics.SHuangSe
|
||||
Styles.Selection = DataLink_Statistics.SHuangSe
|
||||
Styles.Header = DataLink_Statistics.Default
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #19994#21153#21592
|
||||
DataBinding.FieldName = 'KHNAME'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 86
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = '1'#26376#20221
|
||||
DataBinding.FieldName = 'MonMoney1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = '2'#26376#20221
|
||||
DataBinding.FieldName = 'MonMoney2'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = '3'#26376#20221
|
||||
DataBinding.FieldName = 'MonMoney3'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Caption = '4'#26376#20221
|
||||
DataBinding.FieldName = 'MonMoney4'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = '5'#26376#20221
|
||||
DataBinding.FieldName = 'MonMoney5'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = '6'#26376#20221
|
||||
DataBinding.FieldName = 'MonMoney6'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = '7'#26376#20221
|
||||
DataBinding.FieldName = 'MonMoney7'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = '8'#26376#20221
|
||||
DataBinding.FieldName = 'MonMoney8'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = '9'#26376#20221
|
||||
DataBinding.FieldName = 'MonMoney9'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 80
|
||||
end
|
||||
object v2Column5: TcxGridDBColumn
|
||||
Caption = '10'#26376#20221
|
||||
DataBinding.FieldName = 'MonMoney10'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = '11'#26376#20221
|
||||
DataBinding.FieldName = 'MonMoney11'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = '12'#26376#20221
|
||||
DataBinding.FieldName = 'MonMoney12'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column11: TcxGridDBColumn
|
||||
Caption = #21512#35745
|
||||
DataBinding.FieldName = 'MonMoneyHJ'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
end
|
||||
object cxTabSheet2: TcxTabSheet
|
||||
Caption = #25353#23395#24230
|
||||
ImageIndex = 1
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1185
|
||||
Height = 373
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = cxGridDBColumn2
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = cxGridDBColumn3
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = cxGridDBColumn4
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = cxGridDBColumn5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column2
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_Statistics.SHuangSe
|
||||
Styles.IncSearch = DataLink_Statistics.SHuangSe
|
||||
Styles.Selection = DataLink_Statistics.SHuangSe
|
||||
Styles.Header = DataLink_Statistics.Default
|
||||
object cxGridDBColumn1: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'KHName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 86
|
||||
end
|
||||
object cxGridDBColumn2: TcxGridDBColumn
|
||||
Caption = '1'#23395#24230
|
||||
DataBinding.FieldName = 'MonMoney1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object cxGridDBColumn3: TcxGridDBColumn
|
||||
Caption = '2'#23395#24230
|
||||
DataBinding.FieldName = 'MonMoney2'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 80
|
||||
end
|
||||
object cxGridDBColumn4: TcxGridDBColumn
|
||||
Caption = '3'#23395#24230
|
||||
DataBinding.FieldName = 'MonMoney3'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object cxGridDBColumn5: TcxGridDBColumn
|
||||
Caption = '4'#23395#24230
|
||||
DataBinding.FieldName = 'MonMoney4'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 80
|
||||
end
|
||||
object v2Column2: TcxGridDBColumn
|
||||
Caption = #21512#35745
|
||||
DataBinding.FieldName = 'MonMoneyHJ'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 102
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv2
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object MovePanel2: TMovePanel
|
||||
Left = 408
|
||||
Top = 192
|
||||
Width = 289
|
||||
Height = 49
|
||||
BevelInner = bvLowered
|
||||
Caption = #27491#22312#22788#29702#25968#25454#65292#35831#31245#21518#12290#12290#12290
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -14
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
end
|
||||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 69
|
||||
Width = 1185
|
||||
Height = 33
|
||||
Align = alTop
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = 'Arial'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 8
|
||||
Properties.TabIndex = 1
|
||||
Properties.Tabs.Strings = (
|
||||
' $ '
|
||||
' '#65509' '
|
||||
' '#8364' ')
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 35
|
||||
ClientRectRight = 1185
|
||||
ClientRectTop = 35
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_Statistics.ADOLink
|
||||
Parameters = <>
|
||||
Left = 688
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_Statistics.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 840
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_Statistics.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 792
|
||||
Top = 40
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 848
|
||||
Top = 176
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 720
|
||||
Top = 144
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 512
|
||||
Top = 152
|
||||
end
|
||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 776
|
||||
Top = 144
|
||||
end
|
||||
end
|
||||
207
进度统计查询(Statistics.dll)/U_YWYTopList.pas
Normal file
207
进度统计查询(Statistics.dll)/U_YWYTopList.pas
Normal file
|
|
@ -0,0 +1,207 @@
|
|||
unit U_YWYTopList;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
|
||||
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
|
||||
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||
cxDropDownEdit, MovePanel, Menus, cxCheckBox, RM_Dataset, RM_System, RM_Common,
|
||||
RM_Class, RM_GridReport, RM_e_Xls, cxPC, cxLookAndFeels, cxLookAndFeelPainters,
|
||||
dxSkinsCore, 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, dxSkinPumpkin, dxSkinSeven,
|
||||
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
||||
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
||||
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||
dxSkinXmas2008Blue, dxSkinscxPCPainter, dxBarBuiltInMenu, cxNavigator;
|
||||
|
||||
type
|
||||
TfrmywyTopList = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBFind: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
CDS_Main: TClientDataSet;
|
||||
Label1: TLabel;
|
||||
KHNAME: TEdit;
|
||||
Label2: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
cxPageControl1: TcxPageControl;
|
||||
cxTabSheet1: TcxTabSheet;
|
||||
cxTabSheet2: TcxTabSheet;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v2Column3: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v2Column5: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
v1Column9: TcxGridDBColumn;
|
||||
v1Column10: TcxGridDBColumn;
|
||||
cxGrid2: TcxGrid;
|
||||
Tv2: TcxGridDBTableView;
|
||||
cxGridDBColumn1: TcxGridDBColumn;
|
||||
cxGridDBColumn2: TcxGridDBColumn;
|
||||
cxGridDBColumn3: TcxGridDBColumn;
|
||||
cxGridDBColumn4: TcxGridDBColumn;
|
||||
cxGridDBColumn5: TcxGridDBColumn;
|
||||
cxGrid2Level1: TcxGridLevel;
|
||||
v1Column11: TcxGridDBColumn;
|
||||
v2Column2: TcxGridDBColumn;
|
||||
MovePanel2: TMovePanel;
|
||||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||||
Label3: TLabel;
|
||||
cxTabControl1: TcxTabControl;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
procedure KHNAMEChange(Sender: TObject);
|
||||
procedure cxPageControl1Change(Sender: TObject);
|
||||
procedure cxTabControl1Change(Sender: TObject);
|
||||
private
|
||||
FLeft, FTop: Integer;
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
FMainid, FSubId, FConNo, FColor, FCodeName: string;
|
||||
end;
|
||||
|
||||
var
|
||||
frmywyTopList: TfrmywyTopList;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_Fun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmywyTopList.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmYWYTopList := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmywyTopList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmywyTopList.InitGrid();
|
||||
begin
|
||||
MovePanel2.Visible := True;
|
||||
MovePanel2.Refresh;
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('exec P_View_ywyTop :FYear,:CXState,:BZType');
|
||||
Parameters.ParamByName('FYear').Value := Trim(FormatDateTime('yyyy', BegDate.Date));
|
||||
if cxPageControl1.ActivePageIndex = 0 then
|
||||
begin
|
||||
Parameters.ParamByName('CXState').Value := '月';
|
||||
end
|
||||
else
|
||||
begin
|
||||
Parameters.ParamByName('CXState').Value := '季度';
|
||||
end;
|
||||
if cxTabControl1.TabIndex = 0 then
|
||||
begin
|
||||
Parameters.ParamByName('BZType').Value := 'USD';
|
||||
end
|
||||
else if cxTabControl1.TabIndex = 1 then
|
||||
begin
|
||||
Parameters.ParamByName('BZType').Value := 'RMB';
|
||||
end
|
||||
else if cxTabControl1.TabIndex = 2 then
|
||||
begin
|
||||
Parameters.ParamByName('BZType').Value := '€';
|
||||
end;
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
|
||||
SCreateCDS20(ADOQueryMain, CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain, CDS_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
MovePanel2.Visible := False;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmywyTopList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmywyTopList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid('Tv1', Tv1, '客户排行');
|
||||
WriteCxGrid('Tv2', Tv2, '客户排行');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmywyTopList.FormShow(Sender: TObject);
|
||||
begin
|
||||
BegDate.Date := SGetServerDate(ADOQueryTemp);
|
||||
ReadCxGrid('Tv1', Tv1, '客户排行');
|
||||
ReadCxGrid('Tv2', Tv2, '客户排行');
|
||||
end;
|
||||
|
||||
procedure TfrmywyTopList.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQueryMain, CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain, CDS_Main);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmywyTopList.KHNAMEChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmywyTopList.cxPageControl1Change(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmywyTopList.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user