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-09-30 14:31:19 +08:00
parent 8c1ea222a7
commit 5768595615
2 changed files with 20 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
T05贸易门市管理/U_TradeMarketList.dfm
View File

@ -21,7 +21,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
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: TfrmTradeMarketList
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: TfrmTradeMarketList
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: TfrmTradeMarketList
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: TfrmTradeMarketList
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: TfrmTradeMarketList
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: TfrmTradeMarketList
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: TfrmTradeMarketList
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: TfrmTradeMarketList
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
@ -100,7 +100,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
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
@ -108,7 +108,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
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#35013#36710 Caption = #24050#35013#36710
@ -116,7 +116,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
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#35013#36710 Caption = #25764#38144#35013#36710
@ -124,7 +124,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
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
@ -132,7 +132,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
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
@ -140,7 +140,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
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
@ -148,7 +148,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
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
@ -156,7 +156,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
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
@ -264,6 +264,8 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitLeft = 8
ExplicitTop = 158
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>

2
T05贸易门市管理/U_TradeMarketList.pas
View File

@ -1055,7 +1055,7 @@ begin
sql.Clear; sql.Clear;
sql.Add('update Trade_Market_Main SET status=''1'' '); 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(' and isnull(status,''0'')=''1'' '); sql.Add(' and isnull(status,''0'')=''2'' ');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName))); sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() '); sql.Add(',getdate() ');