diff --git a/检验管理/U_JYOrderCDOne.dfm b/检验管理/U_JYOrderCDOne.dfm index 1d9e014..9e3a161 100644 --- a/检验管理/U_JYOrderCDOne.dfm +++ b/检验管理/U_JYOrderCDOne.dfm @@ -186,7 +186,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne #22806#38144#30721#21333 #26816#39564#30721#21333'('#19977#32852#65289 #26816#39564#30721#21333'('#19977#32852#32454#30721')' - #26816#39564#30721#21333'('#19977#32852#31859')') + #26816#39564#30721#21333'('#19977#32852#31859')' + #22806#38144#30721#21333'2') end object TBAftChkHX: TToolButton Left = 596 diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas index 734e2f7..271d309 100644 --- a/检验管理/U_JYOrderCDOne.pas +++ b/检验管理/U_JYOrderCDOne.pas @@ -1559,7 +1559,7 @@ begin // SCreateCDS20(ADOQueryTemp, CDS_PRT); // SInitCDSData20(ADOQueryTemp, CDS_PRT); end; - if (trim(ComboBox1.Text) = '뵥2') then + if (trim(ComboBox1.Text) = '뵥2') then begin with ADOQueryTemp do begin diff --git a/检验管理/U_OrderInPut.pas b/检验管理/U_OrderInPut.pas index 3acc634..d622786 100644 --- a/检验管理/U_OrderInPut.pas +++ b/检验管理/U_OrderInPut.pas @@ -913,12 +913,12 @@ begin begin Close; sql.Clear; - sql.Add('select * from Contract_Cloth_LLMX where OrdSubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + ''''); + sql.Add('select * from WFB_MJJY where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + ''''); Open; end; if ADOTemp.IsEmpty = False then begin - Application.MessageBox('ϲɾ!', 'ʾ', 0); + Application.MessageBox('Ѵɾ!', 'ʾ', 0); Exit; end; with ADOTemp do