This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-19 10:02:51 +08:00
parent 55c3cb8cdc
commit 1bbf6f4dbe
2 changed files with 41 additions and 39 deletions

View File

@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 0
Top = 0
Width = 1384
Height = 92
Height = 62
AutoSize = True
ButtonHeight = 30
ButtonWidth = 119
@ -102,35 +102,34 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
AutoSize = True
Caption = #25764#38144#20986#24211
ImageIndex = 86
Wrap = True
OnClick = ToolButton7Click
end
object ToolButton11: TToolButton
Left = 0
Top = 30
Left = 576
Top = 0
Caption = #25209#37327#20462#25913#32568#21495
ImageIndex = 54
OnClick = ToolButton11Click
end
object TBDW: TToolButton
Left = 119
Top = 30
Left = 695
Top = 0
AutoSize = True
Caption = #20462#25913#25968#37327#21333#20301
ImageIndex = 54
OnClick = TBDWClick
end
object ToolButton4: TToolButton
Left = 230
Top = 30
Left = 806
Top = 0
AutoSize = True
Caption = #25209#37327#35843#25972#31859#25968
ImageIndex = 54
OnClick = ToolButton4Click
end
object ToolButton13: TToolButton
Left = 341
Top = 30
Left = 917
Top = 0
AutoSize = True
Caption = #25209#37327#20928#37325#36716#38271#24230
ImageIndex = 54
@ -138,15 +137,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton13Click
end
object ToolButton8: TToolButton
Left = 464
Top = 30
Left = 1040
Top = 0
AutoSize = True
Caption = #25209#37327#20462#25913#30382#37325
ImageIndex = 54
Wrap = True
OnClick = ToolButton8Click
end
object ToolButton1: TToolButton
Left = 575
Left = 0
Top = 30
AutoSize = True
Caption = #25171#21360#26631#31614
@ -154,7 +154,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton1Click
end
object TCPDB: TToolButton
Left = 662
Left = 87
Top = 30
AutoSize = True
Caption = #25104#21697#25171#21253
@ -163,34 +163,33 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TCPDBClick
end
object ToolButton3: TToolButton
Left = 749
Left = 174
Top = 30
AutoSize = True
Caption = #25171#21360#21253#26631#31614
ImageIndex = 12
Wrap = True
Visible = False
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 0
Top = 60
Left = 273
Top = 30
AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578
ImageIndex = 12
OnClick = ToolButton2Click
end
object ToolButton5: TToolButton
Left = 111
Top = 60
Left = 384
Top = 30
AutoSize = True
Caption = #25171#21360
ImageIndex = 12
OnClick = ToolButton5Click
end
object Edit3: TEdit
Left = 174
Top = 60
Left = 447
Top = 30
Width = 68
Height = 30
Font.Charset = GB2312_CHARSET
@ -204,8 +203,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = Edit3KeyPress
end
object ComboBox1: TComboBox
Left = 242
Top = 63
Left = 515
Top = 33
Width = 182
Height = 24
Style = csDropDownList
@ -229,8 +228,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333)
end
object Edit4: TEdit
Left = 424
Top = 60
Left = 697
Top = 30
Width = 121
Height = 30
Font.Charset = GB2312_CHARSET
@ -243,32 +242,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False
end
object ToolButton12: TToolButton
Left = 545
Top = 60
Left = 818
Top = 30
Caption = #20462#25913#30721#21333
ImageIndex = 54
Visible = False
OnClick = ToolButton12Click
end
object ToolButton9: TToolButton
Left = 664
Top = 60
Left = 937
Top = 30
AutoSize = True
Caption = #24322#24120#25968#25454
ImageIndex = 2
OnClick = ToolButton9Click
end
object TBExport: TToolButton
Left = 751
Top = 60
Left = 1024
Top = 30
AutoSize = True
Caption = #23548#20986
ImageIndex = 75
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 814
Top = 60
Left = 1087
Top = 30
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
@ -277,7 +276,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end
object Panel1: TPanel
Left = 0
Top = 92
Top = 62
Width = 1384
Height = 88
Align = alTop
@ -848,9 +847,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end
object cxGrid1: TcxGrid
Left = 0
Top = 180
Top = 150
Width = 1384
Height = 538
Height = 568
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 3

View File

@ -1613,7 +1613,10 @@ begin
end;
end;
if (trim(ComboBox1.Text) = '检验码单') or (trim(ComboBox1.Text) = '提货核算单') or (trim(ComboBox1.Text) = '出库码单') or (trim(ComboBox1.Text) = '出库码单悦旺不加0.2') or (trim(ComboBox1.Text) = '出库码单不加0.2') or (trim(ComboBox1.Text) = '出库码单悦旺') or (trim(ComboBox1.Text) = '出库码单宇悦') then
if (trim(ComboBox1.Text) = '检验码单') or (trim(ComboBox1.Text) = '提货核算单') or (trim(ComboBox1.Text) = '出库码单')
or (trim(ComboBox1.Text) = '出库码单悦旺不加0.2') or (trim(ComboBox1.Text) = '出库码单不加0.2')
or (trim(ComboBox1.Text) = '出库码单不加0.3')
or (trim(ComboBox1.Text) = '出库码单悦旺') or (trim(ComboBox1.Text) = '出库码单宇悦') then
begin
with ADOQueryTemp do
begin