From d6aa739201eb26a1f52c9d0c2599024d5d4b53f7 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Mon, 28 Apr 2025 10:11:12 +0800 Subject: [PATCH] 0428 --- A01基础公司管理/Company.skincfg | 112 ++++++++++++------------ A01基础公司管理/U_CustInput.dfm | 66 +++++++++++--- A01基础公司管理/U_CustInput.pas | 22 ++++- A01基础公司管理/U_Customer.dfm | 40 +++++---- A01基础公司管理/U_Customer.pas | 20 ++++- A01基础公司管理/U_DataLink.dfm | 4 + A01基础公司管理/U_DataLink.pas | 18 +++- T02贸易汇总仓库/U_ItemizedListInPut.dfm | 14 ++- T02贸易汇总仓库/U_ItemizedListInPut.pas | 1 + T02贸易汇总仓库/U_ItemizedListList.dfm | 27 +++--- T02贸易汇总仓库/U_ItemizedListList.pas | 1 + 11 files changed, 224 insertions(+), 101 deletions(-) diff --git a/A01基础公司管理/Company.skincfg b/A01基础公司管理/Company.skincfg index e24b8d2..726fcff 100644 --- a/A01基础公司管理/Company.skincfg +++ b/A01基础公司管理/Company.skincfg @@ -3,60 +3,60 @@ Default=1 ShowNotifications=1 Enabled=1 dxSkinsDefaultPainters=1 -dxSkinBasic=0 -dxSkinBlack=0 -dxSkinBlue=0 -dxSkinBlueprint=0 -dxSkinCaramel=0 -dxSkinCoffee=0 -dxSkinDarkroom=0 -dxSkinDarkSide=0 -dxSkinDevExpressDarkStyle=0 -dxSkinDevExpressStyle=0 -dxSkinFoggy=0 -dxSkinGlassOceans=0 -dxSkinHighContrast=0 -dxSkiniMaginary=0 -dxSkinLilian=0 -dxSkinLiquidSky=0 -dxSkinLondonLiquidSky=0 -dxSkinMcSkin=0 -dxSkinMetropolis=0 -dxSkinMetropolisDark=0 -dxSkinMoneyTwins=0 -dxSkinOffice2007Black=0 -dxSkinOffice2007Blue=0 -dxSkinOffice2007Green=0 -dxSkinOffice2007Pink=0 -dxSkinOffice2007Silver=0 -dxSkinOffice2010Black=0 -dxSkinOffice2010Blue=0 -dxSkinOffice2010Silver=0 -dxSkinOffice2013DarkGray=0 -dxSkinOffice2013LightGray=0 -dxSkinOffice2013White=0 -dxSkinOffice2016Colorful=0 -dxSkinOffice2016Dark=0 -dxSkinOffice2019Black=0 -dxSkinOffice2019Colorful=0 -dxSkinOffice2019DarkGray=0 -dxSkinOffice2019White=0 -dxSkinPumpkin=0 -dxSkinSeven=0 -dxSkinSevenClassic=0 -dxSkinSharp=0 -dxSkinSharpPlus=0 -dxSkinSilver=0 -dxSkinSpringtime=0 -dxSkinStardust=0 -dxSkinSummer2008=0 -dxSkinTheAsphaltWorld=0 -dxSkinTheBezier=0 -dxSkinValentine=0 -dxSkinVisualStudio2013Blue=0 -dxSkinVisualStudio2013Dark=0 -dxSkinVisualStudio2013Light=0 -dxSkinVS2010=0 -dxSkinWhiteprint=0 +dxSkinBasic=1 +dxSkinBlack=1 +dxSkinBlue=1 +dxSkinBlueprint=1 +dxSkinCaramel=1 +dxSkinCoffee=1 +dxSkinDarkroom=1 +dxSkinDarkSide=1 +dxSkinDevExpressDarkStyle=1 +dxSkinDevExpressStyle=1 +dxSkinFoggy=1 +dxSkinGlassOceans=1 +dxSkinHighContrast=1 +dxSkiniMaginary=1 +dxSkinLilian=1 +dxSkinLiquidSky=1 +dxSkinLondonLiquidSky=1 +dxSkinMcSkin=1 +dxSkinMetropolis=1 +dxSkinMetropolisDark=1 +dxSkinMoneyTwins=1 +dxSkinOffice2007Black=1 +dxSkinOffice2007Blue=1 +dxSkinOffice2007Green=1 +dxSkinOffice2007Pink=1 +dxSkinOffice2007Silver=1 +dxSkinOffice2010Black=1 +dxSkinOffice2010Blue=1 +dxSkinOffice2010Silver=1 +dxSkinOffice2013DarkGray=1 +dxSkinOffice2013LightGray=1 +dxSkinOffice2013White=1 +dxSkinOffice2016Colorful=1 +dxSkinOffice2016Dark=1 +dxSkinOffice2019Black=1 +dxSkinOffice2019Colorful=1 +dxSkinOffice2019DarkGray=1 +dxSkinOffice2019White=1 +dxSkinPumpkin=1 +dxSkinSeven=1 +dxSkinSevenClassic=1 +dxSkinSharp=1 +dxSkinSharpPlus=1 +dxSkinSilver=1 +dxSkinSpringtime=1 +dxSkinStardust=1 +dxSkinSummer2008=1 +dxSkinTheAsphaltWorld=1 +dxSkinTheBezier=1 +dxSkinValentine=1 +dxSkinVisualStudio2013Blue=1 +dxSkinVisualStudio2013Dark=1 +dxSkinVisualStudio2013Light=1 +dxSkinVS2010=1 +dxSkinWhiteprint=1 dxSkinWXI=1 -dxSkinXmas2008Blue=0 +dxSkinXmas2008Blue=1 diff --git a/A01基础公司管理/U_CustInput.dfm b/A01基础公司管理/U_CustInput.dfm index 2852a7f..1e68fdc 100644 --- a/A01基础公司管理/U_CustInput.dfm +++ b/A01基础公司管理/U_CustInput.dfm @@ -3,21 +3,21 @@ inherited frmCustInput: TfrmCustInput Top = 149 Caption = #23458#25143#36164#26009#24405#20837 ClientHeight = 673 - ClientWidth = 1600 + ClientWidth = 1540 Font.Charset = GB2312_CHARSET Font.Height = -16 OldCreateOrder = True Position = poScreenCenter OnClose = FormClose - ExplicitWidth = 1608 - ExplicitHeight = 704 + ExplicitWidth = 1556 + ExplicitHeight = 712 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 - Width = 1600 + Width = 1540 Height = 30 AutoSize = True ButtonHeight = 30 @@ -58,7 +58,7 @@ inherited frmCustInput: TfrmCustInput object ScrollBox1: TScrollBox [1] Left = 0 Top = 30 - Width = 1600 + Width = 1540 Height = 255 Align = alTop BevelInner = bvNone @@ -67,6 +67,7 @@ inherited frmCustInput: TfrmCustInput Ctl3D = False ParentCtl3D = False TabOrder = 1 + ExplicitTop = 26 object Label2: TLabel Left = 40 Top = 12 @@ -142,7 +143,7 @@ inherited frmCustInput: TfrmCustInput end object Label11: TLabel Left = 0 - Top = 87 + Top = 90 Width = 71 Height = 21 Caption = #22320#21306'/'#22478#24066 @@ -156,7 +157,7 @@ inherited frmCustInput: TfrmCustInput end object lbl2: TLabel Left = 289 - Top = 89 + Top = 90 Width = 64 Height = 21 Caption = #19994#21153#21592#65306 @@ -176,6 +177,20 @@ inherited frmCustInput: TfrmCustInput Height = 21 Caption = #27424#27454#39069#24230#65306 end + object Label14: TLabel + Left = 598 + Top = 90 + Width = 64 + Height = 21 + Caption = #22810#20154#31614#25910 + end + object Label15: TLabel + Left = 878 + Top = 90 + Width = 64 + Height = 21 + Caption = #38656#35201#30422#31456 + end object CoName: TcxTextEdit Tag = 2 Left = 78 @@ -291,7 +306,7 @@ inherited frmCustInput: TfrmCustInput object Coarea: TcxButtonEdit Tag = 2 Left = 78 - Top = 87 + Top = 84 Hint = 'Coarea/'#22320#21306 Properties.Buttons = < item @@ -323,7 +338,7 @@ inherited frmCustInput: TfrmCustInput object Saleser: TcxButtonEdit Tag = 2 Left = 362 - Top = 86 + Top = 84 Properties.Buttons = < item Default = True @@ -369,11 +384,34 @@ inherited frmCustInput: TfrmCustInput Visible = False Width = 501 end + object MoreFlag: TcxComboBox + Tag = 2 + Left = 668 + Top = 84 + Properties.Items.Strings = ( + #26159 + #21542) + TabOrder = 15 + Text = #21542 + Width = 200 + end + object SealFlag: TcxComboBox + Tag = 2 + Left = 951 + Top = 84 + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #26159 + #21542) + TabOrder = 16 + Text = #21542 + Width = 200 + end end object Panel1: TPanel [2] Left = 0 Top = 285 - Width = 1600 + Width = 1540 Height = 388 Align = alClient Caption = 'Panel1' @@ -381,7 +419,7 @@ inherited frmCustInput: TfrmCustInput object Panel3: TPanel Left = 1 Top = 1 - Width = 1138 + Width = 1078 Height = 386 Align = alClient Caption = 'Panel1' @@ -390,7 +428,7 @@ inherited frmCustInput: TfrmCustInput Tag = 1 Left = 1 Top = 1 - Width = 1136 + Width = 1076 Height = 30 AutoSize = True ButtonHeight = 30 @@ -431,7 +469,7 @@ inherited frmCustInput: TfrmCustInput object cxGrid2: TcxGrid Left = 1 Top = 31 - Width = 1136 + Width = 1076 Height = 354 Align = alClient BorderStyle = cxcbsNone @@ -542,7 +580,7 @@ inherited frmCustInput: TfrmCustInput end end object Panel2: TPanel - Left = 1139 + Left = 1079 Top = 1 Width = 460 Height = 386 diff --git a/A01基础公司管理/U_CustInput.pas b/A01基础公司管理/U_CustInput.pas index e4aad9a..25aad38 100644 --- a/A01基础公司管理/U_CustInput.pas +++ b/A01基础公司管理/U_CustInput.pas @@ -15,7 +15,23 @@ uses cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer, cxMemo, dxScrollbarAnnotations, dxSkinsCore, - dxSkinsDefaultPainters, cxImageList, cxMRUEdit; + dxSkinsDefaultPainters, cxImageList, cxMRUEdit, dxSkinBasic, dxSkinBlack, + dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue; type TfrmCustInput = class(TfrmBaseInput) @@ -88,6 +104,10 @@ type AMOUNTOWED: TcxTextEdit; area: TcxMRUEdit; TV2Column3: TcxGridDBColumn; + Label14: TLabel; + Label15: TLabel; + MoreFlag: TcxComboBox; + SealFlag: TcxComboBox; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/A01基础公司管理/U_Customer.dfm b/A01基础公司管理/U_Customer.dfm index e9683af..2b57ae6 100644 --- a/A01基础公司管理/U_Customer.dfm +++ b/A01基础公司管理/U_Customer.dfm @@ -3,13 +3,14 @@ inherited frmCustomer: TfrmCustomer Top = 169 Caption = #23458#25143#36164#26009#31649#29702 ClientHeight = 537 - ClientWidth = 1583 + ClientWidth = 1540 Color = clBtnFace Font.Height = -16 FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitWidth = 1599 + ExplicitLeft = -381 + ExplicitWidth = 1556 ExplicitHeight = 576 PixelsPerInch = 96 TextHeight = 21 @@ -17,7 +18,7 @@ inherited frmCustomer: TfrmCustomer Tag = 1 Left = 0 Top = 0 - Width = 1583 + Width = 1540 Height = 30 AutoSize = True ButtonHeight = 30 @@ -31,7 +32,6 @@ inherited frmCustomer: TfrmCustomer ParentColor = False ShowCaptions = True TabOrder = 5 - ExplicitWidth = 1167 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -132,7 +132,7 @@ inherited frmCustomer: TfrmCustomer object Panel1: TPanel [1] Left = 0 Top = 30 - Width = 1583 + Width = 1540 Height = 62 Align = alTop BevelInner = bvRaised @@ -140,7 +140,6 @@ inherited frmCustomer: TfrmCustomer ParentBackground = False ParentColor = True TabOrder = 6 - ExplicitWidth = 1167 object Label3: TLabel Left = 182 Top = 20 @@ -225,12 +224,11 @@ inherited frmCustomer: TfrmCustomer object cxGrid1: TcxGrid [2] Left = 0 Top = 120 - Width = 1583 + Width = 1540 Height = 214 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitWidth = 1167 object Tv1: TcxGridDBTableView PopupMenu = PopupMenu1 Navigator.Buttons.CustomButtons = <> @@ -387,6 +385,20 @@ inherited frmCustomer: TfrmCustomer Options.Editing = False Width = 76 end + object Tv1Column9: TcxGridDBColumn + Caption = #22810#20154#31614#25910 + DataBinding.FieldName = 'MoreFlag' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 88 + end + object Tv1Column12: TcxGridDBColumn + Caption = #38656#35201#30422#31456 + DataBinding.FieldName = 'SealFlag' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 96 + end end object cxGridLevel1: TcxGridLevel GridView = Tv1 @@ -395,20 +407,18 @@ inherited frmCustomer: TfrmCustomer object Panel2: TPanel [3] Left = 0 Top = 334 - Width = 1583 + Width = 1540 Height = 203 Align = alBottom Caption = 'Panel2' TabOrder = 3 - ExplicitWidth = 1167 object cxGrid2: TcxGrid Left = 1 Top = 1 - Width = 1014 + Width = 971 Height = 201 Align = alClient TabOrder = 0 - ExplicitWidth = 598 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -518,13 +528,12 @@ inherited frmCustomer: TfrmCustomer end end object cxGrid3: TcxGrid - Left = 1015 + Left = 972 Top = 1 Width = 567 Height = 201 Align = alRight TabOrder = 1 - ExplicitLeft = 599 object Tv3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -565,7 +574,7 @@ inherited frmCustomer: TfrmCustomer object cxTabControl1: TcxTabControl [4] Left = 0 Top = 92 - Width = 1583 + Width = 1540 Height = 28 Align = alTop TabOrder = 4 @@ -578,7 +587,6 @@ inherited frmCustomer: TfrmCustomer #20840#37096) LookAndFeel.Kind = lfUltraFlat OnChange = cxTabControl1Change - ExplicitWidth = 1167 ClientRectRight = 0 ClientRectTop = 0 end diff --git a/A01基础公司管理/U_Customer.pas b/A01基础公司管理/U_Customer.pas index abafa4e..3c17cf3 100644 --- a/A01基础公司管理/U_Customer.pas +++ b/A01基础公司管理/U_Customer.pas @@ -18,7 +18,23 @@ uses FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer, dxScrollbarAnnotations, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, - cxProgressBar; + cxProgressBar, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue; type TfrmCustomer = class(TfrmBaseList) @@ -98,6 +114,8 @@ type cxGridLevel3: TcxGridLevel; Tv2Column2: TcxGridDBColumn; Tv2Column3: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/A01基础公司管理/U_DataLink.dfm b/A01基础公司管理/U_DataLink.dfm index 258f243..883df94 100644 --- a/A01基础公司管理/U_DataLink.dfm +++ b/A01基础公司管理/U_DataLink.dfm @@ -8,6 +8,10 @@ inherited DataLink_Company: TDataLink_Company Top = 105 end inherited cxEditStyleController1: TcxEditStyleController + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' Left = 131 Top = 113 PixelsPerInch = 96 diff --git a/A01基础公司管理/U_DataLink.pas b/A01基础公司管理/U_DataLink.pas index f78f98d..c2d2420 100644 --- a/A01基础公司管理/U_DataLink.pas +++ b/A01基础公司管理/U_DataLink.pas @@ -23,7 +23,23 @@ uses - dxCore, dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters; + dxCore, dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters, + dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful, + dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful, + dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, + dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, + dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue; type TMyThread = class(TThread) diff --git a/T02贸易汇总仓库/U_ItemizedListInPut.dfm b/T02贸易汇总仓库/U_ItemizedListInPut.dfm index e05f17c..57c27e1 100644 --- a/T02贸易汇总仓库/U_ItemizedListInPut.dfm +++ b/T02贸易汇总仓库/U_ItemizedListInPut.dfm @@ -7,8 +7,8 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut Font.Charset = GB2312_CHARSET Font.Height = -16 Position = poMainFormCenter - ExplicitWidth = 1161 - ExplicitHeight = 624 + ExplicitWidth = 1169 + ExplicitHeight = 632 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -133,6 +133,8 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut Align = alClient PopupMenu = PopupMenu2 TabOrder = 0 + ExplicitLeft = 2 + ExplicitTop = 5 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick OnMouseDown = Tv1MouseDown @@ -247,6 +249,13 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut HeaderAlignmentHorz = taCenter Width = 98 end + object Tv1Column9: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'FtyPCId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object Tv1Column5: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' @@ -345,6 +354,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut Ctl3D = False ParentCtl3D = False TabOrder = 3 + ExplicitTop = 36 object Label3: TLabel Left = 377 Top = 11 diff --git a/T02贸易汇总仓库/U_ItemizedListInPut.pas b/T02贸易汇总仓库/U_ItemizedListInPut.pas index 964afda..28bf687 100644 --- a/T02贸易汇总仓库/U_ItemizedListInPut.pas +++ b/T02贸易汇总仓库/U_ItemizedListInPut.pas @@ -84,6 +84,7 @@ type DS_RCPM: TDataSource; ADO_RCPM: TADOQuery; ToolButton1: TToolButton; + Tv1Column9: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); diff --git a/T02贸易汇总仓库/U_ItemizedListList.dfm b/T02贸易汇总仓库/U_ItemizedListList.dfm index d622bf5..fdb226e 100644 --- a/T02贸易汇总仓库/U_ItemizedListList.dfm +++ b/T02贸易汇总仓库/U_ItemizedListList.dfm @@ -3,21 +3,21 @@ inherited frmItemizedListList: TfrmItemizedListList Top = 13 Caption = #30721#21333#30331#35760 ClientHeight = 736 - ClientWidth = 1719 + ClientWidth = 1540 Color = clBtnFace Font.Height = -16 FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitWidth = 1727 - ExplicitHeight = 767 + ExplicitWidth = 1556 + ExplicitHeight = 775 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 - Width = 1719 + Width = 1540 Height = 30 AutoSize = True ButtonHeight = 30 @@ -127,7 +127,7 @@ inherited frmItemizedListList: TfrmItemizedListList object Panel1: TPanel [1] Left = 0 Top = 30 - Width = 1719 + Width = 1540 Height = 91 Align = alTop BevelInner = bvRaised @@ -167,7 +167,7 @@ inherited frmItemizedListList: TfrmItemizedListList inline frmFrameDateSel1: TfrmFrameDateSel Left = 2 Top = 2 - Width = 1715 + Width = 1536 Height = 37 Align = alTop Color = clWhite @@ -176,7 +176,7 @@ inherited frmItemizedListList: TfrmItemizedListList TabOrder = 2 ExplicitLeft = 2 ExplicitTop = 2 - ExplicitWidth = 1715 + ExplicitWidth = 1536 ExplicitHeight = 37 inherited lbl2: TLabel Width = 16 @@ -189,7 +189,7 @@ inherited frmItemizedListList: TfrmItemizedListList object cxTabControl1: TcxTabControl [2] Left = 0 Top = 121 - Width = 1719 + Width = 1540 Height = 31 Align = alTop TabOrder = 2 @@ -202,7 +202,7 @@ inherited frmItemizedListList: TfrmItemizedListList ' '#20840#37096' ') OnChange = cxTabControl1Change ClientRectBottom = 31 - ClientRectRight = 1719 + ClientRectRight = 1540 ClientRectTop = 28 end inherited loadProcess: TPanel @@ -223,7 +223,7 @@ inherited frmItemizedListList: TfrmItemizedListList object cxGrid1: TcxGrid [5] Left = 0 Top = 152 - Width = 1719 + Width = 1540 Height = 584 Align = alClient TabOrder = 5 @@ -389,6 +389,13 @@ inherited frmItemizedListList: TfrmItemizedListList Options.Editing = False Width = 70 end + object TV1Column15: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'FtyPCId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 73 + end object VC_PRTPs: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'TISPiece' diff --git a/T02贸易汇总仓库/U_ItemizedListList.pas b/T02贸易汇总仓库/U_ItemizedListList.pas index 8301dae..30dfe6a 100644 --- a/T02贸易汇总仓库/U_ItemizedListList.pas +++ b/T02贸易汇总仓库/U_ItemizedListList.pas @@ -84,6 +84,7 @@ type TV1Column12: TcxGridDBColumn; TV1Column13: TcxGridDBColumn; TV1Column14: TcxGridDBColumn; + TV1Column15: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject);