From 2a930bc9b2e5eefa86b45a569590695317f25e6e Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Sat, 27 Sep 2025 10:53:32 +0800
Subject: [PATCH] =?UTF-8?q?=E5=8A=A0=E4=B8=80=E4=BB=BD=E7=A0=81=E5=8D=95?=
 =?UTF-8?q?=E6=A0=BC=E5=BC=8F=20=E6=8C=87=E7=A4=BA=E5=8D=95=E9=87=8C?=
 =?UTF-8?q?=E9=9D=A2=E7=9A=84=20=E7=A9=BA=E5=B7=AE=20=E5=AD=97=E6=AE=B5?=
 =?UTF-8?q?=E8=A6=81=E6=98=BE=E7=A4=BA=E5=9C=A8=E7=A0=81=E5=8D=95=E9=87=8C?=
 =?UTF-8?q?=E9=9D=A2?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 打卷检验管理/U_JYOrderCDOne.pas | 2 +-
 打卷检验管理/U_OrderInPut.dfm   | 8 ++++----
 打卷检验管理/U_OrderInPut.pas   | 6 ++++++
 3 files changed, 11 insertions(+), 5 deletions(-)

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.