This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-22 16:19:56 +08:00
parent 61c4ec4ace
commit 7bd71c65c5
2 changed files with 19 additions and 20 deletions

View File

@ -21,7 +21,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 107
ButtonWidth = 131
Caption = 'ToolBar1'
Images = DataLink_TradeMarket.cxImageList_bar
List = True
@ -36,7 +36,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = TBRafreshClick
end
object TBAdd: TToolButton
Left = 63
Left = 71
Top = 0
AutoSize = True
Caption = #26032#22686
@ -44,7 +44,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = TBAddClick
end
object btnCopy: TToolButton
Left = 126
Left = 142
Top = 0
AutoSize = True
Caption = #22797#21046
@ -52,7 +52,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = btnCopyClick
end
object TBEdit: TToolButton
Left = 189
Left = 213
Top = 0
AutoSize = True
Caption = #20462#25913
@ -60,7 +60,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 252
Left = 284
Top = 0
AutoSize = True
Caption = #21024#38500
@ -68,7 +68,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = TBDelClick
end
object TBPrint: TToolButton
Left = 315
Left = 355
Top = 0
AutoSize = True
Caption = #25171#21360
@ -76,7 +76,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = TBPrintClick
end
object TBCK: TToolButton
Left = 378
Left = 426
Top = 0
AutoSize = True
Caption = #26597#30475
@ -84,7 +84,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = TBCKClick
end
object ToolButton4: TToolButton
Left = 441
Left = 497
Top = 0
AutoSize = True
Caption = #38468#20214
@ -92,7 +92,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = ToolButton4Click
end
object TBTJ: TToolButton
Left = 504
Left = 568
Top = 0
AutoSize = True
Caption = #37197#36135#23436#25104
@ -101,7 +101,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = TBTJClick
end
object TBTJCX: TToolButton
Left = 591
Left = 671
Top = 0
AutoSize = True
Caption = #25764#38144#37197#36135#23436#25104
@ -110,7 +110,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = TBTJCXClick
end
object TWC: TToolButton
Left = 702
Left = 806
Top = 0
AutoSize = True
Caption = #24050#23436#25104
@ -118,7 +118,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = TWCClick
end
object TNowc: TToolButton
Left = 777
Left = 893
Top = 0
AutoSize = True
Caption = #25764#38144#23436#25104
@ -126,7 +126,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = TNowcClick
end
object ToolButton2: TToolButton
Left = 864
Left = 996
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -134,7 +134,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 951
Left = 1099
Top = 0
AutoSize = True
Caption = #23548#20986
@ -142,7 +142,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 1014
Left = 1170
Top = 0
AutoSize = True
Caption = #20851#38381
@ -150,7 +150,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = TBCloseClick
end
object TBZF: TToolButton
Left = 1077
Left = 1241
Top = 0
AutoSize = True
Caption = #20316#24223
@ -158,7 +158,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
OnClick = TBZFClick
end
object TBNOZF: TToolButton
Left = 1140
Left = 1312
Top = 0
AutoSize = True
Caption = #25764#38144#20316#24223
@ -528,7 +528,6 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
' '#24050#23436#25104' '
' '#20840#37096' ')
OnChange = cxTabControl1Change
ExplicitTop = 115
ClientRectBottom = 31
ClientRectRight = 1924
ClientRectTop = 28

View File

@ -872,7 +872,7 @@ begin
begin
close;
sql.Clear;
sql.Add('update Trade_Market_Main SET status=''9'' ');
sql.Add('update Trade_Market_Main SET status=''10'' ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
@ -918,7 +918,7 @@ begin
begin
close;
sql.Clear;
sql.Add('update Trade_Market_Main SET status=''2'' ');
sql.Add('update Trade_Market_Main SET status=''1'' ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');