Group_DJD/D7DJlifei
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-01-04 15:02:01 +08:00
parent 399290928f
commit eaad733635
4 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -350,6 +350,7 @@ 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 Label22: TLabel object Label22: TLabel
Left = 387 Left = 387
@ -547,7 +548,7 @@ object frmOrderInPut: TfrmOrderInPut
Visible = False Visible = False
end end
object Label36: TLabel object Label36: TLabel
Left = 785 Left = 753
Top = 19 Top = 19
Width = 13 Width = 13
Height = 84 Height = 84
@ -558,10 +559,11 @@ object frmOrderInPut: TfrmOrderInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
OnDblClick = Label36DblClick OnDblClick = Label36DblClick
end end
object Label37: TLabel object Label37: TLabel
Left = 786 Left = 754
Top = 146 Top = 146
Width = 13 Width = 13
Height = 84 Height = 84
@ -572,6 +574,7 @@ object frmOrderInPut: TfrmOrderInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
OnDblClick = Label37DblClick OnDblClick = Label37DblClick
end end
object Label38: TLabel object Label38: TLabel
@ -1323,19 +1326,21 @@ object frmOrderInPut: TfrmOrderInPut
end end
object LBNameNote: TMemo object LBNameNote: TMemo
Tag = 2 Tag = 2
Left = 800 Left = 768
Top = 12 Top = 12
Width = 130 Width = 130
Height = 130 Height = 130
TabOrder = 4 TabOrder = 4
Visible = False
end end
object MaiTouNote: TMemo object MaiTouNote: TMemo
Tag = 2 Tag = 2
Left = 801 Left = 769
Top = 145 Top = 145
Width = 130 Width = 130
Height = 130 Height = 130
TabOrder = 12 TabOrder = 12
Visible = False
end end
object SYRName: TBtnEditC object SYRName: TBtnEditC
Tag = 2 Tag = 2
@ -1521,9 +1526,9 @@ object frmOrderInPut: TfrmOrderInPut
OnClick = Button1Click OnClick = Button1Click
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 937 Left = 752
Top = 0 Top = 0
Width = 424 Width = 609
Height = 278 Height = 278
Align = alRight Align = alRight
Caption = #26631#31614#23637#31034 Caption = #26631#31614#23637#31034
@ -1531,7 +1536,7 @@ object frmOrderInPut: TfrmOrderInPut
object RMPreview1: TRMPreview object RMPreview1: TRMPreview
Left = 1 Left = 1
Top = 13 Top = 13
Width = 422 Width = 607
Height = 264 Height = 264
Align = alClient Align = alClient
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1852,8 +1857,8 @@ object frmOrderInPut: TfrmOrderInPut
end end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 528 Left = 416
Top = 168 Top = 176
Width = 313 Width = 313
Height = 145 Height = 145
TabOrder = 4 TabOrder = 4

4
打卷检验管理/U_OrderInPut.pas
View File

@ -28,13 +28,13 @@ uses
dxSkinscxPCPainter; dxSkinscxPCPainter;
type type
TfrmOrderInPut = class(TForm) TfrmOrderInPut = class(TForm)
ToolBar1: TToolBar; ToolBar1: TToolBar;
TBSave: TToolButton; TBSave: TToolButton;
TBClose: TToolButton; TBClose: TToolButton;
ScrollBox1: TScrollBox; ScrollBox1: TScrollBox;
Label1: TLabel; Label1: TLabel;
OrderNo: TEdit; OrderNo: TEdit;
Label7: TLabel; Label7: TLabel;
ToolBar2: TToolBar; ToolBar2: TToolBar;
ToolButton1: TToolButton; ToolButton1: TToolButton;

2
打卷检验管理/U_ProductOrderNewList.dfm
View File

@ -1104,7 +1104,6 @@ object frmProductOrderNewList: TfrmProductOrderNewList
Align = alRight Align = alRight
Caption = #21452#20987#26597#30475#21407#22270 Caption = #21452#20987#26597#30475#21407#22270
TabOrder = 1 TabOrder = 1
Visible = False
object Picture4: TcxDBImage object Picture4: TcxDBImage
Left = 2 Left = 2
Top = 14 Top = 14
@ -1113,6 +1112,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
DataBinding.DataField = 'FilesOther' DataBinding.DataField = 'FilesOther'
DataBinding.DataSource = DSImage DataBinding.DataSource = DSImage
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
Properties.GraphicClassName = 'TJPEGImage'
Properties.GraphicTransparency = gtTransparent Properties.GraphicTransparency = gtTransparent
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.ShowFocusRect = False Properties.ShowFocusRect = False

6
打卷检验管理/U_ProductOrderNewList.pas
View File

@ -951,16 +951,16 @@ end;
procedure TfrmProductOrderNewList.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure TfrmProductOrderNewList.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin begin
// initImage(ADOQuerySub.fieldbyname('HXFile').AsString); initImage(ADOQuerySub.fieldbyname('HXFile').AsString);
end; end;
procedure TfrmProductOrderNewList.Picture4DblClick(Sender: TObject); procedure TfrmProductOrderNewList.Picture4DblClick(Sender: TObject);
var var
sFieldName: string; sFieldName: string;
fileName: string; fileName: string;
// ff: TADOBlobStream; // ff: TADOBlobStream;
// FJStream : TMemoryStream; // FJStream : TMemoryStream;
begin begin
if Picture4.Picture.Height = 0 then if Picture4.Picture.Height = 0 then
exit; exit;
sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ²é¿´'; sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ²é¿´';