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 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\布莱克伊\打卷检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJbulaikeyi\打卷检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

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

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

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

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