~

应收应付/U_YSMXlist.dfm

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

应收应付/U_YSMXlist.pas

@@ -100,6 +100,10 @@ type
     TV1Column3: TcxGridDBBandedColumn;
     TV1Column4: TcxGridDBBandedColumn;
     TV1Column5: TcxGridDBBandedColumn;
+    TV1Column6: TcxGridDBBandedColumn;
+    TV1Column7: TcxGridDBBandedColumn;
+    TV1Column8: TcxGridDBBandedColumn;
+    TV1Column9: TcxGridDBBandedColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -154,11 +158,11 @@ begin
   Panetime.top := (Height - Panetime.Height - 200) div 2;
   application.ProcessMessages;
   try
-    ADOQueryMain.DisableControls;
+    ADOQueryMain.DisableControls;                    
     with ADOQueryMain do
     begin
       Close;
-      SQL.Clear;
+      SQL.Clear;                                          
       Filtered := False;
       sql.Add(' exec  P_YSSK_List_mx  ');
       sql.Add(' @begdate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))));