diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index 5ddd89a..9ef3366 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -1557,7 +1557,7 @@ begin Open; end; end; - if (trim(ComboBox1.Text) = '뵥()') then + if (trim(ComboBox1.Text) = '뵥()') or (trim(ComboBox1.Text) = '뵥(ռ)') then begin with ADOQueryTemp do begin diff --git a/打卷检验管理/U_OrderInPut.dfm b/打卷检验管理/U_OrderInPut.dfm index aaebc7a..4262319 100644 --- a/打卷检验管理/U_OrderInPut.dfm +++ b/打卷检验管理/U_OrderInPut.dfm @@ -1,6 +1,6 @@ object frmOrderInPut: TfrmOrderInPut - Left = 393 - Top = 409 + Left = 363 + Top = 395 Width = 1379 Height = 761 Caption = #25351#31034#21333#24405#20837 @@ -1889,8 +1889,8 @@ object frmOrderInPut: TfrmOrderInPut end end object cxGrid4: TcxGrid - Left = 484 - Top = 256 + Left = 780 + Top = 224 Width = 237 Height = 321 TabOrder = 4 diff --git a/打卷检验管理/U_OrderInPut.pas b/打卷检验管理/U_OrderInPut.pas index 67d356f..9837528 100644 --- a/打卷检验管理/U_OrderInPut.pas +++ b/打卷检验管理/U_OrderInPut.pas @@ -239,6 +239,7 @@ type procedure v1PRTCodeNamePropertiesChange(Sender: TObject); procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char); procedure v1PRTColorPropertiesChange(Sender: TObject); + //procedure ConNoChange(Sender: TObject); private procedure InitData(); @@ -253,6 +254,7 @@ type function getOrderNo(fconNo: string): string; procedure InitDataSetDictionary(); function SelfConnData(): Boolean; + { Private declarations } public PState, CopyInt, PriceFlag: Integer; @@ -1924,11 +1926,13 @@ begin end; SCreateCDS20(ADOQueryTmp, CDS_Con); SInitCDSData20(ADOQueryTmp, CDS_CON); + if CDS_Con.IsEmpty then cxGrid4.Visible := False else cxGrid4.Visible := True; + end; procedure TfrmOrderInPut.CustomerNoNameKeyPress(Sender: TObject; var Key: Char); @@ -1966,5 +1970,7 @@ begin cxGrid4.Visible := True; end; + + end.