diff --git a/T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm b/T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm index 357270b..cd5fb69 100644 --- a/T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm +++ b/T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm @@ -20,7 +20,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 83 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar @@ -38,7 +38,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList OnClick = TBRafreshClick end object TBFind: TToolButton - Left = 63 + Left = 71 Top = 0 AutoSize = True Caption = #36807#28388 @@ -46,7 +46,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList OnClick = TBFindClick end object ToolButton7: TToolButton - Left = 126 + Left = 142 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -54,7 +54,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList OnClick = ToolButton7Click end object TBClose: TToolButton - Left = 213 + Left = 245 Top = 0 AutoSize = True Caption = #20851#38381 @@ -73,8 +73,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList ParentBackground = False ParentColor = True TabOrder = 5 - ExplicitTop = 24 - ExplicitWidth = 1735 object Label4: TLabel Left = 452 Top = 50 @@ -142,7 +140,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList TabOrder = 3 ExplicitLeft = 2 ExplicitTop = 2 - ExplicitWidth = 1731 + ExplicitWidth = 1412 ExplicitHeight = 37 inherited lbl2: TLabel Width = 16 @@ -195,7 +193,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList #13' '#24050#23436#25104' ' #13' '#20840#37096' '#13) OnChange = cxTabControl1Change - ExplicitWidth = 1735 ClientRectRight = 0 ClientRectTop = 0 end @@ -207,9 +204,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Align = alClient BorderStyle = cxcbsNone TabOrder = 4 - ExplicitLeft = 2 - ExplicitTop = 149 - ExplicitWidth = 920 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -459,7 +453,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Height = 422 Align = alRight TabOrder = 6 - ExplicitLeft = 1112 object cxGrid2: TcxGrid Left = 1 Top = 31 @@ -468,7 +461,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Align = alClient BorderStyle = cxcbsNone TabOrder = 0 - ExplicitLeft = -2 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -565,7 +557,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 83 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar @@ -583,7 +575,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList OnClick = ToolButton5Click end object ToolButton1: TToolButton - Left = 87 + Left = 103 Top = 0 AutoSize = True Caption = #20462#25913 @@ -600,9 +592,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salRight Control = Panel2 - ExplicitLeft = 0 - ExplicitTop = 557 - ExplicitHeight = 1479 end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_TradeTotalClothStk.ADOLink diff --git a/T03贸易布匹检验/U_MachRollMain.dfm b/T03贸易布匹检验/U_MachRollMain.dfm index cd516dd..92cae4a 100644 --- a/T03贸易布匹检验/U_MachRollMain.dfm +++ b/T03贸易布匹检验/U_MachRollMain.dfm @@ -29,8 +29,8 @@ inherited frmMachRollMain: TfrmMachRollMain OnClick = FrameKeyBoard1SpeedButton1Click OnDblClick = dxLayoutControl_packDblClick object Qty: TcxTextEdit - Left = 79 - Top = 154 + Left = 81 + Top = 147 Properties.ReadOnly = True Style.HotTrack = False Style.TransparentBorder = False @@ -38,8 +38,8 @@ inherited frmMachRollMain: TfrmMachRollMain Width = 111 end object FtyPCId: TcxTextEdit - Left = 79 - Top = 121 + Left = 81 + Top = 118 Properties.ReadOnly = False Style.HotTrack = False Style.TransparentBorder = False @@ -48,8 +48,8 @@ inherited frmMachRollMain: TfrmMachRollMain Width = 111 end object Color: TcxTextEdit - Left = 239 - Top = 88 + Left = 241 + Top = 89 Properties.ReadOnly = True Style.HotTrack = False Style.TransparentBorder = False @@ -57,8 +57,8 @@ inherited frmMachRollMain: TfrmMachRollMain Width = 161 end object ColorNo: TcxTextEdit - Left = 79 - Top = 88 + Left = 81 + Top = 89 Properties.ReadOnly = True Style.HotTrack = False Style.TransparentBorder = False @@ -66,8 +66,8 @@ inherited frmMachRollMain: TfrmMachRollMain Width = 111 end object CodeName: TcxTextEdit - Left = 239 - Top = 55 + Left = 241 + Top = 60 Properties.ReadOnly = True Style.HotTrack = False Style.TransparentBorder = False @@ -75,8 +75,8 @@ inherited frmMachRollMain: TfrmMachRollMain Width = 161 end object OrderNo: TcxTextEdit - Left = 79 - Top = 55 + Left = 81 + Top = 60 Properties.ReadOnly = True Style.HotTrack = False Style.TransparentBorder = False @@ -84,8 +84,8 @@ inherited frmMachRollMain: TfrmMachRollMain Width = 111 end object BCIOID: TcxTextEdit - Left = 239 - Top = 121 + Left = 241 + Top = 118 Properties.ReadOnly = True Style.HotTrack = False Style.TransparentBorder = False @@ -94,8 +94,8 @@ inherited frmMachRollMain: TfrmMachRollMain end object InputLen: TcxTextEdit Tag = 999 - Left = 79 - Top = 209 + Left = 81 + Top = 202 AutoSize = False Properties.ReadOnly = False Properties.OnChange = InputLenPropertiesChange @@ -108,8 +108,8 @@ inherited frmMachRollMain: TfrmMachRollMain Width = 132 end object BTPrint: TButton - Left = 259 - Top = 253 + Left = 261 + Top = 246 Width = 120 Height = 59 Caption = #25552' '#20132 @@ -118,8 +118,8 @@ inherited frmMachRollMain: TfrmMachRollMain end object Tare: TcxTextEdit Tag = 999 - Left = 158 - Top = 253 + Left = 160 + Top = 246 AutoSize = False Properties.OnChange = InputLenPropertiesChange Style.HotTrack = False @@ -132,8 +132,8 @@ inherited frmMachRollMain: TfrmMachRollMain end object Coefficient: TcxTextEdit Tag = 999 - Left = 79 - Top = 321 + Left = 81 + Top = 314 AutoSize = False Properties.ReadOnly = False Style.HotTrack = False @@ -146,8 +146,8 @@ inherited frmMachRollMain: TfrmMachRollMain end object InputWeight: TcxTextEdit Tag = 999 - Left = 79 - Top = 253 + Left = 81 + Top = 246 AutoSize = False Properties.OnChange = InputLenPropertiesChange Style.HotTrack = False @@ -174,7 +174,7 @@ inherited frmMachRollMain: TfrmMachRollMain end object AOrdDefNote1: TcxRichEdit Left = 1 - Top = 379 + Top = 369 Properties.ReadOnly = True Properties.ScrollBars = ssBoth Style.HotTrack = False @@ -202,8 +202,8 @@ inherited frmMachRollMain: TfrmMachRollMain end object lblRuleConversion: TcxComboBox Tag = 2 - Left = 140 - Top = 321 + Left = 142 + Top = 314 AutoSize = False Properties.DropDownListStyle = lsEditFixedList Properties.Items.Strings = ( @@ -226,7 +226,7 @@ inherited frmMachRollMain: TfrmMachRollMain object packnote: TcxMemo Tag = 999 Left = 191 - Top = 379 + Top = 369 Properties.ReadOnly = True Properties.ScrollBars = ssVertical Style.HotTrack = False @@ -436,7 +436,7 @@ inherited frmMachRollMain: TfrmMachRollMain AllowRemove = False CaptionOptions.Text = '[B][COLOR=#FF0000][SIZE=12]'#25195#25551#26465#30721'[/SIZE][/COLOR][/B]' Control = edtScan - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 27 ControlOptions.OriginalWidth = 148 ControlOptions.ShowBorder = False OnCaptionClick = dxLayoutItem1CaptionClick @@ -448,7 +448,7 @@ inherited frmMachRollMain: TfrmMachRollMain AllowRemove = False CaptionOptions.Text = #25351#31034#21333 Control = OrderNo - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 144 ControlOptions.ShowBorder = False Index = 0 @@ -472,7 +472,7 @@ inherited frmMachRollMain: TfrmMachRollMain Offsets.Left = 5 CaptionOptions.Text = #26579#21378#32568#21495 Control = FtyPCId - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 144 ControlOptions.ShowBorder = False Index = 2 @@ -482,7 +482,7 @@ inherited frmMachRollMain: TfrmMachRollMain Offsets.Left = 5 CaptionOptions.Text = #33394#21495 Control = ColorNo - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 144 ControlOptions.ShowBorder = False Index = 1 @@ -493,7 +493,7 @@ inherited frmMachRollMain: TfrmMachRollMain AllowRemove = False CaptionOptions.Text = #25968#37327 Control = Qty - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 144 ControlOptions.ShowBorder = False Index = 3 @@ -531,7 +531,7 @@ inherited frmMachRollMain: TfrmMachRollMain AllowRemove = False CaptionOptions.Text = #21697#21517 Control = CodeName - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 144 ControlOptions.ShowBorder = False Index = 0 @@ -541,7 +541,7 @@ inherited frmMachRollMain: TfrmMachRollMain AllowRemove = False CaptionOptions.Text = #39068#33394 Control = Color - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 144 ControlOptions.ShowBorder = False Index = 1 @@ -550,7 +550,7 @@ inherited frmMachRollMain: TfrmMachRollMain Parent = dxLayoutGroup_plan_2 CaptionOptions.Text = #21345#21495 Control = BCIOID - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 144 ControlOptions.ShowBorder = False Index = 2 @@ -817,7 +817,7 @@ inherited frmMachRollMain: TfrmMachRollMain object dxLayoutItem_Pattern: TdxLayoutItem CaptionOptions.Text = #33457#22411 Control = C_Pattern - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 124 ControlOptions.ShowBorder = False Index = -1 @@ -833,7 +833,7 @@ inherited frmMachRollMain: TfrmMachRollMain object dxLayoutItem_StyleNo: TdxLayoutItem CaptionOptions.Text = #27454#21495 Control = C_StyleNo - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 168 ControlOptions.ShowBorder = False Index = -1 @@ -841,7 +841,7 @@ inherited frmMachRollMain: TfrmMachRollMain object dxLayoutItem_customStrField1: TdxLayoutItem CaptionOptions.Text = #33258#23450#20041#36755#20837'1' Control = customStrField1 - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 121 ControlOptions.ShowBorder = False Index = -1 @@ -849,7 +849,7 @@ inherited frmMachRollMain: TfrmMachRollMain object dxLayoutItem_customStrField2: TdxLayoutItem CaptionOptions.Text = #33258#23450#20041#36755#20837'2' Control = customStrField2 - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 121 ControlOptions.ShowBorder = False Index = -1 @@ -857,7 +857,7 @@ inherited frmMachRollMain: TfrmMachRollMain object dxLayoutItem_width: TdxLayoutItem CaptionOptions.Text = #38376#24133 Control = C_Width - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 121 ControlOptions.ShowBorder = False Index = -1 @@ -865,7 +865,7 @@ inherited frmMachRollMain: TfrmMachRollMain object dxLayoutItem_gram: TdxLayoutItem CaptionOptions.Text = #20811#37325 Control = C_GramWeight - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 121 ControlOptions.ShowBorder = False Index = -1 @@ -873,7 +873,7 @@ inherited frmMachRollMain: TfrmMachRollMain object dxLayoutItem_addlen: TdxLayoutItem CaptionOptions.Text = #21152#38271 Control = addLen - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 121 ControlOptions.ShowBorder = False Index = -1 @@ -881,7 +881,7 @@ inherited frmMachRollMain: TfrmMachRollMain object dxLayoutItem_addwet: TdxLayoutItem CaptionOptions.Text = #21152#37325 Control = addWet - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 121 ControlOptions.ShowBorder = False Index = -1 @@ -898,7 +898,7 @@ inherited frmMachRollMain: TfrmMachRollMain object dxLayoutItem_presentLen: TdxLayoutItem CaptionOptions.Text = #36192#36865#38271#24230 Control = presentLen - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 121 ControlOptions.ShowBorder = False Index = -1 @@ -906,7 +906,7 @@ inherited frmMachRollMain: TfrmMachRollMain object dxLayoutItem_presentWeight: TdxLayoutItem CaptionOptions.Text = #36192#36865#37325#37327 Control = presentWeight - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 121 ControlOptions.ShowBorder = False Index = -1 @@ -914,7 +914,7 @@ inherited frmMachRollMain: TfrmMachRollMain object dxLayoutItem_unitPieces: TdxLayoutItem CaptionOptions.Text = #25340#21305 Control = unitPieces - ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalHeight = 29 ControlOptions.OriginalWidth = 121 ControlOptions.ShowBorder = False Index = -1 @@ -936,7 +936,7 @@ inherited frmMachRollMain: TfrmMachRollMain Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 107 + ButtonWidth = 131 Caption = 'ToolBar1' EdgeInner = esNone EdgeOuter = esNone @@ -953,7 +953,7 @@ inherited frmMachRollMain: TfrmMachRollMain OnClick = ToolButton3Click end object Trolldel: TToolButton - Left = 63 + Left = 71 Top = 0 AutoSize = True Caption = #21024#38500 @@ -961,14 +961,14 @@ inherited frmMachRollMain: TfrmMachRollMain OnClick = TrolldelClick end object ToolButton4: TToolButton - Left = 126 + Left = 142 Top = 0 AutoSize = True Caption = #30133#28857#31649#29702 ImageIndex = 2 end object ToolButton2: TToolButton - Left = 213 + Left = 245 Top = 0 AutoSize = True Caption = #25171#21360#24211#23384#26631#31614 @@ -976,7 +976,7 @@ inherited frmMachRollMain: TfrmMachRollMain OnClick = ToolButton2Click end object ToolButton1: TToolButton - Left = 324 + Left = 380 Top = 0 AutoSize = True Caption = #25171#21367#35774#32622 @@ -984,7 +984,7 @@ inherited frmMachRollMain: TfrmMachRollMain OnClick = ToolButton1Click end object ToolButton7: TToolButton - Left = 411 + Left = 483 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -992,14 +992,14 @@ inherited frmMachRollMain: TfrmMachRollMain OnClick = ToolButton7Click end object Tlog: TToolButton - Left = 498 + Left = 586 Top = 0 AutoSize = True Caption = #26085#24535 ImageIndex = 30 end object ToolButton8: TToolButton - Left = 561 + Left = 657 Top = 0 AutoSize = True Caption = #20851#38381 @@ -1010,10 +1010,10 @@ inherited frmMachRollMain: TfrmMachRollMain object cxGrid3: TcxGrid Tag = 9999 Left = 1 - Top = 31 + Top = 576 Width = 844 - Height = 819 - Align = alClient + Height = 274 + Align = alBottom TabOrder = 1 object Tv3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> @@ -1145,6 +1145,51 @@ inherited frmMachRollMain: TfrmMachRollMain GridView = Tv3 end end + object cxGrid1: TcxGrid + Tag = 9999 + Left = 1 + Top = 31 + Width = 844 + Height = 545 + Align = alClient + TabOrder = 2 + ExplicitHeight = 154 + object TV1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCustomDrawCell = Tv3CustomDrawCell + DataController.DataSource = ds_3 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxgrdbclmnTV1Column1: TcxGridDBColumn + DataBinding.IsNullValueType = True + end + object cxgrdbclmnTV1Column2: TcxGridDBColumn + DataBinding.IsNullValueType = True + end + object cxgrdbclmnTV1Column3: TcxGridDBColumn + DataBinding.IsNullValueType = True + end + object cxgrdbclmnTV1Column4: TcxGridDBColumn + DataBinding.IsNullValueType = True + end + object cxgrdbclmnTV1Column5: TcxGridDBColumn + DataBinding.IsNullValueType = True + end + object cxgrdbclmnTV1Column6: TcxGridDBColumn + DataBinding.IsNullValueType = True + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV1 + end + end end object cxGroupBox_keys: TcxGroupBox [2] Left = 8 @@ -1158,21 +1203,21 @@ inherited frmMachRollMain: TfrmMachRollMain Height = 245 Width = 319 inline FrameKeyBoard1: TFrameKeyBoard - Left = 4 - Top = 23 - Width = 311 - Height = 206 + Left = 2 + Top = 26 + Width = 315 + Height = 217 Align = alClient TabOrder = 0 - ExplicitLeft = 4 - ExplicitTop = 23 - ExplicitWidth = 311 - ExplicitHeight = 206 + ExplicitLeft = 2 + ExplicitTop = 26 + ExplicitWidth = 315 + ExplicitHeight = 217 inherited dxPanel1: TdxPanel - Width = 311 - Height = 206 - ExplicitWidth = 311 - ExplicitHeight = 206 + Width = 315 + Height = 217 + ExplicitWidth = 315 + ExplicitHeight = 217 inherited SpeedButton1: TSpeedButton OnClick = FrameKeyBoard1SpeedButton1Click end diff --git a/T03贸易布匹检验/U_MachRollMain.pas b/T03贸易布匹检验/U_MachRollMain.pas index dc8f972..aae23d3 100644 --- a/T03贸易布匹检验/U_MachRollMain.pas +++ b/T03贸易布匹检验/U_MachRollMain.pas @@ -176,6 +176,15 @@ type frxRichObject1: TfrxRichObject; frxBarCodeObject1: TfrxBarCodeObject; ToolButton2: TToolButton; + cxGrid1: TcxGrid; + TV1: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxgrdbclmnTV1Column1: TcxGridDBColumn; + cxgrdbclmnTV1Column2: TcxGridDBColumn; + cxgrdbclmnTV1Column3: TcxGridDBColumn; + cxgrdbclmnTV1Column4: TcxGridDBColumn; + cxgrdbclmnTV1Column5: TcxGridDBColumn; + cxgrdbclmnTV1Column6: TcxGridDBColumn; procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction);