~

打卷检验管理/U_OrderInPut.dfm

@@ -350,6 +350,7 @@ object frmOrderInPut: TfrmOrderInPut
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label22: TLabel
       Left = 387
@@ -547,7 +548,7 @@ object frmOrderInPut: TfrmOrderInPut
       Visible = False
     end
     object Label36: TLabel
-      Left = 785
+      Left = 753
       Top = 19
       Width = 13
       Height = 84
@@ -558,10 +559,11 @@ object frmOrderInPut: TfrmOrderInPut
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
       OnDblClick = Label36DblClick
     end
     object Label37: TLabel
-      Left = 786
+      Left = 754
       Top = 146
       Width = 13
       Height = 84
@@ -572,6 +574,7 @@ object frmOrderInPut: TfrmOrderInPut
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
       OnDblClick = Label37DblClick
     end
     object Label38: TLabel
@@ -1323,19 +1326,21 @@ object frmOrderInPut: TfrmOrderInPut
     end
     object LBNameNote: TMemo
       Tag = 2
-      Left = 800
+      Left = 768
       Top = 12
       Width = 130
       Height = 130
       TabOrder = 4
+      Visible = False
     end
     object MaiTouNote: TMemo
       Tag = 2
-      Left = 801
+      Left = 769
       Top = 145
       Width = 130
       Height = 130
       TabOrder = 12
+      Visible = False
     end
     object SYRName: TBtnEditC
       Tag = 2
@@ -1521,9 +1526,9 @@ object frmOrderInPut: TfrmOrderInPut
       OnClick = Button1Click
     end
     object GroupBox1: TGroupBox
-      Left = 937
+      Left = 752
       Top = 0
-      Width = 424
+      Width = 609
       Height = 278
       Align = alRight
       Caption = #26631#31614#23637#31034
@@ -1531,7 +1536,7 @@ object frmOrderInPut: TfrmOrderInPut
       object RMPreview1: TRMPreview
         Left = 1
         Top = 13
-        Width = 422
+        Width = 607
         Height = 264
         Align = alClient
         BevelOuter = bvLowered
@@ -1852,8 +1857,8 @@ object frmOrderInPut: TfrmOrderInPut
     end
   end
   object Panel1: TPanel
-    Left = 528
-    Top = 168
+    Left = 416
+    Top = 176
     Width = 313
     Height = 145
     TabOrder = 4

打卷检验管理/U_OrderInPut.pas

@@ -28,13 +28,13 @@ uses
   dxSkinscxPCPainter;
 
 type
-  TfrmOrderInPut = class(TForm)
+  TfrmOrderInPut = class(TForm)     
     ToolBar1: TToolBar;
     TBSave: TToolButton;
     TBClose: TToolButton;
     ScrollBox1: TScrollBox;
     Label1: TLabel;
-    OrderNo: TEdit;
+    OrderNo: TEdit;                                                  
     Label7: TLabel;
     ToolBar2: TToolBar;
     ToolButton1: TToolButton;

打卷检验管理/U_ProductOrderNewList.dfm

@@ -1104,7 +1104,6 @@ object frmProductOrderNewList: TfrmProductOrderNewList
       Align = alRight
       Caption = #21452#20987#26597#30475#21407#22270
       TabOrder = 1
-      Visible = False
       object Picture4: TcxDBImage
         Left = 2
         Top = 14
@@ -1113,6 +1112,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
         DataBinding.DataField = 'FilesOther'
         DataBinding.DataSource = DSImage
         PopupMenu = PopupMenu1
+        Properties.GraphicClassName = 'TJPEGImage'
         Properties.GraphicTransparency = gtTransparent
         Properties.ReadOnly = True
         Properties.ShowFocusRect = False

打卷检验管理/U_ProductOrderNewList.pas

@@ -951,16 +951,16 @@ end;
 
 procedure TfrmProductOrderNewList.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
 begin
-//  initImage(ADOQuerySub.fieldbyname('HXFile').AsString);
+  initImage(ADOQuerySub.fieldbyname('HXFile').AsString);
 end;
 
 procedure TfrmProductOrderNewList.Picture4DblClick(Sender: TObject);
 var
-  sFieldName: string;
+  sFieldName: string;                                     
   fileName: string;
  //	ff: TADOBlobStream;
  // FJStream : TMemoryStream;
-begin
+begin                                            
   if Picture4.Picture.Height = 0 then
     exit;
   sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ²é¿´';