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

27
检验管理/U_JYOrderCDOne.pas
View File

@ -542,7 +542,7 @@ begin
TBPZ.Visible := false;
// TCPDB.Visible:=False;
end;
ComboBox1.ItemIndex:=0;
ComboBox1.ItemIndex := 0;
end;
procedure TfrmJYOrderCDOne.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
@ -1554,6 +1554,31 @@ begin
Open;
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);
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