diff --git a/T05贸易门市管理/U_TradeMarketList_XY.dfm b/T05贸易门市管理/U_TradeMarketList_XY.dfm index 59240ef..f529a50 100644 --- a/T05贸易门市管理/U_TradeMarketList_XY.dfm +++ b/T05贸易门市管理/U_TradeMarketList_XY.dfm @@ -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 diff --git a/T05贸易门市管理/U_TradeMarketList_XY.pas b/T05贸易门市管理/U_TradeMarketList_XY.pas index 51d17eb..a3da4a0 100644 --- a/T05贸易门市管理/U_TradeMarketList_XY.pas +++ b/T05贸易门市管理/U_TradeMarketList_XY.pas @@ -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) ');