Group_01/D7DJbulaikeyi
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-18 16:18:06 +08:00
parent 3dfa897b34
commit e56172f814
3 changed files with 67 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
打卷检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\布莱克伊\打卷检验管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7DJbulaikeyi\打卷检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

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

@ -20,7 +20,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1366
Width = 1349
Height = 62
AutoSize = True
ButtonHeight = 30
ButtonWidth = 95
@ -117,66 +118,67 @@ object frmProductOrderNewList: TfrmProductOrderNewList
AutoSize = True
Caption = #25764#38144#23436#25104
ImageIndex = 86
Wrap = True
OnClick = TNoWCClick
end
object TBExport: TToolButton
Left = 678
Top = 0
Left = 0
Top = 30
AutoSize = True
Caption = #23548#20986
ImageIndex = 75
OnClick = TBExportClick
end
object TFJ: TToolButton
Left = 741
Top = 0
Left = 63
Top = 30
AutoSize = True
Caption = #25351#31034#21333#38468#20214
ImageIndex = 57
OnClick = TFJClick
end
object TBPrint: TToolButton
Left = 840
Top = 0
Left = 162
Top = 30
AutoSize = True
Caption = #25171#21360
ImageIndex = 12
OnClick = TBPrintClick
end
object ToolButton8: TToolButton
Left = 903
Top = 0
Left = 225
Top = 30
AutoSize = True
Caption = #30452#25509#25171#21360
ImageIndex = 23
OnClick = ToolButton8Click
end
object ToolButton4: TToolButton
Left = 990
Top = 0
Left = 312
Top = 30
AutoSize = True
Caption = #24322#24120#25968#25454
ImageIndex = 2
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 1077
Top = 0
Left = 399
Top = 30
Caption = #30133#28857#31649#29702
ImageIndex = 132
OnClick = ToolButton5Click
end
object ToolButton6: TToolButton
Left = 1172
Top = 0
Left = 494
Top = 30
AutoSize = True
Caption = #26085#24535
ImageIndex = 72
OnClick = ToolButton6Click
end
object ToolButton7: TToolButton
Left = 1235
Top = 0
Left = 557
Top = 30
AutoSize = True
Caption = #37325#36830
ImageIndex = 73
@ -184,8 +186,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton7Click
end
object TBClose: TToolButton
Left = 1298
Top = 0
Left = 620
Top = 30
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
@ -194,8 +196,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1366
Top = 62
Width = 1349
Height = 40
Align = alTop
BevelInner = bvRaised
@ -365,6 +367,19 @@ object frmProductOrderNewList: TfrmProductOrderNewList
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 1202
Top = 14
Width = 26
Height = 12
Caption = #32568#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 71
Top = 11
@ -486,11 +501,20 @@ object frmProductOrderNewList: TfrmProductOrderNewList
TabOrder = 12
OnChange = OrderNoChange
end
object GH: TEdit
Tag = 2
Left = 1230
Top = 10
Width = 77
Height = 20
TabOrder = 13
OnChange = OrderNoChange
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 95
Width = 1366
Top = 125
Width = 1349
Height = 333
Align = alTop
TabOrder = 3
@ -766,6 +790,10 @@ object frmProductOrderNewList: TfrmProductOrderNewList
Options.Editing = False
Width = 60
end
object Tv1Column9: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'GH'
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -875,8 +903,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end
object cxSplitter1: TcxSplitter
Left = 0
Top = 451
Width = 1366
Top = 458
Width = 1349
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
@ -884,8 +912,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end
object Panel2: TPanel
Left = 0
Top = 459
Width = 1366
Top = 466
Width = 1349
Height = 256
Align = alBottom
Caption = 'Panel2'
@ -893,7 +921,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 987
Width = 970
Height = 254
Align = alClient
TabOrder = 0
@ -1220,7 +1248,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end
end
object GroupBox1: TGroupBox
Left = 988
Left = 971
Top = 1
Width = 377
Height = 254
@ -1249,8 +1277,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end
object cxTabControl1: TcxTabControl
Left = 0
Top = 72
Width = 1366
Top = 102
Width = 1349
Height = 23
Align = alTop
TabOrder = 2
@ -1263,7 +1291,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 23
ClientRectRight = 1366
ClientRectRight = 1349
ClientRectTop = 19
end
object cxGridPopupMenu1: TcxGridPopupMenu

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

@ -178,6 +178,9 @@ type
PopupMenu2: TPopupMenu;
N4: TMenuItem;
N3: TMenuItem;
Label13: TLabel;
GH: TEdit;
Tv1Column9: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -571,9 +574,9 @@ var
i, j: Integer;
begin
Panel4.Left := (self.Width - Panel4.Width) div 2;
Panel4.Visible := True;
end;
Panel4.Visible := True;
end;
procedure TfrmProductOrderNewList.TBRafreshClick(Sender: TObject);
begin
InitGrid();