This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-12-08 10:34:07 +08:00
parent dda09e5429
commit 7622a7414f
2 changed files with 24 additions and 26 deletions

View File

@ -19,8 +19,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1349 Width = 1341
Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 143 ButtonWidth = 143
@ -88,45 +87,44 @@ object frmJYOrderCDList: TfrmJYOrderCDList
AutoSize = True AutoSize = True
Caption = #25171#21360#21367#26631#31614 Caption = #25171#21360#21367#26631#31614
ImageIndex = 4 ImageIndex = 4
Wrap = True
Visible = False Visible = False
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 0 Left = 510
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #20837#24211#24182#25171#21360#20179#24211#30721#21333 Caption = #20837#24211#24182#25171#21360#20179#24211#30721#21333
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 147 Left = 657
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #37325#25171#20179#24211#30721#21333 Caption = #37325#25171#20179#24211#30721#21333
ImageIndex = 4 ImageIndex = 4
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object B1: TToolButton object B1: TToolButton
Left = 258 Left = 768
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#30721#26085#24535 Caption = #25171#30721#26085#24535
ImageIndex = 22 ImageIndex = 22
OnClick = B1Click OnClick = B1Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 345 Left = 855
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 68 ImageIndex = 68
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 408 Left = 918
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 21 ImageIndex = 21
@ -135,8 +133,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 32
Width = 1349 Width = 1341
Height = 81 Height = 81
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -585,9 +583,9 @@ object frmJYOrderCDList: TfrmJYOrderCDList
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 196 Top = 166
Width = 1349 Width = 1341
Height = 494 Height = 516
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4
@ -1083,15 +1081,15 @@ object frmJYOrderCDList: TfrmJYOrderCDList
end end
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 143 Top = 113
Width = 1349 Width = 1341
Height = 28 Height = 28
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 2 TabOrder = 2
DesignSize = ( DesignSize = (
1345 1337
24) 24)
object Label31: TLabel object Label31: TLabel
Left = 25 Left = 25
@ -1184,8 +1182,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList
end end
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 171 Top = 141
Width = 1349 Width = 1341
Height = 25 Height = 25
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1204,7 +1202,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 27 ClientRectBottom = 27
ClientRectRight = 1349 ClientRectRight = 1341
ClientRectTop = 27 ClientRectTop = 27
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu

View File

@ -297,7 +297,7 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' exec P_Print_RKMDGangNo '); sql.Add(' exec P_Print_RKMDGangNo_W ');
SQL.Add(' @RKOrdID=''' + Trim(MRKOrdID) + ''''); SQL.Add(' @RKOrdID=''' + Trim(MRKOrdID) + '''');
Open; Open;
end; end;