From 707ca8bb335293b20113a0f4d40715a51c18d191 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Mon, 30 Dec 2024 22:05:29 +0800 Subject: [PATCH] 1 --- A02基础产品管理/U_ClothInfo.dfm | 16 +- A02基础产品管理/U_ClothInfoInput.dfm | 346 +++++---- A02基础产品管理/U_ClothInfoInput.pas | 138 ++-- T02贸易汇总仓库/U_TradeClothTotalInInput1.dfm | 587 ++++++++++++++ T02贸易汇总仓库/U_TradeClothTotalInInput1.pas | 725 ++++++++++++++++++ T02贸易汇总仓库/U_TradeClothTotalInList.dfm | 212 ++--- T02贸易汇总仓库/U_TradeClothTotalInList.pas | 25 +- 7 files changed, 1713 insertions(+), 336 deletions(-) create mode 100644 T02贸易汇总仓库/U_TradeClothTotalInInput1.dfm create mode 100644 T02贸易汇总仓库/U_TradeClothTotalInInput1.pas diff --git a/A02基础产品管理/U_ClothInfo.dfm b/A02基础产品管理/U_ClothInfo.dfm index ec222d5..c39a83e 100644 --- a/A02基础产品管理/U_ClothInfo.dfm +++ b/A02基础产品管理/U_ClothInfo.dfm @@ -283,7 +283,6 @@ inherited frmClothInfo: TfrmClothInfo Tag = 2 Left = 623 Top = 7 - ParentColor = True TabOrder = 0 OnKeyPress = C_CodeKeyPress Width = 150 @@ -292,7 +291,6 @@ inherited frmClothInfo: TfrmClothInfo Tag = 2 Left = 864 Top = 7 - ParentColor = True TabOrder = 1 OnKeyPress = C_CodeKeyPress Width = 150 @@ -301,7 +299,6 @@ inherited frmClothInfo: TfrmClothInfo Tag = 2 Left = 864 Top = 77 - ParentColor = True TabOrder = 2 OnKeyPress = C_CodeKeyPress Width = 150 @@ -310,7 +307,6 @@ inherited frmClothInfo: TfrmClothInfo Tag = 2 Left = 623 Top = 77 - ParentColor = True TabOrder = 3 OnKeyPress = C_CodeKeyPress Width = 150 @@ -319,7 +315,6 @@ inherited frmClothInfo: TfrmClothInfo Tag = 2 Left = 80 Top = 7 - ParentColor = True TabOrder = 4 OnKeyPress = C_CodeKeyPress Width = 150 @@ -328,7 +323,6 @@ inherited frmClothInfo: TfrmClothInfo Tag = 2 Left = 80 Top = 42 - ParentColor = True TabOrder = 5 OnKeyPress = C_CodeKeyPress Width = 150 @@ -337,7 +331,6 @@ inherited frmClothInfo: TfrmClothInfo Tag = 2 Left = 864 Top = 42 - ParentColor = True TabOrder = 6 OnKeyPress = C_CodeKeyPress Width = 150 @@ -346,7 +339,6 @@ inherited frmClothInfo: TfrmClothInfo Tag = 2 Left = 623 Top = 42 - ParentColor = True TabOrder = 7 OnKeyPress = C_CodeKeyPress Width = 150 @@ -355,7 +347,6 @@ inherited frmClothInfo: TfrmClothInfo Tag = 2 Left = 353 Top = 7 - ParentColor = True TabOrder = 8 OnKeyPress = C_CodeKeyPress Width = 150 @@ -364,7 +355,6 @@ inherited frmClothInfo: TfrmClothInfo Tag = 2 Left = 353 Top = 42 - ParentColor = True TabOrder = 9 OnKeyPress = C_CodeKeyPress Width = 150 @@ -373,7 +363,6 @@ inherited frmClothInfo: TfrmClothInfo Tag = 2 Left = 353 Top = 77 - ParentColor = True TabOrder = 10 OnKeyPress = C_CodeKeyPress Width = 150 @@ -382,7 +371,6 @@ inherited frmClothInfo: TfrmClothInfo Tag = 2 Left = 80 Top = 77 - ParentColor = True TabOrder = 11 OnKeyPress = C_CodeKeyPress Width = 150 @@ -582,8 +570,6 @@ inherited frmClothInfo: TfrmClothInfo Height = 201 Align = alLeft TabOrder = 1 - ExplicitLeft = 7 - ExplicitTop = 5 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -652,6 +638,8 @@ inherited frmClothInfo: TfrmClothInfo Align = alClient PopupMenu = PM_1 TabOrder = 2 + ExplicitLeft = 6 + ExplicitTop = 41 object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown Navigator.Buttons.CustomButtons = <> diff --git a/A02基础产品管理/U_ClothInfoInput.dfm b/A02基础产品管理/U_ClothInfoInput.dfm index dcc2a7e..bc4605d 100644 --- a/A02基础产品管理/U_ClothInfoInput.dfm +++ b/A02基础产品管理/U_ClothInfoInput.dfm @@ -3,7 +3,7 @@ object frmClothInfoInput: TfrmClothInfoInput Top = 231 Anchors = [] Caption = #20135#21697#20449#24687#24405#20837 - ClientHeight = 529 + ClientHeight = 653 ClientWidth = 1284 Color = clBtnFace Font.Charset = GB2312_CHARSET @@ -70,16 +70,18 @@ object frmClothInfoInput: TfrmClothInfoInput Left = 0 Top = 30 Width = 775 - Height = 499 + Height = 623 Align = alLeft BevelInner = bvNone BevelOuter = bvNone Ctl3D = False ParentCtl3D = False TabOrder = 1 + ExplicitLeft = -5 + ExplicitTop = 29 object Label1: TLabel - Left = 33 - Top = 19 + Left = 37 + Top = 18 Width = 64 Height = 21 Caption = #20135#21697#32534#21495 @@ -87,8 +89,8 @@ object frmClothInfoInput: TfrmClothInfoInput ParentColor = False end object Label5: TLabel - Left = 33 - Top = 57 + Left = 421 + Top = 18 Width = 64 Height = 21 Caption = #20013#25991#21697#21517 @@ -96,8 +98,8 @@ object frmClothInfoInput: TfrmClothInfoInput ParentColor = False end object Label15: TLabel - Left = 33 - Top = 96 + Left = 37 + Top = 94 Width = 64 Height = 21 Caption = #26377#25928#38376#24133 @@ -105,8 +107,8 @@ object frmClothInfoInput: TfrmClothInfoInput ParentColor = False end object Label22: TLabel - Left = 429 - Top = 96 + Left = 421 + Top = 94 Width = 64 Height = 21 Caption = #25104#21697#20811#37325 @@ -114,8 +116,8 @@ object frmClothInfoInput: TfrmClothInfoInput ParentColor = False end object Label4: TLabel - Left = 33 - Top = 134 + Left = 37 + Top = 56 Width = 64 Height = 21 Caption = #33457#22411#32534#21495 @@ -137,8 +139,8 @@ object frmClothInfoInput: TfrmClothInfoInput Visible = False end object Label7: TLabel - Left = 429 - Top = 134 + Left = 37 + Top = 132 Width = 64 Height = 21 Caption = #20013#25991#25104#20998 @@ -146,8 +148,8 @@ object frmClothInfoInput: TfrmClothInfoInput ParentColor = False end object Label6: TLabel - Left = 33 - Top = 176 + Left = 37 + Top = 169 Width = 32 Height = 21 Caption = #35268#26684 @@ -155,8 +157,8 @@ object frmClothInfoInput: TfrmClothInfoInput ParentColor = False end object Label9: TLabel - Left = 33 - Top = 432 + Left = 37 + Top = 400 Width = 32 Height = 21 Caption = #22791#27880 @@ -164,8 +166,8 @@ object frmClothInfoInput: TfrmClothInfoInput ParentColor = False end object Label11: TLabel - Left = 33 - Top = 216 + Left = 37 + Top = 238 Width = 32 Height = 21 Caption = #24067#31181 @@ -173,8 +175,8 @@ object frmClothInfoInput: TfrmClothInfoInput ParentColor = False end object Label10: TLabel - Left = 429 - Top = 176 + Left = 421 + Top = 132 Width = 64 Height = 21 Caption = #33521#25991#25104#20998 @@ -182,53 +184,26 @@ object frmClothInfoInput: TfrmClothInfoInput ParentColor = False end object Label12: TLabel - Left = 33 - Top = 292 + Left = 37 + Top = 276 Width = 64 Height = 21 Caption = #32433#32447#24418#24577 Color = clWhite ParentColor = False end - object Label13: TLabel - Left = 33 - Top = 253 - Width = 80 - Height = 21 - Caption = #21518#25972#29702#33521#25991 - Color = clWhite - ParentColor = False - end - object Label14: TLabel - Left = 429 - Top = 253 - Width = 80 - Height = 21 - Caption = #21518#25972#29702#20013#25991 - Color = clWhite - ParentColor = False - end object Label16: TLabel - Left = 429 - Top = 216 + Left = 421 + Top = 238 Width = 48 Height = 21 Caption = #21152#24037#21035 Color = clWhite ParentColor = False end - object Label17: TLabel - Left = 429 - Top = 292 - Width = 32 - Height = 21 - Caption = #32568#21495 - Color = clWhite - ParentColor = False - end object Label18: TLabel - Left = 33 - Top = 332 + Left = 37 + Top = 314 Width = 80 Height = 21 Caption = #20379#24212#21830#20195#21495 @@ -236,26 +211,17 @@ object frmClothInfoInput: TfrmClothInfoInput ParentColor = False end object Label19: TLabel - Left = 429 - Top = 332 + Left = 421 + Top = 314 Width = 48 Height = 21 Caption = #20379#24212#21830 Color = clWhite ParentColor = False end - object Label20: TLabel - Left = 429 - Top = 18 - Width = 32 - Height = 21 - Caption = #39118#26684 - Color = clWhite - ParentColor = False - end object Label21: TLabel - Left = 429 - Top = 57 + Left = 421 + Top = 56 Width = 64 Height = 21 Caption = #33521#25991#21697#21517 @@ -263,18 +229,63 @@ object frmClothInfoInput: TfrmClothInfoInput ParentColor = False end object Label23: TLabel - Left = 33 - Top = 373 + Left = 421 + Top = 276 Width = 64 Height = 21 Caption = #26579#33394#26041#24335 Color = clWhite ParentColor = False end + object Label2: TLabel + Left = 37 + Top = 351 + Width = 64 + Height = 21 + Caption = #26631#20934#25253#20215 + Color = clWhite + ParentColor = False + end + object Label8: TLabel + Left = 37 + Top = 205 + Width = 64 + Height = 21 + Caption = #37197#36135#31995#25968 + Color = clWhite + ParentColor = False + end + object Label13: TLabel + Left = 421 + Top = 205 + Width = 64 + Height = 21 + Caption = #37197#39069#38480#21046 + Color = clWhite + ParentColor = False + end + object Label14: TLabel + Left = 727 + Top = 205 + Width = 14 + Height = 21 + Caption = '%' + Color = clWhite + ParentColor = False + end + object Label20: TLabel + Left = 421 + Top = 169 + Width = 32 + Height = 21 + Caption = #24211#20301 + Color = clWhite + ParentColor = False + end object C_Code: TcxTextEdit Tag = 2 Left = 119 - Top = 13 + Top = 14 Enabled = False TabOrder = 0 OnKeyPress = CYColorKeyPress @@ -282,8 +293,8 @@ object frmClothInfoInput: TfrmClothInfoInput end object C_Name: TcxTextEdit Tag = 2 - Left = 119 - Top = 51 + Left = 507 + Top = 14 TabOrder = 1 OnKeyPress = CYColorKeyPress Width = 234 @@ -299,7 +310,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object C_GramWeight: TcxButtonEdit Tag = 2 - Left = 511 + Left = 507 Top = 90 Hint = 'C_GramWeight/'#20811#37325 Properties.Buttons = < @@ -308,7 +319,7 @@ object frmClothInfoInput: TfrmClothInfoInput Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = ParentCoNamePropertiesButtonClick + Properties.OnButtonClick = C_WidthPropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 3 OnDblClick = C_GramWeightDblClick @@ -316,8 +327,8 @@ object frmClothInfoInput: TfrmClothInfoInput end object C_Composition: TcxButtonEdit Tag = 2 - Left = 511 - Top = 130 + Left = 119 + Top = 128 Hint = 'C_Composition/'#25104#20998 Properties.Buttons = < item @@ -325,7 +336,7 @@ object frmClothInfoInput: TfrmClothInfoInput Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = ParentCoNamePropertiesButtonClick + Properties.OnButtonClick = C_WidthPropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 4 OnDblClick = C_GramWeightDblClick @@ -334,7 +345,7 @@ object frmClothInfoInput: TfrmClothInfoInput object C_Spec: TcxButtonEdit Tag = 2 Left = 119 - Top = 170 + Top = 165 Hint = 'C_Spec/'#35268#26684 Properties.Buttons = < item @@ -342,7 +353,7 @@ object frmClothInfoInput: TfrmClothInfoInput Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = ParentCoNamePropertiesButtonClick + Properties.OnButtonClick = C_WidthPropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 5 OnDblClick = C_GramWeightDblClick @@ -377,7 +388,7 @@ object frmClothInfoInput: TfrmClothInfoInput Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = ParentCoNamePropertiesButtonClick + Properties.OnButtonClick = C_WidthPropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 7 OnDblClick = C_GramWeightDblClick @@ -386,7 +397,7 @@ object frmClothInfoInput: TfrmClothInfoInput object C_Pattern: TcxButtonEdit Tag = 2 Left = 119 - Top = 130 + Top = 52 Hint = 'C_Pattern/'#33457#22411 Properties.Buttons = < item @@ -394,7 +405,7 @@ object frmClothInfoInput: TfrmClothInfoInput Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = ParentCoNamePropertiesButtonClick + Properties.OnButtonClick = C_WidthPropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 8 OnDblClick = C_GramWeightDblClick @@ -403,7 +414,7 @@ object frmClothInfoInput: TfrmClothInfoInput object CINote: TcxMemo Tag = 2 Left = 119 - Top = 414 + Top = 381 TabOrder = 9 Height = 57 Width = 626 @@ -411,15 +422,15 @@ object frmClothInfoInput: TfrmClothInfoInput object GC_Name: TcxTextEdit Tag = 2 Left = 119 - Top = 210 + Top = 234 TabOrder = 10 OnKeyPress = CYColorKeyPress Width = 234 end object C_EComposition: TcxButtonEdit Tag = 2 - Left = 511 - Top = 172 + Left = 507 + Top = 128 Hint = 'C_EComposition/'#25104#20998 Properties.Buttons = < item @@ -427,7 +438,7 @@ object frmClothInfoInput: TfrmClothInfoInput Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = ParentCoNamePropertiesButtonClick + Properties.OnButtonClick = C_WidthPropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 11 OnDblClick = C_GramWeightDblClick @@ -436,108 +447,88 @@ object frmClothInfoInput: TfrmClothInfoInput object C_YarnSpec: TcxTextEdit Tag = 2 Left = 119 - Top = 286 + Top = 272 TabOrder = 12 OnKeyPress = CYColorKeyPress Width = 234 end - object CraftEName: TcxButtonEdit - Tag = 2 - Left = 119 - Top = 247 - Hint = 'CraftEName/'#35268#26684 - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = False - Properties.OnButtonClick = ParentCoNamePropertiesButtonClick - Style.ButtonStyle = btsDefault - TabOrder = 13 - OnDblClick = C_GramWeightDblClick - Width = 234 - end - object CraftName: TcxButtonEdit - Tag = 2 - Left = 511 - Top = 247 - Hint = 'CraftName/'#25104#20998 - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = False - Properties.OnButtonClick = ParentCoNamePropertiesButtonClick - Style.ButtonStyle = btsDefault - TabOrder = 14 - OnDblClick = C_GramWeightDblClick - Width = 234 - end object CraftCode: TcxTextEdit Tag = 2 - Left = 511 - Top = 207 - TabOrder = 15 - OnKeyPress = CYColorKeyPress - Width = 234 - end - object FtyPCId: TcxTextEdit - Tag = 2 - Left = 511 - Top = 286 - TabOrder = 16 + Left = 507 + Top = 234 + TabOrder = 13 OnKeyPress = CYColorKeyPress Width = 234 end object FtyNo: TcxTextEdit Tag = 2 Left = 119 - Top = 326 - TabOrder = 17 + Top = 310 + TabOrder = 14 OnKeyPress = CYColorKeyPress Width = 234 end object FtyName: TcxTextEdit Tag = 2 - Left = 511 - Top = 326 - TabOrder = 18 + Left = 507 + Top = 310 + TabOrder = 15 OnKeyPress = CYColorKeyPress Width = 234 end - object C_Texture: TcxButtonEdit + object C_EName: TcxTextEdit Tag = 2 - Left = 511 - Top = 12 - Hint = 'C_Texture/'#32441#29702 + Left = 507 + Top = 52 + TabOrder = 16 + OnKeyPress = CYColorKeyPress + Width = 234 + end + object DyeingMethod: TcxTextEdit + Tag = 2 + Left = 507 + Top = 272 + TabOrder = 17 + OnKeyPress = CYColorKeyPress + Width = 234 + end + object CostPrice: TcxCurrencyEdit + Left = 119 + Top = 347 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 18 + Width = 234 + end + object distributionCoefficient: TcxCurrencyEdit + Left = 119 + Top = 201 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 19 + Width = 234 + end + object quota: TcxCurrencyEdit + Left = 507 + Top = 201 + EditValue = 10.000000000000000000 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 20 + Width = 210 + end + object StkPosition: TcxButtonEdit + Tag = 2 + Left = 507 + Top = 165 + Hint = 'StkPosition/'#24211#20301 Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = ParentCoNamePropertiesButtonClick + Properties.OnButtonClick = C_WidthPropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 19 - OnDblClick = C_GramWeightDblClick - Width = 234 - end - object C_EName: TcxTextEdit - Tag = 2 - Left = 511 - Top = 51 - TabOrder = 20 - OnKeyPress = CYColorKeyPress - Width = 234 - end - object DyeingMethod: TcxTextEdit - Tag = 2 - Left = 119 - Top = 367 TabOrder = 21 - OnKeyPress = CYColorKeyPress + OnDblClick = C_GramWeightDblClick Width = 234 end end @@ -545,7 +536,7 @@ object frmClothInfoInput: TfrmClothInfoInput Left = 775 Top = 30 Width = 509 - Height = 499 + Height = 623 Align = alClient TabOrder = 2 object ToolBar2: TToolBar @@ -585,10 +576,11 @@ object frmClothInfoInput: TfrmClothInfoInput Left = 1 Top = 31 Width = 507 - Height = 467 + Height = 591 Align = alClient TabOrder = 1 - ExplicitLeft = 3 + ExplicitLeft = 6 + ExplicitTop = 37 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -608,35 +600,51 @@ object frmClothInfoInput: TfrmClothInfoInput OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.FocusCellOnCycle = True OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True OptionsView.GroupByBox = False object TV1Column1: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 150 + Width = 55 end object TV1Column2: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 150 + Width = 26 end object TV1Column3: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 150 + Width = 39 end object TV1Column4: TcxGridDBColumn Caption = #27454#21495 DataBinding.FieldName = 'C_StyleNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 150 + Width = 43 + end + object TV1Column5: TcxGridDBColumn + Caption = #28014#21160#20215 + DataBinding.FieldName = 'floatPrice' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 68 + end + object TV1Column6: TcxGridDBColumn + Caption = #21442#32771#23450#20215 + DataBinding.FieldName = 'referencePrice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 end end object cxGridLevel2: TcxGridLevel diff --git a/A02基础产品管理/U_ClothInfoInput.pas b/A02基础产品管理/U_ClothInfoInput.pas index 14dd698..8d70b37 100644 --- a/A02基础产品管理/U_ClothInfoInput.pas +++ b/A02基础产品管理/U_ClothInfoInput.pas @@ -47,20 +47,12 @@ type C_EComposition: TcxButtonEdit; Label12: TLabel; C_YarnSpec: TcxTextEdit; - Label13: TLabel; - CraftEName: TcxButtonEdit; - Label14: TLabel; - CraftName: TcxButtonEdit; Label16: TLabel; CraftCode: TcxTextEdit; - Label17: TLabel; - FtyPCId: TcxTextEdit; Label18: TLabel; Label19: TLabel; FtyNo: TcxTextEdit; FtyName: TcxTextEdit; - Label20: TLabel; - C_Texture: TcxButtonEdit; Label21: TLabel; Label23: TLabel; DyeingMethod: TcxTextEdit; @@ -79,6 +71,17 @@ type CDS_1: TClientDataSet; GPM_1: TcxGridPopupMenu; ToolButton2: TToolButton; + CostPrice: TcxCurrencyEdit; + Label2: TLabel; + distributionCoefficient: TcxCurrencyEdit; + Label8: TLabel; + quota: TcxCurrencyEdit; + Label13: TLabel; + Label14: TLabel; + Label20: TLabel; + StkPosition: TcxButtonEdit; + TV1Column5: TcxGridDBColumn; + TV1Column6: TcxGridDBColumn; procedure FormShow(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); @@ -86,15 +89,17 @@ type procedure CYJGGYBtnDnClick(Sender: TObject); procedure ToolButton6Click(Sender: TObject); procedure C_GramWeightDblClick(Sender: TObject); - procedure ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure C_FromNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ToolButton2Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); + procedure TV1Column5PropertiesEditValueChanged(Sender: TObject); + procedure C_WidthPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); private canshu1: string; Fint: Integer; procedure InitGrid(); + procedure InitGrid1(); function SaveData(): Boolean; { Private declarations } public @@ -113,6 +118,19 @@ uses U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel; {$R *.dfm} +procedure TfrmClothInfoInput.InitGrid1(); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* from BS_Cloth_Info_Sub A '); + sql.Add(' where A.BCIID=''' + Trim(FBCIID) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_1); + SInitCDSData(ADOQueryTemp, CDS_1); +end; procedure TfrmClothInfoInput.InitGrid(); begin @@ -150,16 +168,7 @@ begin end; end; - with ADOQueryTemp do - begin - Close; - sql.Clear; - sql.Add('select A.* from BS_Cloth_Info_Sub A '); - sql.Add(' where A.BCIID=''' + Trim(FBCIID) + ''''); - Open; - end; - SCreateCDS(ADOQueryTemp, CDS_1); - SInitCDSData(ADOQueryTemp, CDS_1); + end; procedure TfrmClothInfoInput.C_FromNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); @@ -186,7 +195,7 @@ begin TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; end; -procedure TfrmClothInfoInput.ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +procedure TfrmClothInfoInput.C_WidthPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); var fsj: string; FWZ: Integer; @@ -197,23 +206,11 @@ begin frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - MainType := 'ClothInfo'; flag := Copy(fsj, 1, FWZ - 1); flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); if ShowModal = 1 then begin TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); - - with ADOQueryTemp do - begin - Close; - sql.Clear; - sql.Add(' exec P_BS_Cloth_Info_Get_No '); - sql.Add(' @CTID=' + Quotedstr(FCTID)); - sql.Add(' ,@Str=' + Quotedstr(C_Texture.Text)); - Open; - end; - GC_Name.Text := trim(ADOQueryTemp.FieldByName('GC_Name').asstring); end; end; finally @@ -225,6 +222,7 @@ procedure TfrmClothInfoInput.FormShow(Sender: TObject); begin readCxGrid(self.Caption + 'TV1', Tv1, 'Ʒ'); InitGrid(); + InitGrid1(); if TypeInt = 1 then begin FBCIID := ''; @@ -387,34 +385,47 @@ begin RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'BS_Cloth_Info_Sub', 0); Post; end; - CDS_1.Edit; - CDS_1.FieldByName('BCIID').Value := Trim(MaxBCIID); - CDS_1.FieldByName('BCISID').Value := Trim(maxId2); - Next; end; end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select count(BCISID) as AA from BS_Cloth_Info_Sub where BCIID=''' + Trim(MaxBCIID) + ''''); + sql.Add(' group by C_Color,C_ColorNo having count(BCISID)>1'); + Open; + if FieldByName('AA').AsInteger > 1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɫɫظ', 'ʾ', 0); + Exit; + end; + end; + ////////////////////////// ӱ ////////////////////////// /// /// ADOQueryCmd.Connection.CommitTrans; - with ADOQueryCmd do - begin - Close; - SQL.Clear; - sql.Add(' exec P_BS_CloInfo_UpAllTab @BCIID=' + QuotedStr(trim(MaxBCIID))); - Sql.Add(',@UpId=' + quotedstr(Trim(DCode))); - Sql.Add(',@Uper=' + quotedstr(Trim(DName))); - ExecSQL; - end; +// with ADOQueryCmd do +// begin +// Close; +// SQL.Clear; +// sql.Add(' exec P_BS_CloInfo_UpAllTab @BCIID=' + QuotedStr(trim(MaxBCIID))); +// Sql.Add(',@UpId=' + quotedstr(Trim(DCode))); +// Sql.Add(',@Uper=' + quotedstr(Trim(DName))); +// ExecSQL; +// end; FBCIID := MaxBCIID; Result := True; except Result := False; ADOQueryCmd.Connection.RollbackTrans; + InitGrid1(); application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); end; end; @@ -428,21 +439,15 @@ procedure TfrmClothInfoInput.ToolButton1Click(Sender: TObject); var MC_Code: string; begin - if C_Texture.Text = '' then - begin - Application.MessageBox('Ϊգ', 'ʾ', 0); - Exit; - end; + ToolBar1.SetFocus; if trim(C_Code.Text) = '' then begin - if GetLSNo(ADOQueryCmd, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then begin Application.MessageBox('ȡƷʧ!', 'ʾ', 0); Exit; end; C_Code.Text := MC_Code; - end; if SaveData() then begin @@ -530,5 +535,34 @@ begin end; end; +procedure TfrmClothInfoInput.TV1Column5PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + MCostPrice, MfloatPrice: Double; //ۣ +begin + mvalue := TcxTextEdit(Sender).EditingText; + if Trim(mvalue) = '' then + begin + mvalue := '0'; + end; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + MCostPrice := StrToFloatDef(CostPrice.Text, 0); + with CDS_1 do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + MfloatPrice := Fieldbyname('floatPrice').AsFloat; + end; + + with CDS_1 do + begin + Edit; + FieldByName('referencePrice').Value := MfloatPrice + MCostPrice; + Post; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + end. diff --git a/T02贸易汇总仓库/U_TradeClothTotalInInput1.dfm b/T02贸易汇总仓库/U_TradeClothTotalInInput1.dfm new file mode 100644 index 0000000..29515b1 --- /dev/null +++ b/T02贸易汇总仓库/U_TradeClothTotalInInput1.dfm @@ -0,0 +1,587 @@ +inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1 + Left = 67 + Top = 126 + Caption = #26126#32454#20837#24211#30331#35760 + ClientHeight = 525 + ClientWidth = 879 + Font.Charset = GB2312_CHARSET + Font.Height = -16 + Position = poScreenCenter + OnClose = FormClose + ExplicitWidth = 895 + ExplicitHeight = 564 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 879 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeTotalClothStk.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + ExplicitWidth = 1540 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 505 + Height = 495 + Align = alLeft + TabOrder = 1 + ExplicitLeft = 8 + object Label12: TLabel + Left = 271 + Top = 20 + Width = 64 + Height = 21 + Caption = #20837#24211#31867#22411 + end + object Label1: TLabel + Left = 25 + Top = 20 + Width = 64 + Height = 21 + Caption = #20837#24211#26102#38388 + end + object Label14: TLabel + Left = 25 + Top = 55 + Width = 64 + Height = 21 + Caption = #26469#33258#21333#20301 + end + object Label2: TLabel + Left = 25 + Top = 95 + Width = 64 + Height = 21 + Caption = #20135#21697#32534#21495 + Color = clWhite + ParentColor = False + end + object Label5: TLabel + Left = 271 + Top = 95 + Width = 64 + Height = 21 + Caption = #20013#25991#21697#21517 + Color = clWhite + ParentColor = False + end + object Label15: TLabel + Left = 271 + Top = 130 + Width = 64 + Height = 21 + Caption = #26377#25928#38376#24133 + Color = clWhite + ParentColor = False + end + object Label22: TLabel + Left = 25 + Top = 130 + Width = 64 + Height = 21 + Caption = #25104#21697#20811#37325 + Color = clWhite + ParentColor = False + end + object Label4: TLabel + Left = 25 + Top = 235 + Width = 64 + Height = 21 + Caption = #33457#22411#32534#21495 + Color = clWhite + ParentColor = False + end + object Label7: TLabel + Left = 25 + Top = 165 + Width = 64 + Height = 21 + Caption = #20013#25991#25104#20998 + Color = clWhite + ParentColor = False + end + object Label6: TLabel + Left = 25 + Top = 270 + Width = 32 + Height = 21 + Caption = #35268#26684 + Color = clWhite + ParentColor = False + end + object Label11: TLabel + Left = 25 + Top = 200 + Width = 32 + Height = 21 + Caption = #39068#33394 + Color = clWhite + ParentColor = False + end + object Label10: TLabel + Left = 271 + Top = 165 + Width = 64 + Height = 21 + Caption = #33521#25991#25104#20998 + Color = clWhite + ParentColor = False + end + object Label16: TLabel + Left = 25 + Top = 307 + Width = 64 + Height = 21 + Caption = #26579#21378#32568#21495 + Color = clWhite + ParentColor = False + end + object Label21: TLabel + Left = 271 + Top = 235 + Width = 64 + Height = 21 + Caption = #33521#25991#21697#21517 + Color = clWhite + ParentColor = False + end + object Label27: TLabel + Left = 271 + Top = 270 + Width = 64 + Height = 21 + Caption = #25968#37327#21333#20301 + end + object Label3: TLabel + Left = 271 + Top = 55 + Width = 64 + Height = 21 + Caption = #23384#25918#21333#20301 + end + object Label8: TLabel + Left = 271 + Top = 200 + Width = 32 + Height = 21 + Caption = #33394#21495 + Color = clWhite + ParentColor = False + end + object Label17: TLabel + Left = 271 + Top = 305 + Width = 32 + Height = 21 + Caption = #31867#22411 + end + object Label18: TLabel + Left = 27 + Top = 342 + Width = 64 + Height = 21 + Caption = #20986#24211#21333#21495 + Visible = False + end + object IOType: TcxComboBox + Left = 339 + Top = 16 + Properties.Items.Strings = ( + #37319#36141#20837#24211 + #21152#24037#20837#24211 + #29983#20135#36864#22238 + #30424#30408#20837#24211 + #38144#21806#36864#22238) + TabOrder = 0 + Width = 150 + end + object IOTime: TcxDateEdit + Left = 95 + Top = 16 + Properties.ImmediatePost = True + Properties.ShowTime = False + TabOrder = 1 + Width = 150 + end + object FromCoName: TcxButtonEdit + Left = 95 + Top = 51 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = FromCoNamePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 2 + OnDblClick = FromCoNameDblClick + Width = 150 + end + object C_Name: TcxTextEdit + Left = 339 + Top = 91 + TabOrder = 3 + Width = 150 + end + object C_Color: TcxTextEdit + Left = 95 + Top = 196 + TabOrder = 4 + Width = 150 + end + object FtyPCId: TcxTextEdit + Left = 95 + Top = 303 + TabOrder = 5 + Width = 150 + end + object C_EName: TcxTextEdit + Left = 339 + Top = 231 + TabOrder = 6 + Width = 150 + end + object C_Code: TcxButtonEdit + Left = 95 + Top = 91 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = C_CodePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 7 + Width = 150 + end + object QtyUnit: TcxComboBox + Left = 339 + Top = 266 + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'Kg') + TabOrder = 8 + Text = 'M' + Width = 150 + end + object StkCoName: TcxButtonEdit + Left = 339 + Top = 51 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = StkCoNamePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 9 + OnDblClick = FromCoNameDblClick + Width = 150 + end + object C_EComposition: TcxTextEdit + Left = 339 + Top = 161 + TabOrder = 10 + Width = 150 + end + object C_GramWeight: TcxTextEdit + Left = 95 + Top = 126 + TabOrder = 11 + Width = 150 + end + object C_Composition: TcxTextEdit + Left = 95 + Top = 161 + TabOrder = 12 + Width = 150 + end + object C_Width: TcxTextEdit + Left = 339 + Top = 126 + TabOrder = 13 + Width = 150 + end + object C_Spec: TcxTextEdit + Left = 95 + Top = 266 + TabOrder = 14 + Width = 150 + end + object C_Pattern: TcxTextEdit + Left = 95 + Top = 231 + TabOrder = 15 + Width = 150 + end + object C_Colorno: TcxTextEdit + Left = 339 + Top = 196 + TabOrder = 16 + Width = 150 + end + object C_Degree: TcxComboBox + Left = 339 + Top = 301 + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22383#24067 + #21322#25104#21697 + #25104#21697) + TabOrder = 17 + Text = #25104#21697 + Width = 150 + end + object BCIONO: TcxTextEdit + Left = 95 + Top = 338 + Properties.ReadOnly = True + TabOrder = 18 + Visible = False + Width = 189 + end + end + object pnl1: TPanel [2] + Left = 505 + Top = 30 + Width = 374 + Height = 495 + Align = alClient + Caption = 'pnl1' + TabOrder = 2 + ExplicitLeft = 1040 + ExplicitTop = 512 + ExplicitWidth = 313 + ExplicitHeight = 137 + object cxGrid1: TcxGrid + Tag = 2 + Left = 1 + Top = 72 + Width = 372 + Height = 422 + Align = alClient + TabOrder = 0 + ExplicitLeft = 6 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = Tv1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv1Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 169 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object tlb1: TToolBar + Tag = 1 + Left = 1 + Top = 1 + Width = 372 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeTotalClothStk.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + ExplicitWidth = 311 + ExplicitHeight = 60 + object btn1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 2 + OnClick = TBAddClick + end + object btn3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 6 + OnClick = TBDelClick + end + object btn4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + end + object pnl2: TPanel + Left = 1 + Top = 31 + Width = 372 + Height = 41 + Align = alTop + TabOrder = 2 + ExplicitLeft = 72 + ExplicitTop = 160 + ExplicitWidth = 185 + object Label9: TLabel + Left = 33 + Top = 10 + Width = 32 + Height = 21 + Caption = #21305#25968 + end + object Label13: TLabel + Left = 193 + Top = 10 + Width = 32 + Height = 21 + Caption = #25968#37327 + end + object inPiece: TcxCurrencyEdit + Left = 71 + Top = 6 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 0 + Width = 98 + end + object inQty: TcxCurrencyEdit + Left = 231 + Top = 6 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 1 + OnKeyPress = inQtyKeyPress + Width = 98 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Left = 241 + Top = 280 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Left = 201 + Top = 297 + end + inherited ImageList_new32: TImageList + Left = 80 + Top = 208 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 749 + Top = 250 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 645 + Top = 224 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Parameters = <> + Left = 224 + Top = 208 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 192 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 317 + Top = 303 + end + object GPM_1: TcxGridPopupMenu + PopupMenus = <> + Left = 472 + Top = 294 + end + object CDS_LM: TClientDataSet + Aggregates = <> + Params = <> + Left = 608 + Top = 328 + end + object OpenDialog1: TOpenDialog + Left = 522 + Top = 338 + end +end diff --git a/T02贸易汇总仓库/U_TradeClothTotalInInput1.pas b/T02贸易汇总仓库/U_TradeClothTotalInInput1.pas new file mode 100644 index 0000000..34354d6 --- /dev/null +++ b/T02贸易汇总仓库/U_TradeClothTotalInInput1.pas @@ -0,0 +1,725 @@ +unit U_TradeClothTotalInInput1; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, + dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, ComObj, + dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, cxMaskEdit, + cxImageList, cxCurrencyEdit; + +type + TfrmTradeClothTotalInInput1 = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + GPM_1: TcxGridPopupMenu; + CDS_LM: TClientDataSet; + OpenDialog1: TOpenDialog; + Panel1: TPanel; + Label12: TLabel; + Label1: TLabel; + IOType: TcxComboBox; + IOTime: TcxDateEdit; + Label14: TLabel; + FromCoName: TcxButtonEdit; + Label2: TLabel; + Label5: TLabel; + Label15: TLabel; + Label22: TLabel; + Label4: TLabel; + Label7: TLabel; + Label6: TLabel; + Label11: TLabel; + Label10: TLabel; + Label16: TLabel; + Label21: TLabel; + C_Name: TcxTextEdit; + C_Color: TcxTextEdit; + FtyPCId: TcxTextEdit; + C_EName: TcxTextEdit; + C_Code: TcxButtonEdit; + Label27: TLabel; + QtyUnit: TcxComboBox; + Label3: TLabel; + StkCoName: TcxButtonEdit; + C_EComposition: TcxTextEdit; + C_GramWeight: TcxTextEdit; + C_Composition: TcxTextEdit; + C_Width: TcxTextEdit; + C_Spec: TcxTextEdit; + C_Pattern: TcxTextEdit; + Label8: TLabel; + C_Colorno: TcxTextEdit; + pnl1: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + Tv1Column1: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + tlb1: TToolBar; + btn1: TToolButton; + btn3: TToolButton; + btn4: TToolButton; + pnl2: TPanel; + inPiece: TcxCurrencyEdit; + Label9: TLabel; + inQty: TcxCurrencyEdit; + Label13: TLabel; + Label17: TLabel; + C_Degree: TcxComboBox; + Label18: TLabel; + BCIONO: TcxTextEdit; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure FromCoNameDblClick(Sender: TObject); + procedure FromCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure inQtyKeyPress(Sender: TObject; var Key: Char); + procedure StkCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + private + { Private declarations } + function SaveCKData(): Boolean; + public + { Public declarations } + FBCId, canshu3, FSTKName, FKHName: string; + end; + +var + frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_TradePlanSel, U_ClothInfoSel; + +{$R *.dfm} + +procedure TfrmTradeClothTotalInInput1.C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + + frmClothInfoSel := TfrmClothInfoSel.Create(self); + with frmClothInfoSel do + begin + + if showmodal = 1 then + begin + self.C_Code.text := frmClothInfoSel.CDS_1.fieldbyname('C_Code').asstring; + self.C_Name.text := frmClothInfoSel.CDS_1.fieldbyname('C_Name').asstring; + self.C_EName.text := frmClothInfoSel.CDS_1.fieldbyname('C_EName').asstring; + self.C_Spec.text := frmClothInfoSel.CDS_1.fieldbyname('C_Spec').asstring; + self.C_Composition.text := frmClothInfoSel.CDS_1.fieldbyname('C_Composition').asstring; + self.C_EComposition.text := frmClothInfoSel.CDS_1.fieldbyname('C_EComposition').asstring; + self.C_Width.text := frmClothInfoSel.CDS_1.fieldbyname('C_Width').asstring; + self.C_GramWeight.text := frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').asstring; + + self.C_Color.text := frmClothInfoSel.CDS_3.fieldbyname('C_Color').asstring; + self.C_Colorno.text := frmClothInfoSel.CDS_3.fieldbyname('C_Colorno').asstring; + QtyUnit.text := 'M'; + end; + free; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmTradeClothTotalInInput1.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTradeClothTotalInInput1.TBAddClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty = False then + begin + CopyAddRowCDS(CDS_Sub); + with CDS_Sub do + begin + Edit; + FieldByName('BCIOID').Value := null; + FieldByName('StkCoNo').Value := 'ֿ'; + FieldByName('StkCoName').Value := 'ֿ'; + post; + end; + end + else + begin + with CDS_Sub do + begin + Append; + FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('StkCoNo').Value := 'ֿ'; + FieldByName('StkCoName').Value := 'ֿ'; + FieldByName('QtyUnit').Value := 'M'; + Post; + end; + end; + +end; + +function TfrmTradeClothTotalInInput1.SaveCKData(): Boolean; +var + Maxno, MBCIOID: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('BCIOID').AsString) + ''''); + open; + end; + MBCIOID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString); + if Trim(MBCIOID) = '' then + begin + if not GetLSNo(ADOQueryCmd, Maxno, 'MR', 'BS_Cloth_IO', 4, 1) then + raise Exception.Create('ȡȾɫʧܣ'); + end + else + begin + Maxno := Trim(MBCIOID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MBCIOID) = '' then + begin + Append; + FieldByName('Fillid').Value := Trim(Dcode); + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('Editid').Value := Trim(Dcode); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp); + end; + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Cloth_IO', 0); + RTSetsavedata(ADOQueryCmd, 'BS_Cloth_IO', Panel1, 0); + FieldByName('FromCoNo').Value := Trim(FromCoName.Properties.LookupItems.Text); + FieldByName('CustNo').Value := CDS_Sub.fieldbyname('CustNo').Value; + FieldByName('FromCoNo').Value := CDS_Sub.fieldbyname('FromCoNo').Value; + FieldByName('StkCoNo').Value := Trim(StkCoName.Properties.LookupItems.Text); + + FieldByName('FromMainId').Value := CDS_Sub.fieldbyname('FromMainId').Value; + FieldByName('FromSubId').Value := CDS_Sub.fieldbyname('FromSubId').Value; + + FieldByName('BCIOID').Value := Trim(Maxno); + FieldByName('STKID').Value := Trim(Maxno); + FieldByName('STKName').Value := FSTKName; + FieldByName('IOFlag').Value := ''; + FieldByName('IOQtyFlag').Value := 1; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update BS_Cloth_IO Set StkPiece=(select Sum(isnull(Piece,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID )'); + sql.Add(',StkQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID )'); + sql.Add(' where BCIOID=''' + Trim(Maxno) + ''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select stkQty,StkPiece from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + ''''); + Open; + end; + if ADOQueryTemp.FieldByName('stkQty').Value < 0 then + raise Exception.Create('Сڳܱ!'); + if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then + raise Exception.Create('ƥСڳƥܱ!'); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); + sql.Add('values(''óײ'' '); + sql.Add(',' + quotedstr(Maxno)); + sql.Add(','''' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(Maxno)); + sql.Add(') '); + ExecSQL; + end; + Edit; + FieldByName('BCIOID').Value := Trim(Maxno); + Post; + Next; + end; + end; + + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + + Result := True; + except + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; + +end; + +procedure TfrmTradeClothTotalInInput1.StkCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + + FCoType := 'Ӧ'; + + if ShowModal = 1 then + begin + self.StkCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + self.StkCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTradeClothTotalInInput1.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTradeClothTotalInInput1.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(FSTKName + 'Ǽ', Tv1, 'ó׻ֿܲ'); + + IOTime.Date := SGetServerDate(ADOQueryTemp); +// IOType.text :='ɹ'; + + with CDS_LM do + begin + FieldDefs.Clear; + FieldDefs.Add('LXH', ftInteger, 0); + FieldDefs.Add('lCode', ftString, 40); + FieldDefs.Add('LName', ftString, 40); + close; + CreateDataSet; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from BS_Cloth_IO A'); + sql.Add(' where BCIOID=''' + Trim(FBCId) + ''''); + Open; + end; + SCSHData(ADOQueryTemp, Panel1, 0); + FromCoName.Properties.LookupItems.Text := Trim(ADOQueryTemp.FieldByName('FromCoNo').AsString); + StkCoName.Properties.LookupItems.Text := Trim(ADOQueryTemp.FieldByName('StkCoNo').AsString); + SCreateCDS(ADOQueryTemp, CDS_Sub); + SInitCDSData(ADOQueryTemp, CDS_Sub); +end; + +procedure TfrmTradeClothTotalInInput1.FromCoNameDblClick(Sender: TObject); +begin + TcxButtonEdit(Sender).Text := ''; + TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; +end; + +procedure TfrmTradeClothTotalInInput1.FromCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + if IoType.text = '˻' then + begin + FCoType := 'ͻ'; + end + else + begin + FCoType := 'Ӧ'; + end; + if ShowModal = 1 then + begin + self.FromCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + self.FromCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTradeClothTotalInInput1.inQtyKeyPress(Sender: TObject; var Key: Char); +var + i: Integer; +begin + if Key = #13 then + begin + with CDS_Sub do + begin + DisableControls; + for i := 1 to StrToIntDef(inPiece.Text, 1) do + begin + Append; + FieldByName('Qty').Value := StrTofloatDef(inQty.Text, 0); + Post; + end; + EnableControls; + end; + inPiece.Text := '1'; + inQty.Text := ''; + end; +end; + +procedure TfrmTradeClothTotalInInput1.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then + Exit; + if Trim(CDS_Sub.fieldbyname('BCIOID').AsString) <> '' then + begin + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_Fin_Flow_Judge '); + Sql.Add(' @FFIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString))); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + Open; + end; + if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then + begin + Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), 'ʾ', 0); + exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + Sql.Clear; + sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); + sql.Add('values(''ó'' '); + sql.Add(',' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString))); + sql.Add(',''ɾ'' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString))); + sql.Add(') '); + + Sql.Add('exec P_BS_Cloth_In_Del '); + Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString))); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; + end + else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmTradeClothTotalInInput1.TBSaveClick(Sender: TObject); +var + Maxno: string; +begin + if CDS_Sub.IsEmpty then + Exit; + if not GetLSNo(ADOQueryCmd, Maxno, 'BRO', 'BS_Cloth_IO', 4, 1) then + begin + Application.MessageBox('ȡⵥʧ!', 'ʾ', 0); + Exit; + end + else + BCIONO.Text := Maxno; + + if trim(IOType.text) = '' then + begin + Application.MessageBox('ͲΪ!', 'ʾ', 0); + Exit; + end; + + if CDS_Sub.Locate('Qty', null, []) = True then + begin + Application.MessageBox('Ϊ!', 'ʾ', 0); + Exit; + end; + + if SaveCKData() then + begin + Application.MessageBox('ɹ!', 'ʾ', 0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmTradeClothTotalInInput1.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(FSTKName + 'Ǽ', Tv1, 'ó׻ֿܲ'); +end; + +procedure TfrmTradeClothTotalInInput1.Tv1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'ͻ'; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('CustNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); + FieldByName('CustName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTradeClothTotalInInput1.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('StkCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); + FieldByName('StkCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + end; + finally + frmCompanySel.Free; + end; + +end; + +procedure TfrmTradeClothTotalInInput1.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmTradePlanSel := TfrmTradePlanSel.Create(Application); + with frmTradePlanSel do + begin + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('FromCoNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('FtyNo').AsString); + FieldByName('FromCoName').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('FtyName').AsString); + FieldByName('FromOrdNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString); + FieldByName('FromMainId').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('MainId').AsString); + FieldByName('FromSubId').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('SubId').AsString); + FieldByName('C_Code').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Code').AsString); + FieldByName('C_Name').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Name').AsString); + FieldByName('C_Spec').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Spec').AsString); + FieldByName('C_Composition').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Composition').AsString); + FieldByName('C_Width').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Width').AsString); + FieldByName('C_GramWeight').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString); + FieldByName('C_Color').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Color').AsString); + FieldByName('C_ColorNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_ColorNo').AsString); + FieldByName('C_Pattern').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Pattern').AsString); + end; + end; + end; + finally + frmTradePlanSel.Free; + end; + +end; + +procedure TfrmTradeClothTotalInInput1.Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmClothInfoSel := TfrmClothInfoSel.Create(Application); + with frmClothInfoSel do + begin + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('C_Code').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString); + FieldByName('C_Name').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString); + FieldByName('C_Spec').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString); + FieldByName('C_Composition').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString); + FieldByName('C_Width').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString); + FieldByName('C_GramWeight').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString); + + Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString); + Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString); + Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString); + Fieldbyname('GC_Name').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('GC_Name').AsString); + Fieldbyname('CraftCode').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('CraftCode').AsString); + end; + + end; + end; + finally + frmClothInfoSel.Free; + end; + +end; + +procedure TfrmTradeClothTotalInInput1.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('FromCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); + FieldByName('FromCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + + FieldByName('SalesER').Value := Trim(CDS_1.fieldbyname('SalesER').AsString); + end; + end; + end; + finally + frmCompanySel.Free; + end; + +end; + +procedure TfrmTradeClothTotalInInput1.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'JWLYCLName'; + flagname := 'Ʒ'; + MainType := FSTKName; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('C_Name').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +procedure TfrmTradeClothTotalInInput1.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'StkPosition'; + flagname := 'λ'; + MainType := FSTKName; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('StkPosition').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTradeClothTotalInInput1.v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'C_Spec'; + flagname := ''; + MainType := FSTKName; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('C_Spec').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. + diff --git a/T02贸易汇总仓库/U_TradeClothTotalInList.dfm b/T02贸易汇总仓库/U_TradeClothTotalInList.dfm index 3d14735..4dac061 100644 --- a/T02贸易汇总仓库/U_TradeClothTotalInList.dfm +++ b/T02贸易汇总仓库/U_TradeClothTotalInList.dfm @@ -20,7 +20,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 99 + ButtonWidth = 83 Caption = 'ToolBar1' Color = clSkyBlue Images = DataLink_TradeTotalClothStk.cxImageList_bar @@ -37,7 +37,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList OnClick = TBRafreshClick end object TBFind: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #36807#28388 @@ -46,15 +46,23 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList OnClick = TBFindClick end object TBAdd: TToolButton - Left = 142 + Left = 126 Top = 0 AutoSize = True Caption = #20837#24211 ImageIndex = 9 OnClick = TBAddClick end + object btn1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26126#32454#20837#24211 + ImageIndex = 9 + OnClick = btn1Click + end object TBEdit: TToolButton - Left = 213 + Left = 276 Top = 0 AutoSize = True Caption = #20462#25913 @@ -62,7 +70,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList OnClick = TBEditClick end object TBDel: TToolButton - Left = 284 + Left = 339 Top = 0 AutoSize = True Caption = #21024#38500 @@ -70,7 +78,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList OnClick = TBDelClick end object ToolButton2: TToolButton - Left = 355 + Left = 402 Top = 0 AutoSize = True Caption = #25171#21360 @@ -78,7 +86,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList OnClick = ToolButton2Click end object ToolButton3: TToolButton - Left = 426 + Left = 465 Top = 0 AutoSize = True Caption = #38468#20214 @@ -86,7 +94,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList OnClick = ToolButton3Click end object TBExport: TToolButton - Left = 497 + Left = 528 Top = 0 AutoSize = True Caption = #23548#20986 @@ -94,7 +102,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList OnClick = TBExportClick end object ToolButton1: TToolButton - Left = 568 + Left = 591 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -102,7 +110,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 671 + Left = 678 Top = 0 AutoSize = True Caption = #20851#38381 @@ -401,47 +409,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter - Width = 44 - end - object Tv1Column29: TcxGridDBColumn - Caption = #35843#20986#35745#21010#21333#21495 - DataBinding.FieldName = 'SupOrdNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 124 - end - object Tv1Column30: TcxGridDBColumn - Caption = #35843#20986#21512#21516#21495 - DataBinding.FieldName = 'SupConNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 129 - end - object Tv1Column13: TcxGridDBColumn - Caption = #35745#21010#21333#21495 - DataBinding.FieldName = 'FromOrdNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 83 - end - object Tv1Column19: TcxGridDBColumn - Caption = #21512#21516#21495 - DataBinding.FieldName = 'FromConNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 92 - end - object v1Column6: TcxGridDBColumn - Caption = #20837#24211#26465#30721 - DataBinding.FieldName = 'BCIOID' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 110 + Width = 55 end object Tv1Column37: TcxGridDBColumn Caption = #20837#24211#21333#21495 @@ -449,7 +417,47 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 114 + Width = 55 + end + object Tv1Column29: TcxGridDBColumn + Caption = #35843#20986#35745#21010#21333#21495 + DataBinding.FieldName = 'SupOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column30: TcxGridDBColumn + Caption = #35843#20986#21512#21516#21495 + DataBinding.FieldName = 'SupConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column13: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column19: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'FromConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#26465#30721 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 end object v1Column2: TcxGridDBColumn Tag = 2 @@ -461,7 +469,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList Properties.ShowTime = False HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 74 + Width = 55 end object v1Column4: TcxGridDBColumn Tag = 2 @@ -476,7 +484,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList #26399#21021#20837#24211) HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 80 + Width = 55 end object v1Column14: TcxGridDBColumn Tag = 2 @@ -493,7 +501,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 71 + Width = 55 end object Tv1Column11: TcxGridDBColumn Caption = #37319#36141#21333#21495 @@ -501,7 +509,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 56 + Width = 55 end object Tv1Column20: TcxGridDBColumn Caption = #33521#25991#21697#21517 @@ -509,7 +517,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object v2Column1: TcxGridDBColumn Tag = 2 @@ -524,7 +532,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList end> HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object v1Column8: TcxGridDBColumn Tag = 2 @@ -534,7 +542,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column4: TcxGridDBColumn Caption = #32568#21495 @@ -542,7 +550,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object v1Column13: TcxGridDBColumn Caption = #38376#24133 @@ -550,7 +558,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object v1Column11: TcxGridDBColumn Caption = #20811#37325 @@ -558,7 +566,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column6: TcxGridDBColumn Caption = #32534#21495 @@ -566,7 +574,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object v1Column15: TcxGridDBColumn Caption = #21305#25968 @@ -574,7 +582,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object v2Column6: TcxGridDBColumn Tag = 2 @@ -584,7 +592,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object v1Column3: TcxGridDBColumn Tag = 2 @@ -599,7 +607,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList 'Y') HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object v1Column5: TcxGridDBColumn Tag = 2 @@ -615,7 +623,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column14: TcxGridDBColumn Caption = #25209#21495 @@ -623,7 +631,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object v1Column19: TcxGridDBColumn Caption = #36710#38388 @@ -631,7 +639,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object v1Column12: TcxGridDBColumn Tag = 2 @@ -640,7 +648,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object v1Column20: TcxGridDBColumn Caption = #19994#21153#21592 @@ -648,7 +656,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 75 + Width = 55 end object Tv1Column3: TcxGridDBColumn Caption = #33394#21035 @@ -656,7 +664,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 71 + Width = 55 end object Tv1Column5: TcxGridDBColumn Caption = #30721#23610 @@ -664,7 +672,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column32: TcxGridDBColumn Caption = #25220#30721 @@ -672,7 +680,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 70 + Width = 55 end object Tv1Column1: TcxGridDBColumn Caption = #39068#33394 @@ -680,7 +688,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column21: TcxGridDBColumn Caption = #33521#25991#39068#33394 @@ -688,7 +696,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column2: TcxGridDBColumn Caption = #33394#21495 @@ -696,7 +704,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column10: TcxGridDBColumn Caption = #27454#21495 @@ -704,7 +712,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column8: TcxGridDBColumn Caption = #33457#22411 @@ -712,7 +720,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column36: TcxGridDBColumn Caption = #24211#20301 @@ -720,7 +728,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column9: TcxGridDBColumn Caption = #25104#20998 @@ -728,7 +736,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column12: TcxGridDBColumn Caption = #38468#20214 @@ -737,7 +745,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList PropertiesClassName = 'TcxCheckBoxProperties' HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column15: TcxGridDBColumn Caption = #30331#35760#20154 @@ -745,7 +753,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column16: TcxGridDBColumn Caption = #30331#35760#26102#38388 @@ -753,7 +761,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column17: TcxGridDBColumn Caption = #20462#25913#20154 @@ -761,7 +769,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column18: TcxGridDBColumn Caption = #20462#25913#26102#38388 @@ -769,7 +777,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column22: TcxGridDBColumn Caption = #31867#22411 @@ -777,7 +785,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column27: TcxGridDBColumn Caption = #22383#24067#20379#24212#21830 @@ -785,7 +793,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column25: TcxGridDBColumn Caption = #24067#31181 @@ -793,7 +801,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column24: TcxGridDBColumn Caption = #21518#25972#29702#33521#25991 @@ -801,7 +809,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column34: TcxGridDBColumn Caption = #32467#26696#31867#22411 @@ -809,7 +817,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column26: TcxGridDBColumn Caption = #21518#25972#29702#20013#25991 @@ -817,7 +825,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column23: TcxGridDBColumn Caption = #21152#24037#21035 @@ -825,7 +833,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column33: TcxGridDBColumn Caption = #21367#21495 @@ -833,7 +841,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end object Tv1Column35: TcxGridDBColumn Caption = #38477#32423#21407#22240 @@ -841,18 +849,24 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 44 + Width = 55 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end + inherited loadProcess: TPanel + Left = 801 + Top = 360 + ExplicitLeft = 801 + ExplicitTop = 360 + end inherited cxProgressBar2: TcxProgressBar - Left = 649 - Top = 344 - ExplicitLeft = 649 - ExplicitTop = 344 + Left = 793 + Top = 296 + ExplicitLeft = 793 + ExplicitTop = 296 ExplicitHeight = 29 end inherited ADOQueryBaseCmd: TADOQuery diff --git a/T02贸易汇总仓库/U_TradeClothTotalInList.pas b/T02贸易汇总仓库/U_TradeClothTotalInList.pas index 5f81370..284689c 100644 --- a/T02贸易汇总仓库/U_TradeClothTotalInList.pas +++ b/T02贸易汇总仓库/U_TradeClothTotalInList.pas @@ -116,6 +116,7 @@ type StkCoName: TcxTextEdit; Label11: TLabel; BCIOID: TcxTextEdit; + btn1: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -144,6 +145,7 @@ type procedure cxButton3Click(Sender: TObject); procedure BCIONoKeyPress(Sender: TObject; var Key: Char); procedure IOTypePropertiesChange(Sender: TObject); + procedure btn1Click(Sender: TObject); private canshu1, canshu2, canshu3: string; procedure InitGrid(); @@ -158,7 +160,7 @@ implementation uses U_DataLink, U_RTFun, U_LabelPrint, U_AttachmentUpload, - U_TradeClothTotalInInput; + U_TradeClothTotalInInput1, U_TradeClothTotalInInput; {$R *.dfm} procedure TfrmTradeClothTotalInList.setStatus(); @@ -287,6 +289,25 @@ begin InitGrid(); end; +procedure TfrmTradeClothTotalInList.btn1Click(Sender: TObject); +begin + try + frmTradeClothTotalInInput1 := TfrmTradeClothTotalInInput1.Create(Application); + with frmTradeClothTotalInInput1 do + begin + FBCId := ''; + frmTradeClothTotalInInput1.canshu3 := Trim(Self.canshu3); + FSTKName := Self.FSTKName; + if ShowModal = 1 then + begin + Self.InitGrid(); + end; + end; + finally + frmTradeClothTotalInInput1.Free; + end; +end; + procedure TfrmTradeClothTotalInList.BCIOIDPropertiesChange(Sender: TObject); begin if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then @@ -403,7 +424,7 @@ begin if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); ADOQueryCmd.Connection.CommitTrans; - CDS_1.Delete; + InitGrid(); except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);