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

20260430

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-04-30 19:08:10 +08:00
parent 408a8a9615
commit 25b142e907
4 changed files with 84 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
打卷检验管理/U_JYOrderCDOne.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 296 Left = 292
Top = 178 Top = 351
Width = 1400 Width = 1400
Height = 757 Height = 757
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1384 Width = 1392
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -268,7 +268,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1384 Width = 1392
Height = 88 Height = 88
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -783,8 +783,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 150 Top = 150
Width = 1384 Width = 1392
Height = 568 Height = 576
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3

34
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -1623,9 +1623,7 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데관뵀') or (trim(ComboBox1.Text) = '쇱駱쯤데(관뵀<EAB480>뵀)') if (trim(ComboBox1.Text) = '쇱駱쯤데관뵀') or (trim(ComboBox1.Text) = '쇱駱쯤데(관뵀<EAB480>뵀)') or (trim(ComboBox1.Text) = '쇱駱쯤데(관뵀낀똑)') or (trim(ComboBox1.Text) = '쇱駱쯤데(관뵀낀똑)') or (trim(ComboBox1.Text) = '쇱駱쯤데(<28>뵀낀똑관뵀)') then
or (trim(ComboBox1.Text) = '쇱駱쯤데(관뵀낀똑)') or (trim(ComboBox1.Text) = '쇱駱쯤데(관뵀낀똑)')
or (trim(ComboBox1.Text) = '쇱駱쯤데(<28>뵀낀똑관뵀)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1649,8 +1647,7 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '쇱駱쯤데(낀똑)') if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '쇱駱쯤데(낀똑)') or (trim(ComboBox1.Text) = '쇱駱쯤데(路좆)') then
or (trim(ComboBox1.Text) = '쇱駱쯤데(路좆)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1706,9 +1703,8 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Print_CKMD '); sql.add('exec P_Print_CKMDYH ');
sql.add('@mainID=' + quotedstr(Trim(''))); sql.add('@DName=' + quotedstr(Trim(DCode)));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp, CDS_HZ); SCreateCDS20(ADOQueryTemp, CDS_HZ);
@ -1724,6 +1720,28 @@ begin
sql.add(',@flag=''2'' '); sql.add(',@flag=''2'' ');
Open; Open;
end; end;
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.add('exec P_Print_CKMD ');
// sql.add('@mainID=' + quotedstr(Trim('')));
// sql.add(',@DName=' + quotedstr(Trim(DCode)));
// Open;
// end;
// SCreateCDS20(ADOQueryTemp, CDS_HZ);
// SInitCDSData20(ADOQueryTemp, CDS_HZ);
//
// with ADOQueryPrint do
// begin
// Close;
// sql.Clear;
// sql.add('exec P_Do_PrintMd_HZ ');
// sql.add('@mainID=' + quotedstr(Trim('')));
// sql.add(',@DName=' + quotedstr(Trim(DCode)));
// sql.add(',@flag=''2'' ');
// Open;
// end;
end; end;
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin

66
打卷检验管理/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 = 1374
Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -109,66 +110,67 @@ object frmProductOrderNewList: TfrmProductOrderNewList
AutoSize = True AutoSize = True
Caption = #35746#21333#23436#25104 Caption = #35746#21333#23436#25104
ImageIndex = 41 ImageIndex = 41
Wrap = True
OnClick = TWCClick OnClick = TWCClick
end end
object TNoWC: TToolButton object TNoWC: TToolButton
Left = 591 Left = 0
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
ImageIndex = 86 ImageIndex = 86
OnClick = TNoWCClick OnClick = TNoWCClick
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 678 Left = 87
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 = 150
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 = 249
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 ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 903 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 = 990 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 = 1085 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 = 1148 Left = 557
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #37325#36830 Caption = #37325#36830
ImageIndex = 73 ImageIndex = 73
@ -176,8 +178,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1211 Left = 620
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
@ -186,8 +188,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 62
Width = 1366 Width = 1374
Height = 40 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -415,8 +417,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 95 Top = 125
Width = 1366 Width = 1374
Height = 333 Height = 333
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -764,8 +766,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 451 Top = 459
Width = 1366 Width = 1374
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -773,8 +775,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 459 Top = 467
Width = 1366 Width = 1374
Height = 256 Height = 256
Align = alBottom Align = alBottom
Caption = 'Panel2' Caption = 'Panel2'
@ -782,7 +784,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 987 Width = 995
Height = 254 Height = 254
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -1097,7 +1099,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 988 Left = 996
Top = 1 Top = 1
Width = 377 Width = 377
Height = 254 Height = 254
@ -1126,8 +1128,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 72 Top = 102
Width = 1366 Width = 1374
Height = 23 Height = 23
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -1140,7 +1142,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 23 ClientRectBottom = 23
ClientRectRight = 1366 ClientRectRight = 1374
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu

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

@ -12,7 +12,20 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxContainer, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxContainer,
cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, shellAPI, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, IdFTP, shellAPI, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu; dxBarBuiltInMenu, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmProductOrderNewList = class(TForm) TfrmProductOrderNewList = class(TForm)