From 763e46941790c7076826438b226c05e86dc34fd4 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 6 Dec 2025 16:59:27 +0800 Subject: [PATCH] =?UTF-8?q?=E6=96=B0=E5=A2=9E=E9=97=A8=E5=B8=82=E5=89=AA?= =?UTF-8?q?=E6=A0=B7?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- T05贸易门市管理/U_GetDllForm.pas | 26 +- T05贸易门市管理/U_TradeMarketList.dfm | 76 +- T05贸易门市管理/U_TradeSampletList.dfm | 691 ++++++++++++++ T05贸易门市管理/U_TradeSampletList.pas | 1165 ++++++++++++++++++++++++ 4 files changed, 1907 insertions(+), 51 deletions(-) create mode 100644 T05贸易门市管理/U_TradeSampletList.dfm create mode 100644 T05贸易门市管理/U_TradeSampletList.pas diff --git a/T05贸易门市管理/U_GetDllForm.pas b/T05贸易门市管理/U_GetDllForm.pas index ac4b1ac..505c0ea 100644 --- a/T05贸易门市管理/U_GetDllForm.pas +++ b/T05贸易门市管理/U_GetDllForm.pas @@ -15,7 +15,7 @@ function GetsysParam(muserId: pchar; fparam1: pchar): Boolean; implementation uses - U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList, + U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList,U_TradeSampletList, U_TradeMarketList_JD, U_TradeMarketList_XY,U_TradeMarketList_JDT; ///////////////////////////////////////////////////////////////// @@ -178,18 +178,18 @@ begin mnewHandle := Handle; end; end; -// 112: // -// begin -// with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do // -// begin -// fFormID := FormID; -// FOrdType := ''; -// FormStyle := mstyle; -// WindowState := mstate; -// BorderStyle := mborderstyle; -// mnewHandle := Handle; -// end; -// end; + 121: // + begin + with TfrmTradeSampleList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do // + begin + fFormID := FormID; + FOrdType := 'ŵ'; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; // // 121: // // begin diff --git a/T05贸易门市管理/U_TradeMarketList.dfm b/T05贸易门市管理/U_TradeMarketList.dfm index 8f60edd..c0dce62 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,39 +116,15 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TWCClick end object TNowc: TToolButton - Left = 777 + Left = 893 Top = 0 AutoSize = True Caption = #25764#38144#35013#36710 ImageIndex = 11 OnClick = TNowcClick end - object ToolButton2: TToolButton - Left = 864 - Top = 0 - AutoSize = True - Caption = #20445#23384#26684#24335 - ImageIndex = 16 - OnClick = ToolButton2Click - end - object ToolButton1: TToolButton - Left = 951 - Top = 0 - AutoSize = True - Caption = #23548#20986 - ImageIndex = 28 - OnClick = ToolButton1Click - end - object TBClose: TToolButton - Left = 1014 - Top = 0 - AutoSize = True - Caption = #20851#38381 - ImageIndex = 7 - OnClick = TBCloseClick - end object TBZF: TToolButton - Left = 1077 + Left = 996 Top = 0 AutoSize = True Caption = #20316#24223 @@ -156,13 +132,37 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TBZFClick end object TBNOZF: TToolButton - Left = 1140 + Left = 1067 Top = 0 AutoSize = True Caption = #25764#38144#20316#24223 ImageIndex = 11 OnClick = TBNOZFClick end + object ToolButton2: TToolButton + Left = 1170 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 1273 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 28 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 1344 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end end object Panel1: TPanel [1] Left = 0 diff --git a/T05贸易门市管理/U_TradeSampletList.dfm b/T05贸易门市管理/U_TradeSampletList.dfm new file mode 100644 index 0000000..f64b81e --- /dev/null +++ b/T05贸易门市管理/U_TradeSampletList.dfm @@ -0,0 +1,691 @@ +inherited frmTradeSampleList: TfrmTradeSampleList + Left = 165 + Top = 13 + Caption = #38376#24215#21098#26679 + ClientHeight = 594 + ClientWidth = 1924 + Color = clBtnFace + Font.Height = -16 + FormStyle = fsMDIChild + Position = poScreenCenter + Visible = True + ExplicitWidth = 1940 + ExplicitHeight = 633 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1924 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 131 + Caption = 'ToolBar1' + Images = DataLink_TradeMarket.cxImageList_bar + List = True + ShowCaptions = True + TabOrder = 4 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBAdd: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + Visible = False + OnClick = TBAddClick + end + object btnCopy: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 13 + Visible = False + OnClick = btnCopyClick + end + object TBEdit: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + Visible = False + OnClick = TBDelClick + end + object TBPrint: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = TBPrintClick + end + object TBCK: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 8 + Visible = False + OnClick = TBCKClick + end + object ToolButton4: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #38468#20214 + ImageIndex = 22 + OnClick = ToolButton4Click + end + object TBTJ: TToolButton + Left = 568 + Top = 0 + AutoSize = True + Caption = #37197#36135#23436#25104 + ImageIndex = 12 + Visible = False + OnClick = TBTJClick + end + object TBTJCX: TToolButton + Left = 671 + Top = 0 + AutoSize = True + Caption = #25764#38144#37197#36135#23436#25104 + ImageIndex = 11 + Visible = False + OnClick = TBTJCXClick + end + object TWC: TToolButton + Left = 806 + Top = 0 + AutoSize = True + Caption = #24050#35013#36710 + ImageIndex = 12 + Visible = False + OnClick = TWCClick + end + object TNowc: TToolButton + Left = 893 + Top = 0 + AutoSize = True + Caption = #25764#38144#35013#36710 + ImageIndex = 11 + Visible = False + OnClick = TNowcClick + end + object ToolButton2: TToolButton + Left = 996 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 1099 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 28 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 1170 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + object TBZF: TToolButton + Left = 1241 + Top = 0 + AutoSize = True + Caption = #20316#24223 + ImageIndex = 31 + Visible = False + OnClick = TBZFClick + end + object TBNOZF: TToolButton + Left = 1312 + Top = 0 + AutoSize = True + Caption = #25764#38144#20316#24223 + ImageIndex = 11 + Visible = False + OnClick = TBNOZFClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 1924 + Height = 91 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + ParentBackground = False + TabOrder = 5 + object Label3: TLabel + Left = 24 + Top = 51 + Width = 64 + Height = 21 + Caption = #21333#25454#32534#21495 + end + object Label1: TLabel + Left = 408 + Top = 51 + Width = 32 + Height = 21 + Caption = #23458#25143 + end + object Label2: TLabel + Left = 216 + Top = 51 + Width = 64 + Height = 21 + Caption = #33394#24067#21517#31216 + end + object Label4: TLabel + Left = 568 + Top = 51 + Width = 48 + Height = 21 + Caption = #21512#21516#21495 + end + object TMMNo: TcxTextEdit + Tag = 2 + Left = 92 + Top = 47 + TabOrder = 0 + OnKeyPress = TMMNoKeyPress + Width = 120 + end + object CustName: TcxTextEdit + Tag = 2 + Left = 444 + Top = 47 + TabOrder = 1 + OnKeyPress = TMMNoKeyPress + Width = 120 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 284 + Top = 47 + TabOrder = 2 + OnKeyPress = TMMNoKeyPress + Width = 120 + end + object ConNo: TcxTextEdit + Tag = 2 + Left = 620 + Top = 47 + TabOrder = 3 + OnKeyPress = TMMNoKeyPress + Width = 120 + end + inline frmFrameDateSel1: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 1920 + Height = 37 + Align = alTop + Color = clWhite + ParentBackground = False + ParentColor = False + TabOrder = 4 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 1920 + ExplicitHeight = 37 + inherited lbl2: TLabel + Width = 16 + Height = 21 + ExplicitWidth = 16 + ExplicitHeight = 21 + end + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 152 + Width = 1924 + Height = 442 + Align = alClient + PopupMenu = PM_1 + TabOrder = 3 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.CellHints = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + object v1Column16: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column7: TcxGridDBColumn + Caption = #21333#25454#32534#21495 + DataBinding.FieldName = 'TMMNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'TMMDate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column2: TcxGridDBColumn + Caption = #32463#33829#21333#20301 + DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column4: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column6: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'FILLER' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21457#36135#22320#22336 + DataBinding.FieldName = 'ShippingAddress' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column5: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'CONTACT' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column9: TcxGridDBColumn + Caption = #33394#24067#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column12: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column17: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object Tv1Column11: TcxGridDBColumn + Caption = #25253#21333#25968#37327 + DataBinding.FieldName = 'OrderQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 104 + end + object Tv1Column22: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'OutQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 84 + end + object Tv1Column23: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column24: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column13: TcxGridDBColumn + Caption = #25253#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 91 + end + object Tv1Column19: TcxGridDBColumn + Caption = #27424#21333#25968 + DataBinding.FieldName = 'OrderOweQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 84 + end + object Tv1Column14: TcxGridDBColumn + Caption = #24211#23384#38656#27714 + DataBinding.FieldName = 'TMSQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object Tv1Column18: TcxGridDBColumn + Caption = #22791#36135#25968#37327 + DataBinding.FieldName = 'StkQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 111 + end + object Tv1Column15: TcxGridDBColumn + Caption = #22791#36135#21333#20301 + DataBinding.FieldName = 'TMSUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object Tv1Column21: TcxGridDBColumn + Caption = #22791#36135#29366#24577 + DataBinding.FieldName = 'StkStatus' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object Tv1Column10: TcxGridDBColumn + Caption = #27004#23618 + DataBinding.FieldName = 'StkPosition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object Tv1Column16: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdSNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column20: TcxGridDBColumn + Caption = #32039#24613#31243#24230 + DataBinding.FieldName = 'Urgent' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object Tv1Column25: TcxGridDBColumn + Caption = #35746#21333#31867#22411 + DataBinding.FieldName = 'OrdType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl [3] + Left = 0 + Top = 121 + Width = 1924 + Height = 31 + Align = alTop + TabOrder = 2 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + ' '#26410#23436#25104' ' + ' '#24050#23436#25104' ' + ' '#20840#37096' ') + OnChange = cxTabControl1Change + ClientRectBottom = 31 + ClientRectRight = 1924 + ClientRectTop = 28 + end + inherited loadProcess: TPanel + Left = 720 + Top = 354 + ExplicitLeft = 720 + ExplicitTop = 354 + end + inherited cxProgressBar2: TcxProgressBar + Left = 720 + Top = 296 + ExplicitLeft = 720 + ExplicitTop = 296 + ExplicitHeight = 29 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Left = 255 + Top = 314 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Left = 157 + Top = 256 + end + object cxgrdpmn1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 660 + Top = 428 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Parameters = <> + Left = 568 + Top = 240 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 420 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 320 + Top = 224 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 812 + Top = 440 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 724 + Top = 432 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Parameters = <> + Left = 312 + Top = 600 + end + object DataSource2: TDataSource + DataSet = ORDER_SUB + Left = 408 + Top = 604 + end + object ADOQueryImage: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + EnableBCD = False + Parameters = <> + Left = 316 + Top = 283 + end + object DSImage: TDataSource + DataSet = ADOQueryImage + Left = 416 + Top = 288 + end + object IdFTP1: TIdFTP + ConnectTimeout = 0 + NATKeepAlive.UseKeepAlive = False + NATKeepAlive.IdleTimeMS = 0 + NATKeepAlive.IntervalMS = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + ReadTimeout = 0 + Left = 92 + Top = 258 + end + object ORDER_SUB: TClientDataSet + Aggregates = <> + Params = <> + Left = 212 + Top = 608 + end + object PopupMenu2: TPopupMenu + Left = 532 + Top = 636 + object N3: TMenuItem + Caption = #20840#36873 + OnClick = N3Click + end + object N4: TMenuItem + Caption = #20840#24323 + OnClick = N4Click + end + object N2: TMenuItem + Caption = #22797#21046 + end + end + object cxgrdpmn2: TcxGridPopupMenu + PopupMenus = <> + Left = 660 + Top = 636 + end + object CDS_WXTS: TClientDataSet + Aggregates = <> + Params = <> + Left = 412 + Top = 424 + end + object PM_1: TPopupMenu + Left = 988 + Top = 356 + object N1: TMenuItem + Caption = #22797#21046 + OnClick = N1Click + end + object N5: TMenuItem + Caption = #20840#36873 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #20840#24323 + OnClick = N6Click + end + end + object GPM_3: TcxGridPopupMenu + PopupMenus = <> + Left = 860 + Top = 228 + end +end diff --git a/T05贸易门市管理/U_TradeSampletList.pas b/T05贸易门市管理/U_TradeSampletList.pas new file mode 100644 index 0000000..2f9f2fa --- /dev/null +++ b/T05贸易门市管理/U_TradeSampletList.pas @@ -0,0 +1,1165 @@ +unit U_TradeSampletList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, + cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, + cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls, + RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu, + cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, + IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math, + dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, + dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore, + dxSkinsDefaultPainters; + +type + TfrmTradeSampleList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxgrdpmn1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + TMMNo: TcxTextEdit; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + Order_Main: TClientDataSet; + TBCK: TToolButton; + btnCopy: TToolButton; + ADOQuerySub: TADOQuery; + DataSource2: TDataSource; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + TWC: TToolButton; + TNowc: TToolButton; + ADOQueryImage: TADOQuery; + DSImage: TDataSource; + IdFTP1: TIdFTP; + TBTJ: TToolButton; + TBTJCX: TToolButton; + v1Column16: TcxGridDBColumn; + ORDER_SUB: TClientDataSet; + PopupMenu2: TPopupMenu; + N3: TMenuItem; + N4: TMenuItem; + Label1: TLabel; + CustName: TcxTextEdit; + Tv1Column6: TcxGridDBColumn; + cxgrdpmn2: TcxGridPopupMenu; + Tv1Column2: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Label2: TLabel; + C_Name: TcxTextEdit; + CDS_WXTS: TClientDataSet; + Label4: TLabel; + ConNo: TcxTextEdit; + ToolButton2: TToolButton; + PM_1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + GPM_3: TcxGridPopupMenu; + Tv1Column4: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + frmFrameDateSel1: TfrmFrameDateSel; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; + Tv1Column16: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + ToolButton1: TToolButton; + Tv1Column11: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + Tv1Column19: TcxGridDBColumn; + Tv1Column20: TcxGridDBColumn; + Tv1Column21: TcxGridDBColumn; + N5: TMenuItem; + N6: TMenuItem; + Tv1Column22: TcxGridDBColumn; + Tv1Column23: TcxGridDBColumn; + Tv1Column24: TcxGridDBColumn; + TBZF: TToolButton; + TBNOZF: TToolButton; + Tv1Column25: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure TBCKClick(Sender: TObject); + procedure btnCopyClick(Sender: TObject); + procedure TMMNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); +// procedure TchkClick(Sender: TObject); +// procedure TnochkClick(Sender: TObject); + procedure TWCClick(Sender: TObject); + procedure TNowcClick(Sender: TObject); + procedure TBTJClick(Sender: TObject); + procedure TBTJCXClick(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure ComboBox1Change(Sender: TObject); + procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton10Click(Sender: TObject); + procedure JGTypeChange(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure TBZFClick(Sender: TObject); + procedure TBNOZFClick(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + private + DQdate: TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + procedure SetStatus(); + procedure InitImage(fwbid: string); + procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string); + { Private declarations } + public + FFInt, FCloth: Integer; + canshu1, canshu2, canshu4: string; + fFlileFlag: string; + FNOTE: string; + FOrdType: string; + { Public declarations } + end; + +var + frmTradeSampleList: TfrmTradeSampleList; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload, + U_TradeMarketInPut; + +{$R *.dfm} + +procedure TfrmTradeSampleList.InitImage(fwbid: string); +begin + ADOQueryImage.close; + if fwbid = '' then + exit; + with ADOQueryImage do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where WBID=' + quotedstr(trim(fwbid))); + open; + end; +end; + +procedure TfrmTradeSampleList.SetStatus(); +begin + btnCopy.Enabled := false; + tbadd.Enabled := false; + TBEdit.Enabled := False; + TBDel.Enabled := False; + TBTJ.Enabled := False; + TBTJCX.Enabled := False; +// tchk.Enabled := false; +// tnochk.Enabled := false; + TWC.Enabled := False; + TNowc.Enabled := False; + TBDel.Enabled := False; + + case cxTabControl1.TabIndex of + 0: + begin + tbadd.Enabled := True; + TBEdit.Enabled := True; + TBDel.Enabled := True; + TBTJ.Enabled := True; + btnCopy.Enabled := True; + end; + 1: + begin + TBTJCX.Enabled := True; + btnCopy.Enabled := True; + TBDel.Enabled := True; + //tchk.Enabled := True; + TWC.Enabled := True; + btnCopy.Enabled := True; + end; +// 2: +// begin +// +// +// //tnochk.Enabled := True; +// end; + 2: + begin + TNowc.Enabled := True; + btnCopy.Enabled := True; + end; + end; + +end; + +procedure TfrmTradeSampleList.JGTypeChange(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTradeSampleList.FormDestroy(Sender: TObject); +begin + inherited; +// frmProductOrderList:=nil; +end; + +procedure TfrmTradeSampleList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTradeSampleList.FormCreate(Sender: TObject); +begin + inherited; + cxgrid1.Align := alClient; + DQdate := SGetServerDate(ADOQueryTemp); + +end; + +procedure TfrmTradeSampleList.TBCloseClick(Sender: TObject); +begin + + Close; + +end; + +procedure TfrmTradeSampleList.InitGrid(); +var + SqlStr, FilterStr: string; +begin + FilterStr := SGetFilters(Panel1, 1, 2); + + SqlStr := ' exec P_Trade_Sample_View '; + SqlStr := SqlStr + ' @BegDate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))); + SqlStr := SqlStr + ' ,@EndDate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))); + SqlStr := SqlStr + ' ,@StkPosition= ' + QuotedStr(Trim(canshu2)); + if canshu1 = '¼' then + SqlStr := SqlStr + ' ,@Filler= ' + QuotedStr(Trim(DName)); + + SqlStr := SqlStr + ' ,@Stores= ' + QuotedStr(Trim(canshu4)); + case cxTabControl1.TabIndex of // 1δ29װ 10ѻص + 0: + begin + SqlStr := SqlStr + ' , @Status=''1'' '; //ύ + end; + 1: + + begin + SqlStr := SqlStr + ' , @Status=''10'' '; //ѻص + end; + + end; +// ShowMessage(SqlStr); + InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId'); +end; + +procedure TfrmTradeSampleList.SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string); +begin +// with ADOQueryTemp do +// begin +// Close; +// SQL.Clear; +// sql.Add('select distinct A.* from SY_User A inner join SY_Purview B on A.UserID=B.UserID where A.Valid=''Y'' '); +// SQL.Add('and isnull(A.wxid,'''')<>'''''); +// SQL.Add(' and exists(select 1 from SY_ModuleSub X where X.ModuleID=B.ModuleID and X.ModuleSubID=B.ModuleSubID and X.FormName=''ƻ'' )'); +//// showmessage(sql.text); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, CDS_WXTS); +// SInitCDSData(ADOQueryTemp, CDS_WXTS); +// +// if CDS_WXTS.IsEmpty then +// begin +// Application.MessageBox('ûδ΢,ύʧܣ', 'ʾϢ', 0); +// Exit; +// end; +// CDS_WXTS.First; +// while not CDS_WXTS.eof do +// begin +// with ADOQueryCmd do +// begin +// Close; +// SQL.Clear; +// SQL.Add('select * from WeixinMessage where 1<>1'); +// Open; +// Append; +// FieldByName('MessageType').Value := 'OrderToAudit'; +// FieldByName('MessageName').Value := 'ƻ'; +// FieldByName('Title').Value := 'µƻ'; +// FieldByName('URL').Value := 'subpages/plan/view?id=' + Trim(MDateId); +// FieldByName('OpenId').Value := Trim(CDS_WXTS.FieldByName('wxid').AsString); +// FieldByName('Status').Value := '0'; +// FieldByName('CreateDate').Value := FormatDateTime('yyyymmdd', SGetServerDateTime(ADOQueryTemp)); +// FieldByName('CreateTime').Value := FormatDateTime('HH:mm:ss', SGetServerDateTime(ADOQueryTemp)); +// FieldByName('BusinessId').Value := Trim(MDateId); +// FieldByName('KeyWord1').Value := Trim(KeyWord1); +// FieldByName('KeyWord2').Value := Trim(KeyWord2); +// FieldByName('KeyWord3').Value := Trim(KeyWord3); +// FieldByName('Remark').Value := 'ɲѯ飡'; +// Post; +// end; +// CDS_WXTS.Next; +// end; +// +// GetHTTP('http://aotang.rightsoft.top/api/message/send/OrderToAudit'); +end; + +procedure TfrmTradeSampleList.InitForm(); +begin + ReadCxGrid('ָʾбFF1', Tv1, 'ָʾ'); + frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180; + frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp); + + SetStatus(); + InitGrid(); +end; + +procedure TfrmTradeSampleList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + + try + frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application); + with frmTradeMarketInPut do + begin + + PState := 1; + FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString); + FTMMNo := Trim(Self.Order_Main.fieldbyname('TMMNo').AsString); + canshu1 := self.canshu1; + canshu4 := self.canshu4; + frmTradeMarketInPut.fordtype := self.fordtype; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTradeMarketInPut.Free; + end; + +end; + +procedure TfrmTradeSampleList.TBNOZFClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + 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) '); + sql.Add('values(''óײ'' '); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(','''' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(') '); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ƻ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ƻϳɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ƻʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTradeSampleList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + + while Order_Main.Locate('SSel', true, []) do + begin + if Trim(Order_Main.fieldbyname('TMMId').AsString) <> '' then + begin + DelData() + end; + Order_Main.Delete; + end; +end; + +function TfrmTradeSampleList.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Trade_Market_Main where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + ''''); + sql.Add('delete Trade_Market_Sub where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + ''''); + + sql.Add('delete Trade_Market_Sub_Qty where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + ''''); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ɾ'))); + sql.Add(',' + quotedstr(trim('ţ' + trim(Order_Main.FieldByName('TMMNo').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmTradeSampleList.TBPrintClick(Sender: TObject); +var + WSql: string; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ', 'ʾ', 0); + Exit; + end; + WSql := ''; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + Trim(Order_Main.fieldbyname('TMSId').AsString); + end + else + begin + WSql := Trim(Order_Main.fieldbyname('TMSId').AsString); + end; + end; + Next; + end; + end; + Order_Main.Locate('SSel', True, []); + Order_Main.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeSamplePrint'; + FFiltration1 := Trim(WSql); + if ShowModal = 1 then + begin +// Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTradeSampleList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTradeSampleList.TBAddClick(Sender: TObject); +begin + try + frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application); + with frmTradeMarketInPut do + begin + PState := 0; + FTMMId := ''; + canshu1 := self.canshu1; + canshu4 := self.canshu4; + frmTradeMarketInPut.fordtype := self.fordtype; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmTradeMarketInPut.Free; + end; +end; + +procedure TfrmTradeSampleList.OrderNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, Order_Main); + SInitCDSData(ADOQueryMain, Order_Main); +end; + +procedure TfrmTradeSampleList.FormShow(Sender: TObject); +begin + inherited; + canshu1 := trim(self.fParameters1); + canshu2 := trim(self.fParameters2); + canshu4 := trim(self.fParameters4); + fFlileFlag := UserDataFlag + 'HX'; + cxTabControl1.TabIndex := 0; + InitForm(); +end; + +procedure TfrmTradeSampleList.TBTPClick(Sender: TObject); +var + FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string; +begin +end; + +procedure TfrmTradeSampleList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTradeSampleList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmTradeSampleList.Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id, id10: Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmTradeSampleList.v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmTradeSampleList.TBCKClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + try + frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application); + with frmTradeMarketInPut do + begin + PState := 1; + FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString); + ToolBar2.Visible := False; + TBSave.Visible := False; + ScrollBox1.Enabled := True; + N2.Visible := False; + frmTradeMarketInPut.fordtype := self.fordtype; + TvMX.OnCellDblClick := nil; + Panel5.Visible := False; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTradeMarketInPut.Free; + end; + +end; + +procedure TfrmTradeSampleList.btnCopyClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + try + frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application); + with frmTradeMarketInPut do + begin + PState := 1; + CopyInt := 99; + FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString); + canshu1 := self.canshu1; + canshu4 := self.canshu4; + frmTradeMarketInPut.fordtype := self.fordtype; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTradeMarketInPut.Free; + end; + +end; + +procedure TfrmTradeSampleList.TMMNoKeyPress(Sender: TObject; var Key: Char); +begin + + if Key = #13 then + begin + initgrid(); + end; +end; + +procedure TfrmTradeSampleList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTradeSampleList.Tv1DblClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + try + frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application); + with frmTradeMarketInPut do + begin + PState := 1; + FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString); + ToolBar2.Enabled := False; + TBSave.Enabled := False; + ScrollBox1.Enabled := False; + N2.Visible := False; + frmTradeMarketInPut.fordtype := self.fordtype; + TvMX.OnCellDblClick := nil; + Panel5.Enabled := False; + canshu4 := self.canshu4; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTradeMarketInPut.Free; + end; + +end; + +procedure TfrmTradeSampleList.ToolButton4Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmAttachmentUpload := TfrmAttachmentUpload.Create(Application); + with frmAttachmentUpload do + begin + if Trim(canshu1) <> 'ѯ' then + FEditAuthority := True; + fkeyNO := Trim(Self.Order_Main.fieldbyname('TMMId').AsString); + fType := 'ָʾ'; + if ShowModal = 1 then + begin + + end; + end; + finally + frmAttachmentUpload.Free; + end; +end; + +procedure TfrmTradeSampleList.cxTabControl1Change(Sender: TObject); +begin +// SetStatus(); + InitGrid(); +end; + +//procedure TfrmTradeMarketList.TchkClick(Sender: TObject); +//begin +// if Order_Main.IsEmpty then +// exit; +// if cxTabControl1.TabIndex <> 1 then +// begin +// Application.MessageBox('ֻڴ״̬½˲!', 'ʾ', 0); +// Exit; +// end; +// if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then +// Exit; +// try +// with ADOQueryCmd do +// begin +// close; +// sql.Clear; +// sql.Add('update Trade_Market_Main SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() '); +// sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); +// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); +// sql.Add(' ' + quotedstr(trim(DName))); +// sql.Add(',getdate() '); +// sql.Add(',' + quotedstr(trim(self.Caption))); +// sql.Add(',' + quotedstr(trim('ƻ'))); +// sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); +// sql.Add(',' + quotedstr(trim('ɹ'))); +// sql.Add(')'); +// execsql; +// end; +// +// except +// application.MessageBox('ƻʧܣ', 'ʾϢ', 0); +// end; +// TBRafresh.Click; +//end; + +//procedure TfrmTradeMarketList.TnochkClick(Sender: TObject); +//begin +// if Order_Main.IsEmpty then +// exit; +// if cxTabControl1.TabIndex <> 2 then +// begin +// Application.MessageBox('ֻ״̬½˲!', 'ʾ', 0); +// Exit; +// end; +// try +// with ADOQueryCmd do +// begin +// close; +// sql.Clear; +// sql.Add('update Trade_Market_Main SET status=''1'',chker=null,Chktime=null '); +// sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); +// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); +// sql.Add(' ' + quotedstr(trim(DName))); +// sql.Add(',getdate() '); +// sql.Add(',' + quotedstr(trim(self.Caption))); +// sql.Add(',' + quotedstr(trim('ƻ'))); +// sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); +// sql.Add(',' + quotedstr(trim('ɹ'))); +// sql.Add(')'); +// execsql; +// end; +// TBRafresh.Click; +// except +// application.MessageBox('ƻʧܣ', 'ʾϢ', 0); +// end; +//end; + +procedure TfrmTradeSampleList.TWCClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Market_Main SET status=''9'' '); + 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('values(''óײ'' '); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(','''' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(') '); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ƻ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + + application.MessageBox('ƻɳɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ƻʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTradeSampleList.TNowcClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Market_Main SET status=''2'' '); + 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('values(''óײ'' '); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(','''' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(') '); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ƻ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ƻɳɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ƻʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTradeSampleList.TBTJClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + + if canshu1 <> 'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; + + if cxTabControl1.TabIndex <> 0 then + begin + Application.MessageBox('ֻڴύ״̬½ύ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪύ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Market_Main SET status=''2'' '); + sql.Add(' where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ƻύ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + SendMessageQR(trim(Order_Main.FieldByName('TMMId').AsString), trim(Order_Main.FieldByName('Filler').AsString), trim(Order_Main.FieldByName('TMMNO').AsString), Trim(FormatDateTime('yyyy-MM-dd', Order_Main.FieldByName('TMMDate').asdatetime))); + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('exec P_MSG_in '); + sql.Add(' @MSG=' + QuotedStr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString) + ' Ҫ'))); + sql.Add(',@FillUserid=' + QuotedStr(trim(DCode))); + sql.Add(',@FillUserName=' + QuotedStr(trim(DName))); + sql.Add(',@FillType=' + QuotedStr(trim('Ҫȷ'))); + sql.Add(',@MegType=' + QuotedStr(trim('ƻύ'))); + execsql; + end; + application.MessageBox('ƻύɹ', 'ʾϢ'); + + except + application.MessageBox('ƻύʧܣ', 'ʾϢ', 0); + end; + TBRafresh.Click; +end; + +procedure TfrmTradeSampleList.TBTJCXClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if canshu1 <> 'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; + + if cxTabControl1.TabIndex <> 1 then + begin + Application.MessageBox('ֻڴ״̬½ύ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪύ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryCmd do + begin + close; + 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'')=''2'' '); + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ƻύ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ƻύɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ƻύʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTradeSampleList.N1Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTradeSampleList.N3Click(Sender: TObject); +begin + SelOKNoFiler(Tv1, True); //ȫѡ +end; + +procedure TfrmTradeSampleList.N4Click(Sender: TObject); +begin + SelOKNoFiler(Tv1, False); //ȫ +end; + +procedure TfrmTradeSampleList.N5Click(Sender: TObject); +begin + SelOKNo(Order_Main, True); + +end; + +procedure TfrmTradeSampleList.N6Click(Sender: TObject); +begin + SelOKNo(Order_Main, False); + +end; + +procedure TfrmTradeSampleList.ComboBox1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTradeSampleList.CustomerNoNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTradeSampleList.ToolButton10Click(Sender: TObject); +begin + WriteCxGrid('ָʾбFF1', Tv1, 'ָʾ'); + application.MessageBox('ɹ', 'ʾϢ', 0); +end; + +procedure TfrmTradeSampleList.ToolButton1Click(Sender: TObject); +begin + TcxGridToExcel(Trim(Self.Caption), cxGrid1); +end; + +procedure TfrmTradeSampleList.ToolButton2Click(Sender: TObject); +begin + WriteCxGrid('ָʾбFF1', Tv1, 'ָʾ'); +end; + +procedure TfrmTradeSampleList.TBZFClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Market_Main SET status=''11'' '); + 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('values(''óײ'' '); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(','''' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(') '); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ƻ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + + application.MessageBox('ƻϳɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ƻʧܣ', 'ʾϢ', 0); + end; +end; + +end. +