diff --git a/E03梭织坯布检验/TatInsp.dproj.local b/E03梭织坯布检验/TatInsp.dproj.local index d9bcf79..d0a86ec 100644 --- a/E03梭织坯布检验/TatInsp.dproj.local +++ b/E03梭织坯布检验/TatInsp.dproj.local @@ -1,52 +1,52 @@  - 1899/12/30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas - 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas - 1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas - 1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas - 1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm - 1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 2025/11/24 13:58:34.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas - 2025/11/24 15:19:14.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas - 2025/12/19 14:11:54.000.060,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatInspSHHZ.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm + 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas + 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas + 1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj + 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm + 1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 2025-11-24 13:58:34.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas + 2025-11-24 15:19:14.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas + 2025-12-19 14:11:54.000.060,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatInspSHHZ.pas diff --git a/E03梭织坯布检验/TatInspLogin.dproj.local b/E03梭织坯布检验/TatInspLogin.dproj.local index 7f07b37..2213b37 100644 --- a/E03梭织坯布检验/TatInspLogin.dproj.local +++ b/E03梭织坯布检验/TatInspLogin.dproj.local @@ -1,27 +1,27 @@  - - - - + + - - - - + + + + + + - - + + - 1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj - 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj + 1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj + 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj diff --git a/E03梭织坯布检验/TatInspLogin.identcache b/E03梭织坯布检验/TatInspLogin.identcache index 83e3965..f9c4d47 100644 Binary files a/E03梭织坯布检验/TatInspLogin.identcache and b/E03梭织坯布检验/TatInspLogin.identcache differ diff --git a/E03梭织坯布检验/U_TatClothInspHZList.dfm b/E03梭织坯布检验/U_TatClothInspHZList.dfm index 9dd359d..24aaffc 100644 --- a/E03梭织坯布检验/U_TatClothInspHZList.dfm +++ b/E03梭织坯布检验/U_TatClothInspHZList.dfm @@ -7,8 +7,6 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitLeft = -689 - ExplicitTop = -14 ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 @@ -79,6 +77,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitTop = 24 object Label2: TLabel Left = 70 Top = 36 @@ -240,424 +239,942 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList OnKeyPress = C_NameKeyPress end end - object cxGrid1: TcxGrid [2] + object PageControl1: TPageControl [2] Left = 0 Top = 97 Width = 1540 Height = 503 + ActivePage = TabSheet1 Align = alClient - BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -20 Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_TatInsp.cxImageList_bar + Font.Style = [fsBold] ParentFont = False - PopupMenu = PM_1 TabOrder = 2 - object Tv1: TcxGridDBTableView - OnDblClick = Tv1DblClick - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_1 - DataController.Filter.AutoDataSetFilter = True - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum + object TabSheet1: TTabSheet + Caption = ' '#27719#24635' ' + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1532 + Height = 467 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatInsp.cxImageList_bar + ParentFont = False + PopupMenu = PM_1 + TabOrder = 0 + ExplicitTop = 103 + ExplicitWidth = 1540 + ExplicitHeight = 503 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + 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 + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column6 + end + item + Kind = skSum + Column = Tv1Column1 + end + item + Kind = skSum + Column = Tv1Column7 + end + item + Kind = skSum + Column = Tv1Column8 + end + item + Kind = skSum + Column = Tv1Column9 + end + item + Kind = skSum + Column = Tv1Column10 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column13 + end + item + Kind = skSum + Column = Tv1Column14 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column17 + end + item + Kind = skSum + Column = Tv1Column18 + 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 = Tv1fbJS + end + item + Kind = skSum + Column = Tv1fbqty + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1SHMeter + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object Tv1C_Name: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 66 + OnCompareRowValuesForCellMerging = Tv1C_NameCompareRowValuesForCellMerging + end + object Tv1DXMF: TcxGridDBColumn + Caption = #23450#22411#38376#24133 + DataBinding.FieldName = 'DXMF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1dxmeter: TcxGridDBColumn + Caption = #23450#22411#31859#25968 + DataBinding.FieldName = 'dxmeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1dxmeterCompareRowValuesForCellMerging + end + object Tv1Carno: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'Carno' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1CarnoCompareRowValuesForCellMerging + end + object Tv1PCID: TcxGridDBColumn + Caption = #27969#36716#21345#21495 + DataBinding.FieldName = 'pcid' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 68 + OnCompareRowValuesForCellMerging = Tv1PCIDCompareRowValuesForCellMerging + end + object Tv1CIMachNo: TcxGridDBColumn + Caption = #20998#20999#26426#21488 + DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1CIMachNoCompareRowValuesForCellMerging + end + object Tv1BCIOID: TcxGridDBColumn + Caption = #20998#20999#21333#21495 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1BCIOIDCompareRowValuesForCellMerging + end + object Tv1qgSL: TcxGridDBColumn + Caption = #20999#21106#32553#29575 + DataBinding.FieldName = 'qgSL' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DecimalPlaces = 2 + Properties.DisplayFormat = '0.00%' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1qgSLCompareRowValuesForCellMerging + end + object Tv1qgMeter: TcxGridDBColumn + Caption = #20999#21106#31859#25968 + DataBinding.FieldName = 'qgMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1qgMeterCompareRowValuesForCellMerging + end + object Tv1Column20: TcxGridDBColumn + Caption = #20248#31561#29575 + DataBinding.FieldName = 'YDRate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.0%' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1Column21: TcxGridDBColumn + Caption = #24223#24067#29575 + DataBinding.FieldName = 'FBRate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.0%' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1issp: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1isspCompareRowValuesForCellMerging + end + object Tv1Column4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column6: TcxGridDBColumn + Caption = #20248#31561#21367#25968 + DataBinding.FieldName = 'YDJs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20248#31561#31859#25968 + DataBinding.FieldName = 'Ydqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column9: TcxGridDBColumn + Caption = #23567#21367#21367#25968 + DataBinding.FieldName = 'xjJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column10: TcxGridDBColumn + Caption = #23567#21367#31859#25968 + DataBinding.FieldName = 'xjqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20108#31561#21367#25968 + DataBinding.FieldName = 'edJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column8: TcxGridDBColumn + Caption = #20108#31561#31859#25968 + DataBinding.FieldName = 'edqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column17: TcxGridDBColumn + Caption = #27979#35797#21367#25968 + DataBinding.FieldName = 'csJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column18: TcxGridDBColumn + Caption = #27979#35797#31859#25968 + DataBinding.FieldName = 'csqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column13: TcxGridDBColumn + Caption = #20998#20999#21367#25968 + DataBinding.FieldName = 'fqJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column14: TcxGridDBColumn + Caption = #20998#20999#31859#25968 + DataBinding.FieldName = 'fqqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1fbJS: TcxGridDBColumn + Caption = #24223#24067#21367#25968 + DataBinding.FieldName = 'fbJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1fbqty: TcxGridDBColumn + Caption = #24223#24067#31859#25968 + DataBinding.FieldName = 'fbqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column15: TcxGridDBColumn + DataBinding.FieldName = 'meterall' + DataBinding.IsNullValueType = True + Visible = False + end + object Tv1Column23: TcxGridDBColumn + DataBinding.FieldName = 'C_Widthall' + DataBinding.IsNullValueType = True + Visible = False + end + object Tv1SHMeter: TcxGridDBColumn + Caption = #25439#32791#31859#25968 + DataBinding.FieldName = 'SHMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end end - item - Kind = skSum + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 end - item - Kind = skCount - 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 - Format = #26816#39564#31995#25968'=#.##' - Kind = skAverage - end - item - Format = #25442#31639#31995#25968'=#.##' - Kind = skAverage - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column6 - end - item - Kind = skSum - Column = Tv1Column1 - end - item - Kind = skSum - Column = Tv1Column7 - end - item - Kind = skSum - Column = Tv1Column8 - end - item - Kind = skSum - Column = Tv1Column9 - end - item - Kind = skSum - Column = Tv1Column10 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column13 - end - item - Kind = skSum - Column = Tv1Column14 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column17 - end - item - Kind = skSum - Column = Tv1Column18 - 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 = Tv1fbJS - end - item - Kind = skSum - Column = Tv1fbqty - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1SHMeter - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - OptionsView.IndicatorWidth = 30 - object v1Column22: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'SSel' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - HeaderAlignmentHorz = taCenter - Options.Sorting = False - Width = 66 - end - object Tv1C_Name: TcxGridDBColumn - Caption = #20135#21697#21517#31216 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 66 - OnCompareRowValuesForCellMerging = Tv1C_NameCompareRowValuesForCellMerging - end - object Tv1DXMF: TcxGridDBColumn - Caption = #23450#22411#38376#24133 - DataBinding.FieldName = 'DXMF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1dxmeter: TcxGridDBColumn - Caption = #23450#22411#31859#25968 - DataBinding.FieldName = 'dxmeter' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 80 - OnCompareRowValuesForCellMerging = Tv1dxmeterCompareRowValuesForCellMerging - end - object Tv1Carno: TcxGridDBColumn - Caption = #26426#21488#21495 - DataBinding.FieldName = 'Carno' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 90 - OnCompareRowValuesForCellMerging = Tv1CarnoCompareRowValuesForCellMerging - end - object Tv1PCID: TcxGridDBColumn - Caption = #27969#36716#21345#21495 - DataBinding.FieldName = 'pcid' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 68 - OnCompareRowValuesForCellMerging = Tv1PCIDCompareRowValuesForCellMerging - end - object Tv1CIMachNo: TcxGridDBColumn - Caption = #20998#20999#26426#21488 - DataBinding.FieldName = 'CIMachNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 80 - OnCompareRowValuesForCellMerging = Tv1CIMachNoCompareRowValuesForCellMerging - end - object Tv1BCIOID: TcxGridDBColumn - Caption = #20998#20999#21333#21495 - DataBinding.FieldName = 'BCIOID' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 80 - OnCompareRowValuesForCellMerging = Tv1BCIOIDCompareRowValuesForCellMerging - end - object Tv1qgSL: TcxGridDBColumn - Caption = #20999#21106#32553#29575 - DataBinding.FieldName = 'qgSL' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.DecimalPlaces = 2 - Properties.DisplayFormat = '0.00%' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 90 - OnCompareRowValuesForCellMerging = Tv1qgSLCompareRowValuesForCellMerging - end - object Tv1qgMeter: TcxGridDBColumn - Caption = #20999#21106#31859#25968 - DataBinding.FieldName = 'qgMeter' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 90 - OnCompareRowValuesForCellMerging = Tv1qgMeterCompareRowValuesForCellMerging - end - object Tv1Column20: TcxGridDBColumn - Caption = #20248#31561#29575 - DataBinding.FieldName = 'YDRate' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.DisplayFormat = '0.0%' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 90 - end - object Tv1Column21: TcxGridDBColumn - Caption = #24223#24067#29575 - DataBinding.FieldName = 'FBRate' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.DisplayFormat = '0.0%' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 90 - end - object Tv1issp: TcxGridDBColumn - Caption = #21452#21943 - DataBinding.FieldName = 'issp' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 80 - OnCompareRowValuesForCellMerging = Tv1isspCompareRowValuesForCellMerging - end - object Tv1Column4: TcxGridDBColumn - Caption = #20811#37325 - DataBinding.FieldName = 'C_GramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column6: TcxGridDBColumn - Caption = #20248#31561#21367#25968 - DataBinding.FieldName = 'YDJs' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 74 - end - object Tv1Column1: TcxGridDBColumn - Caption = #20248#31561#31859#25968 - DataBinding.FieldName = 'Ydqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column9: TcxGridDBColumn - Caption = #23567#21367#21367#25968 - DataBinding.FieldName = 'xjJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column10: TcxGridDBColumn - Caption = #23567#21367#31859#25968 - DataBinding.FieldName = 'xjqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column7: TcxGridDBColumn - Caption = #20108#31561#21367#25968 - DataBinding.FieldName = 'edJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column8: TcxGridDBColumn - Caption = #20108#31561#31859#25968 - DataBinding.FieldName = 'edqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column17: TcxGridDBColumn - Caption = #27979#35797#21367#25968 - DataBinding.FieldName = 'csJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column18: TcxGridDBColumn - Caption = #27979#35797#31859#25968 - DataBinding.FieldName = 'csqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column13: TcxGridDBColumn - Caption = #20998#20999#21367#25968 - DataBinding.FieldName = 'fqJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column14: TcxGridDBColumn - Caption = #20998#20999#31859#25968 - DataBinding.FieldName = 'fqqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1fbJS: TcxGridDBColumn - Caption = #24223#24067#21367#25968 - DataBinding.FieldName = 'fbJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1fbqty: TcxGridDBColumn - Caption = #24223#24067#31859#25968 - DataBinding.FieldName = 'fbqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column15: TcxGridDBColumn - DataBinding.FieldName = 'meterall' - DataBinding.IsNullValueType = True - Visible = False - end - object Tv1Column23: TcxGridDBColumn - DataBinding.FieldName = 'C_Widthall' - DataBinding.IsNullValueType = True - Visible = False - end - object Tv1SHMeter: TcxGridDBColumn - Caption = #25439#32791#31859#25968 - DataBinding.FieldName = 'SHMeter' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 end end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 + object TabSheet2: TTabSheet + Caption = ' '#26126#32454' ' + ImageIndex = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1532 + Height = 467 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatInsp.cxImageList_bar + ParentFont = False + PopupMenu = PM_2 + TabOrder = 0 + ExplicitLeft = -3 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + 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 + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn15 + end + item + Kind = skSum + Column = cxGridDBColumn16 + end + item + Kind = skSum + Column = cxGridDBColumn19 + end + item + Kind = skSum + Column = cxGridDBColumn20 + end + item + Kind = skSum + Column = cxGridDBColumn17 + end + item + Kind = skSum + Column = cxGridDBColumn18 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn23 + end + item + Kind = skSum + Column = cxGridDBColumn24 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn21 + end + item + Kind = skSum + Column = cxGridDBColumn22 + end + item + Kind = skSum + Column = Tv1Column19 + end + item + Kind = skSum + Column = Tv1YDpf + end + item + Kind = skSum + Column = Tv1xjPF + end + item + Kind = skSum + Column = Tv1edpf + end + item + Kind = skSum + Column = Tv1cspf + end + item + Kind = skSum + Column = Tv1fqPF + end + item + Kind = skSum + Column = cxGridDBColumn25 + end + item + Kind = skSum + Column = cxGridDBColumn26 + end + item + Kind = skSum + Column = Tv1FBPF + end + item + Kind = skSum + Column = cxGridDBColumn27 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 66 + OnCompareRowValuesForCellMerging = Tv1C_NameCompareRowValuesForCellMerging + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #23450#22411#38376#24133 + DataBinding.FieldName = 'DXMF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 72 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #23450#22411#31859#25968 + DataBinding.FieldName = 'dxmeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1dxmeterCompareRowValuesForCellMerging + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'Carno' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1CarnoCompareRowValuesForCellMerging + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27969#36716#21345#21495 + DataBinding.FieldName = 'pcid' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 68 + OnCompareRowValuesForCellMerging = Tv1PCIDCompareRowValuesForCellMerging + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20998#20999#26426#21488 + DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1CIMachNoCompareRowValuesForCellMerging + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20998#20999#21333#21495 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1BCIOIDCompareRowValuesForCellMerging + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20999#21106#32553#29575 + DataBinding.FieldName = 'qgSL' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DecimalPlaces = 2 + Properties.DisplayFormat = '0.00%' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1qgSLCompareRowValuesForCellMerging + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20999#21106#31859#25968 + DataBinding.FieldName = 'qgMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1qgMeterCompareRowValuesForCellMerging + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20248#31561#29575 + DataBinding.FieldName = 'YDRate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.0%' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #24223#24067#29575 + DataBinding.FieldName = 'FBRate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.0%' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1Column22: TcxGridDBColumn + Caption = #20999#21106#38376#24133 + DataBinding.FieldName = 'C_width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1isspCompareRowValuesForCellMerging + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #20248#31561#21367#25968 + DataBinding.FieldName = 'YDJs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #20248#31561#31859#25968 + DataBinding.FieldName = 'Ydqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1YDpf: TcxGridDBColumn + Caption = #20248#31561#24179#26041 + DataBinding.FieldName = 'YDpf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #23567#21367#21367#25968 + DataBinding.FieldName = 'xjJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #23567#21367#31859#25968 + DataBinding.FieldName = 'xjqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1xjPF: TcxGridDBColumn + Caption = #23567#21367#24179#26041 + DataBinding.FieldName = 'xjPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #20108#31561#21367#25968 + DataBinding.FieldName = 'edJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #20108#31561#31859#25968 + DataBinding.FieldName = 'edqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1edpf: TcxGridDBColumn + Caption = #20108#31561#24179#26041 + DataBinding.FieldName = 'edpf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #27979#35797#21367#25968 + DataBinding.FieldName = 'csJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #27979#35797#31859#25968 + DataBinding.FieldName = 'csqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1cspf: TcxGridDBColumn + Caption = #27979#35797#24179#26041 + DataBinding.FieldName = 'cspf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #20998#20999#21367#25968 + DataBinding.FieldName = 'fqJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20998#20999#31859#25968 + DataBinding.FieldName = 'fqqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1fqPF: TcxGridDBColumn + Caption = #20998#20999#24179#26041 + DataBinding.FieldName = 'fqPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #24223#24067#21367#25968 + DataBinding.FieldName = 'fbJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #24223#24067#31859#25968 + DataBinding.FieldName = 'fbqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1FBPF: TcxGridDBColumn + Caption = #24223#24067#24179#26041 + DataBinding.FieldName = 'FBPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #25439#32791#31859#25968 + DataBinding.FieldName = 'SHMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column19: TcxGridDBColumn + Caption = #25439#32791#24179#26041 + DataBinding.FieldName = 'SHpf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn28: TcxGridDBColumn + DataBinding.FieldName = 'meterall' + DataBinding.IsNullValueType = True + Visible = False + end + object cxGridDBColumn29: TcxGridDBColumn + DataBinding.FieldName = 'C_Widthall' + DataBinding.IsNullValueType = True + Visible = False + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end end end inherited ADOQueryBaseCmd: TADOQuery @@ -698,7 +1215,6 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList Top = 284 end object GPM_1: TcxGridPopupMenu - Grid = cxGrid1 PopupMenus = <> Left = 728 Top = 288 @@ -711,8 +1227,8 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList Top = 284 end object PM_1: TPopupMenu - Left = 560 - Top = 384 + Left = 376 + Top = 288 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click @@ -730,4 +1246,41 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList OnClick = N3Click end end + object PM_2: TPopupMenu + Left = 436 + Top = 401 + object N4: TMenuItem + Caption = #20840#36873 + OnClick = N4Click + end + object N5: TMenuItem + Caption = #20840#24323 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #22797#21046 + OnClick = N6Click + end + object N7: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N7Click + end + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 516 + Top = 401 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 596 + Top = 401 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 684 + Top = 409 + end end diff --git a/E03梭织坯布检验/U_TatClothInspHZList.pas b/E03梭织坯布检验/U_TatClothInspHZList.pas index d576cbf..5dd3c45 100644 --- a/E03梭织坯布检验/U_TatClothInspHZList.pas +++ b/E03梭织坯布检验/U_TatClothInspHZList.pas @@ -40,46 +40,97 @@ type PM_1: TPopupMenu; PM11: TMenuItem; N1: TMenuItem; - cxGrid1: TcxGrid; - Tv1: TcxGridDBTableView; - v1Column22: TcxGridDBColumn; - Tv1C_Name: TcxGridDBColumn; - Tv1Column4: TcxGridDBColumn; - Tv1PCID: TcxGridDBColumn; - Tv1Column6: TcxGridDBColumn; - Tv1Column1: TcxGridDBColumn; - Tv1Column7: TcxGridDBColumn; - Tv1Column8: TcxGridDBColumn; - Tv1Column9: TcxGridDBColumn; - Tv1Column10: TcxGridDBColumn; - Tv1Column13: TcxGridDBColumn; - Tv1Column14: TcxGridDBColumn; - Tv1Column17: TcxGridDBColumn; - Tv1Column18: TcxGridDBColumn; - cxGrid1Level1: TcxGridLevel; - Tv1dxmeter: TcxGridDBColumn; - Tv1Carno: TcxGridDBColumn; - Tv1qgSL: TcxGridDBColumn; - Tv1qgMeter: TcxGridDBColumn; - Tv1Column20: TcxGridDBColumn; - Tv1Column21: TcxGridDBColumn; - Tv1fbJS: TcxGridDBColumn; - Tv1fbqty: TcxGridDBColumn; - Tv1CIMachNo: TcxGridDBColumn; - Tv1BCIOID: TcxGridDBColumn; Label1: TLabel; C_width: TEdit; Label3: TLabel; pcid: TEdit; Label4: TLabel; C_GramWeight: TEdit; - Tv1Column15: TcxGridDBColumn; - Tv1Column23: TcxGridDBColumn; - Tv1issp: TcxGridDBColumn; N2: TMenuItem; N3: TMenuItem; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1C_Name: TcxGridDBColumn; Tv1DXMF: TcxGridDBColumn; + Tv1dxmeter: TcxGridDBColumn; + Tv1Carno: TcxGridDBColumn; + Tv1PCID: TcxGridDBColumn; + Tv1CIMachNo: TcxGridDBColumn; + Tv1BCIOID: TcxGridDBColumn; + Tv1qgSL: TcxGridDBColumn; + Tv1qgMeter: TcxGridDBColumn; + Tv1Column20: TcxGridDBColumn; + Tv1Column21: TcxGridDBColumn; + Tv1issp: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1fbJS: TcxGridDBColumn; + Tv1fbqty: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; + Tv1Column23: TcxGridDBColumn; Tv1SHMeter: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv1Column22: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + Tv1YDpf: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + Tv1xjPF: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + Tv1edpf: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + Tv1cspf: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + Tv1fqPF: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + Tv1FBPF: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + Tv1Column19: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + PM_2: TPopupMenu; + GPM_2: TcxGridPopupMenu; + CDS_2: TClientDataSet; + DS_2: TDataSource; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + N7: TMenuItem; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -116,13 +167,19 @@ type procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure Tv1DblClick(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure N7Click(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); + procedure InitGrid2(); procedure SetStatus(); - procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); + { Private declarations } public canshu1: string; @@ -415,6 +472,148 @@ begin end; +procedure TfrmTatClothInspHZList.InitGrid2(); +var + WSql, WSql1: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql1 := ' and A.FillTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql1 := WSql1 + ' and A.FillTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select * from ( '); + sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter,issp=isnull(A.issp,'''') '); + sql.Add(' ,maX(B.C_Width) AS DXMF,A.CIMachNo,A.BCIOID '); +// sql.Add(' ,CAST(isNull(A.dxmeter,''1'') AS DECIMAL(18,2)) '); + +// SQL.Add(' ,qgMeter=sum(meter+SHMeter)/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) '); + + sql.Add(' ,meterall=(select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo )'); + sql.Add(' ,C_Widthall= ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) '); + //ȥ 20260206 cai + SQL.Add(' ,qgMeter=(select sum(meter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo )/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) '); + SQL.Add(' ,SHMeter=(select sum(SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo ) '); +// SQL.Add(' ,qgSL = ROUND((select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo )*100 '); +// sql.Add(' / ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1)/CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 2) '); + + SQL.Add(' ,qgSL = ROUND((CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) - (select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo )'); + SQL.Add(' /ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) )*100 '); + sql.Add(' /CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 3) '); + + SQL.Add(',SHpf=SUM(CASE WHEN ISNUMERIC(A.SHMETER) = 1 AND ISNUMERIC(A.C_WIDTH) = 1 '); + SQL.Add(' THEN CAST(A.SHMETER AS DECIMAL(18,2))/100 * CAST(A.C_WIDTH AS DECIMAL(18,2)) '); + SQL.Add(' ELSE 0 END)'); + + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter ELSE 0 END )AS Ydqty'); + SQL.Add(',YDpf=SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); + + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END )AS edJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter ELSE 0 END )AS edqty'); + SQL.Add(',edpf=SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); + + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END )AS xjJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter ELSE 0 END )AS xjqty'); + SQL.Add(',xjpf=SUM(CASE WHEN A.GRADE=''С'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); + + SQL.Add(',SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END )AS fbJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN A.meter ELSE 0 END )AS fbqty'); + SQL.Add(',fbpf=SUM(CASE WHEN A.GRADE=''ϲ'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); + + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS fqJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS fqqty'); + SQL.Add(',fqpf=SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )*A.C_Width/100 '); + +// SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN 1 ELSE 0 END )AS xhJS'); +// SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN A.meter ELSE 0 END )AS xhqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS csJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS csqty'); + SQL.Add(',cspf=SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )*A.C_Width/100 '); + + + // ŵֶ - ŵȾ/(ŵȾ+С+Ⱦ+Ծ+о+ϲ(ųΪ0)) + SQL.Add(',YDRate=CAST('); + SQL.Add(' CASE '); + SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END) + '); // YDJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END) + '); // xjJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END) + '); // edJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // csJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // fqJS + SQL.Add(' SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJSųΪ0 + SQL.Add(' THEN 0 '); + SQL.Add(' ELSE '); + SQL.Add(' CAST(SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // ӣYDJS + SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END) + '); // YDJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END) + '); // xjJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END) + '); // edJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // csJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // fqJS + SQL.Add(' SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS + SQL.Add(' END '); + SQL.Add('AS DECIMAL(18,4)) '); + + // ŵֶ - ŵȾ/(ŵȾ+С+Ⱦ+Ծ+о+ϲ(ųΪ0)) + SQL.Add(',FBRate=CAST('); + SQL.Add(' CASE '); + SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END) + '); // YDJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END) + '); // xjJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END) + '); // edJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // csJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // fqJS + SQL.Add(' SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJSųΪ0 + SQL.Add(' THEN 0 '); + SQL.Add(' ELSE '); + SQL.Add(' CAST(SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // ӣYDJS + SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END) + '); // YDJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END) + '); // xjJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END) + '); // edJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // csJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // fqJS + SQL.Add(' SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS + SQL.Add(' END '); + SQL.Add('AS DECIMAL(18,4)) '); + + SQL.Add('from Tat_Cloth_Inspect A '); + SQL.Add(' left join BS_Cloth_IO B on A.BCIOID = B.BCIOID '); + SQL.Add(' where (A.BEFOREC_WIDTH='''' OR A.BEFOREC_WIDTH is null) '); + SQL.Add(' and (NOT EXISTS (select * from BS_Cloth_IO_mx X WHERE X.BCIOID = A.BCIOID and X.C_MXSHWidth is not NULL)) '); + SQL.Add(' and A.GRADE<>''ѭ'' '); + + SQL.Add(WSql1); + + sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter'); + sql.Add(' ,A.CIMachNo,A.BCIOID,isnull(A.issp,'''')'); + + sql.add(' ) T where 1=1 '); + SQL.Add(WSql); + sql.Add(' Order By T.Carno,T.pcid,ISNULL(CAST(NULLIF(dxmeter, '''') AS DECIMAL), 0),BCIOID '); +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + procedure TfrmTatClothInspHZList.IsJYTimeClick(Sender: TObject); begin inherited; @@ -425,6 +624,7 @@ procedure TfrmTatClothInspHZList.TBRafreshClick(Sender: TObject); begin CurrentPage := 1; InitGrid(); + InitGrid2(); end; procedure TfrmTatClothInspHZList.CDS_1BeforeOpen(DataSet: TDataSet); @@ -454,6 +654,7 @@ begin if Key = #13 then begin InitGrid(); + InitGrid2(); end; end; @@ -477,6 +678,7 @@ begin BegDate.DateTime := SGetServerDate(ADOQueryCmd); EndDate.DateTime := BegDate.DateTime; InitGrid(); + InitGrid2(); end; @@ -799,17 +1001,37 @@ end; procedure TfrmTatClothInspHZList.N3Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(Tv1,TV1.Controller.FocusedColumn); end; -procedure TfrmTatClothInspHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +procedure TfrmTatClothInspHZList.N4Click(Sender: TObject); +begin + + SelOKNo(CDS_2, true); +end; + +procedure TfrmTatClothInspHZList.N5Click(Sender: TObject); +begin + + SelOKNo(CDS_2, false); +end; + +procedure TfrmTatClothInspHZList.N6Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothInspHZList.N7Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(Tv2,TV2.Controller.FocusedColumn); +end; + +procedure TfrmTatClothInspHZList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); var - AView: TcxGridDBTableView; SummaryIndex: Integer; SummaryText: string; begin - AView := Tv1; - // ָеĻ SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); if SummaryIndex <> -1 then diff --git a/E03梭织坯布检验/U_TatClothInspHZList2.dfm b/E03梭织坯布检验/U_TatClothInspHZList2.dfm index 71a76d6..68b1f70 100644 --- a/E03梭织坯布检验/U_TatClothInspHZList2.dfm +++ b/E03梭织坯布检验/U_TatClothInspHZList2.dfm @@ -6,7 +6,6 @@ inherited frmTatClothInspHZList2: TfrmTatClothInspHZList2 ClientWidth = 1540 Position = poScreenCenter WindowState = wsMaximized - ExplicitLeft = -689 ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 @@ -254,6 +253,7 @@ inherited frmTatClothInspHZList2: TfrmTatClothInspHZList2 ParentFont = False PopupMenu = PM_1 TabOrder = 2 + ExplicitTop = 103 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E03梭织坯布检验/U_TatInspSHHZ.dfm b/E03梭织坯布检验/U_TatInspSHHZ.dfm index fb5fee9..8689b1b 100644 --- a/E03梭织坯布检验/U_TatInspSHHZ.dfm +++ b/E03梭织坯布检验/U_TatInspSHHZ.dfm @@ -33,7 +33,6 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitLeft = 1 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -78,8 +77,6 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitLeft = 1 - ExplicitTop = 33 object Label2: TLabel Left = 70 Top = 36 @@ -222,394 +219,813 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ Height = 495 Align = alClient TabOrder = 2 - object cxGrid1: TcxGrid + object PageControl1: TPageControl Left = 1 Top = 1 Width = 1538 Height = 493 + ActivePage = TabSheet1 Align = alClient - BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -20 Font.Name = #23435#20307 - Font.Style = [] + Font.Style = [fsBold] ParentFont = False - PopupMenu = PM_1 TabOrder = 0 - ExplicitLeft = 2 + ExplicitLeft = 0 ExplicitTop = 6 - object Tv1: TcxGridDBTableView - OnDblClick = Tv1DblClick - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_1 - DataController.Filter.AutoDataSetFilter = True - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum + object TabSheet1: TTabSheet + Caption = ' '#27719#24635' ' + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1530 + Height = 457 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_1 + TabOrder = 0 + ExplicitLeft = 264 + ExplicitTop = 200 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + 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 + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1SH_TD1 + end + item + Kind = skSum + Column = Tv1SH_ZW2 + end + item + Kind = skSum + Column = Tv1SH_JT3 + end + item + Kind = skSum + Column = Tv1SH_LTY4 + end + item + Kind = skSum + Column = Tv1SH_DZ5 + end + item + Kind = skSum + Column = Tv1SH_DJ6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1SH_HD7 + end + item + Kind = skSum + Column = Tv1SH_DS8 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1SH_HB9 + end + item + Kind = skSum + Column = Tv1SH_SCZ10 + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1SH_BB11 + end + item + Kind = skSum + Column = Tv1SH_ZW12 + end + item + Kind = skSum + Column = Tv1SH_HY13 + end + item + Kind = skSum + Column = Tv1SH_DPB14 + end + item + Kind = skSum + Column = Tv1SH_GJ15 + end + item + Kind = skSum + Column = Tv1SH_YS16 + end + item + Kind = skSum + Column = Tv1SH_KZ17 + end + item + Kind = skSum + Column = Tv1SH_SC18 + end + item + Kind = skSum + Column = Tv1SH_XY19 + end + item + Kind = skSum + Column = Tv1SH_YD20 + end + item + Kind = skSum + Column = Tv1SH_PD21 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_TatInsp.SHuangSe + Styles.Footer = DataLink_TatInsp.Default + Styles.Header = DataLink_TatInsp.Default + Styles.Inactive = DataLink_TatInsp.SHuangSe + Styles.Selection = DataLink_TatInsp.SHuangSe + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1issp: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1SH_TD1: TcxGridDBColumn + Caption = #35843#20992 + DataBinding.FieldName = 'SH_TD1' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object Tv1SH_ZW2: TcxGridDBColumn + Caption = #33039#27745 + DataBinding.FieldName = 'SH_ZW2' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_JT3: TcxGridDBColumn + Caption = #25509#22836 + DataBinding.FieldName = 'SH_JT3' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_LTY4: TcxGridDBColumn + Caption = #34013#26465#21360 + DataBinding.FieldName = 'SH_LTY4' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_DZ5: TcxGridDBColumn + Caption = #26723#23376 + DataBinding.FieldName = 'SH_DZ5' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_DJ6: TcxGridDBColumn + Caption = #26029#32463 + DataBinding.FieldName = 'SH_DJ6' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_HD7: TcxGridDBColumn + Caption = #40657#28857 + DataBinding.FieldName = 'SH_HD7' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_DS8: TcxGridDBColumn + Caption = #26029#19997 + DataBinding.FieldName = 'SH_DS8' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_HB9: TcxGridDBColumn + Caption = #40644#26001 + DataBinding.FieldName = 'SH_HB9' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_SCZ10: TcxGridDBColumn + Caption = #27515#34411#23376 + DataBinding.FieldName = 'SH_SCZ10' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_BB11: TcxGridDBColumn + Caption = #30333#26001 + DataBinding.FieldName = 'SH_BB11' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_ZW12: TcxGridDBColumn + Caption = #30385#32441 + DataBinding.FieldName = 'SH_ZW12' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_HY13: TcxGridDBColumn + Caption = #40644#21360 + DataBinding.FieldName = 'SH_HY13' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_DPB14: TcxGridDBColumn + Caption = #22823#30772#36793 + DataBinding.FieldName = 'SH_DPB14' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_GJ15: TcxGridDBColumn + Caption = #24178#27974 + DataBinding.FieldName = 'SH_GJ15' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_YS16: TcxGridDBColumn + Caption = #27833#19997 + DataBinding.FieldName = 'SH_YS16' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_KZ17: TcxGridDBColumn + Caption = #31354#32455 + DataBinding.FieldName = 'SH_KZ17' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_SC18: TcxGridDBColumn + Caption = #33394#24046 + DataBinding.FieldName = 'SH_SC18' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_XY19: TcxGridDBColumn + Caption = #32483#21360 + DataBinding.FieldName = 'SH_XY19' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_YD20: TcxGridDBColumn + Caption = #27833#28857 + DataBinding.FieldName = 'SH_YD20' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_PD21: TcxGridDBColumn + Caption = #30772#27934 + DataBinding.FieldName = 'SH_PD21' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end end - item - Kind = skSum + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 end - item - Kind = skCount - 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 - Format = #26816#39564#31995#25968'=#.##' - Kind = skAverage - end - item - Format = #25442#31639#31995#25968'=#.##' - Kind = skAverage - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1SH_TD1 - end - item - Kind = skSum - Column = Tv1SH_ZW2 - end - item - Kind = skSum - Column = Tv1SH_JT3 - end - item - Kind = skSum - Column = Tv1SH_LTY4 - end - item - Kind = skSum - Column = Tv1SH_DZ5 - end - item - Kind = skSum - Column = Tv1SH_DJ6 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1SH_HD7 - end - item - Kind = skSum - Column = Tv1SH_DS8 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1SH_HB9 - end - item - Kind = skSum - Column = Tv1SH_SCZ10 - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1SH_BB11 - end - item - Kind = skSum - Column = Tv1SH_ZW12 - end - item - Kind = skSum - Column = Tv1SH_HY13 - end - item - Kind = skSum - Column = Tv1SH_DPB14 - end - item - Kind = skSum - Column = Tv1SH_GJ15 - end - item - Kind = skSum - Column = Tv1SH_YS16 - end - item - Kind = skSum - Column = Tv1SH_KZ17 - end - item - Kind = skSum - Column = Tv1SH_SC18 - end - item - Kind = skSum - Column = Tv1SH_XY19 - end - item - Kind = skSum - Column = Tv1SH_YD20 - end - item - Kind = skSum - Column = Tv1SH_PD21 - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - OptionsView.IndicatorWidth = 30 - Styles.IncSearch = DataLink_TatInsp.SHuangSe - Styles.Footer = DataLink_TatInsp.Default - Styles.Header = DataLink_TatInsp.Default - Styles.Inactive = DataLink_TatInsp.SHuangSe - Styles.Selection = DataLink_TatInsp.SHuangSe - object v1Column22: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'SSel' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - HeaderAlignmentHorz = taCenter - Options.Sorting = False - Width = 66 - end - object Tv1Column3: TcxGridDBColumn - Caption = #21697#21517 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1issp: TcxGridDBColumn - Caption = #21452#21943 - DataBinding.FieldName = 'issp' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column4: TcxGridDBColumn - Caption = #20811#37325 - DataBinding.FieldName = 'C_GramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1SH_TD1: TcxGridDBColumn - Caption = #35843#20992 - DataBinding.FieldName = 'SH_TD1' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 74 - end - object Tv1SH_ZW2: TcxGridDBColumn - Caption = #33039#27745 - DataBinding.FieldName = 'SH_ZW2' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_JT3: TcxGridDBColumn - Caption = #25509#22836 - DataBinding.FieldName = 'SH_JT3' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_LTY4: TcxGridDBColumn - Caption = #34013#26465#21360 - DataBinding.FieldName = 'SH_LTY4' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_DZ5: TcxGridDBColumn - Caption = #26723#23376 - DataBinding.FieldName = 'SH_DZ5' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_DJ6: TcxGridDBColumn - Caption = #26029#32463 - DataBinding.FieldName = 'SH_DJ6' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_HD7: TcxGridDBColumn - Caption = #40657#28857 - DataBinding.FieldName = 'SH_HD7' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_DS8: TcxGridDBColumn - Caption = #26029#19997 - DataBinding.FieldName = 'SH_DS8' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_HB9: TcxGridDBColumn - Caption = #40644#26001 - DataBinding.FieldName = 'SH_HB9' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_SCZ10: TcxGridDBColumn - Caption = #27515#34411#23376 - DataBinding.FieldName = 'SH_SCZ10' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_BB11: TcxGridDBColumn - Caption = #30333#26001 - DataBinding.FieldName = 'SH_BB11' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_ZW12: TcxGridDBColumn - Caption = #30385#32441 - DataBinding.FieldName = 'SH_ZW12' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_HY13: TcxGridDBColumn - Caption = #40644#21360 - DataBinding.FieldName = 'SH_HY13' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_DPB14: TcxGridDBColumn - Caption = #22823#30772#36793 - DataBinding.FieldName = 'SH_DPB14' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_GJ15: TcxGridDBColumn - Caption = #24178#27974 - DataBinding.FieldName = 'SH_GJ15' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_YS16: TcxGridDBColumn - Caption = #27833#19997 - DataBinding.FieldName = 'SH_YS16' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_KZ17: TcxGridDBColumn - Caption = #31354#32455 - DataBinding.FieldName = 'SH_KZ17' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_SC18: TcxGridDBColumn - Caption = #33394#24046 - DataBinding.FieldName = 'SH_SC18' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_XY19: TcxGridDBColumn - Caption = #32483#21360 - DataBinding.FieldName = 'SH_XY19' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_YD20: TcxGridDBColumn - Caption = #27833#28857 - DataBinding.FieldName = 'SH_YD20' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_PD21: TcxGridDBColumn - Caption = #30772#27934 - DataBinding.FieldName = 'SH_PD21' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 end end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 + object TabSheet2: TTabSheet + Caption = ' '#26126#32454' ' + ImageIndex = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1530 + Height = 457 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_2 + TabOrder = 0 + ExplicitLeft = 3 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + 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 + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = cxGridDBColumn10 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn12 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn15 + end + item + Kind = skSum + Column = cxGridDBColumn16 + end + item + Kind = skSum + Column = cxGridDBColumn17 + end + item + Kind = skSum + Column = cxGridDBColumn18 + end + item + Kind = skSum + Column = cxGridDBColumn19 + end + item + Kind = skSum + Column = cxGridDBColumn20 + end + item + Kind = skSum + Column = cxGridDBColumn21 + end + item + Kind = skSum + Column = cxGridDBColumn22 + end + item + Kind = skSum + Column = cxGridDBColumn23 + end + item + Kind = skSum + Column = cxGridDBColumn24 + end + item + Kind = skSum + Column = cxGridDBColumn25 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_TatInsp.SHuangSe + Styles.Footer = DataLink_TatInsp.Default + Styles.Header = DataLink_TatInsp.Default + Styles.Inactive = DataLink_TatInsp.SHuangSe + Styles.Selection = DataLink_TatInsp.SHuangSe + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1PCId: TcxGridDBColumn + Caption = #27969#36716#21345#21495 + DataBinding.FieldName = 'PCId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #35843#20992 + DataBinding.FieldName = 'SH_TD1' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #33039#27745 + DataBinding.FieldName = 'SH_ZW2' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25509#22836 + DataBinding.FieldName = 'SH_JT3' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #34013#26465#21360 + DataBinding.FieldName = 'SH_LTY4' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #26723#23376 + DataBinding.FieldName = 'SH_DZ5' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #26029#32463 + DataBinding.FieldName = 'SH_DJ6' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #40657#28857 + DataBinding.FieldName = 'SH_HD7' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #26029#19997 + DataBinding.FieldName = 'SH_DS8' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #40644#26001 + DataBinding.FieldName = 'SH_HB9' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #27515#34411#23376 + DataBinding.FieldName = 'SH_SCZ10' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #30333#26001 + DataBinding.FieldName = 'SH_BB11' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #30385#32441 + DataBinding.FieldName = 'SH_ZW12' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #40644#21360 + DataBinding.FieldName = 'SH_HY13' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #22823#30772#36793 + DataBinding.FieldName = 'SH_DPB14' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #24178#27974 + DataBinding.FieldName = 'SH_GJ15' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #27833#19997 + DataBinding.FieldName = 'SH_YS16' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #31354#32455 + DataBinding.FieldName = 'SH_KZ17' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #33394#24046 + DataBinding.FieldName = 'SH_SC18' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #32483#21360 + DataBinding.FieldName = 'SH_XY19' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #27833#28857 + DataBinding.FieldName = 'SH_YD20' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #30772#27934 + DataBinding.FieldName = 'SH_PD21' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end end end end @@ -651,7 +1067,6 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ Top = 156 end object GPM_1: TcxGridPopupMenu - Grid = cxGrid1 PopupMenus = <> Left = 608 Top = 136 @@ -683,4 +1098,41 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ OnClick = N3Click end end + object PM_2: TPopupMenu + Left = 432 + Top = 385 + object N4: TMenuItem + Caption = #20840#36873 + OnClick = N4Click + end + object N5: TMenuItem + Caption = #20840#24323 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #22797#21046 + OnClick = N6Click + end + object N7: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N7Click + end + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 552 + Top = 401 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 664 + Top = 409 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 760 + Top = 425 + end end diff --git a/E03梭织坯布检验/U_TatInspSHHZ.pas b/E03梭织坯布检验/U_TatInspSHHZ.pas index 2f60da7..8aaf668 100644 --- a/E03梭织坯布检验/U_TatInspSHHZ.pas +++ b/E03梭织坯布检验/U_TatInspSHHZ.pas @@ -45,6 +45,15 @@ type PCId: TEdit; label11: TLabel; Panel2: TPanel; + N2: TMenuItem; + N3: TMenuItem; + PM_2: TPopupMenu; + GPM_2: TcxGridPopupMenu; + CDS_2: TClientDataSet; + DS_2: TDataSource; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; v1Column22: TcxGridDBColumn; @@ -61,8 +70,6 @@ type Tv1SH_DS8: TcxGridDBColumn; Tv1SH_HB9: TcxGridDBColumn; Tv1SH_SCZ10: TcxGridDBColumn; - cxGrid1Level1: TcxGridLevel; - N2: TMenuItem; Tv1SH_BB11: TcxGridDBColumn; Tv1SH_ZW12: TcxGridDBColumn; Tv1SH_HY13: TcxGridDBColumn; @@ -74,7 +81,40 @@ type Tv1SH_XY19: TcxGridDBColumn; Tv1SH_YD20: TcxGridDBColumn; Tv1SH_PD21: TcxGridDBColumn; - N3: TMenuItem; + cxGrid1Level1: TcxGridLevel; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + N7: TMenuItem; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + Tv1PCId: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -101,13 +141,18 @@ type procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure Tv1DblClick(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure N7Click(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); + procedure InitGrid2(); procedure SetStatus(); - procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); { Private declarations } public @@ -179,6 +224,47 @@ begin end; +procedure TfrmTatInspSHHZ.InitGrid2(); +var + WSql: string; + WSql1: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql := WSql + ' and A.Filltime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and A.Filltime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add(' ExEC P_Tat_Cloth_SHHZ2 '); + sql.Add(' @wsql = ' + quotedStr(WSql)); + sql.Add(' ,@wsql1 = ' + quotedStr(WSql1)); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + procedure TfrmTatInspSHHZ.IsJYTimeClick(Sender: TObject); begin inherited; @@ -189,6 +275,7 @@ procedure TfrmTatInspSHHZ.TBRafreshClick(Sender: TObject); begin CurrentPage := 1; InitGrid(); + InitGrid2(); end; procedure TfrmTatInspSHHZ.CDS_1BeforeOpen(DataSet: TDataSet); @@ -218,6 +305,7 @@ begin if Key = #13 then begin InitGrid(); + InitGrid2(); end; end; @@ -238,6 +326,7 @@ begin SetStatus(); InitGrid(); + InitGrid2(); end; procedure TfrmTatInspSHHZ.TBExportClick(Sender: TObject); @@ -347,18 +436,39 @@ end; procedure TfrmTatInspSHHZ.N3Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(Tv1, TV1.Controller.FocusedColumn); end; -procedure TfrmTatInspSHHZ.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +procedure TfrmTatInspSHHZ.N4Click(Sender: TObject); +begin + + SelOKNo(CDS_2, true); +end; + +procedure TfrmTatInspSHHZ.N5Click(Sender: TObject); +begin + + SelOKNo(CDS_2, false); +end; + +procedure TfrmTatInspSHHZ.N6Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatInspSHHZ.N7Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(Tv2, TV2.Controller.FocusedColumn); + +end; + +procedure TfrmTatInspSHHZ.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); var - AView: TcxGridDBTableView; SummaryIndex: Integer; SummaryText: string; begin - AView := Tv1; - // ָеĻ SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); if SummaryIndex <> -1 then diff --git a/E03梭织坯布检验/U_TatInspSHHZ2.dfm b/E03梭织坯布检验/U_TatInspSHHZ2.dfm index 8bd54bb..1e3e8de 100644 --- a/E03梭织坯布检验/U_TatInspSHHZ2.dfm +++ b/E03梭织坯布检验/U_TatInspSHHZ2.dfm @@ -76,8 +76,6 @@ inherited frmTatInspSHHZ2: TfrmTatInspSHHZ2 Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitLeft = -1 - ExplicitTop = 33 object Label2: TLabel Left = 70 Top = 36 @@ -187,7 +185,7 @@ inherited frmTatInspSHHZ2: TfrmTatInspSHHZ2 ParentFont = False PopupMenu = PM_1 TabOrder = 0 - ExplicitLeft = 0 + ExplicitLeft = 2 ExplicitTop = 6 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> diff --git a/E03梭织坯布检验/testDll.identcache b/E03梭织坯布检验/testDll.identcache index da92555..293c0c8 100644 Binary files a/E03梭织坯布检验/testDll.identcache and b/E03梭织坯布检验/testDll.identcache differ diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local index 4696e8a..c5333d4 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj.local +++ b/E04梭织坯布仓库/TatClothStk.dproj.local @@ -1,77 +1,77 @@  + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899-12-30 00:00:00.000.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas= - 1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm - 1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm - 1899-12-30 00:00:00.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas - 1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas - 1899-12-30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas + 1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas + 1899-12-30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm + 1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm 1899-12-30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm - 1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm + 1899-12-30 00:00:00.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas 1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas + 1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas 1899-12-30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas - 1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas - 1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm 1899-12-30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas= - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm + 1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm + 1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm 1899-12-30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas 1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas= 1899-12-30 00:00:00.000.740,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList3.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas 1899-12-30 00:00:00.000.157,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothEDCDLook.pas - 1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas 1899-12-30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas 1899-12-30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas= - 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.337,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= - 1899-12-30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas - 1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.337,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm 1899-12-30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas= - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas 1899-12-30 00:00:00.000.732,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCKHZList3.pas - 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas - 1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas - 1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas - 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= 1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothRKHZList2.pas - 1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas + 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm + 1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= + 1899-12-30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas + 1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas + 1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas + 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas diff --git a/E04梭织坯布仓库/TatClothStk.identcache b/E04梭织坯布仓库/TatClothStk.identcache index b20000b..835d5d1 100644 Binary files a/E04梭织坯布仓库/TatClothStk.identcache and b/E04梭织坯布仓库/TatClothStk.identcache differ diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.dfm b/E04梭织坯布仓库/U_TatClothCKHZList.dfm index 11e98f5..03626c0 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothCKHZList.dfm @@ -223,7 +223,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList end object DRMID: TEdit Tag = 2 - Left = 243 + Left = 248 Top = 32 Width = 100 Height = 20 @@ -243,7 +243,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList end object C_Width: TEdit Tag = 2 - Left = 391 + Left = 392 Top = 6 Width = 100 Height = 20 @@ -267,7 +267,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Top = 105 Width = 1540 Height = 516 - ActivePage = TabSheet1 + ActivePage = TabSheet4 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -277,7 +277,6 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList ParentFont = False Style = tsFlatButtons TabOrder = 2 - ExplicitTop = 111 object TabSheet1: TTabSheet Caption = #26377#20986#24211#21333#20986#24211 object cxGrid1: TcxGrid @@ -559,7 +558,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Options.Editing = False Width = 94 end - object Tv1ToCoName: TcxGridDBColumn + object Tv1CoName: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CoName' DataBinding.IsNullValueType = True diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.pas b/E04梭织坯布仓库/U_TatClothCKHZList.pas index fedf484..61b1ce4 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.pas +++ b/E04梭织坯布仓库/U_TatClothCKHZList.pas @@ -103,7 +103,7 @@ type cxGridDBColumn3: TcxGridDBColumn; Tv1IOTime: TcxGridDBColumn; Tv1DRMID: TcxGridDBColumn; - Tv1ToCoName: TcxGridDBColumn; + Tv1CoName: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn; Tv1C_Width: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn; @@ -251,7 +251,7 @@ begin // ,B.ToCoID SQL.Add(' order by A.C_CODE ,A.C_GramWeight'); - showmessage(sql.text); +// showmessage(sql.text); Open; end; SCreateCDS(ADOQueryMain, CDS_1); @@ -370,12 +370,12 @@ var WSql: string; begin - WSql := SGetFilters(Panel1, 1, 2); - if Trim(WSql) <> '' then - WSql := ' and ' + WSql; +// WSql := SGetFilters(Panel1, 1, 2); +// if Trim(WSql) <> '' then +// WSql := ' and ' + WSql; if IsJYTime.Checked then begin - WSql := WSql + ' and A.IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := ' and A.IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); WSql := WSql + ' and A.IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); end; @@ -405,6 +405,26 @@ begin // sql.Add(' and B.ToCoID = ' + QuotedStr(Trim(fToCoID))); // sql.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp))); sql.Add(WSql); + if C_Name.text <> '' then + begin + SQL.Add(' and A.C_Name like ' + QuotedStr('%' + Trim(C_Name.text) + '%')); + end; + if C_Width.text <> '' then + begin + SQL.Add(' and A.C_Width like ' + QuotedStr('%' + Trim(C_Width.text) + '%')); + end; + if CoName.text <> '' then + begin + SQL.Add(' and D.CoName like ' + QuotedStr('%' + Trim(CoName.text) + '%')); + end; + if DRMID.text <> '' then + begin + SQL.Add(' and B.DRMID like ' + QuotedStr('%' + Trim(DRMID.text) + '%')); + end; + if C_GramWeight.text <> '' then + begin + SQL.Add(' and A.C_GramWeight like ' + QuotedStr('%' + Trim(C_GramWeight.text) + '%')); + end; SQL.Add(' group by A.C_CODE,A.C_width,A.C_GramWeight,A.IONO,A.C_Name,isnull(A.issp,''''),B.ToCoID, D.COName,CAST(ioTime AS DATE),C.PFPrice'); // sql.Add(' HAVING(select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame))); diff --git a/E04梭织坯布仓库/U_TatClothCRStkHZList.dfm b/E04梭织坯布仓库/U_TatClothCRStkHZList.dfm index 8880cb2..4a54153 100644 --- a/E04梭织坯布仓库/U_TatClothCRStkHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothCRStkHZList.dfm @@ -278,6 +278,8 @@ inherited frmTatClothCRStkHZList: TfrmTatClothCRStkHZList ParentFont = False PopupMenu = PM_1 TabOrder = 0 + ExplicitLeft = 0 + ExplicitTop = 6 object cxGrid1DBBandedTableView1: TcxGridDBBandedTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E04梭织坯布仓库/U_TatClothRKHZList.dfm b/E04梭织坯布仓库/U_TatClothRKHZList.dfm index 98e5b90..5bf4254 100644 --- a/E04梭织坯布仓库/U_TatClothRKHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothRKHZList.dfm @@ -298,7 +298,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList ParentFont = False PopupMenu = PM_1 TabOrder = 0 - ExplicitHeight = 464 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> diff --git a/E04梭织坯布仓库/U_TatClothRKHZList.pas b/E04梭织坯布仓库/U_TatClothRKHZList.pas index 86fb066..2e96057 100644 --- a/E04梭织坯布仓库/U_TatClothRKHZList.pas +++ b/E04梭织坯布仓库/U_TatClothRKHZList.pas @@ -148,7 +148,8 @@ type procedure InitGrid(); procedure InitGrid2(); procedure SetStatus(); - procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); + { Private declarations } public canshu1: string; @@ -329,7 +330,7 @@ begin // sql.Add('group by C_NAME, IOType,C_GramWeight,pcid,isnull(A.issp,'''')'); sql.Add('Order by C_NAME, C_width,pcid,C_GramWeight '); // sql.Add('Order by C_NAME, IOType,C_GramWeight '); - showmessage(sql.text); +// showmessage(sql.text); Open; end; SCreateCDS(ADOQueryMain, CDS_2); @@ -521,7 +522,7 @@ end; procedure TfrmTatClothRKHZList.N3Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(Tv1,TV1.Controller.FocusedColumn); end; procedure TfrmTatClothRKHZList.N4Click(Sender: TObject); @@ -543,17 +544,14 @@ end; procedure TfrmTatClothRKHZList.N7Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV2.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(TV2, TV2.Controller.FocusedColumn); end; -procedure TfrmTatClothRKHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +procedure TfrmTatClothRKHZList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); var - AView: TcxGridDBTableView; SummaryIndex: Integer; SummaryText: string; begin - AView := Tv1; - // ָеĻ SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); if SummaryIndex <> -1 then diff --git a/E04梭织坯布仓库/U_TatClothStkHZList.dfm b/E04梭织坯布仓库/U_TatClothStkHZList.dfm index ea7130b..0a4d22b 100644 --- a/E04梭织坯布仓库/U_TatClothStkHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothStkHZList.dfm @@ -120,6 +120,20 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Font.Style = [fsBold] ParentFont = False end + object label12: TLabel + Left = 190 + Top = 35 + Width = 26 + Height = 12 + Hint = '0' + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object BegDate: TDateTimePicker Left = 88 Top = 6 @@ -195,6 +209,16 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList TabOrder = 6 OnKeyPress = C_NameKeyPress end + object C_width: TEdit + Tag = 2 + Left = 237 + Top = 32 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 7 + OnKeyPress = C_NameKeyPress + end end object Panel2: TPanel [2] Left = 0 @@ -203,332 +227,685 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Height = 495 Align = alClient TabOrder = 2 - object cxGrid1: TcxGrid + object PageControl1: TPageControl Left = 1 Top = 1 Width = 1538 Height = 493 + ActivePage = TabSheet1 Align = alClient - BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -20 Font.Name = #23435#20307 - Font.Style = [] + Font.Style = [fsBold] ParentFont = False - PopupMenu = PM_1 TabOrder = 0 - object Tv1: TcxGridDBTableView - OnDblClick = Tv1DblClick - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_1 - DataController.Filter.AutoDataSetFilter = True - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum + object TabSheet1: TTabSheet + Caption = ' '#27719#24635' ' + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1530 + Height = 457 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_1 + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + 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 + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column6 + end + item + Kind = skSum + Column = Tv1Column1 + end + item + Kind = skSum + Column = Tv1Column7 + end + item + Kind = skSum + Column = Tv1Column8 + end + item + Kind = skSum + Column = Tv1Column9 + end + item + Kind = skSum + Column = Tv1Column10 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column13 + end + item + Kind = skSum + Column = Tv1Column14 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column17 + end + item + Kind = skSum + Column = Tv1Column18 + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1YdPF + end + item + Kind = skSum + Column = Tv1edPF + end + item + Kind = skSum + Column = Tv1xjPF + end + item + Kind = skSum + Column = Tv1fqPF + end + item + Kind = skSum + Column = Tv1csPF + end + item + Kind = skSum + Column = Tv1pf + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_TatClothStk.SHuangSe + Styles.Footer = DataLink_TatClothStk.Default + Styles.Header = DataLink_TatClothStk.Default + Styles.Inactive = DataLink_TatClothStk.SHuangSe + Styles.Selection = DataLink_TatClothStk.SHuangSe + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1issp: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column6: TcxGridDBColumn + Caption = #20248#31561#21367#25968 + DataBinding.FieldName = 'YDJs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20248#31561#31859#25968 + DataBinding.FieldName = 'Ydqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1YdPF: TcxGridDBColumn + Caption = #20248#31561#24179#26041 + DataBinding.FieldName = 'YdPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20108#31561#21367#25968 + DataBinding.FieldName = 'edJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column8: TcxGridDBColumn + Caption = #20108#31561#31859#25968 + DataBinding.FieldName = 'edqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1edPF: TcxGridDBColumn + Caption = #20108#31561#24179#26041 + DataBinding.FieldName = 'edPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column9: TcxGridDBColumn + Caption = #23567#21367#21367#25968 + DataBinding.FieldName = 'xjJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column10: TcxGridDBColumn + Caption = #23567#21367#25968#37327 + DataBinding.FieldName = 'xjqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1xjPF: TcxGridDBColumn + Caption = #23567#21367#24179#26041 + DataBinding.FieldName = 'xjPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column13: TcxGridDBColumn + Caption = #20998#20999#21367#25968 + DataBinding.FieldName = 'fqJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column14: TcxGridDBColumn + Caption = #20998#20999#24067#25968#37327 + DataBinding.FieldName = 'fqqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1fqPF: TcxGridDBColumn + Caption = #20998#20999#24179#26041 + DataBinding.FieldName = 'fqPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column17: TcxGridDBColumn + Caption = #27979#35797#21367#25968 + DataBinding.FieldName = 'csJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column18: TcxGridDBColumn + Caption = #27979#35797#25968#37327 + DataBinding.FieldName = 'csqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1csPF: TcxGridDBColumn + Caption = #27979#35797#24179#26041 + DataBinding.FieldName = 'csPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1pf: TcxGridDBColumn + Caption = #24179#26041 + DataBinding.FieldName = 'pf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end end - item - Kind = skSum + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 end - item - Kind = skCount - 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 - Format = #26816#39564#31995#25968'=#.##' - Kind = skAverage - end - item - Format = #25442#31639#31995#25968'=#.##' - Kind = skAverage - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column6 - end - item - Kind = skSum - Column = Tv1Column1 - end - item - Kind = skSum - Column = Tv1Column7 - end - item - Kind = skSum - Column = Tv1Column8 - end - item - Kind = skSum - Column = Tv1Column9 - end - item - Kind = skSum - Column = Tv1Column10 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column13 - end - item - Kind = skSum - Column = Tv1Column14 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column17 - end - item - Kind = skSum - Column = Tv1Column18 - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1YdPF - end - item - Kind = skSum - Column = Tv1edPF - end - item - Kind = skSum - Column = Tv1xjPF - end - item - Kind = skSum - Column = Tv1fqPF - end - item - Kind = skSum - Column = Tv1csPF - end - item - Kind = skSum - Column = Tv1pf - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - OptionsView.IndicatorWidth = 30 - Styles.IncSearch = DataLink_TatClothStk.SHuangSe - Styles.Footer = DataLink_TatClothStk.Default - Styles.Header = DataLink_TatClothStk.Default - Styles.Inactive = DataLink_TatClothStk.SHuangSe - Styles.Selection = DataLink_TatClothStk.SHuangSe - object v1Column22: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'SSel' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - HeaderAlignmentHorz = taCenter - Options.Sorting = False - Width = 66 - end - object Tv1Column3: TcxGridDBColumn - Caption = #21697#21517 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1issp: TcxGridDBColumn - Caption = #21452#21943 - DataBinding.FieldName = 'issp' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column4: TcxGridDBColumn - Caption = #20811#37325 - DataBinding.FieldName = 'C_GramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column6: TcxGridDBColumn - Caption = #20248#31561#21367#25968 - DataBinding.FieldName = 'YDJs' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 74 - end - object Tv1Column1: TcxGridDBColumn - Caption = #20248#31561#31859#25968 - DataBinding.FieldName = 'Ydqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1YdPF: TcxGridDBColumn - Caption = #20248#31561#24179#26041 - DataBinding.FieldName = 'YdPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column7: TcxGridDBColumn - Caption = #20108#31561#21367#25968 - DataBinding.FieldName = 'edJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column8: TcxGridDBColumn - Caption = #20108#31561#31859#25968 - DataBinding.FieldName = 'edqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1edPF: TcxGridDBColumn - Caption = #20108#31561#24179#26041 - DataBinding.FieldName = 'edPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column9: TcxGridDBColumn - Caption = #23567#21367#21367#25968 - DataBinding.FieldName = 'xjJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column10: TcxGridDBColumn - Caption = #23567#21367#25968#37327 - DataBinding.FieldName = 'xjqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1xjPF: TcxGridDBColumn - Caption = #23567#21367#24179#26041 - DataBinding.FieldName = 'xjPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column13: TcxGridDBColumn - Caption = #20998#20999#21367#25968 - DataBinding.FieldName = 'fqJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column14: TcxGridDBColumn - Caption = #20998#20999#24067#25968#37327 - DataBinding.FieldName = 'fqqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1fqPF: TcxGridDBColumn - Caption = #20998#20999#24179#26041 - DataBinding.FieldName = 'fqPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column17: TcxGridDBColumn - Caption = #27979#35797#21367#25968 - DataBinding.FieldName = 'csJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column18: TcxGridDBColumn - Caption = #27979#35797#25968#37327 - DataBinding.FieldName = 'csqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1csPF: TcxGridDBColumn - Caption = #27979#35797#24179#26041 - DataBinding.FieldName = 'csPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1pf: TcxGridDBColumn - Caption = #24179#26041 - DataBinding.FieldName = 'pf' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 end end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 + object TabSheet2: TTabSheet + Caption = ' '#26126#32454' ' + ImageIndex = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1530 + Height = 457 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_2 + TabOrder = 0 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + 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 + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = cxGridDBColumn10 + end + item + Kind = skSum + Column = cxGridDBColumn12 + end + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn15 + end + item + Kind = skSum + Column = cxGridDBColumn16 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn18 + end + item + Kind = skSum + Column = cxGridDBColumn19 + end + item + Kind = skSum + Column = cxGridDBColumn21 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn17 + end + item + Kind = skSum + Column = cxGridDBColumn20 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_TatClothStk.SHuangSe + Styles.Footer = DataLink_TatClothStk.Default + Styles.Header = DataLink_TatClothStk.Default + Styles.Inactive = DataLink_TatClothStk.SHuangSe + Styles.Selection = DataLink_TatClothStk.SHuangSe + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #20248#31561#21367#25968 + DataBinding.FieldName = 'YDJs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20248#31561#31859#25968 + DataBinding.FieldName = 'Ydqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20248#31561#24179#26041 + DataBinding.FieldName = 'YdPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20108#31561#21367#25968 + DataBinding.FieldName = 'edJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20108#31561#31859#25968 + DataBinding.FieldName = 'edqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20108#31561#24179#26041 + DataBinding.FieldName = 'edPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #23567#21367#21367#25968 + DataBinding.FieldName = 'xjJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #23567#21367#25968#37327 + DataBinding.FieldName = 'xjqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #23567#21367#24179#26041 + DataBinding.FieldName = 'xjPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #20998#20999#21367#25968 + DataBinding.FieldName = 'fqJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #20998#20999#24067#25968#37327 + DataBinding.FieldName = 'fqqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20998#20999#24179#26041 + DataBinding.FieldName = 'fqPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #27979#35797#21367#25968 + DataBinding.FieldName = 'csJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #27979#35797#25968#37327 + DataBinding.FieldName = 'csqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #27979#35797#24179#26041 + DataBinding.FieldName = 'csPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #24179#26041 + DataBinding.FieldName = 'pf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end end end end @@ -570,7 +947,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Top = 156 end object GPM_1: TcxGridPopupMenu - Grid = cxGrid1 PopupMenus = <> Left = 608 Top = 136 @@ -602,4 +978,41 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList OnClick = N3Click end end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 461 + Top = 322 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 557 + Top = 330 + end + object PM_2: TPopupMenu + Left = 469 + Top = 386 + object N4: TMenuItem + Caption = #20840#36873 + OnClick = N4Click + end + object N5: TMenuItem + Caption = #20840#24323 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #22797#21046 + OnClick = N6Click + end + object N7: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N7Click + end + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 565 + Top = 386 + end end diff --git a/E04梭织坯布仓库/U_TatClothStkHZList.pas b/E04梭织坯布仓库/U_TatClothStkHZList.pas index 3293d18..c6a3855 100644 --- a/E04梭织坯布仓库/U_TatClothStkHZList.pas +++ b/E04梭织坯布仓库/U_TatClothStkHZList.pas @@ -43,6 +43,12 @@ type C_GramWeight: TEdit; label11: TLabel; Panel2: TPanel; + N2: TMenuItem; + N3: TMenuItem; + ToolButton1: TToolButton; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; v1Column22: TcxGridDBColumn; @@ -51,24 +57,55 @@ type Tv1Column4: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; + Tv1YdPF: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; + Tv1edPF: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; + Tv1xjPF: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn; + Tv1fqPF: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn; - cxGrid1Level1: TcxGridLevel; - N2: TMenuItem; - Tv1pf: TcxGridDBColumn; - Tv1YdPF: TcxGridDBColumn; - Tv1edPF: TcxGridDBColumn; - Tv1xjPF: TcxGridDBColumn; - Tv1fqPF: TcxGridDBColumn; Tv1csPF: TcxGridDBColumn; - N3: TMenuItem; - ToolButton1: TToolButton; + Tv1pf: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + CDS_2: TClientDataSet; + DS_2: TDataSource; + PM_2: TPopupMenu; + GPM_2: TcxGridPopupMenu; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + N7: TMenuItem; + label12: TLabel; + C_width: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -96,12 +133,17 @@ type procedure N2Click(Sender: TObject); procedure Tv1DblClick(Sender: TObject); procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure N7Click(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); + procedure InitGrid2(); procedure SetStatus(); - procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); { Private declarations } public @@ -204,6 +246,75 @@ begin end; +procedure TfrmTatClothStkHZList.InitGrid2(); +var + WSql: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight '); + SQL.Add(',pf=SUM(CASE WHEN (GRADE=''ŵƷ'' or GRADE=''Ʒ'' or GRADE=''С'' or GRADE='''' or GRADE='''') THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter ELSE 0 END )AS Ydqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END )AS edJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter ELSE 0 END )AS edqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END )AS xjJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter ELSE 0 END )AS xjqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN 1 ELSE 0 END )AS fbJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN A.meter ELSE 0 END )AS fbqty'); +// SQL.Add(',SUM(CASE WHEN GRADE=''ϲ'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS fqJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS fqqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN 1 ELSE 0 END )AS xhJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN A.meter ELSE 0 END )AS xhqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS csJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS csqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF'); + sql.Add(', issp=isnull(A.issp,'''') '); + + SQL.Add('from V_Tat_Cloth_stk A where 1=1 '); + SQL.Add(' and Grade <> ''ϲ'' '); + SQL.Add(' and Grade <> ''ѭ'' '); + + + SQL.Add(WSql); + sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') '); + SQL.Add(' order by A.C_NAME, CAST(A.C_Width AS DECIMAL(10,2)),A.C_GramWeight'); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + + finally + ADOQueryMain.EnableControls; + TV2.DataController.Filter.Clear; + end; + +end; + procedure TfrmTatClothStkHZList.IsJYTimeClick(Sender: TObject); begin inherited; @@ -214,6 +325,7 @@ procedure TfrmTatClothStkHZList.TBRafreshClick(Sender: TObject); begin CurrentPage := 1; InitGrid(); + InitGrid2(); end; procedure TfrmTatClothStkHZList.CDS_1BeforeOpen(DataSet: TDataSet); @@ -243,6 +355,7 @@ begin if Key = #13 then begin InitGrid(); + InitGrid2(); end; end; @@ -264,6 +377,7 @@ begin SetStatus(); InitGrid(); + InitGrid2(); end; procedure TfrmTatClothStkHZList.TBExportClick(Sender: TObject); @@ -373,17 +487,38 @@ end; procedure TfrmTatClothStkHZList.N3Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(TV1,TV1.Controller.FocusedColumn); end; -procedure TfrmTatClothStkHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +procedure TfrmTatClothStkHZList.N4Click(Sender: TObject); +begin + + SelOKNo(CDS_2, true); +end; + +procedure TfrmTatClothStkHZList.N5Click(Sender: TObject); +begin + + SelOKNo(CDS_2, false); +end; + +procedure TfrmTatClothStkHZList.N6Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothStkHZList.N7Click(Sender: TObject); +begin + + CopyColumnSummaryToClipboard(TV2,TV2.Controller.FocusedColumn); +end; + +procedure TfrmTatClothStkHZList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); var - AView: TcxGridDBTableView; SummaryIndex: Integer; SummaryText: string; begin - AView := Tv1; - // ָеĻ SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); if SummaryIndex <> -1 then diff --git a/E04梭织坯布仓库/testDll.identcache b/E04梭织坯布仓库/testDll.identcache index 6c748c7..c1cb9ae 100644 Binary files a/E04梭织坯布仓库/testDll.identcache and b/E04梭织坯布仓库/testDll.identcache differ