Group_99/D7lmSanshui
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-04-28 09:43:52 +08:00
parent 917d603e9e
commit 457d5137c0
2 changed files with 61 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
应收应付/U_YSMXlist.dfm
View File

@ -21,7 +21,7 @@ object frmYSMXlist: TfrmYSMXlist
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1566 Width = 1558
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -79,7 +79,7 @@ object frmYSMXlist: TfrmYSMXlist
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1566 Width = 1558
Height = 38 Height = 38
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -227,8 +227,8 @@ object frmYSMXlist: TfrmYSMXlist
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 91 Top = 91
Width = 1566 Width = 1558
Height = 492 Height = 484
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object TV1: TcxGridDBBandedTableView object TV1: TcxGridDBBandedTableView
@ -312,7 +312,7 @@ object frmYSMXlist: TfrmYSMXlist
Width = 48 Width = 48
OnCompareRowValuesForCellMerging = V1Column9CompareRowValuesForCellMerging OnCompareRowValuesForCellMerging = V1Column9CompareRowValuesForCellMerging
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 4 Position.ColIndex = 8
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column4: TcxGridDBBandedColumn object V1Column4: TcxGridDBBandedColumn
@ -321,7 +321,7 @@ object frmYSMXlist: TfrmYSMXlist
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 42 Width = 42
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 6 Position.ColIndex = 10
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column5: TcxGridDBBandedColumn object V1Column5: TcxGridDBBandedColumn
@ -330,7 +330,7 @@ object frmYSMXlist: TfrmYSMXlist
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 43 Width = 43
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 7 Position.ColIndex = 11
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column6: TcxGridDBBandedColumn object V1Column6: TcxGridDBBandedColumn
@ -339,7 +339,7 @@ object frmYSMXlist: TfrmYSMXlist
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 41 Width = 41
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 8 Position.ColIndex = 12
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column7: TcxGridDBBandedColumn object V1Column7: TcxGridDBBandedColumn
@ -348,7 +348,7 @@ object frmYSMXlist: TfrmYSMXlist
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 44 Width = 44
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 11 Position.ColIndex = 15
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column8: TcxGridDBBandedColumn object V1Column8: TcxGridDBBandedColumn
@ -357,7 +357,7 @@ object frmYSMXlist: TfrmYSMXlist
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 43 Width = 43
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 12 Position.ColIndex = 16
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column9: TcxGridDBBandedColumn object V1Column9: TcxGridDBBandedColumn
@ -397,7 +397,7 @@ object frmYSMXlist: TfrmYSMXlist
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 55 Width = 55
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 3 Position.ColIndex = 7
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column10: TcxGridDBBandedColumn object V1Column10: TcxGridDBBandedColumn
@ -448,7 +448,7 @@ object frmYSMXlist: TfrmYSMXlist
Options.Editing = False Options.Editing = False
Width = 47 Width = 47
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 5 Position.ColIndex = 9
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column17: TcxGridDBBandedColumn object V1Column17: TcxGridDBBandedColumn
@ -458,7 +458,7 @@ object frmYSMXlist: TfrmYSMXlist
Options.Editing = False Options.Editing = False
Width = 63 Width = 63
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 13 Position.ColIndex = 17
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column18: TcxGridDBBandedColumn object V1Column18: TcxGridDBBandedColumn
@ -467,7 +467,7 @@ object frmYSMXlist: TfrmYSMXlist
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 34 Width = 34
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 10 Position.ColIndex = 14
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column19: TcxGridDBBandedColumn object V1Column19: TcxGridDBBandedColumn
@ -477,7 +477,7 @@ object frmYSMXlist: TfrmYSMXlist
Options.Editing = False Options.Editing = False
Width = 54 Width = 54
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 14 Position.ColIndex = 18
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column20: TcxGridDBBandedColumn object V1Column20: TcxGridDBBandedColumn
@ -487,7 +487,7 @@ object frmYSMXlist: TfrmYSMXlist
Options.Editing = False Options.Editing = False
Width = 51 Width = 51
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 15 Position.ColIndex = 19
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column21: TcxGridDBBandedColumn object V1Column21: TcxGridDBBandedColumn
@ -520,7 +520,7 @@ object frmYSMXlist: TfrmYSMXlist
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 48 Width = 48
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 9 Position.ColIndex = 13
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column25: TcxGridDBBandedColumn object V1Column25: TcxGridDBBandedColumn
@ -530,7 +530,7 @@ object frmYSMXlist: TfrmYSMXlist
Options.Editing = False Options.Editing = False
Width = 50 Width = 50
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 16 Position.ColIndex = 20
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column1: TcxGridDBBandedColumn object TV1Column1: TcxGridDBBandedColumn
@ -540,7 +540,7 @@ object frmYSMXlist: TfrmYSMXlist
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 17 Position.ColIndex = 21
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column2: TcxGridDBBandedColumn object TV1Column2: TcxGridDBBandedColumn
@ -550,7 +550,7 @@ object frmYSMXlist: TfrmYSMXlist
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 18 Position.ColIndex = 22
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column3: TcxGridDBBandedColumn object TV1Column3: TcxGridDBBandedColumn
@ -560,7 +560,7 @@ object frmYSMXlist: TfrmYSMXlist
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 19 Position.ColIndex = 23
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column4: TcxGridDBBandedColumn object TV1Column4: TcxGridDBBandedColumn
@ -581,6 +581,38 @@ object frmYSMXlist: TfrmYSMXlist
Position.ColIndex = 1 Position.ColIndex = 1
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column6: TcxGridDBBandedColumn
DataBinding.FieldName = 'SJYmoney'
Visible = False
Width = 20
Position.BandIndex = 0
Position.ColIndex = 6
Position.RowIndex = 0
end
object TV1Column7: TcxGridDBBandedColumn
DataBinding.FieldName = 'BYSmoney'
Visible = False
Width = 20
Position.BandIndex = 0
Position.ColIndex = 5
Position.RowIndex = 0
end
object TV1Column8: TcxGridDBBandedColumn
DataBinding.FieldName = 'BSKmoney'
Visible = False
Width = 20
Position.BandIndex = 0
Position.ColIndex = 4
Position.RowIndex = 0
end
object TV1Column9: TcxGridDBBandedColumn
DataBinding.FieldName = 'BJYmoney'
Visible = False
Width = 20
Position.BandIndex = 0
Position.ColIndex = 3
Position.RowIndex = 0
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV1 GridView = TV1
@ -606,7 +638,7 @@ object frmYSMXlist: TfrmYSMXlist
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 69 Top = 69
Width = 1566 Width = 1558
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -618,7 +650,7 @@ object frmYSMXlist: TfrmYSMXlist
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1566 ClientRectRight = 1558
ClientRectTop = 19 ClientRectTop = 19
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery

8
应收应付/U_YSMXlist.pas
View File

@ -100,6 +100,10 @@ type
TV1Column3: TcxGridDBBandedColumn; TV1Column3: TcxGridDBBandedColumn;
TV1Column4: TcxGridDBBandedColumn; TV1Column4: TcxGridDBBandedColumn;
TV1Column5: TcxGridDBBandedColumn; TV1Column5: TcxGridDBBandedColumn;
TV1Column6: TcxGridDBBandedColumn;
TV1Column7: TcxGridDBBandedColumn;
TV1Column8: TcxGridDBBandedColumn;
TV1Column9: TcxGridDBBandedColumn;
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);
@ -154,11 +158,11 @@ begin
Panetime.top := (Height - Panetime.Height - 200) div 2; Panetime.top := (Height - Panetime.Height - 200) div 2;
application.ProcessMessages; application.ProcessMessages;
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
Filtered := False; Filtered := False;
sql.Add(' exec P_YSSK_List_mx '); sql.Add(' exec P_YSSK_List_mx ');
sql.Add(' @begdate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime)))); sql.Add(' @begdate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))));