Group_DJD/D7djJingyi
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
libingpeng 2025-12-09 13:14:09 +08:00
parent d336da6f41
commit 141ed6d274
2 changed files with 22 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
检验管理/U_JYOrderCDOne.dfm
View File

@ -1,7 +1,7 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 206 Left = 206
Top = 161 Top = 161
Width = 1656 Width = 1556
Height = 791 Height = 791
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
Color = clBtnFace Color = clBtnFace
@ -20,7 +20,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1648 Width = 1548
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -185,10 +185,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ItemHeight = 16 ItemHeight = 16
ItemIndex = 0
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Text = #26816#39564#30721#21333'('#26222#36890#33521#25991#31859#36716#30721')'
Items.Strings = ( Items.Strings = (
#26816#39564#30721#21333'('#26222#36890#33521#25991#31859#36716#30721')' #26816#39564#30721#21333'('#26222#36890#33521#25991#31859#36716#30721')'
#26816#39564#30721#21333'('#33521#25991#30721#36716#31859')' #26816#39564#30721#21333'('#33521#25991#30721#36716#31859')'
@ -207,7 +205,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333'('#30917')' #26816#39564#30721#21333'('#30917')'
#26816#39564#30721#21333'('#26465#30721')' #26816#39564#30721#21333'('#26465#30721')'
#25391#22686#26465#30721 #25391#22686#26465#30721
#28151#33394#21253#35013'-10'#33394) #28151#33394#21253#35013'-10'#33394
#24040#21513#27719#24635)
end end
object TBAftChkHX: TToolButton object TBAftChkHX: TToolButton
Left = 634 Left = 634
@ -238,7 +237,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1648 Width = 1548
Height = 88 Height = 88
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -732,7 +731,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 182 Top = 182
Width = 1648 Width = 1548
Height = 578 Height = 578
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
@ -1603,12 +1602,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object Panel11: TPanel object Panel11: TPanel
Left = 0 Left = 0
Top = 150 Top = 150
Width = 1648 Width = 1548
Height = 32 Height = 32
Align = alTop Align = alTop
TabOrder = 10 TabOrder = 10
DesignSize = ( DesignSize = (
1648 1548
32) 32)
object LBCPAP: TLabel object LBCPAP: TLabel
Left = 643 Left = 643

14
检验管理/U_JYOrderCDOne.pas
View File

@ -1709,6 +1709,20 @@ begin
end; end;
SCreateCDS20(ADOQueryTemp, CDS_PRT); SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT);
end;
if (trim(ComboBox1.Text) = '¾Þ¼ª»ã×Ü') then
begin
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ_1 ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
Open;
end;
end; end;
if FileExists(fPrintFile) then if FileExists(fPrintFile) then