From a944322fac91639d70ba697cdaf1ff14bda34e3f Mon Sep 17 00:00:00 2001 From: "LAPTOP-8NOV8MVQ\\cai" Date: Wed, 14 Jan 2026 17:31:53 +0800 Subject: [PATCH] cai 1.14 --- A00通用窗体/U_CompanySel.dfm | 45 +- A00通用窗体/U_CompanySel.pas | 5 + A00通用窗体/U_TatClothInfoSel.dfm | 167 +++- A00通用窗体/U_TatClothInfoSel.pas | 78 +- A01基础公司管理/Company.dproj.local | 8 +- A01基础公司管理/Company.res | Bin 1472 -> 1472 bytes A01基础公司管理/U_CustInput.dfm | 48 +- A01基础公司管理/U_CustInput.pas | 49 +- A01基础公司管理/U_Customer.dfm | 30 +- A01基础公司管理/U_Customer.pas | 9 +- A01基础公司管理/U_GetDllForm.pas | 9 +- A01基础公司管理/testDll.res | Bin 3308 -> 3308 bytes A02基础产品管理/ClothInfo.dproj.local | 50 +- A02基础产品管理/ClothInfo.identcache | Bin 2078 -> 2078 bytes A02基础产品管理/U_ClothInfo.dfm | 19 +- A02基础产品管理/U_ClothInfo.pas | 2 +- A02基础产品管理/U_TatClothInfo.dfm | 34 +- A02基础产品管理/U_TatClothInfo.pas | 1 - A02基础产品管理/testDll.identcache | Bin 178 -> 178 bytes B02基础纱线仓库/ProjectGroup1.groupproj.local | 2 +- B02基础纱线仓库/U_YarnInfoInPut.dfm | 14 +- B02基础纱线仓库/U_YarnInfoInPut.pas | 2 +- B02基础纱线仓库/U_YarnInfoList.dfm | 1 - B02基础纱线仓库/YarnStk.dproj.local | 136 ++- B02基础纱线仓库/YarnStk.identcache | Bin 2342 -> 2382 bytes B02基础纱线仓库/YarnStk.res | Bin 1472 -> 1472 bytes B02基础纱线仓库/testDll.identcache | Bin 174 -> 178 bytes B02基础纱线仓库/testDll.res | Bin 3308 -> 3308 bytes E01梭织生产计划/TatPlan.dproj.local | 46 +- E03梭织坯布检验/TatInsp.dpr | 3 +- E03梭织坯布检验/TatInsp.dproj | 4 + E03梭织坯布检验/TatInsp.dproj.local | 9 +- E03梭织坯布检验/TatInsp.identcache | Bin 2007 -> 2099 bytes E03梭织坯布检验/TatInspFile.INI | 3 +- E03梭织坯布检验/U_GetDllForm.pas | 14 +- E03梭织坯布检验/U_TatClothInspHZList.dfm | 100 +- E03梭织坯布检验/U_TatClothInspHZList.pas | 237 ++++- E03梭织坯布检验/U_TatClothInspHZList2.dfm | 791 ++++++++++++++++ E03梭织坯布检验/U_TatClothInspHZList2.pas | 866 ++++++++++++++++++ E03梭织坯布检验/U_TatClothInspList.dfm | 7 +- E03梭织坯布检验/U_TatClothInspList.pas | 36 +- E03梭织坯布检验/U_TatInspSHHZ.dfm | 682 ++++++++++++++ E03梭织坯布检验/U_TatInspSHHZ.pas | 429 +++++++++ E03梭织坯布检验/U_TatInspSHHZ2.dfm | 642 +++++++++++++ E03梭织坯布检验/U_TatInspSHHZ2.pas | 413 +++++++++ E03梭织坯布检验/U_TatMachCutHZList.dfm | 11 +- E03梭织坯布检验/U_TatMachCutHZList.pas | 43 + E03梭织坯布检验/U_TatMachInsp.dfm | 6 +- E03梭织坯布检验/U_TatMachInsp.pas | 2 + E04梭织坯布仓库/TatClothStk.dpr | 8 +- E04梭织坯布仓库/TatClothStk.dproj | 24 + E04梭织坯布仓库/TatClothStk.dproj.local | 100 +- E04梭织坯布仓库/TatClothStk.identcache | Bin 2200 -> 52200 bytes E04梭织坯布仓库/U_DataLink.dfm | 1 + E04梭织坯布仓库/U_GetDllForm.pas | 15 +- E04梭织坯布仓库/U_TatClothCKHZList.dfm | 115 ++- E04梭织坯布仓库/U_TatClothCKHZList.pas | 192 +++- E04梭织坯布仓库/U_TatClothCKHZList2.dfm | 432 +++++++++ E04梭织坯布仓库/U_TatClothCKHZList2.pas | 418 +++++++++ E04梭织坯布仓库/U_TatClothCKHZList3.dfm | 424 +++++++++ E04梭织坯布仓库/U_TatClothCKHZList3.pas | 410 +++++++++ E04梭织坯布仓库/U_TatClothCRStkHZList.dfm | 594 ++++++++++++ E04梭织坯布仓库/U_TatClothCRStkHZList.pas | 431 +++++++++ E04梭织坯布仓库/U_TatClothEDCDLook.dfm | 635 +++++++++++++ E04梭织坯布仓库/U_TatClothEDCDLook.pas | 420 +++++++++ E04梭织坯布仓库/U_TatClothInList.dfm | 51 +- E04梭织坯布仓库/U_TatClothInList.pas | 37 + E04梭织坯布仓库/U_TatClothOutList.dfm | 104 ++- E04梭织坯布仓库/U_TatClothOutList.pas | 40 + E04梭织坯布仓库/U_TatClothRKHZList.dfm | 63 +- E04梭织坯布仓库/U_TatClothRKHZList.pas | 79 +- E04梭织坯布仓库/U_TatClothRKHZList2.dfm | 676 ++++++++++++++ E04梭织坯布仓库/U_TatClothRKHZList2.pas | 460 ++++++++++ E04梭织坯布仓库/U_TatClothStkHZList.dfm | 634 +++++++------ E04梭织坯布仓库/U_TatClothStkHZList.pas | 106 ++- E04梭织坯布仓库/U_TatClothStkHZList2.dfm | 635 +++++++++++++ E04梭织坯布仓库/U_TatClothStkHZList2.pas | 441 +++++++++ E04梭织坯布仓库/U_TatClothStkHZList3.dfm | 853 +++++++++++++++++ E04梭织坯布仓库/U_TatClothStkHZList3.pas | 497 ++++++++++ E04梭织坯布仓库/U_TatClothStkList.dfm | 93 ++ E04梭织坯布仓库/U_TatClothStkList.pas | 52 ++ E04梭织坯布仓库/U_TatClothStkListPH.dfm | 11 +- E04梭织坯布仓库/U_TatClothStkListPH.pas | 5 +- E04梭织坯布仓库/U_TatClothStkListsel.dfm | 27 +- E04梭织坯布仓库/U_TatClothStkListsel.pas | 3 +- E04梭织坯布仓库/U_TatDRList.dfm | 127 ++- E04梭织坯布仓库/U_TatDRList.pas | 460 ++++++++-- E04梭织坯布仓库/U_TatDRtInPut.dfm | 56 +- E04梭织坯布仓库/U_TatDRtInPut.pas | 55 +- E04梭织坯布仓库/testDll.identcache | Bin 178 -> 1375 bytes 90 files changed, 13775 insertions(+), 1062 deletions(-) create mode 100644 E03梭织坯布检验/U_TatClothInspHZList2.dfm create mode 100644 E03梭织坯布检验/U_TatClothInspHZList2.pas create mode 100644 E03梭织坯布检验/U_TatInspSHHZ.dfm create mode 100644 E03梭织坯布检验/U_TatInspSHHZ.pas create mode 100644 E03梭织坯布检验/U_TatInspSHHZ2.dfm create mode 100644 E03梭织坯布检验/U_TatInspSHHZ2.pas create mode 100644 E04梭织坯布仓库/U_TatClothCKHZList2.dfm create mode 100644 E04梭织坯布仓库/U_TatClothCKHZList2.pas create mode 100644 E04梭织坯布仓库/U_TatClothCKHZList3.dfm create mode 100644 E04梭织坯布仓库/U_TatClothCKHZList3.pas create mode 100644 E04梭织坯布仓库/U_TatClothCRStkHZList.dfm create mode 100644 E04梭织坯布仓库/U_TatClothCRStkHZList.pas create mode 100644 E04梭织坯布仓库/U_TatClothEDCDLook.dfm create mode 100644 E04梭织坯布仓库/U_TatClothEDCDLook.pas create mode 100644 E04梭织坯布仓库/U_TatClothRKHZList2.dfm create mode 100644 E04梭织坯布仓库/U_TatClothRKHZList2.pas create mode 100644 E04梭织坯布仓库/U_TatClothStkHZList2.dfm create mode 100644 E04梭织坯布仓库/U_TatClothStkHZList2.pas create mode 100644 E04梭织坯布仓库/U_TatClothStkHZList3.dfm create mode 100644 E04梭织坯布仓库/U_TatClothStkHZList3.pas diff --git a/A00通用窗体/U_CompanySel.dfm b/A00通用窗体/U_CompanySel.dfm index 1cb13bd..07c4f23 100644 --- a/A00通用窗体/U_CompanySel.dfm +++ b/A00通用窗体/U_CompanySel.dfm @@ -10,7 +10,6 @@ inherited frmCompanySel: TfrmCompanySel Font.Name = #23435#20307 Position = poScreenCenter OnClose = FormClose - ExplicitLeft = -42 ExplicitWidth = 909 ExplicitHeight = 597 PixelsPerInch = 96 @@ -22,6 +21,7 @@ inherited frmCompanySel: TfrmCompanySel Height = 476 Align = alClient TabOrder = 0 + ExplicitTop = 76 object TV1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> @@ -60,6 +60,13 @@ inherited frmCompanySel: TfrmCompanySel HeaderAlignmentHorz = taCenter Width = 159 end + object TV1Saleser: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 119 + end object TV1Column4: TcxGridDBColumn Caption = #23458#25143#22320#22336 DataBinding.FieldName = 'CoAddress' @@ -135,15 +142,47 @@ inherited frmCompanySel: TfrmCompanySel Height = 12 Caption = #21517#31216 end + object Label2: TLabel + Left = 200 + Top = 17 + Width = 24 + Height = 12 + Caption = #31616#31216 + end + object Label3: TLabel + Left = 382 + Top = 17 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end object CoName: TEdit Tag = 2 - Left = 53 + Left = 46 Top = 12 - Width = 169 + Width = 140 Height = 20 TabOrder = 0 OnChange = CoNameChange end + object CoAbbrName: TEdit + Tag = 2 + Left = 228 + Top = 12 + Width = 140 + Height = 20 + TabOrder = 1 + OnChange = CoNameChange + end + object Saleser: TEdit + Tag = 2 + Left = 422 + Top = 12 + Width = 140 + Height = 20 + TabOrder = 2 + OnChange = CoNameChange + end end inherited ADOQueryBaseCmd: TADOQuery Connection = ADOConnection1 diff --git a/A00通用窗体/U_CompanySel.pas b/A00通用窗体/U_CompanySel.pas index b046570..7c3883e 100644 --- a/A00通用窗体/U_CompanySel.pas +++ b/A00通用窗体/U_CompanySel.pas @@ -52,6 +52,11 @@ type cxBlue: TcxStyle; SHuangSeCu: TcxStyle; TV1Column4: TcxGridDBColumn; + TV1Saleser: TcxGridDBColumn; + Label2: TLabel; + CoAbbrName: TEdit; + Label3: TLabel; + Saleser: TEdit; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); diff --git a/A00通用窗体/U_TatClothInfoSel.dfm b/A00通用窗体/U_TatClothInfoSel.dfm index fcc2c9e..1dc90a8 100644 --- a/A00通用窗体/U_TatClothInfoSel.dfm +++ b/A00通用窗体/U_TatClothInfoSel.dfm @@ -2,24 +2,23 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel Left = 372 Top = 106 Caption = #20135#21697#20449#24687#36873#25321 - ClientHeight = 634 - ClientWidth = 1485 + ClientHeight = 629 + ClientWidth = 1509 Color = clWhite Font.Charset = GB2312_CHARSET Font.Height = -12 Font.Name = #23435#20307 Position = poScreenCenter OnClose = FormClose - ExplicitLeft = -304 - ExplicitWidth = 1501 - ExplicitHeight = 673 + ExplicitWidth = 1525 + ExplicitHeight = 668 PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 - Width = 1485 + Width = 1509 Height = 38 AutoSize = True ButtonHeight = 38 @@ -37,16 +36,17 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel ParentFont = False ShowCaptions = True TabOrder = 0 + ExplicitTop = 5 object ToolButton1: TToolButton Left = 0 Top = 0 AutoSize = True - Caption = #36873#25321 + Caption = #36873#25321#23436#25104 ImageIndex = 12 OnClick = ToolButton1Click end object TBSave: TToolButton - Left = 71 + Left = 95 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -55,7 +55,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel OnClick = TBSaveClick end object TBClose: TToolButton - Left = 166 + Left = 190 Top = 0 AutoSize = True Caption = #20851#38381 @@ -67,7 +67,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel Left = 0 Top = 82 Width = 216 - Height = 552 + Height = 547 Align = alLeft Bands = < item @@ -85,6 +85,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel ScrollbarAnnotations.CustomAnnotations = <> TabOrder = 1 OnDblClick = cxDBTreeList1DblClick + ExplicitHeight = 552 object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn DataBinding.FieldName = 'CTName' Width = 210 @@ -98,24 +99,24 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel object Panel3: TPanel [2] Left = 216 Top = 82 - Width = 1269 - Height = 552 + Width = 1293 + Height = 547 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Panel3' TabOrder = 2 + ExplicitWidth = 1269 + ExplicitHeight = 552 object cxGrid1: TcxGrid Left = 2 Top = 42 - Width = 1265 - Height = 314 - Align = alClient + Width = 642 + Height = 309 + Align = alLeft TabOrder = 0 ExplicitLeft = 6 - ExplicitHeight = 508 object Tv1: TcxGridDBTableView - OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False @@ -131,13 +132,13 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsView.GroupByBox = False - object v1SSel: TcxGridDBColumn + object Tv1SSel: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' HeaderAlignmentHorz = taCenter - Width = 39 + Width = 38 end object v1Column12: TcxGridDBColumn Caption = #31867#21035 @@ -187,21 +188,24 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel object Panel7: TPanel Left = 2 Top = 2 - Width = 1265 + Width = 1289 Height = 40 Align = alTop BevelOuter = bvNone TabOrder = 1 + ExplicitWidth = 1265 object Panel4: TPanel Left = 0 Top = 0 - Width = 1265 + Width = 1289 Height = 40 Align = alClient AutoSize = True TabOrder = 0 + ExplicitLeft = 4 + ExplicitTop = -6 DesignSize = ( - 1265 + 1289 40) object Label14: TLabel Left = 19 @@ -297,14 +301,15 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel end object cxGrid3: TcxGrid Left = 2 - Top = 356 - Width = 1265 + Top = 351 + Width = 1289 Height = 194 Align = alBottom TabOrder = 2 - ExplicitLeft = 6 - ExplicitTop = 362 + ExplicitLeft = -50 + ExplicitTop = 357 object TV3: TcxGridDBTableView + OnDblClick = TV3DblClick Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False @@ -319,21 +324,12 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsView.GroupByBox = False - object TV3Column1: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'ssel' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - HeaderAlignmentHorz = taCenter - Width = 68 - end object cxGridDBColumn1: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_MXMF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 179 end end @@ -341,16 +337,94 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel GridView = TV3 end end + object cxGrid2: TcxGrid + Left = 644 + Top = 42 + Width = 647 + Height = 309 + Align = alClient + PopupMenu = PM_1 + TabOrder = 3 + ExplicitLeft = 650 + ExplicitTop = 48 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.GroupByBox = False + object cxGridDBColumn3: TcxGridDBColumn + Caption = #31867#21035 + DataBinding.FieldName = 'CTName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_MXMF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object Tv2C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end end object Panel1: TPanel [3] Left = 0 Top = 38 - Width = 1485 + Width = 1509 Height = 44 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 3 + ExplicitTop = 34 object Label3: TLabel Left = 42 Top = 15 @@ -4871,4 +4945,23 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel Left = 1003 Top = 508 end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 1104 + Top = 210 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 1232 + Top = 226 + end + object PM_1: TPopupMenu + Left = 1136 + Top = 274 + object N1: TMenuItem + Caption = #21024#38500 + OnClick = N1Click + end + end end diff --git a/A00通用窗体/U_TatClothInfoSel.pas b/A00通用窗体/U_TatClothInfoSel.pas index 617a33a..7f8ff20 100644 --- a/A00通用窗体/U_TatClothInfoSel.pas +++ b/A00通用窗体/U_TatClothInfoSel.pas @@ -12,7 +12,7 @@ uses cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL, cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL, - cxTLData, math, dxScrollbarAnnotations; + cxTLData, math, dxScrollbarAnnotations, Vcl.Menus; type TfrmTatClothInfoSel = class(TfrmBaseHelp) @@ -36,7 +36,6 @@ type Panel3: TPanel; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; - v1SSel: TcxGridDBColumn; v1Column12: TcxGridDBColumn; v1CYNo: TcxGridDBColumn; v1Column9: TcxGridDBColumn; @@ -78,16 +77,28 @@ type TV3: TcxGridDBTableView; cxGridDBColumn1: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; - TV3Column1: TcxGridDBColumn; CDS_Sub: TClientDataSet; DataSource3: TDataSource; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + CDS_2: TClientDataSet; + DS_2: TDataSource; + PM_1: TPopupMenu; + N1: TMenuItem; + Tv1SSel: TcxGridDBColumn; + Tv2C_Color: TcxGridDBColumn; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure TBSaveClick(Sender: TObject); - procedure TV1DblClick(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure TCBNOR1Change(Sender: TObject); @@ -95,10 +106,13 @@ type procedure TBCloseClick(Sender: TObject); procedure cxDBTreeList1DblClick(Sender: TObject); procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure N1Click(Sender: TObject); + procedure TV3DblClick(Sender: TObject); private CurrentPage, RecordsNumber: Integer; procedure InitGrid(); procedure InitTree(); + procedure InitGrid2(); { Private declarations } public FCoType: string; @@ -132,6 +146,15 @@ begin cxDBTreeList1.Items[0].Expand(false); end; +procedure TfrmTatClothInfoSel.N1Click(Sender: TObject); +begin + if CDS_2.IsEmpty then + begin + Exit; + end; + CDS_2.Delete; +end; + procedure TfrmTatClothInfoSel.FormCreate(Sender: TObject); begin inherited; @@ -251,6 +274,32 @@ begin end; + +procedure TfrmTatClothInfoSel.InitGrid2(); +begin + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add(' select A.*,C_MXMF=cast('''' as varchar(30)),CTName =cast('''' as varchar(30)) from BS_Cloth_Info A where 1=2 '); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + + + finally + ADOQueryMain.EnableControls; + + end; + +end; + + procedure TfrmTatClothInfoSel.FormShow(Sender: TObject); begin inherited; @@ -262,6 +311,7 @@ begin InitTree(); InitGrid(); + InitGrid2(); end; procedure TfrmTatClothInfoSel.TBCloseClick(Sender: TObject); @@ -291,10 +341,7 @@ begin ModalResult := 1; end; -procedure TfrmTatClothInfoSel.TV1DblClick(Sender: TObject); -begin - ModalResult := 1; -end; + procedure TfrmTatClothInfoSel.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin @@ -310,6 +357,21 @@ begin SInitCDSData(ADOQueryCmd, CDS_sub); end; +procedure TfrmTatClothInfoSel.TV3DblClick(Sender: TObject); +begin + with CDS_2 do + begin + Append; + FieldByName('CTName').AsString := CDS_1.FieldByName('CTName').AsString; + FieldByName('C_Code').AsString := CDS_1.FieldByName('C_Code').AsString; + FieldByName('C_Name').AsString := CDS_1.FieldByName('C_Name').AsString; + FieldByName('C_Color').AsString := CDS_1.FieldByName('C_Color').AsString; + FieldByName('C_GramWeight').AsString := CDS_1.FieldByName('C_GramWeight').AsString; + FieldByName('C_MXMF').AsString := CDS_Sub.FieldByName('C_MXMF').AsString; + post; + end; +end; + procedure TfrmTatClothInfoSel.FormDestroy(Sender: TObject); begin inherited; diff --git a/A01基础公司管理/Company.dproj.local b/A01基础公司管理/Company.dproj.local index 37510d8..0a48f90 100644 --- a/A01基础公司管理/Company.dproj.local +++ b/A01基础公司管理/Company.dproj.local @@ -13,17 +13,17 @@ 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas - 1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas= 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas 1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas 1899/12/30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm 1899/12/30 00:00:00.000.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas - 1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas diff --git a/A01基础公司管理/Company.res b/A01基础公司管理/Company.res index b3d7ee7ed0f87394c32f8573d7b1cfc2cf9bb63a..543f9420fe719aadf2a2cde77d24f46269efdb36 100644 GIT binary patch delta 12 TcmX@WeSmwz9#$4c1_lNI96|#P delta 12 TcmX@WeSmwz9#)pdDGUq%AN~X( diff --git a/A01基础公司管理/U_CustInput.dfm b/A01基础公司管理/U_CustInput.dfm index 429bace..3c59368 100644 --- a/A01基础公司管理/U_CustInput.dfm +++ b/A01基础公司管理/U_CustInput.dfm @@ -283,24 +283,6 @@ object frmCustInput: TfrmCustInput Font.Style = [] ParentFont = False TabOrder = 6 - OnBtnUpClick = cocountryBtnUpClick - OnBtnDnClick = cocountryBtnDnClick - end - object CoBusinessType: TBtnEditC - Tag = 2 - Left = 742 - Top = 31 - Width = 140 - Height = 20 - Hint = 'CoBusinessType/'#23458#25143#31867#22411 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False - TabOrder = 7 - OnBtnUpClick = cocountryBtnUpClick OnBtnDnClick = cocountryBtnDnClick end object ParentCoName: TBtnEditC @@ -316,7 +298,7 @@ object frmCustInput: TfrmCustInput Font.Style = [] ParentFont = False ReadOnly = True - TabOrder = 8 + TabOrder = 7 OnBtnUpClick = ParentCoNameBtnUpClick OnBtnDnClick = cocountryBtnDnClick end @@ -332,7 +314,7 @@ object frmCustInput: TfrmCustInput Font.Name = #23435#20307 Font.Style = [] ParentFont = False - TabOrder = 9 + TabOrder = 8 OnBtnUpClick = SaleserBtnUpClick OnBtnDnClick = cocountryBtnDnClick end @@ -341,7 +323,7 @@ object frmCustInput: TfrmCustInput Left = 71 Top = 224 Width = 140 - Height = 22 + Height = 20 Hint = 'khdept/'#37096#38376 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -349,10 +331,20 @@ object frmCustInput: TfrmCustInput Font.Name = #23435#20307 Font.Style = [] ParentFont = False - TabOrder = 10 - OnBtnUpClick = cocountryBtnUpClick + TabOrder = 9 OnBtnDnClick = cocountryBtnDnClick end + object CoBusinessType: TComboBox + Tag = 2 + Left = 742 + Top = 28 + Width = 145 + Height = 22 + TabOrder = 10 + Items.Strings = ( + #32463#38144#21830 + #21152#24037#21378) + end end object Panel1: TPanel Left = 0 @@ -420,6 +412,7 @@ object frmCustInput: TfrmCustInput Align = alClient BorderStyle = cxcbsNone TabOrder = 1 + ExplicitLeft = 0 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -479,15 +472,6 @@ object frmCustInput: TfrmCustInput HeaderAlignmentHorz = taCenter Width = 86 end - object cxGridDBColumn7: TcxGridDBColumn - Caption = #25163#26426#21495 - DataBinding.FieldName = 'PhoneNumber' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.CharCase = ecUpperCase - HeaderAlignmentHorz = taCenter - Width = 109 - end object cxGridDBColumn8: TcxGridDBColumn DataBinding.FieldName = 'EMAIL' DataBinding.IsNullValueType = True diff --git a/A01基础公司管理/U_CustInput.pas b/A01基础公司管理/U_CustInput.pas index 0b3329e..6873c79 100644 --- a/A01基础公司管理/U_CustInput.pas +++ b/A01基础公司管理/U_CustInput.pas @@ -51,7 +51,6 @@ type cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn; - cxGridDBColumn7: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn; cxGridLevel2: TcxGridLevel; Label10: TLabel; @@ -59,13 +58,13 @@ type TV2Column2: TcxGridDBColumn; cocountry: TBtnEditC; Label3: TLabel; - CoBusinessType: TBtnEditC; Label5: TLabel; ParentCoName: TBtnEditC; Label9: TLabel; Saleser: TBtnEditC; Label11: TLabel; dept: TBtnEditC; + CoBusinessType: TComboBox; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -76,7 +75,7 @@ type procedure ToolButton7Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure cocountryBtnDnClick(Sender: TObject); - procedure cocountryBtnUpClick(Sender: TObject); +// procedure cocountryBtnUpClick(Sender: TObject); procedure ParentCoNameBtnUpClick(Sender: TObject); procedure SaleserBtnUpClick(Sender: TObject); private @@ -161,28 +160,28 @@ begin TBtnEditC(Sender).TxtCode := ''; end; -procedure TfrmCustInput.cocountryBtnUpClick(Sender: TObject); -var - fsj: string; - FWZ: Integer; -begin - fsj := Trim(TEdit(Sender).Hint); - FWZ := Pos('/', fsj); - try - frmZDYHelp := TfrmZDYHelp.Create(Application); - with frmZDYHelp do - begin - flag := Copy(fsj, 1, FWZ - 1); - flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); - if ShowModal = 1 then - begin - TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); - end; - end; - finally - frmZDYHelp.Free; - end; -end; +//procedure TfrmCustInput.cocountryBtnUpClick(Sender: TObject); +//var +// fsj: string; +// FWZ: Integer; +//begin +// fsj := Trim(TEdit(Sender).Hint); +// FWZ := Pos('/', fsj); +// try +// frmZDYHelp := TfrmZDYHelp.Create(Application); +// with frmZDYHelp do +// begin +// flag := Copy(fsj, 1, FWZ - 1); +// flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); +// if ShowModal = 1 then +// begin +// TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); +// end; +// end; +// finally +// frmZDYHelp.Free; +// end; +//end; procedure TfrmCustInput.FormClose(Sender: TObject; var Action: TCloseAction); begin diff --git a/A01基础公司管理/U_Customer.dfm b/A01基础公司管理/U_Customer.dfm index 1c0d553..b1e3b30 100644 --- a/A01基础公司管理/U_Customer.dfm +++ b/A01基础公司管理/U_Customer.dfm @@ -7,7 +7,7 @@ inherited frmCustomer: TfrmCustomer FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitLeft = -185 + ExplicitLeft = -515 ExplicitWidth = 1382 ExplicitHeight = 650 PixelsPerInch = 96 @@ -154,7 +154,6 @@ inherited frmCustomer: TfrmCustomer Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitTop = 32 object Label3: TLabel Left = 190 Top = 13 @@ -248,6 +247,8 @@ inherited frmCustomer: TfrmCustomer Height = 309 Align = alClient TabOrder = 2 + ExplicitLeft = 1 + ExplicitTop = 94 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -329,6 +330,20 @@ inherited frmCustomer: TfrmCustomer Options.Editing = False Width = 80 end + object Tv1Contacts: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'Contacts' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Telephone: TcxGridDBColumn + Caption = #32852#31995#30005#35805 + DataBinding.FieldName = 'Telephone' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object v2Column1: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' @@ -421,6 +436,8 @@ inherited frmCustomer: TfrmCustomer Height = 201 Align = alClient TabOrder = 0 + ExplicitLeft = 2 + ExplicitTop = 6 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -481,15 +498,6 @@ inherited frmCustomer: TfrmCustomer HeaderAlignmentHorz = taCenter Width = 99 end - object cxGridDBColumn5: TcxGridDBColumn - Caption = #25163#26426#21495 - DataBinding.FieldName = 'PhoneNumber' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.CharCase = ecUpperCase - HeaderAlignmentHorz = taCenter - Width = 102 - end object Tv2Column1: TcxGridDBColumn Caption = 'EMAIL' DataBinding.FieldName = 'Email' diff --git a/A01基础公司管理/U_Customer.pas b/A01基础公司管理/U_Customer.pas index 672143e..4d7dcc9 100644 --- a/A01基础公司管理/U_Customer.pas +++ b/A01基础公司管理/U_Customer.pas @@ -67,7 +67,6 @@ type cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn2: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn; - cxGridDBColumn5: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn; v3Column2: TcxGridDBColumn; cxGridLevel2: TcxGridLevel; @@ -88,6 +87,8 @@ type Label5: TLabel; dept: TEdit; Tv1Column8: TcxGridDBColumn; + Tv1Contacts: TcxGridDBColumn; + Tv1Telephone: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -205,8 +206,10 @@ begin Filtered := False; Close; SQL.Clear; - sql.Add(' select * from BS_Company '); - sql.Add(' where 1=1 ' + (WSql)); + sql.Add(' select A.* '); + sql.Add(',Contacts = (select top 1 Contacts from Bs_Company_contact X where A.CoID = X.CoID) '); + sql.Add(',Telephone = (select top 1 Telephone from Bs_Company_contact X where A.CoID = X.CoID) '); + sql.Add(' from BS_Company A where 1=1 ' + (WSql)); sql.Add(' and CoType=''ͻ'' and Valid=''Y'' '); if Trim(FAuthority) = '¼' then diff --git a/A01基础公司管理/U_GetDllForm.pas b/A01基础公司管理/U_GetDllForm.pas index c5acd33..176ad72 100644 --- a/A01基础公司管理/U_GetDllForm.pas +++ b/A01基础公司管理/U_GetDllForm.pas @@ -71,10 +71,11 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; - dtbase := 'HENGYANData'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; + server := '106.15.78.45,7781'; + pswd := 'rightsoft@2222'; + + dtbase := 'xiangyingszdata'; + user := 'xiangyingsa'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; // Parameters1 := '¼'; diff --git a/A01基础公司管理/testDll.res b/A01基础公司管理/testDll.res index 2465ca0e30696a8467f3b1371b2f343eab2cd121..e116c482ff64a90aae29d14ae002699b9b83f166 100644 GIT binary patch delta 12 TcmaDO`9^ZX3mz6m1_lNIB7g(5 delta 12 TcmaDO`9^ZX3m%rnDGUq%COibl diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local index 59aae6e..dda3c87 100644 --- a/A02基础产品管理/ClothInfo.dproj.local +++ b/A02基础产品管理/ClothInfo.dproj.local @@ -1,49 +1,49 @@  - 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.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm 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.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.814,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.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_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.583,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.503,=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.149,=D:\Dp10Repo\public10\ThreeFun\Form\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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas + 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas + 1899/12/30 00:00:00.000.583,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm + 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas= - 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas + 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas 1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm + 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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas - 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm + 1899/12/30 00:00:00.000.814,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas - 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj - 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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas diff --git a/A02基础产品管理/ClothInfo.identcache b/A02基础产品管理/ClothInfo.identcache index e28d2d36385db2bf6b7df4a857df9fa1e108f703..4d702626dced11371a3c9b20aca2061281ef4df5 100644 GIT binary patch delta 48 zcmV-00MGxP5S|dQv;mV10$!8<1uK)^0Tz=42pY3%0%8G^ga<#f2Lycsk+4CN^#K@@ G%>z1`tPrFC delta 48 zcmV-00MGxP5S|dQv;mQ@L6gh}7?ZRCUbAfiVgZxn2RgG31bqXO&jUY``35VK-vJhr GQvw>$1`*Z( diff --git a/A02基础产品管理/U_ClothInfo.dfm b/A02基础产品管理/U_ClothInfo.dfm index 428f086..18b7aa2 100644 --- a/A02基础产品管理/U_ClothInfo.dfm +++ b/A02基础产品管理/U_ClothInfo.dfm @@ -322,6 +322,8 @@ inherited frmClothInfo: TfrmClothInfo Align = alClient PopupMenu = PM_1 TabOrder = 0 + ExplicitLeft = 6 + ExplicitTop = 41 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -432,15 +434,6 @@ inherited frmClothInfo: TfrmClothInfo HeaderAlignmentHorz = taCenter Width = 58 end - object v1Column11: TcxGridDBColumn - Caption = #22270#29255 - DataBinding.FieldName = 'IsImg' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 57 - end object Tv1Column5: TcxGridDBColumn Caption = #22635#21333#20154 DataBinding.FieldName = 'filler' @@ -473,6 +466,14 @@ inherited frmClothInfo: TfrmClothInfo Options.Editing = False Width = 66 end + object Tv1Column4: TcxGridDBColumn + Caption = #22270#29255 + DataBinding.FieldName = 'IsImg' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/A02基础产品管理/U_ClothInfo.pas b/A02基础产品管理/U_ClothInfo.pas index 261a68a..544506a 100644 --- a/A02基础产品管理/U_ClothInfo.pas +++ b/A02基础产品管理/U_ClothInfo.pas @@ -83,7 +83,6 @@ type PM_1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; - v1Column11: TcxGridDBColumn; Panel7: TPanel; Panel4: TPanel; Label14: TLabel; @@ -118,6 +117,7 @@ type ToolButton3: TToolButton; Tv1Column3: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBDelClick(Sender: TObject); diff --git a/A02基础产品管理/U_TatClothInfo.dfm b/A02基础产品管理/U_TatClothInfo.dfm index 780de3e..437d147 100644 --- a/A02基础产品管理/U_TatClothInfo.dfm +++ b/A02基础产品管理/U_TatClothInfo.dfm @@ -7,8 +7,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitLeft = -280 - ExplicitTop = -17 ExplicitWidth = 1460 ExplicitHeight = 741 PixelsPerInch = 96 @@ -324,6 +322,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo Align = alClient PopupMenu = PM_1 TabOrder = 0 + ExplicitLeft = 6 + ExplicitTop = 39 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -424,34 +424,25 @@ inherited frmTatClothInfo: TfrmTatClothInfo Width = 68 end object Tv1Column8: TcxGridDBColumn - Caption = #24223#24067#31859#25968 + Caption = #24223#24067#31859#25968'(<)' DataBinding.FieldName = 'fbmeter' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 69 + Width = 97 end object Tv1Column10: TcxGridDBColumn - Caption = #23567#21367#31859#25968 + Caption = #23567#21367#31859#25968'(<)' DataBinding.FieldName = 'XJMETER' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 67 + Width = 102 end object Tv1Column12: TcxGridDBColumn - Caption = #27425#24067#20010#25968 + Caption = #27425#24067#20010#25968'(>=)' DataBinding.FieldName = 'CBGS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 70 - end - object v1Column11: TcxGridDBColumn - Caption = #22270#29255 - DataBinding.FieldName = 'IsImg' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 57 + Width = 86 end object Tv1Column5: TcxGridDBColumn Caption = #22635#21333#20154 @@ -506,6 +497,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo Align = alClient AutoSize = True TabOrder = 0 + ExplicitLeft = 4 + ExplicitTop = -6 DesignSize = ( 1212 40) @@ -625,10 +618,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo Align = alClient Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289 TabOrder = 0 - ExplicitLeft = 1 - ExplicitTop = 42 - ExplicitWidth = 1208 - ExplicitHeight = 160 object ScrollBox1: TScrollBox Left = 2 Top = 14 @@ -638,9 +627,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo BevelInner = bvLowered BorderStyle = bsNone TabOrder = 0 - ExplicitTop = 15 - ExplicitWidth = 1204 - ExplicitHeight = 144 end end object cxGrid3: TcxGrid diff --git a/A02基础产品管理/U_TatClothInfo.pas b/A02基础产品管理/U_TatClothInfo.pas index 083a456..c61aba7 100644 --- a/A02基础产品管理/U_TatClothInfo.pas +++ b/A02基础产品管理/U_TatClothInfo.pas @@ -82,7 +82,6 @@ type PM_1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; - v1Column11: TcxGridDBColumn; Panel7: TPanel; Panel4: TPanel; Label14: TLabel; diff --git a/A02基础产品管理/testDll.identcache b/A02基础产品管理/testDll.identcache index 92856996700d62aee0a6472628e933095c601583..8b7250c65526423cc6c624669f663a93a3a44fe3 100644 GIT binary patch delta 12 TcmdnQxQUUGX<}sLM3x8u7#std delta 12 TcmdnQxQUUGX<~TvM3yiB7#IVX diff --git a/B02基础纱线仓库/ProjectGroup1.groupproj.local b/B02基础纱线仓库/ProjectGroup1.groupproj.local index 181e97c..b82c00e 100644 --- a/B02基础纱线仓库/ProjectGroup1.groupproj.local +++ b/B02基础纱线仓库/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/B02基础纱线仓库/U_YarnInfoInPut.dfm b/B02基础纱线仓库/U_YarnInfoInPut.dfm index fa1595e..c9a14fe 100644 --- a/B02基础纱线仓库/U_YarnInfoInPut.dfm +++ b/B02基础纱线仓库/U_YarnInfoInPut.dfm @@ -17,9 +17,9 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut Height = 425 Align = alClient TabOrder = 0 - ExplicitTop = 30 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource3 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -48,6 +48,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut object VC_Type: TcxGridDBColumn Caption = #31867#22411 DataBinding.FieldName = 'Y_Type' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' HeaderAlignmentHorz = taCenter Width = 78 @@ -55,12 +56,14 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut object v1Column2: TcxGridDBColumn Caption = #21697#29260 DataBinding.FieldName = 'Brand' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 100 end object v1Column18: TcxGridDBColumn Caption = #37319#36141#21152#24037#21512#21516#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -76,6 +79,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut object v1Column15: TcxGridDBColumn Caption = #21697#29260 DataBinding.FieldName = 'SXPinPai' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -90,12 +94,14 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut object v1SPName: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'Y_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 101 end object v1SPSpec: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 116 @@ -103,6 +109,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut object v1Column1: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter VisibleForCustomization = False @@ -111,12 +118,14 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut object v1QtyUnit: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'Y_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 96 end object v1Column10: TcxGridDBColumn Caption = #36816#36153 DataBinding.FieldName = 'YunFei' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter VisibleForCustomization = False @@ -125,18 +134,21 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut object Tv1Column1: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 70 end object v1Column3: TcxGridDBColumn Caption = 'D'#25968 DataBinding.FieldName = 'Denier' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 55 end object v1Column12: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 118 end diff --git a/B02基础纱线仓库/U_YarnInfoInPut.pas b/B02基础纱线仓库/U_YarnInfoInPut.pas index 3334feb..9af559e 100644 --- a/B02基础纱线仓库/U_YarnInfoInPut.pas +++ b/B02基础纱线仓库/U_YarnInfoInPut.pas @@ -11,7 +11,7 @@ uses cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, - U_BaseList, System.ImageList, Vcl.ImgList; + U_BaseList, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations; type TfrmYarnInfoInPut = class(TfrmBaseInput) diff --git a/B02基础纱线仓库/U_YarnInfoList.dfm b/B02基础纱线仓库/U_YarnInfoList.dfm index e722bda..1337a5f 100644 --- a/B02基础纱线仓库/U_YarnInfoList.dfm +++ b/B02基础纱线仓库/U_YarnInfoList.dfm @@ -171,7 +171,6 @@ inherited frmYarnInfoList: TfrmYarnInfoList Height = 475 Align = alClient TabOrder = 2 - ExplicitTop = 87 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B02基础纱线仓库/YarnStk.dproj.local b/B02基础纱线仓库/YarnStk.dproj.local index 7960494..5d31b15 100644 --- a/B02基础纱线仓库/YarnStk.dproj.local +++ b/B02基础纱线仓库/YarnStk.dproj.local @@ -1,90 +1,62 @@  - 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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm - 1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas - 1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\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.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas= - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas - 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas= - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj - 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.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.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.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm - 1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas - 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm - 1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas= - 1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas - 1899-12-30 00:00:00.000.734,=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 - 2025-04-11 13:34:13.341,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.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.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.425,=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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.341,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas= + 1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas + 1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.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.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas + 1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas= + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas= + 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas + 1899/12/30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas + 1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm + 1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas + 1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas + 1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas= + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.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 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + diff --git a/B02基础纱线仓库/YarnStk.identcache b/B02基础纱线仓库/YarnStk.identcache index d53a510cb00f61fe9b44e8055822ea379725a825..2f400d0993d123d51e0736f0cacc868794e16f0c 100644 GIT binary patch delta 435 zcmZ1`bWVs-Zn8YP5@&>`qn~@Er=R;|16J9|?u=p+qvVkUGg$Oc1@1CSOnhgGq{4tz zaxx>E#AGKXWPNv;btk8?B8z~GPi2>w%)(?hnTth!@-`+(#=wai<&cb;!DcpDk_}ap z7MF_{a^QIeA**esFU0CFZj zr#Ob=O;LlvfK`0*EJmOcP>h?&VGMLo1FF(5Ynv`mOmZeolQyGLqXdSqhWCEVj%n9NY@o1Dt7hh~u}&;bpT1z40PZ(|pktjJ-HVqh1W RF{3YX2t8z!ojik88~{d!hynlr diff --git a/B02基础纱线仓库/YarnStk.res b/B02基础纱线仓库/YarnStk.res index 357e4ee0627d8abf82878f5e25458f142ed90f9e..704ad5b123f5522c9d1678adf87e3b1ac6e004fa 100644 GIT binary patch delta 12 TcmX@WeSmwz9#$4c1_lNI96|#P delta 12 TcmX@WeSmwz9#)pdDGUq%AN~X( diff --git a/B02基础纱线仓库/testDll.identcache b/B02基础纱线仓库/testDll.identcache index 0d9d4de11450c736fa6a59a71a384f9a6373d59d..5682fcf93bc9655375eb818541e064709fc78091 100644 GIT binary patch delta 43 ocmZ3-xQUUGX=11nXN0GtpL?XIpZml*@rjP&jNTI?<&Xsp01C7WegFUf delta 38 mcmdnQxQ>yPiGhK^ePXm6yGLqXdSqhWL>;|}Eb?$(lK}v~L<;`^ diff --git a/B02基础纱线仓库/testDll.res b/B02基础纱线仓库/testDll.res index 2465ca0e30696a8467f3b1371b2f343eab2cd121..e116c482ff64a90aae29d14ae002699b9b83f166 100644 GIT binary patch delta 12 TcmaDO`9^ZX3mz6m1_lNIB7g(5 delta 12 TcmaDO`9^ZX3m%rnDGUq%COibl diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index 71f0fcb..cdb14d0 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,49 +1,49 @@  - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj + 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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas 1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.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.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas 1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.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.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.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.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas 1899/12/30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas 1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.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.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas - 1899/12/30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm + 1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj + 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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm - 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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas diff --git a/E03梭织坯布检验/TatInsp.dpr b/E03梭织坯布检验/TatInsp.dpr index 46f05f7..6a7e9a8 100644 --- a/E03梭织坯布检验/TatInsp.dpr +++ b/E03梭织坯布检验/TatInsp.dpr @@ -31,7 +31,8 @@ uses uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, U_TatMachCutHZList in 'U_TatMachCutHZList.pas' {frmTatMachCutHZList}, - U_TatClothInspHZList in 'U_TatClothInspHZList.pas' {frmTatClothInspHZList}; + U_TatClothInspHZList in 'U_TatClothInspHZList.pas' {frmTatClothInspHZList}, + U_TatInspSHHZ in 'U_TatInspSHHZ.pas' {frmTatInspSHHZ}; {$R *.res} diff --git a/E03梭织坯布检验/TatInsp.dproj b/E03梭织坯布检验/TatInsp.dproj index 19d72b6..907c76d 100644 --- a/E03梭织坯布检验/TatInsp.dproj +++ b/E03梭织坯布检验/TatInsp.dproj @@ -163,6 +163,10 @@
frmTatClothInspHZList
dfm + +
frmTatInspSHHZ
+ dfm + Cfg_2 Base diff --git a/E03梭织坯布检验/TatInsp.dproj.local b/E03梭织坯布检验/TatInsp.dproj.local index cd98722..ac18d26 100644 --- a/E03梭织坯布检验/TatInsp.dproj.local +++ b/E03梭织坯布检验/TatInsp.dproj.local @@ -24,12 +24,12 @@ 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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.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 @@ -42,10 +42,11 @@ 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= + 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm 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 @@ -98,5 +99,7 @@ + + diff --git a/E03梭织坯布检验/TatInsp.identcache b/E03梭织坯布检验/TatInsp.identcache index 3fced4de5210ac89acc7732d77e96c9552e1041b..6e55e2b683b06faeefc75569c96ce70ef53508aa 100644 GIT binary patch delta 158 zcmcc4zgd7$da@$BJBMdpaY3+$N7Up7wzSC;*sLe70!o}^a+&PF$~iGmWbz-DI3pECf zI~FoK5@SN H#8fK)i~=FE@&y)!$x>{xKv4@I+je4tCQzf; ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 @@ -364,27 +364,21 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList 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 @@ -396,7 +390,6 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList end item Kind = skSum - Column = Tv1FBPF end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False @@ -429,15 +422,14 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'DXMF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.CellMerging = True - Width = 72 - OnCompareRowValuesForCellMerging = Tv1DXMFCompareRowValuesForCellMerging + 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 @@ -447,6 +439,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'Carno' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Options.CellMerging = True Width = 90 OnCompareRowValuesForCellMerging = Tv1CarnoCompareRowValuesForCellMerging @@ -456,6 +449,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'pcid' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Options.CellMerging = True Width = 68 OnCompareRowValuesForCellMerging = Tv1PCIDCompareRowValuesForCellMerging @@ -465,6 +459,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'CIMachNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Options.CellMerging = True Width = 80 OnCompareRowValuesForCellMerging = Tv1CIMachNoCompareRowValuesForCellMerging @@ -474,6 +469,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'BCIOID' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Options.CellMerging = True Width = 80 OnCompareRowValuesForCellMerging = Tv1BCIOIDCompareRowValuesForCellMerging @@ -486,6 +482,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList Properties.DecimalPlaces = 2 Properties.DisplayFormat = '0.00%' HeaderAlignmentHorz = taCenter + Options.Editing = False Options.CellMerging = True Width = 90 OnCompareRowValuesForCellMerging = Tv1qgSLCompareRowValuesForCellMerging @@ -495,6 +492,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'qgMeter' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Options.CellMerging = True Width = 90 OnCompareRowValuesForCellMerging = Tv1qgMeterCompareRowValuesForCellMerging @@ -506,6 +504,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '0.0%' HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 90 end object Tv1Column21: TcxGridDBColumn @@ -515,13 +514,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '0.0%' HeaderAlignmentHorz = taCenter - 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 Tv1issp: TcxGridDBColumn @@ -529,6 +522,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'issp' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Options.CellMerging = True Width = 80 OnCompareRowValuesForCellMerging = Tv1isspCompareRowValuesForCellMerging @@ -538,6 +532,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'C_GramWeight' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 66 end object Tv1Column6: TcxGridDBColumn @@ -545,6 +540,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'YDJs' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 74 end object Tv1Column1: TcxGridDBColumn @@ -552,13 +548,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'Ydqty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - 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 Tv1Column9: TcxGridDBColumn @@ -566,6 +556,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'xjJS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column10: TcxGridDBColumn @@ -573,13 +564,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'xjqty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - 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 Tv1Column7: TcxGridDBColumn @@ -587,6 +572,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'edJS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column8: TcxGridDBColumn @@ -594,13 +580,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'edqty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - 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 Tv1Column17: TcxGridDBColumn @@ -608,6 +588,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'csJS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column18: TcxGridDBColumn @@ -615,13 +596,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'csqty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - 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 Tv1Column13: TcxGridDBColumn @@ -629,6 +604,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'fqJS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column14: TcxGridDBColumn @@ -636,13 +612,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'fqqty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - 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 Tv1fbJS: TcxGridDBColumn @@ -650,6 +620,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList DataBinding.FieldName = 'fbJS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1fbqty: TcxGridDBColumn @@ -657,22 +628,9 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList 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 - Width = 80 - end - object Tv1Column19: TcxGridDBColumn - Caption = #25439#32791#24179#26041 - DataBinding.FieldName = 'SHpf' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 71 - end object Tv1Column15: TcxGridDBColumn DataBinding.FieldName = 'meterall' DataBinding.IsNullValueType = True @@ -749,5 +707,13 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList Caption = #20840#24323 OnClick = PM11Click end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end end end diff --git a/E03梭织坯布检验/U_TatClothInspHZList.pas b/E03梭织坯布检验/U_TatClothInspHZList.pas index 29e933c..1d5c50b 100644 --- a/E03梭织坯布检验/U_TatClothInspHZList.pas +++ b/E03梭织坯布检验/U_TatClothInspHZList.pas @@ -44,7 +44,6 @@ type Tv1: TcxGridDBTableView; v1Column22: TcxGridDBColumn; Tv1C_Name: TcxGridDBColumn; - Tv1DXMF: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; Tv1PCID: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; @@ -57,7 +56,6 @@ type Tv1Column14: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn; - Tv1Column19: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; Tv1dxmeter: TcxGridDBColumn; Tv1Carno: TcxGridDBColumn; @@ -65,7 +63,6 @@ type Tv1qgMeter: TcxGridDBColumn; Tv1Column20: TcxGridDBColumn; Tv1Column21: TcxGridDBColumn; - Tv1Column22: TcxGridDBColumn; Tv1fbJS: TcxGridDBColumn; Tv1fbqty: TcxGridDBColumn; Tv1CIMachNo: TcxGridDBColumn; @@ -78,13 +75,10 @@ type C_GramWeight: TEdit; Tv1Column15: TcxGridDBColumn; Tv1Column23: TcxGridDBColumn; - Tv1YDpf: TcxGridDBColumn; - Tv1edpf: TcxGridDBColumn; - Tv1xjPF: TcxGridDBColumn; - Tv1cspf: TcxGridDBColumn; - Tv1fqPF: TcxGridDBColumn; - Tv1FBPF: TcxGridDBColumn; Tv1issp: TcxGridDBColumn; + N2: TMenuItem; + N3: TMenuItem; + Tv1DXMF: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -118,11 +112,16 @@ type procedure Tv1qgSLCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); procedure Tv1qgMeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); procedure Tv1isspCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); { Private declarations } public canshu1: string; @@ -132,7 +131,7 @@ type implementation uses - U_DataLink, U_RTFun, U_LabelPrint; + U_DataLink, U_RTFun, U_LabelPrint, U_TatInspSHHZ, U_TatClothInspHZList2; {$R *.dfm} @@ -173,14 +172,131 @@ begin 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) '); +// +// SQL.Add(' ,qgMeter=(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 )/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) '); +// +//// 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(' and A.Carno<>'''' and A.Carno is not NULL '); +// +// 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; + + 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,A.issp '); - sql.Add(' ,maX(B.C_Width) AS DXMF,A.CIMachNo,A.BCIOID '); + sql.Add('select A.C_NAME,A.C_GramWeight,A.pcid,A.Carno,A.BCIOID,A.dxmeter,issp=isnull(A.issp,'''') '); + sql.Add(',maX(B.C_Width) AS DXMF,A.CIMachNo '); // 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) '); @@ -197,35 +313,35 @@ begin 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(',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(',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(',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(',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(',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(',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 '); +// SQL.Add(',cspf=SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )*A.C_Width/100 '); // ŵֶ - ŵȾ/(ŵȾ+С+Ⱦ+Ծ+о+ϲ(ųΪ0)) @@ -279,12 +395,12 @@ begin 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,A.issp'); + sql.Add(' group by A.C_NAME,A.C_GramWeight,A.pcid,A.BCIOID,A.Carno,A.dxmeter'); + sql.Add(' ,A.CIMachNo,isnull(A.issp,'''')'); sql.add(' ) T where 1=1 '); SQL.Add(WSql); - sql.Add(' Order By T.Carno,T.pcid,BCIOID'); + sql.Add(' Order By T.Carno,T.pcid,ISNULL(CAST(NULLIF(dxmeter, '''') AS DECIMAL), 0) '); // showmessage(sql.text); Open; end; @@ -367,7 +483,14 @@ procedure TfrmTatClothInspHZList.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); end; procedure TfrmTatClothInspHZList.orderNoKeyPress(Sender: TObject; var Key: Char); @@ -459,10 +582,10 @@ begin // exit; // end; - if (ARow1.Values[Tv1DXMF.Index] = ARow2.Values[Tv1DXMF.Index]) and (ARow1.Values[Tv1DXMF.Index] <> NULL) and (ARow2.Values[Tv1DXMF.Index] <> NULL) then - AAreEqual := True - else - AAreEqual := False; +// if (ARow1.Values[Tv1DXMF.Index] = ARow2.Values[Tv1DXMF.Index]) and (ARow1.Values[Tv1DXMF.Index] <> NULL) and (ARow2.Values[Tv1DXMF.Index] <> NULL) then +// AAreEqual := True +// else +// AAreEqual := False; end; @@ -575,6 +698,34 @@ begin lstCust.Clear; end; +procedure TfrmTatClothInspHZList.Tv1DblClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmTatClothInspHZList2 := TfrmTatClothInspHZList2.Create(Application); + with frmTatClothInspHZList2 do + begin + + fEndDateTime := self.EndDate.DateTime; + fBegDateTime := Self.BegDate.DateTime; + + + fC_Name := Self.CDS_1.FieldByName('C_Name').AsString; + fissp := Self.CDS_1.FieldByName('issp').AsString; + fCarno := Self.CDS_1.FieldByName('Carno').AsString; + fpcid := Self.CDS_1.FieldByName('pcid').AsString; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatClothInspHZList2.Free; + end; +end; + + procedure TfrmTatClothInspHZList.Tv1dxmeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); begin if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then @@ -639,6 +790,36 @@ begin SelOKNo(CDS_1, true); end; +procedure TfrmTatClothInspHZList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothInspHZList.N3Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); +end; + +procedure TfrmTatClothInspHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + procedure TfrmTatClothInspHZList.ToolButton2Click(Sender: TObject); var WSql: string; diff --git a/E03梭织坯布检验/U_TatClothInspHZList2.dfm b/E03梭织坯布检验/U_TatClothInspHZList2.dfm new file mode 100644 index 0000000..ffe0db6 --- /dev/null +++ b/E03梭织坯布检验/U_TatClothInspHZList2.dfm @@ -0,0 +1,791 @@ +inherited frmTatClothInspHZList2: TfrmTatClothInspHZList2 + Left = 184 + Top = 138 + Caption = #26816#39564#20449#24687#27719#24635'2' + ClientHeight = 600 + ClientWidth = 1540 + Position = poScreenCenter + WindowState = wsMaximized + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatInsp.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 13 + Caption = #33267 + end + object Label5: TLabel + Left = 190 + Top = 10 + Width = 52 + Height = 12 + Hint = '0' + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 358 + Top = 10 + 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 Label3: TLabel + Left = 190 + Top = 36 + Width = 52 + Height = 12 + Hint = '0' + Caption = #27969#36716#21345#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 358 + Top = 36 + Width = 26 + Height = 12 + Hint = '0' + Caption = #20811#37325 + 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 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 0 + OnClick = IsJYTimeClick + end + object C_Name: TEdit + Tag = 2 + Left = 245 + Top = 6 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 5 + OnKeyPress = C_NameKeyPress + end + object C_width: TEdit + Tag = 2 + Left = 384 + Top = 6 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 6 + OnKeyPress = C_NameKeyPress + end + object pcid: TEdit + Tag = 2 + Left = 245 + Top = 32 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 7 + OnKeyPress = C_NameKeyPress + end + object C_GramWeight: TEdit + Tag = 2 + Left = 384 + Top = 32 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 8 + OnKeyPress = C_NameKeyPress + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 97 + Width = 1540 + Height = 503 + 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 = 2 + object Tv1: TcxGridDBTableView + 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 + 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 = Tv1fbJS + end + item + Kind = skSum + Column = Tv1fbqty + end + item + Kind = skSum + Column = Tv1FBPF + 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 + Options.Editing = False + Options.CellMerging = True + Width = 72 + OnCompareRowValuesForCellMerging = Tv1DXMFCompareRowValuesForCellMerging + 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 Tv1Column22: TcxGridDBColumn + Caption = #20999#21106#38376#24133 + DataBinding.FieldName = 'C_width' + DataBinding.IsNullValueType = True + 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 Tv1YDpf: TcxGridDBColumn + Caption = #20248#31561#24179#26041 + DataBinding.FieldName = 'YDpf' + 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 Tv1xjPF: TcxGridDBColumn + Caption = #23567#21367#24179#26041 + DataBinding.FieldName = 'xjPF' + 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 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 Tv1cspf: TcxGridDBColumn + Caption = #27979#35797#24179#26041 + DataBinding.FieldName = 'cspf' + 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 Tv1fqPF: TcxGridDBColumn + Caption = #20998#20999#24179#26041 + DataBinding.FieldName = 'fqPF' + 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 Tv1FBPF: TcxGridDBColumn + Caption = #24223#24067#24179#26041 + DataBinding.FieldName = 'FBPF' + 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 Tv1Column15: TcxGridDBColumn + DataBinding.FieldName = 'meterall' + DataBinding.IsNullValueType = True + Visible = False + end + object Tv1Column23: TcxGridDBColumn + DataBinding.FieldName = 'C_Widthall' + DataBinding.IsNullValueType = True + Visible = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatInsp.ADOLink + Left = 553 + Top = 200 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatInsp.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatInsp.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatInsp.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatInsp.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 828 + Top = 284 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 728 + Top = 288 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 776 + Top = 284 + end + object PM_1: TPopupMenu + Left = 560 + Top = 384 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end + end +end diff --git a/E03梭织坯布检验/U_TatClothInspHZList2.pas b/E03梭织坯布检验/U_TatClothInspHZList2.pas new file mode 100644 index 0000000..fc456ed --- /dev/null +++ b/E03梭织坯布检验/U_TatClothInspHZList2.pas @@ -0,0 +1,866 @@ +unit U_TatClothInspHZList2; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + U_BaseInput, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, + dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, + U_BaseList, cxPC, System.StrUtils, dxScrollbarAnnotations, cxCurrencyEdit, + System.ImageList, Vcl.ImgList; + +type + TfrmTatClothInspHZList2 = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + Label5: TLabel; + C_Name: TEdit; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1C_Name: TcxGridDBColumn; + Tv1DXMF: 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; + Tv1Column19: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Tv1dxmeter: TcxGridDBColumn; + Tv1Carno: TcxGridDBColumn; + Tv1qgSL: TcxGridDBColumn; + Tv1qgMeter: TcxGridDBColumn; + Tv1Column20: TcxGridDBColumn; + Tv1Column21: TcxGridDBColumn; + Tv1Column22: 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; + Tv1YDpf: TcxGridDBColumn; + Tv1edpf: TcxGridDBColumn; + Tv1xjPF: TcxGridDBColumn; + Tv1cspf: TcxGridDBColumn; + Tv1fqPF: TcxGridDBColumn; + Tv1FBPF: TcxGridDBColumn; + Tv1issp: TcxGridDBColumn; + N2: TMenuItem; + N3: TMenuItem; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + procedure Tv1PCIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1C_NameCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1DXMFCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1dxmeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1CarnoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1CIMachNoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1BCIOIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1qgSLCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1qgMeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1isspCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + { Private declarations } + public + fC_Name, fissp, fCarno, fpcid: string; + fEndDateTime,fBegDateTime : TDateTime; + + { Public declarations } + end; + +var + frmTatClothInspHZList2: TfrmTatClothInspHZList2; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint, U_TatInspSHHZ; + +{$R *.dfm} + +procedure TfrmTatClothInspHZList2.SetStatus(); +begin + +end; + +procedure TfrmTatClothInspHZList2.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmTatClothInspHZList2.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmTatClothInspHZList2.InitGrid(); +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) '); +// +// SQL.Add(' ,qgMeter=(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 )/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) '); +// +//// 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(' and A.Carno<>'''' and A.Carno is not NULL '); +// +// 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; + + + 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) '); + + SQL.Add(' ,qgMeter=(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 )/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) '); + +// 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(' and A.C_Name= ' + QuotedStr(Trim(fC_Name))); + SQL.Add(' and A.Carno= ' + QuotedStr(Trim(fCarno))); + SQL.Add(' and A.pcid= ' + QuotedStr(Trim(fpcid))); + SQL.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp))); + + 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_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + +procedure TfrmTatClothInspHZList2.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmTatClothInspHZList2.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothInspHZList2.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmTatClothInspHZList2.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatClothInspHZList2.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatClothInspHZList2.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTatClothInspHZList2.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatClothInspHZList2.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ϣ2'); + CurrentPage := 1; + RecordsNumber := 500; + + SetStatus(); + + BegDate.DateTime := fBegDateTime; + EndDate.DateTime := fEndDateTime; + InitGrid(); + +end; + +procedure TfrmTatClothInspHZList2.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); +end; + +procedure TfrmTatClothInspHZList2.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTatClothInspHZList2.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmTatClothInspHZList2.Tv1PCIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin +// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; + + if (ARow1.Values[Tv1PCID.Index] = ARow2.Values[Tv1PCID.Index]) and (ARow1.Values[Tv1PCID.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList2.Tv1qgMeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; +// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; + + if (ARow1.Values[Tv1qgMeter.Index] = ARow2.Values[Tv1qgMeter.Index]) and (ARow1.Values[Tv1qgMeter.Index] <> NULL) and (ARow2.Values[Tv1qgMeter.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList2.Tv1qgSLCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; + +// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; + if (ARow1.Values[Tv1qgSL.Index] = ARow2.Values[Tv1qgSL.Index]) and (ARow1.Values[Tv1qgSL.Index] <> NULL) and (ARow2.Values[Tv1qgSL.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList2.Tv1DXMFCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; +// if (ARow1.Values[Tv1C_Name.Index] <> ARow2.Values[Tv1C_Name.Index]) or (ARow1.Values[Tv1C_Name.Index] = NULL) or (ARow2.Values[Tv1C_Name.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; +// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; + + if (ARow1.Values[Tv1DXMF.Index] = ARow2.Values[Tv1DXMF.Index]) and (ARow1.Values[Tv1DXMF.Index] <> NULL) and (ARow2.Values[Tv1DXMF.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList2.Tv1isspCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; + + if (ARow1.Values[Tv1issp.Index] = ARow2.Values[Tv1issp.Index]) and (ARow1.Values[Tv1issp.Index] <> NULL) and (ARow2.Values[Tv1issp.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList2.Tv1BCIOIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; + +// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; + + if (ARow1.Values[Tv1BCIOID.Index] = ARow2.Values[Tv1BCIOID.Index]) and (ARow1.Values[Tv1BCIOID.Index] <> NULL) and (ARow2.Values[Tv1BCIOID.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; +end; + +procedure TfrmTatClothInspHZList2.Tv1CarnoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; +// if (ARow1.Values[Tv1C_Name.Index] <> ARow2.Values[Tv1C_Name.Index]) or (ARow1.Values[Tv1C_Name.Index] = NULL) or (ARow2.Values[Tv1C_Name.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; +// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; + + if (ARow1.Values[Tv1Carno.Index] = ARow2.Values[Tv1Carno.Index]) and (ARow1.Values[Tv1Carno.Index] <> NULL) and (ARow2.Values[Tv1Carno.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList2.Tv1CIMachNoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; +// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; + + if (ARow1.Values[Tv1CIMachNo.Index] = ARow2.Values[Tv1CIMachNo.Index]) and (ARow1.Values[Tv1CIMachNo.Index] <> NULL) and (ARow2.Values[Tv1CIMachNo.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList2.Tv1C_NameCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; + +// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; + + if (ARow1.Values[Tv1C_Name.Index] = ARow2.Values[Tv1C_Name.Index]) and (ARow1.Values[Tv1C_Name.Index] <> NULL) and (ARow2.Values[Tv1C_Name.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList2.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmTatClothInspHZList2.Tv1dxmeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; +// if (ARow1.Values[Tv1C_Name.Index] <> ARow2.Values[Tv1C_Name.Index]) or (ARow1.Values[Tv1C_Name.Index] = NULL) or (ARow2.Values[Tv1C_Name.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; +// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; + + if (ARow1.Values[Tv1dxmeter.Index] = ARow2.Values[Tv1dxmeter.Index]) and (ARow1.Values[Tv1dxmeter.Index] <> NULL) and (ARow2.Values[Tv1dxmeter.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList2.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmTatClothInspHZList2.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTatClothInspHZList2.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTatClothInspHZList2.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothInspHZList2.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothInspHZList2.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmTatClothInspHZList2.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothInspHZList2.N3Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); +end; + +procedure TfrmTatClothInspHZList2.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmTatClothInspHZList2.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatClothInspHZList2.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ϣ2'); +end; + +end. + diff --git a/E03梭织坯布检验/U_TatClothInspList.dfm b/E03梭织坯布检验/U_TatClothInspList.dfm index a04abb9..0805119 100644 --- a/E03梭织坯布检验/U_TatClothInspList.dfm +++ b/E03梭织坯布检验/U_TatClothInspList.dfm @@ -20,7 +20,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList AutoSize = True BorderStyle = bsSingle TabOrder = 1 - ExplicitTop = 101 DesignSize = ( 1463 24) @@ -649,7 +648,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList ' '#27491#24335#25968#25454' ' ' '#21024#38500#25968#25454' ') OnChange = cxTabControl1Change - ExplicitTop = 136 ClientRectBottom = 445 ClientRectLeft = 2 ClientRectRight = 1465 @@ -669,7 +667,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList ParentFont = False PopupMenu = PM_1 TabOrder = 0 - ExplicitLeft = 3 object Tv1: TcxGridDBTableView OnMouseUp = Tv1MouseUp Navigator.Buttons.CustomButtons = <> @@ -1400,5 +1397,9 @@ inherited frmTatClothInspList: TfrmTatClothInspList Caption = #22797#21046 OnClick = N1Click end + object N2: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N2Click + end end end diff --git a/E03梭织坯布检验/U_TatClothInspList.pas b/E03梭织坯布检验/U_TatClothInspList.pas index dc9c5f1..2bb94d9 100644 --- a/E03梭织坯布检验/U_TatClothInspList.pas +++ b/E03梭织坯布检验/U_TatClothInspList.pas @@ -143,6 +143,7 @@ type Tv1C_MXSHWidth: TcxGridDBColumn; stkInsert: TToolButton; Tv1ISSP: TcxGridDBColumn; + N2: TMenuItem; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -181,6 +182,7 @@ type procedure cxTabControl1Change(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure stkInsertClick(Sender: TObject); + procedure N2Click(Sender: TObject); private DQdate: TDateTime; FLeft, FTop: Integer; @@ -189,6 +191,7 @@ type function Savedata(): Boolean; procedure SetStatus(); procedure PrintCKMDG(MRKOrdID: string); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); { Private declarations } public FFInt: Integer; @@ -268,7 +271,14 @@ procedure TfrmTatClothInspList.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then Exit; - TcxGridToExcel(self.Caption, cxgrid1); + with Order_Main do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); end; procedure TfrmTatClothInspList.PrintCKMDG(MRKOrdID: string); @@ -1224,6 +1234,30 @@ begin end; +procedure TfrmTatClothInspList.N2Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); +end; + +procedure TfrmTatClothInspList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + procedure TfrmTatClothInspList.RKOrdIDKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then diff --git a/E03梭织坯布检验/U_TatInspSHHZ.dfm b/E03梭织坯布检验/U_TatInspSHHZ.dfm new file mode 100644 index 0000000..f2fa503 --- /dev/null +++ b/E03梭织坯布检验/U_TatInspSHHZ.dfm @@ -0,0 +1,682 @@ +inherited frmTatInspSHHZ: TfrmTatInspSHHZ + Left = 184 + Top = 138 + Caption = #25439#32791#27719#24635#21015#34920 + ClientHeight = 600 + ClientWidth = 1540 + Position = poDesigned + Visible = True + WindowState = wsMaximized + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatInsp.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 190 + Top = 10 + Width = 39 + Height = 12 + Hint = '0' + Caption = #20135#21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object label11: TLabel + Left = 363 + Top = 10 + Width = 26 + Height = 12 + Hint = '0' + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object label12: TLabel + Left = 190 + Top = 35 + Width = 52 + Height = 12 + Hint = '0' + Caption = #27969#36716#21345#21495 + 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 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = IsJYTimeClick + end + object C_Name: TEdit + Tag = 2 + Left = 242 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 5 + OnKeyPress = C_NameKeyPress + end + object C_GramWeight: TEdit + Tag = 2 + Left = 395 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 6 + OnKeyPress = C_NameKeyPress + end + object PCId: TEdit + Tag = 2 + Left = 242 + Top = 32 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 7 + OnKeyPress = C_NameKeyPress + end + end + object Panel2: TPanel [2] + Left = 0 + Top = 105 + Width = 1540 + Height = 495 + Align = alClient + TabOrder = 2 + ExplicitTop = 96 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1538 + Height = 493 + 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 = 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 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatInsp.ADOLink + Left = 553 + Top = 200 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatInsp.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatInsp.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatInsp.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatInsp.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 708 + Top = 156 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 608 + Top = 136 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 552 + Top = 140 + end + object PM_1: TPopupMenu + Left = 368 + Top = 248 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end + end +end diff --git a/E03梭织坯布检验/U_TatInspSHHZ.pas b/E03梭织坯布检验/U_TatInspSHHZ.pas new file mode 100644 index 0000000..2f60da7 --- /dev/null +++ b/E03梭织坯布检验/U_TatInspSHHZ.pas @@ -0,0 +1,429 @@ +unit U_TatInspSHHZ; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC, System.StrUtils, + dxScrollbarAnnotations, U_BaseList, System.ImageList, Vcl.ImgList, U_BaseInput; + +type + TfrmTatInspSHHZ = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + Label5: TLabel; + C_Name: TEdit; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + C_GramWeight: TEdit; + label12: TLabel; + PCId: TEdit; + label11: TLabel; + Panel2: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1issp: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1SH_TD1: TcxGridDBColumn; + Tv1SH_ZW2: TcxGridDBColumn; + Tv1SH_JT3: TcxGridDBColumn; + Tv1SH_LTY4: TcxGridDBColumn; + Tv1SH_DZ5: TcxGridDBColumn; + Tv1SH_DJ6: TcxGridDBColumn; + Tv1SH_HD7: TcxGridDBColumn; + Tv1SH_DS8: TcxGridDBColumn; + Tv1SH_HB9: TcxGridDBColumn; + Tv1SH_SCZ10: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + N2: TMenuItem; + Tv1SH_BB11: TcxGridDBColumn; + Tv1SH_ZW12: TcxGridDBColumn; + Tv1SH_HY13: TcxGridDBColumn; + Tv1SH_DPB14: TcxGridDBColumn; + Tv1SH_GJ15: TcxGridDBColumn; + Tv1SH_YS16: TcxGridDBColumn; + Tv1SH_KZ17: TcxGridDBColumn; + Tv1SH_SC18: TcxGridDBColumn; + Tv1SH_XY19: TcxGridDBColumn; + Tv1SH_YD20: TcxGridDBColumn; + Tv1SH_PD21: TcxGridDBColumn; + N3: TMenuItem; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + + { Private declarations } + public + canshu1: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint, U_TatInspSHHZ2; + +{$R *.dfm} + +procedure TfrmTatInspSHHZ.SetStatus(); +begin + +end; + +procedure TfrmTatInspSHHZ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmTatInspSHHZ.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmTatInspSHHZ.InitGrid(); +var + WSql: 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_SHHZ '); + sql.Add(' @wsql = ' + quotedStr(WSql)); +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + +procedure TfrmTatInspSHHZ.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmTatInspSHHZ.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatInspSHHZ.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmTatInspSHHZ.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatInspSHHZ.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatInspSHHZ.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTatInspSHHZ.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatInspSHHZ.FormShow(Sender: TObject); +begin + inherited; + +// ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ļб'); + + CurrentPage := 1; + RecordsNumber := 500; + + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatInspSHHZ.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); +end; + +procedure TfrmTatInspSHHZ.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTatInspSHHZ.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmTatInspSHHZ.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmTatInspSHHZ.Tv1DblClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmTatInspSHHZ2 := TfrmTatInspSHHZ2.Create(Application); + with frmTatInspSHHZ2 do + begin + + fEndDateTime := self.EndDate.DateTime; + fBegDateTime := Self.BegDate.DateTime; +// +// + fC_Name := Self.CDS_1.FieldByName('C_Name').AsString; + fissp := Self.CDS_1.FieldByName('issp').AsString; + fC_GramWeight := Self.CDS_1.FieldByName('C_GramWeight').AsString; +// fpcid := Self.CDS_1.FieldByName('pcid').AsString; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatInspSHHZ2.Free; + end; +end; + +procedure TfrmTatInspSHHZ.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmTatInspSHHZ.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTatInspSHHZ.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTatInspSHHZ.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatInspSHHZ.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatInspSHHZ.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmTatInspSHHZ.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatInspSHHZ.N3Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); + +end; + +procedure TfrmTatInspSHHZ.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmTatInspSHHZ.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatInspSHHZ.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ļб'); +end; + +end. + diff --git a/E03梭织坯布检验/U_TatInspSHHZ2.dfm b/E03梭织坯布检验/U_TatInspSHHZ2.dfm new file mode 100644 index 0000000..8bd54bb --- /dev/null +++ b/E03梭织坯布检验/U_TatInspSHHZ2.dfm @@ -0,0 +1,642 @@ +inherited frmTatInspSHHZ2: TfrmTatInspSHHZ2 + Left = 184 + Top = 138 + Caption = #25439#32791#27719#24635#21015#34920'2' + ClientHeight = 600 + ClientWidth = 1540 + Position = poDesigned + WindowState = wsMaximized + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatInsp.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + ExplicitLeft = -1 + ExplicitTop = 33 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 13 + Caption = #33267 + end + object label12: TLabel + Left = 185 + Top = 9 + Width = 52 + Height = 12 + Hint = '0' + Caption = #27969#36716#21345#21495 + 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 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = IsJYTimeClick + end + object PCId: TEdit + Tag = 2 + Left = 237 + Top = 6 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 5 + OnKeyPress = C_NameKeyPress + end + end + object Panel2: TPanel [2] + Left = 0 + Top = 105 + Width = 1540 + Height = 495 + Align = alClient + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1538 + Height = 493 + 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 = 0 + ExplicitTop = 6 + object Tv1: TcxGridDBTableView + 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 Tv1PCId: TcxGridDBColumn + Caption = #27969#36716#21345#21495 + DataBinding.FieldName = 'PCId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + 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 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatInsp.ADOLink + Left = 553 + Top = 200 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatInsp.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatInsp.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatInsp.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatInsp.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 708 + Top = 156 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 608 + Top = 136 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 552 + Top = 140 + end + object PM_1: TPopupMenu + Left = 368 + Top = 248 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end + end +end diff --git a/E03梭织坯布检验/U_TatInspSHHZ2.pas b/E03梭织坯布检验/U_TatInspSHHZ2.pas new file mode 100644 index 0000000..7b1151b --- /dev/null +++ b/E03梭织坯布检验/U_TatInspSHHZ2.pas @@ -0,0 +1,413 @@ +unit U_TatInspSHHZ2; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC, System.StrUtils, + dxScrollbarAnnotations, U_BaseList, System.ImageList, Vcl.ImgList, U_BaseInput; + +type + TfrmTatInspSHHZ2 = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + label12: TLabel; + PCId: TEdit; + Panel2: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1issp: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1SH_TD1: TcxGridDBColumn; + Tv1SH_ZW2: TcxGridDBColumn; + Tv1SH_JT3: TcxGridDBColumn; + Tv1SH_LTY4: TcxGridDBColumn; + Tv1SH_DZ5: TcxGridDBColumn; + Tv1SH_DJ6: TcxGridDBColumn; + Tv1SH_HD7: TcxGridDBColumn; + Tv1SH_DS8: TcxGridDBColumn; + Tv1SH_HB9: TcxGridDBColumn; + Tv1SH_SCZ10: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + N2: TMenuItem; + Tv1SH_BB11: TcxGridDBColumn; + Tv1SH_ZW12: TcxGridDBColumn; + Tv1SH_HY13: TcxGridDBColumn; + Tv1SH_DPB14: TcxGridDBColumn; + Tv1SH_GJ15: TcxGridDBColumn; + Tv1SH_YS16: TcxGridDBColumn; + Tv1SH_KZ17: TcxGridDBColumn; + Tv1SH_SC18: TcxGridDBColumn; + Tv1SH_XY19: TcxGridDBColumn; + Tv1SH_YD20: TcxGridDBColumn; + Tv1SH_PD21: TcxGridDBColumn; + N3: TMenuItem; + Tv1PCId: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + + { Private declarations } + public + fC_Name,fissp,fC_GramWeight : string; + fEndDateTime,fBegDateTime : TDateTime; + { Public declarations } + end; + +var + frmTatInspSHHZ2: TfrmTatInspSHHZ2; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmTatInspSHHZ2.SetStatus(); +begin + +end; + +procedure TfrmTatInspSHHZ2.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmTatInspSHHZ2.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmTatInspSHHZ2.InitGrid(); +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; + + WSql1 := ' and A.C_Name = ' + QuotedStr(Trim(fC_Name)); + WSql1 := WSql1 + ' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp)); + WSql1 := WSql1 + ' and A.C_GramWeight = ' + QuotedStr(Trim(fC_GramWeight)); + + 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_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + +procedure TfrmTatInspSHHZ2.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmTatInspSHHZ2.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatInspSHHZ2.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmTatInspSHHZ2.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatInspSHHZ2.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatInspSHHZ2.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTatInspSHHZ2.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatInspSHHZ2.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ļб2'); + + CurrentPage := 1; + RecordsNumber := 500; + + BegDate.DateTime := fBegDateTime; + EndDate.DateTime := fEndDateTime; + + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatInspSHHZ2.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); +end; + +procedure TfrmTatInspSHHZ2.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTatInspSHHZ2.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmTatInspSHHZ2.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmTatInspSHHZ2.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmTatInspSHHZ2.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTatInspSHHZ2.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTatInspSHHZ2.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatInspSHHZ2.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatInspSHHZ2.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmTatInspSHHZ2.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatInspSHHZ2.N3Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); + +end; + +procedure TfrmTatInspSHHZ2.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmTatInspSHHZ2.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatInspSHHZ2.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ļб2'); +end; + +end. + diff --git a/E03梭织坯布检验/U_TatMachCutHZList.dfm b/E03梭织坯布检验/U_TatMachCutHZList.dfm index ed8c81b..ac290b2 100644 --- a/E03梭织坯布检验/U_TatMachCutHZList.dfm +++ b/E03梭织坯布检验/U_TatMachCutHZList.dfm @@ -7,6 +7,7 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList FormStyle = fsMDIChild Position = poScreenCenter Visible = True + ExplicitLeft = -466 ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 @@ -33,7 +34,6 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitTop = 2 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -78,7 +78,6 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitTop = 36 object Label2: TLabel Left = 70 Top = 36 @@ -540,5 +539,13 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList Caption = #20840#24323 OnClick = PM11Click end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end end end diff --git a/E03梭织坯布检验/U_TatMachCutHZList.pas b/E03梭织坯布检验/U_TatMachCutHZList.pas index d8594b6..31dfaf7 100644 --- a/E03梭织坯布检验/U_TatMachCutHZList.pas +++ b/E03梭织坯布检验/U_TatMachCutHZList.pas @@ -63,6 +63,8 @@ type Tv1qgMeter: TcxGridDBColumn; Tv1qgMeterGQ: TcxGridDBColumn; Tv1qgMeterAll: TcxGridDBColumn; + N2: TMenuItem; + N3: TMenuItem; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -86,11 +88,14 @@ type procedure N1Click(Sender: TObject); procedure IsJYTimeClick(Sender: TObject); procedure CarnoKeyPress(Sender: TObject; var Key: Char); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); { Private declarations } public canshu1: string; @@ -270,7 +275,14 @@ procedure TfrmTatMachCutHZList.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); end; procedure TfrmTatMachCutHZList.orderNoKeyPress(Sender: TObject; var Key: Char); @@ -331,6 +343,37 @@ begin SelOKNo(CDS_1, true); end; +procedure TfrmTatMachCutHZList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatMachCutHZList.N3Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); +end; + + +procedure TfrmTatMachCutHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + procedure TfrmTatMachCutHZList.ToolButton2Click(Sender: TObject); var WSql: string; diff --git a/E03梭织坯布检验/U_TatMachInsp.dfm b/E03梭织坯布检验/U_TatMachInsp.dfm index 3a51c7a..1a855dd 100644 --- a/E03梭织坯布检验/U_TatMachInsp.dfm +++ b/E03梭织坯布检验/U_TatMachInsp.dfm @@ -7,6 +7,7 @@ FormStyle = fsMDIChild Position = poScreenCenter Visible = True + ExplicitLeft = -689 ExplicitWidth = 1556 ExplicitHeight = 823 PixelsPerInch = 96 @@ -5595,16 +5596,14 @@ end object ComboBox1: TComboBox Left = 138 - Top = 92 + Top = 89 Width = 43 Height = 28 - Style = csDropDownList Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] - ItemIndex = 1 ParentFont = False TabOrder = 2 Text = '2' @@ -6195,6 +6194,7 @@ ThreadPrepareReport = True InitialZoom = pzDefault PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCopies = 2 DefaultCollate = False ShowPrintDialog = False SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' diff --git a/E03梭织坯布检验/U_TatMachInsp.pas b/E03梭织坯布检验/U_TatMachInsp.pas index 7ba486f..1c07e3c 100644 --- a/E03梭织坯布检验/U_TatMachInsp.pas +++ b/E03梭织坯布检验/U_TatMachInsp.pas @@ -4504,7 +4504,9 @@ begin flag := 'WFBCD'; flagname := 'õ'; fnote := True; + fnote1 := True; V1Note.Caption := 'Ӣ'; + V1Note1.Caption := 'õȼ'; if ShowModal = 1 then begin Self.InitCDPanel(); diff --git a/E04梭织坯布仓库/TatClothStk.dpr b/E04梭织坯布仓库/TatClothStk.dpr index b7f1a84..9857566 100644 --- a/E04梭织坯布仓库/TatClothStk.dpr +++ b/E04梭织坯布仓库/TatClothStk.dpr @@ -33,7 +33,13 @@ uses U_TatClothStkHZListSEL in 'U_TatClothStkHZListSEL.pas' {frmTatClothStkHZListSEL}, U_TatClothInfoSel in '..\A00ͨô\U_TatClothInfoSel.pas' {frmTatClothInfoSel}, uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', - U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}; + U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, + U_TatClothStkHZList2 in 'U_TatClothStkHZList2.pas' {frmTatClothStkHZList2}, + U_TatClothRKHZList2 in 'U_TatClothRKHZList2.pas' {frmTatClothRKHZList2}, + U_TatClothEDCDLook in 'U_TatClothEDCDLook.pas' {frmTatClothEDCDLook}, + U_TatClothStkHZList3 in 'U_TatClothStkHZList3.pas' {frmTatClothStkHZList3}, + U_TatClothCKHZList3 in 'U_TatClothCKHZList3.pas' {frmTatClothCKHZList3}, + U_TatClothCRStkHZList in 'U_TatClothCRStkHZList.pas' {frmTatClothCRStkHZList}; {$R *.res} diff --git a/E04梭织坯布仓库/TatClothStk.dproj b/E04梭织坯布仓库/TatClothStk.dproj index 054f0ed..dc23cfa 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj +++ b/E04梭织坯布仓库/TatClothStk.dproj @@ -171,6 +171,30 @@ dfm TDataModule + +
frmTatClothStkHZList2
+ dfm + + +
frmTatClothRKHZList2
+ dfm + + +
frmTatClothEDCDLook
+ dfm + + +
frmTatClothStkHZList3
+ dfm + + +
frmTatClothCKHZList3
+ dfm + + +
frmTatClothCRStkHZList
+ dfm + Cfg_2 Base diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local index e5b9c53..57b931b 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj.local +++ b/E04梭织坯布仓库/TatClothStk.dproj.local @@ -1,71 +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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.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.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas 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.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm - 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.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas= - 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.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.630,=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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.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.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.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.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.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.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.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.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.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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.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.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 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.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.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.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm 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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj + 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.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 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.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas - 1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas - 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas - 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas + 2025/12/19 11:28:25.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas + 2025/12/30 09:28:30.000.231,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothRKHZList2.pas + 2025/12/30 14:40:41.000.157,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothEDCDLook.pas + 2026/01/05 09:38:54.000.740,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList3.pas + 2026/01/05 09:39:04.000.732,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCKHZList3.pas + 2026/01/10 09:26:48.000.337,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.pas @@ -123,5 +129,17 @@ + + + + + + + + + + + + diff --git a/E04梭织坯布仓库/TatClothStk.identcache b/E04梭织坯布仓库/TatClothStk.identcache index d88f2a32b46447d5d0ae2385429b5a58f81cb546..8b062cc9dae0e2d45c321ce8dd2644a3e018b290 100644 GIT binary patch literal 52200 zcmd75TX197l_e;Wz{P_gnMp~uYE)HSRj!DR=!vdKfXvs-7al|=q~yZ{n0kaJ7$9&- zLJ8v1xL{_oW_m&{TW_T#mt@PbWlOSUNiLUC^4m_memdrBW@7#(V#Z$`36l9afBiSJ z_TJ~5d+r68nR>W;ToqCZ3Eamy`|Q2;+UxA|cX!-z$9(C(d!)3TJ+|y_dym|B^N;&K zyn6k^pYFf$%|}YvWBxxrSjjJ(d8o2*=8?H$vwJ^zZ~wz5`#*ZW|A%i~|L~>$wU-{L z)qBOZ*W0Z2F8o7tyNe5&|2_D{uDr5pUHk0A=URTRI(P0Lw(I^K&#m5=X#Z*CFGudU zW31C^PuAAETj%O)ZhNWQ>hx0iieL7;p4&|~E}!Yvw>Mi2f2_JPAIFpWZmi||+o|RG z)#|R_bGIgHg}KYyUKg*?YFvo9ZQq?}TrSmn^=i-S);HXA?P9j*wRg5U$CEYw-0j5{ z+{?X0!SmW~y))Wc&#bHl_m5p_^)~OOTeq6U9lz&o)#__)_k7E}lrDSStzy@$_uR~V z57l%ErO@txvoaj`V_Rk>!VP^fpBZqr;f zQR(#D4Y!-By1ifLMt55K+E zZ94Lk)Y5!5D+9VTznUE{?sU6ur?-UR%v39#R!}M)i@1~pKv?PT5HSA z>^=2j|D|t=nT`9K-lZ+q_i=&Pe7(0BOv+4BPjQCKpiuYSvvcQ`5(ReycW@J>R=w?Q z_;Gpxe>`7qwP6@F+*ZaS=g23?YOlM}YqkAk(d+cOUfWO97S|qi8@)tjYlDn$tmE|( zYDmWLkO_MC2U;D>^f}MFknc3hE-bJP3v|1Fl3u2Yrye`sXeS!04X^EWGiAD&OlmgS zxGc9Gui@UU4&MZ(M`n{f=U#N%+408Zh5E(TMje)zn)fccOZAT1j@7!Yt#nn)2m_gh zEz@B7ZZBT0!+ztJHr=ipTkm>XNp0PZSi9r9ZM@U?yw|L^mtB9S-8&+;6iX!|%``5{ zf6zspb6x|(=v48>ZZ}bN+l%)vczE_wf&aQu-)uGABhAaOg2E2ouF|2Ap1?EFi;!38 z_OK3V#MuIis|)olccRv zl(*fk%t*mq_qu9n#v53GJ$ir!tfIYE@8&zO1hp`0yrAgDwBQQf<*{COH&xk!os!L@ zm)&}^$WuCnw{g1*-u>?GQWusSau8;TeHA7=%U}dfP=-O_2WtEJc zZkH@!fwr*Fl78>Pyo+zd^QFa7AptXOdYAlIx$C;I9^4Klu-e;gyM7Yy@6vk1WoRhQ zwK^9PYwku5AAM!G3r^Ma%Q`hS$Yh>=3Fk9jJ>&M|0sS%m8|^7EE%SDFH7=72P{W-S z-xtT-S{?OO)H`^Fgv}T*U5=L>2125(R>~b2Ugm+b54jy@5dECjc^^9GtcQg9ZHFs+pUZu%TmMLO6)VCgRTN|6bgmS-=wZd|J z9mcT9x1XlbtGeBbZdXrAtcnGfP(C4s(JM~x{p!uV*Pg!d*wcH@{(SGdAM9PZ%1+$t zWH77?-nf|3Qn-KY`aJw~z*Q zc&OfO!ZPUI)^F%*h$!^QSaW@AQhbMAK}oSRx0zUPb?WW*Zd%PRmSLje&uwk@c4Ld% zZYN$`Tv@2a9;kk!ZQ0YT*b_x6M|>&#W~=R{$ZNBIjO`#&1vYiU$)B&ccUvMh!QA-{A$Ajlr$2AC>D^^QL@E6fTs{%@g#1V{G;4&cH>kWw`SQVadEN zK`CWybUav!S*NndKBERl*e-fIo!;1-w{DCqdyG7yileb!cgIa}R9vq&+&Ey3@83hQ zdYGddy{|f{Ua;oPU2eGT(fN7n*0Zn&iX(~bZtEg!HmQe7xxuq;dplOFR7&Fykc%wx z(2kc|Zo667rN~1O#$A1|?Z-E|-p=;uLN<9ZVzq|i0uU!B5rAJm)vB=uquIs{05i)<}5C2p9#LAyW zK0y*d$oz=DHAN_Li1D>vXLfe9=g}XI=LC_{pHF1zpV=$}aQ@?IGAXCLT=beQeK0c% zpgm5*S90N;ysXj zYUX%aAO+l2*1+HP)B7KPXaB?34nF)mdBm(e4AEqiJRW~31~ojBj}Tkv%X8`5Vp zPNRMnc#wWLJCi7I;Pw^vqz`k)2}XxOQc4ZF+Z=h6zB6-zzj<=J`jD|N;2gSsj{lzj zIhz|<*0_d0&9W`iA5R>cvh5CLZ-W~Z8O8wd=*!1vV+1J(t~hgZGI<0@GPUZq>o(;T z6dG~53`*%|+2eduwus{=0*o<5j?G#X0n~_BN)OFd$6B3+!WQ&G{Hj_0=j@4e2_qqH zmyiS=hi#vuQfv;vHbWj;Up!u3^8B6({yN_C8y#0+Jw{(JVViN^k-)&^Mve;~yWQiL znV}#{f6C=dhA06PpUs@6=jBy8n;k6_CJ93YSL0YY8Tu$Y5%Ldo;q0sc(nti9sK;M8 zIqI#`AC8|kA&BmKl0KU~IT;?@@pba+Yr7p2jxoKoBc8OS^W2m;8;soSm^SP2l3`ua2`Dn*9R4n^Twh`Zj<&`R*Uq z{sa5&zf!EqfbS;fNSQIxq;bS9ozZc8N6siKg<`XKb?4kX09Q5`M?ic|91zLYJUG3h zL3GS2a6ibtOgAo9I@@gk2f90uiQA3QbuIE`ASQ%TD+6M!NRhez>5uyFeP7&TC}2#K zy#_*JQ$li#-o}D^CnO%Ym)(ZuTt@O%%#c^kCFbyj>etUHcE!5D3|}BZw@me)dgI2c zZ|yz(7=V5MsaI^4Aa^JUBkm-#_lL*#e|}9R0B#*F;&gbSU zB}3b!&2#0(>dhu5Pm^fQ)7qJ++rBwGxm=>_l;?EtLcI$mkkiiD8?f+=wWVjjZn zq>%Wr=SKE^o-iN~EZL9ZZYV^o=HfL3=&cx~PPi(3#k!9A6)%8{6_!k#|KaT%Z$^O+h_g{QMaX(SY=T6u~eNEZ1 zVtCTvVp|YF;Cf3IUYf6T9m2>(p$^RU}LRzrxw)r5FL0Z#uGQtOqlSe3k zxq~ky)In<@7b1h4iccX{VZbC27c{MZ-GAzb{SQ@8*t_=P^*_9~|ATLv_@c2Q_@vr7 zU^EK{DBohNICr}Q(IC>aUhMcdC9ka>TY$yqAXy+nQqwmEbB4&9pi(miprT`2Zc-el z+m*F+&;FZNk=79alVHlsSpUUPFr7)06BGJ90$+urnOJ6qw{d}=G=gR=S8+?)N1@y> zkzw;Z7Og@vh8ZSr3hb-NHO?cfnHk3V1hl{)^~3o>BFgln86>kq5xkt(aC;Qplv(8r zdl@2uV!*DR(?sc@=SDb=$r696-4wZT#rvd?QT5+@W$)^5(nkQq0&RjtCV6nLEc7CZMiA$Krv56b_LLx6r z019w>x@O`^l*<`J^OU(*(I(xy}y?y`1{oB?PC)aCG7qVLY% zE^9Nqa65$C&v9|p)Nk*&h7R6<7O;W>+-edX8x<{o$C6MUl&))9k2e~btF0Lrk zMSuMhNss>XVboSiS4DD8V{HvTPLn^D@*|do23V3DO?0=m*Gz5CS~Wuo(8Po3bZ4x) zHOPU55XjJc$1Wx(>DK4GdK3IT@)&+;phd(!^{u)iCHj#IKo50`O*eh1SqSZF&B_rMWXw z-j8Gv6RMO5ZV$-J!bAi78rOZxMK^I;a3n>l4oi7YfRTE?jCIE>&j(6dHl~JEkbt4wo9k|qWf+Va z#?8+DFF)-6_*t7?8HSv1#l=dglVbxdfSQNlfcw??)CbF5DoSg&?1t0x=Pct#I>A>Z2@eiGt&aG9(ojAzk6SPpbdW)dwk&PUwf@ zrx*mx;xKXpkXdlDA*0zBJnVT}IvM7PkAPyiR+jL&yL#WYyAjls13EMeg_BKy7t{uN zAxunZ-;v0CWD!Rxyaft}2)4A)G3*;pprFTalG^6b4QRG_h>*0+QF@-BP%$p*6L7RU zy~&Wv0`p#AM`S9V7GSmkaykfmWNR)wtq*CM(8uzxnIP4ns7`d5JW0Tbhs&Phqzl^F z=1fPYRDjM*fc%3E2}J;rJ@!b`^;;Vqlr#zL6WAstOcYIKZ~jvuNF_5Z`ab{qfB*jI ze|q-+9{E?mMkjxQ{*UOd0@FQCqm8-QooY0pY=Tgsx!9pQr|DyNw^Z+5n5xOuO5OS; zdYP#jL|ZISL8y1@TN)QS^E>TQ>mrv#QOqE*S+%hVjRCwp3t2b=a|*=fZfovZ<|NsM0L(PM>DdB!Pt(B*6yI5twDx^AJn<8LyG z9jkc-r&#Y?tow;Z`+-elHTY=TnadaEP9eAR&v@-7K3Ps}Rv@vecOVYn+GCv38(*|+ z6Fe4fr_d$kj8i;*B0rPGkIp0;?P{wHtxT+RygY{+V8|f#sFX`{Wei{eLXC%;yIH4v zYHqf4Dv5WS+t@{+i=1NN&e{rcO`s&y6Phw8Q0yV$g6gdI6>H3qn6pkQ-vyd!(*viL zYpct}QofdVaLww4-QZ?9!WNVG)VesH{~;ur-lcP_{Hb|7H}ScJQl&i6Xx2p*Q^Z#i zc|6EgeLJ3~hj8-6^09nbXu&xDXj1!hnferNG{0L$Wh7N2*&Yqr(UsMR4eAo9NWTiZ zkn&;RVO@?`2?I*hKab#95I#s_;&th91T2h;De}Y1pIw+}_rg(peW~8<73z%(XP~3# zG-1S`uSq6*7MeFm1(l{EUGdKo{n@CuGis9fYIhC&C zvAL6T$27kM7R)Tm1W$t7AzyHY-#vrpppo3BhncXKFjfLyY+1$WkpjkE3n6KAV4@fZ zGEEvViN{K)B!Pm}lC0cv%BSZ_rE-Kk#~aH^qTf5k)8*sE0+=WVT3N6*cMe$%@ntgR zlv!o`fM=Y%PcHNbnJMFKer(r=4+~x#3u&~vOs~DnubqUo`y3`}g$w*EBx8E@&W@Z( z)Wm~C<0h<_rfK9Xg~&8UME!bX*>;)a)~L`QJLj(VV88Sew!V0SRGm)wnG{|oVjcn|KpHypB)!&CZZo?8CZ%_ z>8yK7LKA!Ff8;Xk(ZkBHlHkl(l)@3x9N5v84b7!RdGE` zz;0-XyNFSXmbesGp($pw-79L$8bYOwuT^?l_xq}$F8#aY=pe2uF^=dmH>tNj=Qweg+`KdnbbB?7fx*^ zYn%8IdlN!w%xwhX%TuCXlJzmGRZABAds`HTVl~8KPZ~z!PP}(8+js;7y5ur4WO8i- z^7n*dmtfcA+n8w^hf-F4m(3N-ojG&1zu25XcFJXD%FmJmkI?^&_(O^~2=!&PRaz-S#qG2R=?%eq2r?5Ls^zOr$ z7;-Dc_I$nTd7U95_o+w_4P(5)8kAmz#hpO+oJ*2Ij}|tf2BmVu0XpE2FoXl_jp33& z5_ftOYLevXs;z&7n2mG~5#o(`ykR=K&r+EjBSAXI(^4UV0`2Og&X_|*M@xyOROdrT z6tR0A1xnKO9x5SGh8Gusbveq5S4jtwa&hFRut-fw(TJSo31*_GkiM%n;y9vICU~d_ zlO(E`Jt!i(3PgzJ%wkJIwL}KLA{n28tisj|TkHr;Gej<-4HQXj8G65*B@l=+BN3sC z>~bT#Anp0Mttz7#PY#_8x78NqU{c3uQ&SAMBI8+3BeY3X(Gf5b2z6xOPybCQyx9LC zVJyec_rJBF?;xA9(e~ErZESe4$&e|KA%ehZdNL2to-gdoB%+8CIlgXcgR*D}H<^u6 zyG_Ip{YSthV>aC`?I=j#_bb)8<)}fgteTr^#Vu{YVDHZ8i3qdOd|brL{Si|000_BS>m=FkqOvk{bO9B zQ@fJbb>?)=?Ua{_m8K6a%idY{K)uylhHe2EvZ*Uu@Ek0~Bd`6JSU}{yIF+FfC?}_+ zkdVw6Hi@uTVP1LGRHvv+tKTu3%%6p$Z3Bs`U8L|-YJWz01$&Z2grc`oT2>&UJ@_%5 z8pJD$l~Og{!oGwqCvcVwH@XQ#Vb>{pi-*^^FaS>#V6kp{is#kIS2tVhJzYXdxXoU* zQSSt08{<7@tlvs9CQOz2!ih*x*C-)#3KIwWS*bKi8;St#q;7aOBC)kMNLgWgtA4rT zh0;c;F-ye1*C>GYo_^=x&FA*sdu#8dE7w1M4I-d>`cGcNW_2LJ{tLgq{)a0E-}?Ca zAFe?+E1vFzxJ}OB4F9h;KqaK~3(YrgQ&g6rSB+WZ*>P);aAIP^tCX5^Y~$5lVK%e( z&u`s$`7wF4FneuakOr~G@HYL&el#;^j~|o|HpQaAp|Gm9!khx-0eKcz}8{T+LK3VOzQBj`|get3=07TXCX-NTP+qOKEy-2lU zSdUyT*1)zJY*dwP*R~k^7#m{%E2Blq_zEWioK^c9e%eDI-PTv1e@&0nVzF~?3DjnB4Gp@pNoIko` z?MPd85oDbE&vMdCn!>~iBnmsIyYfUL{->%7rPX}(p@pKN7;>^zJ~5BUfv2CKd01-K zJF7)(DYdOi+*D}ep&bV-hbF)43U^i0yhdTW*yNMxrAbh)Se@q_&M_&2x67R1&^7%FvSuS$gCHU{R;7Jy#=y_ zcEV=J)D~$YIxwd7MG@m0u}WaS$DsS}P-SLy0h^&#SGI))3o1cQb)M$=EAWdFKTX`E zcxkQ0S(U#z7iZ@0tCRpmp!!bE&r4qd>x-uynMtXSDpF1o2(|4r^>yCc4Spat|3Lj> zl44W^d!M-_h2fPbY;eAx>A&!ugWtS!g4*H?cy~UO~}>afabQWc|#SQ?TIODwS0d z^e4Qe#ewoht^@$txhi*J5XMb263Sd>z(!EKFi(7(Ge?;4OoBQ|z!0p2&KmyQy?d`g zME*3@#r}gq8hf-dg^RczLOEmEfNN7As*oV?0k1Hk&UCm z-K5qp3d3i?D1|EF6L}jGn&`>xL?GLoitGcAD2u~8{Y_3Yr2v=S;T|uOX|sJ353edf zDDuIZ=TaUx5_734w;mS-~3YvKB*Z|;5b{Wz~aO(KRi zK@8{ZEH@(Cn~WL=-i^G0HBHBZhBOp-f%qax8>$Oam}eSWts{yg%cEXr$_^PA0;v?k zGh&AeUYmEH*q&efd5FxgQ|^F72)&@GV~pfcnq_iR6huaPzTk0sYPWW9u+Fi*jTB$) zJ~YAg1dA&T^8<%Q-jl$Cp3m&SjxUP3e+I>II85c(6Uj-wYFiyytTGZa`F}2= zpPzbq-i zoihY|-->Xstwg+mj>xd4U>dq2@@NPG?!4>S`2d9)1G%k44`!P1^Rl!QT1Y z2vR!=Ge05012Na;C=MkjLZpOs%i;9HaH3(_PDaGn-I{n%?Nyn=yA|CK)GtFNt1m)4 zgmjpiY0$*t?J*6vO)d=QK||aEhy)@HruKgN*xqlSrRoz`EQXK>rpgoM5E5mk*!@2< zdBB@bzc6DkigsbtO4F`<9!414LK8vSMcyzIx}HXor{95$#ZH5&go zv-_X^=>KVC`Y^GuRV=o9HWAR^$%P3s`1hNyJuuE zeJ*Wqd}*m#n~T>9sQce;VCSL*@-22MI)6Da!|Tm?O2 zgI#Mxd9X-bq)E+z#RK_54DIaPsB+i>Hxg9^^Dy@(I$^G5o8nls3^39%yP3^&PYSQe zg{S zT`aJil`NS`K*Vo4E8ERz3#IeAX2J?SOh0Bo1ia&mTvPDrRb%be1=0Ctco|fr7x!n_ z#%xuF(|i*yJSn9_YQya;VJ2x=#ILpAz1@#>Tqk&A~{Q|@j03&MLVu!zjj`$ zgl}?dk4ktQFOY1-vDazA8^;D0{1xwZu|!5A4~cm|cC31HK%Ytz#zS$4y69Frr>8|x z8&Xrqe(yA~_oy$r*lg3}?jXYv<3P(JyYQ}LIfl?E-$cl(OYc1P@O|^9YBX(>FVg!4f|uJD`5r=>>++%{ zUHtptDGs+xDmI0x*+%7%=6OQ{8T7^!mR(y4NcR-mdI+rTMQde`Fb5PKQF zSZ}wQ!}eegfhXZUnWTQA?tKG_-x#I>M;Q#XGU81OQ8$1&xR|nToH!P1PrF``iEQQ z5fxR$F(K)W)D=_bv+$u5t#H5uioN3AZajIV|JD^<{|hRG;mzA52h{w`7{r%Ka}&uA z6X&zMzDJgA@qi+rX_uPa@GB%pvO2a0Td0zHsI|;^LYbVPmE^j59eaxxri|*^DQ=WR zW)fs6*5>SJHzRI?DKv82r&kE}Xy|s-7#SsR4DC-cgfq~ykwk`tD=Y%~cSC`1XiGM| zEkjkD`aS^5>p%?eW zx;!Ejd)SE?_*71T0#rJNZv{ONEd{)ZDH7wzu7Pni(h1NW4S`YxGVeqCal2cV2^od3 zoEyR*T@o5ndrp~lEUO*&(u@en4RuDtf3y}I>yhOZ+ep5MV0-y~X+<^A@9N8xgp>S; z?e#yt^5fla{AuKWL5c>@ZlAMrFW`VW5Mk~j_Sd5lpYLw$(7^!y=)#PK<4QDcwvWwN z(9UcsVHAA`l)H8P(;UH5TBbIkXf&|B+Vw73n(la`4!{|de2y#qK1AFD3huzE=o2%- zB})aj!W-Vg8g4qUVdTNjrOi$OYHhE1Q2&wnTKh?Eq109>)DU_0Jt1W))4rnJwV}T# zLPf2O&KI;tjWcH}1CK+?=(Z0jSRN+QPVm;ynXE%yV7#ubSCUTwR0x*15o*jN@J%wO z0SF-UmHFa{FX8Nt#DbJK21MPuvEY#NN>Z?_4j=0i-)^8yl&yXtbvQ*Rd22M!t~7Vu zDibg0CqhSjogg=|KkS zCKiM&0)St>zxbeb*nz@Usn)e*omd#v4_DVrLy8$2FeP=WF^ZnZI{g_}o`w5LF67W# zjPfSN-&uvng4KLd^CE->gJZ;04(Px!EqK)sB4b=D+jGqcA?6&Q7zBo0(@Z9#4}GET zM1iVXpLe0i50gj@IR?i*Axp&HF*=LGSn{luZc-0#H{2IC_Z!=TFsV+Yvr%dCumX8i{Xr;w#lKG z5zlI+xH*kZ?RqyQpxI;AUgO!2Y|$Wwq5AO1o{i8Ebz#*ZZ}Y*p@IL5Mb~!hyEu(Ly z;i+ht3p?uxWekbDAOrKzGdcT^H}i3BhAO`{GPW&wCf+0zYvkyT^d^p~(xHo>vsaV` z9m4fik6|Zo>Ly1jM-=hiycnQeBWxl3xkfaUKeF=;exqm?-lDDr>%k#oaV9Pze4Tl} z*<7Gpw+|vTU&x(Io-d*)kyj~M4qbU&_J}9-c~UxUPPWnQqJW(hI+Yz+w&1K~8-v~D zN#Z_fpAl18M57qmpLs}aS{!xum_D{o3E{b99UPc*xFUX7?V6y)!lEKnG~!kIcL@SB z_wK#^GqgtBd+teW%tY^N>TmqZC-)xv5V$a4#Yil_cvG=_Fc`U9;4e<#pbt74Z;E$j z$Z2pSpO2hOl$dA7h*K1qC5Fo;BPV{w%wF~o0loIlWLg0(SG1-SEEvXgo1Z~h&l}QC zq^YNJzSCSlKNEGh2Y3ConTudQD13`-z=_c@VYDAluj*`$l{AS3DXW>!b3y9{Be759 z#S_4%(|JhEgi6Ol%C*w6CYo`Y%RLe7Yk;qv8;4X*iF$(%<_YQQM;B)KJjlZY^}$o; zk_4cr1HU80_CQDbKqtdFjiIrlC-;d7o;Kv6Y**mZ*(BkF-{yVBhaK8y(Lq*iA{RXC zslXI*vZhGv2am2~xjoGvxBMK!YXt)Q5E~O|Gj7$i5mgtKMkI{XyQ;X!_V&f6e0 zh~BSZ%w$HlkYy@{$#d81nlj4Q~V3KjkB9zG6EI>o_8T5%HISfG!; z9k#(hAMYt6d7SBM%_06JopmN_QrQ|Xtj?!Ztj`Xw1&%$sy8&nljK8=ZoM-$OYMqzl zG)W6-@p+5}!e@<-^w?JJ!2ytb3=dGlv78Pg@hn6-Qb)GGykW3U zs(X<|gLne+c^Ylg;7f!F+~?xv-NE>e^?+$D}4Am+X%W2iPbZd1n^qV&!Q~kFF z=tE7pMp}_kz6I_i5;*N`V#?mFY$i<9sw9QBV}6eAWN0=+Wl$pH_0s@gA%7z^!}^- z0$N0Y^N_dYi3FloUN)+#Fy$2T;GB0$RVzWHBZScrqd7j<)r|>`fJZR7)R)!TZQ+X+ z+|i?gTDL(O5LG&VhD#rl>TBfSapXF*#~uEZF8!bXpI5l=+W&dj;Y^b#)w%5!%2H^n z55cY!RU_^K5!iIy;<8NgVs@VU*;v_5IMFdHBFgaL+NUBHF6SKx>>*Z}3%OQMX1p!+}Y$&|o@TCyC zHgg>u#1uu-AmiW!cr{w-w#vJ7@86bBLQg(LUNDm_9v-e3Hn#@HuNsos2sl^*Oo{8{ zJ6+E2^foZFR^6zf zWCd#m-0x6$DdS866-r{|S|f)G|-i}ZBPGLD+ z7FSX+((b9KIbXI(m?&lobga}dAaIJNau_+0(>i9zhGZj!p-3!>wZ`i>GMLUbf$mpn zhcu65Xj|1OCcsl@#syky!Nch*)Laa00R3BS(84CIo$AA97gq19E-u(=)lC4C4B*fz zSBfhqW}Qup6u7fTTRfO@*fR>t*-PW%s^yeF3+oE^y^<&9yw0Ts~^K@7)_Lcajqy=QvI}fqLKpk$`NJc zPJ7?`WB;QU_|3=g%$l@y&{gx`vBycW99*Fy>awZ*Z~w0U;`7v+@+Uv;Kl4U97!Oi` zs0U2aW785kTBG-pE?s0hkPYSilDC5*GAGTWkNUySs>y9R3vCyWYV=WW^wIh_|9*kh zWTTIEMhf>xqh>jH_Tc>wx$oG=sE7UajkmwofBY$>8+h$$IbM-o$f|P&ma8PHhKMG}inw zI2Zb@z3;uZ_c~65{ug=ez3;!@fAQ`9d*8=|1<#Oo`1^i>JG-BljbEbX_}ok{&L0I| zEg)WRLGDF2i2zRryT{OJH3p2nj+dfujVw;}pL%uwhrii-9`(vMZoK-|J^c@UdHtgw zT)*}X%)I}^<9L+4Uw`|?YrkU3L&=cQZ8EsyVsd>4=cHjJbG1E229&_&F?s@uR3p{o z85hlRTMgd?jbQ8+6>|bDP{;R(yXNx6NaeOOlEJ!5zSpZaHc7U-vfakvH?;8o<46C< z8Oi9Og_rdU?(V`OoU6_`GJGU4?LOJ*(Lu>*)f`w4Ibl^vj+KY+%1m!PK-0w5r}|BP zzSIM*QE1XMZ7i3br6bFZbTqcI4i1q8H2B6sz*%ImukW;ap_(%PzUHA!;7+6O7HsVL zAD%tD87#LUw>#vUl3jU+Zw!b5XD0VYZw zTkQik2fz853A?iy8q1m|L#4M@4KH}yxzfQdqitxAe7vjt zVhTH38u&m-1pT7}-%x@DlWiniSQ6yfcEJOC7^21snAF-bC6-XKskXb9$WgOI*1Sz_ zyheH`b%3NuLX^7BPRYjMMrrbiX43mAgLtj>V44gB!b)RqI!jB{sNzMOio)AO+KpG5 zwc?UM7ko_aE?K@$#)+ni_dhz7X1TVMouK>E3y6Y&u100utcB!pIT}oy4$lCqLXF=aio4wj*qxN4_nmAJefClvcxvC6A)$M}apuNAMs-CDm zuv$I4_yF`2^Z9cUaLkH>T-8|vO;vAN(p2IWbe5s@$>=_BCVfWBqK5CUoGcT!XOff5 zjaR=-!}0ph_FsDzhp5wxnMOpqOge~i%_0`U*6hU`o&V5ppCp4X&Rz?!OfYsw1& z1sTLplTHQ6jI-2gR4;aKRa8i=lah}d$IvGFKN<=L+l7>M6#@;UMmTu8IxQh_c_w7aN$6202)ZUY)v5&0)7YN z;?pws*ZFnD5hkLESPXK!PUx6g;Ow0aH=m~fsI)tiENaYYyF6+Zu>K^Hr zSW&*u=R-c&y^;Tp_vm=3p(TN&54_&S&aot&O3|U@uU6(I+JbMBlwy!?QPF`rRI9v> z00;1TkGo{~XyNL1C7+v|FRWIIiwh6rmlrAvXT5&byVn5FXbuxT*CujlX{3UlATd$y}K8F;&37yi-v$spY4`Nb!{d#9t z@#A;=zyI44S?^CH|HoncxKJ50DqS4HzkuyU==5Q$fTc|K*(XkgN%1d({|*5W;`c`K z7V^|5|NR+QYhlGhoVAkLP?1eWHOgEks$fCk7t*u|oVP?A!dhda5?Ow0RmeKV5ZBfboJFLfD>BJa_Vj~*;>1AL@lAS_Dm0rL!jXo zCc7hN8xAMB&Bp7`$#z2&$zEP>5*whpS5_(7kY*chn?xa*{TH9$R`5Rns@1-Uh+Lw& zZH_y!Tw~H;I8X~1ZmYLNuw1eM9vjAQ2Y~Fe)7!T^zRm_>S_*L+jQ3EUJKT1{7H5cy zs5A{FF`UP?#TWrIprF-oM%ySXP=yM7fza7-nfbLfX4)b+iEB~8*I^ihW+DJ-2(zsn zTuxdy944XAi1GHQZFC2qCJ>B+sk{@GMTBT>Fa!+j0^5nQ*cMYlUsA3)U{b;o25d5x zt~Cm#M5F)~tt~qXqCB>Ztpl_YQXYgTk;AkFL0W9#lqfn0figZ1bWjw47ge1Y5;dxP z;E;*PSp>}Ip0J_CkXB=0vZJWc=CdEA?hCqoC2=Xv{>JcLB z5iLZ($*FF(!L*Kds7Zlf)EJ$8epjvJHloxDEp|k7X5UDQL7+R;fBxD1kAA-Q+ix;G zXv#-N)_dph9{C1wG4#BHJj}S-B13;WO-EpaiJTY>$mDv@rm`%PCC0AkT_mVW1Ci-J z^~3&$*MxPBZ_&qw{v0hg5q$ZvahENxbJV^YCmjgK$N_M)HTcj}r`m1ELFjejvorP+ z9K{AM^Pv1wjTnN3qd5Wb@Nwj7t#*n*IlU?lTJJVws8j3pd}o)Rb+PRhd!4S24RzaY zy%!|gIAAfXzLl($S7786FJ&e8oUU5xHh^Uk4FIiChd|2ZYoVSb^K#`MLi zOUfwdaF8c;a4>qWephgbz}k|UPSfdW=HTk5H(t4_#+$Eu)F$I(Xi%o1<4!}AUb+Js zQ{LZcv=_i84WwNf@ELy5=Es7-fNe|BV=-bKY@KB;BwaJFrfpWI#D+N-t2KJVI7D`w znS*zJYK;49H=cZE@8wTWu(4Lk-qTmW$fJ%RnVg{CM4`vMnf))r@e|+QB$I(Bq z|G^9Dke!bn>%a4?Tse~Mz~j!>FY}@mSq*HBDURD{`$8|rjt34$|1USxcVXWydY-^* zMLUP^&u4%Azy9|te;RpY^o~2AWoh;BIujM2;by%{HyN#MIw)vuRhl>_o=JxSj=Y`T zaC^ng4P}N>5)y=ew$*gu%s2G;mO9PE&H>?sMf_Iuee%(5YF%J)jtIdS6uAGd|0XOEF|P zxRwqD9K+d~PMgnVpw68eU2kW*;9X{7j*g&A@dh|}xSr_&lM-TitKLZ?+~VoTg2&e% z*sS*u2eCM0!`e8A0k?hdt>^Y$eP1K3*ybgOVaX_b45Y4{P_5YORvVk{mW$qG917zt zzus(8#8R37O3TT5kRbls{!>39C-B_&WG45Xd-}#dU)}rBw{E=pqCJfSlXu)HW^sC$ zG_b4}+^(tzjIE%o!xVFxZJ7tssqsVq8^x#@GsX$*wk7Khon~X*ow6$OZM;1d=+1iG ze{}j!{eJIzA7pp}6;ql(*^TBhL7@V(8Dtz__4r{{H()5VBa=3PFX5bK_1ea7gQ@J| z4&>Nq(cU9wx%d1#V8IWresXa2O&OF4Sf@l}`YHm>C;J~?m3Bs?kjJB|E05Qf^9$9b z{PNsF4X1hi`o=5orMBi<9UhRGy*K`d8ruGMpS$s+pU5?2#YCro?=OFqT!$KyU5>f~ zSNjQdQ*87TL_=4<(Po4aZ=;7yds-~YwrwI6X}XayYyn~=r~?Md36mhb$OWJfOLeOx zIkh<)2q4rbEtXD?kPj_2{GK1fkd4m4`)}`m_yougyFF40yIcD&zQ6zSyMj1OuomWE ztkLOZ4nBQy@58tHKm26xjVJ$|aw1Rtu7CB9D8R_j5A`EVKp5;yW)26+er>GTZfBGq z;z@JPy5s^38?RAN1_ku%AHO6aFup>=8n4lE1lxfYX65pTQc-LT+ghox=F~V&sj3Wx2RND% zy7f#N@6KIhQd{|p8*GN~g+Mwek6?A^=Qb|D(qwde{qY z#0_;R5w%61Wqja)-5h2@y2L->|%OI&ZG6LoC|99I2L8 z=emH1=r+frsNvu=4u9D6E{PGYvzZ);&SV-B!0iiM|L+H5r9uPGzYgcCmb$JY#js_Y zy!9CsKal1UbDwb6e8>oTe}RXhNTIA^RpP{|zq6LXeof>2(RGR*+i=`Ij_JaGb1y;o zEWrgN!XRnFnS)PXg}|h>zIXMv(3e22bp6^BsQm-Ha0T<*d(S+B{|Bf6qJf3T=Lf%k z9r+{vv;W++{!>q2Cesr0b`kZgGesr|(95Er^`O%ByNAAqT8i{gknz zONW3h8i-1BqS~NnwpQ;mf)~`b4I#+hU6~>T!a$MIV!Lro z@?vkEa$qc6JV&duqs_0^C4Lv>T};H&D951q$Lxes40(3LqArlZ=_LtQvULYC(Wc~-D9Ne&VnTr zs5UxIadxg;E>kx?dQMq~;z0EXDZ<|@^D)RysOcC5LJk`f+y#nU{ZbqH$lk^5T^LWf zl;yoMq|tSo^0Y_Mx`B@Oed>c{h0hQGi#uJQh{i6x%Jkq#q+bdAmprXJXJQS^wp;JS zO2^A{NDyBr%GMo%U{qodlc*O%znGBF%yu z_MPI1(&_SPvRR;qH4iHQqqdBGL^#!#GH|C{D4!_jQuGD(wK^O7(VIZ&@|;fp>azfL z>Fut!fsT2&nG);>uEUy+kr^gytxgNk+U2GriM4`mJlj1H~ni07vVNj7(*HZbi71ao?RjNBut(x zR0M@qldM+(+Pyb^4>@lV55m()88aL>d73nWV7tMe-raxZ-Mz=YDZHaB04!$eZqyJ( zh4S74AQO#tp^Yr_UX_9%&_k*6-4D<|8(u&b{UqHb4~3vS6~_1D{`vS7*P#s zlaYh&%blJ_#=vVxmIIsZXl?yyqY1yZUPsWO2g8jtHGy?UK7rN~S^H!j!pe<~+fB7=nJQ|%cw!qYTuKoXA@L;&$uvdAJ4Ak}~GMe)m!+AUJp zQ`Go~i*AK58ey<)ElY|P3xAagB4aSCNt1%H(Zp-5UfUfnqeP;TNx*Uh1pdoVkxTW} z@a=k48oGXrKXG)(N4*PqRB&8yq8=_F9nOq6Z>qubAWM+!MIcDb#oXa_I0v+^S!(d%n@CCoM#(_8fV=v z;PIy=`CwNF(!8|8p|L~{=ps-*V6|CLCav{-}q1k!v@DuYmi@wZC! z$NgZ1L5oarq<6W%7@i9U>^joq(H77Z+ZUD=2hvqv+t+}SF9{gVi#nrj_B_gYzeDdw z@{oVA*a^HF21_Vp%9|6l`CSOg8q;)4!87mnU%Jx2_OgsD$<%xC>Sk-bm+HTOH1G^4405Au|7hUdQgyih>VNt;|LO%7ng=RT3$Xv`fHuMQ839Iy!Uqh zJI{zCQ7joRp|mv3r|3naK^!hEPNbtkiH}yAM%E4VNnTaFKeH=mGd4-{m0Dn1SnO=5 z*l?2qN)<3QRxh3(JU<+~9MwBg+@*^iHpQk+BX?(c@QPohcQbQLf9QJjtC7_tk#v+p zt6J+i(|4IIt2U%JqOMY82QY^9nr&lAZ6cYy=l{8X?FA5#2k$?TUR+=IUG$*_J+HT` z1eH|U?J%yAGICbqWZW=cPNXP8k<)`g(7(zvz^sLTKeXf(oD9b0`sEsyVzgNHrFG3O zs;>Dn(K~$M)5`&*d9~1m|HI$>g7?kjQS3v#O#f9h=_8EB=C6jy3^HRsCN#$93#ErJ zu$<6R%&YQ%>P>7ECO5GNp%$W?*#HavCKz z?7=$t_-*WNlLXr`*V4Ij8LovZtf|Hzr?#raXl$a8(Kx`&-fP$TFMI$-5aVePd8Y1g z_x>B-ghLRAYu+_g@zvcN2A}TT=7d4HAQoEx(^nGJ;)BHR#emJT39+MS%ScnAvG$bx zz0^Xar|N4s+)=>}S+Jb6tT=VaE*gvph1+!I+eCmZkxO+H^OGC9A)Z1RTF zVv`d(GAFl0>+qK5#gqm|dHBV91^fF=&g!rPt8||#GWoik`{dj6`H|gfHhE&S{AB4B z5|eKp=VpwUtSIL(`P^yFi5oa3uUTV{tWp=O^3-vu$sOK~5}A3K0f|M4x#(dA0Oamp A!2kdN diff --git a/E04梭织坯布仓库/U_DataLink.dfm b/E04梭织坯布仓库/U_DataLink.dfm index cf39ad8..f3bd9c7 100644 --- a/E04梭织坯布仓库/U_DataLink.dfm +++ b/E04梭织坯布仓库/U_DataLink.dfm @@ -1,4 +1,5 @@ inherited DataLink_TatClothStk: TDataLink_TatClothStk + OldCreateOrder = True OnDestroy = DataModuleDestroy Height = 349 Width = 482 diff --git a/E04梭织坯布仓库/U_GetDllForm.pas b/E04梭织坯布仓库/U_GetDllForm.pas index ef2ca5e..218e770 100644 --- a/E04梭织坯布仓库/U_GetDllForm.pas +++ b/E04梭织坯布仓库/U_GetDllForm.pas @@ -18,7 +18,7 @@ uses U_DataLink, U_iniParam, U_TatClothInEdit, U_TatClothInList, U_TatDRList, U_TatClothDROutEdit, U_TatClothOutEdit, U_TatClothOutList, U_TatClothStkList, U_TatClothStkHZList, U_TatClothCKHZList, U_TatClothRKHZList, - U_TatClothStkListPH; + U_TatClothStkListPH, U_TatClothCRStkHZList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -80,6 +80,8 @@ begin DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; // Parameters1 := 'ѯ'; Parameters1 := ''; +// Parameters1 := 'ҵ'; +// Parameters1 := ''; Parameters2 := ''; end else @@ -256,6 +258,17 @@ begin mnewHandle := Handle; end; end; + 511: //ͳƻ + begin + with TfrmTatClothCRStkHZList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; 10000: begin diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.dfm b/E04梭织坯布仓库/U_TatClothCKHZList.dfm index 93770d7..3212b0c 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothCKHZList.dfm @@ -271,10 +271,11 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 - Font.Name = #24494#36719#38597#40657 - Font.Style = [] + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] ParentFont = False + Style = tsFlatButtons TabOrder = 2 object TabSheet1: TTabSheet Caption = #26377#20986#24211#21333#20986#24211 @@ -282,7 +283,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Left = 0 Top = 0 Width = 1532 - Height = 459 + Height = 457 Align = alClient BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET @@ -294,6 +295,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList PopupMenu = PM_1 TabOrder = 0 object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 @@ -349,6 +351,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList end item Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1NetWeight end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False @@ -371,25 +380,12 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Options.Sorting = False Width = 66 end - object Tv1IOTime: TcxGridDBColumn - Caption = #20986#24211#26102#38388 - DataBinding.FieldName = 'IOTime' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 100 - end - object Tv1DRMID: TcxGridDBColumn - Caption = #21457#36135#30003#35831 - DataBinding.FieldName = 'DRMID' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 92 - end object Tv1ToCoName: TcxGridDBColumn Caption = #23458#25143 - DataBinding.FieldName = 'ToCoName' + DataBinding.FieldName = 'CoName' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column3: TcxGridDBColumn @@ -405,20 +401,15 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList DataBinding.FieldName = 'issp' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end - object Tv1C_Width: TcxGridDBColumn - Caption = #38376#24133 - DataBinding.FieldName = 'C_Width' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 90 - end object Tv1C_GramWeight: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 90 end object v1Column23: TcxGridDBColumn @@ -442,13 +433,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList DataBinding.FieldName = 'NetWeight' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1PF: TcxGridDBColumn - Caption = #24179#26041 - DataBinding.FieldName = 'PF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end end @@ -464,7 +449,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Left = 0 Top = 0 Width = 1532 - Height = 459 + Height = 457 Align = alClient BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET @@ -473,9 +458,10 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Font.Name = #23435#20307 Font.Style = [] ParentFont = False - PopupMenu = PM_1 + PopupMenu = PM_2 TabOrder = 0 object Tv2: TcxGridDBTableView + OnDblClick = Tv2DblClick Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_2 @@ -553,20 +539,6 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Options.Sorting = False Width = 66 end - object cxGridDBColumn2: TcxGridDBColumn - Caption = #20986#24211#26102#38388 - DataBinding.FieldName = 'IOTime' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 100 - end - object cxGridDBColumn3: TcxGridDBColumn - Caption = #20986#24211#31867#22411 - DataBinding.FieldName = 'IOType' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 92 - end object cxGridDBColumn5: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'C_Name' @@ -580,20 +552,15 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList DataBinding.FieldName = 'issp' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end - object cxGridDBColumn6: TcxGridDBColumn - Caption = #38376#24133 - DataBinding.FieldName = 'C_Width' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 90 - end object cxGridDBColumn7: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 90 end object cxGridDBColumn8: TcxGridDBColumn @@ -617,13 +584,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList DataBinding.FieldName = 'NetWeight' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 80 - end - object cxGridDBColumn11: TcxGridDBColumn - Caption = #24179#26041 - DataBinding.FieldName = 'PF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end end @@ -694,6 +655,14 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Caption = #20840#24323 OnClick = PM11Click end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end end object CDS_2: TClientDataSet Aggregates = <> @@ -713,4 +682,24 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Left = 488 Top = 392 end + object PM_2: TPopupMenu + Left = 424 + Top = 272 + object MenuItem1: TMenuItem + Caption = #20840#36873 + OnClick = MenuItem1Click + end + object MenuItem2: TMenuItem + Caption = #20840#24323 + OnClick = MenuItem2Click + end + object MenuItem3: TMenuItem + Caption = #22797#21046 + OnClick = MenuItem3Click + end + object MenuItem4: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = MenuItem4Click + end + end end diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.pas b/E04梭织坯布仓库/U_TatClothCKHZList.pas index ed0b178..71c66cd 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.pas +++ b/E04梭织坯布仓库/U_TatClothCKHZList.pas @@ -54,28 +54,20 @@ type cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; v1Column22: TcxGridDBColumn; - Tv1IOTime: TcxGridDBColumn; - Tv1DRMID: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; - Tv1C_Width: TcxGridDBColumn; Tv1C_GramWeight: TcxGridDBColumn; v1Column23: TcxGridDBColumn; v1Column10: TcxGridDBColumn; Tv1NetWeight: TcxGridDBColumn; - Tv1PF: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; cxGrid2: TcxGrid; Tv2: TcxGridDBTableView; cxGridDBColumn1: TcxGridDBColumn; - cxGridDBColumn2: TcxGridDBColumn; - cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn5: TcxGridDBColumn; - cxGridDBColumn6: TcxGridDBColumn; cxGridDBColumn7: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn; cxGridDBColumn9: TcxGridDBColumn; cxGridDBColumn10: TcxGridDBColumn; - cxGridDBColumn11: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; CDS_2: TClientDataSet; DS_2: TDataSource; @@ -83,6 +75,13 @@ type Tv1ToCoName: TcxGridDBColumn; Tv1issp: TcxGridDBColumn; Tv2issp: TcxGridDBColumn; + N2: TMenuItem; + N3: TMenuItem; + PM_2: TPopupMenu; + MenuItem1: TMenuItem; + MenuItem2: TMenuItem; + MenuItem3: TMenuItem; + MenuItem4: TMenuItem; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -107,12 +106,22 @@ type procedure IsJYTimeClick(Sender: TObject); procedure C_NameKeyPress(Sender: TObject; var Key: Char); procedure cxTabControl1Change(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure MenuItem4Click(Sender: TObject); + procedure MenuItem3Click(Sender: TObject); + procedure MenuItem2Click(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure Tv2DblClick(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); procedure SetStatus(); procedure InitGrid2(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + procedure CopyColumnSummaryToClipboard2(AColumn: TcxGridColumn); { Private declarations } public canshu1: string; @@ -122,7 +131,7 @@ type implementation uses - U_DataLink, U_RTFun, U_LabelPrint; + U_DataLink, U_RTFun, U_LabelPrint, U_TatClothCKHZList2,U_TatClothCKHZList3; {$R *.dfm} @@ -169,17 +178,22 @@ begin Close; sql.Clear; - sql.Add('SELECT A.C_CODE,A.C_Name,A.C_Width,A.C_GramWeight,A.IONO as DRMID '); - sql.Add(',ToCoName=max(B.ToCoName),ioTime=min(ioTime) '); + sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight'); + sql.Add(',B.ToCoID '); + sql.Add(',COName = (select COName from BS_Company X where X.CoID = B.ToCoID)'); sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); - sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) '); - SQL.Add(',A.issp'); +// sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) '); + SQL.Add(',issp=isnull(A.issp,'''') '); sql.Add(' FROM V_Tat_Cloth_IO A '); sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = '''' '); sql.Add(WSql); - SQL.Add(' group by A.C_CODE ,A.C_Width,A.C_GramWeight,A.IONO,A.C_Name,A.issp'); - SQL.Add(' order by A.IONO,A.C_CODE ,A.C_Width,A.C_GramWeight'); + if canshu1 = 'ҵ' then + begin + sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')'); + end; + SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,isnull(A.issp,''''),B.ToCoID'); + SQL.Add(' order by A.C_CODE ,A.C_GramWeight'); // showmessage(sql.text); Open; @@ -194,7 +208,6 @@ begin end; - procedure TfrmTatClothCKHZList.InitGrid2(); var WSql: string; @@ -217,20 +230,18 @@ begin Filtered := False; Close; sql.Clear; - sql.Add('SELECT A.C_CODE,A.C_Name,A.C_Width,A.C_GramWeight,DRMID = '''' '); - sql.Add(',ioTime=min(ioTime),ioType=max(A.ioType) '); - sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); - sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) '); - sql.Add(' ,issp = max(issp) '); + sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight,DRMID = '''' '); +// sql.Add(',ioType=max(A.ioType) '); + sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); + sql.Add(' ,ISNULL(A.issp, '''') as issp '); sql.Add(' FROM V_Tat_Cloth_IO A '); // sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); sql.Add(' where A.IONo not LIKE ''RSG%'' and A.IOFlag = '''' '); sql.Add(WSql); - SQL.Add(' group by A.C_CODE ,A.C_Width,A.C_GramWeight,A.C_Name,A.issp'); - SQL.Add(' order By A.C_CODE ,A.C_Width,A.C_GramWeight'); + SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,ISNULL(A.issp, '''')'); + SQL.Add(' order By A.C_CODE ,A.C_GramWeight'); // SQL.Add(' order by B.DRMID'); - // showmessage(sql.text); Open; end; @@ -319,7 +330,14 @@ procedure TfrmTatClothCKHZList.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); end; procedure TfrmTatClothCKHZList.orderNoKeyPress(Sender: TObject; var Key: Char); @@ -341,12 +359,65 @@ begin lstCust.Clear; end; +procedure TfrmTatClothCKHZList.Tv1DblClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmTatClothCKHZList2 := TfrmTatClothCKHZList2.Create(Application); + with frmTatClothCKHZList2 do + begin + + fEndDateTime := self.EndDate.DateTime; + fBegDateTime := Self.BegDate.DateTime; + +// fDRMID := Self.CDS_1.FieldByName('DRMID').AsString; + fToCoID := Self.CDS_1.FieldByName('ToCoID').AsString; + fC_Name := Self.CDS_1.FieldByName('C_Name').AsString; + fissp := Self.CDS_1.FieldByName('issp').AsString; +// fioType := Self.CDS_1.FieldByName('ioType').AsString; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatClothCKHZList2.Free; + end; +end; + procedure TfrmTatClothCKHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); begin if lstCust <> nil then AText := IntToStr(lstCust.Count); end; +procedure TfrmTatClothCKHZList.Tv2DblClick(Sender: TObject); +begin + if CDS_2.IsEmpty then + Exit; + try + frmTatClothCKHZList3 := TfrmTatClothCKHZList3.Create(Application); + with frmTatClothCKHZList3 do + begin + + fEndDateTime := self.EndDate.DateTime; + fBegDateTime := Self.BegDate.DateTime; + + fC_Name := Self.CDS_2.FieldByName('C_Name').AsString; + fissp := Self.CDS_2.FieldByName('issp').AsString; +// fioType := Self.CDS_1.FieldByName('ioType').AsString; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatClothCKHZList3.Free; + end; +end; + + procedure TfrmTatClothCKHZList.BTNPClick(Sender: TObject); begin if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then @@ -374,12 +445,83 @@ begin InitGrid(); end; -procedure TfrmTatClothCKHZList.N1Click(Sender: TObject); +procedure TfrmTatClothCKHZList.MenuItem1Click(Sender: TObject); begin + SelOKNo(CDS_2, true); +end; + +procedure TfrmTatClothCKHZList.MenuItem2Click(Sender: TObject); +begin + SelOKNo(CDS_2, false); + +end; + +procedure TfrmTatClothCKHZList.MenuItem3Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTatClothCKHZList.MenuItem4Click(Sender: TObject); +begin + + CopyColumnSummaryToClipboard2(TV2.Controller.FocusedColumn); +end; + +procedure TfrmTatClothCKHZList.N1Click(Sender: TObject); +begin SelOKNo(CDS_1, true); end; +procedure TfrmTatClothCKHZList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTatClothCKHZList.N3Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); + +end; + +procedure TfrmTatClothCKHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmTatClothCKHZList.CopyColumnSummaryToClipboard2(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv2; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + procedure TfrmTatClothCKHZList.ToolButton2Click(Sender: TObject); var WSql: string; diff --git a/E04梭织坯布仓库/U_TatClothCKHZList2.dfm b/E04梭织坯布仓库/U_TatClothCKHZList2.dfm new file mode 100644 index 0000000..01a5e51 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothCKHZList2.dfm @@ -0,0 +1,432 @@ +inherited frmTatClothCKHZList2: TfrmTatClothCKHZList2 + Left = 184 + Top = 138 + Caption = #25104#21697#20986#24211#27719#24635#21015#34920'2' + ClientHeight = 600 + ClientWidth = 1540 + Position = poScreenCenter + WindowState = wsMaximized + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatClothStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 13 + Caption = #33267 + end + object Label1: TLabel + Left = 206 + Top = 10 + 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 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 0 + OnClick = IsJYTimeClick + end + object C_Width: TEdit + Tag = 2 + Left = 238 + Top = 6 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 5 + OnKeyPress = C_NameKeyPress + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 105 + Width = 1540 + Height = 495 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + 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 + Column = v1Column10 + 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 + Column = v1Column23 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1PF + end + item + Kind = skSum + Column = Tv1NetWeight + 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 Tv1IOTime: TcxGridDBColumn + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1DRMID: TcxGridDBColumn + Caption = #21457#36135#30003#35831 + DataBinding.FieldName = 'DRMID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object Tv1ToCoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object Tv1C_Width: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1issp: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1C_GramWeight: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column23: TcxGridDBColumn + Caption = #21367#25968 + DataBinding.FieldName = 'js' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column10: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1NetWeight: TcxGridDBColumn + Caption = #20844#26020 + DataBinding.FieldName = 'NetWeight' + 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 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 561 + Top = 208 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 828 + Top = 284 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 728 + Top = 288 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 776 + Top = 284 + end + object PM_1: TPopupMenu + Left = 560 + Top = 384 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end + end +end diff --git a/E04梭织坯布仓库/U_TatClothCKHZList2.pas b/E04梭织坯布仓库/U_TatClothCKHZList2.pas new file mode 100644 index 0000000..83c9772 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothCKHZList2.pas @@ -0,0 +1,418 @@ +unit U_TatClothCKHZList2; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, cxPC, + System.StrUtils, dxScrollbarAnnotations, U_BaseList, System.ImageList, + Vcl.ImgList; + +type + TfrmTatClothCKHZList2 = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + Label1: TLabel; + C_Width: TEdit; + N2: TMenuItem; + N3: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1IOTime: TcxGridDBColumn; + Tv1DRMID: TcxGridDBColumn; + Tv1ToCoName: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1issp: TcxGridDBColumn; + Tv1C_GramWeight: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Tv1NetWeight: TcxGridDBColumn; + Tv1PF: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Tv1C_Width: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + procedure IOTypeChange(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + { Private declarations } + public + fDRMID: string; + fissp: string; + fC_Name: string; + fioType: string; + fToCoID: string; + fEndDateTime,fBegDateTime : TDateTime; + + { Public declarations } + end; + +var + frmTatClothCKHZList2: TfrmTatClothCKHZList2; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmTatClothCKHZList2.SetStatus(); +begin + +end; + +procedure TfrmTatClothCKHZList2.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmTatClothCKHZList2.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmTatClothCKHZList2.InitGrid(); +var + WSql: string; +begin + + 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 := WSql + ' and A.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_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID'); + sql.Add(',CAST(ioTime AS DATE) as ioTime '); + sql.Add(', (SELECT COName FROM BS_Company X WHERE X.CoID = B.ToCoID) as COName'); + sql.Add(' ,COUNT(*) as js, SUM(A.meter) as Meter,SUM(A.NetWeight) as NetWeight '); + sql.Add(', CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) as pf'); + SQL.Add(',ISNULL(A.issp, '''') as issp '); + sql.Add(' FROM V_Tat_Cloth_IO A '); + sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); + sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = '''' '); +// sql.Add(' and (select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame))); + sql.Add(' and A.C_Name = ' + QuotedStr(Trim(fC_Name))); + sql.Add(' and B.ToCoID = ' + QuotedStr(Trim(fToCoID))); + sql.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp))); + sql.Add(WSql); + + SQL.Add(' group by A.C_CODE,A.C_width,A.C_GramWeight,A.IONO,A.C_Name,isnull(A.issp,''''),B.ToCoID,CAST(ioTime AS DATE)'); +// sql.Add(' HAVING(select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame))); + SQL.Add(' order by A.IONO,A.C_CODE,CAST(A.C_width AS INT),A.C_GramWeight,CAST(ioTime AS DATE)'); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + +procedure TfrmTatClothCKHZList2.IOTypeChange(Sender: TObject); +begin + + InitGrid(); +end; + +procedure TfrmTatClothCKHZList2.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmTatClothCKHZList2.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothCKHZList2.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmTatClothCKHZList2.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatClothCKHZList2.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatClothCKHZList2.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTatClothCKHZList2.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatClothCKHZList2.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒ2'); + CurrentPage := 1; + RecordsNumber := 500; +// canshu1 := Trim(Self.fParameters1); + + EndDate.DateTime := fEndDateTime; + BegDate.DateTime := fBegDateTime; + SetStatus(); + + InitGrid(); + +end; + +procedure TfrmTatClothCKHZList2.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); +end; + +procedure TfrmTatClothCKHZList2.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTatClothCKHZList2.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmTatClothCKHZList2.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmTatClothCKHZList2.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmTatClothCKHZList2.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTatClothCKHZList2.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTatClothCKHZList2.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothCKHZList2.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothCKHZList2.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmTatClothCKHZList2.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTatClothCKHZList2.N3Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); +end; + +procedure TfrmTatClothCKHZList2.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmTatClothCKHZList2.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatClothCKHZList2.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒ2'); +end; + +end. + diff --git a/E04梭织坯布仓库/U_TatClothCKHZList3.dfm b/E04梭织坯布仓库/U_TatClothCKHZList3.dfm new file mode 100644 index 0000000..6bb0d02 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothCKHZList3.dfm @@ -0,0 +1,424 @@ +inherited frmTatClothCKHZList3: TfrmTatClothCKHZList3 + Left = 184 + Top = 138 + Caption = #25104#21697#20986#24211#27719#24635#21015#34920'3' + ClientHeight = 600 + ClientWidth = 1540 + Position = poScreenCenter + WindowState = wsMaximized + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatClothStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 13 + Caption = #33267 + end + object Label1: TLabel + Left = 206 + Top = 10 + 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 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 0 + OnClick = IsJYTimeClick + end + object C_Width: TEdit + Tag = 2 + Left = 238 + Top = 6 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 5 + OnKeyPress = C_NameKeyPress + end + end + object cxGrid2: TcxGrid [2] + Left = 0 + Top = 105 + Width = 1540 + Height = 495 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_1 + TabOrder = 2 + object Tv2: TcxGridDBTableView + 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 + Column = cxGridDBColumn9 + 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 + Column = cxGridDBColumn8 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn10 + end + item + Kind = skSum + Column = cxGridDBColumn11 + 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 = #20986#24211#26102#38388 + DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv2issp: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #21367#25968 + DataBinding.FieldName = 'js' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20844#26020 + DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #24179#26041 + DataBinding.FieldName = 'PF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 561 + Top = 208 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 828 + Top = 284 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 728 + Top = 288 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 776 + Top = 284 + end + object PM_1: TPopupMenu + Left = 560 + Top = 384 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end + end +end diff --git a/E04梭织坯布仓库/U_TatClothCKHZList3.pas b/E04梭织坯布仓库/U_TatClothCKHZList3.pas new file mode 100644 index 0000000..2c732d8 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothCKHZList3.pas @@ -0,0 +1,410 @@ +unit U_TatClothCKHZList3; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, cxPC, + System.StrUtils, dxScrollbarAnnotations, U_BaseList, System.ImageList, + Vcl.ImgList; + +type + TfrmTatClothCKHZList3 = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + Label1: TLabel; + C_Width: TEdit; + N2: TMenuItem; + N3: TMenuItem; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + Tv2issp: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + procedure IOTypeChange(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + { Private declarations } + public + + fissp: string; + fC_Name: string; + fioType: string; + fEndDateTime,fBegDateTime : TDateTime; + + { Public declarations } + end; + +var + frmTatClothCKHZList3: TfrmTatClothCKHZList3; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmTatClothCKHZList3.SetStatus(); +begin + +end; + +procedure TfrmTatClothCKHZList3.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmTatClothCKHZList3.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmTatClothCKHZList3.InitGrid(); +var + WSql: string; +begin + + 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 := WSql + ' and A.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_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IOType '); + sql.Add(' ,ioTime=CAST(ioTime AS DATE) '); + sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); + sql.Add(' ,pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) '); + SQL.Add(',issp=isnull(A.issp,'''') '); + sql.Add(' FROM V_Tat_Cloth_IO A '); + sql.Add(' where A.IONo not LIKE ''RSG%'' and A.IOFlag = '''' '); + sql.Add(' and A.C_Name = ' + QuotedStr(Trim(fC_Name))); +// sql.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp))); + sql.Add(WSql); + SQL.Add(' group by A.C_CODE,A.C_width,A.C_GramWeight,A.IOType,A.C_Name,isnull(A.issp,''''),CAST(ioTime AS DATE)'); + SQL.Add(' order by A.C_Name,CAST(A.C_width AS INT),A.C_GramWeight,A.IOType,CAST(ioTime AS DATE)'); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV2.DataController.Filter.Clear; + end; + +end; + +procedure TfrmTatClothCKHZList3.IOTypeChange(Sender: TObject); +begin + + InitGrid(); +end; + +procedure TfrmTatClothCKHZList3.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmTatClothCKHZList3.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothCKHZList3.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmTatClothCKHZList3.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatClothCKHZList3.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatClothCKHZList3.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTatClothCKHZList3.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatClothCKHZList3.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'Ʒ3'); + CurrentPage := 1; + RecordsNumber := 500; +// canshu1 := Trim(Self.fParameters1); + + EndDate.DateTime := fEndDateTime; + BegDate.DateTime := fBegDateTime; + SetStatus(); + + InitGrid(); + +end; + +procedure TfrmTatClothCKHZList3.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid2); + InitGrid(); +end; + +procedure TfrmTatClothCKHZList3.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTatClothCKHZList3.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmTatClothCKHZList3.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmTatClothCKHZList3.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmTatClothCKHZList3.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTatClothCKHZList3.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTatClothCKHZList3.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothCKHZList3.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothCKHZList3.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmTatClothCKHZList3.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTatClothCKHZList3.N3Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV2.Controller.FocusedColumn); +end; + +procedure TfrmTatClothCKHZList3.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv2; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmTatClothCKHZList3.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatClothCKHZList3.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'Ʒ3'); +end; + +end. + diff --git a/E04梭织坯布仓库/U_TatClothCRStkHZList.dfm b/E04梭织坯布仓库/U_TatClothCRStkHZList.dfm new file mode 100644 index 0000000..2d0fa8c --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothCRStkHZList.dfm @@ -0,0 +1,594 @@ +inherited frmTatClothCRStkHZList: TfrmTatClothCRStkHZList + Left = 184 + Top = 138 + Caption = #25104#21697#20986#20837#24211#23384#27719#24635#21015#34920'1' + ClientHeight = 600 + ClientWidth = 1540 + FormStyle = fsMDIChild + Position = poScreenCenter + Visible = True + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatClothStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + ExplicitLeft = -1 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + ExplicitLeft = 1 + ExplicitTop = 33 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 190 + Top = 9 + Width = 39 + Height = 12 + Hint = '0' + Caption = #20135#21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object label11: TLabel + Left = 358 + Top = 9 + 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 Label1: TLabel + Left = 538 + Top = 9 + Width = 48 + Height = 17 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #24494#36719#38597#40657 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 30 + Top = 9 + Width = 52 + Height = 12 + Hint = '0' + Caption = #26597#35810#26085#26399 + 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 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 2 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 3 + end + object C_Name: TEdit + Tag = 2 + Left = 237 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 4 + OnKeyPress = C_NameKeyPress + end + object C_Width: TEdit + Tag = 2 + Left = 390 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 5 + OnKeyPress = C_NameKeyPress + end + object dayDate: TDateTimePicker + Left = 592 + Top = 6 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 6 + end + end + object Panel2: TPanel [2] + Left = 0 + Top = 105 + Width = 1540 + Height = 495 + Align = alClient + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1538 + Height = 493 + 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 = 2 + ExplicitTop = 6 + object cxGrid1DBBandedTableView1: TcxGridDBBandedTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + Bands = < + item + end> + end + object Tv1: TcxGridDBBandedTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = Tv1Column16 + end + item + Kind = skSum + Column = Tv1Column6 + end + item + Kind = skSum + Column = Tv1Column17 + end + item + Kind = skSum + Column = Tv1Column14 + end + item + Kind = skSum + Column = Tv1Column5 + end + item + Kind = skSum + Column = Tv1Column3 + end + item + Kind = skSum + Column = Tv1Column7 + end + item + Kind = skSum + Column = Tv1Column4 + end + item + Kind = skSum + Column = Tv1Column8 + end + item + Kind = skSum + Column = Tv1Column9 + end + item + Kind = skSum + Column = Tv1Column10 + end + item + Kind = skSum + Column = Tv1Column13 + end + item + Kind = skSum + Column = Tv1Column12 + end + item + Kind = skSum + Column = Tv1Column11 + end + item + Kind = skSum + Column = Tv1Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_TatClothStk.Default + Bands = < + item + Caption = #22383#24067#20449#24687 + end + item + Caption = #26412#26399#25910#20837 + end + item + Caption = #26412#26399#21457#20986 + end + item + Caption = #24211#23384 + end + item + Caption = #26085#25910#20837 + end + item + Caption = #26085#21457#20986 + end> + object Tv1Column1: TcxGridDBBandedColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object Tv1Column3: TcxGridDBBandedColumn + Caption = #24179#26041#25968 + DataBinding.FieldName = 'BQOutPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object Tv1Column4: TcxGridDBBandedColumn + Caption = #31859#25968 + DataBinding.FieldName = 'OldStkmeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 3 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object Tv1Column5: TcxGridDBBandedColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BQOutmeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object Tv1Column7: TcxGridDBBandedColumn + Caption = #21367#25968 + DataBinding.FieldName = 'OldStkPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object Tv1Column8: TcxGridDBBandedColumn + Caption = #24179#26041#25968 + DataBinding.FieldName = 'OldStkPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 3 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object Tv1Column9: TcxGridDBBandedColumn + Caption = #20837#24211#21367#25968 + DataBinding.FieldName = 'DayInPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 4 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object Tv1Column10: TcxGridDBBandedColumn + Caption = #20837#24211#31859#25968 + DataBinding.FieldName = 'DayInmeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 4 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object Tv1Column11: TcxGridDBBandedColumn + Caption = #20986#24211#31859#25968 + DataBinding.FieldName = 'DayOutmeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 5 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object Tv1Column12: TcxGridDBBandedColumn + Caption = #20986#24211#21367#25968 + DataBinding.FieldName = 'DayOutPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 5 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object Tv1Column13: TcxGridDBBandedColumn + Caption = #20986#24211#24179#26041#25968 + DataBinding.FieldName = 'DayInPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 4 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object Tv1Column14: TcxGridDBBandedColumn + Caption = #21367#25968 + DataBinding.FieldName = 'BQOutPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object Tv1Column15: TcxGridDBBandedColumn + Caption = #20986#24211#24179#26041#25968 + DataBinding.FieldName = 'DayOutPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 5 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object Tv1Column16: TcxGridDBBandedColumn + Caption = #21367#25968 + DataBinding.FieldName = 'BQInPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object Tv1Column17: TcxGridDBBandedColumn + Caption = #24179#26041#25968 + DataBinding.FieldName = 'BQInPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object Tv1Column6: TcxGridDBBandedColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BQInmeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object Tv1Column2: TcxGridDBBandedColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object Tv1CIssp: TcxGridDBBandedColumn + Caption = #21452#21943 + DataBinding.FieldName = 'Issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 553 + Top = 200 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 740 + Top = 252 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 552 + Top = 272 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 632 + Top = 244 + end + object PM_1: TPopupMenu + Left = 368 + Top = 248 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end + end +end diff --git a/E04梭织坯布仓库/U_TatClothCRStkHZList.pas b/E04梭织坯布仓库/U_TatClothCRStkHZList.pas new file mode 100644 index 0000000..608cd56 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothCRStkHZList.pas @@ -0,0 +1,431 @@ +unit U_TatClothCRStkHZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, + System.StrUtils, dxScrollbarAnnotations; + +type + TfrmTatClothCRStkHZList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + ToolButton4: TToolButton; + Label5: TLabel; + C_Name: TEdit; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + C_Width: TEdit; + label11: TLabel; + Panel2: TPanel; + N2: TMenuItem; + N3: TMenuItem; + Label1: TLabel; + dayDate: TDateTimePicker; + Label3: TLabel; + cxGrid1: TcxGrid; + cxGrid1Level1: TcxGridLevel; + cxGrid1DBBandedTableView1: TcxGridDBBandedTableView; + Tv1: TcxGridDBBandedTableView; + Tv1Column1: TcxGridDBBandedColumn; + Tv1Column3: TcxGridDBBandedColumn; + Tv1Column4: TcxGridDBBandedColumn; + Tv1Column5: TcxGridDBBandedColumn; + Tv1Column7: TcxGridDBBandedColumn; + Tv1Column8: TcxGridDBBandedColumn; + Tv1Column9: TcxGridDBBandedColumn; + Tv1Column10: TcxGridDBBandedColumn; + Tv1Column11: TcxGridDBBandedColumn; + Tv1Column12: TcxGridDBBandedColumn; + Tv1Column13: TcxGridDBBandedColumn; + Tv1Column14: TcxGridDBBandedColumn; + Tv1Column15: TcxGridDBBandedColumn; + Tv1Column16: TcxGridDBBandedColumn; + Tv1Column17: TcxGridDBBandedColumn; + Tv1Column6: TcxGridDBBandedColumn; + Tv1Column2: TcxGridDBBandedColumn; + Tv1CIssp: TcxGridDBBandedColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + + procedure N2Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure N3Click(Sender: TObject); + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + + { Private declarations } + public + canshu1: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint, U_TatClothStkHZList2; + +{$R *.dfm} + +procedure TfrmTatClothCRStkHZList.SetStatus(); +begin + +end; + +procedure TfrmTatClothCRStkHZList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmTatClothCRStkHZList.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; + DayDate.Date := SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmTatClothCRStkHZList.InitGrid(); +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(' exec P_Tat_Cloth_PSC '); + SQL.Add(' @Begdate='+QuotedStr(Trim(FormatDateTime('yyyy-mm-dd', BegDate.Date)))); + SQL.Add(' ,@Enddate='+QuotedStr(Trim(FormatDateTime('yyyy-mm-dd', EndDate.Date)))); + SQL.Add(' ,@dayDate='+QuotedStr(Trim(FormatDateTime('yyyy-mm-dd', dayDate.Date)))); + SQL.Add(' ,@WSql='+QuotedStr(Trim(WSql))); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + + + +procedure TfrmTatClothCRStkHZList.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmTatClothCRStkHZList.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothCRStkHZList.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmTatClothCRStkHZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatClothCRStkHZList.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatClothCRStkHZList.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTatClothCRStkHZList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatClothCRStkHZList.FormShow(Sender: TObject); +begin + inherited; + + ReadCxBandedGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒб1'); + +// Tv1Column2.SortOrder := soNone; + + CurrentPage := 1; + RecordsNumber := 500; + canshu1 := Trim(Self.fParameters1); + + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatClothCRStkHZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); + +end; + +procedure TfrmTatClothCRStkHZList.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTatClothCRStkHZList.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmTatClothCRStkHZList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmTatClothCRStkHZList.Tv1DblClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmTatClothStkHZList2 := TfrmTatClothStkHZList2.Create(Application); + with frmTatClothStkHZList2 do + begin + + fC_Name := Self.CDS_1.FieldByName('C_Name').AsString; + fissp := Self.CDS_1.FieldByName('issp').AsString; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatClothStkHZList2.Free; + end; +end; + +procedure TfrmTatClothCRStkHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmTatClothCRStkHZList.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTatClothCRStkHZList.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTatClothCRStkHZList.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothCRStkHZList.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothCRStkHZList.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmTatClothCRStkHZList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothCRStkHZList.N3Click(Sender: TObject); +begin + + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); +end; + +procedure TfrmTatClothCRStkHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridBandedTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmTatClothCRStkHZList.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatClothCRStkHZList.ToolButton4Click(Sender: TObject); +begin + WriteCxBandedGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒб1'); + +end; + +end. + diff --git a/E04梭织坯布仓库/U_TatClothEDCDLook.dfm b/E04梭织坯布仓库/U_TatClothEDCDLook.dfm new file mode 100644 index 0000000..76c30a9 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothEDCDLook.dfm @@ -0,0 +1,635 @@ +inherited frmTatClothEDCDLook: TfrmTatClothEDCDLook + Left = 184 + Top = 138 + Caption = #20108#31561#30133#28857#27719#24635#21015#34920 + ClientHeight = 600 + ClientWidth = 1540 + Position = poDesigned + WindowState = wsMaximized + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatClothStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 13 + Caption = #33267 + end + object Label5: TLabel + Left = 190 + Top = 10 + Width = 39 + Height = 12 + Hint = '0' + Caption = #20135#21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object label11: TLabel + Left = 358 + Top = 10 + Width = 26 + Height = 12 + Hint = '0' + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + 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 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = IsJYTimeClick + end + object C_Name: TEdit + Tag = 2 + Left = 237 + Top = 6 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 5 + OnKeyPress = C_NameKeyPress + end + object C_GramWeight: TEdit + Tag = 2 + Left = 390 + Top = 6 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 6 + OnKeyPress = C_NameKeyPress + end + object C_width: TEdit + Tag = 2 + Left = 237 + Top = 32 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 7 + OnKeyPress = C_NameKeyPress + end + end + object Panel2: TPanel [2] + Left = 0 + Top = 105 + Width = 1540 + Height = 495 + Align = alClient + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 1538 + Height = 493 + 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 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 + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 553 + Top = 200 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 708 + Top = 156 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 608 + Top = 136 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 552 + Top = 140 + end + object PM_1: TPopupMenu + Left = 368 + Top = 248 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 552 + Top = 276 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 708 + Top = 292 + end +end diff --git a/E04梭织坯布仓库/U_TatClothEDCDLook.pas b/E04梭织坯布仓库/U_TatClothEDCDLook.pas new file mode 100644 index 0000000..8111ed0 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothEDCDLook.pas @@ -0,0 +1,420 @@ +unit U_TatClothEDCDLook; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, cxPC, + System.StrUtils, dxScrollbarAnnotations, U_BaseList, System.ImageList, + Vcl.ImgList; + +type + TfrmTatClothEDCDLook = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + Label5: TLabel; + C_Name: TEdit; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + C_GramWeight: TEdit; + label12: TLabel; + C_width: TEdit; + label11: TLabel; + Panel2: TPanel; + 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; + N2: TMenuItem; + N3: TMenuItem; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + + { Private declarations } + public + fC_Name: string; + fissp : string; + { Public declarations } + end; + +var + frmTatClothEDCDLook: TfrmTatClothEDCDLook; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmTatClothEDCDLook.SetStatus(); +begin + +end; + +procedure TfrmTatClothEDCDLook.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmTatClothEDCDLook.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmTatClothEDCDLook.InitGrid(); +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('from V_TatClothEDCD A where 1=1 and C_NAME = ' + QuotedStr(Trim(fC_Name))); + if fissp <> '' then + begin + SQL.Add(' and issp = ''˫''' ); + end + else + begin + SQL.Add(' and issp <> ''˫'' ' ); + end; + + + + 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, A.C_width,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 TfrmTatClothEDCDLook.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmTatClothEDCDLook.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothEDCDLook.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmTatClothEDCDLook.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatClothEDCDLook.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatClothEDCDLook.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTatClothEDCDLook.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatClothEDCDLook.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'Ʒ'); + CurrentPage := 1; + RecordsNumber := 500; + + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatClothEDCDLook.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + with CDS_2 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid2); + InitGrid(); +end; + +procedure TfrmTatClothEDCDLook.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTatClothEDCDLook.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_2, false); +end; + +procedure TfrmTatClothEDCDLook.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmTatClothEDCDLook.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmTatClothEDCDLook.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTatClothEDCDLook.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTatClothEDCDLook.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothEDCDLook.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothEDCDLook.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_2, true); +end; + +procedure TfrmTatClothEDCDLook.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothEDCDLook.N3Click(Sender: TObject); +begin + + CopyColumnSummaryToClipboard(TV2.Controller.FocusedColumn); +end; + +procedure TfrmTatClothEDCDLook.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv2; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmTatClothEDCDLook.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatClothEDCDLook.ToolButton4Click(Sender: TObject); +begin + + WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'Ʒ'); +end; + +end. + diff --git a/E04梭织坯布仓库/U_TatClothInList.dfm b/E04梭织坯布仓库/U_TatClothInList.dfm index ae65ae1..b45c100 100644 --- a/E04梭织坯布仓库/U_TatClothInList.dfm +++ b/E04梭织坯布仓库/U_TatClothInList.dfm @@ -222,7 +222,7 @@ inherited frmTatClothInList: TfrmTatClothInList ParentFont = False end object Label1: TLabel - Left = 847 + Left = 843 Top = 10 Width = 39 Height = 12 @@ -236,7 +236,7 @@ inherited frmTatClothInList: TfrmTatClothInList ParentFont = False end object Label4: TLabel - Left = 847 + Left = 843 Top = 36 Width = 26 Height = 12 @@ -250,7 +250,7 @@ inherited frmTatClothInList: TfrmTatClothInList ParentFont = False end object Label8: TLabel - Left = 1012 + Left = 1008 Top = 9 Width = 52 Height = 12 @@ -263,6 +263,20 @@ inherited frmTatClothInList: TfrmTatClothInList Font.Style = [fsBold] ParentFont = False end + object Label6: TLabel + Left = 1008 + Top = 36 + Width = 26 + Height = 12 + Hint = '0' + Caption = #31561#32423 + 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 @@ -341,7 +355,7 @@ inherited frmTatClothInList: TfrmTatClothInList end object STKID: TEdit Tag = 2 - Left = 716 + Left = 712 Top = 32 Width = 100 Height = 20 @@ -371,7 +385,7 @@ inherited frmTatClothInList: TfrmTatClothInList end object jyg: TEdit Tag = 2 - Left = 716 + Left = 712 Top = 6 Width = 100 Height = 20 @@ -401,7 +415,7 @@ inherited frmTatClothInList: TfrmTatClothInList end object carno: TEdit Tag = 1 - Left = 892 + Left = 882 Top = 6 Width = 100 Height = 20 @@ -411,7 +425,7 @@ inherited frmTatClothInList: TfrmTatClothInList end object dept: TEdit Tag = 2 - Left = 892 + Left = 882 Top = 32 Width = 100 Height = 20 @@ -421,7 +435,7 @@ inherited frmTatClothInList: TfrmTatClothInList end object IOType: TComboBox Tag = 1 - Left = 1070 + Left = 1061 Top = 6 Width = 100 Height = 20 @@ -433,6 +447,16 @@ inherited frmTatClothInList: TfrmTatClothInList #38144#21806#20986#24211 #26399#21021#20837#24211) end + object Grade: TEdit + Tag = 2 + Left = 1061 + Top = 32 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 16 + OnKeyPress = carnoKeyPress + end end object Panel6: TPanel [2] Left = 0 @@ -828,6 +852,13 @@ inherited frmTatClothInList: TfrmTatClothInList Options.Editing = False Width = 66 end + object Tv1FlawList: TcxGridDBColumn + Caption = #30133#28857#24773#20917 + DataBinding.FieldName = 'FlawList' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object v1Column46: TcxGridDBColumn Caption = #26816#39564#26426#21488 DataBinding.FieldName = 'CIMachNo' @@ -986,5 +1017,9 @@ inherited frmTatClothInList: TfrmTatClothInList Caption = #22797#21046 OnClick = N2Click end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end end end diff --git a/E04梭织坯布仓库/U_TatClothInList.pas b/E04梭织坯布仓库/U_TatClothInList.pas index 67f1d41..241bd4e 100644 --- a/E04梭织坯布仓库/U_TatClothInList.pas +++ b/E04梭织坯布仓库/U_TatClothInList.pas @@ -110,6 +110,10 @@ type IOType: TComboBox; Label8: TLabel; Tv1issp: TcxGridDBColumn; + Tv1FlawList: TcxGridDBColumn; + Label6: TLabel; + Grade: TEdit; + N3: TMenuItem; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -136,11 +140,13 @@ type procedure N2Click(Sender: TObject); procedure carnoKeyPress(Sender: TObject; var Key: Char); procedure IOTypeChange(Sender: TObject); + procedure N3Click(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); { Private declarations } public canshu1, canshu2, FWorkshop: string; @@ -276,7 +282,14 @@ procedure TfrmTatClothInList.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); end; procedure TfrmTatClothInList.orderNoKeyPress(Sender: TObject; var Key: Char); @@ -449,6 +462,30 @@ begin Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); end; +procedure TfrmTatClothInList.N3Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); +end; + +procedure TfrmTatClothInList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + procedure TfrmTatClothInList.ToolButton1Click(Sender: TObject); begin if CDS_1.IsEmpty then diff --git a/E04梭织坯布仓库/U_TatClothOutList.dfm b/E04梭织坯布仓库/U_TatClothOutList.dfm index 01b867a..2e60c2d 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.dfm +++ b/E04梭织坯布仓库/U_TatClothOutList.dfm @@ -138,7 +138,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList ParentFont = False end object Label7: TLabel - Left = 525 + Left = 522 Top = 10 Width = 26 Height = 12 @@ -152,7 +152,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList ParentFont = False end object Label10: TLabel - Left = 671 + Left = 668 Top = 36 Width = 39 Height = 12 @@ -180,7 +180,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList ParentFont = False end object Label20: TLabel - Left = 525 + Left = 522 Top = 36 Width = 26 Height = 12 @@ -208,7 +208,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList ParentFont = False end object Label1: TLabel - Left = 671 + Left = 668 Top = 10 Width = 39 Height = 12 @@ -222,7 +222,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList ParentFont = False end object Label4: TLabel - Left = 831 + Left = 828 Top = 10 Width = 39 Height = 12 @@ -236,7 +236,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList ParentFont = False end object Label6: TLabel - Left = 831 + Left = 828 Top = 36 Width = 26 Height = 12 @@ -249,6 +249,48 @@ inherited frmTatClothOutList: TfrmTatClothOutList Font.Style = [fsBold] ParentFont = False end + object Label8: TLabel + Left = 988 + Top = 10 + 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 Label9: TLabel + Left = 988 + Top = 36 + Width = 26 + Height = 12 + Hint = '0' + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 1133 + Top = 10 + Width = 52 + Height = 12 + Hint = '0' + Caption = #20986#24211#21333#21495 + 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 @@ -317,7 +359,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList end object conNO: TEdit Tag = 2 - Left = 409 + Left = 406 Top = 6 Width = 100 Height = 20 @@ -327,7 +369,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList end object STKID: TEdit Tag = 2 - Left = 711 + Left = 708 Top = 32 Width = 100 Height = 20 @@ -337,7 +379,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList end object C_Name: TEdit Tag = 2 - Left = 409 + Left = 406 Top = 32 Width = 100 Height = 20 @@ -347,7 +389,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList end object C_Color: TEdit Tag = 2 - Left = 553 + Left = 550 Top = 6 Width = 100 Height = 20 @@ -357,7 +399,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList end object C_Pattern: TEdit Tag = 2 - Left = 553 + Left = 550 Top = 32 Width = 100 Height = 20 @@ -377,7 +419,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList end object jyg: TEdit Tag = 2 - Left = 711 + Left = 708 Top = 6 Width = 100 Height = 20 @@ -387,7 +429,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList end object carno: TEdit Tag = 1 - Left = 871 + Left = 868 Top = 6 Width = 100 Height = 20 @@ -397,7 +439,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList end object dept: TEdit Tag = 2 - Left = 871 + Left = 868 Top = 32 Width = 100 Height = 20 @@ -405,6 +447,36 @@ inherited frmTatClothOutList: TfrmTatClothOutList TabOrder = 14 OnKeyPress = orderNoKeyPress end + object C_Width: TEdit + Tag = 2 + Left = 1018 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 15 + OnKeyPress = orderNoKeyPress + end + object C_GramWeight: TEdit + Tag = 2 + Left = 1018 + Top = 32 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 16 + OnKeyPress = orderNoKeyPress + end + object IONO: TEdit + Tag = 2 + Left = 1189 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 17 + OnKeyPress = orderNoKeyPress + end end object Panel6: TPanel [2] Tag = 2 @@ -937,5 +1009,9 @@ inherited frmTatClothOutList: TfrmTatClothOutList Caption = #22797#21046 OnClick = N3Click end + object N4: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N4Click + end end end diff --git a/E04梭织坯布仓库/U_TatClothOutList.pas b/E04梭织坯布仓库/U_TatClothOutList.pas index b94a816..f128f55 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.pas +++ b/E04梭织坯布仓库/U_TatClothOutList.pas @@ -105,6 +105,13 @@ type Label6: TLabel; dept: TEdit; Tv1issp: TcxGridDBColumn; + Label8: TLabel; + Label9: TLabel; + C_Width: TEdit; + C_GramWeight: TEdit; + Label11: TLabel; + IONO: TEdit; + N4: TMenuItem; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -130,11 +137,13 @@ type procedure N1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); { Private declarations } public canshu1, canshu2, FWorkshop: string; @@ -267,7 +276,14 @@ procedure TfrmTatClothOutList.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); end; procedure TfrmTatClothOutList.orderNoKeyPress(Sender: TObject; var Key: Char); @@ -459,6 +475,30 @@ begin Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); end; +procedure TfrmTatClothOutList.N4Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); +end; + +procedure TfrmTatClothOutList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + procedure TfrmTatClothOutList.ToolButton1Click(Sender: TObject); begin if CDS_1.IsEmpty then diff --git a/E04梭织坯布仓库/U_TatClothRKHZList.dfm b/E04梭织坯布仓库/U_TatClothRKHZList.dfm index 896b5aa..8a5524a 100644 --- a/E04梭织坯布仓库/U_TatClothRKHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothRKHZList.dfm @@ -281,7 +281,9 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList ParentFont = False PopupMenu = PM_1 TabOrder = 2 + ExplicitTop = 111 object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 @@ -379,6 +381,26 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList item Kind = skSum Column = Tv1Column19 + end + item + Kind = skSum + Column = Tv1xjPF + end + item + Kind = skSum + Column = Tv1fqPF + end + item + Kind = skSum + Column = Tv1csPF + end + item + Kind = skSum + Column = Tv1edPF + end + item + Kind = skSum + Column = Tv1YdPF end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False @@ -414,6 +436,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'issp' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1IOType: TcxGridDBColumn @@ -421,34 +444,23 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'IOType' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end - object Tv1Column2: TcxGridDBColumn - Caption = #38376#24133 - DataBinding.FieldName = 'C_width' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 72 - end object Tv1Column4: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 66 end - object Tv1Column5: TcxGridDBColumn - Caption = #27969#36716#21345#21495 - DataBinding.FieldName = 'pcid' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 68 - 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 @@ -456,6 +468,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'Ydqty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1YdPF: TcxGridDBColumn @@ -463,6 +476,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'YdPF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column7: TcxGridDBColumn @@ -470,6 +484,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'edJS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column8: TcxGridDBColumn @@ -477,6 +492,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'edqty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1edPF: TcxGridDBColumn @@ -484,6 +500,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'edPF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column9: TcxGridDBColumn @@ -491,6 +508,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'xjJS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column10: TcxGridDBColumn @@ -498,6 +516,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'xjqty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1xjPF: TcxGridDBColumn @@ -505,6 +524,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'xjPF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column13: TcxGridDBColumn @@ -512,6 +532,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'fqJS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column14: TcxGridDBColumn @@ -519,6 +540,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'fqqty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1fqPF: TcxGridDBColumn @@ -526,6 +548,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'fqPF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column17: TcxGridDBColumn @@ -533,6 +556,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'csJS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column18: TcxGridDBColumn @@ -540,6 +564,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'csqty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1csPF: TcxGridDBColumn @@ -547,6 +572,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'csPF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column19: TcxGridDBColumn @@ -554,6 +580,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList DataBinding.FieldName = 'pf' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 71 end end @@ -622,5 +649,13 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList Caption = #20840#24323 OnClick = PM11Click end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end end end diff --git a/E04梭织坯布仓库/U_TatClothRKHZList.pas b/E04梭织坯布仓库/U_TatClothRKHZList.pas index 5ad4fe3..39a69d5 100644 --- a/E04梭织坯布仓库/U_TatClothRKHZList.pas +++ b/E04梭织坯布仓库/U_TatClothRKHZList.pas @@ -45,9 +45,7 @@ type PM_1: TPopupMenu; PM11: TMenuItem; N1: TMenuItem; - Tv1Column2: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; - Tv1Column5: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; @@ -74,6 +72,8 @@ type Tv1xjPF: TcxGridDBColumn; Tv1fqPF: TcxGridDBColumn; Tv1csPF: TcxGridDBColumn; + N2: TMenuItem; + N3: TMenuItem; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -98,11 +98,15 @@ type procedure IsJYTimeClick(Sender: TObject); procedure C_NameKeyPress(Sender: TObject; var Key: Char); procedure IOTypeChange(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); { Private declarations } public canshu1: string; @@ -112,7 +116,7 @@ type implementation uses - U_DataLink, U_RTFun, U_LabelPrint; + U_DataLink, U_RTFun, U_LabelPrint, U_TatClothRKHZList2; {$R *.dfm} @@ -159,7 +163,8 @@ begin Close; sql.Clear; - sql.Add('select C_NAME, C_width,C_GramWeight,pcid,max(IOType) as IOType '); +// sql.Add('select C_NAME, C_width,C_GramWeight,pcid,max(IOType) as IOType '); + sql.Add('select C_NAME,C_GramWeight,IOType '); SQL.Add(',pf=SUM(meter/100*CAST(C_WIDTH AS DECIMAL(18,2)))'); SQL.Add(',SUM(CASE WHEN GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); SQL.Add(',SUM(CASE WHEN GRADE=''ŵƷ'' THEN meter ELSE 0 END )AS Ydqty'); @@ -187,11 +192,13 @@ begin SQL.Add(',SUM(CASE WHEN GRADE='''' THEN meter ELSE 0 END )AS csqty'); SQL.Add(',SUM(CASE WHEN GRADE='''' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF'); - sql.Add(',max(issp) as issp '); + sql.Add(',issp=isnull(A.issp,'''') '); SQL.Add('from V_Tat_Cloth_IO A where (A.IOFlag = '''' ) ' + WSql); - sql.Add('group by C_NAME, C_width,C_GramWeight,pcid,issp'); - sql.Add('Order by C_NAME, C_width,C_GramWeight '); +// sql.Add('group by C_NAME, C_width,C_GramWeight,pcid,isnull(A.issp,'''')'); + sql.Add('group by C_NAME, IOType,C_GramWeight,isnull(A.issp,'''')'); +// sql.Add('Order by C_NAME, C_width,C_GramWeight '); + sql.Add('Order by C_NAME, IOType,C_GramWeight '); // showmessage(sql.text); Open; end; @@ -280,7 +287,14 @@ procedure TfrmTatClothRKHZList.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); end; procedure TfrmTatClothRKHZList.orderNoKeyPress(Sender: TObject; var Key: Char); @@ -302,6 +316,28 @@ begin lstCust.Clear; end; +procedure TfrmTatClothRKHZList.Tv1DblClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmTatClothRKHZList2 := TfrmTatClothRKHZList2.Create(Application); + with frmTatClothRKHZList2 do + begin + + fC_Name := Self.CDS_1.FieldByName('C_Name').AsString; + fissp := Self.CDS_1.FieldByName('issp').AsString; + fioType := Self.CDS_1.FieldByName('ioType').AsString; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatClothRKHZList2.Free; + end; +end; + procedure TfrmTatClothRKHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); begin if lstCust <> nil then @@ -341,6 +377,35 @@ begin SelOKNo(CDS_1, true); end; +procedure TfrmTatClothRKHZList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTatClothRKHZList.N3Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); +end; + +procedure TfrmTatClothRKHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + procedure TfrmTatClothRKHZList.ToolButton2Click(Sender: TObject); var WSql: string; diff --git a/E04梭织坯布仓库/U_TatClothRKHZList2.dfm b/E04梭织坯布仓库/U_TatClothRKHZList2.dfm new file mode 100644 index 0000000..3e2da22 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothRKHZList2.dfm @@ -0,0 +1,676 @@ +inherited frmTatClothRKHZList2: TfrmTatClothRKHZList2 + Left = 184 + Top = 138 + Caption = #25104#21697#20837#24211#27719#24635#21015#34920'2' + ClientHeight = 600 + ClientWidth = 1540 + Position = poScreenCenter + WindowState = wsMaximized + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatClothStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + ExplicitTop = 32 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 13 + Caption = #33267 + end + object Label5: TLabel + Left = 190 + Top = 10 + Width = 39 + Height = 12 + Hint = '0' + Caption = #20135#21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 358 + Top = 10 + 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 Label3: TLabel + Left = 190 + Top = 36 + Width = 26 + Height = 12 + Hint = '0' + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 534 + Top = 10 + Width = 52 + Height = 12 + Hint = '0' + Caption = #20837#24211#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 358 + Top = 36 + Width = 52 + Height = 12 + Hint = '0' + Caption = #27969#36716#21345#21495 + 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 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 0 + OnClick = IsJYTimeClick + end + object C_Name: TEdit + Tag = 2 + Left = 237 + Top = 6 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 5 + OnKeyPress = C_NameKeyPress + end + object C_Width: TEdit + Tag = 2 + Left = 415 + Top = 6 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 6 + OnKeyPress = C_NameKeyPress + end + object C_GramWeight: TEdit + Tag = 2 + Left = 237 + Top = 32 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 7 + OnKeyPress = C_NameKeyPress + end + object IOType: TComboBox + Tag = 2 + Left = 591 + Top = 6 + Width = 100 + Height = 21 + TabOrder = 8 + OnChange = IOTypeChange + Items.Strings = ( + #26816#39564#20837#24211 + #26399#21021#20837#24211 + #27979#35797#20837#24211 + #36864#36135#20837#24211) + end + object PCID: TEdit + Tag = 2 + Left = 415 + Top = 32 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 9 + OnKeyPress = C_NameKeyPress + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 105 + Width = 1540 + Height = 495 + 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 = 2 + ExplicitTop = 111 + object Tv1: TcxGridDBTableView + 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 + Column = Tv1Column13 + end + item + Kind = skSum + Column = Tv1Column14 + end + item + Kind = skSum + Column = Tv1Column17 + end + item + Kind = skSum + Column = Tv1Column18 + end + item + Kind = skSum + Column = Tv1Column19 + end + item + Kind = skSum + Column = Tv1xjPF + end + item + Kind = skSum + Column = Tv1fqPF + end + item + Kind = skSum + Column = Tv1csPF + end + item + Kind = skSum + Column = Tv1edPF + end + item + Kind = skSum + Column = Tv1YdPF + 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 Tv1Column2: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object Tv1issp: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1IOType: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'IOType' + 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 Tv1Column5: TcxGridDBColumn + Caption = #27969#36716#21345#21495 + DataBinding.FieldName = 'pcid' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + 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 Tv1Column19: TcxGridDBColumn + Caption = #24179#26041 + DataBinding.FieldName = 'pf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 561 + Top = 208 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 828 + Top = 284 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 728 + Top = 288 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 776 + Top = 284 + end + object PM_1: TPopupMenu + Left = 560 + Top = 384 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end + end +end diff --git a/E04梭织坯布仓库/U_TatClothRKHZList2.pas b/E04梭织坯布仓库/U_TatClothRKHZList2.pas new file mode 100644 index 0000000..736e71b --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothRKHZList2.pas @@ -0,0 +1,460 @@ +unit U_TatClothRKHZList2; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, cxPC, + System.StrUtils, dxScrollbarAnnotations, U_BaseList, System.ImageList, + Vcl.ImgList; +type + TfrmTatClothRKHZList2 = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label5: TLabel; + C_Name: TEdit; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + Tv1Column2: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + Tv1Column19: TcxGridDBColumn; + Label1: TLabel; + C_Width: TEdit; + Label3: TLabel; + C_GramWeight: TEdit; + Tv1IOType: TcxGridDBColumn; + IOType: TComboBox; + Label4: TLabel; + Label6: TLabel; + PCID: TEdit; + Tv1issp: TcxGridDBColumn; + Tv1YdPF: TcxGridDBColumn; + Tv1edPF: TcxGridDBColumn; + Tv1xjPF: TcxGridDBColumn; + Tv1fqPF: TcxGridDBColumn; + Tv1csPF: TcxGridDBColumn; + N2: TMenuItem; + N3: TMenuItem; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + procedure IOTypeChange(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + { Private declarations } + public + fissp : string; + fC_Name: string; + fioType : string; + { Public declarations } + end; + +var + frmTatClothRKHZList2: TfrmTatClothRKHZList2; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmTatClothRKHZList2.SetStatus(); +begin + +end; + +procedure TfrmTatClothRKHZList2.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmTatClothRKHZList2.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmTatClothRKHZList2.InitGrid(); +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 C_NAME, C_width,C_GramWeight,pcid,max(IOType) as IOType '); + sql.Add('select C_NAME,C_GramWeight,pcid,iotype,C_WIDTH '); + SQL.Add(',pf=SUM(meter/100*CAST(C_WIDTH AS DECIMAL(18,2)))'); + SQL.Add(',SUM(CASE WHEN GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); + SQL.Add(',SUM(CASE WHEN GRADE=''ŵƷ'' THEN meter ELSE 0 END )AS Ydqty'); + SQL.Add(',SUM(CASE WHEN GRADE=''ŵƷ'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF'); + + SQL.Add(',SUM(CASE WHEN GRADE=''Ʒ'' THEN 1 ELSE 0 END )AS edJS'); + SQL.Add(',SUM(CASE WHEN GRADE=''Ʒ'' THEN meter ELSE 0 END )AS edqty'); + SQL.Add(',SUM(CASE WHEN GRADE=''Ʒ'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF'); + + SQL.Add(',SUM(CASE WHEN GRADE=''С'' THEN 1 ELSE 0 END )AS xjJS'); + SQL.Add(',SUM(CASE WHEN GRADE=''С'' THEN meter ELSE 0 END )AS xjqty'); + SQL.Add(',SUM(CASE WHEN GRADE=''С'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF'); + + SQL.Add(',SUM(CASE WHEN GRADE=''ϲ'' THEN 1 ELSE 0 END )AS fbJS'); + SQL.Add(',SUM(CASE WHEN GRADE=''ϲ'' THEN 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 GRADE='''' THEN 1 ELSE 0 END )AS fqJS'); + SQL.Add(',SUM(CASE WHEN GRADE='''' THEN meter ELSE 0 END )AS fqqty'); + SQL.Add(',SUM(CASE WHEN GRADE='''' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF'); + + SQL.Add(',SUM(CASE WHEN GRADE=''ѭ'' THEN 1 ELSE 0 END )AS xhJS'); + SQL.Add(',SUM(CASE WHEN GRADE=''ѭ'' THEN meter ELSE 0 END )AS xhqty'); + SQL.Add(',SUM(CASE WHEN GRADE='''' THEN 1 ELSE 0 END )AS csJS'); + SQL.Add(',SUM(CASE WHEN GRADE='''' THEN meter ELSE 0 END )AS csqty'); + SQL.Add(',SUM(CASE WHEN GRADE='''' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF'); + + sql.Add(',issp=isnull(A.issp,'''') '); + SQL.Add('from V_Tat_Cloth_IO A where (A.IOFlag = '''' ) ' + WSql); + sql.Add(' and C_NAME=' + QuotedStr(Trim(fC_Name))); + sql.Add(' and ioType=' + QuotedStr(Trim(fioType))); + + if fissp <> '' then + begin + SQL.Add(' and isnull(issp,'''') = ''˫''' ); + end + else + begin + SQL.Add(' and isnull(issp,'''') <> ''˫'' ' ); + end; + + sql.Add('group by C_NAME, C_width,C_GramWeight,IOType,pcid,isnull(A.issp,'''')'); +// 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); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + +procedure TfrmTatClothRKHZList2.IOTypeChange(Sender: TObject); +begin + + InitGrid(); +end; + +procedure TfrmTatClothRKHZList2.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmTatClothRKHZList2.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothRKHZList2.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmTatClothRKHZList2.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatClothRKHZList2.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatClothRKHZList2.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTatClothRKHZList2.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatClothRKHZList2.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒ2'); + CurrentPage := 1; + RecordsNumber := 500; +// canshu1 := Trim(Self.fParameters1); + + EndDate.DateTime := SGetServerDate(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; + SetStatus(); + + InitGrid(); + +end; + +procedure TfrmTatClothRKHZList2.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); +end; + +procedure TfrmTatClothRKHZList2.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTatClothRKHZList2.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmTatClothRKHZList2.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmTatClothRKHZList2.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmTatClothRKHZList2.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTatClothRKHZList2.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTatClothRKHZList2.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothRKHZList2.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothRKHZList2.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmTatClothRKHZList2.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTatClothRKHZList2.N3Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); +end; + +procedure TfrmTatClothRKHZList2.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmTatClothRKHZList2.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatClothRKHZList2.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒ2'); +end; + +end. + diff --git a/E04梭织坯布仓库/U_TatClothStkHZList.dfm b/E04梭织坯布仓库/U_TatClothStkHZList.dfm index bd3e3e8..c2eac1d 100644 --- a/E04梭织坯布仓库/U_TatClothStkHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothStkHZList.dfm @@ -1,7 +1,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Left = 184 Top = 138 - Caption = #25104#21697#24211#23384#27719#24635#21015#34920 + Caption = #25104#21697#24211#23384#27719#24635#21015#34920'1' ClientHeight = 600 ClientWidth = 1540 FormStyle = fsMDIChild @@ -19,7 +19,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Height = 38 AutoSize = True ButtonHeight = 38 - ButtonWidth = 91 + ButtonWidth = 115 Caption = 'ToolBar1' Color = clWhite Font.Charset = GB2312_CHARSET @@ -33,7 +33,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitTop = 2 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -50,16 +49,23 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList ImageIndex = 20 OnClick = TBExportClick end - object ToolButton4: TToolButton + object ToolButton1: TToolButton Left = 142 Top = 0 AutoSize = True + Caption = #20108#31561#27719#24635#26597#30475 + ImageIndex = 8 + end + object ToolButton4: TToolButton + Left = 261 + Top = 0 + AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 OnClick = ToolButton4Click end object TBClose: TToolButton - Left = 237 + Left = 356 Top = 0 AutoSize = True Caption = #20851#38381 @@ -78,7 +84,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitTop = 32 object Label2: TLabel Left = 70 Top = 36 @@ -114,20 +119,6 @@ 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 @@ -203,309 +194,342 @@ 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 cxGrid1: TcxGrid [2] + object Panel2: TPanel [2] Left = 0 Top = 105 Width = 1540 Height = 495 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 = 2 ExplicitTop = 111 - object Tv1: TcxGridDBTableView - 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 cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1538 + Height = 493 + 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 - item - Kind = skSum + object Tv1Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 end - item - Kind = skCount + object Tv1issp: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum + object Tv1Column4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 end - item - Kind = skSum + object Tv1Column6: TcxGridDBColumn + Caption = #20248#31561#21367#25968 + DataBinding.FieldName = 'YDJs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 end - item - Kind = skSum + object Tv1Column1: TcxGridDBColumn + Caption = #20248#31561#31859#25968 + DataBinding.FieldName = 'Ydqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum + object Tv1YdPF: TcxGridDBColumn + Caption = #20248#31561#24179#26041 + DataBinding.FieldName = 'YdPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum + object Tv1Column7: TcxGridDBColumn + Caption = #20108#31561#21367#25968 + DataBinding.FieldName = 'edJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum + object Tv1Column8: TcxGridDBColumn + Caption = #20108#31561#31859#25968 + DataBinding.FieldName = 'edqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Format = #26816#39564#31995#25968'=#.##' - Kind = skAverage + object Tv1edPF: TcxGridDBColumn + Caption = #20108#31561#24179#26041 + DataBinding.FieldName = 'edPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Format = #25442#31639#31995#25968'=#.##' - Kind = skAverage + object Tv1Column9: TcxGridDBColumn + Caption = #23567#21367#21367#25968 + DataBinding.FieldName = 'xjJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum + object Tv1Column10: TcxGridDBColumn + Caption = #23567#21367#25968#37327 + DataBinding.FieldName = 'xjqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum + object Tv1xjPF: TcxGridDBColumn + Caption = #23567#21367#24179#26041 + DataBinding.FieldName = 'xjPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum + object Tv1Column13: TcxGridDBColumn + Caption = #20998#20999#21367#25968 + DataBinding.FieldName = 'fqJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum + object Tv1Column14: TcxGridDBColumn + Caption = #20998#20999#24067#25968#37327 + DataBinding.FieldName = 'fqqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum - Column = Tv1Column6 + object Tv1fqPF: TcxGridDBColumn + Caption = #20998#20999#24179#26041 + DataBinding.FieldName = 'fqPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum - Column = Tv1Column1 + object Tv1Column17: TcxGridDBColumn + Caption = #27979#35797#21367#25968 + DataBinding.FieldName = 'csJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum - Column = Tv1Column7 + object Tv1Column18: TcxGridDBColumn + Caption = #27979#35797#25968#37327 + DataBinding.FieldName = 'csqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum - Column = Tv1Column8 + object Tv1csPF: TcxGridDBColumn + Caption = #27979#35797#24179#26041 + DataBinding.FieldName = 'csPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum - Column = Tv1Column9 + object Tv1pf: TcxGridDBColumn + Caption = #24179#26041 + DataBinding.FieldName = 'pf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 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 - Column = Tv1Column19 - 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 + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 end - object Tv1issp: TcxGridDBColumn - Caption = #21452#21943 - DataBinding.FieldName = 'issp' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column2: TcxGridDBColumn - Caption = #38376#24133 - DataBinding.FieldName = 'C_width' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 72 - end - object Tv1Column4: TcxGridDBColumn - Caption = #20811#37325 - DataBinding.FieldName = 'C_GramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 66 - end - object Tv1Column6: TcxGridDBColumn - Caption = #20248#31561#21367#25968 - DataBinding.FieldName = 'YDJs' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 74 - end - object Tv1Column1: TcxGridDBColumn - Caption = #20248#31561#31859#25968 - DataBinding.FieldName = 'Ydqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column5: TcxGridDBColumn - Caption = #20248#31561#24179#26041 - DataBinding.FieldName = 'YdPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column7: TcxGridDBColumn - Caption = #20108#31561#21367#25968 - DataBinding.FieldName = 'edJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column8: TcxGridDBColumn - Caption = #20108#31561#31859#25968 - DataBinding.FieldName = 'edqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column11: TcxGridDBColumn - Caption = #20108#31561#24179#26041 - DataBinding.FieldName = 'edPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column9: TcxGridDBColumn - Caption = #23567#21367#21367#25968 - DataBinding.FieldName = 'xjJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column10: TcxGridDBColumn - Caption = #23567#21367#25968#37327 - DataBinding.FieldName = 'xjqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column12: TcxGridDBColumn - Caption = #23567#21367#24179#26041 - DataBinding.FieldName = 'xjPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column13: TcxGridDBColumn - Caption = #20998#20999#21367#25968 - DataBinding.FieldName = 'fqJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column14: TcxGridDBColumn - Caption = #20998#20999#24067#25968#37327 - DataBinding.FieldName = 'fqqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column15: TcxGridDBColumn - Caption = #20998#20999#24179#26041 - DataBinding.FieldName = 'fqPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column17: TcxGridDBColumn - Caption = #27979#35797#21367#25968 - DataBinding.FieldName = 'csJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column18: TcxGridDBColumn - Caption = #27979#35797#25968#37327 - DataBinding.FieldName = 'csqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column16: TcxGridDBColumn - Caption = #27979#35797#24179#26041 - DataBinding.FieldName = 'csPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column19: TcxGridDBColumn - Caption = #24179#26041 - DataBinding.FieldName = 'pf' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 71 - end - end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 end end inherited ADOQueryBaseCmd: TADOQuery @@ -542,25 +566,25 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList end object DS_1: TDataSource DataSet = CDS_1 - Left = 828 - Top = 284 + Left = 708 + Top = 156 end object GPM_1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> - Left = 728 - Top = 288 + Left = 608 + Top = 136 end object CDS_1: TClientDataSet Aggregates = <> Params = <> BeforeOpen = CDS_1BeforeOpen - Left = 776 - Top = 284 + Left = 552 + Top = 140 end object PM_1: TPopupMenu - Left = 560 - Top = 384 + Left = 368 + Top = 248 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click @@ -569,5 +593,13 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Caption = #20840#24323 OnClick = PM11Click end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end end end diff --git a/E04梭织坯布仓库/U_TatClothStkHZList.pas b/E04梭织坯布仓库/U_TatClothStkHZList.pas index 998d57f..22885f6 100644 --- a/E04梭织坯布仓库/U_TatClothStkHZList.pas +++ b/E04梭织坯布仓库/U_TatClothStkHZList.pas @@ -40,11 +40,14 @@ type PM_1: TPopupMenu; PM11: TMenuItem; N1: TMenuItem; + C_GramWeight: TEdit; + label11: TLabel; + Panel2: TPanel; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; v1Column22: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; - Tv1Column2: TcxGridDBColumn; + Tv1issp: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; @@ -56,18 +59,16 @@ type Tv1Column14: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn; - Tv1Column19: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; - C_GramWeight: TEdit; - label12: TLabel; - C_width: TEdit; - label11: TLabel; - Tv1Column5: TcxGridDBColumn; - Tv1Column11: TcxGridDBColumn; - Tv1Column12: TcxGridDBColumn; - Tv1Column15: TcxGridDBColumn; - Tv1Column16: TcxGridDBColumn; - Tv1issp: TcxGridDBColumn; + N2: TMenuItem; + Tv1pf: TcxGridDBColumn; + Tv1YdPF: TcxGridDBColumn; + Tv1edPF: TcxGridDBColumn; + Tv1xjPF: TcxGridDBColumn; + Tv1fqPF: TcxGridDBColumn; + Tv1csPF: TcxGridDBColumn; + N3: TMenuItem; + ToolButton1: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -91,11 +92,17 @@ type procedure N1Click(Sender: TObject); procedure IsJYTimeClick(Sender: TObject); procedure C_NameKeyPress(Sender: TObject; var Key: Char); + + procedure N2Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure N3Click(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + { Private declarations } public canshu1: string; @@ -105,7 +112,7 @@ type implementation uses - U_DataLink, U_RTFun, U_LabelPrint; + U_DataLink, U_RTFun, U_LabelPrint, U_TatClothStkHZList2; {$R *.dfm} @@ -152,7 +159,7 @@ begin Close; sql.Clear; - sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight '); + sql.Add('select A.C_NAME ,A.C_GramWeight'); SQL.Add(',pf=SUM(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))'); 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'); @@ -174,12 +181,12 @@ begin 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(', A.issp '); + sql.Add(', issp=isnull(A.issp,'''') '); SQL.Add('from V_Tat_Cloth_stk A where 1=1 ' + WSql); - sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,issp'); - SQL.Add(' order by A.C_NAME, A.C_width,A.C_GramWeight'); + sql.Add(' group by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') '); + SQL.Add(' order by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') '); // showmessage(sql.text); Open; @@ -194,6 +201,8 @@ begin end; + + procedure TfrmTatClothStkHZList.IsJYTimeClick(Sender: TObject); begin inherited; @@ -247,6 +256,7 @@ begin inherited; ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒ'); + CurrentPage := 1; RecordsNumber := 500; canshu1 := Trim(Self.fParameters1); @@ -259,7 +269,16 @@ procedure TfrmTatClothStkHZList.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then exit; + + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); + end; procedure TfrmTatClothStkHZList.orderNoKeyPress(Sender: TObject; var Key: Char); @@ -281,6 +300,27 @@ begin lstCust.Clear; end; +procedure TfrmTatClothStkHZList.Tv1DblClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmTatClothStkHZList2 := TfrmTatClothStkHZList2.Create(Application); + with frmTatClothStkHZList2 do + begin + + fC_Name := Self.CDS_1.FieldByName('C_Name').AsString; + fissp := Self.CDS_1.FieldByName('issp').AsString; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatClothStkHZList2.Free; + end; +end; + procedure TfrmTatClothStkHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); begin if lstCust <> nil then @@ -320,6 +360,37 @@ begin SelOKNo(CDS_1, true); end; +procedure TfrmTatClothStkHZList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothStkHZList.N3Click(Sender: TObject); +begin + + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); +end; + +procedure TfrmTatClothStkHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + procedure TfrmTatClothStkHZList.ToolButton2Click(Sender: TObject); var WSql: string; @@ -373,6 +444,7 @@ end; procedure TfrmTatClothStkHZList.ToolButton4Click(Sender: TObject); begin WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒ'); + end; end. diff --git a/E04梭织坯布仓库/U_TatClothStkHZList2.dfm b/E04梭织坯布仓库/U_TatClothStkHZList2.dfm new file mode 100644 index 0000000..a11d722 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothStkHZList2.dfm @@ -0,0 +1,635 @@ +inherited frmTatClothStkHZList2: TfrmTatClothStkHZList2 + Left = 184 + Top = 138 + Caption = #25104#21697#24211#23384#27719#24635#21015#34920'2' + ClientHeight = 600 + ClientWidth = 1540 + Position = poDesigned + WindowState = wsMaximized + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatClothStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 13 + Caption = #33267 + end + object Label5: TLabel + Left = 190 + Top = 10 + Width = 39 + Height = 12 + Hint = '0' + Caption = #20135#21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object label11: TLabel + Left = 358 + Top = 10 + Width = 26 + Height = 12 + Hint = '0' + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + 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 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = IsJYTimeClick + end + object C_Name: TEdit + Tag = 2 + Left = 237 + Top = 6 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 5 + OnKeyPress = C_NameKeyPress + end + object C_GramWeight: TEdit + Tag = 2 + Left = 390 + Top = 6 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 6 + OnKeyPress = C_NameKeyPress + end + object C_width: TEdit + Tag = 2 + Left = 237 + Top = 32 + Width = 100 + Height = 21 + Hint = '0' + TabOrder = 7 + OnKeyPress = C_NameKeyPress + end + end + object Panel2: TPanel [2] + Left = 0 + Top = 105 + Width = 1540 + Height = 495 + Align = alClient + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 1538 + Height = 493 + 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 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 + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 553 + Top = 200 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 708 + Top = 156 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 608 + Top = 136 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 552 + Top = 140 + end + object PM_1: TPopupMenu + Left = 368 + Top = 248 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 552 + Top = 276 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 708 + Top = 292 + end +end diff --git a/E04梭织坯布仓库/U_TatClothStkHZList2.pas b/E04梭织坯布仓库/U_TatClothStkHZList2.pas new file mode 100644 index 0000000..36b6a64 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothStkHZList2.pas @@ -0,0 +1,441 @@ +unit U_TatClothStkHZList2; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, cxPC, + System.StrUtils, dxScrollbarAnnotations, U_BaseList, System.ImageList, + Vcl.ImgList; + +type + TfrmTatClothStkHZList2 = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + Label5: TLabel; + C_Name: TEdit; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + C_GramWeight: TEdit; + label12: TLabel; + C_width: TEdit; + label11: TLabel; + Panel2: TPanel; + 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; + N2: TMenuItem; + N3: TMenuItem; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + + { Private declarations } + public + fC_Name: string; + fissp : string; + { Public declarations } + end; + +var + frmTatClothStkHZList2: TfrmTatClothStkHZList2; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmTatClothStkHZList2.SetStatus(); +begin + +end; + +procedure TfrmTatClothStkHZList2.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmTatClothStkHZList2.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmTatClothStkHZList2.InitGrid(); +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(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))'); + 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 and C_NAME=' + QuotedStr(Trim(fC_Name))); + if fissp <> '' then + begin + SQL.Add(' and isnull(issp,'''') = ''˫''' ); + end + else + begin + SQL.Add(' and isnull(issp,'''') <> ''˫'' ' ); + end; + + + + 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 TfrmTatClothStkHZList2.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmTatClothStkHZList2.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothStkHZList2.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmTatClothStkHZList2.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatClothStkHZList2.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatClothStkHZList2.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTatClothStkHZList2.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatClothStkHZList2.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'Ʒ2'); + CurrentPage := 1; + RecordsNumber := 500; + + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatClothStkHZList2.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + with CDS_2 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid2); + InitGrid(); +end; + +procedure TfrmTatClothStkHZList2.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTatClothStkHZList2.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_2, false); +end; + +procedure TfrmTatClothStkHZList2.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmTatClothStkHZList2.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmTatClothStkHZList2.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTatClothStkHZList2.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTatClothStkHZList2.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothStkHZList2.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothStkHZList2.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_2, true); +end; + +procedure TfrmTatClothStkHZList2.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothStkHZList2.N3Click(Sender: TObject); +begin + + CopyColumnSummaryToClipboard(TV2.Controller.FocusedColumn); +end; + +procedure TfrmTatClothStkHZList2.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv2; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmTatClothStkHZList2.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatClothStkHZList2.ToolButton4Click(Sender: TObject); +begin + + WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'Ʒ2'); +end; + +end. + diff --git a/E04梭织坯布仓库/U_TatClothStkHZList3.dfm b/E04梭织坯布仓库/U_TatClothStkHZList3.dfm new file mode 100644 index 0000000..55dd619 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothStkHZList3.dfm @@ -0,0 +1,853 @@ +inherited frmTatClothStkHZList3: TfrmTatClothStkHZList3 + Left = 184 + Top = 138 + Caption = #25104#21697#24211#23384#27719#24635#21015#34920 + ClientHeight = 600 + ClientWidth = 1540 + Position = poDesigned + Visible = True + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatClothStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + ExplicitLeft = -1 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 190 + Top = 10 + Width = 39 + Height = 12 + Hint = '0' + Caption = #20135#21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object label11: TLabel + Left = 358 + Top = 10 + Width = 26 + Height = 12 + Hint = '0' + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + 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 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = IsJYTimeClick + end + object C_Name: TEdit + Tag = 2 + Left = 237 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 5 + OnKeyPress = C_NameKeyPress + end + object C_GramWeight: TEdit + Tag = 2 + Left = 390 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + 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 + Top = 105 + Width = 1540 + Height = 495 + Align = alClient + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1538 + Height = 256 + Align = alTop + 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 + ExplicitTop = 6 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnFocusedRecordChanged = Tv1FocusedRecordChanged + 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> + 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 + Width = 80 + end + object Tv1Column4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv1Column6: TcxGridDBColumn + Caption = #20248#31561#21367#25968 + DataBinding.FieldName = 'YDJs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20248#31561#31859#25968 + DataBinding.FieldName = 'Ydqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20108#31561#21367#25968 + DataBinding.FieldName = 'edJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column8: TcxGridDBColumn + Caption = #20108#31561#31859#25968 + DataBinding.FieldName = 'edqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column9: TcxGridDBColumn + Caption = #23567#21367#21367#25968 + DataBinding.FieldName = 'xjJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column10: TcxGridDBColumn + Caption = #23567#21367#25968#37327 + DataBinding.FieldName = 'xjqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column13: TcxGridDBColumn + Caption = #20998#20999#21367#25968 + DataBinding.FieldName = 'fqJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column14: TcxGridDBColumn + Caption = #20998#20999#24067#25968#37327 + DataBinding.FieldName = 'fqqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column17: TcxGridDBColumn + Caption = #27979#35797#21367#25968 + DataBinding.FieldName = 'csJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column18: TcxGridDBColumn + Caption = #27979#35797#25968#37327 + DataBinding.FieldName = 'csqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 1 + Top = 257 + Width = 1538 + Height = 237 + 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 = 1 + 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> + 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 + Width = 80 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 72 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #20248#31561#21367#25968 + DataBinding.FieldName = 'YDJs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20248#31561#31859#25968 + DataBinding.FieldName = 'Ydqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20248#31561#24179#26041 + DataBinding.FieldName = 'YdPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20108#31561#21367#25968 + DataBinding.FieldName = 'edJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20108#31561#31859#25968 + DataBinding.FieldName = 'edqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20108#31561#24179#26041 + DataBinding.FieldName = 'edPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #23567#21367#21367#25968 + DataBinding.FieldName = 'xjJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #23567#21367#25968#37327 + DataBinding.FieldName = 'xjqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #23567#21367#24179#26041 + DataBinding.FieldName = 'xjPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #20998#20999#21367#25968 + DataBinding.FieldName = 'fqJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #20998#20999#24067#25968#37327 + DataBinding.FieldName = 'fqqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20998#20999#24179#26041 + DataBinding.FieldName = 'fqPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #27979#35797#21367#25968 + DataBinding.FieldName = 'csJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #27979#35797#25968#37327 + DataBinding.FieldName = 'csqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #27979#35797#24179#26041 + DataBinding.FieldName = 'csPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + 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 + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 553 + Top = 200 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 708 + Top = 156 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 608 + Top = 136 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 552 + Top = 140 + end + object PM_1: TPopupMenu + Left = 368 + Top = 248 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 552 + Top = 276 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 708 + Top = 292 + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 784 + Top = 144 + end + object PM_2: TPopupMenu + Left = 408 + Top = 401 + object N3: TMenuItem + Caption = #22797#21046 + OnClick = N3Click + end + end +end diff --git a/E04梭织坯布仓库/U_TatClothStkHZList3.pas b/E04梭织坯布仓库/U_TatClothStkHZList3.pas new file mode 100644 index 0000000..d288a4a --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothStkHZList3.pas @@ -0,0 +1,497 @@ +unit U_TatClothStkHZList3; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, cxPC, + System.StrUtils, dxScrollbarAnnotations, U_BaseList; + +type + TfrmTatClothStkHZList3 = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + Label5: TLabel; + C_Name: TEdit; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + C_GramWeight: TEdit; + label12: TLabel; + C_width: TEdit; + label11: TLabel; + Panel2: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1issp: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: 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; + GPM_2: TcxGridPopupMenu; + N2: TMenuItem; + PM_2: TPopupMenu; + N3: TMenuItem; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure SetStatus(); + procedure InitGrid2(); + { Private declarations } + public + canshu1: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmTatClothStkHZList3.SetStatus(); +begin + +end; + +procedure TfrmTatClothStkHZList3.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmTatClothStkHZList3.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmTatClothStkHZList3.InitGrid(); +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_GramWeight'); +// SQL.Add(',pf=SUM(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))'); + 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 ' + WSql); + + sql.Add(' group by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') '); + SQL.Add(' order by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') '); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + +procedure TfrmTatClothStkHZList3.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(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))'); + 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 and C_NAME=' +QuotedStr(Trim(CDS_1.FieldByName('C_NAME').AsString)) ); + 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, A.C_width,A.C_GramWeight'); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + +procedure TfrmTatClothStkHZList3.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmTatClothStkHZList3.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothStkHZList3.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmTatClothStkHZList3.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatClothStkHZList3.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatClothStkHZList3.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTatClothStkHZList3.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatClothStkHZList3.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒ'); + ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'Ʒ'); + CurrentPage := 1; + RecordsNumber := 500; + + + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatClothStkHZList3.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel(Self.Caption, cxGrid1); +end; + +procedure TfrmTatClothStkHZList3.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTatClothStkHZList3.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmTatClothStkHZList3.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmTatClothStkHZList3.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + InitGrid2(); + +end; + +procedure TfrmTatClothStkHZList3.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmTatClothStkHZList3.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTatClothStkHZList3.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTatClothStkHZList3.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothStkHZList3.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothStkHZList3.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmTatClothStkHZList3.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothStkHZList3.N3Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + + +end; + +procedure TfrmTatClothStkHZList3.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatClothStkHZList3.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒ'); + WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'Ʒ'); +end; + +end. + diff --git a/E04梭织坯布仓库/U_TatClothStkList.dfm b/E04梭织坯布仓库/U_TatClothStkList.dfm index 67d1c9d..97edd94 100644 --- a/E04梭织坯布仓库/U_TatClothStkList.dfm +++ b/E04梭织坯布仓库/U_TatClothStkList.dfm @@ -7,6 +7,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList FormStyle = fsMDIChild Position = poScreenCenter Visible = True + ExplicitTop = -14 ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 @@ -218,6 +219,48 @@ inherited frmTatClothStkList: TfrmTatClothStkList Font.Style = [fsBold] ParentFont = False end + object Label4: TLabel + Left = 975 + Top = 36 + Width = 26 + Height = 12 + Hint = '1' + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 975 + Top = 10 + 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 Label8: TLabel + Left = 829 + Top = 36 + Width = 26 + Height = 12 + Hint = '0' + Caption = #31561#32423 + 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 @@ -362,6 +405,36 @@ inherited frmTatClothStkList: TfrmTatClothStkList TabOrder = 13 OnKeyPress = orderNoKeyPress end + object C_GramWeight: TEdit + Tag = 2 + Left = 1002 + Top = 32 + Width = 100 + Height = 20 + Hint = '1' + TabOrder = 14 + OnKeyPress = orderNoKeyPress + end + object C_Width: TEdit + Tag = 2 + Left = 1002 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 15 + OnKeyPress = orderNoKeyPress + end + object Grade: TEdit + Tag = 2 + Left = 857 + Top = 32 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 16 + OnKeyPress = orderNoKeyPress + end end object Panel6: TPanel [2] Left = 0 @@ -480,6 +553,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList ParentFont = False PopupMenu = PM_1 TabOrder = 3 + ExplicitTop = 133 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -540,6 +614,10 @@ inherited frmTatClothStkList: TfrmTatClothStkList end item Kind = skSum + end + item + Kind = skSum + Column = Tv1PF end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False @@ -690,6 +768,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList Options.Editing = False Width = 66 end + object Tv1PF: TcxGridDBColumn + Caption = #24179#26041 + DataBinding.FieldName = 'PF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 78 + end object v1Column8: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'GrossWeight' @@ -862,5 +947,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList Caption = #20840#24323 OnClick = PM11Click end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end end end diff --git a/E04梭织坯布仓库/U_TatClothStkList.pas b/E04梭织坯布仓库/U_TatClothStkList.pas index d26ef9e..0bcbb57 100644 --- a/E04梭织坯布仓库/U_TatClothStkList.pas +++ b/E04梭织坯布仓库/U_TatClothStkList.pas @@ -96,6 +96,15 @@ type Label1: TLabel; dept: TEdit; Tv1issp: TcxGridDBColumn; + Label4: TLabel; + Label6: TLabel; + Label8: TLabel; + C_GramWeight: TEdit; + C_Width: TEdit; + Grade: TEdit; + Tv1PF: TcxGridDBColumn; + N2: TMenuItem; + N3: TMenuItem; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -117,11 +126,14 @@ type procedure ToolButton4Click(Sender: TObject); procedure PM11Click(Sender: TObject); procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); { Private declarations } public canshu1: string; @@ -256,7 +268,15 @@ procedure TfrmTatClothStkList.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); + end; procedure TfrmTatClothStkList.orderNoKeyPress(Sender: TObject; var Key: Char); @@ -335,6 +355,38 @@ begin SelOKNo(CDS_1, true); end; +procedure TfrmTatClothStkList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothStkList.N3Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); + +end; + + +procedure TfrmTatClothStkList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +var + AView: TcxGridDBTableView; + SummaryIndex: Integer; + SummaryText: string; +begin + AView := Tv1; + + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + procedure TfrmTatClothStkList.ToolButton2Click(Sender: TObject); var WSql: string; diff --git a/E04梭织坯布仓库/U_TatClothStkListPH.dfm b/E04梭织坯布仓库/U_TatClothStkListPH.dfm index ec19a01..ed29f40 100644 --- a/E04梭织坯布仓库/U_TatClothStkListPH.dfm +++ b/E04梭织坯布仓库/U_TatClothStkListPH.dfm @@ -33,6 +33,7 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH ParentFont = False ShowCaptions = True TabOrder = 0 + ExplicitTop = 2 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -117,6 +118,7 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitTop = 41 object Label2: TLabel Left = 70 Top = 36 @@ -316,7 +318,7 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH Top = 8 Width = 73 Height = 17 - Caption = #26597#35810#26085#26399 + Caption = #20837#24211#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 @@ -467,6 +469,7 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH AutoSize = True BorderStyle = bsSingle TabOrder = 2 + ExplicitTop = 99 DesignSize = ( 1536 23) @@ -541,17 +544,15 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH Top = 1 Width = 78 Height = 20 - Style = csDropDownList Anchors = [akLeft] Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 - Font.Style = [fsBold] - ItemIndex = 0 + Font.Style = [] ParentFont = False TabOrder = 2 - Text = '500' + Text = '1000' OnChange = TCBNORChange Items.Strings = ( '500' diff --git a/E04梭织坯布仓库/U_TatClothStkListPH.pas b/E04梭织坯布仓库/U_TatClothStkListPH.pas index d4b1373..46959c3 100644 --- a/E04梭织坯布仓库/U_TatClothStkListPH.pas +++ b/E04梭织坯布仓库/U_TatClothStkListPH.pas @@ -16,7 +16,7 @@ uses System.StrUtils, dxScrollbarAnnotations; type - TfrmTatClothStkListPH = class(TfrmBaseList) + TfrmTatClothStkListPH = class(TfrmBaseList) ToolBar1: TToolBar; TBRafresh: TToolButton; TBExport: TToolButton; @@ -270,7 +270,7 @@ begin ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒб'); CurrentPage := 1; - RecordsNumber := 500; + RecordsNumber := 1000; canshu1 := Trim(Self.fParameters1); canshu2 := Trim(Self.fParameters2); SetStatus(); @@ -469,6 +469,7 @@ begin end; CDS_1.Locate('SSel', True, []); CDS_1.EnableControls; +// ShowMessage(WSql); try frmLabelPrint := TfrmLabelPrint.Create(Application); with frmLabelPrint do diff --git a/E04梭织坯布仓库/U_TatClothStkListsel.dfm b/E04梭织坯布仓库/U_TatClothStkListsel.dfm index ed921de..9fe0b7d 100644 --- a/E04梭织坯布仓库/U_TatClothStkListsel.dfm +++ b/E04梭织坯布仓库/U_TatClothStkListsel.dfm @@ -8,7 +8,7 @@ inherited frmTatClothStkListsel: TfrmTatClothStkListsel ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 13 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 @@ -87,7 +87,7 @@ inherited frmTatClothStkListsel: TfrmTatClothStkListsel Left = 70 Top = 36 Width = 12 - Height = 12 + Height = 13 Caption = #33267 end object Label3: TLabel @@ -261,7 +261,7 @@ inherited frmTatClothStkListsel: TfrmTatClothStkListsel Left = 248 Top = 6 Width = 100 - Height = 20 + Height = 21 Hint = '0' TabOrder = 5 OnKeyPress = orderNoKeyPress @@ -271,63 +271,70 @@ inherited frmTatClothStkListsel: TfrmTatClothStkListsel Left = 409 Top = 6 Width = 100 - Height = 20 + Height = 21 Hint = '0' TabOrder = 6 + OnKeyPress = orderNoKeyPress end object STKID: TEdit Tag = 2 Left = 711 Top = 32 Width = 100 - Height = 20 + Height = 21 Hint = '1' TabOrder = 7 + OnKeyPress = orderNoKeyPress end object C_Name: TEdit Tag = 2 Left = 409 Top = 32 Width = 100 - Height = 20 + Height = 21 Hint = '0' TabOrder = 8 + OnKeyPress = orderNoKeyPress end object C_Color: TEdit Tag = 2 Left = 553 Top = 6 Width = 100 - Height = 20 + Height = 21 Hint = '0' TabOrder = 9 + OnKeyPress = orderNoKeyPress end object jyg: TEdit Tag = 2 Left = 711 Top = 6 Width = 100 - Height = 20 + Height = 21 Hint = '0' TabOrder = 10 + OnKeyPress = orderNoKeyPress end object C_Pattern: TEdit Tag = 2 Left = 553 Top = 32 Width = 100 - Height = 20 + Height = 21 Hint = '0' TabOrder = 11 + OnKeyPress = orderNoKeyPress end object C_Code: TEdit Tag = 2 Left = 248 Top = 32 Width = 100 - Height = 20 + Height = 21 Hint = '0' TabOrder = 12 + OnKeyPress = orderNoKeyPress end end object Panel6: TPanel [2] diff --git a/E04梭织坯布仓库/U_TatClothStkListsel.pas b/E04梭织坯布仓库/U_TatClothStkListsel.pas index 959c63a..875c7fc 100644 --- a/E04梭织坯布仓库/U_TatClothStkListsel.pas +++ b/E04梭织坯布仓库/U_TatClothStkListsel.pas @@ -13,7 +13,8 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_Basehelp, cxPC, - System.StrUtils, dxScrollbarAnnotations, U_BaseList; + System.StrUtils, dxScrollbarAnnotations, U_BaseList, System.ImageList, + Vcl.ImgList; type TfrmTatClothStkListsel = class(TfrmBasehelp) diff --git a/E04梭织坯布仓库/U_TatDRList.dfm b/E04梭织坯布仓库/U_TatDRList.dfm index 9a06b1e..a4fe636 100644 --- a/E04梭织坯布仓库/U_TatDRList.dfm +++ b/E04梭织坯布仓库/U_TatDRList.dfm @@ -156,16 +156,24 @@ inherited frmTatDRList: TfrmTatDRList ImageIndex = 11 OnClick = btnWCCXClick end - object ToolButton4: TToolButton + object TbAddressCopy: TToolButton Left = 332 Top = 38 AutoSize = True + Caption = #22320#22336#22797#21046 + ImageIndex = 13 + OnClick = TbAddressCopyClick + end + object ToolButton4: TToolButton + Left = 427 + Top = 38 + AutoSize = True Caption = #38468#20214 ImageIndex = 19 OnClick = ToolButton4Click end object TBExport: TToolButton - Left = 403 + Left = 498 Top = 38 AutoSize = True Caption = #23548#20986 @@ -173,7 +181,7 @@ inherited frmTatDRList: TfrmTatDRList OnClick = TBExportClick end object ToolButton7: TToolButton - Left = 474 + Left = 569 Top = 38 AutoSize = True Caption = #19968#38190#21457#36135 @@ -181,7 +189,7 @@ inherited frmTatDRList: TfrmTatDRList OnClick = ToolButton7Click end object ToolButton6: TToolButton - Left = 569 + Left = 664 Top = 38 AutoSize = True Caption = #20445#23384#26684#24335 @@ -189,13 +197,29 @@ inherited frmTatDRList: TfrmTatDRList OnClick = ToolButton6Click end object TBClose: TToolButton - Left = 664 + Left = 759 Top = 38 AutoSize = True Caption = #20851#38381 ImageIndex = 7 OnClick = TBCloseClick end + object ToolButton8: TToolButton + Left = 830 + Top = 38 + AutoSize = True + Caption = #36135#26410#21457#20840 + ImageIndex = 8 + OnClick = ToolButton8Click + end + object TbUndoVisible: TToolButton + Left = 925 + Top = 38 + AutoSize = True + Caption = #25764#38144#26174#31034 + ImageIndex = 18 + OnClick = TbUndoVisibleClick + end end object cxGrid1: TcxGrid [1] Left = 0 @@ -205,9 +229,11 @@ inherited frmTatDRList: TfrmTatDRList Align = alClient PopupMenu = PM_1 TabOrder = 3 + ExplicitTop = 144 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> + OnCustomDrawCell = Tv1CustomDrawCell OnFocusedRecordChanged = Tv1FocusedRecordChanged DataController.DataSource = DataSource1 DataController.Filter.AutoDataSetFilter = True @@ -277,6 +303,24 @@ inherited frmTatDRList: TfrmTatDRList HeaderAlignmentHorz = taCenter Width = 49 end + object Tv1OverTime: TcxGridDBColumn + Caption = #21457#36135#29366#24577 + DataBinding.FieldName = 'OverTime' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + OnCustomDrawCell = Tv1OverTimeCustomDrawCell + HeaderAlignmentHorz = taCenter + Styles.OnGetContentStyle = Tv1FlagStylesGetContentStyle + Width = 80 + end + object Tv1CheckEdit: TcxGridDBColumn + Caption = #23457#26680#20462#25913 + DataBinding.FieldName = 'CheckEdit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.OnGetContentStyle = Tv1CheckEditStylesGetContentStyle + Width = 80 + end object v1Column8: TcxGridDBColumn Caption = #30003#35831#21333#21495 DataBinding.FieldName = 'DRMID' @@ -304,7 +348,7 @@ inherited frmTatDRList: TfrmTatDRList Options.Editing = False Width = 69 end - object v1Column10: TcxGridDBColumn + object Tv1ToCoName: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'ToCoName' DataBinding.IsNullValueType = True @@ -312,6 +356,27 @@ inherited frmTatDRList: TfrmTatDRList Options.Editing = False Width = 124 end + object Tv1CoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 139 + end + object Tv1Saleser: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Contacts: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'Contacts' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object Tv1Telephone: TcxGridDBColumn Caption = #32852#31995#30005#35805 DataBinding.FieldName = 'Telephone' @@ -353,13 +418,6 @@ inherited frmTatDRList: TfrmTatDRList Options.Editing = False Width = 70 end - object Tv1Column1: TcxGridDBColumn - Caption = #25910#36135#21333#20301 - DataBinding.FieldName = 'shdanwei' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 154 - end object Tv1CoAddress: TcxGridDBColumn Caption = #25910#36135#22320#22336 DataBinding.FieldName = 'CoAddress' @@ -402,7 +460,7 @@ inherited frmTatDRList: TfrmTatDRList HeaderAlignmentHorz = taCenter Width = 70 end - object Tv1Column7: TcxGridDBColumn + object Tv1sselJS: TcxGridDBColumn DataBinding.FieldName = 'sselJS' DataBinding.IsNullValueType = True Visible = False @@ -425,8 +483,9 @@ inherited frmTatDRList: TfrmTatDRList Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitTop = 82 object Label4: TLabel - Left = 464 + Left = 520 Top = 15 Width = 48 Height = 12 @@ -485,7 +544,7 @@ inherited frmTatDRList: TfrmTatDRList Caption = '-' end object Label1: TLabel - Left = 286 + Left = 343 Top = 15 Width = 48 Height = 12 @@ -498,7 +557,7 @@ inherited frmTatDRList: TfrmTatDRList ParentFont = False end object Label3: TLabel - Left = 658 + Left = 714 Top = 15 Width = 48 Height = 12 @@ -511,7 +570,7 @@ inherited frmTatDRList: TfrmTatDRList ParentFont = False end object Label5: TLabel - Left = 870 + Left = 938 Top = 15 Width = 54 Height = 12 @@ -524,7 +583,7 @@ inherited frmTatDRList: TfrmTatDRList ParentFont = False end object SSelJS: TLabel - Left = 927 + Left = 995 Top = 6 Width = 12 Height = 24 @@ -557,7 +616,7 @@ inherited frmTatDRList: TfrmTatDRList end object ToCoName: TEdit Tag = 2 - Left = 518 + Left = 574 Top = 11 Width = 115 Height = 20 @@ -603,7 +662,7 @@ inherited frmTatDRList: TfrmTatDRList end object DRMID: TEdit Tag = 2 - Left = 341 + Left = 397 Top = 11 Width = 99 Height = 20 @@ -612,13 +671,23 @@ inherited frmTatDRList: TfrmTatDRList end object shdanwei: TEdit Tag = 2 - Left = 712 + Left = 768 Top = 11 Width = 115 Height = 20 TabOrder = 8 OnChange = ToCoNameChange end + object TbNowDay: TcxButton + Left = 267 + Top = 9 + Width = 61 + Height = 25 + Caption = #26412#26085 + LookAndFeel.NativeStyle = True + TabOrder = 9 + OnClick = TbNowDayClick + end end object cxTabControl1: TcxTabControl [3] Left = 0 @@ -656,7 +725,6 @@ inherited frmTatDRList: TfrmTatDRList Height = 222 Align = alBottom TabOrder = 5 - ExplicitTop = 370 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -760,11 +828,20 @@ inherited frmTatDRList: TfrmTatDRList HeaderAlignmentHorz = taCenter Width = 66 end + object TV2PFPrice: TcxGridDBColumn + Caption = #24179#26041#21333#20215 + DataBinding.FieldName = 'PFPrice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object TV2Column1: TcxGridDBColumn Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'QtyUnit' DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter Options.Editing = False + Width = 80 end object TV2Column2: TcxGridDBColumn Caption = #21457#36135#21305#25968 @@ -906,6 +983,10 @@ inherited frmTatDRList: TfrmTatDRList Caption = #20840#24323 OnClick = PM11Click end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end end object cxGridPopupMenu2: TcxGridPopupMenu Grid = cxGrid2 diff --git a/E04梭织坯布仓库/U_TatDRList.pas b/E04梭织坯布仓库/U_TatDRList.pas index a1d4f76..d008228 100644 --- a/E04梭织坯布仓库/U_TatDRList.pas +++ b/E04梭织坯布仓库/U_TatDRList.pas @@ -1,4 +1,4 @@ -unit U_TatDRList; +unit U_TatDRList; interface @@ -11,9 +11,9 @@ uses cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, - dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList, + dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList, Clipbrd, dxDateRanges, dxScrollbarAnnotations, IdBaseComponent, IdComponent, - IdTCPConnection, IdTCPClient, IdHTTP; + IdTCPConnection, IdTCPClient, IdHTTP, cxButtons; type TfrmTatDRList = class(TfrmBaseList) @@ -62,7 +62,7 @@ type v1Column17: TcxGridDBColumn; v1Column1: TcxGridDBColumn; v1Column7: TcxGridDBColumn; - v1Column10: TcxGridDBColumn; + Tv1ToCoName: TcxGridDBColumn; v1Column27: TcxGridDBColumn; btnWC: TToolButton; btnWCCX: TToolButton; @@ -82,7 +82,6 @@ type TV2Column3: TcxGridDBColumn; Label3: TLabel; shdanwei: TEdit; - Tv1Column1: TcxGridDBColumn; ToolButton2: TToolButton; IdHTTP1: TIdHTTP; ToolButton3: TToolButton; @@ -105,13 +104,24 @@ type Tv1CoAddress: TcxGridDBColumn; Label5: TLabel; SSelJS: TLabel; - Tv1Column7: TcxGridDBColumn; + Tv1sselJS: TcxGridDBColumn; PM_1: TPopupMenu; N1: TMenuItem; PM11: TMenuItem; Tv1Telephone: TcxGridDBColumn; cxGridPopupMenu2: TcxGridPopupMenu; TV2issp: TcxGridDBColumn; + N2: TMenuItem; + Tv1Contacts: TcxGridDBColumn; + TbAddressCopy: TToolButton; + Tv1OverTime: TcxGridDBColumn; + Tv1CheckEdit: TcxGridDBColumn; + Tv1CoName: TcxGridDBColumn; + ToolButton8: TToolButton; + TbUndoVisible: TToolButton; + TV2PFPrice: TcxGridDBColumn; + Tv1Saleser: TcxGridDBColumn; + TbNowDay: TcxButton; //RMllPDFExport1: TRMllPDFExport; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); @@ -146,12 +156,24 @@ type procedure v1Column4PropertiesChange(Sender: TObject); procedure N1Click(Sender: TObject); procedure PM11Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TbAddressCopyClick(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure Tv1CheckEditStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); + procedure Tv1FlagStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); + procedure ToolButton8Click(Sender: TObject); + procedure Tv1OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure TbUndoVisibleClick(Sender: TObject); + procedure TbNowDayClick(Sender: TObject); + private + fcxGridStyleFlag: Boolean; procedure InitGrid(); procedure InitSubGrid(); procedure InitForm(); procedure SetStatus(); function DelData(): Boolean; + { Private declarations } public FFInt: Integer; @@ -180,8 +202,13 @@ begin ToolButton5.Enabled := False; TbGoodsEdit.Enabled := False; + TBEdit.Enabled := False; + + Tv1ToCoName.Visible := False; + Tv1CoName.Visible := False; + TBDel.Enabled := False; - if CANSHU1 = 'ѯ' then + if CANSHU1 = '查询' then begin ToolButton1.Enabled := True; TBPrint.Enabled := True; @@ -192,19 +219,26 @@ begin TbGoodsEdit.Enabled := True; TBAdd.Enabled := True; - TBEdit.Enabled := True; + + Tv1ToCoName.Visible := True; + TV2PFPrice.Visible := False; // TBDel.Enabled := True; case cxTabControl1.TabIndex of + 0: + begin + TBEdit.Enabled := True; + end; 1: begin - btnWC.Enabled := true; + TBEdit.Enabled := True; end; end; end; - if canshu1 = '' then + if canshu1 = '管理' then begin + Tv1CoName.Visible := True; case cxTabControl1.TabIndex of 0: begin @@ -213,12 +247,16 @@ begin tchk.Enabled := true; TBDel.Enabled := True; + + TBEdit.Enabled := True; end; 1: begin Tnochk.Enabled := true; btnWC.Enabled := true; TBDel.Enabled := True; + + TBEdit.Enabled := True; end; 2: begin @@ -230,18 +268,64 @@ begin end; end; end - else if canshu1 = '¼' then + else if canshu1 = '录入' then begin + + Tv1ToCoName.Visible := True; case cxTabControl1.TabIndex of + 0: + begin + TBEdit.Enabled := True; + end; 1: begin - + TBEdit.Enabled := True; btnWC.Enabled := true; // TBDel.Enabled := True; end; end; end; + + if canshu1 = '财务' then + begin + TBAdd.Enabled := False; + TBPrint.Enabled := False; + ToolButton2.Enabled := False; + TbAddressCopy.Enabled := False; + ToolButton8.Enabled := False; + TbUndoVisible.Enabled := False; + +// Tv1CoName.Visible := True; +// case cxTabControl1.TabIndex of +// 0: +// begin +// ToolButton3.Enabled := true; +//// TbGoodsEdit.Enabled := True; +// tchk.Enabled := true; +// +// TBDel.Enabled := True; +// +// TBEdit.Enabled := True; +// end; +// 1: +// begin +// Tnochk.Enabled := true; +// btnWC.Enabled := true; +// TBDel.Enabled := True; +// +// TBEdit.Enabled := True; +// end; +// 2: +// begin +// btnWCCX.Enabled := true; +// end; +// 3: +// begin +// ToolButton5.Enabled := true; +// end; +// end; + end end; procedure TfrmTatDRList.FormDestroy(Sender: TObject); @@ -273,10 +357,8 @@ begin Filtered := False; Close; sql.Clear; - Sql.Add(' select A.*,B.CoAddress '); - Sql.Add(', sselJS=(select isnull(sum(Piece), 0) from Tat_Cloth_DR_Sub X where X.DRMID=A.DRMID ) '); - Sql.Add(', Telephone=(select Telephone from Bs_Company_contact X where X.CoID=A.ToCoID ) '); - sql.Add(' from Tat_Cloth_DR_Main A left join BS_Company B on A.ToCoID = B.COID where 1=1'); + Sql.Add(' select A.* '); + sql.Add(' from V_TatDRList A where 1=1'); if CheckBox1.Checked then begin sql.Add(' and A.Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); @@ -305,7 +387,7 @@ begin end; end; - if Trim(canshu1) = '¼' then + if Trim(canshu1) = '录入' then begin sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + ''''); end; @@ -327,8 +409,8 @@ end; procedure TfrmTatDRList.InitForm(); begin - ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, ''); - ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, ''); + ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理'); + ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理'); EndDate.DateTime := SGetServerDate(ADOQueryTemp); BegDate.DateTime := EndDate.DateTime - 60; @@ -351,7 +433,7 @@ begin Exit; // if cxTabControl1.TabIndex <> 0 then // Exit; -// if Trim(canshu1) <> '' then +// if Trim(canshu1) <> '管理' then // begin // with ADOQueryTemp do @@ -367,12 +449,12 @@ begin // // if ADOQueryTemp.ISEMPTY = True then // begin -// Application.MessageBox('ܲ˵!', 'ʾ', 0); +// Application.MessageBox('不能操作他人的数据!', '提示', 0); // Exit; // end; if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin - Application.MessageBox('ܲ˵!', 'ʾ', 0); + Application.MessageBox('不能操作他人的数据!', '提示', 0); Exit; end; // end; @@ -386,7 +468,7 @@ begin // end; // if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then // begin -// Application.MessageBox('Ӧ˿޸!', 'ʾ', 0); +// Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0); // Exit; // end; try @@ -394,6 +476,8 @@ begin with frmTatDRtInPut do begin PState := 1; + canshu1 := self.canshu1; + isCheck := cxTabControl1.TabIndex; Tv1Volume.Options.Editing := False; Tv1ApplicationReaon.Options.Editing := False; FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString); @@ -413,11 +497,11 @@ begin Exit; if (cxTabControl1.TabIndex <> 0) and (cxTabControl1.TabIndex <> 1) then Exit; -// if canshu1 <> '' then +// if canshu1 <> '管理' then // begin // if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then // begin -// Application.MessageBox('ܲ˵!', 'ʾ', 0); +// Application.MessageBox('不能操作他人的数据!', '提示', 0); // Exit; // end; // end; @@ -426,13 +510,13 @@ begin begin Close; sql.Clear; - sql.Add(' select * from Tat_Cloth_IO where ioflag='''' '); + sql.Add(' select * from Tat_Cloth_IO where ioflag=''出库'' '); sql.add(' and IONo=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty = False then begin - Application.MessageBox('ݲɾ!', 'ʾ', 0); + Application.MessageBox('出库数据不能删除!', '提示', 0); exit; end; @@ -440,17 +524,17 @@ begin begin Close; sql.Clear; - sql.Add(' select * from Tat_Cloth_IO where ioflag='''' '); + sql.Add(' select * from Tat_Cloth_IO where ioflag=''待出库'' '); sql.add(' and IONo=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty = False then begin - Application.MessageBox('ݲɾ!', 'ʾ', 0); + Application.MessageBox('待出库数据不能删除!', '提示', 0); exit; end; - if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then Exit; if DelData() then begin @@ -467,7 +551,7 @@ begin frmTatDRtInPut := TfrmTatDRtInPut.Create(Application); with frmTatDRtInPut do begin - PState := 2; ///޸ + PState := 2; ///配货修改 FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString); canshu1 := self.canshu1; @@ -497,6 +581,13 @@ begin end; end; +procedure TfrmTatDRList.TbNowDayClick(Sender: TObject); +begin + BegDate.Date := strToDate(FormatDateTime('yyyy-MM-dd', SGetServerDate(ADOQueryCmd))); + EndDate.Date := strToDate(FormatDateTime('yyyy-MM-dd', SGetServerDate(ADOQueryCmd))); + InitGrid(); +end; + function TfrmTatDRList.DelData(): Boolean; begin @@ -537,7 +628,7 @@ begin except ADOQueryCmd.Connection.RollbackTrans; Result := False; - Application.MessageBox('ɾ쳣', 'ʾ', 0); + Application.MessageBox('数据删除异常！', '提示', 0); end; end; @@ -545,7 +636,14 @@ procedure TfrmTatDRList.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then Exit; -// SelExportData(Tv1, ADOQueryMain, 'б'); + with Order_Main do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); end; procedure TfrmTatDRList.TBPrintClick(Sender: TObject); @@ -574,6 +672,16 @@ begin InitGrid(); end; +procedure TfrmTatDRList.TbUndoVisibleClick(Sender: TObject); +begin + with Order_Main do + begin + Edit; + FieldByName('OverTime').Value := ''; + post; + end; +end; + procedure TfrmTatDRList.TBAddClick(Sender: TObject); var maxno: string; @@ -583,6 +691,7 @@ begin with frmTatDRtInPut do begin PState := 0; + isCheck := 0; FDRMID := ''; canshu1 := self.canshu1; if ShowModal = 1 then @@ -595,12 +704,54 @@ begin end; end; +//procedure TfrmTatDRList.TbAddressCopyClick(Sender: TObject); +//var +// CopyValue : string; +//begin +// if Order_Main.IsEmpty then +// begin +// Exit; +// end; +// +// if not Order_Main.Active then +// begin +// Application.MessageBox('未选中记录！','提示信息',MB_OK); +// end; +// +// CopyValue := Order_Main.FieldByName('Contacts').AsString + ' ' ; +// CopyValue := CopyValue + Order_Main.FieldByName('Telephone').AsString + #13; +// CopyValue := CopyValue + Order_Main.FieldByName('CoAddress').AsString; +// Clipboard.SetTextBuf(PChar(Trim(CopyValue))); +//end; +procedure TfrmTatDRList.TbAddressCopyClick(Sender: TObject); +var + CopyValue: string; + MsgLabel: TLabel; +begin + if Order_Main.IsEmpty or not Order_Main.Active then + begin + Application.MessageBox('未选中记录！', '提示信息', MB_OK); + Exit; + end; + + CopyValue := Order_Main.FieldByName('Contacts').AsString + ' '; + CopyValue := CopyValue + Order_Main.FieldByName('Telephone').AsString + #13; + CopyValue := CopyValue + Order_Main.FieldByName('CoAddress').AsString; + + Clipboard.AsText := Trim(CopyValue); +// MessageDlg('地址信息已成功复制到剪贴板！', mtInformation, [mbOK], 0); + + +end; + procedure TfrmTatDRList.FormShow(Sender: TObject); begin inherited; + fcxGridStyleFlag := False; canshu1 := self.fParameters1; InitForm(); SetStatus(); + end; procedure TfrmTatDRList.CheckBox1Click(Sender: TObject); @@ -626,6 +777,7 @@ begin ToolBar2.Visible := False; TBSave.Visible := False; ScrollBox1.Enabled := False; + canshu1 := self.canshu1; Tv1.OptionsSelection.CellSelect := False; if ShowModal = 1 then begin @@ -665,6 +817,12 @@ begin exit; if cxTabControl1.TabIndex <> 0 then exit; + + if Order_Main.Locate('ssel', True, []) = false then + begin + Application.MessageBox('请先选择数据！', '提示信息', MB_OK); + exit; + end; try with Order_Main do begin @@ -691,9 +849,9 @@ begin InitGrid(); InitSubGrid(); - application.MessageBox('ȡɹ', 'ʾϢ'); + application.MessageBox('取消成功！', '提示信息'); except - application.MessageBox('ȡʧܣ', 'ʾϢ', 0); + application.MessageBox('取消失败！', '提示信息', 0); end; end; @@ -705,10 +863,10 @@ begin frmAttachmentUpload := TfrmAttachmentUpload.Create(Application); with frmAttachmentUpload do begin - if Trim(canshu1) <> 'ѯ' then + if Trim(canshu1) <> '查询' then FEditAuthority := True; fkeyNO := Trim(Self.Order_Main.fieldbyname('DRMID').AsString); - fType := ''; + fType := '发货申请'; if ShowModal = 1 then begin @@ -726,6 +884,12 @@ begin exit; if cxTabControl1.TabIndex <> 3 then exit; + + if Order_Main.Locate('ssel', True, []) = false then + begin + Application.MessageBox('请先选择数据！', '提示信息', MB_OK); + exit; + end; try with Order_Main do begin @@ -752,9 +916,9 @@ begin InitGrid(); InitSubGrid(); - application.MessageBox('ȡɹ', 'ʾϢ'); + application.MessageBox('撤销取消成功！', '提示信息'); except - application.MessageBox('ȡʧܣ', 'ʾϢ', 0); + application.MessageBox('撤销取消失败！', '提示信息', 0); end; end; @@ -773,6 +937,13 @@ begin exit; if cxTabControl1.TabIndex <> 0 then exit; + + if Order_Main.Locate('ssel', True, []) = false then + begin + Application.MessageBox('请先选择数据！', '提示信息', MB_OK); + exit; + end; + try with Order_Main do begin @@ -801,9 +972,9 @@ begin InitGrid(); InitSubGrid(); - application.MessageBox('˳ɹ', 'ʾϢ'); + application.MessageBox('审核成功！', '提示信息'); except - application.MessageBox('ʧܣ', 'ʾϢ', 0); + application.MessageBox('审核失败！', '提示信息', 0); end; end; @@ -839,6 +1010,11 @@ begin SSelJS.Caption := CurrToStr(msumJS); end; +procedure TfrmTatDRList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + procedure TfrmTatDRList.PM11Click(Sender: TObject); begin SelOKNo(Order_Main, false); @@ -851,6 +1027,11 @@ begin exit; if cxTabControl1.TabIndex <> 1 then exit; + if Order_Main.Locate('ssel', True, []) = false then + begin + Application.MessageBox('请先选择数据！', '提示信息', MB_OK); + exit; + end; try with Order_Main do begin @@ -875,9 +1056,9 @@ begin EnableControls; end; InitGrid(); - application.MessageBox('ɹ', 'ʾϢ'); + application.MessageBox('撤销成功！', '提示信息'); except - application.MessageBox('ʧܣ', 'ʾϢ', 0); + application.MessageBox('撤销失败！', '提示信息', 0); end; end; @@ -891,6 +1072,12 @@ procedure TfrmTatDRList.btnWCCXClick(Sender: TObject); begin if Order_Main.IsEmpty then exit; + + if Order_Main.Locate('ssel', True, []) = false then + begin + Application.MessageBox('请先选择数据！', '提示信息', MB_OK); + exit; + end; try with Order_Main do begin @@ -909,7 +1096,7 @@ begin end; if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then begin - Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), 'ʾ', 0); + Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0); exit; end; @@ -929,16 +1116,16 @@ begin end; InitGrid(); InitSubGrid(); - application.MessageBox('ɹ', 'ʾϢ'); + application.MessageBox('操作成功！', '提示信息'); except - application.MessageBox('ʧܣ', 'ʾϢ', 0); + application.MessageBox('操作失败！', '提示信息', 0); end; end; procedure TfrmTatDRList.ToolButton6Click(Sender: TObject); begin - WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, ''); - WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, ''); + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理'); + WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理'); end; procedure TfrmTatDRList.ToolButton7Click(Sender: TObject); @@ -957,18 +1144,18 @@ begin sql.add('where IsStocking=''1'''); sql.Add('and STKID IN (SELECT STKID FROM Tat_Cloth_IO F '); SQL.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); - sql.add('and ioflag='''')'); + sql.add('and ioflag=''待出库'')'); - sql.Add('update Tat_Cloth_Inspect SET CIIOFlag=''ѳ'' '); + sql.Add('update Tat_Cloth_Inspect SET CIIOFlag=''已出库'' '); // sql.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); sql.add('where '); sql.Add(' ciid IN (SELECT STKID FROM Tat_Cloth_IO F '); SQL.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); - sql.add('and ioflag='''')'); + sql.add('and ioflag=''待出库'')'); - sql.Add('update Tat_Cloth_IO SET ioflag='''',iotime=getdate() '); + sql.Add('update Tat_Cloth_IO SET ioflag=''出库'',iotime=getdate() '); sql.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); - sql.add('and ioflag='''''); + sql.add('and ioflag=''待出库'''); execsql; end; with ADOQueryCmd do @@ -986,18 +1173,53 @@ begin end; InitGrid(); InitSubGrid(); - application.MessageBox('ɹ', 'ʾϢ'); + application.MessageBox('操作成功！', '提示信息'); except - application.MessageBox('ʧܣ', 'ʾϢ', 0); + application.MessageBox('操作失败！', '提示信息', 0); end; end; +procedure TfrmTatDRList.ToolButton8Click(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' SELECT 1 FROM Tat_Cloth_DR_Sub X WHERE X.DRMID=' + quotedStr(Trim(Order_Main.FieldByName('DRMID').asString))); + sql.Add(' AND isnull(X.Piece,0) > isnull(X.DlyPiece,0)'); + SQL.Add(' AND CONVERT(date, ' + quotedStr(Trim(Order_Main.FieldByName('DlyDate').asString)) + ') < CONVERT(date, GETDATE())'); + Open; + end; + + if not ADOQueryCmd.IsEmpty then + begin + with Order_Main do + begin + Edit; + FieldByName('OverTime').asString := '未发完'; + post; + end; + end + else + begin + Application.MessageBox('已发完！', '提示信息', MB_OK); + Exit; + end; + +end; + procedure TfrmTatDRList.btnWCClick(Sender: TObject); var str: string; begin if Order_Main.IsEmpty then exit; + + if Order_Main.Locate('ssel', True, []) = false then + begin + Application.MessageBox('请先选择数据！', '提示信息', MB_OK); + exit; + end; try with Order_Main do begin @@ -1016,14 +1238,21 @@ begin end; if ADOQueryTemp.FieldByName('TT').AsInteger = 0 then begin - application.MessageBox('Ϊ0ɣ', 'ʾϢ'); + application.MessageBox('发货数量为0，不能完成！', '提示信息'); EnableControls; exit; end; if ADOQueryTemp.FieldByName('TT').AsInteger < ADOQueryTemp.FieldByName('T1').AsInteger then begin - if InputQuery('뱸ע', 'ע', str) then + if InputQuery('输入备注', '备注', str) then begin + + if Trim(str) = '' then + begin + ShowMessage('备注不能为空！'); + Exit; // 或者使用 Exit; 来退出当前过程 + end; + with ADOQueryCmd do begin Close; @@ -1062,9 +1291,30 @@ begin end; InitGrid(); InitSubGrid(); - application.MessageBox('ɹ', 'ʾϢ'); + application.MessageBox('操作成功！', '提示信息'); except - application.MessageBox('ʧܣ', 'ʾϢ', 0); + application.MessageBox('操作失败！', '提示信息', 0); + end; +end; + +procedure TfrmTatDRList.Tv1CheckEditStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +var + GroupValue: string; +// ColorValue: Integer; + I: Integer; +begin + if (ARecord <> nil) and (ARecord is TcxGridDataRow) then + begin + GroupValue := VarToStr(ARecord.Values[Tv1CheckEdit.Index]); + if (GroupValue <> '') and (GroupValue <> null) then + begin +// ColorValue := StrToInt(GroupValue); + AStyle := TcxStyle.Create(nil); + if GroupValue = '已改单' then + AStyle.Color := $0090FFFF; + AStyle.TextColor := clBlack; + end; + end; end; @@ -1108,26 +1358,88 @@ begin tv1.Controller.EditingController.ShowEdit(); end; +procedure TfrmTatDRList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + FLAG: Variant; +begin +// FLAG := AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('FLAG').Index]; +// if FLAG = 1 then // 未排入计划单 +// begin +// ACanvas.Brush.Color := $00CCCCFF; // 浅红色背景 +// ACanvas.Font.Color := clRed; +// ACanvas.Font.Style := [fsBold]; +// end; +end; + +procedure TfrmTatDRList.Tv1FlagStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +var + GroupValue: string; +// ColorValue: Integer; + I: Integer; +begin + +// if not fcxGridStyleFlag then +// begin +// Exit; +// end; +// +// if (ARecord <> nil) and (ARecord is TcxGridDataRow) then +// begin +// GroupValue := VarToStr(ARecord.Values[Tv1OverTime.Index]); +// if (GroupValue <> '') and (GroupValue <> null) then +// begin +//// ColorValue := StrToInt(GroupValue); +// AStyle := TcxStyle.Create(nil); +// if GroupValue = '已超期' then +// AStyle.Color := $00CCCCFF; +// AStyle.TextColor := clBlack; +// end; +// +// end; +end; + procedure TfrmTatDRList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin InitSubGrid(); end; +procedure TfrmTatDRList.Tv1OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +//单格子 +var + FLAG: string; +begin +// id := TV1.GetColumnByFieldName('OverTime').Index; //;-TV1.GroupedItemCount; +// if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('OverTime').Index] = 1 then +// ACanvas.BRUSH.Color := clAqua; +// if AViewInfo.GridRecord.Values[id] = 1 then +// begin +// ACanvas.Brush.Color := clRed; +// end; + + FLAG := AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('OverTime').Index]; + if FLAG = '未发完' then // 未排入计划单 + begin + ACanvas.Brush.Color := $00CCCCFF; // 浅红色背景 + ACanvas.Font.Color := clRed; + ACanvas.Font.Style := [fsBold]; + end; +end; + procedure TfrmTatDRList.v1Column4PropertiesChange(Sender: TObject); var mDRMIDList: string; TotalPiece: Variant; - mDRMID: string; //λ + mDRMID: string; //定位作用 begin // mDRMIDList := ''; - // 浱ǰ¼ BCIID + // 保存当前记录的 BCIID // if not Order_Main.IsEmpty then // mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString) // else // mDRMID := ''; // // try -// // ȷݼ״̬ +// // 确保数据集状态正常 // Order_Main.DisableControls; // try // Order_Main.First; @@ -1146,7 +1458,7 @@ begin // Order_Main.EnableControls; // end; // -// // ûѡκμ¼ +// // 如果没有选择任何记录 // if mDRMIDList = '' then // begin // @@ -1156,7 +1468,7 @@ begin // Exit; // end; // -// // ִвѯ +// // 执行查询 // with ADOQueryCmd do // begin // Close; @@ -1164,16 +1476,16 @@ begin // SQL.Add('select isnull(sum(Piece), 0) as sselJS from Tat_Cloth_DR_Sub'); // SQL.Add('where DRMID in (' + mDRMIDList + ')'); // -// // ʱʾSQL +// // 调试时可以显示SQL语句 //// ShowMessage('SQL: ' + SQL.Text); // // Open; // -// // ȫķʽ +// // 处理结果（更安全的方式） // if not IsEmpty then // begin // TotalPiece := FieldByName('sselJS').Value; -// // NULLֵͿֵ +// // 处理NULL值和空值 // if VarIsNull(TotalPiece) or VarIsEmpty(TotalPiece) then // sselJS.Caption := '0' // else @@ -1186,7 +1498,7 @@ begin // end; // // -// // Զλԭ¼ +// // 最后尝试定位回原记录 // if mDRMID <> '' then // Order_Main.Locate('DRMID', mDRMID, []); //// sselJS.Text := '0'; @@ -1194,9 +1506,9 @@ begin // except // on E: Exception do // begin -// // ¼Ϣ +// // 记录错误信息 // sselJS.Caption := '0'; -// ShowMessage('ѯʧ: ' + E.Message + #13#10 + 'SQL: ' + ADOQueryCmd.SQL.Text); +// ShowMessage('查询失败: ' + E.Message + #13#10 + 'SQL语句: ' + ADOQueryCmd.SQL.Text); // end; // end; @@ -1204,7 +1516,7 @@ begin try mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString); - // ȷݼ״̬ + // 确保数据集状态正常 Order_Main.DisableControls; // with ADOQueryCmd do // begin @@ -1215,7 +1527,7 @@ begin // Open; // end; - // ûѡκμ¼ + // 如果没有选择任何记录 if Order_Main.IsEmpty then exit; @@ -1232,9 +1544,9 @@ begin except on E: Exception do begin - // ¼Ϣ + // 记录错误信息 sselJS.Caption := '0'; - ShowMessage('ѯʧ: ' + E.Message + #13#10 + 'SQL: ' + ADOQueryCmd.SQL.Text); + ShowMessage('查询失败: ' + E.Message + #13#10 + 'SQL语句: ' + ADOQueryCmd.SQL.Text); end; end; end; diff --git a/E04梭织坯布仓库/U_TatDRtInPut.dfm b/E04梭织坯布仓库/U_TatDRtInPut.dfm index a8b41ba..4bc2c87 100644 --- a/E04梭织坯布仓库/U_TatDRtInPut.dfm +++ b/E04梭织坯布仓库/U_TatDRtInPut.dfm @@ -3,7 +3,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut Top = 139 Caption = #21457#36135#30003#35831#24405#20837 ClientHeight = 644 - ClientWidth = 1252 + ClientWidth = 1264 Color = clWhite Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -19,7 +19,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut Tag = 1 Left = 0 Top = 0 - Width = 1252 + Width = 1264 Height = 38 AutoSize = True ButtonHeight = 38 @@ -77,7 +77,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut object ScrollBox1: TScrollBox Left = 0 Top = 38 - Width = 1252 + Width = 1264 Height = 99 Align = alTop BevelInner = bvNone @@ -152,19 +152,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut Font.Style = [fsBold] ParentFont = False end - object Label3: TLabel - Left = 873 - Top = 13 - Width = 65 - Height = 12 - Caption = #25910#36135#21333#20301#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end object Label4: TLabel Left = 31 Top = 43 @@ -275,23 +262,13 @@ object frmTatDRtInPut: TfrmTatDRtInPut 'Y' 'Kg') end - object SHDANWEI: TBtnEditC - Tag = 1 - Left = 936 - Top = 9 - Width = 138 - Height = 20 - TabOrder = 5 - OnBtnUpClick = SHDANWEIBtnUpClick - OnBtnDnClick = SHDANWEIBtnDnClick - end object Seal: TEdit Tag = 1 Left = 96 Top = 40 Width = 132 Height = 18 - TabOrder = 6 + TabOrder = 5 end object tube: TEdit Tag = 1 @@ -299,7 +276,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut Top = 40 Width = 132 Height = 18 - TabOrder = 7 + TabOrder = 6 end object Packaging: TEdit Tag = 1 @@ -307,7 +284,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut Top = 40 Width = 132 Height = 18 - TabOrder = 8 + TabOrder = 7 end object ToCoID: TEdit Tag = 1 @@ -315,7 +292,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut Top = 35 Width = 96 Height = 18 - TabOrder = 9 + TabOrder = 8 Visible = False end end @@ -323,7 +300,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut Tag = 1 Left = 0 Top = 137 - Width = 1252 + Width = 1264 Height = 38 AutoSize = True ButtonHeight = 38 @@ -389,7 +366,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut object cxGrid1: TcxGrid Left = 0 Top = 175 - Width = 1252 + Width = 1264 Height = 469 Align = alClient TabOrder = 3 @@ -500,6 +477,13 @@ object frmTatDRtInPut: TfrmTatDRtInPut HeaderAlignmentHorz = taCenter Width = 71 end + object Tv1PFPrice: TcxGridDBColumn + Caption = #24179#26041#21333#20215 + DataBinding.FieldName = 'PFPrice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object Tv1Volume: TcxGridDBColumn Caption = #37197#36135#30003#35831#21367#25968 DataBinding.FieldName = 'Volume' @@ -542,14 +526,14 @@ object frmTatDRtInPut: TfrmTatDRtInPut end object DataSource1: TDataSource DataSet = Order_Sub - Left = 684 - Top = 276 + Left = 604 + Top = 308 end object Order_Sub: TClientDataSet Aggregates = <> Params = <> - Left = 596 - Top = 284 + Left = 628 + Top = 378 end object ADOQuery1: TADOQuery Connection = DataLink_TatClothStk.ADOLink diff --git a/E04梭织坯布仓库/U_TatDRtInPut.pas b/E04梭织坯布仓库/U_TatDRtInPut.pas index 502d374..558fdb2 100644 --- a/E04梭织坯布仓库/U_TatDRtInPut.pas +++ b/E04梭织坯布仓库/U_TatDRtInPut.pas @@ -49,8 +49,6 @@ type ToolButton4: TToolButton; Label27: TLabel; QtyUnit: TComboBox; - Label3: TLabel; - SHDANWEI: TBtnEditC; ToolButton5: TToolButton; ToolButton6: TToolButton; Tv1C_code: TcxGridDBColumn; @@ -70,6 +68,7 @@ type Label7: TLabel; ToCoID: TEdit; Tv1issp: TcxGridDBColumn; + Tv1PFPrice: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -97,6 +96,7 @@ type public PState, CopyInt: Integer; FDRMID, canshu1: string; + isCheck: Integer; /////////ж޸Dz״̬ { Public declarations } end; @@ -198,7 +198,7 @@ end; procedure TfrmTatDRtInPut.SHDANWEIBtnDnClick(Sender: TObject); begin - SHDANWEI.Text := ''; +// SHDANWEI.Text := ''; end; procedure TfrmTatDRtInPut.SHDANWEIBtnUpClick(Sender: TObject); @@ -212,7 +212,7 @@ begin flagname := 'ջλ'; if ShowModal = 1 then begin - SHDANWEI.text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); +// SHDANWEI.text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; @@ -228,6 +228,11 @@ begin readCxGrid(trim(self.Caption), Tv1, ''); + if canshu1 = 'ѯ' then + begin + Tv1PFPrice.Visible := false; + end; + InitData(); end; @@ -409,7 +414,15 @@ begin end; RTSetsavedata(ADOCmd, 'Tat_Cloth_DR_Main', ScrollBox1, 1); FieldByName('DRMID').Value := Trim(MaxMid); - FieldByName('Status').Value := '0'; + if isCheck <> 1 then + begin + FieldByName('Status').Value := '0'; + end; + + if isCheck = 1 then ///޸ + begin + FieldByName('CheckEdit').Value := 'Ѹĵ'; + end; Post; end; ///////////////// ///////////////// @@ -499,6 +512,21 @@ begin end; // ShowMessage(Order_Sub.FieldByName('Piece').AsString); C_NumHB(); +///////////////////////////////////////ԭ//////////////////// + Order_Sub.First; + while not Order_Sub.Eof do + begin + if (Order_Sub.FieldByName('Volume').AsString <> '') and (not Order_Sub.FieldByName('Volume').isnull) then + begin + if ((Order_Sub.FieldByName('ApplicationReaon').AsString = '') or (Order_Sub.FieldByName('ApplicationReaon').isnull)) then + begin + Application.MessageBox('дԭ', 'ʾϢ', MB_OK); + Exit; + end; + end; + Order_Sub.Next; + end; + if SaveData() then begin Application.MessageBox('ɹ', 'ʾ', 0); @@ -641,22 +669,23 @@ begin begin if ShowModal = 1 then begin - while cds_sub.locate('SSel', true, []) do +// while cds_sub.locate('SSel', true, []) do + CDS_2.First; + while not CDS_2.Eof do begin with Self.Order_Sub do begin Append; - FieldByName('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').Value; - FieldByName('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').Value; + FieldByName('C_Code').Value := frmTatClothInfoSel.cds_2.fieldbyname('C_Code').Value; + FieldByName('C_Name').Value := frmTatClothInfoSel.cds_2.fieldbyname('C_Name').Value; // FieldByName('C_Spec').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Spec').Value; - FieldByName('C_Width').Value := frmTatClothInfoSel.cds_sub.fieldbyname('C_MXMF').Value; - FieldByName('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').Value; - FieldByName('C_Color').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Color').Value; + FieldByName('C_Width').Value := frmTatClothInfoSel.cds_2.fieldbyname('C_MXMF').Value; + FieldByName('C_GramWeight').Value := frmTatClothInfoSel.cds_2.fieldbyname('C_GramWeight').Value; + FieldByName('C_Color').Value := frmTatClothInfoSel.cds_2.fieldbyname('C_Color').Value; // FieldByName('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ColorNo').Value; // FieldByName('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').Value; end; - cds_sub.Edit; - cds_sub.fieldbyname('SSel').value := false; + cds_2.Next; end; end; diff --git a/E04梭织坯布仓库/testDll.identcache b/E04梭织坯布仓库/testDll.identcache index 39d5501655cbbb2e31746cb4534920e52b420edd..9b95189c74ed5490336333b14d662b66ab3ea2b8 100644 GIT binary patch literal 1375 zcmbtUOK;mo5VpmqM8RnL3;GKJGfmUSO%`oMi0l~Bx(`4=u_8y*Hp?ZkyNsg%0TT4k zI7m*;B`5+U?V$yV);Xp%(qGb}CENd^LrSsPUdscqT+YtS_n57%tgLi{&xb+gulFHK zhv%>UIQ`-GljEOGUp^cL{<^yNRkyX%`MSH)8E&p$oB#OR>GAio7e})<-<=#E&i*_c zYEU}h{7RHbOjbVcbV8beK`qpkZq0)Zfxv5BlrwI2U1o)$K@{O<1U`&4}TV zkW;1XBEB1xB$rg(@B*so230W7(p6fL6e}8$qQ)I6D=mFiS$|wvUo(L#aKE6EQK416 zn_$;HrnLJmu{+RFTT8Co2sIsHsm4W+U&(aU>a^1cDm#9SjaU0dG)^28H>8|<71AtH z0CULpbPFNd(>TP_=44+)R%w-bfwj$31$DAbnb-!A*T@(@aM9I})D*QkJ4m@xkQ{?_ z+o{kp<*NQJ-ft91`k>Hm2HMN{l8GqYR~BKKLw$bm*U6iwvq!HzHA(lkK`8`ZBNKZt zRan63CUHT9ffjVJ21$`%k5G+W>B&If_O{S9JvNe5PV4B`5Taay-6{oakPDjZ9vuPq zFKzA=JYX+t9niaYt`$W%J8BI*f*1sp3H(NBmeO1w%nuG{PhZauem;BkMQmWh*!1w#9hKwHIg~x*63R->XI!gi+)^E z3Poiz0yLg1r%#~=Q4J@+@l9jpE<^k^mSh|f5V{O=k-R<4xN0CcyfX>~yhXlpS}F$l zs7dJMbfX0Xs%h#8Ebk0MFy17k2Ns-q3P&KVvy}DAL0C3g{_o* CM*wU9 delta 27 Ycmcc5wTW>;7z+asOg!ns1EOI709auJIRF3v