1234

应收应付/U_YSCR.dfm

@@ -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
+    Width = 1272
-    Height = 534
+    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

应收应付/U_YSCR.pas

@@ -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);

应收应付/YSYF.dof

@@ -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=

染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof

@@ -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=

染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm

@@ -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
+    Width = 1341
-    Height = 561
+    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

染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas

@@ -144,7 +144,7 @@ type
     v1Column38: TcxGridDBColumn;
     v1Column40: TcxGridDBColumn;
     Label14: TLabel;
-    KuanHao: TEdit;
+    PRTKuanNO: TEdit;
     v1Column41: TcxGridDBColumn;
     v1Column43: TcxGridDBColumn;
     ToolButton2: TToolButton;

染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm

@@ -21,8 +21,8 @@ object frmMarkingInspection: TfrmMarkingInspection
   object cxGrid3: TcxGrid
     Left = 911
     Top = 89
-    Width = 463
+    Width = 455
-    Height = 675
+    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

染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas

@@ -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);
+//    jymf.Text := Trim(ADOTmp.fieldbyname('MPRTMF').AsString);
-    jykz.Text := Trim(ADOTmp.fieldbyname('MPRTKZ').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;

进度统计查询(Statistics.dll)/Statistics.dof

@@ -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=

进度统计查询(Statistics.dll)/Statistics.dpr

@@ -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},

进度统计查询(Statistics.dll)/U_CPTopList.dfm

@@ -122,13 +122,14 @@ object frmCPTopList: TfrmCPTopList
     Left = 0
     Top = 102
     Width = 1157
-    Height = 364
+    Height = 363
-    ActivePage = cxTabSheet1
     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'             ')

进度统计查询(Statistics.dll)/U_CPTopList.pas

@@ -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)

进度统计查询(Statistics.dll)/U_DataLink.pas

@@ -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;  {数据库连接参数}

进度统计查询(Statistics.dll)/U_GetDllForm.pas

@@ -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;

进度统计查询(Statistics.dll)/U_KHTopList.dfm

@@ -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
+    Height = 396
-    ActivePage = cxTabSheet1
     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'             ')

进度统计查询(Statistics.dll)/U_KHTopList.pas

@@ -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;

进度统计查询(Statistics.dll)/U_YWYTopList.dfm

@@ -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

进度统计查询(Statistics.dll)/U_YWYTopList.pas

@@ -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.
+