Group_DJD/D7DJxindefeng
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-05 17:26:25 +08:00
parent 356aade20f
commit 2f66e35da0
5 changed files with 156 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -972,6 +972,30 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
OnClick = SpeedButton13Click OnClick = SpeedButton13Click
end 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 end
object Panel2: TPanel object Panel2: TPanel
Left = 445 Left = 445
@ -1676,7 +1700,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 651 Left = 653
Top = 91 Top = 91
Width = 342 Width = 342
Height = 236 Height = 236
@ -2470,7 +2494,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Color = clSkyBlue Color = clSkyBlue
TabOrder = 7 TabOrder = 7
object Label2: TLabel object Label2: TLabel
Left = 684 Left = 1024
Top = 4 Top = 4
Width = 40 Width = 40
Height = 19 Height = 19
@ -2506,7 +2530,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label25: TLabel object Label25: TLabel
Left = 346 Left = 560
Top = 4 Top = 4
Width = 40 Width = 40
Height = 19 Height = 19
@ -2534,7 +2558,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label38: TLabel object Label38: TLabel
Left = 178 Left = 274
Top = 4 Top = 4
Width = 40 Width = 40
Height = 19 Height = 19
@ -2576,7 +2600,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label47: TLabel object Label47: TLabel
Left = 515 Left = 776
Top = 4 Top = 4
Width = 60 Width = 60
Height = 19 Height = 19
@ -2643,8 +2667,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object BTAdd: TButton object BTAdd: TButton
Left = 1070 Left = 1222
Top = 8 Top = 24
Width = 46 Width = 46
Height = 25 Height = 25
Caption = #26032#22686 Caption = #26032#22686
@ -2659,8 +2683,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = BTAddClick OnClick = BTAddClick
end end
object BTEdit: TButton object BTEdit: TButton
Left = 1038 Left = 1190
Top = 8 Top = 24
Width = 33 Width = 33
Height = 25 Height = 25
Caption = #20462#25913 Caption = #20462#25913
@ -2669,8 +2693,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = BTEditClick OnClick = BTEditClick
end end
object Button3: TButton object Button3: TButton
Left = 974 Left = 1126
Top = 7 Top = 23
Width = 64 Width = 64
Height = 26 Height = 26
Caption = #30830#23450 Caption = #30830#23450
@ -3052,4 +3076,24 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Top = 544 Top = 544
ReportData = {} ReportData = {}
end 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 end

105
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -4,8 +4,8 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls, 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, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
@ -23,7 +23,8 @@ uses
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, dxSkinscxPCPainter; dxSkinXmas2008Blue, dxSkinscxPCPainter, cxContainer, cxImage, cxDBEdit,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP;
type type
TfrmMJManageNewFDNewSF = class(TForm) TfrmMJManageNewFDNewSF = class(TForm)
@ -262,6 +263,11 @@ type
RM3: TRMGridReport; RM3: TRMGridReport;
Edit5: TEdit; Edit5: TEdit;
Label43: TLabel; Label43: TLabel;
IdFTP1: TIdFTP;
ADOQueryImage: TADOQuery;
DSImage: TDataSource;
GroupBox1: TGroupBox;
Picture4: TcxDBImage;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -320,6 +326,7 @@ type
procedure Timer1Timer(Sender: TObject); procedure Timer1Timer(Sender: TObject);
procedure TBCDClick(Sender: TObject); procedure TBCDClick(Sender: TObject);
procedure Edit5Click(Sender: TObject); procedure Edit5Click(Sender: TObject);
procedure Picture4DblClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@ -346,8 +353,10 @@ type
procedure On1201(var Message: Tmessage); message 1201; procedure On1201(var Message: Tmessage); message 1201;
procedure On1301(var Message: Tmessage); message 1301; procedure On1301(var Message: Tmessage); message 1301;
function JsXj(str1: string): string; function JsXj(str1: string): string;
procedure InitImage(fwbid: string);
public public
fmanage: string; fmanage: string;
fFlileFlag: string;
{ Public declarations } { Public declarations }
end; end;
@ -363,6 +372,22 @@ uses
U_SysLogOrder; U_SysLogOrder;
{$R *.dfm} {$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); procedure TfrmMJManageNewFDNewSF.PrtBaoData(FBaoid: string);
var var
fPrintFile: string; fPrintFile: string;
@ -1056,19 +1081,19 @@ begin
end end
else else
begin 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; end;
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
@ -2531,6 +2556,7 @@ begin
Edit3.Text := '¡Ì'; Edit3.Text := '¡Ì';
Edit4.Text := ''; Edit4.Text := '';
MJStr4.Text := ''; MJStr4.Text := '';
initImage(ADOTmp.fieldbyname('orderno').AsString);
end end
else else
begin begin
@ -2548,6 +2574,7 @@ begin
end; end;
APID.Text := ''; APID.Text := '';
BTAdd.Click; BTAdd.Click;
end; end;
procedure TfrmMJManageNewFDNewSF.Edit7Click(Sender: TObject); procedure TfrmMJManageNewFDNewSF.Edit7Click(Sender: TObject);
@ -3019,5 +3046,51 @@ begin
end; end;
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. end.

16
打卷检验管理/U_OrderInPut.dfm
View File

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