Group_DJD/D7DJfhshengxing
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

加一个指示单号 过滤条件，匹数汇总注脚加下

Browse Source
This commit is contained in:
libingpeng 2025-11-12 15:46:04 +08:00
parent 975cd55162
commit e07d994b64
2 changed files with 34 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
应收应付(YSYF.dll)/U_YSMXlist.dfm
View File

@ -1,7 +1,7 @@
object frmYSMXlist: TfrmYSMXlist object frmYSMXlist: TfrmYSMXlist
Left = 173 Left = 196
Top = 272 Top = 169
Width = 1341 Width = 1314
Height = 559 Height = 559
Caption = #24212#25910#23545#36134#20449#24687#34920 Caption = #24212#25910#23545#36134#20449#24687#34920
Color = clBtnFace Color = clBtnFace
@ -21,7 +21,7 @@ object frmYSMXlist: TfrmYSMXlist
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1325 Width = 1306
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -78,7 +78,7 @@ object frmYSMXlist: TfrmYSMXlist
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1325 Width = 1306
Height = 38 Height = 38
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -127,6 +127,13 @@ object frmYSMXlist: TfrmYSMXlist
Height = 12 Height = 12
Caption = #23458#25143 Caption = #23458#25143
end end
object Label7: TLabel
Left = 500
Top = 14
Width = 48
Height = 12
Caption = #25351#31034#21333#21495
end
object MPRTCodeName: TEdit object MPRTCodeName: TEdit
Tag = 2 Tag = 2
Left = 726 Left = 726
@ -186,7 +193,7 @@ object frmYSMXlist: TfrmYSMXlist
end end
object factoryName: TEdit object factoryName: TEdit
Tag = 2 Tag = 2
Left = 364 Left = 356
Top = 9 Top = 9
Width = 120 Width = 120
Height = 20 Height = 20
@ -194,13 +201,23 @@ object frmYSMXlist: TfrmYSMXlist
OnChange = MPRTCodeNameChange OnChange = MPRTCodeNameChange
OnKeyPress = factoryNameKeyPress OnKeyPress = factoryNameKeyPress
end end
object Edit1: TEdit
Tag = 2
Left = 556
Top = 9
Width = 120
Height = 20
TabOrder = 6
OnChange = MPRTCodeNameChange
OnKeyPress = factoryNameKeyPress
end
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 69 Top = 69
Width = 1325 Width = 1306
Height = 444 Height = 459
Align = alTop Align = alClient
TabOrder = 2 TabOrder = 2
object TV1: TcxGridDBBandedTableView object TV1: TcxGridDBBandedTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -228,6 +245,10 @@ object frmYSMXlist: TfrmYSMXlist
end end
item item
Kind = skSum Kind = skSum
end
item
Kind = skSum
Column = TV1Column1
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -415,8 +436,8 @@ object frmYSMXlist: TfrmYSMXlist
end end
end end
object Panetime: TPanel object Panetime: TPanel
Left = 318 Left = 286
Top = 164 Top = 244
Width = 185 Width = 185
Height = 41 Height = 41
BevelInner = bvRaised BevelInner = bvRaised

2
应收应付(YSYF.dll)/U_YSMXlist.pas
View File

@ -83,6 +83,8 @@ type
V1Column23: TcxGridDBBandedColumn; V1Column23: TcxGridDBBandedColumn;
TV1Column1: TcxGridDBBandedColumn; TV1Column1: TcxGridDBBandedColumn;
TV1Column3: TcxGridDBBandedColumn; TV1Column3: TcxGridDBBandedColumn;
Label7: TLabel;
Edit1: TEdit;
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);