检验信息管理加一个克重的筛选，新建指示单增行颜色和匹数带下来，指示单颜色绑定客户手动输入模糊搜索保存的数据，坯布名称手动输入模糊查询保存的数据，新建指示单客户，合同号，纸管，空差需要回车到下一个

2025-09-20 14:17:01 +08:00 · 2025-09-20 14:17:01 +08:00 · c34a9975c1
commit c34a9975c1
parent aa81285e79
11 changed files with 334 additions and 165 deletions
--- a/打卷检验管理/ProjectGroup1.bpg
+++ b/打卷检验管理/ProjectGroup1.bpg
@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
 DCC = $(ROOT)\bin\dcc32.exe $**
 BRCC = $(ROOT)\bin\brcc32.exe $**
 #------------------------------------------------------------------------------
-PROJECTS = testDll.exe ProductPrice.dll
+PROJECTS = FinishedClothWarehouse.dll testDll.exe
 #------------------------------------------------------------------------------
 default: $(PROJECTS)
 #------------------------------------------------------------------------------

-testDll.exe: testDll.dpr
+FinishedClothWarehouse.dll: ..\..\..\..\项目代码\D7szYidui\成品仓库(FinishedClothWarehouse.dll)\FinishedClothWarehouse.dpr
  $(DCC)

-ProductPrice.dll: ProductPrice.dpr
+testDll.exe: ..\..\..\..\项目代码\D7szYidui\成品仓库(FinishedClothWarehouse.dll)\testDll.dpr
  $(DCC)


--- a/打卷检验管理/ProjectGroup1.~bpg
+++ b/打卷检验管理/ProjectGroup1.~bpg
@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = TradeManage.dll testDll.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+TradeManage.dll: TradeManage.dpr
+  $(DCC)
+
+testDll.exe: testDll.dpr
+  $(DCC)
+
+
--- a/打卷检验管理/TradeManage.dof
+++ b/打卷检验管理/TradeManage.dof
@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
 Comments=
 [Excluded Packages]
 c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
-[HistoryLists\hlUnitAliases]
-Count=1
-Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
--- a/打卷检验管理/TradeManage.skincfg
+++ b/打卷检验管理/TradeManage.skincfg
@ -0,0 +1,50 @@
+[ExpressSkins]
+Default=1
+ShowNotifications=1
+Enabled=0
+dxSkinBlack=1
+dxSkinBlue=1
+dxSkinBlueprint=1
+dxSkinCaramel=1
+dxSkinCoffee=1
+dxSkinDarkRoom=1
+dxSkinDarkSide=1
+dxSkinDevExpressDarkStyle=1
+dxSkinDevExpressStyle=1
+dxSkinFoggy=1
+dxSkinGlassOceans=1
+dxSkinHighContrast=1
+dxSkiniMaginary=1
+dxSkinLilian=1
+dxSkinLiquidSky=1
+dxSkinLondonLiquidSky=1
+dxSkinMcSkin=1
+dxSkinMetropolis=1
+dxSkinMetropolisDark=1
+dxSkinMoneyTwins=1
+dxSkinOffice2007Black=1
+dxSkinOffice2007Blue=1
+dxSkinOffice2007Green=1
+dxSkinOffice2007Pink=1
+dxSkinOffice2007Silver=1
+dxSkinOffice2010Black=1
+dxSkinOffice2010Blue=1
+dxSkinOffice2010Silver=1
+dxSkinOffice2013DarkGray=1
+dxSkinOffice2013LightGray=1
+dxSkinOffice2013White=1
+dxSkinPumpkin=1
+dxSkinSeven=1
+dxSkinSevenClassic=1
+dxSkinSharp=1
+dxSkinSharpPlus=1
+dxSkinSilver=1
+dxSkinSpringTime=1
+dxSkinStardust=1
+dxSkinSummer2008=1
+dxSkinTheAsphaltWorld=1
+dxSkinsDefaultPainters=1
+dxSkinValentine=1
+dxSkinVS2010=1
+dxSkinWhiteprint=1
+dxSkinXmas2008Blue=1
--- a/打卷检验管理/U_JYOrderCDOne.dfm
+++ b/打卷检验管理/U_JYOrderCDOne.dfm
@ -1,7 +1,7 @@
 object frmJYOrderCDOne: TfrmJYOrderCDOne
-  Left = 296
-  Top = 178
-  Width = 1400
+  Left = 292
+  Top = 527
+  Width = 1557
  Height = 757
  Caption = #26816#39564#25253#21578
  Color = clBtnFace
@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
-    Width = 1384
+    Width = 1549
    Height = 62
    AutoSize = True
    ButtonHeight = 30
@ -276,7 +276,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
  object Panel1: TPanel
    Left = 0
    Top = 62
-    Width = 1384
+    Width = 1549
    Height = 88
    Align = alTop
    BevelInner = bvRaised
@ -570,6 +570,19 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      Font.Style = [fsBold]
      ParentFont = False
    end
+    object Label38: TLabel
+      Left = 1221
+      Top = 14
+      Width = 26
+      Height = 12
+      Caption = #20811#37325
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
    object EndDate: TDateTimePicker
      Left = 84
      Top = 34
@ -656,7 +669,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      OnChange = PRTCodeNameChange
    end
    object RadioGroup1: TRadioGroup
-      Left = 1370
+      Left = 1450
      Top = -1
      Width = 89
      Height = 92
@ -799,8 +812,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
        '')
    end
    object CheckBox3: TCheckBox
-      Left = 1246
-      Top = 8
+      Left = 1342
+      Top = 15
      Width = 105
      Height = 57
      Caption = #31934#30830#25628#32034
@ -831,12 +844,21 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      TabOrder = 23
      OnChange = PRTCodeNameChange
    end
+    object MJSJKZ: TEdit
+      Tag = 2
+      Left = 1252
+      Top = 10
+      Width = 77
+      Height = 20
+      TabOrder = 24
+      OnChange = PRTCodeNameChange
+    end
  end
  object cxGrid1: TcxGrid
    Left = 0
    Top = 150
-    Width = 1384
-    Height = 568
+    Width = 1549
+    Height = 576
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 3
--- a/打卷检验管理/U_JYOrderCDOne.pas
+++ b/打卷检验管理/U_JYOrderCDOne.pas
@ -228,6 +228,8 @@ type
    CustomerNoName: TEdit;
    ToolButton14: TToolButton;
    ADOQueryMain: TADOQuery;
+    Label38: TLabel;
+    MJSJKZ: TEdit;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
--- a/打卷检验管理/U_OrderInPut.dfm
+++ b/打卷检验管理/U_OrderInPut.dfm
@ -1,6 +1,6 @@
 object frmOrderInPut: TfrmOrderInPut
-  Left = 284
-  Top = 185
+  Left = 393
+  Top = 409
  Width = 1379
  Height = 761
  Caption = #25351#31034#21333#24405#20837
@ -18,7 +18,7 @@ object frmOrderInPut: TfrmOrderInPut
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
-    Width = 1363
+    Width = 1371
    Height = 29
    ButtonHeight = 30
    ButtonWidth = 59
@ -66,7 +66,7 @@ object frmOrderInPut: TfrmOrderInPut
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 29
-    Width = 1363
+    Width = 1371
    Height = 280
    Align = alTop
    BevelInner = bvNone
@ -878,7 +878,7 @@ object frmOrderInPut: TfrmOrderInPut
      Top = 8
      Width = 100
      Height = 18
-      TabOrder = 1
+      TabOrder = 3
      OnKeyPress = ConNoKeyPress
    end
    object RanFactory: TBtnEditC
@ -905,7 +905,7 @@ object frmOrderInPut: TfrmOrderInPut
      Format = 'yyyy-MM-dd'
      Time = 40916.670856296290000000
      ShowCheckbox = True
-      TabOrder = 2
+      TabOrder = 4
    end
    object CustomerNoName: TBtnEditC
      Tag = 2
@ -916,6 +916,7 @@ object frmOrderInPut: TfrmOrderInPut
      Hint = 'CustomerNo/'#23458#25143
      TabOrder = 0
      OnChange = CustomerNoNameChange
+      OnKeyPress = CustomerNoNameKeyPress
      OnBtnUpClick = CustomerNoNameBtnUpClick
      OnBtnDnClick = CustomerNoNameBtnDnClick
    end
@ -1150,7 +1151,7 @@ object frmOrderInPut: TfrmOrderInPut
      Format = 'yyyy-MM-dd'
      Time = 40916.670856296290000000
      ShowCheckbox = True
-      TabOrder = 3
+      TabOrder = 5
    end
    object MPRTCode: TBtnEditC
      Tag = 2
@ -1560,7 +1561,7 @@ object frmOrderInPut: TfrmOrderInPut
      OnClick = Button1Click
    end
    object GroupBox1: TGroupBox
-      Left = 937
+      Left = 945
      Top = 0
      Width = 424
      Height = 278
@ -1589,7 +1590,8 @@ object frmOrderInPut: TfrmOrderInPut
      Top = 34
      Width = 100
      Height = 18
-      TabOrder = 4
+      TabOrder = 1
+      OnKeyPress = CustomerNoNameKeyPress
    end
    object jiazhong: TEdit
      Tag = 12
@ -1597,13 +1599,14 @@ object frmOrderInPut: TfrmOrderInPut
      Top = 34
      Width = 100
      Height = 18
-      TabOrder = 5
+      TabOrder = 2
+      OnKeyPress = CustomerNoNameKeyPress
    end
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 309
-    Width = 1363
+    Width = 1371
    Height = 29
    ButtonHeight = 30
    ButtonWidth = 83
@ -1650,8 +1653,8 @@ object frmOrderInPut: TfrmOrderInPut
  object cxGrid1: TcxGrid
    Left = 0
    Top = 338
-    Width = 1363
-    Height = 384
+    Width = 1371
+    Height = 392
    Align = alClient
    TabOrder = 3
    object Tv1: TcxGridDBTableView
@ -1703,6 +1706,84 @@ object frmOrderInPut: TfrmOrderInPut
        Styles.Header = DataLink_TradeManage.Default
        Width = 35
      end
+      object v1PRTCodeName: TcxGridDBColumn
+        Caption = #22383#24067#21517#31216
+        DataBinding.FieldName = 'PRTCodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v1PRTCodeNamePropertiesButtonClick
+        Properties.OnChange = v1PRTCodeNamePropertiesChange
+        HeaderAlignmentHorz = taCenter
+        Width = 79
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'GH'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object v1PRTColor: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v1PRTColorPropertiesButtonClick
+        Properties.OnChange = v1PRTColorPropertiesChange
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 64
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PRTOrderQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.FontBlue
+        Width = 61
+      end
+      object v1PRTMF: TcxGridDBColumn
+        Caption = #38376#24133'(cm)'
+        DataBinding.FieldName = 'PRTMF'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 75
+      end
+      object v1PRTKZ: TcxGridDBColumn
+        Caption = #20811#37325'(g/'#13217')'
+        DataBinding.FieldName = 'PRTKZ'
+        HeaderAlignmentHorz = taCenter
+        Width = 78
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'SOrdDefNote1'
+        HeaderAlignmentHorz = taCenter
+        Width = 123
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'OrderUnit'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.FontBlue
+        Width = 77
+      end
      object v1KHorderNo: TcxGridDBColumn
        Caption = #23458#25143#35746#21333#21495
        DataBinding.FieldName = 'KHorderNo'
@ -1722,20 +1803,6 @@ object frmOrderInPut: TfrmOrderInPut
        HeaderAlignmentHorz = taCenter
        Width = 74
      end
-      object v1PRTCodeName: TcxGridDBColumn
-        Caption = #22383#24067#21517#31216
-        DataBinding.FieldName = 'PRTCodeName'
-        PropertiesClassName = 'TcxButtonEditProperties'
-        Properties.Buttons = <
-          item
-            Default = True
-            Kind = bkEllipsis
-          end>
-        Properties.OnButtonClick = v1PRTCodeNamePropertiesButtonClick
-        Properties.OnChange = v1PRTCodeNamePropertiesChange
-        HeaderAlignmentHorz = taCenter
-        Width = 79
-      end
      object v1Column4: TcxGridDBColumn
        Caption = #21697#21517#33521#25991
        DataBinding.FieldName = 'Sorddefstr5'
@ -1749,21 +1816,6 @@ object frmOrderInPut: TfrmOrderInPut
        Styles.Header = DataLink_TradeManage.Default
        Width = 57
      end
-      object v1PRTColor: TcxGridDBColumn
-        Caption = #39068#33394
-        DataBinding.FieldName = 'PRTColor'
-        PropertiesClassName = 'TcxButtonEditProperties'
-        Properties.Buttons = <
-          item
-            Default = True
-            Kind = bkEllipsis
-          end>
-        Properties.OnButtonClick = v1PRTColorPropertiesButtonClick
-        HeaderAlignmentHorz = taCenter
-        Options.Sorting = False
-        Styles.Header = DataLink_TradeManage.handBlack
-        Width = 64
-      end
      object v1Column3: TcxGridDBColumn
        Caption = #39068#33394'('#33521#25991')'
        DataBinding.FieldName = 'SOrddefstr4'
@ -1771,35 +1823,6 @@ object frmOrderInPut: TfrmOrderInPut
        Styles.Header = DataLink_TradeManage.FonePurple
        Width = 115
      end
-      object v1PRTOrderQty: TcxGridDBColumn
-        Caption = #21305#25968
-        DataBinding.FieldName = 'PRTOrderQty'
-        PropertiesClassName = 'TcxTextEditProperties'
-        Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
-        HeaderAlignmentHorz = taCenter
-        Styles.Header = DataLink_TradeManage.FontBlue
-        Width = 61
-      end
-      object v1OrderUnit: TcxGridDBColumn
-        Caption = #25968#37327#21333#20301
-        DataBinding.FieldName = 'OrderUnit'
-        PropertiesClassName = 'TcxButtonEditProperties'
-        Properties.Buttons = <
-          item
-            Default = True
-            Kind = bkEllipsis
-          end>
-        Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
-        HeaderAlignmentHorz = taCenter
-        Styles.Header = DataLink_TradeManage.FontBlue
-        Width = 77
-      end
-      object v1Column1: TcxGridDBColumn
-        Caption = #22791#27880
-        DataBinding.FieldName = 'SOrdDefNote1'
-        HeaderAlignmentHorz = taCenter
-        Width = 123
-      end
      object v1PRTHX: TcxGridDBColumn
        Caption = #33457#22411#33457#21495
        DataBinding.FieldName = 'PRTHX'
@ -1815,19 +1838,6 @@ object frmOrderInPut: TfrmOrderInPut
        Styles.Header = DataLink_TradeManage.Default
        Width = 87
      end
-      object v1PRTMF: TcxGridDBColumn
-        Caption = #38376#24133'(cm)'
-        DataBinding.FieldName = 'PRTMF'
-        PropertiesClassName = 'TcxTextEditProperties'
-        HeaderAlignmentHorz = taCenter
-        Width = 75
-      end
-      object v1PRTKZ: TcxGridDBColumn
-        Caption = #20811#37325'(g/'#13217')'
-        DataBinding.FieldName = 'PRTKZ'
-        HeaderAlignmentHorz = taCenter
-        Width = 78
-      end
      object v1Column2: TcxGridDBColumn
        Caption = #35268#26684
        DataBinding.FieldName = 'PRTSpec'
@ -1867,12 +1877,6 @@ object frmOrderInPut: TfrmOrderInPut
        HeaderAlignmentHorz = taCenter
        Width = 80
      end
-      object Tv1Column1: TcxGridDBColumn
-        Caption = #32568#21495
-        DataBinding.FieldName = 'GH'
-        HeaderAlignmentHorz = taCenter
-        Width = 65
-      end
      object Tv1Column2: TcxGridDBColumn
        Caption = #25209#21495
        DataBinding.FieldName = 'PIH'
@ -1885,10 +1889,10 @@ object frmOrderInPut: TfrmOrderInPut
    end
  end
  object cxGrid4: TcxGrid
-    Left = 348
-    Top = 56
-    Width = 157
-    Height = 265
+    Left = 484
+    Top = 256
+    Width = 237
+    Height = 321
    TabOrder = 4
    Visible = False
    object TV4: TcxGridDBTableView
--- a/打卷检验管理/U_OrderInPut.pas
+++ b/打卷检验管理/U_OrderInPut.pas
@ -1,7 +1,7 @@
 unit U_OrderInPut;

 interface
-                                              
+
 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
@ -223,9 +223,9 @@ type
    procedure YCLFactoryBtnUpClick(Sender: TObject);
    procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject);
    procedure Label36DblClick(Sender: TObject);
-    procedure Label37DblClick(Sender: TObject);                   
+    procedure Label37DblClick(Sender: TObject);
    procedure SYRNameBtnUpClick(Sender: TObject);
-    procedure MPRTBZNoteDblClick(Sender: TObject);              
+    procedure MPRTBZNoteDblClick(Sender: TObject);
    procedure MPRTSCTeBieNoteDblClick(Sender: TObject);
    procedure v1PRTCodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure FileNameClick(Sender: TObject);
@ -235,8 +235,11 @@ type
    procedure SLBNameBtnClick(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure CustomerNoNameChange(Sender: TObject);
-    procedure v1PRTCodeNamePropertiesChange(Sender: TObject);
    procedure TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+    procedure v1PRTCodeNamePropertiesChange(Sender: TObject);
+    procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
+    procedure v1PRTColorPropertiesChange(Sender: TObject);
+    //procedure ConNoChange(Sender: TObject);
  private
    procedure InitData();
    procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
@ -1079,7 +1082,7 @@ begin
  if Trim(SLBName.Text) = '' then
  begin
    SLBName.text := '布莱克伊长品名标签.rmf';
-  end;                                        
+  end;
  if SaveData() then
  begin
    Application.MessageBox('保存成功！', '提示', 0);
@ -1097,7 +1100,7 @@ begin
      flagname := '颜色';
      V1Name.Caption := '中文名称';
      V1Note.Caption := '英文名称';
- //     MainType:=Trim(DName);
+      MainType := Trim(CustomerNoName.Text);
      fnote := True;
      if ShowModal = 1 then
      begin
@ -1128,8 +1131,8 @@ begin
  begin
    Edit;
    FieldByName('XHNO').Value := IntToStr(i);
-    FieldByName('PRTColor').Value := '';
-    FieldByName('PRTOrderQty').Value := null;
+    //FieldByName('PRTColor').Value := '';
+    //FieldByName('PRTOrderQty').Value := null;
    FieldByName('PRTPrice').Value := 0;
    FieldByName('SOrddefstr4').Value := null;
    FieldByName('SOrddefstr2').Value := null;
@ -1408,9 +1411,12 @@ begin
      MPRTKZ.Text := Trim(ADOTemp.fieldbyname('MPRTKZ').AsString);
      MPRTChuanY.Text := Trim(ADOTemp.fieldbyname('ChuanYangNote').AsString);
      MPRTQtyNote.Text := Trim(ADOTemp.fieldbyname('QtyNote').AsString);
-      CustomerNoName.Text := Trim(ADOTemp.fieldbyname('CustomerNoName').AsString);
-      CustomerNoName.TxtCode := Trim(ADOTemp.fieldbyname('CustomerNo').AsString);
-      DLYDate.DateTime := ADOTemp.fieldbyname('DLYDate').Value;
+
+//      CustomerNoName.Text := Trim(ADOTemp.fieldbyname('CustomerNoName').AsString);
+//      CustomerNoName.TxtCode := Trim(ADOTemp.fieldbyname('CustomerNo').AsString);
+
+     // DLYDate.DateTime := ADOTemp.fieldbyname('DLYDate').Value;
+
      ConMainId := Trim(ADOTemp.fieldbyname('MainId').AsString);
     // ConGS:=Trim(ADOTemp.fieldbyname('SYRName').AsString);
      //OrdDefStr2.Text:=Trim(ADOTemp.fieldbyname('ConDefStr2').AsString);
@ -1862,37 +1868,102 @@ begin
 //  end;
 end;

-procedure TfrmOrderInPut.v1PRTCodeNamePropertiesChange(Sender: TObject);
+procedure TfrmOrderInPut.TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+var
+  SelectedValue: string;
+  FocusedColumn: TcxGridColumn;
 begin
-//  MPRTSCTeBieNote.SetFocus;
-//  if Length(Trim(Order_Sub.fieldbyname('prtcodename').AsString)) > 1 then
-//  begin
-//    with ADOQueryTmp do
-//    begin
-//      Close;
-//      sql.Clear;
-//      sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''PRTCodeName''');
-//      sql.Add('and  A.ZDYName like ' + quotedstr('%' + trim(Order_Sub.fieldbyname('prtcodename').AsString) + '%'));
-//      Open;
-//    end;
-//    SCreateCDS20(ADOQueryTmp, CDS_Con);
-//    SInitCDSData20(ADOQueryTmp, CDS_CON);
-//    if CDS_Con.IsEmpty then
-//      cxGrid4.Visible := False
-//    else
-//      cxGrid4.Visible := True;
-//  end;
+  try
+    SelectedValue := CDS_CON.FieldByName('ZDYName').AsString;
+
+    cxGrid4.Visible := False;
+
+    FocusedColumn := Tv1.Controller.FocusedColumn;
+
+    if not Assigned(FocusedColumn) then
+      Exit;
+
+    if not (Order_Sub.State in [dsEdit, dsInsert]) then
+      Order_Sub.Edit;
+
+    if FocusedColumn.Name = 'v1PRTCodeName' then
+    begin
+      Order_Sub.FieldByName('PRTCodeName').AsString := SelectedValue;
+    end
+    else if FocusedColumn.Name = 'v1PRTColor' then
+    begin
+      Order_Sub.FieldByName('PRTColor').AsString := SelectedValue;
+    end;
+
+  except
+    on E: Exception do
+    begin
+      ShowMessage('错误: ' + E.Message);
+    end;
+  end;
 end;

-procedure TfrmOrderInPut.TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+procedure TfrmOrderInPut.v1PRTCodeNamePropertiesChange(Sender: TObject);
+var
+  SearchText: string;
+  Editor: TcxButtonEdit;
 begin
-//  conno.OnChange := nil;
-//
-//  cxGrid4.Visible := False;
-//  conNo.Text := CDS_CON.fieldbyname('conNO').AsString;
-//
-//  cxGrid4.Visible := False;
-//   conno.OnChange:=ConNoChange;
+
+  Editor := Sender as TcxButtonEdit;
+
+  SearchText := Trim(Editor.Text);
+ // showmessage(SearchText);
+  with ADOQueryTmp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''PRTCodeName''');
+    sql.Add('and  A.ZDYName like ' + quotedstr('%' + trim(SearchText) + '%'));
+    Open;
+   // ShowMessage(SQL.text);
+  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);
+begin
+  if Key = #13 then   // 回车
+  begin
+    Key := #0;
+    SelectNext(Sender as TWinControl, True, True);  // 按 TabOrder 顺序跳到下一个
+  end;
+end;
+
+procedure TfrmOrderInPut.v1PRTColorPropertiesChange(Sender: TObject);
+var
+  SearchText: string;
+  Editor: TcxButtonEdit;
+begin
+  Editor := Sender as TcxButtonEdit;
+
+  SearchText := Trim(Editor.Text);
+
+  with ADOQueryTmp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''OrdColor''');
+    sql.Add('and  A.ZDYName like ' + quotedstr('%' + trim(SearchText) + '%'));
+    Open;
+
+  end;
+  SCreateCDS20(ADOQueryTmp, CDS_Con);
+  SInitCDSData20(ADOQueryTmp, CDS_CON);
+  if CDS_Con.IsEmpty then
+    cxGrid4.Visible := False
+  else
+    cxGrid4.Visible := True;
 end;

 end.
--- a/打卷检验管理/U_ProductOrderNewList.dfm
+++ b/打卷检验管理/U_ProductOrderNewList.dfm
@ -1,6 +1,6 @@
 object frmProductOrderNewList: TfrmProductOrderNewList
-  Left = 464
-  Top = 256
+  Left = 372
+  Top = 544
  Width = 1382
  Height = 754
  Caption = #21253#35013#25351#31034#21333
@ -20,7 +20,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
-    Width = 1366
+    Width = 1374
    AutoSize = True
    ButtonHeight = 30
    ButtonWidth = 95
@ -195,7 +195,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
  object Panel1: TPanel
    Left = 0
    Top = 32
-    Width = 1366
+    Width = 1374
    Height = 40
    Align = alTop
    BevelInner = bvRaised
@ -512,7 +512,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
  object cxGrid1: TcxGrid
    Left = 0
    Top = 95
-    Width = 1366
+    Width = 1374
    Height = 333
    Align = alTop
    TabOrder = 3
@ -908,8 +908,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
  end
  object cxSplitter1: TcxSplitter
    Left = 0
-    Top = 451
-    Width = 1366
+    Top = 459
+    Width = 1374
    Height = 8
    HotZoneClassName = 'TcxMediaPlayer9Style'
    AlignSplitter = salBottom
@ -917,8 +917,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
  end
  object Panel2: TPanel
    Left = 0
-    Top = 459
-    Width = 1366
+    Top = 467
+    Width = 1374
    Height = 256
    Align = alBottom
    Caption = 'Panel2'
@ -926,7 +926,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
    object cxGrid2: TcxGrid
      Left = 1
      Top = 1
-      Width = 987
+      Width = 995
      Height = 254
      Align = alClient
      TabOrder = 0
@ -1253,7 +1253,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
      end
    end
    object GroupBox1: TGroupBox
-      Left = 988
+      Left = 996
      Top = 1
      Width = 377
      Height = 254
@ -1283,7 +1283,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
  object cxTabControl1: TcxTabControl
    Left = 0
    Top = 72
-    Width = 1366
+    Width = 1374
    Height = 23
    Align = alTop
    TabOrder = 2
@ -1296,7 +1296,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
      #20840#37096)
    OnChange = cxTabControl1Change
    ClientRectBottom = 23
-    ClientRectRight = 1366
+    ClientRectRight = 1374
    ClientRectTop = 19
  end
  object cxGridPopupMenu1: TcxGridPopupMenu
--- a/打卷检验管理/U_testdll.dfm
+++ b/打卷检验管理/U_testdll.dfm
@ -1,6 +1,6 @@
 object Form1: TForm1
-  Left = 153
-  Top = 124
+  Left = 666
+  Top = 380
  Width = 791
  Height = 554
  Caption = 'Form1'
--- a/打卷检验管理/testDll.cfg
+++ b/打卷检验管理/testDll.cfg
@ -31,8 +31,8 @@
 -M
 -$M16384,1048576
 -K$00400000
-LE"c:\program files\borland\delphi7\Projects\Bpl"
-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST