From 7f4b0ea6b91b8c1d4d4b453a24834e93141f1b24 Mon Sep 17 00:00:00 2001 From: ZhangQingYue <375354874@qq.com> Date: Sat, 5 Jul 2025 09:59:21 +0800 Subject: [PATCH] 123456789 --- A00通用窗体/U_SalesContract_SXSel.dfm | 22 +- A00通用窗体/U_SalesContract_SXSel.pas | 4 +- A00通用窗体/U_SalesContract_ZZDSXSel.dfm | 48 +- A00通用窗体/U_SalesContract_ZZDSXSel.pas | 29 +- A00通用窗体/U_TatClothInfoSel.dfm | 2 - A00通用窗体/U_TatClothInfoSel.pas | 18 +- A00通用窗体/U_YarnInfoSel.dfm | 1 - A00通用窗体/U_YarnInfoSel.pas | 18 +- A01基础公司管理/Company.dproj.local | 104 +- A01基础公司管理/Company.identcache | Bin 2744 -> 2744 bytes A01基础公司管理/Company.res | Bin 1472 -> 1472 bytes A01基础公司管理/U_EmployeeInPut.dfm | 35 +- A01基础公司管理/U_EmployeeInPut.pas | 26 + A01基础公司管理/U_EmployeeList.dfm | 2 + A01基础公司管理/testDll.res | Bin 3308 -> 3308 bytes A02基础产品管理/ClothInfo.dproj.local | 146 +-- A02基础产品管理/U_ClothType.dfm | 4 +- A02基础产品管理/U_ClothType.pas | 18 +- A02基础产品管理/U_TatClothInfo.dfm | 14 - A02基础产品管理/U_TatClothInfoInput.dfm | 20 +- A02基础产品管理/U_TatClothInfoInput.pas | 5 +- B01基础合同管理/Contract.dproj.local | 116 +- B01基础合同管理/Contract.identcache | Bin 2512 -> 2512 bytes B02基础纱线仓库/YarnStk.dproj.local | 20 +- B04采购计划管理/PurchasePlan.dproj.local | 4 +- B04采购计划管理/U_DataLink.dfm | 7 +- B04采购计划管理/U_YarnPurchasePlanList.dfm | 5 +- B04采购计划管理/U_YarnPurchasePlanList.pas | 1 - B04采购计划管理/U_YarnPurchasePlanPut_ZZD.dfm | 4 +- E00梭织通用窗体/U_TatGYSel.pas | 17 +- E00梭织通用窗体/U_TatPlanSel.dfm | 566 ++++---- E00梭织通用窗体/U_TatPlanSel.pas | 35 +- E01梭织生产计划/TatPlan.identcache | Bin 3050 -> 3050 bytes E01梭织生产计划/U_TatGYInPut.dfm | 54 +- E01梭织生产计划/U_TatGYInPut.pas | 99 +- E01梭织生产计划/U_TatGYList.dfm | 6 +- E01梭织生产计划/U_TatGYList.pas | 6 +- E01梭织生产计划/U_TatPlanCard1.dfm | 1 - E01梭织生产计划/U_TatPlanCard1.pas | 18 +- E01梭织生产计划/U_TatPlanInPut.dfm | 40 +- E01梭织生产计划/U_TatPlanInPut.pas | 221 +++- E01梭织生产计划/U_TatPlanList.dfm | 2 + E01梭织生产计划/U_TatPlanList.pas | 7 +- E01梭织生产计划/U_TatPlanMachInput.dfm | 8 +- E01梭织生产计划/U_TatPlanMachInput.pas | 25 +- E01梭织生产计划/U_TatPlanMachList.dfm | 28 +- E01梭织生产计划/U_TatPlanMachList.pas | 21 +- E02梭织经轴仓库/U_TatOutputList1.dfm | 30 +- E02梭织经轴仓库/U_TatOutputList1.pas | 18 +- E02梭织经轴仓库/U_TatWBCardInPut.dfm | 7 +- E02梭织经轴仓库/U_TatWBCardInPut.pas | 15 +- E02梭织经轴仓库/U_TatWBOutputList_CZ.dfm | 14 +- E02梭织经轴仓库/U_TatWBOutputList_CZ.pas | 18 +- E02梭织经轴仓库/U_TatWBPlanCard.dfm | 42 +- E02梭织经轴仓库/U_TatWBPlanInPut.pas | 18 +- E02梭织经轴仓库/U_WBSpecInPut.dfm | 6 +- E02梭织经轴仓库/U_WBSpecList.dfm | 2 + E02梭织经轴仓库/U_WarpBeamInfoList.dfm | 4 +- E02梭织经轴仓库/U_WarpBeamInfoList.pas | 18 +- E02梭织经轴仓库/WarpBeamStk.dproj.local | 2 +- E04梭织坯布仓库/TatClothStk.dpr | 3 +- E04梭织坯布仓库/TatClothStk.dproj | 54 +- E04梭织坯布仓库/TatClothStk.dproj.local | 199 ++- E04梭织坯布仓库/TatClothStk.identcache | Bin 3190 -> 3384 bytes E04梭织坯布仓库/U_DataLink.pas | 18 +- E04梭织坯布仓库/U_GetDllForm.pas | 6 +- E04梭织坯布仓库/U_TatClothStkList.dfm | 4 +- E04梭织坯布仓库/U_TatClothStkList.pas | 18 +- E04梭织坯布仓库/U_TatClothStkSel.pas | 495 +++++++ E04梭织坯布仓库/U_TatClothStkSelSel.dfm | 1162 +++++++++++++++++ E04梭织坯布仓库/U_TatClothStkSelSel.pas | 495 +++++++ E04梭织坯布仓库/U_TatDRList.dfm | 1 + E04梭织坯布仓库/U_TatDRList.pas | 18 +- .../TradeTotalClothStk.dproj.local | 158 +-- T02贸易汇总仓库/TradeTotalClothStk.identcache | Bin 5768 -> 5768 bytes 75 files changed, 3608 insertions(+), 1044 deletions(-) create mode 100644 E04梭织坯布仓库/U_TatClothStkSel.pas create mode 100644 E04梭织坯布仓库/U_TatClothStkSelSel.dfm create mode 100644 E04梭织坯布仓库/U_TatClothStkSelSel.pas diff --git a/A00通用窗体/U_SalesContract_SXSel.dfm b/A00通用窗体/U_SalesContract_SXSel.dfm index 1495814..098cdd6 100644 --- a/A00通用窗体/U_SalesContract_SXSel.dfm +++ b/A00通用窗体/U_SalesContract_SXSel.dfm @@ -128,6 +128,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel BorderStyle = cxcbsNone PopupMenu = PM_1 TabOrder = 2 + ExplicitTop = 88 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -213,6 +214,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel Caption = #20013#38388#21830 DataBinding.FieldName = 'MiddleName' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 88 @@ -221,6 +223,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel Caption = #20379#24212#21830 DataBinding.FieldName = 'GYS' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Width = 77 end @@ -266,6 +269,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel Kind = bkEllipsis end> Properties.ReadOnly = False + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 89 @@ -280,6 +284,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel Default = True Kind = bkEllipsis end> + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -294,6 +299,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel Default = True Kind = bkEllipsis end> + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -302,6 +308,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel Caption = #27454#21495 DataBinding.FieldName = 'C_StyleNo' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 @@ -310,6 +317,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 88 @@ -325,6 +333,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel Kind = bkEllipsis end> Properties.ReadOnly = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -334,6 +343,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel DataBinding.FieldName = 'ConQty' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -348,6 +358,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel 'Kg' 'M' 'Y') + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 58 @@ -435,19 +446,24 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel Width = 88 end object TV1Column15: TcxGridDBColumn - Caption = #32433#32447#29992#37327 + Caption = #32433#32447#29992#37327'KG' DataBinding.FieldName = 'SXQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Content = DataLink_PurchasePlan.grid_head_red + Styles.Footer = cxStyle1 + Styles.Header = DataLink_PurchasePlan.grid_head_red Width = 100 end object TV1Column16: TcxGridDBColumn - Caption = #32433#32447#24211#23384 + Caption = #32433#32447#24211#23384'KG' DataBinding.FieldName = 'KCQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Content = DataLink_PurchasePlan.grid_head_blue + Styles.Header = DataLink_PurchasePlan.grid_head_blue Width = 100 end object v1Column2: TcxGridDBColumn @@ -462,6 +478,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel Caption = #24050#30003#35831#25968#37327 DataBinding.FieldName = 'SQQty' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Width = 84 end @@ -469,6 +486,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel Caption = #24050#39046#29992#25968#37327 DataBinding.FieldName = 'LYQty' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Width = 81 end diff --git a/A00通用窗体/U_SalesContract_SXSel.pas b/A00通用窗体/U_SalesContract_SXSel.pas index ab81035..8db34f1 100644 --- a/A00通用窗体/U_SalesContract_SXSel.pas +++ b/A00通用窗体/U_SalesContract_SXSel.pas @@ -177,8 +177,8 @@ begin with ADOQueryMain do begin Close; - sql.Clear; - SQL.add('select * from V_HT_SX'); + sql.Clear; + SQL.add('select * from V_HT_SX'); Open; end; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); diff --git a/A00通用窗体/U_SalesContract_ZZDSXSel.dfm b/A00通用窗体/U_SalesContract_ZZDSXSel.dfm index 3658ce7..4904b26 100644 --- a/A00通用窗体/U_SalesContract_ZZDSXSel.dfm +++ b/A00通用窗体/U_SalesContract_ZZDSXSel.dfm @@ -7,14 +7,13 @@ inherited frmSalesContract_ZZDSXSel: TfrmSalesContract_ZZDSXSel Color = clWhite Font.Charset = GB2312_CHARSET Font.Height = -12 - Font.Name = #23435#20307 + Font.Name = #24494#36719#38597#40657 Position = poScreenCenter OnClose = FormClose - ExplicitLeft = -551 ExplicitWidth = 1556 ExplicitHeight = 597 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 17 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 @@ -37,7 +36,6 @@ inherited frmSalesContract_ZZDSXSel: TfrmSalesContract_ZZDSXSel ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitTop = 5 object ToolButton1: TToolButton Left = 0 Top = 0 @@ -77,21 +75,21 @@ inherited frmSalesContract_ZZDSXSel: TfrmSalesContract_ZZDSXSel Left = 18 Top = 15 Width = 36 - Height = 12 + Height = 17 Caption = #21512#21516#21495 end object Label2: TLabel Left = 520 Top = 15 Width = 48 - Height = 12 + Height = 17 Caption = #20135#21697#21517#31216 end object Label3: TLabel Left = 263 Top = 15 Width = 48 - Height = 12 + Height = 17 Caption = #32455#36896#21333#21495 end object ConNo: TEdit @@ -99,7 +97,7 @@ inherited frmSalesContract_ZZDSXSel: TfrmSalesContract_ZZDSXSel Left = 74 Top = 11 Width = 169 - Height = 20 + Height = 25 TabOrder = 0 OnChange = ConNoChange end @@ -108,7 +106,7 @@ inherited frmSalesContract_ZZDSXSel: TfrmSalesContract_ZZDSXSel Left = 588 Top = 11 Width = 169 - Height = 20 + Height = 25 TabOrder = 1 OnChange = ConNoChange end @@ -117,7 +115,7 @@ inherited frmSalesContract_ZZDSXSel: TfrmSalesContract_ZZDSXSel Left = 331 Top = 11 Width = 169 - Height = 20 + Height = 25 TabOrder = 2 OnChange = ConNoChange end @@ -129,9 +127,15 @@ inherited frmSalesContract_ZZDSXSel: TfrmSalesContract_ZZDSXSel Height = 476 Align = alClient BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False PopupMenu = PM_1 TabOrder = 2 - ExplicitTop = 88 + ExplicitTop = 80 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -300,14 +304,6 @@ inherited frmSalesContract_ZZDSXSel: TfrmSalesContract_ZZDSXSel HeaderGlyphAlignmentHorz = taCenter Width = 88 end - object TV1Column2: TcxGridDBColumn - Caption = #24050#30003#35831#25968#37327 - DataBinding.FieldName = 'SQQty' - DataBinding.IsNullValueType = True - FooterAlignmentHorz = taCenter - HeaderAlignmentHorz = taCenter - Width = 91 - end object TV1Column15: TcxGridDBColumn Caption = #32433#32447#29992#37327 DataBinding.FieldName = 'SXQty' @@ -324,6 +320,14 @@ inherited frmSalesContract_ZZDSXSel: TfrmSalesContract_ZZDSXSel Options.Editing = False Width = 100 end + object TV1Column2: TcxGridDBColumn + Caption = #24050#30003#35831#25968#37327 + DataBinding.FieldName = 'SQQty' + DataBinding.IsNullValueType = True + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 91 + end object TV1Column4: TcxGridDBColumn Caption = #24050#39046#29992#25968#37327 DataBinding.FieldName = 'LYQty' @@ -4676,12 +4680,6 @@ inherited frmSalesContract_ZZDSXSel: TfrmSalesContract_ZZDSXSel TextColor = clBlack end object Default: TcxStyle - AssignedValues = [svFont] - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] end object QHuangSe: TcxStyle AssignedValues = [svColor, svFont] diff --git a/A00通用窗体/U_SalesContract_ZZDSXSel.pas b/A00通用窗体/U_SalesContract_ZZDSXSel.pas index defd307..065835d 100644 --- a/A00通用窗体/U_SalesContract_ZZDSXSel.pas +++ b/A00通用窗体/U_SalesContract_ZZDSXSel.pas @@ -165,19 +165,22 @@ begin begin Close; sql.Clear; - - SQL.Add('SELECT A.*,B.*,C.*'); - SQL.Add(' ,SXQty=round(OrdQty*C.MeterQty/1000,2)'); - SQL.Add(' ,SQQty=(select Sum(Y.Qty) from Pur_YarnPlan_Main X '); - SQL.Add('INNER JOIN Pur_YarnPlan_Sub Y on X.PurMId =Y.PurMId '); - SQL.Add('where isnull(X.LX,'''') = ''֯쵥'' and X.OrderNo =A.OrderNo and '); - SQL.Add('isnull(X.status,''0'')=''-1'') '); - - - - sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.Mainid=B.MainId'); - sql.Add(' inner join Tat_Plan_Yarn C on A.Mainid=C.MainId'); - SQL.Add('WHERE A.Status = ''9'' and C.Y_Code <> '''' '); + SQL.Add('SELECT A.*, B.*, C.*'); + SQL.Add(', SXQty = round(OrdQty * C.MeterQty / 1000, 2)'); + SQL.Add(', SQQty = (SELECT SUM(Y.Qty) FROM Pur_YarnPlan_Main X'); + SQL.Add(' INNER JOIN Pur_YarnPlan_Sub Y ON X.PurMId = Y.PurMId'); + SQL.Add(' WHERE ISNULL(X.LX, '''') = ''֯쵥'''); + SQL.Add(' AND X.OrderNo = A.OrderNo'); + SQL.Add(' AND ISNULL(X.status, ''0'') = ''-1'')'); + SQL.Add(', LYQty = (SELECT SUM(X.Qty) FROM BS_Yarn_IO X'); + SQL.Add(' WHERE X.IOFlag = '''''); + SQL.Add(' AND X.ToOrdNo = A.OrderNo'); + SQL.Add(' AND X.Y_Code = C.Y_Code)'); + SQL.Add('FROM Tat_Plan_Main A'); + SQL.Add('INNER JOIN Tat_Plan_Sub B ON A.Mainid = B.MainId'); + SQL.Add('INNER JOIN Tat_Plan_Yarn C ON A.Mainid = C.MainId'); + SQL.Add('WHERE A.Status = ''9'''); + SQL.Add('AND C.Y_Code <> '''''); Open; end; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); diff --git a/A00通用窗体/U_TatClothInfoSel.dfm b/A00通用窗体/U_TatClothInfoSel.dfm index 156ab38..91c5e5c 100644 --- a/A00通用窗体/U_TatClothInfoSel.dfm +++ b/A00通用窗体/U_TatClothInfoSel.dfm @@ -111,8 +111,6 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel Height = 508 Align = alClient TabOrder = 0 - ExplicitLeft = 17 - ExplicitTop = 37 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> diff --git a/A00通用窗体/U_TatClothInfoSel.pas b/A00通用窗体/U_TatClothInfoSel.pas index d4905cc..c13779a 100644 --- a/A00通用窗体/U_TatClothInfoSel.pas +++ b/A00通用窗体/U_TatClothInfoSel.pas @@ -12,7 +12,23 @@ uses cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL, cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL, cxTLData, math, dxScrollbarAnnotations, - dxSkinsCore, dxSkinsDefaultPainters; + dxSkinsCore, dxSkinsDefaultPainters, dxSkinBasic, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue; type TfrmTatClothInfoSel = class(TfrmBaseHelp) diff --git a/A00通用窗体/U_YarnInfoSel.dfm b/A00通用窗体/U_YarnInfoSel.dfm index 6226d51..0c107a0 100644 --- a/A00通用窗体/U_YarnInfoSel.dfm +++ b/A00通用窗体/U_YarnInfoSel.dfm @@ -118,7 +118,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Align = alClient PopupMenu = PM_1 TabOrder = 2 - ExplicitLeft = 1 object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> diff --git a/A00通用窗体/U_YarnInfoSel.pas b/A00通用窗体/U_YarnInfoSel.pas index c8ae8eb..7bc6780 100644 --- a/A00通用窗体/U_YarnInfoSel.pas +++ b/A00通用窗体/U_YarnInfoSel.pas @@ -12,7 +12,23 @@ uses cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, cxCheckBox, Vcl.Menus, dxScrollbarAnnotations, cxContainer, cxImageList, dxSkinsCore, - dxSkinsDefaultPainters; + dxSkinsDefaultPainters, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue; type TfrmYarnInfoSel = class(TfrmBaseHelp) diff --git a/A01基础公司管理/Company.dproj.local b/A01基础公司管理/Company.dproj.local index 422bed6..b65395c 100644 --- a/A01基础公司管理/Company.dproj.local +++ b/A01基础公司管理/Company.dproj.local @@ -1,74 +1,46 @@  - 1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm - 1899-12-30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas - 1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas - 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm - 1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas - 1899-12-30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.pas - 1899-12-30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas - 1899-12-30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.175,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm - 1899-12-30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas - 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas - 1899-12-30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.dfm - 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas= - 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas - 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas - 1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas= - 1899-12-30 00:00:00.000.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas - 1899-12-30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas - 1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm - 1899-12-30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas - 1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm - 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas - 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm - 1899-12-30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas - 1899-12-30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas - 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm - 1899-12-30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas + 1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm + 1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas + 1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas + 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm + 1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas + 1899/12/30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.pas + 1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas + 1899/12/30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.175,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm + 1899/12/30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas + 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas + 1899/12/30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.dfm + 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas= + 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas + 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas + 1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas= + 1899/12/30 00:00:00.000.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas + 1899/12/30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas + 1899/12/30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm + 1899/12/30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas + 1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm + 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas + 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm + 1899/12/30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas + 1899/12/30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas + 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm + 1899/12/30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/A01基础公司管理/Company.identcache b/A01基础公司管理/Company.identcache index 38254fb592738c62867dc0ca4482f7ee91f489f1..ea1f82e2e1b68e956cac1e27ce18d420fe25b32f 100644 GIT binary patch delta 72 zcmdlXxaym}tVScgMpJfT- ScrollbarAnnotations.CustomAnnotations = <> @@ -120,10 +121,24 @@ object frmYGInPut: TfrmYGInPut Options.Editing = False Width = 80 end + object Tv1Column14: TcxGridDBColumn + Caption = #26159#21542#31995#32479#36134#21495 + DataBinding.FieldName = 'SFXTZH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 115 + end object v1GangWei: TcxGridDBColumn Caption = #23703#20301 DataBinding.FieldName = 'Post' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1GangWeiPropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 82 end @@ -362,13 +377,6 @@ object frmYGInPut: TfrmYGInPut HeaderAlignmentHorz = taCenter Width = 100 end - object Tv1Column7: TcxGridDBColumn - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 100 - end object Tv1Column32: TcxGridDBColumn Caption = #31038#20445#21495 DataBinding.FieldName = 'SocialSecurityNumber' @@ -398,6 +406,13 @@ object frmYGInPut: TfrmYGInPut HeaderAlignmentHorz = taCenter Width = 80 end + object Tv1Column7: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end object Tv1Column34: TcxGridDBColumn Caption = #31038#20445#32564#32435#22522#25968 DataBinding.FieldName = 'Socialsecuritybase' diff --git a/A01基础公司管理/U_EmployeeInPut.pas b/A01基础公司管理/U_EmployeeInPut.pas index 5be39de..48bf606 100644 --- a/A01基础公司管理/U_EmployeeInPut.pas +++ b/A01基础公司管理/U_EmployeeInPut.pas @@ -108,6 +108,7 @@ type Tv1Column52: TcxGridDBColumn; cxgrdbclmnTv1Column14: TcxGridDBColumn; btn1: TToolButton; + Tv1Column14: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -116,6 +117,8 @@ type procedure v1SYRNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure btn1Click(Sender: TObject); + procedure v1GangWeiPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); private TPInt: Integer; procedure InitData(); @@ -385,5 +388,28 @@ begin end; end; +procedure TfrmYGInPut.v1GangWeiPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + Flag := 'Post'; + flagname := 'λѡ'; + if ShowModal = 1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('Post').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + end. diff --git a/A01基础公司管理/U_EmployeeList.dfm b/A01基础公司管理/U_EmployeeList.dfm index 1ea0ab5..9007736 100644 --- a/A01基础公司管理/U_EmployeeList.dfm +++ b/A01基础公司管理/U_EmployeeList.dfm @@ -408,6 +408,8 @@ inherited frmEmployeeList: TfrmEmployeeList Align = alClient PopupMenu = PopupMenu1 TabOrder = 1 + ExplicitLeft = 6 + ExplicitTop = 37 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> 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 47ac998..5d825a3 100644 --- a/A02基础产品管理/ClothInfo.dproj.local +++ b/A02基础产品管理/ClothInfo.dproj.local @@ -1,81 +1,81 @@  - 1899-12-30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas - 1899-12-30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas - 1899-12-30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.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.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas - 1899-12-30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas - 1899-12-30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.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.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas - 1899-12-30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas - 1899-12-30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas - 1899-12-30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm - 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.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas - 1899-12-30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas - 1899-12-30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas - 1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas - 1899-12-30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas - 1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.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.217,=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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas - 1899-12-30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm - 1899-12-30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.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.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas - 1899-12-30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas= - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 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.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas + 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.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.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas + 1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas + 1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas + 1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.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.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas + 1899/12/30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas + 1899/12/30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm + 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.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.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.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas + 1899/12/30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas + 1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas + 1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas + 1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 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.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas + 1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm + 1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.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.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas + 1899/12/30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas= + 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm - + diff --git a/A02基础产品管理/U_ClothType.dfm b/A02基础产品管理/U_ClothType.dfm index e41d5ca..c9479cc 100644 --- a/A02基础产品管理/U_ClothType.dfm +++ b/A02基础产品管理/U_ClothType.dfm @@ -88,7 +88,7 @@ inherited frmClothType: TfrmClothType OptionsView.Headers = False RootValue = -1 ScrollbarAnnotations.CustomAnnotations = <> - TabOrder = 1 + TabOrder = 4 OnClick = cxDBTreeList1Click object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn DataBinding.FieldName = 'CTName' @@ -162,7 +162,7 @@ inherited frmClothType: TfrmClothType Top = 245 ExplicitLeft = 385 ExplicitTop = 245 - ExplicitHeight = 28 + ExplicitHeight = 29 end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_ClothInfo.ADOLink diff --git a/A02基础产品管理/U_ClothType.pas b/A02基础产品管理/U_ClothType.pas index cbf565b..92b9eed 100644 --- a/A02基础产品管理/U_ClothType.pas +++ b/A02基础产品管理/U_ClothType.pas @@ -8,7 +8,23 @@ uses cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, ExtCtrls, DBClient, U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, dxSkinsDefaultPainters, cxContainer, cxEdit, - dxSkinsCore, cxFilter, dxScrollbarAnnotations, cxProgressBar; + dxSkinsCore, cxFilter, dxScrollbarAnnotations, cxProgressBar, dxSkinBasic, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful, + dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful, + dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, + dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, + dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue; type TfrmClothType = class(TfrmBaseList) diff --git a/A02基础产品管理/U_TatClothInfo.dfm b/A02基础产品管理/U_TatClothInfo.dfm index e709ab3..ea008cf 100644 --- a/A02基础产品管理/U_TatClothInfo.dfm +++ b/A02基础产品管理/U_TatClothInfo.dfm @@ -359,7 +359,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo Align = alClient PopupMenu = PM_1 TabOrder = 0 - ExplicitLeft = 4 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> @@ -752,7 +751,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo Height = 337 Align = alClient TabOrder = 1 - ExplicitLeft = 0 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -1103,9 +1101,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo object cxTabSheet3: TcxTabSheet Caption = #26679#21697#22270#29255 ImageIndex = 2 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object GroupBox1: TGroupBox Left = 0 Top = 0 @@ -1129,9 +1124,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo object cxTabSheet4: TcxTabSheet Caption = #36215#32508#27861 ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object QZF: TMemo Tag = 2 Left = 0 @@ -1153,9 +1145,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo object cxTabSheet5: TcxTabSheet Caption = #31359#32508#27861 ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object CZF: TMemo Tag = 2 Left = 0 @@ -1177,9 +1166,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo object cxTabSheet6: TcxTabSheet Caption = #31359#31576#27861 ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object CKF: TMemo Tag = 2 Left = 0 diff --git a/A02基础产品管理/U_TatClothInfoInput.dfm b/A02基础产品管理/U_TatClothInfoInput.dfm index a7b8a62..dbebee0 100644 --- a/A02基础产品管理/U_TatClothInfoInput.dfm +++ b/A02基础产品管理/U_TatClothInfoInput.dfm @@ -9,6 +9,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Font.Height = -16 OldCreateOrder = True Position = poScreenCenter + ExplicitTop = -236 ExplicitWidth = 1556 ExplicitHeight = 776 PixelsPerInch = 96 @@ -597,6 +598,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Align = alClient PopupMenu = PM_1 TabOrder = 1 + ExplicitLeft = -2 + ExplicitTop = 0 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -734,7 +737,14 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter - Width = 80 + Width = 96 + end + object TV1Column14: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'Z_Number' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 end object TV1Column9: TcxGridDBColumn Caption = #25104#20998 @@ -829,6 +839,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Align = alClient PopupMenu = PM_2 TabOrder = 1 + ExplicitLeft = -2 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -968,6 +979,13 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput HeaderAlignmentHorz = taCenter Width = 80 end + object Tv2Column14: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'Z_Number' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 88 + end object Tv2Column8: TcxGridDBColumn Caption = #31859'/'#24212#29992#37327 DataBinding.FieldName = 'MeterQty' diff --git a/A02基础产品管理/U_TatClothInfoInput.pas b/A02基础产品管理/U_TatClothInfoInput.pas index 1ef3b03..b784283 100644 --- a/A02基础产品管理/U_TatClothInfoInput.pas +++ b/A02基础产品管理/U_TatClothInfoInput.pas @@ -180,6 +180,8 @@ type Label22: TLabel; WeiSha: TcxTextEdit; LPDW: TcxComboBox; + TV1Column14: TcxGridDBColumn; + Tv2Column14: TcxGridDBColumn; procedure FormShow(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); @@ -1150,7 +1152,7 @@ begin FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value; FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; - + FieldByName('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value; Post; end; @@ -1502,6 +1504,7 @@ begin FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value; FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; + FieldByName('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value; Post; end; diff --git a/B01基础合同管理/Contract.dproj.local b/B01基础合同管理/Contract.dproj.local index 3b5ea8c..6155c2a 100644 --- a/B01基础合同管理/Contract.dproj.local +++ b/B01基础合同管理/Contract.dproj.local @@ -1,85 +1,85 @@  - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas - 1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas - 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= 1899/12/30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas= - 1899/12/30 00:00:00.000.441,=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.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas + 1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas + 1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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 + 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm 1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas - 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.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.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas 1899/12/30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas= - 1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas - 1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas - 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas - 1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm - 1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas - 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas - 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas - 1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas= + 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas + 1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas + 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm + 1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas + 1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas= + 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.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.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas= - 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas + 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= + 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= 1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm - 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas= + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm + 1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas= + 1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas 1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas + 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm - 1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= - 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm - 1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm - 1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm 1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas= - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.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.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas + 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas + 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas + 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm + 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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm + 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm + 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas + 1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas diff --git a/B01基础合同管理/Contract.identcache b/B01基础合同管理/Contract.identcache index 51f8077fb851c4271d997198dd66051d9d72e824..98955cf86e00ffc5f96aa88c444834c170a3da23 100644 GIT binary patch delta 36 scmca0d_j1FIP2tmR?EratPzvnG8#|r 1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.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.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.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.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas @@ -17,18 +17,18 @@ 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas 1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm - 1899/12/30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas - 1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm 1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm - 1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas= + 1899/12/30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas 1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas + 1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas= 1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas 1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas= 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.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=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.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas 1899/12/30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas 1899/12/30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas @@ -41,13 +41,13 @@ 1899/12/30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.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.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas 1899/12/30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas + 1899/12/30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas 1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas= - 1899/12/30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas 1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.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.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas @@ -59,11 +59,11 @@ 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.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm - 1899/12/30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas + 1899/12/30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas diff --git a/B04采购计划管理/PurchasePlan.dproj.local b/B04采购计划管理/PurchasePlan.dproj.local index 921ad27..62d0d74 100644 --- a/B04采购计划管理/PurchasePlan.dproj.local +++ b/B04采购计划管理/PurchasePlan.dproj.local @@ -7,12 +7,12 @@ 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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas diff --git a/B04采购计划管理/U_DataLink.dfm b/B04采购计划管理/U_DataLink.dfm index f3f1d17..84a1b5f 100644 --- a/B04采购计划管理/U_DataLink.dfm +++ b/B04采购计划管理/U_DataLink.dfm @@ -13,8 +13,13 @@ inherited DataLink_PurchasePlan: TDataLink_PurchasePlan end inherited ThreeColorBase: TcxStyleRepository PixelsPerInch = 96 + inherited grid_head_blue: TcxStyle + Font.Height = -12 + Font.Style = [fsBold] + end inherited grid_head_red: TcxStyle - Font.Height = -17 + Font.Height = -12 + Font.Style = [fsBold] TextColor = clRed end end diff --git a/B04采购计划管理/U_YarnPurchasePlanList.dfm b/B04采购计划管理/U_YarnPurchasePlanList.dfm index e5854cb..4cc6940 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList.dfm +++ b/B04采购计划管理/U_YarnPurchasePlanList.dfm @@ -7,8 +7,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Font.Height = -16 FormStyle = fsMDIChild Visible = True - ExplicitLeft = -222 - ExplicitTop = -245 ExplicitWidth = 1380 ExplicitHeight = 774 PixelsPerInch = 96 @@ -184,6 +182,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Align = alClient PopupMenu = pm1 TabOrder = 3 + ExplicitTop = 162 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -855,6 +854,8 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Top = 243 end object cxStyleRepository1: TcxStyleRepository + Left = 40 + Top = 16 PixelsPerInch = 96 object cxStyle1: TcxStyle end diff --git a/B04采购计划管理/U_YarnPurchasePlanList.pas b/B04采购计划管理/U_YarnPurchasePlanList.pas index 7a29308..e1e55b4 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList.pas +++ b/B04采购计划管理/U_YarnPurchasePlanList.pas @@ -1212,7 +1212,6 @@ begin sql.Add(',' + quotedstr(trim('ɹƻID' + trim(MPurMIdS)))); sql.Add(',' + quotedstr(trim('ɹ'))); sql.Add(')'); - sql.Add(' exec P_Pur_YarnPlan_SetStatus '); sql.Add(' @PurMIdS=' + QuotedStr(MPurMIdS)); sql.Add(',@Operation=''ύ'' '); diff --git a/B04采购计划管理/U_YarnPurchasePlanPut_ZZD.dfm b/B04采购计划管理/U_YarnPurchasePlanPut_ZZD.dfm index 312a65b..2f56b22 100644 --- a/B04采购计划管理/U_YarnPurchasePlanPut_ZZD.dfm +++ b/B04采购计划管理/U_YarnPurchasePlanPut_ZZD.dfm @@ -81,6 +81,7 @@ inherited frmYarnPurchasePlanPut_ZZD: TfrmYarnPurchasePlanPut_ZZD AutoSize = True Caption = #32433#32447#26723#26696 ImageIndex = 2 + Visible = False OnClick = ToolButton1Click end object ToolButton4: TToolButton @@ -89,6 +90,7 @@ inherited frmYarnPurchasePlanPut_ZZD: TfrmYarnPurchasePlanPut_ZZD AutoSize = True Caption = #26426#29289#26009#26723#26696 ImageIndex = 2 + Visible = False OnClick = ToolButton4Click end object ToolButton5: TToolButton @@ -96,6 +98,7 @@ inherited frmYarnPurchasePlanPut_ZZD: TfrmYarnPurchasePlanPut_ZZD Top = 0 Caption = #38144#21806#21512#21516 ImageIndex = 2 + Visible = False OnClick = ToolButton5Click end object ToolButton2: TToolButton @@ -116,7 +119,6 @@ inherited frmYarnPurchasePlanPut_ZZD: TfrmYarnPurchasePlanPut_ZZD BorderStyle = cxcbsNone TabOrder = 2 ExplicitLeft = -6 - ExplicitTop = 183 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E00梭织通用窗体/U_TatGYSel.pas b/E00梭织通用窗体/U_TatGYSel.pas index c5079b6..ea5fb66 100644 --- a/E00梭织通用窗体/U_TatGYSel.pas +++ b/E00梭织通用窗体/U_TatGYSel.pas @@ -202,8 +202,23 @@ begin end; -procedure TfrmTatGYSel.ToolButton1Click(Sender: TObject); +procedure TfrmTatGYSel.ToolButton1Click(Sender: TObject); //ѡ begin + if (ADOQueryMain.IsEmpty) or (CDS_1.IsEmpty) then + begin + ShowMessage('ѡУ'); + Exit; + end; + if (ADOQueryMain.FieldByName('C_Code').AsString = '') or (ADOQueryMain.FieldByName('C_Code').IsNull) then + begin + ShowMessage('ѡƷϢ'); + Exit; + end; + if (ADOQueryMain.FieldByName('C_Name').AsString = '') or (ADOQueryMain.FieldByName('C_Name').IsNull) then + begin + ShowMessage('ѡƷϢ'); + Exit; + end; ModalResult := 1; end; diff --git a/E00梭织通用窗体/U_TatPlanSel.dfm b/E00梭织通用窗体/U_TatPlanSel.dfm index 8a4328d..939f0e9 100644 --- a/E00梭织通用窗体/U_TatPlanSel.dfm +++ b/E00梭织通用窗体/U_TatPlanSel.dfm @@ -25,15 +25,9 @@ inherited frmTatPlanSel: TfrmTatPlanSel ButtonWidth = 91 Caption = 'ToolBar1' Color = clWhite - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] Images = ImageList1 List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 0 object ToolButton1: TToolButton @@ -291,300 +285,320 @@ inherited frmTatPlanSel: TfrmTatPlanSel OnChange = OrderNoChange end end - object cxGrid1: TcxGrid [2] + object cxTabControl1: TcxTabControl [2] Left = 0 Top = 97 Width = 1637 Height = 546 Align = alClient TabOrder = 2 - object Tv1: TcxGridDBTableView - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_1 - DataController.Filter.AutoDataSetFilter = True - DataController.Summary.DefaultGroupSummaryItems = < - item - Kind = skSum - Position = spFooter - Column = v1Column6 + Properties.CustomButtons.Buttons = <> + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #24453#24320#22987 + #24050#24320#22987 + #24050#32467#26463 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 544 + ClientRectLeft = 2 + ClientRectRight = 1635 + ClientRectTop = 28 + object cxGrid1: TcxGrid + Left = 2 + Top = 28 + Width = 1633 + Height = 516 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 end - item - Kind = skSum - Column = v1Column6 + object Tv1Column2: TcxGridDBColumn + Caption = #32455#36896#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 91 end - item - Kind = skSum + object v1Column31: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 end - item - Kind = skSum + object v1Column5: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 109 end - item - Kind = skSum + object Tv1Column1: TcxGridDBColumn + Caption = #21152#24037#21333#20301 + DataBinding.FieldName = 'FtyCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 102 end - item - Kind = skSum + object v1Column19: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 102 end - item - Kind = skSum - Position = spFooter + object v1Column21: TcxGridDBColumn + Caption = #22383#24067#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 end - item - Kind = skSum - Position = spFooter + object v1Column2: TcxGridDBColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 87 end - item - Kind = skSum - Position = spFooter + object Tv1Column9: TcxGridDBColumn + Caption = #25972#32463#24037#33402#32534#21495 + DataBinding.FieldName = 'WB_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 end - item - Kind = skSum - Position = spFooter - end> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum - Column = v1PRTOrderQty + object Tv1Column7: TcxGridDBColumn + Caption = #25972#32463#24037#33402#21517#31216 + DataBinding.FieldName = 'WB_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 end - item - Kind = skSum + object Tv1Column4: TcxGridDBColumn + Caption = #26426#22411 + DataBinding.FieldName = 'LoomType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 end - item - Kind = skSum + object v1PRTKZ: TcxGridDBColumn + Caption = #29702#35770#24179#26041#20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 131 end - item - Kind = skSum - Column = v1Column6 + object v1Column3: TcxGridDBColumn + Caption = #23454#27979#24179#26041#20811#37325 + DataBinding.FieldName = 'C_TestGramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 end - item - Kind = skSum + object Tv1Column3: TcxGridDBColumn + Caption = #32428#23494 + DataBinding.FieldName = 'C_FinishLatitudeDensity' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 end - item - Kind = skSum + object v1Column6: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'OrdPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 end - item - Kind = skSum + object v1Column7: TcxGridDBColumn + Caption = #21305#38271 + DataBinding.FieldName = 'OrdPieceLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1PRTMF: TcxGridDBColumn + Caption = #31576#24133 + DataBinding.FieldName = 'C_ReedWidth' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1Column8: TcxGridDBColumn + Caption = #31576#21495 + DataBinding.FieldName = 'C_ReedNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1Column5: TcxGridDBColumn + Caption = #24635#22836#32441 + DataBinding.FieldName = 'C_YarnQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1Column11: TcxGridDBColumn + Caption = #19978#26426#38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column12: TcxGridDBColumn + Caption = #25104#21697#38376#24133 + DataBinding.FieldName = 'C_FinishWidth' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column13: TcxGridDBColumn + Caption = #29256#26412#32534#21495 + DataBinding.FieldName = 'BBNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column6: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column16: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 end - item - Kind = skSum - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsData.Editing = False - OptionsSelection.CellSelect = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - object v1OrderNo: TcxGridDBColumn - Caption = #21512#21516#21495 - DataBinding.FieldName = 'ConNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 70 end - object Tv1Column2: TcxGridDBColumn - Caption = #32455#36896#21333#21495 - DataBinding.FieldName = 'OrderNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 91 + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 end - object v1Column31: TcxGridDBColumn - Caption = #23458#25143 - DataBinding.FieldName = 'CustName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 70 - end - object v1Column5: TcxGridDBColumn - Caption = #19979#21333#26085#26399 - DataBinding.FieldName = 'OrdDate' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 109 - end - object Tv1Column1: TcxGridDBColumn - Caption = #21152#24037#21333#20301 - DataBinding.FieldName = 'FtyCoName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 102 - end - object v1Column19: TcxGridDBColumn - Caption = #20132#36135#26085#26399 - DataBinding.FieldName = 'DlyDate' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxDateEditProperties' - Properties.SaveTime = False - Properties.ShowTime = False - HeaderAlignmentHorz = taCenter - Width = 102 - end - object v1Column21: TcxGridDBColumn - Caption = #22383#24067#32534#21495 - DataBinding.FieldName = 'C_Code' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 100 - end - object v1Column2: TcxGridDBColumn - Caption = #22383#24067#21517#31216 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 87 - end - object Tv1Column9: TcxGridDBColumn - Caption = #25972#32463#24037#33402#32534#21495 - DataBinding.FieldName = 'WB_Code' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 120 - end - object Tv1Column7: TcxGridDBColumn - Caption = #25972#32463#24037#33402#21517#31216 - DataBinding.FieldName = 'WB_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 120 - end - object Tv1Column4: TcxGridDBColumn - Caption = #26426#22411 - DataBinding.FieldName = 'LoomType' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object v1PRTKZ: TcxGridDBColumn - Caption = #29702#35770#24179#26041#20811#37325 - DataBinding.FieldName = 'C_GramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 131 - end - object v1Column3: TcxGridDBColumn - Caption = #23454#27979#24179#26041#20811#37325 - DataBinding.FieldName = 'C_TestGramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 112 - end - object Tv1Column3: TcxGridDBColumn - Caption = #32428#23494 - DataBinding.FieldName = 'C_FinishLatitudeDensity' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 88 - end - object v1Column6: TcxGridDBColumn - Caption = #21305#25968 - DataBinding.FieldName = 'OrdPiece' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 70 - end - object v1Column7: TcxGridDBColumn - Caption = #21305#38271 - DataBinding.FieldName = 'OrdPieceLen' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 60 - end - object v1PRTOrderQty: TcxGridDBColumn - Caption = #24635#25968#37327 - DataBinding.FieldName = 'OrdQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 70 - end - object v1PRTMF: TcxGridDBColumn - Caption = #31576#24133 - DataBinding.FieldName = 'C_ReedWidth' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 70 - end - object Tv1Column8: TcxGridDBColumn - Caption = #31576#21495 - DataBinding.FieldName = 'C_ReedNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 70 - end - object Tv1Column5: TcxGridDBColumn - Caption = #24635#22836#32441 - DataBinding.FieldName = 'C_YarnQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 70 - end - object Tv1Column11: TcxGridDBColumn - Caption = #19978#26426#38376#24133 - DataBinding.FieldName = 'C_Width' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv1Column12: TcxGridDBColumn - Caption = #25104#21697#38376#24133 - DataBinding.FieldName = 'C_FinishWidth' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv1Column13: TcxGridDBColumn - Caption = #29256#26412#32534#21495 - DataBinding.FieldName = 'BBNO' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv1Column15: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'C_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column6: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'C_Spec' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv1Column16: TcxGridDBColumn - Caption = #21046#21333#20154 - DataBinding.FieldName = 'Filler' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object v1Column4: TcxGridDBColumn - Caption = #22791#27880 - DataBinding.FieldName = 'OrdNote' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 70 - end - end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 end end inherited ADOQueryBaseCmd: TADOQuery diff --git a/E00梭织通用窗体/U_TatPlanSel.pas b/E00梭织通用窗体/U_TatPlanSel.pas index 2ccc862..1c87d0e 100644 --- a/E00梭织通用窗体/U_TatPlanSel.pas +++ b/E00梭织通用窗体/U_TatPlanSel.pas @@ -27,7 +27,7 @@ uses dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, - dxSkinXmas2008Blue; + dxSkinXmas2008Blue, cxPC; type TfrmTatPlanSel = class(TfrmBaseHelp) @@ -96,6 +96,7 @@ type cxGrid1Level1: TcxGridLevel; Tv1Column7: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; + cxTabControl1: TcxTabControl; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); @@ -105,6 +106,7 @@ type procedure OrderNoChange(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Tv1DblClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); private procedure InitGrid(); { Private declarations } @@ -146,6 +148,11 @@ begin frmTatPlanSel := nil; end; +procedure TfrmTatPlanSel.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + procedure TfrmTatPlanSel.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := cahide; @@ -162,9 +169,29 @@ begin sql.Add(' select *,PZQty=(select count(*) from Tat_WB_Card X where X.OrderNo =A.OrderNo)'); sql.Add(',ZS=(select ZS from Bs_Cloth_Info X where X.C_Code =B.C_Code) '); sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId'); - sql.Add(' where isnull(A.status,''0'')=''9'' '); - -// ShowMessage(sql.Text); + //SQL.Add(' where isnull(A.status,''0'')=''9'' '); + sql.add('where 1=1'); + case cxTabControl1.TabIndex of + 0: + begin + sql.Add('and isnull(Status,''0'') =''0'' '); + end; + 1: + begin + sql.Add('and isnull(Status,''0'') =''9'' '); + end; + 2: + begin + sql.Add('and isnull(Status,''0'') =''10'' '); +// sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); +// sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); + end; + 3: + begin + sql.Add('and isnull(Status,''0'') not in (''11'',''22'') '); + end; + end; + sql.add('order by A.FILLTIME DESC'); Open; end; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache index d4250425e6fe51235598e227f384841a55c974a4..bab6648ea4e2cff05f3f3677b38f97d27fe078cc 100644 GIT binary patch delta 119 zcmV--0EqwU7wQ)UCIA2cFq04kB(Z}u0h1j8Gm~Bk2$RqY8k1}YVY5#HV*!&62q}{v z0vMAH2_2J-3M-K>8?*QW{sEJ&2Vj%-1(cJ-2I`X@2O*QI1{sqM2wsy<0zs2E0vM45 ZT9Y6HDU)9Y60>FrF9MUO0wR;y0Ucf(Bz^z@ delta 101 zcmaDQ{z{xxje&u|ck)7ZjmZL>h8tNT87Jp3DNR1hEjzi7BNB)mH-|7OF;4d2a@;J+ z!pt Properties.Style = 9 - ClientRectBottom = 422 + ClientRectBottom = 414 ClientRectRight = 1540 ClientRectTop = 28 object cxTabSheet1: TcxTabSheet @@ -681,7 +681,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 931 Top = 0 Width = 609 - Height = 394 + Height = 386 Align = alClient Caption = #32463#25490#21015 Font.Charset = GB2312_CHARSET @@ -696,7 +696,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 2 Top = 31 Width = 605 - Height = 361 + Height = 353 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -711,14 +711,14 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 0 Top = 0 Width = 931 - Height = 394 + Height = 386 Align = alLeft TabOrder = 1 object cxPageControl2: TcxPageControl Left = 1 Top = 1 Width = 929 - Height = 392 + Height = 384 Align = alClient Color = clWhite Font.Charset = GB2312_CHARSET @@ -733,7 +733,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Visible = False Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ClientRectBottom = 392 + ClientRectBottom = 384 ClientRectRight = 929 ClientRectTop = 0 end @@ -741,7 +741,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 1 Top = 1 Width = 929 - Height = 392 + Height = 384 Align = alClient TabOrder = 1 object TV1: TcxGridDBTableView @@ -937,7 +937,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 863 Top = 0 Width = 677 - Height = 394 + Height = 386 Align = alClient Caption = #32428#25490#21015 Font.Charset = GB2312_CHARSET @@ -952,7 +952,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 2 Top = 31 Width = 673 - Height = 361 + Height = 353 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -967,14 +967,14 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 0 Top = 0 Width = 863 - Height = 394 + Height = 386 Align = alLeft TabOrder = 1 object cxPageControl1: TcxPageControl Left = 1 Top = 1 Width = 861 - Height = 392 + Height = 384 Align = alClient Color = clWhite Font.Charset = GB2312_CHARSET @@ -989,7 +989,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Visible = False Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ClientRectBottom = 392 + ClientRectBottom = 384 ClientRectRight = 861 ClientRectTop = 0 end @@ -997,7 +997,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 1 Top = 1 Width = 861 - Height = 392 + Height = 384 Align = alClient TabOrder = 1 object Tv2: TcxGridDBTableView @@ -1192,7 +1192,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut ImageIndex = 3 object cxGrid4: TcxGrid Left = 0 - Top = 352 + Top = 344 Width = 1540 Height = 42 Align = alBottom @@ -1281,7 +1281,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 0 Top = 0 Width = 1540 - Height = 352 + Height = 344 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1301,7 +1301,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 0 Top = 0 Width = 1540 - Height = 394 + Height = 386 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1321,7 +1321,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 0 Top = 0 Width = 1540 - Height = 394 + Height = 386 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText diff --git a/E01梭织生产计划/U_TatGYInPut.pas b/E01梭织生产计划/U_TatGYInPut.pas index 4017c58..713906d 100644 --- a/E01梭织生产计划/U_TatGYInPut.pas +++ b/E01梭织生产计划/U_TatGYInPut.pas @@ -95,7 +95,6 @@ type CDS_QZ: TClientDataSet; ThroughHealdOrder: TcxMemo; C_FinishLatitudeDensity: TcxTextEdit; - C_TestGramWeight: TcxTextEdit; C_GramWeight: TcxTextEdit; C_ReedNo: TcxTextEdit; C_ReedWidth: TcxTextEdit; @@ -189,6 +188,7 @@ type Tv2Column14: TcxGridDBColumn; Label27: TLabel; Label28: TLabel; + C_TestGramWeight: TcxTextEdit; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -218,12 +218,8 @@ type procedure Tv2Column1PropertiesEditValueChanged(Sender: TObject); procedure C_YarnQtyPropertiesEditValueChanged(Sender: TObject); procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); - procedure TV1CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); - procedure Tv2CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); private FXS, FGridFlag: Integer; procedure InitData(); @@ -239,6 +235,7 @@ type public PState, FCopyInt: Integer; FConNo, FMainId, FSubId: string; + fStatus: Integer; //0, 1޸ { Public declarations } end; @@ -592,7 +589,6 @@ begin begin if GetLSNo(ADOQueryCmd, maxno, 'GY', 'Tat_Plan_Main', 4, 1) = False then raise Exception.Create('ˮ쳣'); - OrderNo.Text := maxno; end else @@ -709,7 +705,7 @@ begin FieldByName('MainId').Value := Trim(maxno); FieldByName('SubId').Value := Trim(maxsubno); FieldByName('YRId').Value := Trim(maxpbno); - RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_1, 'Tat_Plan_Yarn', 0); + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Tat_Plan_Yarn', 0); Post; end; CDS_1.Edit; @@ -732,7 +728,6 @@ begin begin if GetLSNo(ADOQueryTemp, maxpbno, 'RJ', 'Tat_Plan_Yarn', 4, 1) = False then raise Exception.Create('ȡˮʧܣ'); - end else begin @@ -912,7 +907,18 @@ begin // Application.MessageBox('ƥǷ!', 'ʾ', 0); // Exit; // end; - + with ADOQueryTemp do + begin + close; + SQL.Clear; + sql.Add('select * from Tat_Plan_Sub where C_Code = ' + QuotedStr(C_Code.Text)); + Open; + end; + if (ADOQueryTemp.RecordCount <> 0) and (FStatus = 0) then + begin + Application.MessageBox('ظ', 'ʾ', 0); + Exit; + end; if SaveData() then begin Application.MessageBox('ɹ', 'ʾ', 0); @@ -982,9 +988,7 @@ begin CDS_QZ.EnableControls; end; -procedure TfrmTatGYInPut.TV1CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmTatGYInPut.TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); var AColumn: TcxGridColumn; AFieldName: string; @@ -1011,6 +1015,7 @@ begin end; end; end; + procedure TfrmTatGYInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; @@ -1071,9 +1076,7 @@ begin JSKZ(); end; -procedure TfrmTatGYInPut.Tv2CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmTatGYInPut.Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); var AColumn: TcxGridColumn; AFieldName: string; @@ -1353,31 +1356,57 @@ begin end; end; +//procedure TfrmTatGYInPut.JSKZ(); +//var +// SumJS, SumWS: double; +//begin +// ToolBar1.SetFocus; +// +// if Tv1.DataController.Summary.FooterSummaryValues[0] <> null then +// begin +// SumJS := Tv1.DataController.Summary.FooterSummaryValues[0]; +// end +// else +// begin +// SumJS := 0; +// end; +// +// if Tv2.DataController.Summary.FooterSummaryValues[0] <> null then +// begin +// SumWS := Tv2.DataController.Summary.FooterSummaryValues[0]; +// end +// else +// begin +// SumWS := 0; +// end; +// +// C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2)); +//end; + procedure TfrmTatGYInPut.JSKZ(); var - SumJS, SumWS: double; + SumJS, SumWS, ReedWidthValue: Double; + ErrCode: Integer; + ReedWidthStr: string; + IsInch: Boolean; begin - ToolBar1.SetFocus; + SumJS := IfThen(VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]), 0, Tv1.DataController.Summary.FooterSummaryValues[0]); - if Tv1.DataController.Summary.FooterSummaryValues[0] <> null then + SumWS := IfThen(VarIsNull(Tv2.DataController.Summary.FooterSummaryValues[0]), 0, Tv2.DataController.Summary.FooterSummaryValues[0]); + ReedWidthStr := Trim(C_ReedWidth.Text); + IsInch := ContainsText(ReedWidthStr, '"'); + ReedWidthStr := StringReplace(ReedWidthStr, 'CM', '', [rfReplaceAll, rfIgnoreCase]); + ReedWidthStr := StringReplace(ReedWidthStr, '"', '', [rfReplaceAll, rfIgnoreCase]); + ReedWidthStr := Trim(ReedWidthStr); + Val(ReedWidthStr, ReedWidthValue, ErrCode); + if (ErrCode = 0) and (ReedWidthValue > 0) then begin - SumJS := Tv1.DataController.Summary.FooterSummaryValues[0]; + if IsInch then + ReedWidthValue := ReedWidthValue * 0.0254; + C_GramWeight.Text := FormatFloat('0.00', (SumJS + SumWS) / ReedWidthValue / 100); end else - begin - SumJS := 0; - end; - - if Tv2.DataController.Summary.FooterSummaryValues[0] <> null then - begin - SumWS := Tv2.DataController.Summary.FooterSummaryValues[0]; - end - else - begin - SumWS := 0; - end; - - C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2)); + C_GramWeight.Text := '0.00'; end; procedure TfrmTatGYInPut.cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); diff --git a/E01梭织生产计划/U_TatGYList.dfm b/E01梭织生产计划/U_TatGYList.dfm index dca2c3c..57087df 100644 --- a/E01梭织生产计划/U_TatGYList.dfm +++ b/E01梭织生产计划/U_TatGYList.dfm @@ -1,7 +1,7 @@ inherited frmTatGYList: TfrmTatGYList Left = 249 Top = 194 - Caption = #24037#33402#21333 + Caption = #26797#32455#24037#33402#31649#29702 ClientHeight = 579 ClientWidth = 1540 Font.Height = -16 @@ -167,6 +167,7 @@ inherited frmTatGYList: TfrmTatGYList Color = clWhite ParentBackground = False TabOrder = 6 + ExplicitTop = 24 object Label1: TLabel Left = 18 Top = 14 @@ -300,6 +301,7 @@ inherited frmTatGYList: TfrmTatGYList Height = 439 Align = alClient TabOrder = 2 + ExplicitLeft = -6 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -587,7 +589,7 @@ inherited frmTatGYList: TfrmTatGYList TabOrder = 3 Properties.CustomButtons.Buttons = <> Properties.Style = 9 - Properties.TabIndex = 0 + Properties.TabIndex = 1 Properties.Tabs.Strings = ( #26410#23457#26680 #24050#23457#26680 diff --git a/E01梭织生产计划/U_TatGYList.pas b/E01梭织生产计划/U_TatGYList.pas index f46b39e..631c3e1 100644 --- a/E01梭织生产计划/U_TatGYList.pas +++ b/E01梭织生产计划/U_TatGYList.pas @@ -141,6 +141,7 @@ type { Private declarations } public canshu1, FCheJian: string; + fStatus : Integer; //0, 1޸ { Public declarations } end; @@ -322,7 +323,8 @@ begin frmTatGYInPut := TfrmTatGYInPut.Create(Application); with frmTatGYInPut do begin - PState := 1; + //PState := 1; + fStatus := 1; FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString); FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString); if ShowModal = 1 then @@ -486,7 +488,7 @@ begin frmTatGYInPut := TfrmTatGYInPut.Create(Application); with frmTatGYInPut do begin - PState := 0; + FStatus := 0; FMainId := ''; FSubId := ''; if ShowModal = 1 then diff --git a/E01梭织生产计划/U_TatPlanCard1.dfm b/E01梭织生产计划/U_TatPlanCard1.dfm index f956af4..4371f1a 100644 --- a/E01梭织生产计划/U_TatPlanCard1.dfm +++ b/E01梭织生产计划/U_TatPlanCard1.dfm @@ -243,7 +243,6 @@ inherited frmTatPlanCard1: TfrmTatPlanCard1 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitTop = 147 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E01梭织生产计划/U_TatPlanCard1.pas b/E01梭织生产计划/U_TatPlanCard1.pas index 80150ae..360ce90 100644 --- a/E01梭织生产计划/U_TatPlanCard1.pas +++ b/E01梭织生产计划/U_TatPlanCard1.pas @@ -13,7 +13,23 @@ uses BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, Vcl.Menus, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, cxMaskEdit, cxDropDownEdit, dxSkinsCore, - dxSkinsDefaultPainters, cxProgressBar; + dxSkinsDefaultPainters, cxProgressBar, dxSkinBasic, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue; type TfrmTatPlanCard1 = class(TfrmBaseList) diff --git a/E01梭织生产计划/U_TatPlanInPut.dfm b/E01梭织生产计划/U_TatPlanInPut.dfm index e1c3511..a1b449f 100644 --- a/E01梭织生产计划/U_TatPlanInPut.dfm +++ b/E01梭织生产计划/U_TatPlanInPut.dfm @@ -336,7 +336,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Tag = 2 Left = 963 Top = 149 - Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged + Properties.OnChange = OrdPieceLenPropertiesChange TabOrder = 2 OnKeyPress = ConNoKeyPress Width = 150 @@ -344,8 +344,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object OrdPiece: TcxTextEdit Tag = 2 Left = 409 - Top = 149 - Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged + Top = 152 + Properties.OnChange = OrdPiecePropertiesChange TabOrder = 3 OnKeyPress = ConNoKeyPress Width = 150 @@ -354,6 +354,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Tag = 2 Left = 688 Top = 149 + Properties.OnChange = OrdQtyPropertiesChange TabOrder = 1 OnKeyPress = ConNoKeyPress Width = 150 @@ -666,7 +667,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object GYNo: TcxButtonEdit Tag = 2 Left = 117 - Top = 149 + Top = 144 Properties.Buttons = < item Default = True @@ -696,9 +697,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet1: TcxTabSheet Caption = #32463#19997#32452#21512 ImageIndex = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object GroupBox1: TGroupBox Left = 931 Top = 0 @@ -888,6 +886,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut DataBinding.FieldName = 'SH' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Width = 79 end object TV1Column13: TcxGridDBColumn Caption = #30424#22836#21495 @@ -1024,6 +1023,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Height = 343 Align = alClient TabOrder = 1 + ExplicitLeft = 10 + ExplicitTop = 9 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -1212,13 +1213,10 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet3: TcxTabSheet Caption = #36215#32508#27861 ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object cxGrid4: TcxGrid Left = 0 - Top = 361 - Width = 1595 + Top = 303 + Width = 1540 Height = 42 Align = alBottom TabOrder = 0 @@ -1305,8 +1303,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Tag = 2 Left = 0 Top = 0 - Width = 1595 - Height = 361 + Width = 1540 + Height = 303 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1321,15 +1319,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet4: TcxTabSheet Caption = #31359#32508#27861 ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object CZF: TMemo Tag = 2 Left = 0 Top = 0 - Width = 1595 - Height = 403 + Width = 1540 + Height = 345 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1344,15 +1339,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet5: TcxTabSheet Caption = #31359#31576#27861 ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object CKF: TMemo Tag = 2 Left = 0 Top = 0 - Width = 1595 - Height = 403 + Width = 1540 + Height = 345 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText diff --git a/E01梭织生产计划/U_TatPlanInPut.pas b/E01梭织生产计划/U_TatPlanInPut.pas index a4f28a7..776bcab 100644 --- a/E01梭织生产计划/U_TatPlanInPut.pas +++ b/E01梭织生产计划/U_TatPlanInPut.pas @@ -197,8 +197,8 @@ type procedure TBSaveClick(Sender: TObject); procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v2Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); - procedure OrdPieceLenChange(Sender: TObject); - procedure OrdPieceChange(Sender: TObject); + //procedure OrdPieceLenChange(Sender: TObject); + //procedure OrdPieceChange(Sender: TObject); procedure C_CodeKeyPress(Sender: TObject; var Key: Char); procedure ConNoKeyPress(Sender: TObject; var Key: Char); procedure MCTypeBtnUpClick(Sender: TObject); @@ -214,7 +214,7 @@ type procedure C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ToolButton8Click(Sender: TObject); - procedure OrdPiecePropertiesEditValueChanged(Sender: TObject); + //procedure OrdPiecePropertiesEditValueChanged(Sender: TObject); procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TV1Column1PropertiesEditValueChanged(Sender: TObject); @@ -222,14 +222,16 @@ type procedure C_YarnQtyPropertiesEditValueChanged(Sender: TObject); procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); - procedure TV1CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); - procedure Tv2CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure OrdPiecePropertiesChange(Sender: TObject); + procedure OrdQtyPropertiesChange(Sender: TObject); + procedure OrdPieceLenPropertiesChange(Sender: TObject); + procedure UpdateCalculations(Sender: TObject); private FXS, FGridFlag: Integer; + FUpdating: Boolean; + FLastChanged: TObject; procedure InitData(); procedure Initexcel(); procedure CALCYarnQty(); @@ -242,6 +244,7 @@ type public PState, FCopyInt: Integer; FConNo, FMainId, FSubId: string; + fStatus : Integer; //0, 1޸ { Public declarations } end; @@ -556,6 +559,7 @@ procedure TfrmTatPlanInPut.FormCreate(Sender: TObject); var FDate: TDateTime; begin + FUpdating := False; FDate := SGetServerDateTime(ADOQueryTemp); OrdDate.Date := FDate; DlyDate.Date := FDate; @@ -713,7 +717,7 @@ begin FieldByName('MainId').Value := Trim(maxno); FieldByName('SubId').Value := Trim(maxsubno); FieldByName('YRId').Value := Trim(maxpbno); - RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_1, 'Tat_Plan_Yarn', 0); + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Tat_Plan_Yarn', 0); Post; end; CDS_1.Edit; @@ -916,7 +920,18 @@ begin Application.MessageBox('ƥǷ!', 'ʾ', 0); Exit; end; - +// with ADOQueryTemp do +// begin +// close; +// SQL.Clear; +// sql.Add('select * from Tat_Plan_Sub where C_Code = ' + QuotedStr(C_Code.Text)); +// Open; +// end; +// if (ADOQueryTemp.RecordCount <> 0) and (FStatus = 0) then +// begin +// Application.MessageBox('ظ', 'ʾ', 0); +// Exit; +// end; if SaveData() then begin Application.MessageBox('ɹ', 'ʾ', 0); @@ -986,9 +1001,7 @@ begin CDS_QZ.EnableControls; end; -procedure TfrmTatPlanInPut.TV1CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmTatPlanInPut.TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); var AColumn: TcxGridColumn; AFieldName: string; @@ -1015,6 +1028,7 @@ begin end; end; end; + procedure TfrmTatPlanInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; @@ -1077,9 +1091,7 @@ begin JSKZ(); end; -procedure TfrmTatPlanInPut.Tv2CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmTatPlanInPut.Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); var AColumn: TcxGridColumn; AFieldName: string; @@ -1467,31 +1479,80 @@ begin end; end; +//procedure TfrmTatPlanInPut.JSKZ(); +//var +// SumJS, SumWS: double; +//begin +// C_GramWeight.SetFocus; +// +// if Tv1.DataController.Summary.FooterSummaryValues[0] <> null then +// begin +// SumJS := Tv1.DataController.Summary.FooterSummaryValues[0]; +// end +// else +// begin +// SumJS := 0; +// end; +// +// if Tv2.DataController.Summary.FooterSummaryValues[0] <> null then +// begin +// SumWS := Tv2.DataController.Summary.FooterSummaryValues[0]; +// end +// else +// begin +// SumWS := 0; +// end; +// +// C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2)); +//end; + +//procedure TfrmTatPlanInPut.JSKZ(); +//var +// SumJS, SumWS, ReedWidthValue: Double; +// ErrCode: Integer; +//begin +// C_GramWeight.SetFocus; +// SumJS := IfThen(VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]), +// 0, +// Tv1.DataController.Summary.FooterSummaryValues[0]); +// +// SumWS := IfThen(VarIsNull(Tv2.DataController.Summary.FooterSummaryValues[0]), +// 0, +// Tv2.DataController.Summary.FooterSummaryValues[0]); +// Val(Trim(C_ReedWidth.Text), ReedWidthValue, ErrCode); +// if (ErrCode = 0) and (ReedWidthValue > 0) then +// C_GramWeight.Text := FormatFloat('0.00', (SumJS + SumWS) / ReedWidthValue) +// else +// C_GramWeight.Text := '0.00'; +//end; + procedure TfrmTatPlanInPut.JSKZ(); var - SumJS, SumWS: double; + SumJS, SumWS, ReedWidthValue: Double; + ErrCode: Integer; + IsInch: Boolean; begin C_GramWeight.SetFocus; - if Tv1.DataController.Summary.FooterSummaryValues[0] <> null then + SumJS := IfThen(VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]), + 0, + Tv1.DataController.Summary.FooterSummaryValues[0]); + + SumWS := IfThen(VarIsNull(Tv2.DataController.Summary.FooterSummaryValues[0]), + 0, + Tv2.DataController.Summary.FooterSummaryValues[0]); + IsInch := ContainsText(C_ReedWidth.Text, '"'); + Val(Trim(StringReplace(C_ReedWidth.Text, '"', '', [rfReplaceAll, rfIgnoreCase])), + ReedWidthValue, + ErrCode); + if (ErrCode = 0) and (ReedWidthValue > 0) then begin - SumJS := Tv1.DataController.Summary.FooterSummaryValues[0]; + if IsInch then + ReedWidthValue := ReedWidthValue * 0.0254; + C_GramWeight.Text := FormatFloat('0.00', (SumJS + SumWS) / ReedWidthValue/100); end else - begin - SumJS := 0; - end; - - if Tv2.DataController.Summary.FooterSummaryValues[0] <> null then - begin - SumWS := Tv2.DataController.Summary.FooterSummaryValues[0]; - end - else - begin - SumWS := 0; - end; - - C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2)); + C_GramWeight.Text := '0.00'; end; procedure TfrmTatPlanInPut.cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); @@ -1642,19 +1703,83 @@ begin end; end; -procedure TfrmTatPlanInPut.OrdPieceLenChange(Sender: TObject); +//procedure TfrmTatPlanInPut.OrdPieceLenChange(Sender: TObject); +//var +// FOrdQty, FOrdPieceLen: Double; +//begin +// FOrdQty := StrToFloatDef(OrdQty.Text, 0); +// FOrdPieceLen := StrToFloatDef(OrdPieceLen.Text, 0); +// if FOrdPieceLen > 0 then +// OrdPiece.Text := IntToStr(Ceil(FOrdQty / FOrdPieceLen)); +//end; +// +//procedure TfrmTatPlanInPut.OrdPieceChange(Sender: TObject); +//var +// FOrdQty, FOrdPieceLen, FOrdPiece: Double; +//begin +// FOrdPieceLen := StrToFloatDef(OrdPieceLen.Text, 0); +// FOrdPiece := StrToFloatDef(OrdPiece.Text, 0); +// if FOrdPiece > 0 then +// OrdQty.Text := FloatToStr(FOrdPieceLen * FOrdPiece) +// else +// OrdQty.Text := '0'; +//end; +// +//procedure TfrmTatPlanInPut.OrdPiecePropertiesEditValueChanged(Sender: TObject); +//begin +// OrdQty.text := floattostr(strtofloatdef(OrdPiece.text, 0) * strtofloatdef(OrdPieceLen.text, 0)); +//end; + +procedure TfrmTatPlanInPut.UpdateCalculations(Sender: TObject); var - FOrdQty, FOrdPieceLen: Double; + dQty, dPiece, dPieceLen: Double; begin - FOrdQty := StrToFloatDef(OrdQty.Text, 0); - FOrdPieceLen := StrToFloatDef(OrdPieceLen.Text, 0); - if FOrdPieceLen > 0 then - OrdPiece.Text := IntToStr(Ceil(FOrdQty / FOrdPieceLen)); + if FUpdating then Exit; + FUpdating := True; + try + FLastChanged := Sender; + dQty := StrToFloatDef(OrdQty.Text, 0); + dPiece := StrToFloatDef(OrdPiece.Text, 0); + dPieceLen := StrToFloatDef(OrdPieceLen.Text, 0); + if Sender = OrdQty then + begin + if dPiece > 0 then + OrdPieceLen.Text := FormatFloat('0.##', dQty / dPiece) + else if dPieceLen > 0 then + OrdPiece.Text := FormatFloat('0.##', dQty / dPieceLen); + end + else if Sender = OrdPiece then + begin + if dPieceLen > 0 then + OrdQty.Text := FormatFloat('0.##', dPiece * dPieceLen) + else if dQty > 0 then + OrdPieceLen.Text := FormatFloat('0.##', dQty / dPiece); + end + else if Sender = OrdPieceLen then + begin + if dPiece > 0 then + OrdQty.Text := FormatFloat('0.##', dPiece * dPieceLen) + else if dQty > 0 then + OrdPiece.Text := FormatFloat('0.##', dQty / dPieceLen); + end; + finally + FUpdating := False; + end; end; -procedure TfrmTatPlanInPut.OrdPiecePropertiesEditValueChanged(Sender: TObject); +procedure TfrmTatPlanInPut.OrdPieceLenPropertiesChange(Sender: TObject); //pi chang begin - OrdQty.text := floattostr(strtofloatdef(OrdPiece.text, 0) * strtofloatdef(OrdPieceLen.text, 0)); + UpdateCalculations(Sender); +end; + +procedure TfrmTatPlanInPut.OrdPiecePropertiesChange(Sender: TObject); //pi shu +begin + UpdateCalculations(Sender); +end; + +procedure TfrmTatPlanInPut.OrdQtyPropertiesChange(Sender: TObject); //zong shu liang +begin + UpdateCalculations(Sender); end; procedure TfrmTatPlanInPut.OurCoNameDblClick(Sender: TObject); @@ -1683,18 +1808,6 @@ begin end; end; -procedure TfrmTatPlanInPut.OrdPieceChange(Sender: TObject); -var - FOrdQty, FOrdPieceLen, FOrdPiece: Double; -begin - FOrdPieceLen := StrToFloatDef(OrdPieceLen.Text, 0); - FOrdPiece := StrToFloatDef(OrdPiece.Text, 0); - if FOrdPiece > 0 then - OrdQty.Text := FloatToStr(FOrdPieceLen * FOrdPiece) - else - OrdQty.Text := '0'; -end; - procedure TfrmTatPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then diff --git a/E01梭织生产计划/U_TatPlanList.dfm b/E01梭织生产计划/U_TatPlanList.dfm index 286d383..4feaed1 100644 --- a/E01梭织生产计划/U_TatPlanList.dfm +++ b/E01梭织生产计划/U_TatPlanList.dfm @@ -618,6 +618,8 @@ inherited frmTatPlanList: TfrmTatPlanList #24050#32467#26463 #20840#37096) OnChange = cxTabControl1Change + ExplicitLeft = 32 + ExplicitTop = 106 ClientRectRight = 0 ClientRectTop = 0 end diff --git a/E01梭织生产计划/U_TatPlanList.pas b/E01梭织生产计划/U_TatPlanList.pas index 8fa1781..1e77c42 100644 --- a/E01梭织生产计划/U_TatPlanList.pas +++ b/E01梭织生产计划/U_TatPlanList.pas @@ -144,6 +144,7 @@ type { Private declarations } public canshu1, FCheJian: string; + fStatus : Integer; //0, 1޸ { Public declarations } end; @@ -226,6 +227,7 @@ begin end; + procedure TfrmTatPlanList.TBCloseClick(Sender: TObject); begin Close; @@ -331,7 +333,7 @@ begin frmTatPlanInPut := TfrmTatPlanInPut.Create(Application); with frmTatPlanInPut do begin - PState := 1; + fStatus := 1; FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString); FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString); if ShowModal = 1 then @@ -495,9 +497,10 @@ begin frmTatPlanInPut := TfrmTatPlanInPut.Create(Application); with frmTatPlanInPut do begin - PState := 0; + //PState := 0; FMainId := ''; FSubId := ''; + fStatus := 0; if ShowModal = 1 then begin InitGrid(); diff --git a/E01梭织生产计划/U_TatPlanMachInput.dfm b/E01梭织生产计划/U_TatPlanMachInput.dfm index cee06a9..bf001d0 100644 --- a/E01梭织生产计划/U_TatPlanMachInput.dfm +++ b/E01梭织生产计划/U_TatPlanMachInput.dfm @@ -199,6 +199,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput Left = 561 Top = 10 Enabled = False + StyleDisabled.TextColor = clGrayText TabOrder = 1 Width = 218 end @@ -242,6 +243,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput Left = 127 Top = 90 Enabled = False + StyleDisabled.TextColor = clGray TabOrder = 5 Width = 223 end @@ -250,6 +252,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput Left = 561 Top = 51 Enabled = False + StyleDisabled.TextColor = clGray TabOrder = 6 Width = 218 end @@ -404,6 +407,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput Left = 561 Top = 126 ParentColor = True + Properties.ReadOnly = True + StyleDisabled.TextColor = clGray TabOrder = 12 Width = 218 end @@ -438,8 +443,9 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput Default = True Kind = bkEllipsis end> - Properties.ReadOnly = False + Properties.ReadOnly = True Properties.OnButtonClick = WB_CodePropertiesButtonClick + StyleDisabled.TextColor = clGray TabOrder = 15 Width = 223 end diff --git a/E01梭织生产计划/U_TatPlanMachInput.pas b/E01梭织生产计划/U_TatPlanMachInput.pas index 783dda7..db1d719 100644 --- a/E01梭织生产计划/U_TatPlanMachInput.pas +++ b/E01梭织生产计划/U_TatPlanMachInput.pas @@ -10,7 +10,23 @@ uses cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit, cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, cxMaskEdit, dxDateRanges, - dxScrollbarAnnotations, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters; + dxScrollbarAnnotations, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, + dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful, + dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful, + dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, + dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, + dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue; type TfrmTatPlanMachInput = class(TForm) @@ -365,7 +381,8 @@ begin Self.C_Code.Text := frmTatPlanSel.CDS_1.fieldbyname('C_Code').AsString; Self.C_Name.Text := frmTatPlanSel.CDS_1.fieldbyname('C_Name').AsString; Self.C_FinishLatitudeDensity.Text := frmTatPlanSel.CDS_1.fieldbyname('C_FinishLatitudeDensity').AsString; - + Self.WB_Code.Text := frmTatPlanSel.CDS_1.fieldbyname('WB_Code').AsString; + Self.WB_Name.Text := frmTatPlanSel.CDS_1.fieldbyname('WB_Name').AsString; with ADOQueryTemp do begin Close; @@ -373,8 +390,8 @@ begin sql.Add('select WB_Code,WB_Name from Bs_Cloth_Info where C_Code =''' + Trim(Self.C_Code.Text) + ''''); Open; end; - Self.WB_Code.Text := ADOQueryTemp.fieldbyname('WB_Code').AsString; - Self.WB_Name.Text := ADOQueryTemp.fieldbyname('WB_Name').AsString; +// Self.WB_Code.Text := ADOQueryTemp.fieldbyname('WB_Code').AsString; +// Self.WB_Name.Text := ADOQueryTemp.fieldbyname('WB_Name').AsString; end; end; diff --git a/E01梭织生产计划/U_TatPlanMachList.dfm b/E01梭织生产计划/U_TatPlanMachList.dfm index 283862f..3c11b8b 100644 --- a/E01梭织生产计划/U_TatPlanMachList.dfm +++ b/E01梭织生产计划/U_TatPlanMachList.dfm @@ -207,8 +207,6 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList Align = alClient PopupMenu = PM_1 TabOrder = 2 - ExplicitLeft = -5 - ExplicitTop = 139 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -361,7 +359,29 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 120 + Width = 82 + end + object Tv1Column12: TcxGridDBColumn + Caption = #19978#36724#26102#38388 + DataBinding.FieldName = 'SZSJ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column13: TcxGridDBColumn + Caption = #36724#21345#21495 + DataBinding.FieldName = 'ZKH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 88 + end + object Tv1Column14: TcxGridDBColumn + Caption = #32463#36724#31859#25968 + DataBinding.FieldName = 'JZMS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter end end object cxGrid1Level1: TcxGridLevel @@ -410,8 +430,6 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList Align = alTop TabOrder = 0 Visible = False - ExplicitLeft = 6 - ExplicitTop = -5 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E01梭织生产计划/U_TatPlanMachList.pas b/E01梭织生产计划/U_TatPlanMachList.pas index 8974b84..e06769b 100644 --- a/E01梭织生产计划/U_TatPlanMachList.pas +++ b/E01梭织生产计划/U_TatPlanMachList.pas @@ -14,7 +14,23 @@ uses cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, dxCore, cxDateUtils, cxMaskEdit, cxCalendar, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, cxImage, cxDBEdit, IdFTP, - ShellAPI; + ShellAPI, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue; type TfrmTatPlanMachList = class(TfrmBaseList) @@ -90,6 +106,9 @@ type Tv1Column9: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDestroy(Sender: TObject); procedure P_CodeNameChange(Sender: TObject); diff --git a/E02梭织经轴仓库/U_TatOutputList1.dfm b/E02梭织经轴仓库/U_TatOutputList1.dfm index 7e507ff..767e746 100644 --- a/E02梭织经轴仓库/U_TatOutputList1.dfm +++ b/E02梭织经轴仓库/U_TatOutputList1.dfm @@ -6,7 +6,7 @@ inherited frmTatOutputList1: TfrmTatOutputList1 ExplicitWidth = 1489 ExplicitHeight = 621 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 17 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 @@ -29,7 +29,7 @@ inherited frmTatOutputList1: TfrmTatOutputList1 ParentColor = False ParentFont = False ShowCaptions = True - TabOrder = 0 + TabOrder = 4 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -105,54 +105,54 @@ inherited frmTatOutputList1: TfrmTatOutputList1 BevelOuter = bvLowered Color = clWhite ParentBackground = False - TabOrder = 1 + TabOrder = 5 object Label3: TLabel Left = 448 Top = 13 Width = 24 - Height = 12 + Height = 17 Caption = #21345#21495 end object Label1: TLabel Left = 24 Top = 13 Width = 48 - Height = 12 + Height = 17 Caption = #21047#21345#26085#26399 end object Label2: TLabel Left = 246 Top = 13 Width = 12 - Height = 12 + Height = 17 Caption = #33267 end object Label13: TLabel Left = 288 Top = 128 Width = 24 - Height = 12 + Height = 17 Caption = #23458#25143 end object Label17: TLabel Left = 440 Top = 128 Width = 36 - Height = 12 + Height = 17 Caption = #19994#21153#21592 end object Label7: TLabel Left = 604 Top = 124 Width = 36 - Height = 12 + Height = 17 Caption = #33457#22411#21495 end object Label4: TLabel Left = 624 Top = 13 Width = 24 - Height = 12 + Height = 17 Caption = #24037#24207 end object pcid: TEdit @@ -160,7 +160,7 @@ inherited frmTatOutputList1: TfrmTatOutputList1 Left = 478 Top = 9 Width = 80 - Height = 20 + Height = 25 TabOrder = 0 OnChange = pcidChange end @@ -187,7 +187,7 @@ inherited frmTatOutputList1: TfrmTatOutputList1 Left = 314 Top = 124 Width = 100 - Height = 20 + Height = 25 TabOrder = 3 OnChange = pcidChange end @@ -196,7 +196,7 @@ inherited frmTatOutputList1: TfrmTatOutputList1 Left = 478 Top = 124 Width = 100 - Height = 20 + Height = 25 TabOrder = 4 OnChange = pcidChange end @@ -205,7 +205,7 @@ inherited frmTatOutputList1: TfrmTatOutputList1 Left = 642 Top = 120 Width = 80 - Height = 20 + Height = 25 TabOrder = 5 OnChange = pcidChange end @@ -236,7 +236,7 @@ inherited frmTatOutputList1: TfrmTatOutputList1 Left = 654 Top = 9 Width = 80 - Height = 20 + Height = 25 TabOrder = 8 OnChange = pcidChange end diff --git a/E02梭织经轴仓库/U_TatOutputList1.pas b/E02梭织经轴仓库/U_TatOutputList1.pas index 5729b66..f843a2d 100644 --- a/E02梭织经轴仓库/U_TatOutputList1.pas +++ b/E02梭织经轴仓库/U_TatOutputList1.pas @@ -12,7 +12,23 @@ uses cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxCheckBox, Vcl.Menus, - dxScrollbarAnnotations; + dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxSkinBasic, dxSkinBlack, + dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinVisualStudio2013Blue, + dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, + dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, cxProgressBar; type TfrmTatOutputList1 = class(TfrmBaseList) diff --git a/E02梭织经轴仓库/U_TatWBCardInPut.dfm b/E02梭织经轴仓库/U_TatWBCardInPut.dfm index fd5d5b9..df9f92c 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut.dfm +++ b/E02梭织经轴仓库/U_TatWBCardInPut.dfm @@ -34,6 +34,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Height = 518 Align = alClient TabOrder = 0 + ExplicitLeft = -284 + ExplicitTop = 242 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -702,7 +704,6 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitLeft = -4 object Label15: TLabel Left = 277 Top = 18 @@ -852,8 +853,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Left = 379 Top = 12 Properties.Items.Strings = ( - #27974#36724 - #32463#36724) + #22823#36135 + #35797#26679) TabOrder = 1 Width = 150 end diff --git a/E02梭织经轴仓库/U_TatWBCardInPut.pas b/E02梭织经轴仓库/U_TatWBCardInPut.pas index 4478fd6..693e7c6 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut.pas +++ b/E02梭织经轴仓库/U_TatWBCardInPut.pas @@ -260,7 +260,11 @@ begin end; WBCNO.Text := FWBCNO; end; - + if Trim(WB_ProcessType.Text) = '' then + begin + if Trim(WB_Macher.Text) = '' then + raise Exception.Create('ǤλΪգ'); + end; if trim(WB_Code.Text) = '' then raise Exception.Create('ŲΪգ'); // if StrToIntDef(edtCardQty.Text, 0) = 0 then @@ -278,12 +282,11 @@ begin // raise Exception.Create('᳤Ϊգ'); // if StrToIntDef(WB_YarnLen.Text, 0) = 0 then // raise Exception.Create('ȲΪգ'); - if Trim(WB_Macher.Text) = '' then - raise Exception.Create('ǤλΪգ'); - - if Trim(WB_MachNo.Text) = '' then + if Trim(WB_ProcessType.Text) = '' then + begin + if Trim(WB_MachNo.Text) = '' then raise Exception.Create('ǨΪգ'); - + end; if Trim(WB_YarnDensity.Text) = '' then raise Exception.Create('ܲΪգ'); diff --git a/E02梭织经轴仓库/U_TatWBOutputList_CZ.dfm b/E02梭织经轴仓库/U_TatWBOutputList_CZ.dfm index ae64af6..759b6b5 100644 --- a/E02梭织经轴仓库/U_TatWBOutputList_CZ.dfm +++ b/E02梭织经轴仓库/U_TatWBOutputList_CZ.dfm @@ -16,7 +16,7 @@ inherited frmTatWBOutputList_CZ: TfrmTatWBOutputList_CZ Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 88 + ButtonWidth = 89 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_WarpBeamStk.cxImageList_bar @@ -106,7 +106,7 @@ inherited frmTatWBOutputList_CZ: TfrmTatWBOutputList_CZ OnClick = TBExportClick end object ToolButton1: TToolButton - Left = 668 + Left = 669 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -114,7 +114,7 @@ inherited frmTatWBOutputList_CZ: TfrmTatWBOutputList_CZ OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 755 + Left = 756 Top = 0 AutoSize = True Caption = #20851#38381 @@ -132,7 +132,7 @@ inherited frmTatWBOutputList_CZ: TfrmTatWBOutputList_CZ BevelOuter = bvLowered Color = clWhite ParentBackground = False - TabOrder = 1 + TabOrder = 8 object Label3: TLabel Left = 56 Top = 46 @@ -161,10 +161,10 @@ inherited frmTatWBOutputList_CZ: TfrmTatWBOutputList_CZ ExplicitTop = 2 ExplicitWidth = 1469 inherited cbbType: TcxComboBox - ExplicitHeight = 29 + ExplicitHeight = 33 end inherited EndTime: TcxTimeEdit - ExplicitHeight = 29 + ExplicitHeight = 33 end end object pcid: TcxTextEdit @@ -716,7 +716,7 @@ inherited frmTatWBOutputList_CZ: TfrmTatWBOutputList_CZ Top = 241 ExplicitLeft = 252 ExplicitTop = 241 - ExplicitHeight = 28 + ExplicitHeight = 29 end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_WarpBeamStk.ADOLink diff --git a/E02梭织经轴仓库/U_TatWBOutputList_CZ.pas b/E02梭织经轴仓库/U_TatWBOutputList_CZ.pas index 939f35f..7ed4a31 100644 --- a/E02梭织经轴仓库/U_TatWBOutputList_CZ.pas +++ b/E02梭织经轴仓库/U_TatWBOutputList_CZ.pas @@ -14,7 +14,23 @@ uses dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxCheckBox, Vcl.Menus, dxScrollbarAnnotations, FrameDateTimeSel, cxContainer, cxTextEdit, U_SLTGDTP, cxMemo, Vcl.Imaging.jpeg, cxPC, dxSkinsCore, dxSkinsDefaultPainters, - cxProgressBar; + cxProgressBar, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue; type TfrmTatWBOutputList_CZ = class(TfrmBaseList) diff --git a/E02梭织经轴仓库/U_TatWBPlanCard.dfm b/E02梭织经轴仓库/U_TatWBPlanCard.dfm index 3ad6381..f0c1ce0 100644 --- a/E02梭织经轴仓库/U_TatWBPlanCard.dfm +++ b/E02梭织经轴仓库/U_TatWBPlanCard.dfm @@ -18,14 +18,13 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 107 + ButtonWidth = 131 Caption = 'ToolBar1' DisabledImages = DataLink_WarpBeamStk.cxImageList_bar Images = DataLink_WarpBeamStk.cxImageList_bar List = True ShowCaptions = True TabOrder = 6 - ExplicitWidth = 1376 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -35,7 +34,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = TBRafreshClick end object ToolButton5: TToolButton - Left = 63 + Left = 71 Top = 0 AutoSize = True Caption = #26032#22686 @@ -43,7 +42,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = ToolButton5Click end object ToolButton6: TToolButton - Left = 126 + Left = 142 Top = 0 AutoSize = True Caption = #20462#25913 @@ -51,7 +50,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = ToolButton6Click end object ToolButton3: TToolButton - Left = 189 + Left = 213 Top = 0 AutoSize = True Caption = #36724#21345#21024#38500 @@ -59,7 +58,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = ToolButton3Click end object ToolButton4: TToolButton - Left = 276 + Left = 316 Top = 0 AutoSize = True Caption = #25972#32463#35745#21010#25171#21360 @@ -67,7 +66,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = ToolButton4Click end object ToolButton1: TToolButton - Left = 387 + Left = 451 Top = 0 AutoSize = True Caption = #36724#21345#25171#21360 @@ -75,7 +74,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = ToolButton1Click end object ToolButton2: TToolButton - Left = 474 + Left = 554 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -83,7 +82,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = ToolButton2Click end object TBClose: TToolButton - Left = 561 + Left = 657 Top = 0 AutoSize = True Caption = #20851#38381 @@ -102,7 +101,6 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard ParentBackground = False ParentColor = True TabOrder = 7 - ExplicitWidth = 1376 object Label1: TLabel Left = 15 Top = 45 @@ -170,7 +168,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard TabOrder = 3 ExplicitLeft = 2 ExplicitTop = 2 - ExplicitWidth = 1372 + ExplicitWidth = 1378 ExplicitHeight = 37 inherited lbl2: TLabel Width = 16 @@ -404,7 +402,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard Align = alRight Caption = 'Panel2' TabOrder = 3 - ExplicitLeft = 984 + Visible = False object cxGrid2: TcxGrid Left = 1 Top = 112 @@ -412,6 +410,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard Height = 281 Align = alClient TabOrder = 0 + Visible = False object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -608,7 +607,6 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard Align = alClient PopupMenu = PopupMenu1 TabOrder = 4 - ExplicitWidth = 247 object Tv4: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -754,14 +752,6 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard Options.Editing = False Width = 105 end - object cxGridDBColumn35: TcxGridDBColumn - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 146 - end object Tv4Column3: TcxGridDBColumn Caption = #21152#24037#31867#22411 DataBinding.Expression = #1'jgType' @@ -770,6 +760,14 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard Options.Editing = False Width = 100 end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 146 + end end object cxGridLevel4: TcxGridLevel GridView = Tv4 @@ -784,7 +782,6 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard Align = alBottom TabOrder = 5 Visible = False - ExplicitWidth = 1376 object TabSheet1: TTabSheet Caption = #25972#32463#25195#25551#35760#24405 object cxGrid3: TcxGrid @@ -794,7 +791,6 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard Height = 157 Align = alClient TabOrder = 0 - ExplicitWidth = 1368 object TV3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.pas b/E02梭织经轴仓库/U_TatWBPlanInPut.pas index 62028aa..9b499a1 100644 --- a/E02梭织经轴仓库/U_TatWBPlanInPut.pas +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.pas @@ -12,7 +12,23 @@ uses StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxDateRanges, U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus, dxScrollbarAnnotations, - cxImageList; + cxImageList, dxSkinsCore, dxSkinBasic, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinVisualStudio2013Blue, + dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, + dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue; type TfrmTatWBPlanInPut = class(TfrmBaseInput) diff --git a/E02梭织经轴仓库/U_WBSpecInPut.dfm b/E02梭织经轴仓库/U_WBSpecInPut.dfm index 84b3b98..075a2f8 100644 --- a/E02梭织经轴仓库/U_WBSpecInPut.dfm +++ b/E02梭织经轴仓库/U_WBSpecInPut.dfm @@ -18,7 +18,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 408 Align = alClient TabOrder = 0 - ExplicitHeight = 300 + ExplicitTop = 461 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -107,10 +107,9 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Default = True Kind = bkEllipsis end> - Properties.ReadOnly = True + Properties.ReadOnly = False Properties.OnButtonClick = Tv1Column2PropertiesButtonClick HeaderAlignmentHorz = taCenter - Options.Editing = False Width = 101 end object v1SPSpec: TcxGridDBColumn @@ -263,6 +262,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Ctl3D = False ParentCtl3D = False TabOrder = 2 + ExplicitTop = 36 object Label7: TLabel Left = 75 Top = 342 diff --git a/E02梭织经轴仓库/U_WBSpecList.dfm b/E02梭织经轴仓库/U_WBSpecList.dfm index dab1823..04f4e62 100644 --- a/E02梭织经轴仓库/U_WBSpecList.dfm +++ b/E02梭织经轴仓库/U_WBSpecList.dfm @@ -151,6 +151,8 @@ inherited frmWBSpecList: TfrmWBSpecList Height = 480 Align = alClient TabOrder = 2 + ExplicitLeft = 8 + ExplicitTop = 75 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E02梭织经轴仓库/U_WarpBeamInfoList.dfm b/E02梭织经轴仓库/U_WarpBeamInfoList.dfm index 7c837ba..f1a93d3 100644 --- a/E02梭织经轴仓库/U_WarpBeamInfoList.dfm +++ b/E02梭织经轴仓库/U_WarpBeamInfoList.dfm @@ -108,7 +108,7 @@ inherited frmWarpBeamInfoList: TfrmWarpBeamInfoList BevelOuter = bvLowered Color = clWhite ParentBackground = False - TabOrder = 1 + TabOrder = 4 object Label4: TLabel Left = 41 Top = 9 @@ -214,7 +214,7 @@ inherited frmWarpBeamInfoList: TfrmWarpBeamInfoList end end inherited cxProgressBar2: TcxProgressBar - ExplicitHeight = 28 + ExplicitHeight = 29 end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_WarpBeamStk.ADOLink diff --git a/E02梭织经轴仓库/U_WarpBeamInfoList.pas b/E02梭织经轴仓库/U_WarpBeamInfoList.pas index 38d7fd4..e69ffd5 100644 --- a/E02梭织经轴仓库/U_WarpBeamInfoList.pas +++ b/E02梭织经轴仓库/U_WarpBeamInfoList.pas @@ -13,7 +13,23 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore, - dxSkinsDefaultPainters, cxProgressBar; + dxSkinsDefaultPainters, cxProgressBar, dxSkinBasic, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue; type TfrmWarpBeamInfoList = class(TfrmBaseList) diff --git a/E02梭织经轴仓库/WarpBeamStk.dproj.local b/E02梭织经轴仓库/WarpBeamStk.dproj.local index ab29542..6a81860 100644 --- a/E02梭织经轴仓库/WarpBeamStk.dproj.local +++ b/E02梭织经轴仓库/WarpBeamStk.dproj.local @@ -131,8 +131,8 @@ 1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas 1899/12/30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas - 1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas + 1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas 1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm diff --git a/E04梭织坯布仓库/TatClothStk.dpr b/E04梭织坯布仓库/TatClothStk.dpr index 11d3088..7cf835d 100644 --- a/E04梭织坯布仓库/TatClothStk.dpr +++ b/E04梭织坯布仓库/TatClothStk.dpr @@ -44,7 +44,8 @@ uses FrameDateSel in '..\A00ͨ\FrameDateSel.pas' {frmFrameDateSel: TFrame}, U_TatClothInList_ZDDY in 'U_TatClothInList_ZDDY.pas' {frmTatClothInList_ZDDY}, uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', - U_TradeSalesContractSel in '..\T00óͨô\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}; + U_TradeSalesContractSel in '..\T00óͨô\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, + U_TatClothStkList in 'U_TatClothStkList.pas' {frmTatClothStkList}; {$R *.res} diff --git a/E04梭织坯布仓库/TatClothStk.dproj b/E04梭织坯布仓库/TatClothStk.dproj index da45456..aac1e93 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj +++ b/E04梭织坯布仓库/TatClothStk.dproj @@ -4,7 +4,7 @@ TatClothStk.dpr True Debug - 38017 + 1 Library VCL 19.2 @@ -13,16 +13,6 @@ true - - true - Base - true - - - true - Base - true - true Base @@ -43,24 +33,6 @@ Base true - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - true Cfg_2 @@ -84,13 +56,6 @@ 2052 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - - $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png - android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar - - - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png - System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug @@ -113,15 +78,6 @@ false true - - Debug - - - Debug - - - Debug - CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E04梭织坯布仓库\testDll.exe @@ -228,6 +184,10 @@
frmTradeSalesContractSel
dfm + +
frmTatClothStkList
+ dfm + Cfg_2 Base @@ -250,10 +210,6 @@ - True - True - True - True True False diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local index f4ae97f..f7e5e51 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj.local +++ b/E04梭织坯布仓库/TatClothStk.dproj.local @@ -1,120 +1,93 @@  - 1899-12-30 00:00:00.000.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.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.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.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899-12-30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas - 1899-12-30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm - 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.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas - 1899-12-30 00:00:00.000.559,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList_ZDDY.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.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas= - 1899-12-30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas - 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.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas - 1899-12-30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas - 1899-12-30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas - 1899-12-30 00:00:00.000.500,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm - 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.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas - 1899-12-30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas - 1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.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_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.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.pas - 1899-12-30 00:00:00.000.744,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessInput.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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas - 1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas - 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm - 1899-12-30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas - 1899-12-30 00:00:00.000.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas= - 1899-12-30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas - 1899-12-30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas - 1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.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 - 1899-12-30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.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.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas + 1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.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.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj + 1899/12/30 00:00:00.000.559,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList_ZDDY.pas + 1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.pas= + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas + 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm + 1899/12/30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas + 1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas + 1899/12/30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.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.500,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.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.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899/12/30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.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_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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas= + 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas + 1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas + 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas + 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas + 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= + 1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas + 1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas + 1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.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.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas + 1899/12/30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.744,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessInput.pas + 1899/12/30 00:00:00.000.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas + 1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.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.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.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.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.dfm + 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.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas= + 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= + 2025/07/03 14:12:23.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + @@ -193,5 +166,7 @@ + + diff --git a/E04梭织坯布仓库/TatClothStk.identcache b/E04梭织坯布仓库/TatClothStk.identcache index e5c004f74455fe7f893d1b9e461e4b97d9775842..8e7c1470fc28d5f85b01388187a1f2eea55106fe 100644 GIT binary patch delta 120 zcmew+u|tYcb0gy>=E-lEttYSNl-~S?*??*CW@byq(8&T^a!kQdlMT2u*n&&4gHv-R zD{=@=&f_qi+`!JUIh@Ular13D+ Properties.Style = 5 OnChange = cxPageControl1Change @@ -280,7 +280,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList BorderStyle = cxcbsNone PopupMenu = PM_2 TabOrder = 1 - ExplicitTop = 72 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -844,7 +843,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList BorderStyle = cxcbsNone PopupMenu = PM_1 TabOrder = 2 - ExplicitTop = 133 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E04梭织坯布仓库/U_TatClothStkList.pas b/E04梭织坯布仓库/U_TatClothStkList.pas index e468a1c..f838924 100644 --- a/E04梭织坯布仓库/U_TatClothStkList.pas +++ b/E04梭织坯布仓库/U_TatClothStkList.pas @@ -14,7 +14,23 @@ uses cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, System.StrUtils, cxContainer, dxCore, cxDateUtils, cxMaskEdit, dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, - dxSkinsDefaultPainters; + dxSkinsDefaultPainters, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue; type TfrmTatClothStkList = class(TfrmBaseList) diff --git a/E04梭织坯布仓库/U_TatClothStkSel.pas b/E04梭织坯布仓库/U_TatClothStkSel.pas new file mode 100644 index 0000000..f838924 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothStkSel.pas @@ -0,0 +1,495 @@ +unit U_TatClothStkList; + +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, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, cxPC, System.StrUtils, cxContainer, dxCore, + cxDateUtils, cxMaskEdit, dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, + dxSkinsDefaultPainters, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue; + +type + TfrmTatClothStkList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + CDS_1: TClientDataSet; + ToolButton2: TToolButton; + ToolButton4: TToolButton; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + Panel6: TPanel; + Label31: TLabel; + LBCPAP: TLabel; + BTLP: TButton; + BTNP: TButton; + TCBNOR: TComboBox; + Pnl_F1: TPanel; + Label3: TLabel; + Label7: TLabel; + Label10: TLabel; + Label5: TLabel; + lbl1: TLabel; + Label20: TLabel; + Label23: TLabel; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + OrderNo: TcxTextEdit; + conNO: TcxTextEdit; + STKID: TcxTextEdit; + C_Name: TcxTextEdit; + C_Color: TcxTextEdit; + BCIOID: TcxTextEdit; + C_Pattern: TcxTextEdit; + C_Code: TcxTextEdit; + Pnl_F2: TPanel; + Label4: TLabel; + Label6: TLabel; + Label9: TLabel; + Label13: TLabel; + DateTimePicker3: TDateTimePicker; + DateTimePicker4: TDateTimePicker; + Edit1: TcxTextEdit; + Edit2: TcxTextEdit; + Edit4: TcxTextEdit; + Edit5: TcxTextEdit; + Edit8: TcxTextEdit; + GPM_2: TcxGridPopupMenu; + CDS_2: TClientDataSet; + DS_2: TDataSource; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + TV2Column3: TcxGridDBColumn; + Label18: TLabel; + Label19: TLabel; + Edit9: TcxTextEdit; + Edit10: TcxTextEdit; + Label8: TLabel; + Label14: TLabel; + Edit3: TcxTextEdit; + Edit11: TcxTextEdit; + PM_2: TPopupMenu; + MenuItem1: TMenuItem; + N2: TMenuItem; + TV2Column2: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column32: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + v1Column28: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column42: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label1: TLabel; + BegDate2: TcxDateEdit; + EndDate2: TcxDateEdit; + chk_F2: TcxCheckBox; + Label2: TLabel; + chk_F1: TcxCheckBox; + BegDate: TcxDateEdit; + EndDate: TcxDateEdit; + TV2Column1: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(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 ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure MenuItem1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + private + CurrentPage, RecordsNumber: Integer; + lstPacketId: TStringList; + procedure InitGrid(WSql: string); + procedure InitPage(); + procedure SetStatus(); + { Private declarations } + public + canshu1, FWorkshop: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint; + +{$R *.dfm} +procedure TfrmTatClothStkList.InitPage(); +begin + CurrentPage := 1; + case cxPageControl1.ActivePageIndex of + 0: + begin + InitGrid(SGetHintFilters(Pnl_F2, 1, 2)); + end; + 1: + begin + InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); + end; + end; +end; + +procedure TfrmTatClothStkList.SetStatus(); +begin +// if canshu1 then + +end; + +procedure TfrmTatClothStkList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstPacketId); + Action := caFree; +end; + +procedure TfrmTatClothStkList.FormCreate(Sender: TObject); +begin + inherited; + lstPacketId := TStringList.Create; + EndDate.Date := SGetServerDateTime(ADOQueryTemp); + BegDate.Date := EndDate.Date - 20; + BegDate2.Date := BegDate.Date; + EndDate2.Date := EndDate.Date; + FWorkshop := trim(Self.fParameters3); +end; + +procedure TfrmTatClothStkList.InitGrid(WSql: string); +begin + + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + + case cxPageControl1.ActivePageIndex of + 0: + begin + if chk_F2.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate2.Date)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate2.Date + 1)); + end; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color'); + sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight'); + sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage'); + sql.Add(' from V_Tat_Cloth_Stk A where 1=1 '); + + sql.Add(WSql); + sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color'); +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + TV2.DataController.Filter.Clear; + + end; + 1: + begin + if chk_F1.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1)); + end; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' select top ' + inttostr(RecordsNumber) + ' * '); + sql.Add(' from '); + sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)'); + sql.Add(',COUNT(1) OVER() AS TotalCount'); + sql.Add(', kl= DATEDIFF(dd,IOTime, GETDATE()),* from V_Tat_Cloth_Stk AA where 1=1 '); +// if trim(FWorkshop) <> '' then +// sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' '); + sql.Add('and 1=1 ' + WSql); + sql.Add(') temp_row'); + sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber))); + sql.Add(' order by rownumber'); +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber)); + TV1.DataController.Filter.Clear; + end; + end; + +end; + +procedure TfrmTatClothStkList.TBRafreshClick(Sender: TObject); +begin + InitPage(); +end; + +procedure TfrmTatClothStkList.CDS_1BeforeOpen(DataSet: TDataSet); +begin + lstPacketId.Clear; +end; + +procedure TfrmTatClothStkList.cxPageControl1Change(Sender: TObject); +begin + SetStatus(); +end; + +procedure TfrmTatClothStkList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatClothStkList.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ֿ֯'); + ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ֿ֯'); + CurrentPage := 1; + RecordsNumber := 500; + canshu1 := Trim(Self.fParameters1); + SetStatus(); + InitPage(); +end; + +procedure TfrmTatClothStkList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel(Self.Caption, cxGrid1); +end; + +procedure TfrmTatClothStkList.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + InitPage(); + end; +end; + +procedure TfrmTatClothStkList.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmTatClothStkList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then + ACanvas.Brush.Color := $B3DEF5; +end; + +procedure TfrmTatClothStkList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstPacketId.Clear; //´ݼǰlstPacketId +end; + +procedure TfrmTatClothStkList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstPacketId <> nil then + AText := IntToStr(lstPacketId.Count); +end; + +procedure TfrmTatClothStkList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + BegDate.Date := BegDate2.Date; + EndDate.Date := EndDate2.Date; + chk_F2.Checked := chk_F1.Checked; + cxPageControl1.ActivePageIndex := 1; + SetStatus(); + InitGrid(SGetCDSFilters(Tv2, CDS_2)); +end; + +procedure TfrmTatClothStkList.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then + ACanvas.Brush.Color := $B3DEF5; +end; + +procedure TfrmTatClothStkList.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); +end; + +procedure TfrmTatClothStkList.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); +end; + +procedure TfrmTatClothStkList.TCBNORChange(Sender: TObject); +begin + RecordsNumber := StrToInt(TCBNOR.Text); + CurrentPage := 1; + InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); +end; + +procedure TfrmTatClothStkList.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitPage(); +end; + +procedure TfrmTatClothStkList.MenuItem1Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothStkList.N1Click(Sender: TObject); +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.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; + ShowMessage(WSql); + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TatClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatClothStkList.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ֿ֯'); + WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ֿ֯'); +end; + +end. + diff --git a/E04梭织坯布仓库/U_TatClothStkSelSel.dfm b/E04梭织坯布仓库/U_TatClothStkSelSel.dfm new file mode 100644 index 0000000..2c9a992 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothStkSelSel.dfm @@ -0,0 +1,1162 @@ +inherited frmTatClothStkList: TfrmTatClothStkList + Left = 184 + Top = 138 + Caption = #25104#21697#24211#23384#21015#34920 + ClientHeight = 600 + ClientWidth = 1541 + Font.Height = -16 + FormStyle = fsMDIChild + Position = poScreenCenter + Visible = True + ExplicitWidth = 1557 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1541 + 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_TatClothStk.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30721#21333#25171#21360 + ImageIndex = 21 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxPageControl1: TcxPageControl [1] + Left = 0 + Top = 30 + Width = 1541 + Height = 570 + Align = alClient + TabOrder = 3 + Properties.ActivePage = cxTabSheet2 + Properties.CustomButtons.Buttons = <> + Properties.Style = 5 + OnChange = cxPageControl1Change + ClientRectBottom = 570 + ClientRectRight = 1541 + ClientRectTop = 32 + object cxTabSheet1: TcxTabSheet + Caption = ' '#20135#21697#27719#24635#20449#24687' ' + ImageIndex = 0 + object Pnl_F2: TPanel + Left = 0 + Top = 0 + Width = 1541 + Height = 75 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 0 + object Label4: TLabel + Left = 244 + Top = 10 + Width = 64 + Height = 21 + Hint = '0' + Caption = #32455#36896#21333#21495 + end + object TLabel + Left = 240 + Top = 41 + Width = 68 + Height = 21 + Hint = '0' + Caption = #21512' '#21516' '#21495 + end + object Label6: TLabel + Left = 974 + Top = 10 + Width = 32 + Height = 21 + Hint = '0' + Caption = #39068#33394 + end + object Label9: TLabel + Left = 476 + Top = 41 + Width = 64 + Height = 21 + Hint = '0' + Caption = #20135#21697#21517#31216 + end + object Label13: TLabel + Left = 476 + Top = 10 + Width = 64 + Height = 21 + Hint = '0' + Caption = #20135#21697#32534#21495 + end + object Label18: TLabel + Left = 715 + Top = 10 + Width = 67 + Height = 21 + Hint = '0' + Caption = #23458' '#25143 + end + object Label19: TLabel + Left = 718 + Top = 41 + Width = 62 + Height = 21 + Hint = '1' + Caption = #25209' '#21495 + end + object Label1: TLabel + Left = 85 + Top = 41 + Width = 16 + Height = 21 + Caption = #33267 + end + object DateTimePicker3: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 29 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 0 + end + object DateTimePicker4: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 29 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 1 + end + object Edit1: TcxTextEdit + Tag = 2 + Left = 308 + Top = 6 + Hint = 'OrderNo' + TabOrder = 2 + OnKeyPress = orderNoKeyPress + Width = 150 + end + object Edit2: TcxTextEdit + Tag = 2 + Left = 308 + Top = 37 + Hint = 'ConNO' + TabOrder = 3 + OnKeyPress = orderNoKeyPress + Width = 150 + end + object Edit4: TcxTextEdit + Tag = 2 + Left = 541 + Top = 37 + Hint = 'C_Name' + TabOrder = 4 + OnKeyPress = orderNoKeyPress + Width = 150 + end + object Edit5: TcxTextEdit + Tag = 2 + Left = 1008 + Top = 6 + Hint = 'C_Color' + TabOrder = 5 + OnKeyPress = orderNoKeyPress + Width = 150 + end + object Edit8: TcxTextEdit + Tag = 2 + Left = 541 + Top = 6 + Hint = 'C_Code' + TabOrder = 6 + OnKeyPress = orderNoKeyPress + Width = 150 + end + object Edit9: TcxTextEdit + Tag = 2 + Left = 785 + Top = 37 + Hint = 'BatchNo' + TabOrder = 7 + Width = 150 + end + object Edit10: TcxTextEdit + Tag = 2 + Left = 785 + Top = 6 + Hint = 'CustName' + TabOrder = 8 + Width = 150 + end + object BegDate2: TcxDateEdit + Left = 105 + Top = 6 + Properties.ShowTime = False + TabOrder = 9 + Width = 120 + end + object EndDate2: TcxDateEdit + Left = 105 + Top = 37 + Properties.ShowTime = False + TabOrder = 10 + Width = 120 + end + object chk_F2: TcxCheckBox + Left = 16 + Top = 6 + Caption = #26597#35810#26085#26399 + State = cbsChecked + TabOrder = 11 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 75 + Width = 1541 + Height = 463 + Align = alClient + BorderStyle = cxcbsNone + PopupMenu = PM_2 + TabOrder = 1 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = TV2CellDblClick + OnCustomDrawCell = TV2CustomDrawCell + DataController.DataSource = DS_2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = cxGridDBColumn10 + 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 + Column = cxGridDBColumn7 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 11 + Caption = #32455#36896#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object TV2Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #21697#36136 + DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #21367#25968 + DataBinding.FieldName = 'SumPieceNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'SumGrossWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'SumTare' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'SumNetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'SumMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #30721#25968 + DataBinding.FieldName = 'SumYardage' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV2Column2: TcxGridDBColumn + Caption = #24211#40836 + DataBinding.FieldName = 'kl' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = ' '#20135#21697#26126#32454#20449#24687' ' + ImageIndex = 1 + object Panel6: TPanel + Left = 0 + Top = 102 + Width = 1541 + Height = 33 + Align = alTop + BorderStyle = bsSingle + TabOrder = 0 + DesignSize = ( + 1537 + 29) + object Label31: TLabel + Left = 35 + Top = 6 + Width = 84 + Height = 13 + Alignment = taCenter + Anchors = [akLeft] + Caption = #27599#39029#35760#24405#26465#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Layout = tlCenter + ExplicitTop = 5 + end + object LBCPAP: TLabel + Left = 357 + Top = 2 + Width = 85 + Height = 20 + Alignment = taCenter + Anchors = [akLeft] + AutoSize = False + Caption = #24403#21069#39029'/'#24635#39029#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Layout = tlCenter + ExplicitTop = 1 + end + object BTLP: TButton + Left = 270 + Top = 3 + Width = 78 + Height = 20 + Anchors = [akLeft] + Caption = #19978#19968#39029 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = BTLPClick + end + object BTNP: TButton + Left = 453 + Top = 2 + Width = 78 + Height = 20 + Anchors = [akLeft] + Caption = #19979#19968#39029 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = BTNPClick + end + object TCBNOR: TComboBox + Tag = 2 + Left = 125 + Top = 2 + 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 + ParentFont = False + TabOrder = 2 + Text = '500' + OnChange = TCBNORChange + Items.Strings = ( + '500' + '1000' + '5000' + '10000') + end + end + object Pnl_F1: TPanel + Left = 0 + Top = 0 + Width = 1541 + Height = 102 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label3: TLabel + Left = 236 + Top = 9 + Width = 64 + Height = 21 + Hint = '0' + Caption = #32455#36896#21333#21495 + end + object TLabel + Left = 232 + Top = 40 + Width = 68 + Height = 21 + Hint = '0' + Caption = #21512' '#21516' '#21495 + end + object Label7: TLabel + Left = 715 + Top = 9 + Width = 32 + Height = 21 + Hint = '0' + Caption = #39068#33394 + end + object Label10: TLabel + Left = 905 + Top = 40 + Width = 48 + Height = 21 + Hint = '1' + Caption = #21367#26465#30721 + end + object Label5: TLabel + Left = 481 + Top = 40 + Width = 64 + Height = 21 + Hint = '0' + Caption = #20135#21697#21517#31216 + end + object lbl1: TLabel + Left = 905 + Top = 9 + Width = 48 + Height = 21 + Hint = '0' + Caption = #32568#26465#30721 + end + object Label20: TLabel + Left = 715 + Top = 40 + Width = 32 + Height = 21 + Hint = '0' + Caption = #33457#22411 + end + object Label23: TLabel + Left = 481 + Top = 9 + Width = 64 + Height = 21 + Hint = '0' + Caption = #20135#21697#32534#21495 + end + object Label8: TLabel + Left = 233 + Top = 71 + Width = 67 + Height = 21 + Hint = '0' + Caption = #23458' '#25143 + end + object Label14: TLabel + Left = 483 + Top = 71 + Width = 62 + Height = 21 + Hint = '1' + Caption = #25209' '#21495 + end + object Label2: TLabel + Left = 77 + Top = 40 + Width = 16 + Height = 21 + Caption = #33267 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 29 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 0 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 29 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 1 + end + object OrderNo: TcxTextEdit + Tag = 2 + Left = 307 + Top = 5 + Hint = 'OrderNo' + TabOrder = 2 + OnKeyPress = orderNoKeyPress + Width = 150 + end + object conNO: TcxTextEdit + Tag = 2 + Left = 307 + Top = 36 + Hint = 'ConNO' + TabOrder = 3 + OnKeyPress = orderNoKeyPress + Width = 150 + end + object STKID: TcxTextEdit + Tag = 2 + Left = 955 + Top = 36 + Hint = 'STKID' + TabOrder = 4 + OnKeyPress = orderNoKeyPress + Width = 150 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 547 + Top = 36 + Hint = 'C_Name' + TabOrder = 5 + OnKeyPress = orderNoKeyPress + Width = 150 + end + object C_Color: TcxTextEdit + Tag = 2 + Left = 749 + Top = 5 + Hint = 'C_Color' + TabOrder = 6 + OnKeyPress = orderNoKeyPress + Width = 150 + end + object BCIOID: TcxTextEdit + Tag = 2 + Left = 955 + Top = 5 + Hint = 'BCIOID' + TabOrder = 7 + OnKeyPress = orderNoKeyPress + Width = 150 + end + object C_Pattern: TcxTextEdit + Tag = 2 + Left = 749 + Top = 36 + Hint = 'C_Pattern' + TabOrder = 8 + OnKeyPress = orderNoKeyPress + Width = 150 + end + object C_Code: TcxTextEdit + Tag = 2 + Left = 547 + Top = 5 + Hint = 'C_Code' + TabOrder = 9 + OnKeyPress = orderNoKeyPress + Width = 150 + end + object Edit3: TcxTextEdit + Tag = 2 + Left = 547 + Top = 67 + Hint = 'BatchNo' + TabOrder = 10 + Width = 150 + end + object Edit11: TcxTextEdit + Tag = 2 + Left = 307 + Top = 67 + Hint = 'CustName' + TabOrder = 11 + Width = 150 + end + object chk_F1: TcxCheckBox + Left = 8 + Top = 7 + Caption = #26597#35810#26085#26399 + State = cbsChecked + TabOrder = 12 + end + object BegDate: TcxDateEdit + Left = 94 + Top = 5 + Properties.ShowTime = False + TabOrder = 13 + Width = 120 + end + object EndDate: TcxDateEdit + Left = 94 + Top = 36 + Properties.ShowTime = False + TabOrder = 14 + Width = 120 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 135 + Width = 1541 + Height = 403 + Align = alClient + BorderStyle = cxcbsNone + PopupMenu = PM_1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Filter.OnBeforeChange = Tv1DataControllerFilterBeforeChange + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column27 + end + item + Kind = skSum + Column = v1Column28 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = Tv1Column10 + end + item + Kind = skCount + Column = v1Column23 + end + item + OnGetText = Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText + end + item + 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 v1Column21: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column11: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True + Options.Editing = False + Width = 66 + end + object v1Column32: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column1: TcxGridDBColumn + Caption = #32455#36896#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object Tv1Column4: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column13: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column3: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column5: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column6: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column23: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column8: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column27: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'Tare' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column28: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'NetWeight' + 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 Tv1Column10: TcxGridDBColumn + Caption = #30721#25968 + DataBinding.FieldName = 'Yardage' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21697#36136 + DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column42: TcxGridDBColumn + Caption = #24635#35760#24405#25968 + DataBinding.FieldName = 'TotalCount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column6: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'CIID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + inherited loadProcess: TPanel + Left = 346 + Top = 387 + ExplicitLeft = 346 + ExplicitTop = 387 + end + inherited cxProgressBar2: TcxProgressBar + Left = 338 + Top = 321 + ExplicitLeft = 338 + ExplicitTop = 321 + ExplicitHeight = 29 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 643 + Top = 303 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 567 + Top = 312 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 185 + Top = 258 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 289 + Top = 253 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 91 + Top = 259 + 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 = 674 + Top = 289 + 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 GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 727 + Top = 376 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 776 + Top = 372 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 832 + Top = 375 + end + object PM_2: TPopupMenu + Left = 674 + Top = 379 + object MenuItem1: TMenuItem + Caption = #22797#21046 + OnClick = MenuItem1Click + end + end +end diff --git a/E04梭织坯布仓库/U_TatClothStkSelSel.pas b/E04梭织坯布仓库/U_TatClothStkSelSel.pas new file mode 100644 index 0000000..f838924 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothStkSelSel.pas @@ -0,0 +1,495 @@ +unit U_TatClothStkList; + +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, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, cxPC, System.StrUtils, cxContainer, dxCore, + cxDateUtils, cxMaskEdit, dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, + dxSkinsDefaultPainters, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue; + +type + TfrmTatClothStkList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + CDS_1: TClientDataSet; + ToolButton2: TToolButton; + ToolButton4: TToolButton; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + Panel6: TPanel; + Label31: TLabel; + LBCPAP: TLabel; + BTLP: TButton; + BTNP: TButton; + TCBNOR: TComboBox; + Pnl_F1: TPanel; + Label3: TLabel; + Label7: TLabel; + Label10: TLabel; + Label5: TLabel; + lbl1: TLabel; + Label20: TLabel; + Label23: TLabel; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + OrderNo: TcxTextEdit; + conNO: TcxTextEdit; + STKID: TcxTextEdit; + C_Name: TcxTextEdit; + C_Color: TcxTextEdit; + BCIOID: TcxTextEdit; + C_Pattern: TcxTextEdit; + C_Code: TcxTextEdit; + Pnl_F2: TPanel; + Label4: TLabel; + Label6: TLabel; + Label9: TLabel; + Label13: TLabel; + DateTimePicker3: TDateTimePicker; + DateTimePicker4: TDateTimePicker; + Edit1: TcxTextEdit; + Edit2: TcxTextEdit; + Edit4: TcxTextEdit; + Edit5: TcxTextEdit; + Edit8: TcxTextEdit; + GPM_2: TcxGridPopupMenu; + CDS_2: TClientDataSet; + DS_2: TDataSource; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + TV2Column3: TcxGridDBColumn; + Label18: TLabel; + Label19: TLabel; + Edit9: TcxTextEdit; + Edit10: TcxTextEdit; + Label8: TLabel; + Label14: TLabel; + Edit3: TcxTextEdit; + Edit11: TcxTextEdit; + PM_2: TPopupMenu; + MenuItem1: TMenuItem; + N2: TMenuItem; + TV2Column2: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column32: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + v1Column28: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column42: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label1: TLabel; + BegDate2: TcxDateEdit; + EndDate2: TcxDateEdit; + chk_F2: TcxCheckBox; + Label2: TLabel; + chk_F1: TcxCheckBox; + BegDate: TcxDateEdit; + EndDate: TcxDateEdit; + TV2Column1: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(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 ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure MenuItem1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + private + CurrentPage, RecordsNumber: Integer; + lstPacketId: TStringList; + procedure InitGrid(WSql: string); + procedure InitPage(); + procedure SetStatus(); + { Private declarations } + public + canshu1, FWorkshop: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint; + +{$R *.dfm} +procedure TfrmTatClothStkList.InitPage(); +begin + CurrentPage := 1; + case cxPageControl1.ActivePageIndex of + 0: + begin + InitGrid(SGetHintFilters(Pnl_F2, 1, 2)); + end; + 1: + begin + InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); + end; + end; +end; + +procedure TfrmTatClothStkList.SetStatus(); +begin +// if canshu1 then + +end; + +procedure TfrmTatClothStkList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstPacketId); + Action := caFree; +end; + +procedure TfrmTatClothStkList.FormCreate(Sender: TObject); +begin + inherited; + lstPacketId := TStringList.Create; + EndDate.Date := SGetServerDateTime(ADOQueryTemp); + BegDate.Date := EndDate.Date - 20; + BegDate2.Date := BegDate.Date; + EndDate2.Date := EndDate.Date; + FWorkshop := trim(Self.fParameters3); +end; + +procedure TfrmTatClothStkList.InitGrid(WSql: string); +begin + + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + + case cxPageControl1.ActivePageIndex of + 0: + begin + if chk_F2.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate2.Date)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate2.Date + 1)); + end; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color'); + sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight'); + sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage'); + sql.Add(' from V_Tat_Cloth_Stk A where 1=1 '); + + sql.Add(WSql); + sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color'); +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + TV2.DataController.Filter.Clear; + + end; + 1: + begin + if chk_F1.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1)); + end; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' select top ' + inttostr(RecordsNumber) + ' * '); + sql.Add(' from '); + sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)'); + sql.Add(',COUNT(1) OVER() AS TotalCount'); + sql.Add(', kl= DATEDIFF(dd,IOTime, GETDATE()),* from V_Tat_Cloth_Stk AA where 1=1 '); +// if trim(FWorkshop) <> '' then +// sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' '); + sql.Add('and 1=1 ' + WSql); + sql.Add(') temp_row'); + sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber))); + sql.Add(' order by rownumber'); +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber)); + TV1.DataController.Filter.Clear; + end; + end; + +end; + +procedure TfrmTatClothStkList.TBRafreshClick(Sender: TObject); +begin + InitPage(); +end; + +procedure TfrmTatClothStkList.CDS_1BeforeOpen(DataSet: TDataSet); +begin + lstPacketId.Clear; +end; + +procedure TfrmTatClothStkList.cxPageControl1Change(Sender: TObject); +begin + SetStatus(); +end; + +procedure TfrmTatClothStkList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatClothStkList.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ֿ֯'); + ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ֿ֯'); + CurrentPage := 1; + RecordsNumber := 500; + canshu1 := Trim(Self.fParameters1); + SetStatus(); + InitPage(); +end; + +procedure TfrmTatClothStkList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel(Self.Caption, cxGrid1); +end; + +procedure TfrmTatClothStkList.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + InitPage(); + end; +end; + +procedure TfrmTatClothStkList.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmTatClothStkList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then + ACanvas.Brush.Color := $B3DEF5; +end; + +procedure TfrmTatClothStkList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstPacketId.Clear; //´ݼǰlstPacketId +end; + +procedure TfrmTatClothStkList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstPacketId <> nil then + AText := IntToStr(lstPacketId.Count); +end; + +procedure TfrmTatClothStkList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + BegDate.Date := BegDate2.Date; + EndDate.Date := EndDate2.Date; + chk_F2.Checked := chk_F1.Checked; + cxPageControl1.ActivePageIndex := 1; + SetStatus(); + InitGrid(SGetCDSFilters(Tv2, CDS_2)); +end; + +procedure TfrmTatClothStkList.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then + ACanvas.Brush.Color := $B3DEF5; +end; + +procedure TfrmTatClothStkList.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); +end; + +procedure TfrmTatClothStkList.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); +end; + +procedure TfrmTatClothStkList.TCBNORChange(Sender: TObject); +begin + RecordsNumber := StrToInt(TCBNOR.Text); + CurrentPage := 1; + InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); +end; + +procedure TfrmTatClothStkList.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitPage(); +end; + +procedure TfrmTatClothStkList.MenuItem1Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothStkList.N1Click(Sender: TObject); +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.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; + ShowMessage(WSql); + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TatClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatClothStkList.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ֿ֯'); + WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ֿ֯'); +end; + +end. + diff --git a/E04梭织坯布仓库/U_TatDRList.dfm b/E04梭织坯布仓库/U_TatDRList.dfm index 9aae94f..48b609e 100644 --- a/E04梭织坯布仓库/U_TatDRList.dfm +++ b/E04梭织坯布仓库/U_TatDRList.dfm @@ -475,6 +475,7 @@ inherited frmTatDRList: TfrmTatDRList HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom Control = cxGrid2 + ExplicitWidth = 8 end object cxGrid2: TcxGrid [5] Left = 0 diff --git a/E04梭织坯布仓库/U_TatDRList.pas b/E04梭织坯布仓库/U_TatDRList.pas index 0cdbebc..8e93a5d 100644 --- a/E04梭织坯布仓库/U_TatDRList.pas +++ b/E04梭织坯布仓库/U_TatDRList.pas @@ -12,7 +12,23 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, U_BaseList, dxDateRanges, dxScrollbarAnnotations, - cxContainer, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters; + cxContainer, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinBasic, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful, + dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful, + dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, + dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, + dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue; type TfrmTatDRList = class(TfrmBaseList) diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dproj.local b/T02贸易汇总仓库/TradeTotalClothStk.dproj.local index 00391a9..3b254fc 100644 --- a/T02贸易汇总仓库/TradeTotalClothStk.dproj.local +++ b/T02贸易汇总仓库/TradeTotalClothStk.dproj.local @@ -1,114 +1,114 @@  - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm - 1899/12/30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas - 1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.pas=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas - 1899/12/30 00:00:00.000.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas - 1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas - 1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm - 1899/12/30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm - 1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas - 1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.dfm=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.dfm - 1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas 1899/12/30 00:00:00.000.379,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T02贸易汇总仓库\U_testdll.pas - 1899/12/30 00:00:00.000.656,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm - 1899/12/30 00:00:00.000.389,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothStkList.pas - 1899/12/30 00:00:00.000.282,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutList.pas - 1899/12/30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.pas + 1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm 1899/12/30 00:00:00.000.350,=D:\Dp10RepoV1\项目代码\永亮\T02贸易汇总仓库\U_TradeGreyClothInList.pas 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899/12/30 00:00:00.000.908,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutList.pas - 1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas - 1899/12/30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm + 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm + 1899/12/30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas + 1899/12/30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm 1899/12/30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm - 1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas + 1899/12/30 00:00:00.000.656,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.282,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutList.pas + 1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas + 1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm + 1899/12/30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm + 1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm + 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.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas - 1899/12/30 00:00:00.000.929,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutEdit.pas - 1899/12/30 00:00:00.000.266,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas - 1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas + 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas 1899/12/30 00:00:00.000.801,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkList.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas + 1899/12/30 00:00:00.000.929,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.pas + 1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas + 1899/12/30 00:00:00.000.266,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas + 1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas + 1899/12/30 00:00:00.000.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas + 1899/12/30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas 1899/12/30 00:00:00.000.110,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutList.pas - 1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas 1899/12/30 00:00:00.000.246,=D:\Dp10RepoV1\项目代码\D10szYueXiang\T02贸易汇总仓库\U_CollectImport.pas 1899/12/30 00:00:00.000.307,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas - 1899/12/30 00:00:00.000.795,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInList.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas 1899/12/30 00:00:00.000.336,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeClothOutInspList.pas + 1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.dfm 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm + 1899/12/30 00:00:00.000.795,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInList.pas 1899/12/30 00:00:00.000.713,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutEdit.pas - 1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.dfm 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.210,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInList.pas 1899/12/30 00:00:00.000.038,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothInList.pas 1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas - 1899/12/30 00:00:00.000.549,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.pas 1899/12/30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas 1899/12/30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.pas - 1899/12/30 00:00:00.000.210,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInList.pas - 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas + 1899/12/30 00:00:00.000.549,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas 1899/12/30 00:00:00.000.736,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInEdit.pas 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas - 1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm - 1899/12/30 00:00:00.000.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm - 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.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.pas - 1899/12/30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.662,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.pas - 1899/12/30 00:00:00.000.029,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkSel.pas - 1899/12/30 00:00:00.000.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm - 1899/12/30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj - 1899/12/30 00:00:00.000.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas + 1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm + 1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.dfm=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.dfm 1899/12/30 00:00:00.000.224,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkList.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.662,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas + 1899/12/30 00:00:00.000.029,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkSel.pas + 1899/12/30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutEdit.pas + 1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas + 1899/12/30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.478,=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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas 1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutEdit.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.pas - 1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas + 1899/12/30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm + 1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm - 1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm + 1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm + 1899/12/30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.dfm 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.389,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothStkList.pas + 1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas + 1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.pas + 1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.pas 1899/12/30 00:00:00.000.033,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutEdit.pas 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm - 1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas - 1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm - 1899/12/30 00:00:00.000.722,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas - 1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm - 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.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas - 1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm + 1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm + 1899/12/30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj 1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas - 1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.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.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas - 1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas + 1899/12/30 00:00:00.000.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas + 1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm + 1899/12/30 00:00:00.000.722,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas 1899/12/30 00:00:00.000.591,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.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.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas + 1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas diff --git a/T02贸易汇总仓库/TradeTotalClothStk.identcache b/T02贸易汇总仓库/TradeTotalClothStk.identcache index 365a3e58075ce173720f95d172be01c57f77b86a..56913ab7d27da5bd31b0b43b17c44866d544479d 100644 GIT binary patch delta 472 zcmY+AOG^R)6onm~QRk&OGtO9Jk+#SvSG6&X#)UyGM4@+(6lw-VuI;%AS`~5Hwd)`B zfQSrS_Agwt3#5XemR$#lTHVXNhjY(&PvR$W&T=>$Ii!^s4ummm`-kx+mvJQMDCq;Z zQzwvh6%lr)(O?7=L=F|kfTaxK-5Ww(?19NH;NF==iyb{bi(*AxLQ1OOL(SljdBC)+ zW8V|S1>1{9ZVlhgB%T7MU7M1LYc_?fa|(Tm2p1bdL7u{%CgO$H?7r&rLhu^oaZK|W zie}>0-;Y{X;+$P1N$FQM?>F%5i{s9#;?`{fsgXVpo$h||tJKe8MA^ZOuuk8N;L~5GoIKi$Syv7Iz-7%VKNm|^C7@6AqZC+11GT&_Xp%mn*Bhc|y4;{_4A^$RN8 z4%_M#=ZejvH^rb)%d0!dx-rU{mF7~hWWL6pdyKTFha+#N+;^~Uho!G$w>ZpVFwVYb zjyomESy4U5!4*#Z?Q{nwWG6yQTc9eS@mc6_qD5&nDtHc5vFT6z>oq2e9CUw%=77b! zn&Lpyxw0&JLNi%)nptyRET{R>9Xw{!VW^BPcQ{XY&>NU3vB()I!fHg^cd+d(7s`^< z5Z}d9Li1%$dwI~yIk76aHR56*Mzw8<=#pTTC3p=l<}!W3Y6(zB-1m#j&=_(gR7Nm% z9vu~Q&KTw+w86b~BbDU3pp2-}MW@>TXMP~BC9*t~{yu%=Us#