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 ShowNotifications=1
Enabled=1 Enabled=1
dxSkinsDefaultPainters=1 dxSkinsDefaultPainters=1
dxSkinBasic=0 dxSkinBasic=1
dxSkinBlack=0 dxSkinBlack=1
dxSkinBlue=0 dxSkinBlue=1
dxSkinBlueprint=0 dxSkinBlueprint=1
dxSkinCaramel=0 dxSkinCaramel=1
dxSkinCoffee=0 dxSkinCoffee=1
dxSkinDarkroom=0 dxSkinDarkroom=1
dxSkinDarkSide=0 dxSkinDarkSide=1
dxSkinDevExpressDarkStyle=0 dxSkinDevExpressDarkStyle=1
dxSkinDevExpressStyle=0 dxSkinDevExpressStyle=1
dxSkinFoggy=0 dxSkinFoggy=1
dxSkinGlassOceans=0 dxSkinGlassOceans=1
dxSkinHighContrast=0 dxSkinHighContrast=1
dxSkiniMaginary=0 dxSkiniMaginary=1
dxSkinLilian=0 dxSkinLilian=1
dxSkinLiquidSky=0 dxSkinLiquidSky=1
dxSkinLondonLiquidSky=0 dxSkinLondonLiquidSky=1
dxSkinMcSkin=0 dxSkinMcSkin=1
dxSkinMetropolis=0 dxSkinMetropolis=1
dxSkinMetropolisDark=0 dxSkinMetropolisDark=1
dxSkinMoneyTwins=0 dxSkinMoneyTwins=1
dxSkinOffice2007Black=0 dxSkinOffice2007Black=1
dxSkinOffice2007Blue=0 dxSkinOffice2007Blue=1
dxSkinOffice2007Green=0 dxSkinOffice2007Green=1
dxSkinOffice2007Pink=0 dxSkinOffice2007Pink=1
dxSkinOffice2007Silver=0 dxSkinOffice2007Silver=1
dxSkinOffice2010Black=0 dxSkinOffice2010Black=1
dxSkinOffice2010Blue=0 dxSkinOffice2010Blue=1
dxSkinOffice2010Silver=0 dxSkinOffice2010Silver=1
dxSkinOffice2013DarkGray=0 dxSkinOffice2013DarkGray=1
dxSkinOffice2013LightGray=0 dxSkinOffice2013LightGray=1
dxSkinOffice2013White=0 dxSkinOffice2013White=1
dxSkinOffice2016Colorful=0 dxSkinOffice2016Colorful=1
dxSkinOffice2016Dark=0 dxSkinOffice2016Dark=1
dxSkinOffice2019Black=0 dxSkinOffice2019Black=1
dxSkinOffice2019Colorful=0 dxSkinOffice2019Colorful=1
dxSkinOffice2019DarkGray=0 dxSkinOffice2019DarkGray=1
dxSkinOffice2019White=0 dxSkinOffice2019White=1
dxSkinPumpkin=0 dxSkinPumpkin=1
dxSkinSeven=0 dxSkinSeven=1
dxSkinSevenClassic=0 dxSkinSevenClassic=1
dxSkinSharp=0 dxSkinSharp=1
dxSkinSharpPlus=0 dxSkinSharpPlus=1
dxSkinSilver=0 dxSkinSilver=1
dxSkinSpringtime=0 dxSkinSpringtime=1
dxSkinStardust=0 dxSkinStardust=1
dxSkinSummer2008=0 dxSkinSummer2008=1
dxSkinTheAsphaltWorld=0 dxSkinTheAsphaltWorld=1
dxSkinTheBezier=0 dxSkinTheBezier=1
dxSkinValentine=0 dxSkinValentine=1
dxSkinVisualStudio2013Blue=0 dxSkinVisualStudio2013Blue=1
dxSkinVisualStudio2013Dark=0 dxSkinVisualStudio2013Dark=1
dxSkinVisualStudio2013Light=0 dxSkinVisualStudio2013Light=1
dxSkinVS2010=0 dxSkinVS2010=1
dxSkinWhiteprint=0 dxSkinWhiteprint=1
dxSkinWXI=1 dxSkinWXI=1
dxSkinXmas2008Blue=0 dxSkinXmas2008Blue=1

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

@ -3,21 +3,21 @@ inherited frmCustInput: TfrmCustInput
Top = 149 Top = 149
Caption = #23458#25143#36164#26009#24405#20837 Caption = #23458#25143#36164#26009#24405#20837
ClientHeight = 673 ClientHeight = 673
ClientWidth = 1600 ClientWidth = 1540
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1608 ExplicitWidth = 1556
ExplicitHeight = 704 ExplicitHeight = 712
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1600 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -58,7 +58,7 @@ inherited frmCustInput: TfrmCustInput
object ScrollBox1: TScrollBox [1] object ScrollBox1: TScrollBox [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1600 Width = 1540
Height = 255 Height = 255
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -67,6 +67,7 @@ inherited frmCustInput: TfrmCustInput
Ctl3D = False Ctl3D = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 26
object Label2: TLabel object Label2: TLabel
Left = 40 Left = 40
Top = 12 Top = 12
@ -142,7 +143,7 @@ inherited frmCustInput: TfrmCustInput
end end
object Label11: TLabel object Label11: TLabel
Left = 0 Left = 0
Top = 87 Top = 90
Width = 71 Width = 71
Height = 21 Height = 21
Caption = #22320#21306'/'#22478#24066 Caption = #22320#21306'/'#22478#24066
@ -156,7 +157,7 @@ inherited frmCustInput: TfrmCustInput
end end
object lbl2: TLabel object lbl2: TLabel
Left = 289 Left = 289
Top = 89 Top = 90
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #19994#21153#21592#65306 Caption = #19994#21153#21592#65306
@ -176,6 +177,20 @@ inherited frmCustInput: TfrmCustInput
Height = 21 Height = 21
Caption = #27424#27454#39069#24230#65306 Caption = #27424#27454#39069#24230#65306
end 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 object CoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 78 Left = 78
@ -291,7 +306,7 @@ inherited frmCustInput: TfrmCustInput
object Coarea: TcxButtonEdit object Coarea: TcxButtonEdit
Tag = 2 Tag = 2
Left = 78 Left = 78
Top = 87 Top = 84
Hint = 'Coarea/'#22320#21306 Hint = 'Coarea/'#22320#21306
Properties.Buttons = < Properties.Buttons = <
item item
@ -323,7 +338,7 @@ inherited frmCustInput: TfrmCustInput
object Saleser: TcxButtonEdit object Saleser: TcxButtonEdit
Tag = 2 Tag = 2
Left = 362 Left = 362
Top = 86 Top = 84
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -369,11 +384,34 @@ inherited frmCustInput: TfrmCustInput
Visible = False Visible = False
Width = 501 Width = 501
end 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 end
object Panel1: TPanel [2] object Panel1: TPanel [2]
Left = 0 Left = 0
Top = 285 Top = 285
Width = 1600 Width = 1540
Height = 388 Height = 388
Align = alClient Align = alClient
Caption = 'Panel1' Caption = 'Panel1'
@ -381,7 +419,7 @@ inherited frmCustInput: TfrmCustInput
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1138 Width = 1078
Height = 386 Height = 386
Align = alClient Align = alClient
Caption = 'Panel1' Caption = 'Panel1'
@ -390,7 +428,7 @@ inherited frmCustInput: TfrmCustInput
Tag = 1 Tag = 1
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1136 Width = 1076
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -431,7 +469,7 @@ inherited frmCustInput: TfrmCustInput
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 31 Top = 31
Width = 1136 Width = 1076
Height = 354 Height = 354
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
@ -542,7 +580,7 @@ inherited frmCustInput: TfrmCustInput
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 1139 Left = 1079
Top = 1 Top = 1
Width = 460 Width = 460
Height = 386 Height = 386

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

@ -15,7 +15,23 @@ uses
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList,
Vcl.ImgList, cxContainer, cxMemo, dxScrollbarAnnotations, dxSkinsCore, 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 type
TfrmCustInput = class(TfrmBaseInput) TfrmCustInput = class(TfrmBaseInput)
@ -88,6 +104,10 @@ type
AMOUNTOWED: TcxTextEdit; AMOUNTOWED: TcxTextEdit;
area: TcxMRUEdit; area: TcxMRUEdit;
TV2Column3: TcxGridDBColumn; TV2Column3: TcxGridDBColumn;
Label14: TLabel;
Label15: TLabel;
MoreFlag: TcxComboBox;
SealFlag: TcxComboBox;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

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

@ -3,13 +3,14 @@ inherited frmCustomer: TfrmCustomer
Top = 169 Top = 169
Caption = #23458#25143#36164#26009#31649#29702 Caption = #23458#25143#36164#26009#31649#29702
ClientHeight = 537 ClientHeight = 537
ClientWidth = 1583 ClientWidth = 1540
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1599 ExplicitLeft = -381
ExplicitWidth = 1556
ExplicitHeight = 576 ExplicitHeight = 576
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -17,7 +18,7 @@ inherited frmCustomer: TfrmCustomer
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1583 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -31,7 +32,6 @@ inherited frmCustomer: TfrmCustomer
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 5 TabOrder = 5
ExplicitWidth = 1167
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -132,7 +132,7 @@ inherited frmCustomer: TfrmCustomer
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1583 Width = 1540
Height = 62 Height = 62
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -140,7 +140,6 @@ inherited frmCustomer: TfrmCustomer
ParentBackground = False ParentBackground = False
ParentColor = True ParentColor = True
TabOrder = 6 TabOrder = 6
ExplicitWidth = 1167
object Label3: TLabel object Label3: TLabel
Left = 182 Left = 182
Top = 20 Top = 20
@ -225,12 +224,11 @@ inherited frmCustomer: TfrmCustomer
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 120 Top = 120
Width = 1583 Width = 1540
Height = 214 Height = 214
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1167
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -387,6 +385,20 @@ inherited frmCustomer: TfrmCustomer
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
end 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 end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -395,20 +407,18 @@ inherited frmCustomer: TfrmCustomer
object Panel2: TPanel [3] object Panel2: TPanel [3]
Left = 0 Left = 0
Top = 334 Top = 334
Width = 1583 Width = 1540
Height = 203 Height = 203
Align = alBottom Align = alBottom
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 3 TabOrder = 3
ExplicitWidth = 1167
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1014 Width = 971
Height = 201 Height = 201
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitWidth = 598
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -518,13 +528,12 @@ inherited frmCustomer: TfrmCustomer
end end
end end
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 1015 Left = 972
Top = 1 Top = 1
Width = 567 Width = 567
Height = 201 Height = 201
Align = alRight Align = alRight
TabOrder = 1 TabOrder = 1
ExplicitLeft = 599
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -565,7 +574,7 @@ inherited frmCustomer: TfrmCustomer
object cxTabControl1: TcxTabControl [4] object cxTabControl1: TcxTabControl [4]
Left = 0 Left = 0
Top = 92 Top = 92
Width = 1583 Width = 1540
Height = 28 Height = 28
Align = alTop Align = alTop
TabOrder = 4 TabOrder = 4
@ -578,7 +587,6 @@ inherited frmCustomer: TfrmCustomer
#20840#37096) #20840#37096)
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitWidth = 1167
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end 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.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async,
FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer,
dxScrollbarAnnotations, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, 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 type
TfrmCustomer = class(TfrmBaseList) TfrmCustomer = class(TfrmBaseList)
@ -98,6 +114,8 @@ type
cxGridLevel3: TcxGridLevel; cxGridLevel3: TcxGridLevel;
Tv2Column2: TcxGridDBColumn; Tv2Column2: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn; Tv2Column3: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

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

@ -8,6 +8,10 @@ inherited DataLink_Company: TDataLink_Company
Top = 105 Top = 105
end end
inherited cxEditStyleController1: TcxEditStyleController inherited cxEditStyleController1: TcxEditStyleController
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
Left = 131 Left = 131
Top = 113 Top = 113
PixelsPerInch = 96 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 type
TMyThread = class(TThread) TMyThread = class(TThread)

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

@ -7,8 +7,8 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
ExplicitWidth = 1161 ExplicitWidth = 1169
ExplicitHeight = 624 ExplicitHeight = 632
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -133,6 +133,8 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Align = alClient Align = alClient
PopupMenu = PopupMenu2 PopupMenu = PopupMenu2
TabOrder = 0 TabOrder = 0
ExplicitLeft = 2
ExplicitTop = 5
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
@ -247,6 +249,13 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 98 Width = 98
end end
object Tv1Column9: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'FtyPCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
@ -345,6 +354,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Ctl3D = False Ctl3D = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 3 TabOrder = 3
ExplicitTop = 36
object Label3: TLabel object Label3: TLabel
Left = 377 Left = 377
Top = 11 Top = 11

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

@ -84,6 +84,7 @@ type
DS_RCPM: TDataSource; DS_RCPM: TDataSource;
ADO_RCPM: TADOQuery; ADO_RCPM: TADOQuery;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column9: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);

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

@ -3,21 +3,21 @@ inherited frmItemizedListList: TfrmItemizedListList
Top = 13 Top = 13
Caption = #30721#21333#30331#35760 Caption = #30721#21333#30331#35760
ClientHeight = 736 ClientHeight = 736
ClientWidth = 1719 ClientWidth = 1540
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1727 ExplicitWidth = 1556
ExplicitHeight = 767 ExplicitHeight = 775
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1719 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -127,7 +127,7 @@ inherited frmItemizedListList: TfrmItemizedListList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1719 Width = 1540
Height = 91 Height = 91
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -167,7 +167,7 @@ inherited frmItemizedListList: TfrmItemizedListList
inline frmFrameDateSel1: TfrmFrameDateSel inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1715 Width = 1536
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite Color = clWhite
@ -176,7 +176,7 @@ inherited frmItemizedListList: TfrmItemizedListList
TabOrder = 2 TabOrder = 2
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1715 ExplicitWidth = 1536
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16
@ -189,7 +189,7 @@ inherited frmItemizedListList: TfrmItemizedListList
object cxTabControl1: TcxTabControl [2] object cxTabControl1: TcxTabControl [2]
Left = 0 Left = 0
Top = 121 Top = 121
Width = 1719 Width = 1540
Height = 31 Height = 31
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -202,7 +202,7 @@ inherited frmItemizedListList: TfrmItemizedListList
' '#20840#37096' ') ' '#20840#37096' ')
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 31 ClientRectBottom = 31
ClientRectRight = 1719 ClientRectRight = 1540
ClientRectTop = 28 ClientRectTop = 28
end end
inherited loadProcess: TPanel inherited loadProcess: TPanel
@ -223,7 +223,7 @@ inherited frmItemizedListList: TfrmItemizedListList
object cxGrid1: TcxGrid [5] object cxGrid1: TcxGrid [5]
Left = 0 Left = 0
Top = 152 Top = 152
Width = 1719 Width = 1540
Height = 584 Height = 584
Align = alClient Align = alClient
TabOrder = 5 TabOrder = 5
@ -389,6 +389,13 @@ inherited frmItemizedListList: TfrmItemizedListList
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end end
object TV1Column15: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'FtyPCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 73
end
object VC_PRTPs: TcxGridDBColumn object VC_PRTPs: TcxGridDBColumn
Caption = #21305#25968 Caption = #21305#25968
DataBinding.FieldName = 'TISPiece' DataBinding.FieldName = 'TISPiece'

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

@ -84,6 +84,7 @@ type
TV1Column12: TcxGridDBColumn; TV1Column12: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn; TV1Column13: TcxGridDBColumn;
TV1Column14: TcxGridDBColumn; TV1Column14: TcxGridDBColumn;
TV1Column15: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);