Group_99/D7szChenfeng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

在应收对账单中，收款里，加一栏，收款方式

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-17 09:51:23 +08:00
parent 3478eea812
commit 12a784d36a
2 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
应收应付/U_YSMXlist.dfm
View File

@ -1,6 +1,6 @@
object frmYSMXlist: TfrmYSMXlist object frmYSMXlist: TfrmYSMXlist
Left = 277 Left = 423
Top = 638 Top = 608
Width = 1205 Width = 1205
Height = 614 Height = 614
Caption = #24212#25910#23545#36134#20449#24687#34920 Caption = #24212#25910#23545#36134#20449#24687#34920
@ -278,7 +278,7 @@ object frmYSMXlist: TfrmYSMXlist
item item
Caption = #25910#27454 Caption = #25910#27454
Styles.Header = cxStyle2 Styles.Header = cxStyle2
Width = 160 Width = 314
end end
item item
Caption = #24320#31080 Caption = #24320#31080
@ -402,7 +402,7 @@ object frmYSMXlist: TfrmYSMXlist
Width = 75 Width = 75
OnCompareRowValuesForCellMerging = V1Column9CompareRowValuesForCellMerging OnCompareRowValuesForCellMerging = V1Column9CompareRowValuesForCellMerging
Position.BandIndex = 2 Position.BandIndex = 2
Position.ColIndex = 1 Position.ColIndex = 2
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column15: TcxGridDBBandedColumn object V1Column15: TcxGridDBBandedColumn
@ -605,6 +605,19 @@ object frmYSMXlist: TfrmYSMXlist
Position.ColIndex = 1 Position.ColIndex = 1
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column3: TcxGridDBBandedColumn
Caption = #25910#27454#26041#24335
DataBinding.FieldName = 'PayMent'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle2
Styles.Header = cxStyle2
Width = 70
Position.BandIndex = 2
Position.ColIndex = 1
Position.RowIndex = 0
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV1 GridView = TV1

3
应收应付/U_YSMXlist.pas
View File

@ -95,6 +95,7 @@ type
cxStyle2: TcxStyle; cxStyle2: TcxStyle;
TV1Column1: TcxGridDBBandedColumn; TV1Column1: TcxGridDBBandedColumn;
TV1Column2: TcxGridDBBandedColumn; TV1Column2: TcxGridDBBandedColumn;
TV1Column3: 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);
@ -169,7 +170,7 @@ begin
end; end;
sql.Add(',@YFGSType='''' '); sql.Add(',@YFGSType='''' ');
sql.Add(',@ISHS=' + quotedstr(Trim(ISHS.Text))); sql.Add(',@ISHS=' + quotedstr(Trim(ISHS.Text)));
// ShowMessage(sql.Text); //ShowMessage(sql.Text);
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain, CDS_HZ); SCreateCDS20(ADOQueryMain, CDS_HZ);