Group_DJD/D7DJpeihe
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

·

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-12-13 16:30:59 +08:00
parent fda088d004
commit 49511c6ebf
2 changed files with 37 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
检验管理/U_JYOrderCDOne.dfm
View File

@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1374 Width = 1366
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -188,7 +188,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 535 Left = 535
Top = 30 Top = 33
Width = 149 Width = 149
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -198,8 +198,10 @@ 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
OnChange = ComboBox1Change OnChange = ComboBox1Change
Items.Strings = ( Items.Strings = (
#26816#39564#30721#21333 #26816#39564#30721#21333
@ -211,7 +213,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#28151#33394#21253#30721#21333'2' #28151#33394#21253#30721#21333'2'
#22825#28193#30721#21333 #22825#28193#30721#21333
#28151#33394#21253#30721#21333#20004#20301 #28151#33394#21253#30721#21333#20004#20301
'' #28151#33457#22411#21253#30721#21333
'') '')
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
@ -242,7 +244,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1374 Width = 1366
Height = 88 Height = 88
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -763,8 +765,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 150 Top = 150
Width = 1374 Width = 1366
Height = 573 Height = 565
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3

29
检验管理/U_JYOrderCDOne.pas
View File

@ -542,7 +542,7 @@ begin
TBPZ.Visible := false; TBPZ.Visible := false;
// TCPDB.Visible:=False; // TCPDB.Visible:=False;
end; end;
ComboBox1.ItemIndex:=0; ComboBox1.ItemIndex := 0;
end; end;
procedure TfrmJYOrderCDOne.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure TfrmJYOrderCDOne.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
@ -1554,8 +1554,33 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '살빻謹관쯤데') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_HSDB_HX ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
if (trim(ComboBox1.Text) = '살<>관쯤데좃貫') then 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=''12'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = '살<>관쯤데좃貫') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin