~

打卷检验管理/U_CKProductJYHZList.dfm

@@ -20,7 +20,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1509
+    Width = 1501
     Height = 33
     ButtonHeight = 30
     ButtonWidth = 83
@@ -91,7 +91,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
   object Panel1: TPanel
     Left = 0
     Top = 33
-    Width = 1509
+    Width = 1501
     Height = 68
     Align = alTop
     BevelInner = bvRaised
@@ -323,8 +323,8 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
   object cxGrid2: TcxGrid
     Left = 0
     Top = 101
-    Width = 1509
-    Height = 379
+    Width = 1501
+    Height = 371
     Align = alClient
     TabOrder = 2
     object Tv1: TcxGridDBTableView

打卷检验管理/U_CKProductJYHZList.pas

@@ -11,7 +11,20 @@ uses
   ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
   cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common,
   RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
-  cxCheckBox;
+  cxCheckBox, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
+  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
+  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
+  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
+  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
+  dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
+  dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
+  dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
+  dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
+  dxSkinscxPCPainter;
 
 type
   TfrmCKProductJYHZList = class(TForm)
@@ -293,20 +306,22 @@ begin
 end;
 
 procedure TfrmCKProductJYHZList.ToolButton1Click(Sender: TObject);
-
 begin
   if cds_main.IsEmpty then
     Exit;
   frmJYOrderCDOne := TfrmJYOrderCDOne.Create(Application);
   with frmJYOrderCDOne do
   begin                      
-   Fmainid := trim(self.CDS_Main.fieldbyname('MAINID').asstring);
-   // orderno.Text := trim(self.CDS_Main.fieldbyname('orderno').asstring);
+    Fmainid := trim(self.CDS_Main.fieldbyname('MAINID').asstring);
+    orderno.Text := trim(self.CDS_Main.fieldbyname('orderno').asstring);
+    FHZ := '»ã×ܻسµ²éѯ';
+
     //gangno.Text := trim(self.CDS_Main.fieldbyname('MJStr4').asstring);
     //PRTColor.Text := trim(self.CDS_Main.fieldbyname('PRTColor').asstring);
     if ShowModal = 1 then
     begin
     //     InitGrid();
+
     end;
     free;
   end;

打卷检验管理/U_JYOrderCDOne.dfm

@@ -21,8 +21,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1392
-    Height = 62
+    Width = 1384
+    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
-      Top = 0
+      Left = 0
+      Top = 30
       AutoSize = True
       Caption = #20462#25913#25968#37327#21333#20301
       ImageIndex = 54
       OnClick = TBDWClick
     end
     object ToolButton4: TToolButton
-      Left = 719
-      Top = 0
+      Left = 111
+      Top = 30
       AutoSize = True
       Caption = #25209#37327#35843#25972#31859#25968
       ImageIndex = 54
       OnClick = ToolButton4Click
     end
     object ToolButton13: TToolButton
-      Left = 830
-      Top = 0
+      Left = 222
+      Top = 30
       AutoSize = True
       Caption = #25209#37327#20928#37325#36716#38271#24230
       ImageIndex = 54
@@ -129,16 +130,15 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton13Click
     end
     object ToolButton8: TToolButton
-      Left = 953
-      Top = 0
+      Left = 345
+      Top = 30
       AutoSize = True
       Caption = #25209#37327#20462#25913#30382#37325
       ImageIndex = 54
-      Wrap = True
       OnClick = ToolButton8Click
     end
     object ToolButton1: TToolButton
-      Left = 0
+      Left = 456
       Top = 30
       AutoSize = True
       Caption = #25171#21360#26631#31614
@@ -146,7 +146,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton1Click
     end
     object TCPDB: TToolButton
-      Left = 87
+      Left = 543
       Top = 30
       AutoSize = True
       Caption = #25104#21697#25171#21253
@@ -154,7 +154,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = TCPDBClick
     end
     object ToolButton3: TToolButton
-      Left = 174
+      Left = 630
       Top = 30
       AutoSize = True
       Caption = #25171#21360#21253#26631#31614
@@ -163,24 +163,25 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton3Click
     end
     object ToolButton2: TToolButton
-      Left = 273
+      Left = 729
       Top = 30
       AutoSize = True
       Caption = #25171#21360#26816#39564#25253#21578
       ImageIndex = 12
+      Wrap = True
       OnClick = ToolButton2Click
     end
     object ToolButton5: TToolButton
-      Left = 384
-      Top = 30
+      Left = 0
+      Top = 60
       AutoSize = True
       Caption = #25171#21360
       ImageIndex = 12
       OnClick = ToolButton5Click
     end
     object Edit3: TEdit
-      Left = 447
-      Top = 30
+      Left = 63
+      Top = 60
       Width = 68
       Height = 30
       Font.Charset = GB2312_CHARSET
@@ -194,8 +195,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnKeyPress = Edit3KeyPress
     end
     object ComboBox1: TComboBox
-      Left = 515
-      Top = 33
+      Left = 131
+      Top = 63
       Width = 149
       Height = 24
       Style = csDropDownList
@@ -218,8 +219,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
         '')
     end
     object Edit4: TEdit
-      Left = 664
-      Top = 30
+      Left = 280
+      Top = 60
       Width = 121
       Height = 30
       Font.Charset = GB2312_CHARSET
@@ -232,32 +233,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       Visible = False
     end
     object ToolButton12: TToolButton
-      Left = 785
-      Top = 30
+      Left = 401
+      Top = 60
       Caption = #20462#25913#30721#21333
       ImageIndex = 54
       Visible = False
       OnClick = ToolButton12Click
     end
     object ToolButton9: TToolButton
-      Left = 904
-      Top = 30
+      Left = 520
+      Top = 60
       AutoSize = True
       Caption = #24322#24120#25968#25454
       ImageIndex = 2
       OnClick = ToolButton9Click
     end
     object TBExport: TToolButton
-      Left = 991
-      Top = 30
+      Left = 607
+      Top = 60
       AutoSize = True
       Caption = #23548#20986
       ImageIndex = 75
       OnClick = TBExportClick
     end
     object TBClose: TToolButton
-      Left = 1054
-      Top = 30
+      Left = 670
+      Top = 60
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 55
@@ -266,8 +267,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   end
   object Panel1: TPanel
     Left = 0
-    Top = 62
-    Width = 1392
+    Top = 92
+    Width = 1384
     Height = 88
     Align = alTop
     BevelInner = bvRaised
@@ -781,9 +782,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   end
   object cxGrid1: TcxGrid
     Left = 0
-    Top = 150
-    Width = 1392
-    Height = 576
+    Top = 180
+    Width = 1384
+    Height = 538
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 3

打卷检验管理/U_JYOrderCDOne.pas

@@ -299,7 +299,7 @@ type
     { Private declarations }
   public
     FFInt: Integer;
-    FMAINID: string;
+    FMAINID, FHZ: string;
 
     { Public declarations }
   end;
@@ -536,6 +536,8 @@ begin
 end;
 
 procedure TfrmJYOrderCDOne.FormShow(Sender: TObject);
+var
+  VKey: Char;
 begin
   InitForm();
   if Trim(DParameters2) = '¹ÜÀí' then
@@ -573,6 +575,11 @@ begin
     //v1Column22.visible := False;
 //    TCPDB.Visible:=False;
   end;
+  if FHZ = '»ã×ܻسµ²éѯ' then
+  begin
+    VKey := #13;
+    OrderNoKeyPress(orderno, VKey);
+  end;
 end;
 
 procedure TfrmJYOrderCDOne.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);