diff --git a/应收应付/U_YSCR.dfm b/应收应付/U_YSCR.dfm index 09472f5..a779a62 100644 --- a/应收应付/U_YSCR.dfm +++ b/应收应付/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 - 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 diff --git a/应收应付/U_YSCR.pas b/应收应付/U_YSCR.pas index d37ba52..9287379 100644 --- a/应收应付/U_YSCR.pas +++ b/应收应付/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); diff --git a/应收应付/YSYF.dof b/应收应付/YSYF.dof index 089491a..229f397 100644 --- a/应收应付/YSYF.dof +++ b/应收应付/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= diff --git a/染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof b/染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof index 80f314d..5813d30 100644 --- a/染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof +++ b/染整计划(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= diff --git a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm b/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm index 8062bb1..e27c904 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm +++ b/染整计划(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 - 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 diff --git a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas b/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas index ae361d7..6e48541 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas +++ b/染整计划(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; diff --git a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm index 8812fe1..08b3b9c 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm @@ -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 diff --git a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas index d5c0993..e963fed 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas +++ b/染整计划(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); - 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; diff --git a/进度统计查询(Statistics.dll)/Statistics.dof b/进度统计查询(Statistics.dll)/Statistics.dof index 61ad27c..d1dc9a5 100644 --- a/进度统计查询(Statistics.dll)/Statistics.dof +++ b/进度统计查询(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= diff --git a/进度统计查询(Statistics.dll)/Statistics.dpr b/进度统计查询(Statistics.dll)/Statistics.dpr index f658996..e685e18 100644 --- a/进度统计查询(Statistics.dll)/Statistics.dpr +++ b/进度统计查询(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}, diff --git a/进度统计查询(Statistics.dll)/U_CPTopList.dfm b/进度统计查询(Statistics.dll)/U_CPTopList.dfm index deba49a..6862e50 100644 --- a/进度统计查询(Statistics.dll)/U_CPTopList.dfm +++ b/进度统计查询(Statistics.dll)/U_CPTopList.dfm @@ -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' ') diff --git a/进度统计查询(Statistics.dll)/U_CPTopList.pas b/进度统计查询(Statistics.dll)/U_CPTopList.pas index e959ea1..d9466b6 100644 --- a/进度统计查询(Statistics.dll)/U_CPTopList.pas +++ b/进度统计查询(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) diff --git a/进度统计查询(Statistics.dll)/U_DataLink.pas b/进度统计查询(Statistics.dll)/U_DataLink.pas index 143d3d4..ea550fc 100644 --- a/进度统计查询(Statistics.dll)/U_DataLink.pas +++ b/进度统计查询(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; {Êý¾Ý¿âÁ¬½Ó²ÎÊý} diff --git a/进度统计查询(Statistics.dll)/U_GetDllForm.pas b/进度统计查询(Statistics.dll)/U_GetDllForm.pas index d9854e7..5dc02f1 100644 --- a/进度统计查询(Statistics.dll)/U_GetDllForm.pas +++ b/进度统计查询(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; diff --git a/进度统计查询(Statistics.dll)/U_KHTopList.dfm b/进度统计查询(Statistics.dll)/U_KHTopList.dfm index a0901a0..34d3cff 100644 --- a/进度统计查询(Statistics.dll)/U_KHTopList.dfm +++ b/进度统计查询(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 - 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' ') diff --git a/进度统计查询(Statistics.dll)/U_KHTopList.pas b/进度统计查询(Statistics.dll)/U_KHTopList.pas index 5be3d52..813cf60 100644 --- a/进度统计查询(Statistics.dll)/U_KHTopList.pas +++ b/进度统计查询(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; diff --git a/进度统计查询(Statistics.dll)/U_YWYTopList.dfm b/进度统计查询(Statistics.dll)/U_YWYTopList.dfm new file mode 100644 index 0000000..7048337 --- /dev/null +++ b/进度统计查询(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 diff --git a/进度统计查询(Statistics.dll)/U_YWYTopList.pas b/进度统计查询(Statistics.dll)/U_YWYTopList.pas new file mode 100644 index 0000000..8b9abb8 --- /dev/null +++ b/进度统计查询(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. +