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

14
检验管理/U_JYOrderCDOne.pas
View File

@ -1709,6 +1709,20 @@ begin
end;
SCreateCDS20(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;
if FileExists(fPrintFile) then