~

打卷检验管理/U_JYOrderCDOne.pas

@@ -1672,8 +1672,8 @@ begin
       Open;
     end;
   end;
-   if (trim(ComboBox1.Text) = '댔관쯤데') then
+   if (trim(ComboBox1.Text) = '댔관쯤데') then            
-  begin
+  begin                                      
     with ADOQueryTemp do                                                
     begin
       Close;                                                

打卷检验管理/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
+      Left = 1222
-      Top = 8
+      Top = 24
       Width = 46
       Height = 25
       Caption = #26032#22686
@@ -2659,8 +2683,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = BTAddClick
     end
     object BTEdit: TButton
-      Left = 1038
+      Left = 1190
-      Top = 8
+      Top = 24
       Width = 33
       Height = 25
       Caption = #20462#25913
@@ -2669,8 +2693,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = BTEditClick
     end
     object Button3: TButton
-      Left = 974
+      Left = 1126
-      Top = 7
+      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

打卷检验管理/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,
+  strUtils, Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics,
-  cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel,
+  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;
+        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;
+//        MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
-        if Label9.Caption = 'M' then
+//        if Label9.Caption = 'M' then
-        begin
+//        begin
-          FieldByName('MJLen').Value := MFMJLen;
+//          FieldByName('MJLen').Value := MFMJLen;
-          FieldByName('MJMa').Value := format('%.' + trim(fxsws) + 'f', [MFMJLen / 0.9144]);
+//          FieldByName('MJMa').Value := format('%.' + trim(fxsws) + 'f', [MFMJLen / 0.9144]);
-
+//
-        end
+//        end
-        else
+//        else
-        begin
+//        begin
-          FieldByName('MJMa').Value := MFMJLen;
+//          FieldByName('MJMa').Value := MFMJLen;
-          FieldByName('MJLen').Value := format('%.' + trim(fxsws) + 'f', [MFMJLen * 0.9144]);
+//          FieldByName('MJLen').Value := format('%.' + trim(fxsws) + 'f', [MFMJLen * 0.9144]);
-        end;
+//        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.
 

打卷检验管理/U_OrderInPut.dfm

@@ -702,8 +702,8 @@ object frmOrderInPut: TfrmOrderInPut
       Visible = False
     end
     object Label42: TLabel
-      Left = 537
+      Left = 388
-      Top = 540
+      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
+      Left = 449
-      Top = 552
+      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

打卷检验管理/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,