diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index a2552ad..7fffbfd 100644 --- 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; diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index e1df1c3..ea38728 100644 --- 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 diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index abdc824..83281e0 100644 --- 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. diff --git a/打卷检验管理/U_OrderInPut.dfm b/打卷检验管理/U_OrderInPut.dfm index 7a16dd5..ce92ce9 100644 --- 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 diff --git a/打卷检验管理/U_OrderInPut.pas b/打卷检验管理/U_OrderInPut.pas index b517684..2df2481 100644 --- 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,