Group_01/D7DJguanghui
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-15 15:53:31 +08:00
parent f7975258a5
commit d4ae257c00
5 changed files with 45 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
检验管理/U_JYOrderCDOne.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 296
Top = 178
Left = 151
Top = 186
Width = 1400
Height = 741
Caption = #26816#39564#25253#21578
@ -1150,6 +1150,18 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column10: TcxGridDBColumn
Caption = #23548#20837#23458#25143
DataBinding.FieldName = 'DRKH'
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column11: TcxGridDBColumn
Caption = #23548#20837#21697#21517
DataBinding.FieldName = 'DRname'
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

2
检验管理/U_JYOrderCDOne.pas
View File

@ -249,6 +249,8 @@ type
ToolButton15: TToolButton;
Label42: TLabel;
TZZD: TComboBox;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);

24
检验管理/U_MDdrXx.dfm
View File

@ -293,6 +293,30 @@ object frmmddrxx: Tfrmmddrxx
Caption = #23548#20837#25104#20998
DataBinding.FieldName = 'DRcf'
end
object Tv1Column10: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'MJFK'
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column11: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'MJSJKZ'
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column12: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'DRname'
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column13: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'DRKH'
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

4
检验管理/U_MDdrXx.pas
View File

@ -82,6 +82,10 @@ type
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
procedure ToolButton3Click(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure FormShow(Sender: TObject);