diff --git a/检验管理/U_GetDllForm.pas b/检验管理/U_GetDllForm.pas index 0c690c1..97150b6 100644 --- a/检验管理/U_GetDllForm.pas +++ b/检验管理/U_GetDllForm.pas @@ -112,7 +112,7 @@ begin ///////////////////// //ģ鴰 case FormID of - 211: //뵥 + 211: //뵥 begin if frmmddrxx = nil then begin diff --git a/检验管理/U_JYOrderCDOne.dfm b/检验管理/U_JYOrderCDOne.dfm index b89f6ce..eab5367 100644 --- a/检验管理/U_JYOrderCDOne.dfm +++ b/检验管理/U_JYOrderCDOne.dfm @@ -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 diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas index fc4f131..a069167 100644 --- a/检验管理/U_JYOrderCDOne.pas +++ b/检验管理/U_JYOrderCDOne.pas @@ -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); diff --git a/检验管理/U_MDdrXx.dfm b/检验管理/U_MDdrXx.dfm index f9c7218..ea32694 100644 --- a/检验管理/U_MDdrXx.dfm +++ b/检验管理/U_MDdrXx.dfm @@ -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 diff --git a/检验管理/U_MDdrXx.pas b/检验管理/U_MDdrXx.pas index fcae9e3..be439f1 100644 --- a/检验管理/U_MDdrXx.pas +++ b/检验管理/U_MDdrXx.pas @@ -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);