diff --git a/打卷检验管理/U_OrderInPut.dfm b/打卷检验管理/U_OrderInPut.dfm index 52f14e8..db96206 100644 --- a/打卷检验管理/U_OrderInPut.dfm +++ b/打卷检验管理/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 diff --git a/打卷检验管理/U_OrderInPut.pas b/打卷检验管理/U_OrderInPut.pas index a0eaf73..e2fb954 100644 --- a/打卷检验管理/U_OrderInPut.pas +++ b/打卷检验管理/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; diff --git a/打卷检验管理/U_ProductOrderNewList.dfm b/打卷检验管理/U_ProductOrderNewList.dfm index 44d7709..49ed4fc 100644 --- a/打卷检验管理/U_ProductOrderNewList.dfm +++ b/打卷检验管理/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 diff --git a/打卷检验管理/U_ProductOrderNewList.pas b/打卷检验管理/U_ProductOrderNewList.pas index 8da2f57..1e36e97 100644 --- a/打卷检验管理/U_ProductOrderNewList.pas +++ b/打卷检验管理/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) + ':\ͼƬ鿴';