~

复合检验管理/TradeManage.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\徐加艳项目代码\项目代码\国坤\复合检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJguokun\复合检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

复合检验管理/U_JYOrderCDOne.dfm

@@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
     Left = 0
     Top = 0
     Width = 1384
-    Height = 62
+    Height = 92
     AutoSize = True
     ButtonHeight = 30
     ButtonWidth = 119
@@ -101,27 +101,28 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       Top = 0
       Caption = #25209#37327#20462#25913#32568#21495
       ImageIndex = 54
+      Wrap = True
       OnClick = ToolButton11Click
     end
     object TBDW: TToolButton
-      Left = 608
+      Left = 0
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #20462#25913#25968#37327#21333#20301
       ImageIndex = 54
       OnClick = TBDWClick
     end
     object ToolButton4: TToolButton
-      Left = 719
+      Left = 111
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25209#37327#35843#25972#31859#25968
       ImageIndex = 54
       OnClick = ToolButton4Click
     end
     object ToolButton13: TToolButton
-      Left = 830
+      Left = 222
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25209#37327#20928#37325#36716#38271#24230
       ImageIndex = 54
@@ -129,23 +130,22 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton13Click
     end
     object ToolButton8: TToolButton
-      Left = 953
+      Left = 345
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25209#37327#20462#25913#30382#37325
       ImageIndex = 54
       OnClick = ToolButton8Click
     end
     object ToolButton14: TToolButton
-      Left = 1064
+      Left = 456
-      Top = 0
+      Top = 30
       Caption = #25209#37327#20462#25913#31995#25968
       ImageIndex = 54
-      Wrap = True
       OnClick = ToolButton14Click
     end
     object ToolButton1: TToolButton
-      Left = 0
+      Left = 575
       Top = 30
       AutoSize = True
       Caption = #25171#21360#26631#31614
@@ -153,7 +153,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton1Click
     end
     object TCPDB: TToolButton
-      Left = 87
+      Left = 662
       Top = 30
       AutoSize = True
       Caption = #25104#21697#25171#21253
@@ -162,33 +162,34 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = TCPDBClick
     end
     object ToolButton3: TToolButton
-      Left = 174
+      Left = 749
       Top = 30
       AutoSize = True
       Caption = #25171#21360#21253#26631#31614
       ImageIndex = 12
+      Wrap = True
       Visible = False
       OnClick = ToolButton3Click
     end
     object ToolButton2: TToolButton
-      Left = 273
+      Left = 0
-      Top = 30
+      Top = 60
       AutoSize = True
       Caption = #25171#21360#26816#39564#25253#21578
       ImageIndex = 12
       OnClick = ToolButton2Click
     end
     object ToolButton5: TToolButton
-      Left = 384
+      Left = 111
-      Top = 30
+      Top = 60
       AutoSize = True
       Caption = #25171#21360
       ImageIndex = 12
       OnClick = ToolButton5Click
     end
     object Edit3: TEdit
-      Left = 447
+      Left = 174
-      Top = 30
+      Top = 60
       Width = 68
       Height = 30
       Font.Charset = GB2312_CHARSET
@@ -202,8 +203,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnKeyPress = Edit3KeyPress
     end
     object ComboBox1: TComboBox
-      Left = 515
+      Left = 242
-      Top = 33
+      Top = 63
       Width = 149
       Height = 24
       Style = csDropDownList
@@ -227,8 +228,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
         #26816#39564#30721#21333)
     end
     object Edit4: TEdit
-      Left = 664
+      Left = 391
-      Top = 30
+      Top = 60
       Width = 121
       Height = 30
       Font.Charset = GB2312_CHARSET
@@ -241,32 +242,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       Visible = False
     end
     object ToolButton12: TToolButton
-      Left = 785
+      Left = 512
-      Top = 30
+      Top = 60
       Caption = #20462#25913#30721#21333
       ImageIndex = 54
       Visible = False
       OnClick = ToolButton12Click
     end
     object ToolButton9: TToolButton
-      Left = 904
+      Left = 631
-      Top = 30
+      Top = 60
       AutoSize = True
       Caption = #24322#24120#25968#25454
       ImageIndex = 2
       OnClick = ToolButton9Click
     end
     object TBExport: TToolButton
-      Left = 991
+      Left = 718
-      Top = 30
+      Top = 60
       AutoSize = True
       Caption = #23548#20986
       ImageIndex = 75
       OnClick = TBExportClick
     end
     object TBClose: TToolButton
-      Left = 1054
+      Left = 781
-      Top = 30
+      Top = 60
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 55
@@ -275,7 +276,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   end
   object Panel1: TPanel
     Left = 0
-    Top = 62
+    Top = 92
     Width = 1384
     Height = 88
     Align = alTop
@@ -821,9 +822,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   end
   object cxGrid1: TcxGrid
     Left = 0
-    Top = 150
+    Top = 180
     Width = 1384
-    Height = 568
+    Height = 538
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 3

复合检验管理/U_JYOrderCDOne.pas

@@ -1623,7 +1623,7 @@ begin
     end;
   end;
 
-  if (trim(ComboBox1.Text) = '쇱駱쯤데') then
+  if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '玖쯤데') then
   begin
     with ADOQueryTemp do
     begin
@@ -1673,7 +1673,7 @@ begin
       Open;
     end;
   end;
-  if (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻)') then
+  if (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻)') or (trim(ComboBox1.Text) = '箇새데') then
   begin
     with ADOQueryTemp do
     begin