~

T05贸易门市管理/U_TradeMarketList.dfm

@@ -21,7 +21,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
     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: TfrmTradeMarketList
       OnClick = TBRafreshClick
     end
     object TBAdd: TToolButton
-      Left = 63
+      Left = 71
       Top = 0
       AutoSize = True
       Caption = #26032#22686
@@ -44,7 +44,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBAddClick
     end
     object btnCopy: TToolButton
-      Left = 126
+      Left = 142
       Top = 0
       AutoSize = True
       Caption = #22797#21046
@@ -52,7 +52,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = btnCopyClick
     end
     object TBEdit: TToolButton
-      Left = 189
+      Left = 213
       Top = 0
       AutoSize = True
       Caption = #20462#25913
@@ -60,7 +60,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBEditClick
     end
     object TBDel: TToolButton
-      Left = 252
+      Left = 284
       Top = 0
       AutoSize = True
       Caption = #21024#38500
@@ -68,7 +68,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBDelClick
     end
     object TBPrint: TToolButton
-      Left = 315
+      Left = 355
       Top = 0
       AutoSize = True
       Caption = #25171#21360
@@ -76,7 +76,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBPrintClick
     end
     object TBCK: TToolButton
-      Left = 378
+      Left = 426
       Top = 0
       AutoSize = True
       Caption = #26597#30475
@@ -84,7 +84,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBCKClick
     end
     object ToolButton4: TToolButton
-      Left = 441
+      Left = 497
       Top = 0
       AutoSize = True
       Caption = #38468#20214
@@ -92,7 +92,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = ToolButton4Click
     end
     object TBTJ: TToolButton
-      Left = 504
+      Left = 568
       Top = 0
       AutoSize = True
       Caption = #37197#36135#23436#25104
@@ -100,7 +100,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBTJClick
     end
     object TBTJCX: TToolButton
-      Left = 591
+      Left = 671
       Top = 0
       AutoSize = True
       Caption = #25764#38144#37197#36135#23436#25104
@@ -108,7 +108,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBTJCXClick
     end
     object TWC: TToolButton
-      Left = 702
+      Left = 806
       Top = 0
       AutoSize = True
       Caption = #24050#35013#36710
@@ -116,7 +116,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TWCClick
     end
     object TNowc: TToolButton
-      Left = 777
+      Left = 893
       Top = 0
       AutoSize = True
       Caption = #25764#38144#35013#36710
@@ -124,7 +124,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TNowcClick
     end
     object ToolButton2: TToolButton
-      Left = 864
+      Left = 996
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -132,7 +132,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = ToolButton2Click
     end
     object ToolButton1: TToolButton
-      Left = 951
+      Left = 1099
       Top = 0
       AutoSize = True
       Caption = #23548#20986
@@ -140,7 +140,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = ToolButton1Click
     end
     object TBClose: TToolButton
-      Left = 1014
+      Left = 1170
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -148,7 +148,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBCloseClick
     end
     object TBZF: TToolButton
-      Left = 1077
+      Left = 1241
       Top = 0
       AutoSize = True
       Caption = #20316#24223
@@ -156,7 +156,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBZFClick
     end
     object TBNOZF: TToolButton
-      Left = 1140
+      Left = 1312
       Top = 0
       AutoSize = True
       Caption = #25764#38144#20316#24223
@@ -264,6 +264,8 @@ inherited frmTradeMarketList: TfrmTradeMarketList
     Align = alClient
     PopupMenu = PM_1
     TabOrder = 3
+    ExplicitLeft = 8
+    ExplicitTop = 158
     object Tv1: TcxGridDBTableView
       OnDblClick = Tv1DblClick
       Navigator.Buttons.CustomButtons = <>

T05贸易门市管理/U_TradeMarketList.pas

@@ -1055,7 +1055,7 @@ begin
       sql.Clear;
       sql.Add('update  Trade_Market_Main SET status=''1''  ');
       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(' ' + quotedstr(trim(DName)));
       sql.Add(',getdate() ');