~

2026-02-05 17:26:25 +08:00 · 2026-02-05 17:26:25 +08:00 · 2f66e35da0
commit 2f66e35da0
parent 356aade20f
5 changed files with 156 additions and 41 deletions
--- a/打卷检验管理/U_JYOrderCDOne.pas
+++ b/打卷检验管理/U_JYOrderCDOne.pas
@ -1672,8 +1672,8 @@ begin
      Open;
    end;
  end;
-   if (trim(ComboBox1.Text) = '댔관쯤데') then
-  begin
+   if (trim(ComboBox1.Text) = '댔관쯤데') then            
+  begin                                      
    with ADOQueryTemp do                                                
    begin
      Close;                                                
--- a/打卷检验管理/U_MJManageNewFDNew.dfm
+++ b/打卷检验管理/U_MJManageNewFDNew.dfm
@ -972,6 +972,30 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      Visible = False
      OnClick = SpeedButton13Click
    end
+    object GroupBox1: TGroupBox
+      Left = 351
+      Top = 0
+      Width = 333
+      Height = 257
+      TabOrder = 0
+      object Picture4: TcxDBImage
+        Left = 2
+        Top = 14
+        Hint = 'FileName'
+        Align = alClient
+        DataBinding.DataField = 'FilesOther'
+        DataBinding.DataSource = DSImage
+        Properties.GraphicClassName = 'TJPEGImage'
+        Properties.GraphicTransparency = gtTransparent
+        Properties.ReadOnly = True
+        Properties.ShowFocusRect = False
+        Style.BorderStyle = ebsSingle
+        TabOrder = 0
+        OnDblClick = Picture4DblClick
+        Height = 241
+        Width = 329
+      end
+    end
  end
  object Panel2: TPanel
    Left = 445
@ -1676,7 +1700,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
    end
  end
  object MovePanel1: TMovePanel
-    Left = 651
+    Left = 653
    Top = 91
    Width = 342
    Height = 236
@ -2470,7 +2494,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
    Color = clSkyBlue
    TabOrder = 7
    object Label2: TLabel
-      Left = 684
+      Left = 1024
      Top = 4
      Width = 40
      Height = 19
@ -2506,7 +2530,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      Visible = False
    end
    object Label25: TLabel
-      Left = 346
+      Left = 560
      Top = 4
      Width = 40
      Height = 19
@ -2534,7 +2558,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      Visible = False
    end
    object Label38: TLabel
-      Left = 178
+      Left = 274
      Top = 4
      Width = 40
      Height = 19
@ -2576,7 +2600,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      Visible = False
    end
    object Label47: TLabel
-      Left = 515
+      Left = 776
      Top = 4
      Width = 60
      Height = 19
@ -2643,8 +2667,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      ParentFont = False
    end
    object BTAdd: TButton
-      Left = 1070
-      Top = 8
+      Left = 1222
+      Top = 24
      Width = 46
      Height = 25
      Caption = #26032#22686
@ -2659,8 +2683,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      OnClick = BTAddClick
    end
    object BTEdit: TButton
-      Left = 1038
-      Top = 8
+      Left = 1190
+      Top = 24
      Width = 33
      Height = 25
      Caption = #20462#25913
@ -2669,8 +2693,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      OnClick = BTEditClick
    end
    object Button3: TButton
-      Left = 974
-      Top = 7
+      Left = 1126
+      Top = 23
      Width = 64
      Height = 26
      Caption = #30830#23450
@ -3052,4 +3076,24 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
    Top = 544
    ReportData = {}
  end
+  object IdFTP1: TIdFTP
+    MaxLineAction = maException
+    ReadTimeout = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    Left = 1080
+    Top = 430
+  end
+  object ADOQueryImage: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    EnableBCD = False
+    Parameters = <>
+    Left = 1048
+    Top = 427
+  end
+  object DSImage: TDataSource
+    DataSet = ADOQueryImage
+    Left = 1120
+    Top = 432
+  end
 end
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@ -4,8 +4,8 @@ interface

 uses
  Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls,
-  Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
-  cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel,
+  strUtils, Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics,
+  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
  RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
@ -23,7 +23,8 @@ uses
  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
-  dxSkinXmas2008Blue, dxSkinscxPCPainter;
+  dxSkinXmas2008Blue, dxSkinscxPCPainter, cxContainer, cxImage, cxDBEdit,
+  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP;

 type
  TfrmMJManageNewFDNewSF = class(TForm)
@ -262,6 +263,11 @@ type
    RM3: TRMGridReport;
    Edit5: TEdit;
    Label43: TLabel;
+    IdFTP1: TIdFTP;
+    ADOQueryImage: TADOQuery;
+    DSImage: TDataSource;
+    GroupBox1: TGroupBox;
+    Picture4: TcxDBImage;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
@ -319,7 +325,8 @@ type
    procedure Edit12Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure TBCDClick(Sender: TObject);
-    procedure Edit5Click(Sender: TObject);         
+    procedure Edit5Click(Sender: TObject);
+    procedure Picture4DblClick(Sender: TObject);
  private
    { Private declarations }
    FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@ -328,7 +335,7 @@ type
    fRollType, fRollType1, fbaotype, fbaosx, FPRTdqdw, FDJDW: string;
    isCommopen, IsJsMessage: boolean;
    MValue, FCDName, MggCDFalg: string;
-    fxsws, fxsws1: string;                                 
+    fxsws, fxsws1: string;
    procedure InitJP();
    procedure InitCDGrid();
    procedure InitCDGridID();
@ -346,8 +353,10 @@ type
    procedure On1201(var Message: Tmessage); message 1201;
    procedure On1301(var Message: Tmessage); message 1301;
    function JsXj(str1: string): string;
+    procedure InitImage(fwbid: string);
  public
    fmanage: string;
+    fFlileFlag: string;
    { Public declarations }

  end;
@ -363,6 +372,22 @@ uses
  U_SysLogOrder;

 {$R *.dfm}
+procedure TfrmMJManageNewFDNewSF.InitImage(fwbid: string);
+begin
+  ADOQueryImage.close;
+  if fwbid = '' then
+    exit;
+  with ADOQueryImage do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select * from TP_File A');
+    sql.Add('where WBID=' + quotedstr(trim(fwbid)));
+//    ShowMessage(sql.Text);
+    open;
+  end;
+end;
+
 procedure TfrmMJManageNewFDNewSF.PrtBaoData(FBaoid: string);
 var
  fPrintFile: string;
@ -1056,19 +1081,19 @@ begin
      end
      else
      begin
-//        FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
-        MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
-        if Label9.Caption = 'M' then
-        begin
-          FieldByName('MJLen').Value := MFMJLen;
-          FieldByName('MJMa').Value := format('%.' + trim(fxsws) + 'f', [MFMJLen / 0.9144]);
-
-        end
-        else
-        begin
-          FieldByName('MJMa').Value := MFMJLen;
-          FieldByName('MJLen').Value := format('%.' + trim(fxsws) + 'f', [MFMJLen * 0.9144]);
-        end;
+        FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
+//        MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
+//        if Label9.Caption = 'M' then
+//        begin
+//          FieldByName('MJLen').Value := MFMJLen;
+//          FieldByName('MJMa').Value := format('%.' + trim(fxsws) + 'f', [MFMJLen / 0.9144]);
+//
+//        end
+//        else
+//        begin
+//          FieldByName('MJMa').Value := MFMJLen;
+//          FieldByName('MJLen').Value := format('%.' + trim(fxsws) + 'f', [MFMJLen * 0.9144]);
+//        end;
      end;

      FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
@ -2531,6 +2556,7 @@ begin
    Edit3.Text := '¡Ì';
    Edit4.Text := '';
    MJStr4.Text := '';
+    initImage(ADOTmp.fieldbyname('orderno').AsString);
  end
  else
  begin
@ -2548,6 +2574,7 @@ begin
  end;
  APID.Text := '';
  BTAdd.Click;
+
 end;

 procedure TfrmMJManageNewFDNewSF.Edit7Click(Sender: TObject);
@ -3019,5 +3046,51 @@ begin
  end;
 end;

+procedure TfrmMJManageNewFDNewSF.Picture4DblClick(Sender: TObject);
+var
+  sFieldName: string;
+  fileName: string;
+begin
+  if Picture4.Picture.Height = 0 then
+    exit;
+  sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\图片查看';
+
+  if not DirectoryExists(pchar(sFieldName)) then
+    CreateDirectory(pchar(sFieldName), nil);
+  fileName := ADOTmp.fieldbyname('hxFile').AsString;
+  sFieldName := sFieldName + '\' + trim(fileName);
+
+  try
+    IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '服务器地址', '127.0.0.1');
+    IdFTP1.Username := 'three';
+    IdFTP1.Password := '641010';
+    IdFTP1.Connect();
+  except
+    ;
+  end;
+
+  if IdFTP1.Connected then
+  begin
+
+    application.ProcessMessages;
+    try
+      IdFTP1.Get(fFlileFlag + '\' + Trim(fileName), sFieldName, true, false);
+    except
+      Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING);
+      IdFTP1.Quit;
+      Exit;
+    end;
+  end
+  else
+  begin
+    Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING);
+    IdFTP1.Quit;
+    Exit;
+  end;
+  if IdFTP1.Connected then
+    IdFTP1.Quit;
+  ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
+end;
+
 end.

--- a/打卷检验管理/U_OrderInPut.dfm
+++ b/打卷检验管理/U_OrderInPut.dfm
@ -702,8 +702,8 @@ object frmOrderInPut: TfrmOrderInPut
      Visible = False
    end
    object Label42: TLabel
-      Left = 537
-      Top = 540
+      Left = 388
+      Top = 92
      Width = 65
      Height = 12
      Caption = #20844#21496#25260#22836#65306
@ -713,7 +713,6 @@ object frmOrderInPut: TfrmOrderInPut
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
-      Visible = False
    end
    object Label4: TLabel
      Left = 41
@ -1396,13 +1395,12 @@ object frmOrderInPut: TfrmOrderInPut
    end
    object SYRName: TBtnEditC
      Tag = 2
-      Left = 591
-      Top = 552
+      Left = 449
+      Top = 90
      Width = 99
      Height = 20
      Hint = 'SYRName/'#20844#21496#21488#22836
      TabOrder = 29
-      Visible = False
      OnBtnUpClick = SYRNameBtnUpClick
      OnBtnDnClick = CustomerNoNameBtnDnClick
    end
@ -1563,15 +1561,15 @@ object frmOrderInPut: TfrmOrderInPut
    object SLBName: TBtnEditA
      Left = 89
      Top = 88
-      Width = 281
+      Width = 238
      Height = 20
      TabOrder = 55
      OnBtnClick = SLBNameBtnClick
    end
    object Button1: TButton
-      Left = 373
+      Left = 328
      Top = 84
-      Width = 97
+      Width = 60
      Height = 37
      Caption = #35774#35745#26631#31614
      TabOrder = 56
--- 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,