diff --git a/T05贸易门市管理/U_TradeMarketList.dfm b/T05贸易门市管理/U_TradeMarketList.dfm index 8f60edd..dea0569 100644 --- a/T05贸易门市管理/U_TradeMarketList.dfm +++ b/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 = <> diff --git a/T05贸易门市管理/U_TradeMarketList.pas b/T05贸易门市管理/U_TradeMarketList.pas index 2f0353e..835f79f 100644 --- a/T05贸易门市管理/U_TradeMarketList.pas +++ b/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() ');