Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

0428

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-04-28 10:11:12 +08:00
parent 805b70612e
commit d6aa739201
11 changed files with 224 additions and 101 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

112
A01基础公司管理/Company.skincfg
View File

@ -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

66
A01基础公司管理/U_CustInput.dfm
View File

@ -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

22
A01基础公司管理/U_CustInput.pas
View File

@ -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);

40
A01基础公司管理/U_Customer.dfm
View File

@ -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

20
A01基础公司管理/U_Customer.pas
View File

@ -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);

4
A01基础公司管理/U_DataLink.dfm
View File

@ -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

18
A01基础公司管理/U_DataLink.pas
View File

@ -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)

14
T02贸易汇总仓库/U_ItemizedListInPut.dfm
View File

@ -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

1
T02贸易汇总仓库/U_ItemizedListInPut.pas
View File

@ -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);

27
T02贸易汇总仓库/U_ItemizedListList.dfm
View File

@ -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'

1
T02贸易汇总仓库/U_ItemizedListList.pas
View File

@ -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);