From b0ee797f6b3da52a3c0dd91928138ba507c4f468 Mon Sep 17 00:00:00 2001 From: "LAPTOP-8NOV8MVQ\\cai" Date: Sat, 19 Jul 2025 09:52:09 +0800 Subject: [PATCH] 11 --- A00通用窗体/U_WBSpecSel.pas | 17 +- A00通用窗体/U_YarnInfoSel.dfm | 9 - A00通用窗体/U_YarnInfoSel.pas | 19 +- A00通用组件/FrameDateTimeSel.pas | 39 +-- E02梭织经轴仓库/U_TatWBPlanCard.dfm | 2 - E02梭织经轴仓库/U_TatWBPlanInPut.dfm | 361 ++++++++++++++++-------- E02梭织经轴仓库/U_TatWBPlanInPut.pas | 273 +++++++++++++++++- E02梭织经轴仓库/U_WBSpecInPut.dfm | 7 +- E02梭织经轴仓库/U_WBSpecList.dfm | 2 + E02梭织经轴仓库/WarpBeamStk.dproj.local | 28 +- 10 files changed, 521 insertions(+), 236 deletions(-) diff --git a/A00通用窗体/U_WBSpecSel.pas b/A00通用窗体/U_WBSpecSel.pas index 382e23c..791417a 100644 --- a/A00通用窗体/U_WBSpecSel.pas +++ b/A00通用窗体/U_WBSpecSel.pas @@ -12,22 +12,7 @@ uses cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, cxCheckBox, Vcl.Menus, dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmWBSpecSel = class(TfrmBaseHelp) diff --git a/A00通用窗体/U_YarnInfoSel.dfm b/A00通用窗体/U_YarnInfoSel.dfm index 0c107a0..76171b4 100644 --- a/A00通用窗体/U_YarnInfoSel.dfm +++ b/A00通用窗体/U_YarnInfoSel.dfm @@ -285,15 +285,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Options.Editing = False Width = 80 end - object v1Column2: TcxGridDBColumn - Tag = 2 - Caption = #39068#33394 - DataBinding.FieldName = 'Y_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end object v1Column12: TcxGridDBColumn Tag = 2 Caption = #22791#27880 diff --git a/A00通用窗体/U_YarnInfoSel.pas b/A00通用窗体/U_YarnInfoSel.pas index 958942e..265be9b 100644 --- a/A00通用窗体/U_YarnInfoSel.pas +++ b/A00通用窗体/U_YarnInfoSel.pas @@ -12,23 +12,7 @@ uses cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, cxCheckBox, Vcl.Menus, dxScrollbarAnnotations, cxContainer, cxImageList, dxSkinsCore, - dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmYarnInfoSel = class(TfrmBaseHelp) @@ -49,7 +33,6 @@ type ImageList1: TImageList; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; - v1Column2: TcxGridDBColumn; v1Column18: TcxGridDBColumn; v1Column15: TcxGridDBColumn; v1SPName: TcxGridDBColumn; diff --git a/A00通用组件/FrameDateTimeSel.pas b/A00通用组件/FrameDateTimeSel.pas index cb65870..05724a3 100644 --- a/A00通用组件/FrameDateTimeSel.pas +++ b/A00通用组件/FrameDateTimeSel.pas @@ -6,41 +6,10 @@ uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, - Vcl.ComCtrls, dxCore, cxDateUtils, - cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, Vcl.StdCtrls, - Vcl.Menus, cxButtons, Vcl.ExtCtrls, DateUtils, - - - - - - - - - - - - - - - - cxSpinEdit, cxTimeEdit, dxSkinsCore, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - dxSkinsDefaultPainters, - - dxSkinWXI, ; + Vcl.ComCtrls, dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, cxDropDownEdit, + cxCalendar, Vcl.StdCtrls, Vcl.Menus, cxButtons, Vcl.ExtCtrls, DateUtils, + cxSpinEdit, cxTimeEdit, dxSkinsCore, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinsDefaultPainters, dxSkinWXI; type TfrmFrameDateTimeSel = class(TFrame) diff --git a/E02梭织经轴仓库/U_TatWBPlanCard.dfm b/E02梭织经轴仓库/U_TatWBPlanCard.dfm index 004c68f..48fd459 100644 --- a/E02梭织经轴仓库/U_TatWBPlanCard.dfm +++ b/E02梭织经轴仓库/U_TatWBPlanCard.dfm @@ -195,8 +195,6 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard Align = alLeft PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitLeft = -6 - ExplicitTop = 119 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm index b0dacd9..1898d07 100644 --- a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm @@ -3,12 +3,13 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Top = 14 Caption = #27974#32433#35745#21010#24405#20837 ClientHeight = 616 - ClientWidth = 952 + ClientWidth = 1429 Color = clWhite Font.Charset = GB2312_CHARSET Font.Name = #23435#20307 Position = poScreenCenter - ExplicitWidth = 968 + ExplicitTop = -30 + ExplicitWidth = 1445 ExplicitHeight = 655 PixelsPerInch = 96 TextHeight = 12 @@ -16,7 +17,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Tag = 1 Left = 0 Top = 0 - Width = 952 + Width = 1429 Height = 38 AutoSize = True ButtonHeight = 38 @@ -35,6 +36,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False ShowCaptions = True TabOrder = 0 + ExplicitWidth = 1124 object TBSave: TToolButton Left = 0 Top = 0 @@ -62,16 +64,15 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut object Panel2: TPanel [1] Left = 0 Top = 353 - Width = 952 + Width = 1429 Height = 263 Align = alClient TabOrder = 1 - ExplicitTop = 192 - ExplicitHeight = 349 + ExplicitWidth = 1124 object cxPageControl1: TcxPageControl Left = 1 Top = 42 - Width = 950 + Width = 1427 Height = 220 Align = alClient Color = clWhite @@ -87,122 +88,20 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Visible = False Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ExplicitHeight = 306 + ExplicitWidth = 1122 ClientRectBottom = 220 - ClientRectRight = 950 + ClientRectRight = 1427 ClientRectTop = 0 end - object cxGrid2: TcxGrid - Left = 1 - Top = 42 - Width = 950 - Height = 220 - Align = alClient - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False - TabOrder = 1 - ExplicitHeight = 306 - object Tv2: TcxGridDBTableView - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_1 - DataController.Filter.AutoDataSetFilter = True - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = 'C_Code' - end> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end> - DataController.Summary.SummaryGroups = <> - OptionsBehavior.FocusCellOnTab = True - OptionsBehavior.GoToNextCellOnEnter = True - OptionsBehavior.FocusCellOnCycle = True - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - object v2Column10: TcxGridDBColumn - Caption = #21407#26009#20195#21495 - DataBinding.FieldName = 'Y_Code' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 131 - end - object cxGridDBColumn1: TcxGridDBColumn - Caption = #21407#26009#21517#31216 - DataBinding.FieldName = 'Y_Name' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - HeaderAlignmentHorz = taCenter - Options.Moving = False - Options.Sorting = False - Width = 138 - end - object v2Column2: TcxGridDBColumn - Caption = #32433#32447#21697#29260 - DataBinding.FieldName = 'Brand' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Moving = False - Options.Sorting = False - Width = 111 - end - object v2Column6: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'Y_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 99 - end - object Tv2Column2: TcxGridDBColumn - Caption = #37197#27604 - DataBinding.FieldName = 'Y_Ratio' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 69 - end - end - object cxGridLevel1: TcxGridLevel - GridView = Tv2 - end - end object Panel5: TPanel Left = 1 Top = 1 - Width = 950 + Width = 1427 Height = 41 Align = alTop - TabOrder = 2 + TabOrder = 1 + ExplicitLeft = 2 + ExplicitTop = 6 object Panel6: TPanel Left = 1 Top = 1 @@ -268,11 +167,204 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut end end end + object cxGrid1: TcxGrid + Left = 1 + Top = 42 + Width = 1427 + Height = 220 + Align = alClient + TabOrder = 2 + ExplicitWidth = 1122 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column18: TcxGridDBColumn + Caption = #37319#36141#21152#24037#21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 106 + end + object v1Column15: TcxGridDBColumn + Caption = #21697#29260 + DataBinding.FieldName = 'SXPinPai' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 103 + end + object Tv1Column2: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v1SPName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'Y_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v1SPSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object v1Column1: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 92 + end + object v1Column10: TcxGridDBColumn + Caption = #36816#36153 + DataBinding.FieldName = 'YunFei' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 68 + end + object Tv1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20998#29305'(Dtex)' + DataBinding.FieldName = 'Denier' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv1Column8: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'ZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column3: TcxGridDBColumn + Caption = #26681#25968 + DataBinding.FieldName = 'YarnQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object Tv1Column4: TcxGridDBColumn + Caption = #24490#29615#26681#25968 + DataBinding.FieldName = 'CycleYarnQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged + GroupSummaryAlignment = taCenter + HeaderAlignmentHorz = taCenter + Width = 102 + end + object Tv1Column9: TcxGridDBColumn + Caption = #31859#29992#37327 + DataBinding.FieldName = 'MeterQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column6: TcxGridDBColumn + Caption = #32442#27861 + DataBinding.FieldName = 'FF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column5: TcxGridDBColumn + Caption = #25467#24230 + DataBinding.FieldName = 'ND' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column12: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 118 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end end object ScrollBox1: TScrollBox [2] Left = 0 Top = 38 - Width = 952 + Width = 1429 Height = 315 Align = alTop BevelInner = bvNone @@ -286,6 +378,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentCtl3D = False ParentFont = False TabOrder = 2 + OnDblClick = gynoDblClick + ExplicitLeft = 1 ExplicitTop = 41 object Label3: TLabel Left = 639 @@ -547,6 +641,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False TabOrder = 1 Zoom = 100 + OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object WB_Spec: TEdit @@ -555,6 +650,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Width = 120 Height = 18 TabOrder = 0 + OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object CustName: TBtnEditC @@ -564,6 +660,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Height = 20 ReadOnly = True TabOrder = 2 + OnDblClick = gynoDblClick OnBtnUpClick = CustNameBtnUpClick OnBtnDnClick = CustNameBtnDnClick end @@ -574,6 +671,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Height = 20 ReadOnly = True TabOrder = 3 + OnDblClick = gynoDblClick + OnBtnUpClick = WB_CodeBtnUpClick OnBtnDnClick = CustNameBtnDnClick end object WB_YarnTotalLen: TEdit @@ -582,6 +681,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Width = 120 Height = 18 TabOrder = 4 + OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object WB_Qty: TEdit @@ -590,6 +690,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Width = 120 Height = 18 TabOrder = 5 + OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object WB_YarnLen: TEdit @@ -598,6 +699,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Width = 120 Height = 18 TabOrder = 6 + OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object WB_Qty_YJJZZS: TEdit @@ -614,6 +716,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Width = 120 Height = 18 TabOrder = 8 + OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object WB_Qty_YJMJZMS: TEdit @@ -622,14 +725,16 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Width = 120 Height = 18 TabOrder = 9 + OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end - object TWPNo: TEdit + object TWPId: TEdit Left = 90 Top = 5 Width = 120 Height = 18 TabOrder = 10 + OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object WB_Name: TEdit @@ -638,6 +743,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Width = 120 Height = 18 TabOrder = 11 + OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object WB_YarnQty: TEdit @@ -654,6 +760,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Width = 120 Height = 18 TabOrder = 13 + OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object gkbh: TBtnEditC @@ -663,6 +770,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Height = 20 ReadOnly = True TabOrder = 14 + OnDblClick = gynoDblClick + OnBtnUpClick = gkbhBtnUpClick OnBtnDnClick = CustNameBtnDnClick end object WB_ReedNo: TEdit @@ -671,6 +780,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Width = 120 Height = 18 TabOrder = 15 + OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object WB_ReedNote: TEdit @@ -687,6 +797,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Width = 120 Height = 18 TabOrder = 17 + OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object gyno: TBtnEditC @@ -696,6 +807,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Height = 20 ReadOnly = True TabOrder = 18 + OnDblClick = gynoDblClick + OnBtnUpClick = gynoBtnUpClick OnBtnDnClick = CustNameBtnDnClick end end @@ -708,8 +821,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Top = 193 end inherited ImageList_new32: TImageList - Left = 1272 - Top = 200 + Left = 1120 + Top = 256 end inherited cxImageList_bar: TcxImageList FormatVersion = 1 @@ -721,14 +834,14 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Connection = DataLink_WarpBeamStk.ADOLink LockType = ltReadOnly Parameters = <> - Left = 1090 + Left = 930 Top = 89 end object ADOQueryCmd: TADOQuery Connection = DataLink_WarpBeamStk.ADOLink Parameters = <> - Left = 1410 - Top = 225 + Left = 1298 + Top = 137 end object CDS_1: TClientDataSet Aggregates = <> @@ -738,7 +851,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut end object DS_1: TDataSource DataSet = CDS_1 - Left = 436 - Top = 393 + Left = 476 + Top = 401 end end diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.pas b/E02梭织经轴仓库/U_TatWBPlanInPut.pas index 7fac168..6a70ab6 100644 --- a/E02梭织经轴仓库/U_TatWBPlanInPut.pas +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.pas @@ -25,14 +25,6 @@ type ToolButton8: TToolButton; Panel2: TPanel; cxPageControl1: TcxPageControl; - cxGrid2: TcxGrid; - Tv2: TcxGridDBTableView; - v2Column10: TcxGridDBColumn; - cxGridDBColumn1: TcxGridDBColumn; - v2Column2: TcxGridDBColumn; - v2Column6: TcxGridDBColumn; - Tv2Column2: TcxGridDBColumn; - cxGridLevel1: TcxGridLevel; Panel5: TPanel; Panel6: TPanel; Label21: TLabel; @@ -63,7 +55,7 @@ type WB_Qty_YJMJZGS: TEdit; WB_Qty_YJMJZMS: TEdit; Label13: TLabel; - TWPNo: TEdit; + TWPId: TEdit; Label15: TLabel; Label17: TLabel; WB_Name: TEdit; @@ -80,6 +72,25 @@ type Label24: TLabel; WB_YarnDensity: TEdit; gyno: TBtnEditC; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column18: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + v1SPName: TcxGridDBColumn; + v1SPSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -91,10 +102,15 @@ type procedure ToolButton3Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); + procedure gynoBtnUpClick(Sender: TObject); + procedure WB_CodeBtnUpClick(Sender: TObject); + procedure gkbhBtnUpClick(Sender: TObject); + procedure gynoDblClick(Sender: TObject); + procedure Tv1Column7PropertiesEditValueChanged(Sender: TObject); private procedure InitData(); function SaveData(): Boolean; - + procedure JSJS(); { Private declarations } public PState, FCopyInt: Integer; @@ -109,7 +125,8 @@ var implementation uses - U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel; + U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel, U_TatPlanSel2, + U_WBSpecSel, U_GKManageSel; {$R *.dfm} @@ -160,6 +177,74 @@ begin InitData(); end; +procedure TfrmTatWBPlanInPut.gkbhBtnUpClick(Sender: TObject); +begin + try + frmGKManageSel := tfrmGKManageSel.Create(Application); + with frmGKManageSel do + begin + + if ShowModal = 1 then + begin + SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString; + SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString; + end; + end; + finally + frmGKManageSel.Free; + end; +end; + +procedure TfrmTatWBPlanInPut.gynoBtnUpClick(Sender: TObject); +begin + inherited; + try + frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application); + with frmTatPlanSel2 do + begin + FISSJ := ''; + if ShowModal = 1 then + begin + Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring; +// Self.GYNo.Properties.LookupItems.Text := CDS_1.FieldByName('Subid').asstring; + Self.CustName.Text := CDS_1.FieldByName('CustName').asstring; + + Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from Tat_WB_Spec A'); + sql.Add(' where WB_Code=''' + trim(WB_Code.Text) + ''' '); + Open; + end; + + Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString); + Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString); + Self.WB_Spec.Text := Trim(ADOQueryTemp.fieldbyname('WB_Spec').AsString); + Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring; + Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString); + Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString); + Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString); + + Self.WB_YarnDensity.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnDensity').AsString); + Self.OrdNote.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString); + + end; + end; + finally + frmTatPlanSel2.Free; + end; +end; + +procedure TfrmTatWBPlanInPut.gynoDblClick(Sender: TObject); +begin + inherited; + TcxButtonEdit(Sender).Text := ''; +end; + function TfrmTatWBPlanInPut.SaveData(): Boolean; var maxno, maxsubno, maxpbno, maxpzno, maxsjno: string; @@ -243,7 +328,7 @@ begin FieldByName('YRType').Value := 'ᾭ˿'; FieldByName('TWPId').Value := Trim(maxno); FieldByName('YRId').Value := Trim(maxpbno); - RTSetsavedataCDS(ADOQueryCmd, Tv2, CDS_1, 'Tat_WB_Plan_Yarn', 0); + RTSetsavedataCDS(ADOQueryCmd, Tv1, CDS_1, 'Tat_WB_Plan_Yarn', 0); Post; end; CDS_1.Edit; @@ -298,13 +383,16 @@ begin with self.CDS_1 do begin Append; - FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value; FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value; FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value; FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value; FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; - FieldByName('Y_Ratio').Value := 0; + + FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value; + FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value; + FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value; + FieldByName('NOTE').Value := frmYarnInfoSel.CDS_1.fieldbyname('NOTE').Value; Post; end; @@ -334,6 +422,96 @@ begin CDS_1.Delete; end; +procedure TfrmTatWBPlanInPut.Tv1Column7PropertiesEditValueChanged( + Sender: TObject); +var + mvalue, FFieldName: string; + GS, ZGS, MF, DS, WM, TW, SUNHAO: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + + with CDS_1 do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + +// if FieldByName('SH').Value = null then +// begin +// SUNHAO := 0; // +// end +// else +// begin +// SUNHAO := FieldByName('SH').Value; // +// end; + + if FieldByName('Denier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('Denier').Value; //D + end; + + TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ + end; + if ZGS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + Post; + end; + end; +end; + +procedure TfrmTatWBPlanInPut.WB_CodeBtnUpClick(Sender: TObject); +begin + try + frmWBSpecSel := TfrmWBSpecSel.Create(Application); + with frmWBSpecSel do + begin + + if ShowModal = 1 then + begin + Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString); + Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString); + Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value; + Self.WB_Width.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString); + Self.WB_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString); + Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString); + Self.WB_YarnDensity.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnDensity').AsString); + Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString); + Self.OrdNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString); + end; + end; + finally + frmWBSpecSel.Free; + end; +end; + procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then @@ -369,12 +547,79 @@ begin end; + +procedure TfrmTatWBPlanInPut.JSJS(); +var + GS, ZGS, MF, DS, WM, TW: double; +begin + if CDS_1.IsEmpty then + exit; + with CDS_1 do + begin + DisableControls; + first; + while not eof do + begin + + with CDS_1 do + begin + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(WB_Width.text, 0); //ط + + TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ + + if FieldByName('TestDenier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('TestDenier').Value; //D + end; + + WM := strtofloatdef(WB_YarnDensity.text, 0); //γ + end; + if ZGS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + Post; + end; + end; + next; + end; + First; + EnableControls; + end; +end; + procedure TfrmTatWBPlanInPut.ConNoKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; SelectNext(ActiveControl as TWinControl, True, True); + end; end; diff --git a/E02梭织经轴仓库/U_WBSpecInPut.dfm b/E02梭织经轴仓库/U_WBSpecInPut.dfm index 4ab4352..8981b68 100644 --- a/E02梭织经轴仓库/U_WBSpecInPut.dfm +++ b/E02梭织经轴仓库/U_WBSpecInPut.dfm @@ -2,21 +2,20 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 88 Top = 141 Caption = #25972#32463#24037#33402#24405#20837 - ClientHeight = 863 + ClientHeight = 845 ClientWidth = 1115 Color = clWhite Font.Height = -16 Position = poMainFormCenter - ExplicitTop = -5 ExplicitWidth = 1131 - ExplicitHeight = 902 + ExplicitHeight = 884 PixelsPerInch = 96 TextHeight = 21 object cxGrid1: TcxGrid [0] Left = 0 Top = 455 Width = 1115 - Height = 408 + Height = 390 Align = alClient TabOrder = 0 ExplicitTop = 461 diff --git a/E02梭织经轴仓库/U_WBSpecList.dfm b/E02梭织经轴仓库/U_WBSpecList.dfm index 82429c4..3c0a228 100644 --- a/E02梭织经轴仓库/U_WBSpecList.dfm +++ b/E02梭织经轴仓库/U_WBSpecList.dfm @@ -540,6 +540,8 @@ inherited frmWBSpecList: TfrmWBSpecList Align = alTop ParentFont = False TabOrder = 1 + ExplicitLeft = 6 + ExplicitTop = 6 Height = 239 Width = 594 end diff --git a/E02梭织经轴仓库/WarpBeamStk.dproj.local b/E02梭织经轴仓库/WarpBeamStk.dproj.local index 342e9a0..428f11e 100644 --- a/E02梭织经轴仓库/WarpBeamStk.dproj.local +++ b/E02梭织经轴仓库/WarpBeamStk.dproj.local @@ -125,19 +125,19 @@ - 1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas - 1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.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.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm - 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.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas - 1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.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 - 1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm - 1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas - 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas - 1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas + 1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.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.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm + 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.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas + 1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.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 + 1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm + 1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas + 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas + 1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas