Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
T05贸易门市管理/U_TradeMarketList_XY.dfm
View File

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

4
T05贸易门市管理/U_TradeMarketList_XY.pas
View File

@ -872,7 +872,7 @@ begin
begin begin
close; close;
sql.Clear; 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('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
@ -918,7 +918,7 @@ begin
begin begin
close; close;
sql.Clear; 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('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');