diff --git a/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.dfm b/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.dfm index f14027d..5a978c5 100644 --- a/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.dfm +++ b/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.dfm @@ -7,6 +7,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList Font.Height = -16 FormStyle = fsMDIChild Visible = True + ExplicitLeft = -439 ExplicitWidth = 1306 ExplicitHeight = 751 PixelsPerInch = 96 @@ -231,10 +232,11 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList LayoutLookAndFeel = DataLink_TradePlan.dxLayoutSkinLookAndFeel1 OptionsItem.SizableHorz = True OptionsItem.SizableVert = True + ExplicitTop = 70 object custName: TcxTextEdit Tag = 2 - Left = 671 - Top = 11 + Left = 429 + Top = -12 Properties.OnChange = TfilterClick Style.HotTrack = False Style.TransparentBorder = False @@ -243,8 +245,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList end object ConNo: TcxTextEdit Tag = 2 - Left = 820 - Top = 11 + Left = 578 + Top = -12 Properties.OnChange = TfilterClick Style.HotTrack = False Style.TransparentBorder = False @@ -253,32 +255,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList end object BuyConNo: TcxTextEdit Tag = 2 - Left = 10000 - Top = 9975 - ParentFont = False - Properties.OnChange = TfilterClick - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - Style.TransparentBorder = False - TabOrder = 8 - Visible = False - Width = 121 - end - object OrderNo: TcxTextEdit - Tag = 2 - Left = 481 - Top = 11 - Properties.OnChange = OrderNoPropertiesChange - Style.HotTrack = False - Style.TransparentBorder = False - TabOrder = 3 - Width = 109 - end - object ywy: TcxTextEdit - Tag = 99 - Left = 10000 - Top = 9975 + Left = 9830 + Top = 10000 ParentFont = False Properties.OnChange = TfilterClick Style.BorderColor = clWindowFrame @@ -289,10 +267,34 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList Visible = False Width = 121 end + object OrderNo: TcxTextEdit + Tag = 2 + Left = 239 + Top = -12 + Properties.OnChange = OrderNoPropertiesChange + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 3 + Width = 109 + end + object ywy: TcxTextEdit + Tag = 99 + Left = 9758 + Top = 9952 + ParentFont = False + Properties.OnChange = TfilterClick + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 10 + Visible = False + Width = 121 + end object C_Name: TcxTextEdit Tag = 2 - Left = 1006 - Top = 11 + Left = 764 + Top = -12 ParentFont = False Properties.OnChange = TfilterClick Style.Font.Charset = ANSI_CHARSET @@ -307,8 +309,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList Width = 121 end object endDate: TcxDateEdit - Left = 284 - Top = 11 + Left = 42 + Top = -12 Properties.ImmediatePost = True Style.HotTrack = False Style.TransparentBorder = False @@ -316,8 +318,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList Width = 132 end object begdate: TcxDateEdit - Left = 110 - Top = 11 + Left = -132 + Top = -12 AutoSize = False Properties.ImmediatePost = True Style.HotTrack = False @@ -328,19 +330,19 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList end object FtyPCId: TcxTextEdit Tag = 2 - Left = 10000 - Top = 9975 + Left = 9758 + Top = 9952 Properties.OnChange = TfilterClick Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 10 + TabOrder = 11 Visible = False Width = 105 end object batchNo: TcxTextEdit Tag = 2 - Left = 1208 - Top = 11 + Left = 966 + Top = -12 Properties.OnChange = TfilterClick Style.HotTrack = False Style.TransparentBorder = False @@ -348,8 +350,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList Width = 121 end object TimeType: TComboBox - Left = 16 - Top = 11 + Left = -226 + Top = -12 Width = 85 Height = 29 TabOrder = 0 @@ -358,6 +360,16 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList #21046#21333#26085#26399 #23436#25104#26085#26399) end + object C_color: TcxTextEdit + Tag = 2 + Left = 1136 + Top = -12 + Properties.OnChange = TfilterClick + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 8 + Width = 121 + end object dxLayoutControl_queryGroup_Root: TdxLayoutGroup AlignHorz = ahParentManaged AlignVert = avParentManaged @@ -366,7 +378,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList SizeOptions.SizableHorz = True SizeOptions.SizableVert = True Hidden = True - ItemIndex = 7 + ItemIndex = 8 LayoutDirection = ldHorizontal Padding.Bottom = -5 Padding.Top = -5 @@ -476,6 +488,15 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList ControlOptions.ShowBorder = False Index = 0 end + object dxLayoutItem_C_Color: TdxLayoutItem + Parent = dxLayoutControl_queryGroup_Root + CaptionOptions.Text = #39068#33394 + Control = C_color + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 121 + ControlOptions.ShowBorder = False + Index = 8 + end end object cxPageControl1: TcxPageControl [2] Left = 8 @@ -594,6 +615,13 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList Options.Editing = False Width = 98 end + object Tv1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object v1custName: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'custName' diff --git a/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.pas b/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.pas index 38850d6..13924e5 100644 --- a/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.pas +++ b/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.pas @@ -231,6 +231,9 @@ type btn1: TToolButton; dxLayoutItem3: TdxLayoutItem; TimeType: TComboBox; + Tv1C_Color: TcxGridDBColumn; + C_color: TcxTextEdit; + dxLayoutItem_C_Color: TdxLayoutItem; procedure TBCloseClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); @@ -500,7 +503,6 @@ begin // mdesignCode := fDllFileName +'|'+self.name+ '|' + intTostr(fformId) + '|' + 'cxgrid1'; // addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid1',dxLayoutControl_query,7); //application.ProcessMessages; - end; procedure TfrmTradePlanMgeList.TBAddClick(Sender: TObject); @@ -1776,6 +1778,9 @@ begin Application.MessageBox('ɾ쳣', 'ʾ', 0); end; end; + + + //////////////////////////////////////////////// procedure TfrmTradePlanMgeList.threadLoadform(); diff --git a/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.dproj.local b/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.dproj.local index 6edbed4..161af01 100644 --- a/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.dproj.local +++ b/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.dproj.local @@ -73,12 +73,12 @@ 1899/12/30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas= 1899/12/30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas= - 1899/12/30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas= 1899/12/30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas= - 1899/12/30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas 1899/12/30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas= + 1899/12/30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas + 1899/12/30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas= 1899/12/30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm 1899/12/30 00:00:00.000.720,=D:\Dp10RepoV1\项目代码\D10DJkaimengwenshang\项目代码\wenshangkm\A00通用窗体\U_MdPrint.pas - 1899/12/30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas + 1899/12/30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas diff --git a/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.identcache b/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.identcache index 2dee007..5f88ab9 100644 Binary files a/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.identcache and b/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.identcache differ