diff --git a/项目代码/DJ/G01贸易生产计划/U_GetDllForm.pas b/项目代码/DJ/G01贸易生产计划/U_GetDllForm.pas index 54faad9..0441334 100644 --- a/项目代码/DJ/G01贸易生产计划/U_GetDllForm.pas +++ b/项目代码/DJ/G01贸易生产计划/U_GetDllForm.pas @@ -3,8 +3,8 @@ unit U_GetDllForm; interface uses - Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, dxCore, cxGridDBTableView, - ActiveX, IniFiles,System.Threading; + Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, dxCore, + cxGridDBTableView, ActiveX, IniFiles, System.Threading; function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; export; stdcall; @@ -12,11 +12,11 @@ function ConnData(): Boolean; function GetsysParam1(): Boolean; - implementation uses - U_DataLink, U_iniParam,U_globalVar, U_TradePlanList,U_TradePlanMgeList,U_FormLayOutDesign; + U_DataLink, U_iniParam, U_globalVar, U_TradePlanList, U_TradePlanMgeList, + U_FormLayOutDesign, U_ItemTestList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -58,8 +58,8 @@ begin DCurHandle := FormH; IsDelphiLanguage := Language; - gDllFileName:=fDllFileName; - gDllFileCaption:='װָʾ'; + gDllFileName := fDllFileName; + gDllFileCaption := 'װָʾ'; Application := TApplication(App); DCurHandle := 0; @@ -73,20 +73,25 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; +// server := '101.132.143.144,7781'; //server:='192.168.110.193,7781'; - dtbase := 'RTBasicsData'; +// dtbase := 'RTBasicsData'; // dtbase := 'ruifengsyjyData'; // dtbase:='jingpinjydata' ; // dtbase := 'sanhaojydata'; +// user := 'rtsa'; +// pswd := 'rightsoft@5740'; //'rightsoft@123'; + + server := '101.132.143.144,7781'; + dtbase := 'jingleijydata'; user := 'rtsa'; - pswd :='rightsoft@5740'; //'rightsoft@123'; + pswd := 'rightsoft@5740'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; Parameters1 := ''; // Parameters1 := 'Ȩ'; - dname:='ADMIN'; - dcode:='ADMIN'; + dname := 'ADMIN'; + dcode := 'ADMIN'; end else begin @@ -99,19 +104,18 @@ begin // TThread.Synchronize(nil, // procedure // begin - if not ConnData() then - begin - exit; - end; - if IsINIFile() then - ReadINIFile() - else - WriteINIFile; - GetsysParam(DataLink_TradePlan.AdoDataLink,DataLink_TradePlan.ThreeColorBase,'', ''); + if not ConnData() then + begin + exit; + end; + if IsINIFile() then + ReadINIFile() + else + WriteINIFile; + GetsysParam(DataLink_TradePlan.AdoDataLink, DataLink_TradePlan.ThreeColorBase, '', ''); // end) //end); - // GetsysParam1(); // 崰 ״̬ if WinStyle = 0 then @@ -144,10 +148,22 @@ begin ///////////////////// //ģ鴰 case FormID of - 1: //ƻ + 1: //ƻ begin // Parameters10:=''; - with TfrmTradePlanMgeList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),FormID) do // + with TfrmTradePlanMgeList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID) do // + begin + fFormID := FormID; + //FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + 2: //ⱨ + begin + // Parameters10:=''; + with TfrmItemTestList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID) do // begin fFormID := FormID; //FormStyle := mstyle; @@ -212,7 +228,7 @@ function ConnData(): Boolean; var IniFile: TIniFile; begin - Result := false; + Result := false; /// if not Assigned(DataLink_TradePlan) then DataLink_TradePlan := TDataLink_TradePlan.Create(Application); @@ -239,10 +255,8 @@ begin IniFile.Free; end; - end; - initialization CoInitialize(nil); dxUnitsLoader.Initialize; diff --git a/项目代码/DJ/G01贸易生产计划/U_ItemTestInPut.dfm b/项目代码/DJ/G01贸易生产计划/U_ItemTestInPut.dfm new file mode 100644 index 0000000..6ce83c6 --- /dev/null +++ b/项目代码/DJ/G01贸易生产计划/U_ItemTestInPut.dfm @@ -0,0 +1,1111 @@ +inherited frmItemTestInPut: TfrmItemTestInPut + Left = 143 + Top = 4 + Caption = #29289#27979#25253#21578#24405#20837 + ClientHeight = 650 + ClientWidth = 1077 + Font.Charset = GB2312_CHARSET + Position = poScreenCenter + WindowState = wsMaximized + OnClose = FormClose + ExplicitWidth = 1093 + ExplicitHeight = 689 + PixelsPerInch = 96 + TextHeight = 17 + object Label51: TLabel [0] + Left = 799 + Top = 253 + Width = 39 + Height = 12 + Caption = #26631#31614#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ToolBar1: TToolBar [1] + Tag = 1 + Left = 0 + Top = 0 + Width = 1077 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clWhite + EdgeInner = esNone + EdgeOuter = esNone + Images = DataLink_TradePlan.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object ToolButton9: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #35745#21010#21333 + ImageIndex = 12 + Visible = False + end + object TBSave: TToolButton + Left = 75 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 37 + OnClick = TBSaveClick + end + object ToolButton8: TToolButton + Left = 138 + Top = 0 + AutoSize = True + Caption = #25351#31034#21333#22270#29255#19978#20256 + ImageIndex = 20 + Visible = False + OnClick = ToolButton8Click + end + object Tbcgs: TToolButton + Left = 261 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = TbcgsClick + end + object Tsj: TToolButton + Left = 348 + Top = 0 + AutoSize = True + Caption = #20445#23384#35774#35745 + ImageIndex = 16 + OnClick = TsjClick + end + object TBClose: TToolButton + Left = 435 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object ToolBar2: TToolBar [2] + Tag = 1 + Left = 0 + Top = 143 + Width = 1077 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 131 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Images = DataLink_TradePlan.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 1 + object ToolButton5: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20135#21697#26723#26696 + ImageIndex = 12 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 87 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 2 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 6 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 17 + OnClick = ToolButton3Click + end + object Tupimage: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #26126#32454#22270#29255#19978#20256 + ImageIndex = 20 + Visible = False + OnClick = TupimageClick + end + object ToolButton4: TToolButton + Left = 411 + Top = 0 + AutoSize = True + Caption = #21015#20540#36882#22686#36755#20837 + ImageIndex = 49 + OnClick = ToolButton4Click + end + object ToolButton6: TToolButton + Left = 522 + Top = 0 + AutoSize = True + Caption = #21521#19979#26367#25442 + ImageIndex = 17 + OnClick = ToolButton6Click + end + object ToolButton7: TToolButton + Left = 609 + Top = 0 + AutoSize = True + Caption = #21521#19979#21015#20540#36882#22686#36755#20837 + ImageIndex = 49 + OnClick = ToolButton7Click + end + object Timport: TToolButton + Left = 744 + Top = 0 + AutoSize = True + Caption = #23548#20837 + ImageIndex = 17 + OnClick = TimportClick + end + end + object dxPanel1: TdxPanel [3] + Left = 0 + Top = 30 + Width = 1077 + Height = 113 + Align = alTop + DoubleBuffered = False + ParentDoubleBuffered = False + TabOrder = 2 + ExplicitTop = 31 + object dxLayoutControl_bzplan: TdxLayoutControl + Left = 0 + Top = 0 + Width = 1075 + Height = 111 + Align = alClient + TabOrder = 0 + LayoutLookAndFeel = DataLink_TradePlan.dxLayoutSkinLookAndFeel1 + object ConNo: TcxTextEdit + Tag = 2 + Left = 91 + Top = 13 + Style.HotTrack = False + Style.TextColor = clBlack + Style.TransparentBorder = False + TabOrder = 0 + Width = 131 + end + object Color: TcxTextEdit + Tag = 2 + Left = 475 + Top = 13 + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 2 + Width = 131 + end + object PB_Spec: TcxTextEdit + Tag = 2 + Left = 283 + Top = 13 + Style.HotTrack = False + Style.TextColor = clBlack + Style.TransparentBorder = False + TabOrder = 1 + Width = 131 + end + object Con_Width: TcxTextEdit + Tag = 2 + Left = 283 + Top = 49 + Style.HotTrack = False + Style.TextColor = clBlack + Style.TransparentBorder = False + TabOrder = 4 + Width = 131 + end + object Con_DSLight: TcxTextEdit + Tag = 2 + Left = 91 + Top = 49 + Style.HotTrack = False + Style.TextColor = clBlack + Style.TransparentBorder = False + TabOrder = 3 + Width = 131 + end + object Con_GramWeight: TcxTextEdit + Tag = 2 + Left = 475 + Top = 49 + Style.HotTrack = False + Style.TextColor = clBlack + Style.TransparentBorder = False + TabOrder = 5 + Width = 131 + end + object dxLayoutControl_bzplanGroup_Root: TdxLayoutGroup + AlignHorz = ahLeft + AlignVert = avTop + Hidden = True + ItemIndex = 1 + ShowBorder = False + Index = -1 + end + object dxLayoutGroup_1: TdxLayoutGroup + Parent = dxLayoutControl_bzplanGroup_Root + CaptionOptions.Text = 'Hidden Group' + Hidden = True + ItemIndex = 2 + LayoutDirection = ldHorizontal + ShowBorder = False + Index = 0 + end + object dxLayoutItem1: TdxLayoutItem + Parent = dxLayoutGroup_1 + SizeOptions.AssignedValues = [sovSizableHorz] + SizeOptions.SizableHorz = True + AllowRemove = False + CaptionOptions.Text = #29983#20135#21512#21516#21495 + Control = ConNo + ControlOptions.OriginalHeight = 29 + ControlOptions.OriginalWidth = 131 + ControlOptions.ShowBorder = False + Index = 0 + end + object dxLayoutItem3: TdxLayoutItem + Parent = dxLayoutGroup_1 + SizeOptions.AssignedValues = [sovSizableHorz] + SizeOptions.SizableHorz = True + AllowRemove = False + CaptionOptions.Text = #22383#24067#35268#26684 + Control = PB_Spec + ControlOptions.OriginalHeight = 29 + ControlOptions.OriginalWidth = 131 + ControlOptions.ShowBorder = False + Index = 1 + end + object dxLayoutItem_htno: TdxLayoutItem + Parent = dxLayoutGroup_1 + SizeOptions.AssignedValues = [sovSizableHorz] + SizeOptions.SizableHorz = True + SizeOptions.Width = 185 + CaptionOptions.Text = #39068#33394 + Control = Color + ControlOptions.OriginalHeight = 29 + ControlOptions.OriginalWidth = 131 + ControlOptions.ShowBorder = False + Index = 2 + end + object dxLayoutGroup_2: TdxLayoutGroup + Parent = dxLayoutControl_bzplanGroup_Root + CaptionOptions.Text = 'Hidden Group' + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + Index = 1 + end + object dxLayoutItem2: TdxLayoutItem + Parent = dxLayoutGroup_2 + SizeOptions.AssignedValues = [sovSizableHorz] + SizeOptions.SizableHorz = True + CaptionOptions.Text = #21512#21516#20811#37325 + Control = Con_GramWeight + ControlOptions.OriginalHeight = 29 + ControlOptions.OriginalWidth = 131 + ControlOptions.ShowBorder = False + Index = 2 + end + object dxLayoutItem6: TdxLayoutItem + Parent = dxLayoutGroup_2 + SizeOptions.AssignedValues = [sovSizableHorz] + SizeOptions.SizableHorz = True + AllowRemove = False + CaptionOptions.Text = #21512#21516#23545#33394#20809#28304 + Control = Con_DSLight + ControlOptions.OriginalHeight = 29 + ControlOptions.OriginalWidth = 131 + ControlOptions.ShowBorder = False + Index = 0 + end + object dxLayoutItem7: TdxLayoutItem + Parent = dxLayoutGroup_2 + SizeOptions.AssignedValues = [sovSizableHorz] + SizeOptions.SizableHorz = True + AllowRemove = False + CaptionOptions.Text = #21512#21516#24133#23485 + Control = Con_Width + ControlOptions.OriginalHeight = 29 + ControlOptions.OriginalWidth = 131 + ControlOptions.ShowBorder = False + Index = 1 + end + end + object QtyNote: TcxButtonEdit + Tag = 2 + Left = 0 + Top = 110 + Hint = 'QtyNote/'#25968#37327#35201#27714','#28322#30701#35013 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = GildingPropertiesButtonClick + Style.HotTrack = False + Style.LookAndFeel.SkinName = 'WXI' + Style.TransparentBorder = False + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 1 + Visible = False + Width = 131 + end + object PackType: TcxButtonEdit + Tag = 2 + Left = 0 + Top = 132 + Hint = 'PackType/'#21253#35013#26041#24335 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = GildingPropertiesButtonClick + Style.HotTrack = False + Style.LookAndFeel.SkinName = 'WXI' + Style.TransparentBorder = False + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 2 + Visible = False + Width = 131 + end + object OrdNote: TcxMemo + Tag = 2 + Left = 0 + Top = 154 + Properties.ScrollBars = ssVertical + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 3 + Visible = False + Height = 89 + Width = 185 + end + object PackNote: TcxMemo + Tag = 2 + Left = 0 + Top = 176 + Properties.ScrollBars = ssVertical + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 4 + Visible = False + Height = 77 + Width = 704 + end + object PackSeal: TcxButtonEdit + Tag = 2 + Left = 0 + Top = 198 + Hint = 'PackSeal/'#23553#26465 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = GildingPropertiesButtonClick + Style.HotTrack = False + Style.LookAndFeel.SkinName = 'WXI' + Style.TransparentBorder = False + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 5 + Visible = False + Width = 131 + end + object SizeNote: TcxButtonEdit + Tag = 2 + Left = 0 + Top = 220 + Hint = 'SizeNote/'#24320#21098 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = GildingPropertiesButtonClick + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 6 + Visible = False + Width = 150 + end + object Gilding: TcxButtonEdit + Tag = 2 + Left = 0 + Top = 242 + Hint = 'Gilding/'#28907#37329 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = GildingPropertiesButtonClick + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 7 + Visible = False + Width = 131 + end + object ShippingSample: TcxButtonEdit + Tag = 2 + Left = 0 + Top = 264 + Hint = 'ShippingSample/'#33337#26679 + AutoSize = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = GildingPropertiesButtonClick + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 8 + Visible = False + Height = 25 + Width = 150 + end + object PackSealNote: TcxButtonEdit + Tag = 2 + Left = 0 + Top = 286 + Hint = 'PackSealNote/'#33136#23553#22791#27880 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = GildingPropertiesButtonClick + Style.HotTrack = False + Style.LookAndFeel.SkinName = 'WXI' + Style.TransparentBorder = False + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 9 + Visible = False + Width = 131 + end + object CustDefFloat2: TcxTextEdit + Tag = 2 + Left = 0 + Top = 308 + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 10 + Visible = False + Width = 82 + end + object CustDefFloat1: TcxTextEdit + Tag = 2 + Left = 0 + Top = 330 + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 11 + Visible = False + Width = 94 + end + object CustDefStr3: TcxButtonEdit + Tag = 2 + Left = 0 + Top = 352 + Hint = 'CustDefStr3/'#20027#34920#33258#23450#20041'3' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = GildingPropertiesButtonClick + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 12 + Visible = False + Width = 150 + end + object CustDefStr2: TcxButtonEdit + Tag = 2 + Left = 0 + Top = 374 + Hint = 'CustDefStr2/'#20027#34920#33258#23450#20041'2' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = GildingPropertiesButtonClick + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 13 + Visible = False + Width = 150 + end + end + object cxGrid1: TcxGrid [4] + Left = 0 + Top = 173 + Width = 1077 + Height = 477 + Align = alClient + TabOrder = 3 + ExplicitLeft = -1 + ExplicitTop = 174 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = Tv1WarpShrink + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv1SSel: TcxGridDBColumn + Tag = 99 + Caption = #36873 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 54 + end + object Tv1RollNo: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'RollNo' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Filtering = False + Width = 61 + end + object Tv1Quantity: TcxGridDBColumn + Caption = #26631#31614#25968#37327 + DataBinding.FieldName = 'Quantity' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1C_Code: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1GramWeight: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'GramWeight' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1FullWidth: TcxGridDBColumn + Caption = #36793#21040#36793#38376#24133 + DataBinding.FieldName = 'FullWidth' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1CutttableWidth: TcxGridDBColumn + Caption = #26377#25928#24133#23485 + DataBinding.FieldName = 'CutttableWidth' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1DryColor: TcxGridDBColumn + Caption = #32784#24178#25705#33394#29282#24230 + DataBinding.FieldName = 'DryColor' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1WetColor: TcxGridDBColumn + Caption = #32784#28287#25705#33394#29282#24230 + DataBinding.FieldName = 'WetColor' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 80 + end + object Tv1WarpDensity: TcxGridDBColumn + Caption = #32463#21521#23494#24230 + DataBinding.FieldName = 'WarpDensity' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1WeftDensity: TcxGridDBColumn + Caption = #32428#21521#23494#24230 + DataBinding.FieldName = 'WeftDensity' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1WarpTaer: TcxGridDBColumn + Caption = #32463#21521#25749#30772#24378#21147 + DataBinding.FieldName = 'WarpTaer' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1WeftTear: TcxGridDBColumn + Caption = #32428#21521#25749#30772#24378#21147 + DataBinding.FieldName = 'WeftTear' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1WarpTensile: TcxGridDBColumn + Caption = #32463#21521#25289#20280#26029#35010#24378#21147 + DataBinding.FieldName = 'WarpTensile' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1WeftTensile: TcxGridDBColumn + Caption = #32428#21521#25289#20280#26029#35010#24378#21147 + DataBinding.FieldName = 'WeftTensile' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1WarpShrink: TcxGridDBColumn + Caption = #32463#21521#32553#27700#29575 + DataBinding.FieldName = 'WarpShrink' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1WeftShrink: TcxGridDBColumn + Caption = #32428#21521#32553#27700#29575 + DataBinding.FieldName = 'WeftShrink' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Skew: TcxGridDBColumn + Caption = #32428#26012 + DataBinding.FieldName = 'Skew' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1WaterProof: TcxGridDBColumn + Caption = #38450#27700#31561#32423 + DataBinding.FieldName = 'WaterProof' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1WarpDamage: TcxGridDBColumn + Caption = #32463#21521#25439#27585#38271#24230 + DataBinding.FieldName = 'WarpDamage' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1C_Spec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1AttName: TcxGridDBColumn + Caption = #33457#22411#22270#29255 + DataBinding.FieldName = 'AttName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1WeftDamage: TcxGridDBColumn + Caption = #32428#21521#25439#27585#38271#24230 + DataBinding.FieldName = 'WeftDamage' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1PH: TcxGridDBColumn + Caption = 'PH'#20540 + DataBinding.FieldName = 'PH' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1SLabVolume: TcxGridDBColumn + Caption = #21367#26631#31614 + DataBinding.FieldName = 'SLabVolume' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1SLabPackage: TcxGridDBColumn + Caption = #21253#26631#31614 + DataBinding.FieldName = 'SLabPackage' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1PToP: TcxGridDBColumn + Caption = #28857#23545#28857#30005#38459 + DataBinding.FieldName = 'PToP' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1WaterFast: TcxGridDBColumn + Caption = #27700#27927#29282#24230 + DataBinding.FieldName = 'WaterFast' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1PillResist: TcxGridDBColumn + Caption = #25239#36215#27611#36215#29699 + DataBinding.FieldName = 'PillResist' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1AbsorpWater: TcxGridDBColumn + Caption = #21560#28287#29575 + DataBinding.FieldName = 'AbsorpWater' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1DripDiff: TcxGridDBColumn + Caption = #28404#27700#25193#25955 + DataBinding.FieldName = 'DripDiff' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1JointBubble: TcxGridDBColumn + Caption = #25340#25509#20114#27873 + DataBinding.FieldName = 'JointBubble' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1StirFloat: TcxGridDBColumn + Caption = #25340#25509#20114#27873 + DataBinding.FieldName = 'StirFloat' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Di84: TcxGridDBColumn + Caption = #28404'84' + DataBinding.FieldName = 'Di84' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Pao84: TcxGridDBColumn + Caption = #28404'84' + DataBinding.FieldName = 'Pao84' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1JointDye: TcxGridDBColumn + Caption = #25340#25509#20114#26579 + DataBinding.FieldName = 'JointDye' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1SeamSlip: TcxGridDBColumn + Caption = #25509#32541#28369#31227 + DataBinding.FieldName = 'SeamSlip' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradePlan.ADOLink + Left = 89 + Top = 448 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradePlan.ADOLink + Left = 201 + Top = 449 + end + inherited ImageList_new32: TImageList + Left = 1032 + Top = 40 + end + object ADOTemp: TADOQuery [8] + Connection = DataLink_TradePlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 472 + Top = 468 + end + object ADOCmd: TADOQuery [9] + Connection = DataLink_TradePlan.ADOLink + Parameters = <> + Left = 536 + Top = 469 + end + object DS_1: TDataSource [10] + DataSet = CDS_1 + Left = 472 + Top = 512 + end + object CDS_1: TClientDataSet [11] + Aggregates = <> + Params = <> + Left = 539 + Top = 515 + end + object GPM_1: TcxGridPopupMenu [12] + Grid = cxGrid1 + PopupMenus = <> + Left = 588 + Top = 517 + end + object ADOQueryLabel: TADOQuery [13] + Connection = DataLink_TradePlan.ADOLink + Parameters = <> + Left = 876 + Top = 285 + end + object CDS_Fact: TClientDataSet [14] + Aggregates = <> + IndexFieldNames = 'SerialNo' + Params = <> + Left = 672 + Top = 160 + end + object DSFact: TDataSource [15] + DataSet = CDS_Fact + Left = 728 + Top = 157 + end + object PM_Fact: TPopupMenu [16] + Left = 779 + Top = 267 + object N3: TMenuItem + Caption = #28155#21152 + OnClick = N3Click + end + object N1: TMenuItem + Caption = #21024#38500 + OnClick = N1Click + end + end + object cxgrdpmn2: TcxGridPopupMenu [17] + PopupMenus = <> + Left = 818 + Top = 75 + end + object Qry_ImgHX: TADOQuery [18] + Connection = DataLink_TradePlan.ADOLink + Parameters = <> + Left = 1384 + Top = 51 + end + object DS_ImgHX: TDataSource [19] + DataSet = Qry_ImgHX + Left = 1388 + Top = 135 + end + object IdFTP1: TIdFTP [20] + ConnectTimeout = 0 + NATKeepAlive.UseKeepAlive = False + NATKeepAlive.IdleTimeMS = 0 + NATKeepAlive.IntervalMS = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + ReadTimeout = 0 + Left = 1376 + Top = 234 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + Left = 512 + Top = 1 + DesignInfo = 66048 + end + object RMGridReport1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + ShowProgress = False + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 688 + ReportData = {} + end + object OpenDialog1: TOpenDialog + Filter = 'RMFl(*.rmf)|*.rmf' + InitialDir = '.' + Left = 368 + Top = 4 + end + object ADOQuery_label: TADOQuery + Connection = DataLink_TradePlan.ADOLink + Parameters = <> + Left = 468 + Top = 172 + end + object RMGridReport2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + ShowProgress = False + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 720 + Top = 72 + ReportData = {} + end + object CDS_LM: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 328 + end +end diff --git a/项目代码/DJ/G01贸易生产计划/U_ItemTestInPut.pas b/项目代码/DJ/G01贸易生产计划/U_ItemTestInPut.pas new file mode 100644 index 0000000..f3ee09f --- /dev/null +++ b/项目代码/DJ/G01贸易生产计划/U_ItemTestInPut.pas @@ -0,0 +1,1908 @@ +unit U_ItemTestInPut; + +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, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit, + RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus, + cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox, + dxDateRanges, dxBarBuiltInMenu, cxPC, System.ImageList, Vcl.ImgList, + U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, Winapi.UrlMon, IdComponent, + IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, + dxScrollbarAnnotations, cxGeometry, dxFramedControl, dxLayoutContainer, + dxLayoutControl, dxPanel, cxGroupBox, dxLayoutcxEditAdapters, dxCore, ComObj, + cxDateUtils, cxImageList; + +type + TfrmItemTestInPut = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DS_1: TDataSource; + CDS_1: TClientDataSet; + GPM_1: TcxGridPopupMenu; + ADOQueryLabel: TADOQuery; + Label51: TLabel; + CDS_Fact: TClientDataSet; + DSFact: TDataSource; + PM_Fact: TPopupMenu; + N1: TMenuItem; + cxgrdpmn2: TcxGridPopupMenu; + Qry_ImgHX: TADOQuery; + DS_ImgHX: TDataSource; + N3: TMenuItem; + Tbcgs: TToolButton; + IdFTP1: TIdFTP; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton5: TToolButton; + dxPanel1: TdxPanel; + dxLayoutControl_bzplan: TdxLayoutControl; + dxLayoutControl_bzplanGroup_Root: TdxLayoutGroup; + dxLayoutGroup_1: TdxLayoutGroup; + dxLayoutItem1: TdxLayoutItem; + dxLayoutItem3: TdxLayoutItem; + dxLayoutItem_htno: TdxLayoutItem; + ConNo: TcxTextEdit; + Color: TcxTextEdit; + dxLayoutGroup_2: TdxLayoutGroup; + dxLayoutItem2: TdxLayoutItem; + dxLayoutItem6: TdxLayoutItem; + dxLayoutItem7: TdxLayoutItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + Tv1RollNo: TcxGridDBColumn; + Tv1Quantity: TcxGridDBColumn; + v1C_Code: TcxGridDBColumn; + Tv1GramWeight: TcxGridDBColumn; + Tv1FullWidth: TcxGridDBColumn; + Tv1CutttableWidth: TcxGridDBColumn; + Tv1DryColor: TcxGridDBColumn; + Tv1WetColor: TcxGridDBColumn; + Tv1WarpDensity: TcxGridDBColumn; + Tv1WarpShrink: TcxGridDBColumn; + Tv1WeftShrink: TcxGridDBColumn; + Tv1Skew: TcxGridDBColumn; + Tv1WeftTensile: TcxGridDBColumn; + Tv1WaterProof: TcxGridDBColumn; + Tv1WarpDamage: TcxGridDBColumn; + v1C_Spec: TcxGridDBColumn; + v1AttName: TcxGridDBColumn; + Tv1WeftDamage: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Gilding: TcxButtonEdit; + PackSeal: TcxButtonEdit; + ShippingSample: TcxButtonEdit; + SizeNote: TcxButtonEdit; + OrdNote: TcxMemo; + PackNote: TcxMemo; + PackType: TcxButtonEdit; + QtyNote: TcxButtonEdit; + PackSealNote: TcxButtonEdit; + Tsj: TToolButton; + RMGridReport1: TRMGridReport; + OpenDialog1: TOpenDialog; + ADOQuery_label: TADOQuery; + RMGridReport2: TRMGridReport; + CustDefStr2: TcxButtonEdit; + CustDefStr3: TcxButtonEdit; + CustDefFloat1: TcxTextEdit; + CustDefFloat2: TcxTextEdit; + Tv1SSel: TcxGridDBColumn; + Tv1PH: TcxGridDBColumn; + Tv1SLabVolume: TcxGridDBColumn; + Tv1SLabPackage: TcxGridDBColumn; + ToolButton3: TToolButton; + Tupimage: TToolButton; + ToolButton4: TToolButton; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + ToolButton8: TToolButton; + Tv1PToP: TcxGridDBColumn; + Tv1WeftDensity: TcxGridDBColumn; + Tv1WarpTaer: TcxGridDBColumn; + Tv1WeftTear: TcxGridDBColumn; + Tv1WarpTensile: TcxGridDBColumn; + Timport: TToolButton; + Tv1WaterFast: TcxGridDBColumn; + ToolButton9: TToolButton; + Tv1PillResist: TcxGridDBColumn; + Tv1AbsorpWater: TcxGridDBColumn; + Tv1DripDiff: TcxGridDBColumn; + Tv1JointBubble: TcxGridDBColumn; + Tv1StirFloat: TcxGridDBColumn; + Tv1Di84: TcxGridDBColumn; + Tv1Pao84: TcxGridDBColumn; + Tv1JointDye: TcxGridDBColumn; + Tv1SeamSlip: TcxGridDBColumn; + PB_Spec: TcxTextEdit; + Con_Width: TcxTextEdit; + Con_DSLight: TcxTextEdit; + Con_GramWeight: TcxTextEdit; + CDS_LM: TClientDataSet; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure YCLFactoryBtnUpClick(Sender: TObject); + procedure ScrollBox1Click(Sender: TObject); + procedure v1Column5PropertiesEditValueChanged(Sender: TObject); + procedure HYTTBtnUpClick(Sender: TObject); + procedure KYTTBtnUpClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure cxDBImage1DblClick(Sender: TObject); + procedure SYRNameBtnUpClick(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TV2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TbcgsClick(Sender: TObject); + procedure OurCoNameBtnUpClick(Sender: TObject); + procedure OurCoNameBtnDnClick(Sender: TObject); + procedure V2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure C_CodeBtnDnClick(Sender: TObject); + procedure CustomerNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure FormCreate(Sender: TObject); + procedure v1PRTCodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1C_ColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure GildingPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure FtyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1OrdUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TsjClick(Sender: TObject); + procedure LabVolumePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure LabVolumeEnter(Sender: TObject); + procedure LabPackageEnter(Sender: TObject); + procedure Tv1SLabVolumePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1SLabPackagePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton3Click(Sender: TObject); + procedure TupimageClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure ToolButton4Click(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure MenuItem2Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure v1AttNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton8Click(Sender: TObject); + procedure TimportClick(Sender: TObject); + private + fIsLabelSave: Boolean; + FSCXDH: string; + fOrdeNOIsAuto: string; //ǷԶ + procedure InitData(); + procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); + function SaveData(): Boolean; + function getOrderNo(fconNo: string): string; + procedure LookImage(FileName: string); + procedure InitDataSetDictionary(); + function saveCopyRuleInfo(mPlanId: string): Boolean; + function getLabel(labelType: string = ''): Boolean; + procedure initGrid(); + function getOrderMakeType(): Boolean; + procedure threadLoadform(); + { Private declarations } + public + PState, CopyInt, PriceFlag: Integer; + FMainId, FFMainId, FOrderNo: string; + fCopyMainId: string; + FXS: Integer; + canshu1: string; + fFlileFlag: string; + { Public declarations } + end; + +var + frmItemTestInPut: TfrmItemTestInPut; + newh: hwnd; + +implementation + +uses + U_DataLink, U_TradeInspSet, U_ZDYHelp, U_RTFun, U_CompanySel, + U_FormLayOutDesign, U_cxGridCustomSet, U_PictureUpload, U_ClothInfoSel, + U_globalVar, U_UptPlanDataToRoll; +// getpic , + +{$R *.dfm} + +function TfrmItemTestInPut.getOrderNo(fconNo: string): string; +var + str1: string; + i: Integer; +begin + str1 := trim(fconNo) + '01'; + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select MainID from Trade_Plan_Main where orderNo=' + quotedstr(trim(str1))); + open; + end; + if not ADOTemp.IsEmpty then + begin + for i := 1 to 99 do + begin + str1 := trim(fconNo) + rightstr(inttostr(100 + i), 2); + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('select MainID from Trade_Plan_Main where orderNo=' + quotedstr(trim(str1))); + open; + end; + if ADOCmd.IsEmpty then + break; + end; + end; + result := str1; +end; + +procedure TfrmItemTestInPut.GildingPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + fsj: string; + FWZ: Integer; +begin + fsj := trim(TcxButtonEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + + if ShowModal = 1 then + begin + TcxButtonEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +procedure TfrmItemTestInPut.TBCloseClick(Sender: TObject); +begin + + close; + +end; + +procedure TfrmItemTestInPut.InitData(); +var + FDate: TDateTime; +begin + FDate := SGetServerDateTime(ADOTemp); +// OrdDate.Date := FDate; +// DLYDate.Date := FDate; + +// with ADOTemp do +// begin +// close; +// sql.Clear; +// sql.Add('select A.*,B.LabVolume,B.LabPackage from Trade_Plan_main A'); +// sql.Add('left join Trade_Cloth_Inspect_Rule B on B.RuleID=A.mainId'); +// sql.Add('where A.MainId=''' + trim(FMainId) + ''''); +// open; +// end; +// +// LSCSHData(ADOTemp, dxLayoutControl_bzplan, 2); + + // OurCoName.TxtCode := Trim(ADOTemp.FieldByName('OurCoNo').AsString); +// CustName.Properties.LookupItems.Text := trim(ADOTemp.fieldbyname('CustNo').AsString); +// LabVolume.Text := trim(ADOTemp.fieldbyname('LabVolume').AsString); +// LabPackage.Text := trim(ADOTemp.fieldbyname('LabPackage').AsString); + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add(' select * from Item_Test_Main A where 1=1'); + sql.Add(' and A.MainId=''' + trim(FMainId) + ''''); + open; + end; + + LSCSHData(ADOTemp, dxLayoutControl_bzplan, 2); + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add(' select * from Item_Test_sub where 1=1 '); + if PState >= 1 then + begin + sql.Add(' and MainId=''' + trim(FMainId) + ''''); + end; + if PState = 0 then + begin + sql.Add(' and 1<>1'); + end; + open; + end; + SCreateCDS(ADOTemp, CDS_1); + SInitCDSData(ADOTemp, CDS_1); +// LSCSHData(ADOTemp, dxLayoutControl_bzplan, 7); + + // Tv1.ApplyBestFit(); + +// with ADOTemp do +// begin +// close; +// sql.Clear; +// sql.Add(' select * from Trade_Plan_Fty '); +// sql.Add(' where MainId=''' + trim(FMainId) + ''''); +// // ShowMessage(SQL.Text); +// open; +// end; +// SCreateCDS(ADOTemp, CDS_Fact); +// SInitCDSData(ADOTemp, CDS_Fact); + + if PState = 0 then + begin +// OrdDate.Date := SGetServerDateTime(ADOTemp); +// DLYDate.Date := OrdDate.Date; +// if fOrdeNOIsAuto = '1' then +// begin +// orderNo.Text := 'Զ'; +// orderNo.Enabled := false; +// end +// else +// begin +// OrderNo.Text := ''; +// OrderNo.Enabled := True; +// end; + end + else + begin + end; + if CopyInt = 99 then + begin + PState := 0; + FMainId := ''; +// if fOrdeNOIsAuto = '1' then +// begin +// orderNo.Text := 'Զ'; +// orderNo.Enabled := false; +// end +// else +// begin +// OrderNo.Text := ''; +// OrderNo.Enabled := True; +// end; + +// OrdDate.Date := FDate; + + try + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + Edit; + fieldbyname('MainId').Value := ''; + fieldbyname('SubId').Value := ''; + Post; + Next; + end; + end; + finally + CDS_1.EnableControls; + end; + end; +end; + +procedure TfrmItemTestInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string); +var + FType, ZDYName, FText: string; +begin +end; + +procedure TfrmItemTestInPut.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := cafree; +end; + +procedure TfrmItemTestInPut.FormCreate(Sender: TObject); +begin + inherited; + cxGrid1.Align := alClient; +// getOrderMakeType(); +// if fOrdeNOIsAuto = '1' then +// orderNo.Enabled := false; +end; + +procedure TfrmItemTestInPut.FormDestroy(Sender: TObject); +begin + inherited; + frmItemTestInPut := nil; +end; + +procedure TfrmItemTestInPut.FormShow(Sender: TObject); +var + thread: TThread; +begin + inherited; +// cxPageControl1.Align := alClient; +// cxPageControl1.ActivePageIndex := 0; + if PState = 5 then + begin + Tbcgs.Visible := false; + Tsj.Visible := false; + Tv1.OptionsData.Editing := false; + dxLayoutControl_bzplan.Enabled := false; + end; +// OrderNo.Text := ''; + fFlileFlag := UserDataFlag + 'HX'; + + thread := TThread.CreateAnonymousThread( + procedure + begin + TThread.Synchronize(nil, + procedure + begin + + readCxGrid(trim(SELF.Caption) + '-¼봰', Tv1, gDllFileCaption); + getLabel(); + end) + end); + + thread.FreeOnTerminate := True; + thread.Start; + application.ProcessMessages; + with CDS_LM do + begin + FieldDefs.Clear; + FieldDefs.Add('LXH', ftInteger, 0); + FieldDefs.Add('lCode', ftString, 40); + FieldDefs.Add('LName', ftString, 40); + close; + CreateDataSet; + end; + InitData(); + +end; + +procedure TfrmItemTestInPut.FtyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + fsj: string; + FWZ: Integer; +begin + fsj := trim(TEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + MainType := TEdit(Sender).Name; + if ShowModal = 1 then + begin + TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +function TfrmItemTestInPut.SaveData(): Boolean; +var + maxno, Smaxno, maxorderno, MaxFNo: string; +begin + try + result := false; + ADOCmd.Connection.BeginTrans; + /// + if trim(FMainId) = '' then + begin + if GetLSNo(ADOCmd, maxno, 'WM', 'Item_Test_Main', 3, 1) = false then + raise Exception.Create('ȡʧ!'); +// if (trim(OrderNo.Text) = '') or (trim(OrderNo.Text) = 'Զ') then +// OrderNo.Text := maxno; + end + else + begin + maxno := trim(FMainId); + end; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('select * from Item_Test_Main where MainId=''' + trim(FMainId) + ''''); + open; + end; + with ADOCmd do + begin + if IsEmpty then + begin + Append; + fieldbyname('FillId').Value := trim(DCode); + fieldbyname('Filler').Value := trim(DName); + fieldbyname('status').Value := '0'; + end + else + begin + Edit; + fieldbyname('EditId').Value := trim(DCode); + fieldbyname('Editer').Value := trim(DName); + fieldbyname('EditTime').Value := SGetServerDateTime(ADOTemp); + end; + LRTSetsavedata(ADOCmd, 'Item_Test_Main', dxLayoutControl_bzplan, 2); + fieldbyname('MainId').Value := trim(maxno); +// fieldbyname('CustNo').Value := trim(CustName.Properties.LookupItems.Text); + Post; + end; + + /// ////////////////// ӱ /////////////////////////// + with CDS_1 do + begin + First; + while not Eof do + begin + if trim(CDS_1.fieldbyname('SubId').AsString) = '' then + begin + if GetLSNo(ADOCmd, Smaxno, 'WS', 'Item_Test_sub', 4, 1) = false then + raise Exception.Create('ȡˮʧ!'); + end + else + begin + Smaxno := trim(CDS_1.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('select * from Item_Test_sub where MainId=''' + trim(maxno) + ''''); + sql.Add(' and SubId=''' + trim(Smaxno) + ''''); + open; + end; + with ADOCmd do + begin + if IsEmpty then + begin + Append; + fieldbyname('SubId').Value := trim(Smaxno); + end + else + Edit; + RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Item_Test_sub', 0); + RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Item_Test_sub', 9); +// LRTSetsavedata(ADOCmd, 'Trade_Plan_Sub', dxLayoutControl_bzplan, 7); + fieldbyname('MainId').Value := trim(maxno); +// fieldbyname('ConSId').Value := trim(CDS_1.fieldbyname('ConSId').AsString); +// fieldbyname('ConMId').Value := trim(CDS_1.fieldbyname('ConMId').AsString); + + Post; +// with CDS_1 do +// begin +// Edit; +// fieldbyname('SubId').Value := trim(Smaxno); +// Post; +// end; + + end; + Next; + end; + end; + /// ////////////////// ӱ /////////////////////////// + /// ////////////////// ӹ /////////////////////////// +// with CDS_Fact do +// begin +// First; +// while not Eof do +// begin +// +// with ADOCmd do +// begin +// close; +// sql.Clear; +// sql.Add('select * from Trade_Plan_Fty where MainId=''' + trim(maxno) + ''''); +// open; +// end; +// with ADOCmd do +// begin +// if IsEmpty then +// begin +// if GetLSNo(ADOQueryBaseCmd, MaxFNo, 'JF', 'Trade_Plan_Fty', 4, 1) = false then +// raise Exception.Create('ȡˮʧ!'); +// Append; +// fieldbyname('MainId').Value := trim(maxno); +// fieldbyname('TPFId').Value := trim(MaxFNo); +// end +// else +// Edit; +// +// fieldbyname('ftyName').Value := trim(factoryName.Text); +// fieldbyname('ftyNo').Value := trim(factoryName.Properties.LookupItems.Text); +// // RTSetSaveDataCDS(ADOCmd, Tv2, CDS_Fact, 'Trade_Plan_Fty', 0); +// Post; +// with CDS_Fact do +// begin +// Edit; +// fieldbyname('TPFId').Value := trim(MaxFNo); +// Post; +// end; +// +// end; +// Next; +// end; +// end; + /// ////////////////// ӹ /////////////////////////// + +// with ADOCmd do +// begin +// close; +// sql.Clear; +// sql.Add('select * from Item_Test_Main where ConNo=''' + trim(ConNo.Text) + ''''); +// open; +// end; +// if ADOCmd.RecordCount > 1 then +// raise Exception.Create('ͬظ!'); + + // Զ +// with ADOCmd do +// begin +// close; +// sql.Clear; +// sql.Add('update Trade_Plan_Main SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() '); +// sql.Add('where mainId=' + quotedstr(maxno)); +// sql.Add('and status<''9'''); +// execsql; +// end; + +// if not saveCopyRuleInfo(maxno) then +// begin +// // raise Exception.Create('ƶʧ!'); +// end; + + FMainId := trim(maxno); + ADOCmd.Connection.CommitTrans; + result := True; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmItemTestInPut.TBSaveClick(Sender: TObject); +var + MAXNO1: string; +begin + // if PState <> 1 then + // begin + ToolBar1.SetFocus; + // end; + if not mustInCheck(application, dxLayoutControl_bzplan, PWideChar('*')) then + exit; +// if (pos('*', dxLayoutItem1.Caption) > 0) and (trim(OrderNo.Text) = '') then +// begin +// Application.MessageBox('ŲΪգ', 'ʾ', 0); +// exit; +// end; +// if trim(OrderNo.Text) = '' then +// begin +// Application.MessageBox('ŲΪգ', 'ʾ', 0); +// exit; +// end; +// if CDS_1.IsEmpty then +// begin +// Application.MessageBox('ƷϸΪ!', 'ʾ', 0); +// exit; +// end; + + if not checkColumnMustIn(application, tv1, 9) then + exit; + + if SaveData() then + begin + initGrid(); + if not fIsLabelSave then + Application.MessageBox('ɹ', 'ʾ', 0); + if PState = 0 then + PState := 1; + + ModalResult := 1; + end; +end; + +procedure TfrmItemTestInPut.TimportClick(Sender: TObject); +var + excelApp, WorkBook: Variant; + i, j, k, LX, ExcelRowCount: integer; + maxId, FCPID, FCPName, t1, t2, t3, FFID: string; +begin + inherited; + try + excelApp := CreateOleObject('Excel.Application'); + openDialog1.Filter := '*.CSV;*.xls'; + if opendialog1.Execute then + begin + WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName); + end + else + exit; + excelApp.Visible := false; + ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count; + except + application.MessageBox('EXCEL', 'Ϣ', MB_ICONERROR); + exit; + end; + + CDS_LM.EmptyDataSet; + + for j := 0 to Tv1.ColumnCount - 1 do + begin + with CDS_LM do + begin + Append; + FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName); + FieldByName('LName').Value := trim(Tv1.Columns[j].Caption); + Post; + end; + end; + + try + for i := 1 to 50 do + begin + if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then + continue; + if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then + begin + with CDS_LM do + begin + Edit; + FieldByName('LXH').Value := i; + Post; + end; + end; + end; + except + application.MessageBox('', 'Ϣ', MB_ICONERROR); + exit; + end; + + try + for i := 2 to ExcelRowCount do + begin + with CDS_1 do + begin + Append; + CDS_LM.First; + while not CDS_LM.Eof do + begin + if CDS_LM.FieldByName('LXH').AsInteger > 0 then + CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value; + CDS_LM.Next; + end; + Post; + end; + end; + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + except + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + exit; + end; +end; + +procedure TfrmItemTestInPut.ToolButton1Click(Sender: TObject); +var + i: Integer; +begin + + CopyAddRow(Tv1, CDS_1); + with CDS_1 do + begin + Edit; + fieldbyname('SSel').Value := false; + FieldByName('RollNo').Value := CDS_1.RecordCount; + //FieldByName('c_Name').Value := ''; +// if trim(CDS_1.FieldByName('batchno').AsString) = '' then +// begin +// FieldByName('C_Color').Value := ''; +// end +// else +// begin +// FieldByName('batchno').Value := ''; +// FieldByName('FtyPCId').Value := ''; +// end; + + // FieldByName('hxFile').Value := ''; + // FieldByName('TPPS').Value := 0; + Post; + end; +end; + +procedure TfrmItemTestInPut.ToolButton2Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + if CDS_1.Locate('SSel', True, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + exit; + end; + if Application.MessageBox('ȷҪɾѡ', 'ʾ', 32 + 4) <> IDYES then + exit; + try + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while Locate('SSel', True, []) do + begin +// with ADOTemp do +// begin +// close; +// sql.Clear; +// sql.Add('select * from Trade_Cloth_Inspect where isnull(SubId,'''')<>'''' and SubId=''' + trim(CDS_1.fieldbyname('SubId').AsString) + ''''); +// open; +// end; +// if ADOTemp.IsEmpty = false then +// begin +// Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0); +// exit; +// end; + if trim(CDS_1.fieldbyname('SubId').AsString) <> '' then + begin + with ADOCmd do + begin + close; + sql.Clear; + + // sql.Add('insert into Trade_Plan_Sub_Del select * from Trade_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + ''''); + + sql.Add('delete Item_Test_sub where SubId=''' + trim(CDS_1.fieldbyname('SubId').AsString) + ''''); + + execsql; + end; + end; + Delete; + end; + end; + finally + CDS_1.EnableControls; + end; + +end; + +procedure TfrmItemTestInPut.ToolButton3Click(Sender: TObject); +begin + inherited; + if CDS_1.IsEmpty then + Exit; + OneKeyPost(Tv1, CDS_1); +end; + +procedure TfrmItemTestInPut.ToolButton4Click(Sender: TObject); +var + strResult: string; + k: integer; + col: integer; + fieldName: string; +begin + if CDS_1.IsEmpty then + begin + exit; + end; + col := tv1.controller.focusedcolumnIndex; + if col <= 0 then + begin + application.MessageBox('ѡҪ(еԪ)', 'Ϣ', 0); + exit; + end; + + fieldName := tv1.Columns[col + 1].DataBinding.FieldName; + if fieldName = '' then + exit; + + if InputQuery('', 'ǰ׺ַ:', strResult) then + begin + CDS_1.First; + k := 1; + while not CDS_1.eof do + begin + CDS_1.edit; + CDS_1.FieldByName(fieldName).value := strResult + intTostr(k); + CDS_1.Post; + inc(k); + CDS_1.Next; + end; + end; +end; + +procedure TfrmItemTestInPut.TbcgsClick(Sender: TObject); +begin + WriteCxGrid(trim(SELF.Caption) + '-¼봰', Tv1, gDllFileCaption); + +end; + +procedure TfrmItemTestInPut.ToolButton5Click(Sender: TObject); +begin + try + frmClothInfoSel := TfrmClothInfoSel.Create(Application); + with frmClothInfoSel do + begin + if ShowModal = 1 then + begin + while CDS_1.Locate('SSel', True, []) do + begin + if SELF.CDS_1.Locate('ConSubId', trim(CDS_1.fieldbyname('SubId').AsString), []) then + begin + CDS_1.Edit; + CDS_1.fieldbyname('SSel').Value := false; + continue; + end; + with SELF.CDS_1 do + begin + Append; + fieldbyname('SSel').Value := false; + C_Code.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Code').AsString); + C_Name.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Name').AsString); + // C_Spec.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString); + // C_Composition.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString); + C_Width.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Width').AsString); + C_GramWeight.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').AsString); + // OrdUnit.ItemIndex := OrdUnit.Items.IndexOf(trim(frmClothInfoSel.CDS_1.fieldbyname('ConUnit').AsString)); + + fieldbyname('C_ColorNo').Value := trim(frmClothInfoSel.CDS_1.fieldbyname('C_ColorNo').AsString); + fieldbyname('C_Color').Value := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Color').AsString); + fieldbyname('C_Pattern').Value := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Pattern').AsString); + + fieldbyname('OrdQty').Value := frmClothInfoSel.CDS_1.fieldbyname('ConQty').AsFloat; + + fieldbyname('DDQtyUnit').Value := frmClothInfoSel.CDS_1.fieldbyname('SCSUnit').AsString; + fieldbyname('OrderUnit').Value := trim(frmClothInfoSel.CDS_1.fieldbyname('SCSUnit').AsString); + + end; + CDS_1.Edit; + CDS_1.fieldbyname('SSel').Value := false; + end; + end; + end; + finally + frmClothInfoSel.Free; + end; + +end; + +procedure TfrmItemTestInPut.ToolButton6Click(Sender: TObject); +var + FValue, FFValue, FColumn, FFColumn: string; +begin + inherited; + if CDS_1.IsEmpty then + Exit; + // FColumn:=tv1.Columns[Tv1.Controller.FocusedColumnIndex].DataBinding.FieldName; + // FFColumn:=Tv1.Columns[Tv1.Controller.FocusedColumnIndex].Summary.GroupFormat; + FColumn := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + FFColumn := Tv1.Controller.FocusedColumn.Summary.GroupFormat; + FValue := Trim(CDS_1.fieldByName(FColumn).AsString); + if Trim(FFColumn) <> '' then + begin + FFValue := Trim(CDS_1.fieldByName(FFColumn).AsString); + end; + with CDS_1 do + begin + DisableControls; + while not Eof do + begin + edit; + if FValue = '' then + begin + CDS_1.fieldByName(FColumn).Value := null; + end + else + begin + CDS_1.fieldByName(FColumn).Value := FValue; + end; + if Trim(FFColumn) <> '' then + begin + if FFValue = '' then + begin + CDS_1.fieldByName(FFColumn).Value := null; + end + else + begin + CDS_1.fieldByName(FFColumn).Value := FFValue; + end; + end; + + post; + + Next; + end; + EnableControls; + end; +end; + +procedure TfrmItemTestInPut.ToolButton7Click(Sender: TObject); +var + strResult: string; + k: integer; + col: integer; + fieldName: string; +begin + if CDS_1.IsEmpty then + begin + exit; + end; + col := tv1.controller.focusedcolumnIndex; + if col <= 0 then + begin + application.MessageBox('ѡҪ(еԪ)', 'Ϣ', 0); + exit; + end; + + fieldName := tv1.Columns[col + 1].DataBinding.FieldName; + if fieldName = '' then + exit; + + if InputQuery('', 'ǰ׺ַ:', strResult) then + begin + k := 1; + while not CDS_1.eof do + begin + CDS_1.edit; + CDS_1.FieldByName(fieldName).value := strResult + intTostr(k); + CDS_1.Post; + inc(k); + CDS_1.Next; + end; + end; +end; + +procedure TfrmItemTestInPut.ToolButton8Click(Sender: TObject); +begin + if (Trim(FMainId) = '') then + begin + Application.MessageBox('ϴͼƬ!', 'ʾϢ', 0); + Exit; + end; + try + frmPictureUpload := TfrmPictureUpload.Create(Application); + with frmPictureUpload do + begin + fFlileFlag := self.fFlileFlag; + FWidth := 250; + FHeight := 300; + FTFType := 'HX'; + FDataId := Trim(FMainId); + if ShowModal = 1 then + begin + InitData(); + end; + end; + finally + frmPictureUpload.Free; + end; + +end; + +procedure TfrmItemTestInPut.TsjClick(Sender: TObject); +begin + saveLayOut(application, dxLayoutControl_bzplan, ADOQueryBaseCmd, PWideChar(fDllFileName + '|' + SELF.Name + '|' + dxLayoutControl_bzplan.Name + '.ini')); + +end; + +procedure TfrmItemTestInPut.TupimageClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + if (Trim(Self.CDS_1.fieldbyname('subId').AsString) = '') then + begin + Application.MessageBox('ϴͼƬ!', 'ʾϢ', 0); + Exit; + end; + try + frmPictureUpload := TfrmPictureUpload.Create(Application); + with frmPictureUpload do + begin + fFlileFlag := self.fFlileFlag; + FWidth := 250; + FHeight := 300; + FTFType := 'HX'; + FDataId := Trim(Self.CDS_1.fieldbyname('subId').AsString); + if ShowModal = 1 then + begin + InitData(); + end; + end; + finally + frmPictureUpload.Free; + end; + +end; + +procedure TfrmItemTestInPut.CustomerNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin +// try +// frmCompanySel := TfrmCompanySel.Create(Application); +// with frmCompanySel do +// begin +// FCoType := 'ͻ'; +// if ShowModal = 1 then +// begin +// SELF.CustName.Properties.LookupItems.Text := +// trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); +// SELF.CustName.Text := trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName') +// .AsString); +// end; +// end; +// +// finally +// frmCompanySel.Free; +// end; + +end; + +procedure TfrmItemTestInPut.cxDBImage1DblClick(Sender: TObject); +begin + if TcxDBImage(Sender).Picture.Height = 0 then + exit; + LookImage(Qry_ImgHX.fieldbyname(TcxDBImage(Sender).Hint).AsString); +end; + +procedure TfrmItemTestInPut.C_CodeBtnDnClick(Sender: TObject); +begin + // Self.C_Code.Text := ''; + // Self.C_Name.Text := ''; + // Self.C_Spec.Text := ''; + // Self.C_Composition.Text := ''; + // Self.C_Width.Text := ''; + // Self.C_GramWeight.Text := ''; +end; + +procedure TfrmItemTestInPut.LabPackageEnter(Sender: TObject); +begin + inherited; +// cxPageControl1.ActivePageIndex := 1; +end; + +procedure TfrmItemTestInPut.LabVolumeEnter(Sender: TObject); +begin + inherited; +// cxPageControl1.ActivePageIndex := 0; +end; + +procedure TfrmItemTestInPut.LabVolumePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + fIsLabelSave := True; + if trim(FMainId) = '' then + TBSave.Click; + if trim(FMainId) = '' then + exit; + frmTradeInspSet := TfrmTradeInspSet.Create(SELF); + with frmTradeInspSet do + begin + FDataID := trim(SELF.FMainId); + Tsave.Tag := 2; + if ShowModal = 1 then + begin + // InitDataSetDictionary(); +// SELF.LabVolume.Properties.LookupItems.Text := LabVolume.Text; +// SELF.LabVolume.Text := LabVolume.Text; +// SELF.LabPackage.Properties.LookupItems.Text := LabPackage.Text; +// SELF.LabPackage.Text := LabPackage.Text; + getLabel(); + TcxButtonEdit(Sender).SetFocus; + + end; + Free; + end; + finally + fIsLabelSave := false; + end; +end; + +procedure TfrmItemTestInPut.LookImage(FileName: string); +var + sFieldName: string; +begin + + sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ鿴'; + + if not DirectoryExists(PChar(sFieldName)) then + CreateDirectory(PChar(sFieldName), nil); + + sFieldName := sFieldName + '\' + trim(FileName); + + try + IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', 'ַ', '127.0.0.1'); + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + try + IdFTP1.Get(fFlileFlag + '\' + trim(FileName), sFieldName, True, false); + except + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + exit; + end; + end + else + begin + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + exit; + end; + if IdFTP1.Connected then + IdFTP1.Quit; + ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL); +end; + +procedure TfrmItemTestInPut.MenuItem1Click(Sender: TObject); +begin + SelOKNo(CDS_1, True); +end; + +procedure TfrmItemTestInPut.MenuItem2Click(Sender: TObject); +begin + SelOKNo(CDS_1, False); +end; + +procedure TfrmItemTestInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + mvalues: string; +begin + mvalues := Tv1.Columns[Tv1.Controller.FocusedColumn.index].DataBinding.FieldName; + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrderUnit'; + flagname := 'λ'; + if ShowModal = 1 then + begin + SELF.CDS_1.Edit; + SELF.CDS_1.fieldbyname(mvalues).Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmItemTestInPut.v1OrdUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrderUnit'; + flagname := 'λ'; + if ShowModal = 1 then + begin + SELF.CDS_1.Edit; + SELF.CDS_1.fieldbyname('OrdUnit').Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +procedure TfrmItemTestInPut.v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'PriceUnit'; + flagname := '۸λ'; + if trim(DParameters1) <> 'Ȩ' then + begin + TBAdd.Visible := false; + TBEdit.Visible := false; + TBDel.Visible := false; + end; + + if ShowModal = 1 then + begin + SELF.CDS_1.Edit; + SELF.CDS_1.fieldbyname('PriceUnit').Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmItemTestInPut.v1PRTCodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + inherited; + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'PRTCodeName'; + flagname := 'Ʒ'; + if ShowModal = 1 then + begin + SELF.CDS_1.Edit; + SELF.CDS_1.fieldbyname('c_code').Value := trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + SELF.CDS_1.fieldbyname('c_name').Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmItemTestInPut.YCLFactoryBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := trim(TEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmItemTestInPut.N1Click(Sender: TObject); +begin + if CDS_Fact.IsEmpty then + exit; + + if trim(CDS_Fact.fieldbyname('TPFId').AsString) <> '' then + begin + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + exit; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('delete Trade_Plan_Fty where TPFId=''' + trim(CDS_Fact.fieldbyname('TPFId').AsString) + ''''); + execsql; + end; + end; + CDS_Fact.Delete; +end; + +procedure TfrmItemTestInPut.N3Click(Sender: TObject); +var + i: Integer; +begin + i := CDS_Fact.RecordCount + 1; + with CDS_Fact do + begin + Append; + fieldbyname('SerialNo').Value := i; + Post; + end; + +end; + +procedure TfrmItemTestInPut.ScrollBox1Click(Sender: TObject); +begin +// OrdDate.SetFocus; +end; + +procedure TfrmItemTestInPut.OurCoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; + TBtnEditC(Sender).TxtCode := ''; +end; + +procedure TfrmItemTestInPut.OurCoNameBtnUpClick(Sender: TObject); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := '˾'; + if ShowModal = 1 then + begin + // self.OurCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + // self.OurCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + + finally + frmCompanySel.Free; + end; + +end; + +procedure TfrmItemTestInPut.SYRNameBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := trim(TEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + fnote := True; + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmItemTestInPut.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + frmClothInfoSel := TfrmClothInfoSel.Create(SELF); + with frmClothInfoSel do + begin + if ShowModal = 1 then + begin + CDS_1.Edit; + CDS_1.fieldbyname('MPRTCode').Value := CDS_1.fieldbyname('CYNO').AsString; + CDS_1.fieldbyname('MPRTCodeName').Value := CDS_1.fieldbyname('CYName').AsString; + CDS_1.fieldbyname('MPRTSpec').Value := CDS_1.fieldbyname('CYSpec').AsString; + CDS_1.fieldbyname('MPRTCF').Value := CDS_1.fieldbyname('CYCF').AsString; + CDS_1.fieldbyname('PRTColor').Value := CDS_1.fieldbyname('CYColor').AsString; + CDS_1.fieldbyname('PRTHX').Value := CDS_1.fieldbyname('CYHX').AsString; + CDS_1.fieldbyname('MPRTMF').Value := CDS_1.fieldbyname('CYMF').AsString; + CDS_1.fieldbyname('MPRTKZ').Value := CDS_1.fieldbyname('CYKZ').AsString; + CDS_1.fieldbyname('OrderUnit').Value := CDS_1.fieldbyname('CYPUnit').AsString; + CDS_1.fieldbyname('SuoLv').Value := CDS_1.fieldbyname('SuoLv').AsString; + CDS_1.fieldbyname('GcHuaNo').Value := CDS_1.fieldbyname('GcHua').AsString; + CDS_1.fieldbyname('GsHuaNo').Value := CDS_1.fieldbyname('GsHua').AsString; + CDS_1.Post; + end; + Free; + end; +end; + +procedure TfrmItemTestInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + + // InitImageHX(); +end; + +procedure TfrmItemTestInPut.Tv1SLabPackagePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + inherited; + try + // fIsLabelSave := true; + frmTradeInspSet := TfrmTradeInspSet.Create(SELF); + with frmTradeInspSet do + begin + FDataID := trim(SELF.FMainId); + fSubUseFlag := true; + if ShowModal = 1 then + begin + SELF.CDS_1.Edit; + SELF.CDS_1.fieldbyname('SLabPackage').Value := trim(CDS_Label.fieldbyname('labelCaption').AsString); + // getLabel(); + + end; + Free; + end; + finally + // fIsLabelSave := false; + end; +end; + +procedure TfrmItemTestInPut.Tv1SLabVolumePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + inherited; + try + + frmTradeInspSet := TfrmTradeInspSet.Create(SELF); + with frmTradeInspSet do + begin + FDataID := trim(SELF.FMainId); + fSubUseFlag := true; + if ShowModal = 1 then + begin + SELF.CDS_1.Edit; + SELF.CDS_1.fieldbyname('SLabVolume').Value := trim(CDS_Label.fieldbyname('labelCaption').AsString); + // getLabel(); + + end; + Free; + end; + finally + //fIsLabelSave := false; + end; +end; + +procedure TfrmItemTestInPut.TV2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + fnote := True; + flag := 'Technics'; + flagname := ''; + if ShowModal = 1 then + begin + CDS_Fact.Edit; + CDS_Fact.fieldbyname('Technics').Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +procedure TfrmItemTestInPut.TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + fnote := True; + flag := 'GDY'; + flagname := 'Ա'; + if ShowModal = 1 then + begin + CDS_Fact.Edit; + CDS_Fact.fieldbyname('SJGDY').Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmItemTestInPut.V2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + CDS_Fact.Edit; + + CDS_Fact.fieldbyname('FtyNo').Value := trim(CDS_1.fieldbyname('CoCode').AsString); + CDS_Fact.fieldbyname('FtyName').Value := trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; + +end; + +procedure TfrmItemTestInPut.v1AttNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + inherited; + Tupimage.Click; +end; + +procedure TfrmItemTestInPut.v1Column5PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_1 do + begin + Edit; + fieldbyname(FFieldName).Value := mvalue; + fieldbyname('MGMainId').Value := ''; + Post; + end; + Tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmItemTestInPut.v1C_ColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrdColor'; + flagname := 'ɫ'; + V1Name.Caption := ''; + V1Note.Caption := 'Ӣ'; + fnote := True; + if ShowModal = 1 then + begin + SELF.CDS_1.Edit; + SELF.CDS_1.fieldbyname('c_color').Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + SELF.CDS_1.fieldbyname('c_ecolor').Value := trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmItemTestInPut.ButtonEdit(Sender: TObject; AButtonIndex: Integer); +begin + inherited; + Tupimage.Click; +end; + +procedure TfrmItemTestInPut.HYTTBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := trim(TEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmItemTestInPut.KYTTBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := trim(TEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if trim(flag) = 'OrdDefStr2' then + begin + V1Name.Caption := ''; + V1Note.Caption := 'Ӣ'; + fnote := True; + end; + if ShowModal = 1 then + begin + TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmItemTestInPut.InitDataSetDictionary(); +begin + with ADOQuery_label do + begin + close; + sql.Clear; + sql.Add('exec P_Print_RollLabel'); + sql.Add('@MJID='''' '); + sql.Add(',@Flag=''1'' '); + open; + end; +end; + +/// ////////////////////////////////// +/// +function TfrmItemTestInPut.saveCopyRuleInfo(mPlanId: string): Boolean; +var + MaxId, MaxSubId, FCoCode, FCCID, MaxCFID: string; + i: integer; +begin + result := false; + try + if trim(mPlanId) = '' then + begin + exit; + end + else + begin + MaxId := trim(mPlanId); + end; + /////////////////////////////////////////// + with ADOQueryBaseTemp do + begin + close; + sql.clear; + sql.Add('select * from Trade_Cloth_Inspect_Rule where RuleID=''' + trim(fCopyMainId) + ''''); + open; + if IsEmpty then + exit; + end; + with ADOQueryBaseCmd do + begin + close; + sql.Clear; + sql.Add('select * from Trade_Cloth_Inspect_Rule where RuleID=''' + trim(mPlanId) + ''''); + open; + end; + with ADOQueryBaseCmd do + begin + if IsEmpty then + begin + Append; + end + else + begin + Edit; + fieldbyname('Editer').Value := trim(DName); + fieldbyname('Edittime').Value := now; + end; + ////////////// + for i := 0 to ADOQueryBaseTemp.Fields.Count - 1 do + begin + if (lowercase(ADOQueryBaseTemp.Fields[i].fieldName) <> 'ruleid') then + begin + fields[i].Value := ADOQueryBaseTemp.Fields[i].Value; + end; + end; + fieldbyname('RuleID').Value := trim(mPlanId); + fieldbyname('Filler').Value := trim(DName); + fieldbyname('Editer').Value := ''; + fieldbyname('Edittime').Value := null; + Post; + end; + + FCCID := trim(MaxSubId); + result := True; + except + Application.MessageBox('쳣!', 'ʾ', 0); + end; + +end; + +function TfrmItemTestInPut.getLabel(labelType: string = ''): Boolean; +var + mLblFile: string; +begin +// if TRIM(LabVolume.Text) <> '' then +// begin +// ExportFtErpFile(TRIM(LabVolume.Text) + '.rmf', ADOQueryBaseTemp); +// mLblFile := ExtractFilePath(Application.ExeName) + 'Report\' + TRIM(LabVolume.Text) + '.rmf'; +// if not FileExists(mLblFile) then +// CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\ģǩ.rmf'), PChar(mLblFile), False); +// with RMGridReport1 do +// begin +// LoadFromFile(mLblFile); +// //Preview := RMPreview1; +// ShowReport; +// end; +// end +// else +// begin +// RMGridReport1.Clear; +// end; +// if TRIM(LabPackage.Text) <> '' then +// begin +// ExportFtErpFile(TRIM(LabPackage.Text) + '.rmf', ADOQueryBaseTemp); +// mLblFile := ExtractFilePath(Application.ExeName) + 'Report\' + TRIM(LabPackage.Text) + '.rmf'; +// if not FileExists(mLblFile) then +// CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\ģǩ.rmf'), PChar(mLblFile), False); +// with RMGridReport2 do +// begin +// LoadFromFile(mLblFile); +// // Preview := RMPreview2; +// ShowReport; +// end; +// end +// else +// begin +// RMGridReport2.Clear; +// end; + +end; + +//** +procedure TfrmItemTestInPut.initGrid(); +begin + with ADOTemp do + begin + close; + sql.Clear; + sql.Add(' select * from Trade_Plan_Sub where 1=1 '); + + sql.Add(' and MainId=''' + trim(FMainId) + ''''); + + open; + end; + try + dxLayoutControl_bzplan.BeginUpdate; + tv1.BeginUpdate(); + SCreateCDS(ADOTemp, CDS_1); + SInitCDSData(ADOTemp, CDS_1); + LSCSHData(ADOTemp, dxLayoutControl_bzplan, 7); + finally + dxLayoutControl_bzplan.EndUpdate(); + tv1.EndUpdate; + end; +end; + + + /////////////////////////////////////////////// +function TfrmItemTestInPut.getOrderMakeType(): Boolean; +begin + result := false; + fOrdeNOIsAuto := ''; + ////////////////////////////// + try + with DataLink_TradePlan.AdoDataLink do + begin + close; + sql.Clear; + sql.Add('select * from sd_erp_dll_params'); + sql.Add('where dll_name=' + quotedstr('djdPackPlan.dll')); + sql.Add('and set_item=' + quotedstr('order_auto')); + sql.Add('and valid=1'); + open; + if recordCount > 0 then + fOrdeNOIsAuto := trim(fieldByName('set_value').AsString); + end; + except + + end; + result := true; +end; + +//////////////////////////////////////////////// +procedure TfrmItemTestInPut.threadLoadform(); +begin + +end; + +end. + diff --git a/项目代码/DJ/G01贸易生产计划/U_ItemTestList.dfm b/项目代码/DJ/G01贸易生产计划/U_ItemTestList.dfm new file mode 100644 index 0000000..5844f33 --- /dev/null +++ b/项目代码/DJ/G01贸易生产计划/U_ItemTestList.dfm @@ -0,0 +1,1614 @@ +inherited frmItemTestList: TfrmItemTestList + Caption = #29289#27979#25253#21578 + ClientHeight = 712 + ClientWidth = 1290 + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Height = -16 + FormStyle = fsMDIChild + Visible = True + ExplicitTop = -142 + ExplicitWidth = 1306 + ExplicitHeight = 751 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1290 + Height = 76 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 105 + Caption = 'ToolBar1' + Color = clBtnFace + Images = DataLink_TradePlan.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 5 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object Tfilter: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + OnClick = TfilterClick + end + object TBAdd: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + OnClick = TBAddClick + end + object btnCopy: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 13 + OnClick = btnCopyClick + end + object TBEdit: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = TBDelClick + end + object Tdjsz: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #25171#21367#35774#32622 + ImageIndex = 25 + Visible = False + OnClick = TdjszClick + end + object Tbqyl: TToolButton + Left = 529 + Top = 0 + AutoSize = True + Caption = #26631#31614#39044#35272 + DropdownMenu = PopupMenu1 + ImageIndex = 8 + Style = tbsDropDown + Visible = False + end + object TBPrint: TToolButton + Left = 655 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + Wrap = True + OnClick = TBPrintClick + end + object TBCK: TToolButton + Left = 0 + Top = 38 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 8 + Visible = False + OnClick = TBCKClick + end + object ToolButton4: TToolButton + Left = 71 + Top = 38 + AutoSize = True + Caption = #38468#20214 + ImageIndex = 22 + Visible = False + OnClick = ToolButton4Click + end + object TWC: TToolButton + Left = 142 + Top = 38 + AutoSize = True + Caption = #23436#25104 + ImageIndex = 12 + Visible = False + OnClick = TWCClick + end + object Ttoexcel: TToolButton + Left = 213 + Top = 38 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 28 + OnClick = TtoexcelClick + end + object TNowc: TToolButton + Left = 284 + Top = 38 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 11 + Visible = False + OnClick = TNowcClick + end + object Tcdgl: TToolButton + Left = 387 + Top = 38 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 30 + Visible = False + OnClick = TcdglClick + end + object Tupdateto: TToolButton + Left = 490 + Top = 38 + AutoSize = True + Caption = #25968#25454#21516#27493 + ImageIndex = 50 + Visible = False + OnClick = TupdatetoClick + end + object Tbcgs: TToolButton + Left = 593 + Top = 38 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 37 + OnClick = TbcgsClick + end + object TBClose: TToolButton + Left = 696 + Top = 38 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object dxLayoutControl_query: TdxLayoutControl [1] + Left = 0 + Top = 76 + Width = 1290 + Height = 45 + Align = alTop + TabOrder = 6 + LayoutLookAndFeel = DataLink_TradePlan.dxLayoutSkinLookAndFeel1 + OptionsItem.SizableHorz = True + OptionsItem.SizableVert = True + object ConNo: TcxTextEdit + Tag = 2 + Left = 439 + Top = 11 + Properties.OnChange = TfilterClick + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 2 + Width = 105 + end + object BuyConNo: TcxTextEdit + Tag = 2 + Left = 10000 + Top = 9996 + ParentFont = False + Properties.OnChange = TfilterClick + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 3 + Visible = False + Width = 121 + end + object ywy: TcxTextEdit + Tag = 99 + Left = 10000 + Top = 9996 + ParentFont = False + Properties.OnChange = TfilterClick + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 4 + Visible = False + Width = 121 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 10000 + Top = 9996 + ParentFont = False + Properties.OnChange = TfilterClick + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 5 + Visible = False + Width = 121 + end + object endDate: TcxDateEdit + Left = 242 + Top = 11 + Properties.ImmediatePost = True + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 1 + Width = 132 + end + object begdate: TcxDateEdit + Left = 56 + Top = 11 + Properties.ImmediatePost = True + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 0 + Width = 155 + end + object batchNo: TcxTextEdit + Tag = 2 + Left = 10000 + Top = 10000 + Properties.OnChange = TfilterClick + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 7 + Visible = False + Width = 105 + end + object FtyPCId: TcxTextEdit + Tag = 2 + Left = 10000 + Top = 9996 + Properties.OnChange = TfilterClick + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 6 + Visible = False + Width = 105 + end + object dxLayoutControl_queryGroup_Root: TdxLayoutGroup + AlignHorz = ahParentManaged + AlignVert = avParentManaged + CaptionOptions.AlignVert = tavCenter + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + Hidden = True + ItemIndex = 2 + LayoutDirection = ldHorizontal + Padding.Bottom = -5 + Padding.Top = -5 + Padding.AssignedValues = [lpavBottom, lpavTop] + ShowBorder = False + Index = -1 + end + object dxLayoutItem_ywy: TdxLayoutItem + Tag = 99 + CaptionOptions.Text = #19994#21153#21592 + Control = ywy + ControlOptions.OriginalHeight = 25 + ControlOptions.OriginalWidth = 121 + ControlOptions.ShowBorder = False + Index = -1 + end + object dxLayoutItem_pm: TdxLayoutItem + Tag = 99 + Visible = False + CaptionOptions.Text = #20135#21697#21517#31216 + Control = C_Name + ControlOptions.OriginalHeight = 25 + ControlOptions.OriginalWidth = 121 + ControlOptions.ShowBorder = False + Index = -1 + end + object dxLayoutItem_beg: TdxLayoutItem + Parent = dxLayoutControl_queryGroup_Root + SizeOptions.Width = 195 + CaptionOptions.Text = #26085#26399 + Control = begdate + ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalWidth = 155 + ControlOptions.ShowBorder = False + Index = 0 + end + object dxLayoutItem_end: TdxLayoutItem + Parent = dxLayoutControl_queryGroup_Root + SizeOptions.Width = 154 + CaptionOptions.Text = '--' + Control = endDate + ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalWidth = 132 + ControlOptions.ShowBorder = False + Index = 1 + end + object dxLayoutItem_hth: TdxLayoutItem + Parent = dxLayoutControl_queryGroup_Root + CaptionOptions.Text = #21512#21516#21495 + Control = ConNo + ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalWidth = 105 + ControlOptions.ShowBorder = False + Index = 2 + end + object dxLayoutItem_khdh: TdxLayoutItem + Tag = 99 + Visible = False + CaptionOptions.Text = #23458#25143#21333#21495 + Control = BuyConNo + ControlOptions.OriginalHeight = 25 + ControlOptions.OriginalWidth = 121 + ControlOptions.ShowBorder = False + Index = -1 + end + object dxLayoutItem_batchno: TdxLayoutItem + CaptionOptions.Text = #26412#21378#32568#21495 + Control = batchNo + ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalWidth = 105 + ControlOptions.ShowBorder = False + Index = -1 + end + object dxLayoutItem_FtyPCId: TdxLayoutItem + CaptionOptions.Text = #26579#21378#32568#21495 + Control = FtyPCId + ControlOptions.OriginalHeight = 33 + ControlOptions.OriginalWidth = 105 + ControlOptions.ShowBorder = False + Index = -1 + end + end + object cxPageControl1: TcxPageControl [2] + Left = -7 + Top = 170 + Width = 1113 + Height = 527 + TabOrder = 2 + Properties.ActivePage = cxTabSheet1 + Properties.CustomButtons.Buttons = <> + Properties.TabPosition = tpBottom + OnClick = cxPageControl1Click + ClientRectBottom = 491 + ClientRectLeft = 2 + ClientRectRight = 1111 + ClientRectTop = 2 + object cxTabSheet1: TcxTabSheet + Caption = #35270#22270 + ImageIndex = 0 + ExplicitHeight = 427 + object cxGrid1: TcxGrid + Left = 4 + Top = 10 + Width = 1040 + Height = 246 + TabOrder = 0 + LookAndFeel.ScrollbarMode = sbmHybrid + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Position = spFooter + Sorted = True + end + item + Format = 'DataLink_TradePlan.grid_head_green' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.BestFitMaxRecordCount = 5 + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsData.Inserting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.UseOddEvenStyles = bTrue + object Tv1ConNo: TcxGridDBColumn + Caption = #29983#20135#21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1PB_Spec: TcxGridDBColumn + Caption = #22383#24067#35268#26684 + DataBinding.FieldName = 'PB_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradePlan.grid_head_blue + Width = 100 + end + object Tv1Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Con_DSLight: TcxGridDBColumn + Caption = #21512#21516#23545#33394#20809#28304 + DataBinding.FieldName = 'Con_DSLight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 119 + end + object Tv1Con_Width: TcxGridDBColumn + Caption = #21512#21516#24133#23485 + DataBinding.FieldName = 'Con_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Con_GramWeight: TcxGridDBColumn + Caption = #21512#21516#20811#37325 + DataBinding.FieldName = 'Con_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradePlan.grid_head_blue + Width = 100 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid5: TcxGrid + Left = 751 + Top = 47 + Width = 461 + Height = 192 + TabOrder = 1 + Visible = False + LookAndFeel.ScrollbarMode = sbmDefault + object TV5: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1OrdQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1OrdQty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = V2JYRoll + end + item + Kind = skSum + Column = V2Column8 + end + item + Kind = skSum + Column = V2Column9 + end + item + Kind = skSum + Column = V2Column10 + end + item + Kind = skSum + Column = V2Column11 + end + item + Kind = skSum + Column = V2Column12 + end + item + Kind = skSum + Column = V2Column13 + end + item + Kind = skSum + Column = V2Column14 + end + item + Kind = skSum + Column = TV5rKMZ + end + item + Kind = skSum + Column = TV5rKQty + end + item + Kind = skSum + Column = TV5rKJZ + end + item + Kind = skSum + Column = TV5rKRoll + end + item + Kind = skSum + Column = TV5Column7 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.UseOddEvenStyles = bFalse + object TV5SSel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 56 + end + object V2BuyConNo: TcxGridDBColumn + Caption = #23458#25143#21333#21495 + DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object V2C_StyleNo: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object V2C_Name: TcxGridDBColumn + Caption = #21697#21517#20013#25991 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object V2C_EName: TcxGridDBColumn + Caption = #21697#21517#33521#25991 + DataBinding.FieldName = 'C_EName' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1C_ColorNo: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_TradePlan.grid_head_blue + Width = 103 + end + object V2PRTCode: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object TV5C_EColor: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'C_EColor' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1C_Pattern: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = ButtonEdit + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1OrdQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradePlan.grid_head_blue + Width = 82 + end + object v1OrdUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object TV5OrdSNote: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdSNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 117 + end + object V2C_Width: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object V2C_GramWeight: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 115 + end + object v1SOrddefstr2: TcxGridDBColumn + Caption = #30830#35748#33394#21345 + DataBinding.FieldName = 'SOrddefstr2' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object V2C_Spec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TV5batchNo: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'batchNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object TV5FtyPCId: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'FtyPCId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object V2JYRoll: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'JYRoll' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradePlan.grid_head_green + Width = 60 + end + object V2Column8: TcxGridDBColumn + Caption = #26816#39564#38271#24230 + DataBinding.FieldName = 'JYQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradePlan.grid_head_green + Width = 60 + end + object V2Column9: TcxGridDBColumn + Caption = #26816#39564#20928#37325 + DataBinding.FieldName = 'JYJZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradePlan.grid_head_green + Width = 60 + end + object V2Column10: TcxGridDBColumn + Caption = #26816#39564#27611#37325 + DataBinding.FieldName = 'JYMZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradePlan.grid_head_green + Width = 60 + end + object TV5Column7: TcxGridDBColumn + Caption = #26816#39564#30721#25968 + DataBinding.FieldName = 'JYYard' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradePlan.grid_head_green + Width = 60 + end + object V2Column11: TcxGridDBColumn + Caption = #27425#21697#21305#25968 + DataBinding.FieldName = 'JYCRoll' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Column12: TcxGridDBColumn + Caption = #27425#21697#38271#24230 + DataBinding.FieldName = 'JYCQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TV5Column8: TcxGridDBColumn + Caption = #27425#21697#30721#25968 + DataBinding.FieldName = 'JYCYQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V2Column13: TcxGridDBColumn + Caption = #27425#21697#20928#37325 + DataBinding.FieldName = 'JYCJZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Column14: TcxGridDBColumn + Caption = #27425#21697#27611#37325 + DataBinding.FieldName = 'JYCMZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TV5Column1: TcxGridDBColumn + Caption = #26368#22823#21367#21495#21644 + DataBinding.FieldName = 'maxroll' + DataBinding.IsNullValueType = True + Options.Editing = False + Width = 60 + end + object TV5Column2: TcxGridDBColumn + DataBinding.FieldName = 'djstatus' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TV5rKRoll: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'rKRoll' + DataBinding.IsNullValueType = True + Options.Editing = False + Styles.Header = DataLink_TradePlan.grid_head_cyan + Width = 60 + end + object TV5rKJZ: TcxGridDBColumn + Caption = #20837#24211#20928#37325 + DataBinding.FieldName = 'rKJZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradePlan.grid_head_cyan + Width = 60 + end + object TV5rKQty: TcxGridDBColumn + Caption = #20837#24211#38271#24230 + DataBinding.FieldName = 'rKQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradePlan.grid_head_cyan + Width = 60 + end + object TV5Column9: TcxGridDBColumn + Caption = #20837#24211#30721#25968 + DataBinding.FieldName = 'rKYQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradePlan.grid_head_cyan + Width = 60 + end + object TV5rKMZ: TcxGridDBColumn + Caption = #20837#24211#27611#37325 + DataBinding.FieldName = 'rKMZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradePlan.grid_head_cyan + Width = 60 + end + object TV5Column3: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'CKRoll' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TV5Column4: TcxGridDBColumn + Caption = #20986#24211#38271#24230 + DataBinding.FieldName = 'CKQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TV5Column10: TcxGridDBColumn + Caption = #20986#24211#30721#25968 + DataBinding.FieldName = 'CKYQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + object TV5Column5: TcxGridDBColumn + Caption = #20986#24211#20928#37325 + DataBinding.FieldName = 'CKJZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TV5Column6: TcxGridDBColumn + Caption = #20986#24211#27611#37325 + DataBinding.FieldName = 'CKMZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TV5Column11: TcxGridDBColumn + Caption = #21305#37325 + DataBinding.FieldName = 'PerWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + object TV5Column12: TcxGridDBColumn + Caption = #25439#32791 + DataBinding.FieldName = 'Loss' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV5 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 253 + Width = 1109 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid5 + ExplicitTop = 191 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 261 + Width = 1109 + Height = 228 + Align = alBottom + TabOrder = 3 + ExplicitLeft = 1 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = Tv1WarpShrink + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv1SSel: TcxGridDBColumn + Tag = 99 + Caption = #36873 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 54 + end + object Tv1RollNo: TcxGridDBColumn + Tag = 1 + Caption = #21367#21495 + DataBinding.FieldName = 'RollNo' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 90 + end + object Tv1Quantity: TcxGridDBColumn + Caption = #26631#31614#25968#37327 + DataBinding.FieldName = 'Quantity' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1C_Code: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1GramWeight: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'GramWeight' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1FullWidth: TcxGridDBColumn + Caption = #36793#21040#36793#38376#24133 + DataBinding.FieldName = 'FullWidth' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1CutttableWidth: TcxGridDBColumn + Caption = #26377#25928#24133#23485 + DataBinding.FieldName = 'CutttableWidth' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1DryColor: TcxGridDBColumn + Caption = #32784#24178#25705#33394#29282#24230 + DataBinding.FieldName = 'DryColor' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1WetColor: TcxGridDBColumn + Caption = #32784#28287#25705#33394#29282#24230 + DataBinding.FieldName = 'WetColor' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 90 + end + object Tv1WarpDensity: TcxGridDBColumn + Caption = #32463#21521#23494#24230 + DataBinding.FieldName = 'WarpDensity' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1WeftDensity: TcxGridDBColumn + Caption = #32428#21521#23494#24230 + DataBinding.FieldName = 'WeftDensity' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1WarpTaer: TcxGridDBColumn + Caption = #32463#21521#25749#30772#24378#21147 + DataBinding.FieldName = 'WarpTaer' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1WeftTear: TcxGridDBColumn + Caption = #32428#21521#25749#30772#24378#21147 + DataBinding.FieldName = 'WeftTear' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1WarpTensile: TcxGridDBColumn + Caption = #32463#21521#25289#20280#26029#35010#24378#21147 + DataBinding.FieldName = 'WarpTensile' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1WeftTensile: TcxGridDBColumn + Caption = #32428#21521#25289#20280#26029#35010#24378#21147 + DataBinding.FieldName = 'WeftTensile' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1WarpShrink: TcxGridDBColumn + Caption = #32463#21521#32553#27700#29575 + DataBinding.FieldName = 'WarpShrink' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1WeftShrink: TcxGridDBColumn + Caption = #32428#21521#32553#27700#29575 + DataBinding.FieldName = 'WeftShrink' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1Skew: TcxGridDBColumn + Caption = #32428#26012 + DataBinding.FieldName = 'Skew' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1WaterProof: TcxGridDBColumn + Caption = #38450#27700#31561#32423 + DataBinding.FieldName = 'WaterProof' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1WarpDamage: TcxGridDBColumn + Caption = #32463#21521#25439#27585#38271#24230 + DataBinding.FieldName = 'WarpDamage' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1C_Spec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1AttName: TcxGridDBColumn + Caption = #33457#22411#22270#29255 + DataBinding.FieldName = 'AttName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1WeftDamage: TcxGridDBColumn + Caption = #32428#21521#25439#27585#38271#24230 + DataBinding.FieldName = 'WeftDamage' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1PH: TcxGridDBColumn + Caption = 'PH'#20540 + DataBinding.FieldName = 'PH' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1SLabVolume: TcxGridDBColumn + Caption = #21367#26631#31614 + DataBinding.FieldName = 'SLabVolume' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1SLabPackage: TcxGridDBColumn + Caption = #21253#26631#31614 + DataBinding.FieldName = 'SLabPackage' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1PToP: TcxGridDBColumn + Caption = #28857#23545#28857#30005#38459 + DataBinding.FieldName = 'PToP' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1WaterFast: TcxGridDBColumn + Caption = #27700#27927#29282#24230 + DataBinding.FieldName = 'WaterFast' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1PillResist: TcxGridDBColumn + Caption = #25239#36215#27611#36215#29699 + DataBinding.FieldName = 'PillResist' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1AbsorpWater: TcxGridDBColumn + Caption = #21560#28287#29575 + DataBinding.FieldName = 'AbsorpWater' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1DripDiff: TcxGridDBColumn + Caption = #28404#27700#25193#25955 + DataBinding.FieldName = 'DripDiff' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1JointBubble: TcxGridDBColumn + Caption = #25340#25509#20114#27873 + DataBinding.FieldName = 'JointBubble' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1StirFloat: TcxGridDBColumn + Caption = #25340#25509#20114#27873 + DataBinding.FieldName = 'StirFloat' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1Di84: TcxGridDBColumn + Caption = #28404'84' + DataBinding.FieldName = 'Di84' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1Pao84: TcxGridDBColumn + Caption = #28404'84' + DataBinding.FieldName = 'Pao84' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1JointDye: TcxGridDBColumn + Caption = #25340#25509#20114#26579 + DataBinding.FieldName = 'JointDye' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1SeamSlip: TcxGridDBColumn + Caption = #25509#32541#28369#31227 + DataBinding.FieldName = 'SeamSlip' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TV2 + end + end + end + end + object cxTabControl1: TcxTabControl [3] + Left = 0 + Top = 121 + Width = 1290 + Height = 26 + Align = alTop + TabOrder = 3 + Visible = False + Properties.CustomButtons.Buttons = <> + Properties.HotTrack = True + Properties.RaggedRight = True + Properties.ShowFrame = True + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + #20840#37096) + LookAndFeel.Kind = lfOffice11 + LookAndFeel.NativeStyle = False + OnChange = cxTabControl1Change + ClientRectRight = 0 + ClientRectTop = 0 + end + object cxProgressBar1: TcxProgressBar [4] + Left = 349 + Top = 255 + ParentFont = False + Position = 40.000000000000000000 + Properties.AnimationSpeed = 0 + Properties.BarStyle = cxbsLEDs + Properties.BeginColor = 4259584 + Properties.BorderWidth = 1 + Properties.Marquee = True + Properties.Min = 40.000000000000000000 + Properties.PeakValue = 40.000000000000000000 + Properties.SolidTextColor = True + Properties.Text = #27491#22312#21152#36733 + Style.LookAndFeel.Kind = lfUltraFlat + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.Kind = lfUltraFlat + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.Kind = lfUltraFlat + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.Kind = lfUltraFlat + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 4 + Visible = False + Width = 141 + end + inherited loadProcess: TPanel + Left = 587 + Top = 296 + ExplicitLeft = 587 + ExplicitTop = 296 + end + inherited cxProgressBar2: TcxProgressBar + Left = 348 + Top = 250 + ExplicitLeft = 348 + ExplicitTop = 250 + ExplicitHeight = 29 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradePlan.ADOLink + Left = 609 + Top = 112 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradePlan.ADOLink + Left = 409 + Top = 113 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 463 + Top = 300 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradePlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 296 + Top = 400 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 184 + Top = 208 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 211 + Top = 272 + end + object DataSource2: TDataSource + DataSet = ORDER_SUB + Left = 248 + Top = 307 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradePlan.ADOLink + Parameters = <> + Left = 360 + Top = 387 + end + object ORDER_SUB: TClientDataSet + Aggregates = <> + Params = <> + Left = 220 + Top = 355 + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 487 + Top = 300 + end + object DataSource3: TDataSource + DataSet = cds_mxlist + Left = 336 + Top = 275 + end + object ADOQueryMxList: TADOQuery + Connection = DataLink_TradePlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 560 + Top = 320 + end + object GPM_3: TcxGridPopupMenu + PopupMenus = <> + Left = 567 + Top = 308 + end + object cds_mxlist: TClientDataSet + Aggregates = <> + Params = <> + Left = 115 + Top = 288 + end + object PopupMenu1: TPopupMenu + Left = 800 + Top = 16 + object N1: TMenuItem + Caption = #21367#26631#31614 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #21253#26631#31614 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradePlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 840 + Top = 112 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 776 + Top = 16 + ReportData = {} + end + object RMDB_1: TRMDBDataSet + Visible = False + DataSet = ADOQueryPrint + Left = 876 + Top = 24 + end +end diff --git a/项目代码/DJ/G01贸易生产计划/U_ItemTestList.pas b/项目代码/DJ/G01贸易生产计划/U_ItemTestList.pas new file mode 100644 index 0000000..36957e8 --- /dev/null +++ b/项目代码/DJ/G01贸易生产计划/U_ItemTestList.pas @@ -0,0 +1,1351 @@ +unit U_ItemTestList; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, + Vcl.ComCtrls, Vcl.ToolWin, cxGraphics, cxControls, cxLookAndFeels, cxContainer, + cxEdit, dxLayoutcxEditAdapters, dxBarBuiltInMenu, cxPC, dxLayoutContainer, + cxClasses, cxTextEdit, dxLayoutControl, cxStyles, cxCustomData, cxFilter, + cxData, cxDataStorage, cxNavigator, dxDateRanges, dxScrollbarAnnotations, + Data.DB, cxDBData, cxCalendar, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxGridCustomView, cxGrid, U_BaseList, + Data.Win.ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, Datasnap.DBClient, + cxCheckBox, cxButtonEdit, cxSplitter, dxCore, cxDateUtils, cxMaskEdit, + cxDropDownEdit, cxProgressBar, Vcl.Menus, RM_Common, RM_Class, RM_GridReport, + RM_Dataset, cxLookAndFeelPainters, Vcl.ExtCtrls; + +type + TfrmItemTestList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + btnCopy: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + Tdjsz: TToolButton; + TBPrint: TToolButton; + TBCK: TToolButton; + ToolButton4: TToolButton; + TWC: TToolButton; + TNowc: TToolButton; + Tbcgs: TToolButton; + TBClose: TToolButton; + dxLayoutControl_query: TdxLayoutControl; + ConNo: TcxTextEdit; + BuyConNo: TcxTextEdit; + dxLayoutControl_queryGroup_Root: TdxLayoutGroup; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabControl1: TcxTabControl; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + Tv1ConNo: TcxGridDBColumn; + Tv1PB_Spec: TcxGridDBColumn; + Tv1Color: TcxGridDBColumn; + Tv1Con_Width: TcxGridDBColumn; + Tv1Con_GramWeight: TcxGridDBColumn; + Tv1Con_DSLight: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + dxLayoutItem_ywy: TdxLayoutItem; + dxLayoutItem_pm: TdxLayoutItem; + ywy: TcxTextEdit; + C_Name: TcxTextEdit; + GPM_1: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + cxGrid5: TcxGrid; + TV5: TcxGridDBTableView; + TV5SSel: TcxGridDBColumn; + V2BuyConNo: TcxGridDBColumn; + V2C_StyleNo: TcxGridDBColumn; + V2C_Name: TcxGridDBColumn; + V2C_EName: TcxGridDBColumn; + v1C_ColorNo: TcxGridDBColumn; + v1C_Color: TcxGridDBColumn; + V2PRTCode: TcxGridDBColumn; + TV5C_EColor: TcxGridDBColumn; + v1OrdQty: TcxGridDBColumn; + v1OrdUnit: TcxGridDBColumn; + TV5OrdSNote: TcxGridDBColumn; + v1C_Pattern: TcxGridDBColumn; + V2C_Width: TcxGridDBColumn; + V2C_GramWeight: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v1SOrddefstr2: TcxGridDBColumn; + V2C_Spec: TcxGridDBColumn; + V2JYRoll: TcxGridDBColumn; + V2Column8: TcxGridDBColumn; + V2Column9: TcxGridDBColumn; + V2Column10: TcxGridDBColumn; + V2Column11: TcxGridDBColumn; + V2Column12: TcxGridDBColumn; + V2Column13: TcxGridDBColumn; + V2Column14: TcxGridDBColumn; + TV5Column1: TcxGridDBColumn; + TV5Column2: TcxGridDBColumn; + TV5Column3: TcxGridDBColumn; + TV5Column4: TcxGridDBColumn; + TV5Column5: TcxGridDBColumn; + TV5Column6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + endDate: TcxDateEdit; + begdate: TcxDateEdit; + dxLayoutItem_beg: TdxLayoutItem; + dxLayoutItem_end: TdxLayoutItem; + dxLayoutItem_khdh: TdxLayoutItem; + dxLayoutItem_hth: TdxLayoutItem; + DataSource2: TDataSource; + ADOQuerySub: TADOQuery; + ORDER_SUB: TClientDataSet; + GPM_2: TcxGridPopupMenu; + Tcdgl: TToolButton; + Ttoexcel: TToolButton; + DataSource3: TDataSource; + ADOQueryMxList: TADOQuery; + cxProgressBar1: TcxProgressBar; + GPM_3: TcxGridPopupMenu; + cds_mxlist: TClientDataSet; + Tfilter: TToolButton; + Tbqyl: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ADOQueryPrint: TADOQuery; + RM1: TRMGridReport; + RMDB_1: TRMDBDataSet; + Tupdateto: TToolButton; + dxLayoutItem_batchno: TdxLayoutItem; + batchNo: TcxTextEdit; + FtyPCId: TcxTextEdit; + dxLayoutItem_FtyPCId: TdxLayoutItem; + TV5FtyPCId: TcxGridDBColumn; + TV5batchNo: TcxGridDBColumn; + TV5rKRoll: TcxGridDBColumn; + TV5rKJZ: TcxGridDBColumn; + TV5rKQty: TcxGridDBColumn; + TV5rKMZ: TcxGridDBColumn; + TV5Column7: TcxGridDBColumn; + TV5Column8: TcxGridDBColumn; + TV5Column9: TcxGridDBColumn; + TV5Column10: TcxGridDBColumn; + TV5Column11: TcxGridDBColumn; + TV5Column12: TcxGridDBColumn; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + Tv1SSel: TcxGridDBColumn; + Tv1RollNo: TcxGridDBColumn; + Tv1Quantity: TcxGridDBColumn; + v1C_Code: TcxGridDBColumn; + Tv1GramWeight: TcxGridDBColumn; + Tv1FullWidth: TcxGridDBColumn; + Tv1CutttableWidth: TcxGridDBColumn; + Tv1DryColor: TcxGridDBColumn; + Tv1WetColor: TcxGridDBColumn; + Tv1WarpDensity: TcxGridDBColumn; + Tv1WeftDensity: TcxGridDBColumn; + Tv1WarpTaer: TcxGridDBColumn; + Tv1WeftTear: TcxGridDBColumn; + Tv1WarpTensile: TcxGridDBColumn; + Tv1WeftTensile: TcxGridDBColumn; + Tv1WarpShrink: TcxGridDBColumn; + Tv1WeftShrink: TcxGridDBColumn; + Tv1Skew: TcxGridDBColumn; + Tv1WaterProof: TcxGridDBColumn; + Tv1WarpDamage: TcxGridDBColumn; + v1C_Spec: TcxGridDBColumn; + v1AttName: TcxGridDBColumn; + Tv1WeftDamage: TcxGridDBColumn; + Tv1PH: TcxGridDBColumn; + Tv1SLabVolume: TcxGridDBColumn; + Tv1SLabPackage: TcxGridDBColumn; + Tv1PToP: TcxGridDBColumn; + Tv1WaterFast: TcxGridDBColumn; + Tv1PillResist: TcxGridDBColumn; + Tv1AbsorpWater: TcxGridDBColumn; + Tv1DripDiff: TcxGridDBColumn; + Tv1JointBubble: TcxGridDBColumn; + Tv1StirFloat: TcxGridDBColumn; + Tv1Di84: TcxGridDBColumn; + Tv1Pao84: TcxGridDBColumn; + Tv1JointDye: TcxGridDBColumn; + Tv1SeamSlip: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + procedure TBCloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure TBAddClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TbcgsClick(Sender: TObject); + procedure btnCopyClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TdjszClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBCKClick(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure TWCClick(Sender: TObject); + procedure TNowcClick(Sender: TObject); + procedure TcdglClick(Sender: TObject); + procedure TtoexcelClick(Sender: TObject); + procedure cxPageControl1Click(Sender: TObject); + procedure OrderNoPropertiesEditValueChanged(Sender: TObject); + procedure TfilterClick(Sender: TObject); + procedure OrderNoPropertiesChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TupdatetoClick(Sender: TObject); + procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer); + private + canshu1, canshu2: string; + fIsLoad: Boolean; + procedure InitGrid(); + procedure InitMxGrid(); + procedure InitForm(); + procedure InitSub(); + function DelData(): Boolean; + function DelSubData(): Boolean; + procedure threadLoadform(); + public + end; + +var + frmItemTestList: TfrmItemTestList; + +implementation + +uses + U_DataLink, U_RTFun, U_TradePlanInPut, U_globalVar, U_FormLayOutDesign, + U_TradeInspSet, U_AttachmentUpload, U_LabelPrint, U_ZDYHelp, U_iniParam, + U_UptPlanDataToRoll, U_PictureUpload, U_ItemTestInPut; +{$R *.dfm} + +procedure TfrmItemTestList.btnCopyClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex = 0 then + begin + if Order_Main.IsEmpty then + Exit; + + try + frmItemTestInPut := TfrmItemTestInPut.Create(Application); + with frmItemTestInPut do + begin + PState := 1; + CopyInt := 99; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + fCopyMainId := FMainId; + canshu1 := Self.canshu1; + if ShowModal = 1 then + begin + + end; + end; + finally + frmItemTestInPut.Free; + end; + end + else + begin + if cds_mxlist.IsEmpty then + Exit; + + try + frmItemTestInPut := TfrmItemTestInPut.Create(Application); + with frmItemTestInPut do + begin + PState := 1; + CopyInt := 99; + FMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString); + fCopyMainId := FMainId; + canshu1 := Self.canshu1; + if ShowModal = 1 then + begin + + end; + end; + finally + frmItemTestInPut.Free; + end; + end; + +end; + +procedure TfrmItemTestList.cxPageControl1Click(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex = 0 then + begin + dxLayoutItem_khdh.Visible := false; + dxLayoutItem_pm.Visible := false; + dxLayoutItem_batchno.Visible := false; + dxLayoutItem_FtyPCId.Visible := false; + end + else + begin + dxLayoutItem_khdh.Visible := true; + dxLayoutItem_pm.Visible := true; + dxLayoutItem_batchno.Visible := true; + dxLayoutItem_FtyPCId.Visible := true; + end; + TBRafresh.Click +end; + +procedure TfrmItemTestList.cxTabControl1Change(Sender: TObject); +begin + TBRafresh.Click + +end; + +procedure TfrmItemTestList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := cafree; +end; + +procedure TfrmItemTestList.FormCreate(Sender: TObject); +begin + inherited; + canshu1 := Trim(Self.fParameters1); + cxGrid2.Height := 250; + cxGrid1.Align := alClient; + cxPageControl1.Align := alClient; + cxPageControl1.ActivePageIndex := 0; +// cxGrid3.Align := alClient; + +// if cxPageControl1.ActivePageIndex = 0 then begin +// dxLayoutItem_khdh.Visible := false; +// dxLayoutItem_pm.Visible := false; +// dxLayoutItem_batchno.Visible:=false; +// dxLayoutItem_FtyPCId.Visible:=false; +// end +// else begin dxLayoutItem_khdh.Visible := true; +// dxLayoutItem_pm.Visible := true; +// dxLayoutItem_batchno.Visible:=true; +// dxLayoutItem_FtyPCId.Visible:=true; +// end; +end; + +procedure TfrmItemTestList.FormDestroy(Sender: TObject); +begin + inherited; + frmItemTestList := nil; +end; + +procedure TfrmItemTestList.FormShow(Sender: TObject); +//var + // mdesignCode :string; +begin + inherited; + Tbcgs.Visible := gIsCanDesign; + endDate.Date := SGetServerDate(ADOQueryBaseTemp); + begdate.Date := endDate.Date - 10; + // Scaleby(Screen.Width,1024); + InitForm(); + +// addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid1',dxLayoutControl_query,7); +// addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid3',dxLayoutControl_query,7); + //threadLoadform(); +// mdesignCode := fDllFileName +'|'+self.name+ '|' + intTostr(fformId) + '|' + 'cxgrid1'; + // addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid1',dxLayoutControl_query,7); + + //application.ProcessMessages; + +end; + +procedure TfrmItemTestList.TBAddClick(Sender: TObject); +begin + try + frmItemTestInPut := TfrmItemTestInPut.Create(Application); + with frmItemTestInPut do + begin + PState := 0; + FMainId := ''; + canshu1 := Self.canshu1; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmItemTestInPut.Free; + end; + +end; + +procedure TfrmItemTestList.TBCKClick(Sender: TObject); +var + mMainId: string; +begin + if cxPageControl1.ActivePageIndex = 0 then + begin + if Order_Main.IsEmpty then + Exit; + mMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + end + else + begin + if cds_mxlist.IsEmpty then + Exit; + mMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString); + end; + + try + frmTradePlanInPut := TfrmTradePlanInPut.Create(Application); + with frmTradePlanInPut do + begin + PState := 5; + FMainId := Trim(mMainId); + ToolBar2.Visible := false; + TBSave.Visible := false; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTradePlanInPut.Free; + end; + +end; + +procedure TfrmItemTestList.TBCloseClick(Sender: TObject); +begin + inherited; + close; +end; + +procedure TfrmItemTestList.TBDelClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex = 0 then + begin + if Order_Main.IsEmpty then + Exit; + if (canshu1 <> '') and (canshu1 <> 'Ȩ') then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + +// with ADOQueryBaseTemp do +// begin +// close; +// sql.Clear; +// sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID=''' + Trim(Order_Main.fieldbyname('mainID').AsString) + ''''); +// Open; +// end; +// if not ADOQueryBaseTemp.IsEmpty then +// begin +// Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0); +// Exit; +// end; + + if Trim(Order_Main.fieldbyname('MainId').AsString) <> '' then + begin + DelData() + end; + Order_Main.Delete; + end + else + begin + if cds_mxlist.IsEmpty then + Exit; + if (canshu1 <> '') and (canshu1 <> 'Ȩ') then + begin + if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + +// with ADOQueryBaseTemp do +// begin +// close; +// sql.Clear; +// sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID=''' + Trim(cds_mxlist.fieldbyname('mainID').AsString) + ''''); +// Open; +// end; +// if not ADOQueryBaseTemp.IsEmpty then +// begin +// Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0); +// Exit; +// end; + + if Trim(cds_mxlist.fieldbyname('subId').AsString) <> '' then + begin + DelSubData() + end; +// cds_mxlist.Delete; + + end; + +end; + +procedure TfrmItemTestList.TBEditClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex = 0 then + begin + if Order_Main.IsEmpty then + Exit; + + if (canshu1 <> '') and (canshu1 <> 'Ȩ') then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; + + try + frmItemTestInPut := TfrmItemTestInPut.Create(Application); + with frmItemTestInPut do + begin + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); +// FOrderNo := Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + canshu1 := Self.canshu1; + if ShowModal = 1 then + begin + + end; + end; + finally + frmItemTestInPut.Free; + end; + end + else + begin + if cds_mxlist.IsEmpty then + Exit; + + if (canshu1 <> '') and (canshu1 <> 'Ȩ') then + begin + if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; + + try + frmItemTestInPut := TfrmItemTestInPut.Create(Application); + with frmItemTestInPut do + begin + PState := 1; + FMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString); + FOrderNo := Trim(Self.cds_mxlist.fieldbyname('OrderNo').AsString); + canshu1 := Self.canshu1; + if ShowModal = 1 then + begin + + end; + end; + finally + frmItemTestInPut.Free; + end; + end; + +end; + +procedure TfrmItemTestList.TBPrintClick(Sender: TObject); +var + WSql: string; + mxIds: string; +begin + mxIds := ''; + if cxPageControl1.ActivePageIndex = 0 then + begin + if Order_Main.IsEmpty then + Exit; + WSql := (Trim(Order_Main.fieldbyname('MainId').AsString)); + ORDER_SUB.First; + while not ORDER_SUB.eof do + begin + if ORDER_SUB.FieldByName('SSel').AsBoolean then + mxIds := trim(ORDER_SUB.FieldByName('subId').AsString) + ',' + mxIds; + ORDER_SUB.Next; + end; + end + else + begin + if cds_mxlist.IsEmpty then + Exit; + WSql := (Trim(cds_mxlist.fieldbyname('MainId').AsString)); + end; + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'ItemTestPrint'; + FFiltration1 := WSql; + FFiltrationSubs := mxIds; + if ShowModal = 1 then + begin + // Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; + +end; + +procedure TfrmItemTestList.TBRafreshClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex = 0 then + InitGrid() + else +// InitMxGrid(); +end; + +procedure TfrmItemTestList.TcdglClick(Sender: TObject); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'WFBCD'; + flagname := 'õ'; + fnote := true; + V1Note.Caption := 'Ӣ'; + if ShowModal = 1 then + begin + + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +procedure TfrmItemTestList.TdjszClick(Sender: TObject); +var + mOrderNo, mMainId: string; +begin + if cxPageControl1.ActivePageIndex = 0 then + begin + if Order_Main.IsEmpty then + Exit; + mOrderNo := Trim(Order_Main.fieldbyname('orderNo').AsString); + mMainId := Trim(Order_Main.fieldbyname('mainId').AsString); + end + else + begin + if cds_mxlist.IsEmpty then + Exit; + mOrderNo := Trim(cds_mxlist.fieldbyname('orderNo').AsString); + mMainId := Trim(cds_mxlist.fieldbyname('mainId').AsString); + end; + try + frmTradeInspSet := TfrmTradeInspSet.Create(Application); + with frmTradeInspSet do + begin + // caption:=mOrderNo+'ǩ' + FDataID := mMainId; + + if ShowModal = 1 then + begin + + end; + end; + finally + frmTradeInspSet.Free; + end; + +end; + +procedure TfrmItemTestList.TNowcClick(Sender: TObject); +var + mOrderNo, mMainId: string; +begin + if cxPageControl1.ActivePageIndex = 0 then + begin + if Order_Main.IsEmpty then + Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + mOrderNo := Trim(Order_Main.fieldbyname('orderNo').AsString); + mMainId := Trim(Order_Main.fieldbyname('mainId').AsString); + end + else + begin + if cds_mxlist.IsEmpty then + Exit; + if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + mOrderNo := Trim(cds_mxlist.fieldbyname('orderNo').AsString); + mMainId := Trim(cds_mxlist.fieldbyname('mainId').AsString); + end; + if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryBaseCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Plan_Main SET status=''9'' '); + sql.Add('where mainID=' + quotedstr(mMainId)); + 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(mOrderNo)))); + sql.Add(',' + quotedstr(Trim('ɹ'))); + sql.Add(')'); + execsql; + end; + Application.MessageBox('ƻɳɹ', 'ʾϢ'); + TBRafresh.Click; + except + Application.MessageBox('ƻʧܣ', 'ʾϢ', 0); + end; + +end; + +procedure TfrmItemTestList.TbcgsClick(Sender: TObject); +begin +// if cxPageControl1.ActivePageIndex = 1 then +// begin +// WriteCxGrid('ⱨϸбT3', tv3, gDllFileCaption); +// end +// else +// begin + WriteCxGrid('ⱨбT1', Tv1, gDllFileCaption); + WriteCxGrid('ⱨбT2', TV2, gDllFileCaption); +// end; + if gIsCanDesign then + begin + saveLayOut(application, dxLayoutControl_query, ADOQueryBaseCmd, pwidechar(fDllFileName + '|' + Self.name + '|' + dxLayoutControl_query.name + '.ini')); + end; +end; + +procedure TfrmItemTestList.TtoexcelClick(Sender: TObject); +begin + if (cxPageControl1.ActivePageIndex = 0) then + begin + if cxGrid2.Focused then + begin + TcxGridToExcel(Self.Caption, cxGrid2); + end + else + begin + TcxGridToExcel(Self.Caption + '-ϸ', cxGrid1); + end; + end +// else +// begin +// TcxGridToExcel(Self.Caption + '-ϸ', cxGrid3); +// end; +end; + +procedure TfrmItemTestList.TfilterClick(Sender: TObject); +begin + inherited; + conno.Tag := 2; + if cxPageControl1.ActivePageIndex = 0 then + begin + try + Tv1.BeginUpdate(); + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SLGetFilters(dxLayoutControl_query, 1, 2)); + Order_Main.EmptyDataSet; + SInitCDSData(ADOQueryMain, Order_Main); + end; + finally + Tv1.EndUpdate; + end; + end + else + begin +// try +// tv3.BeginUpdate(); +// if ADOQueryMxList.Active then +// begin +// SDofilter(ADOQueryMxList, SLGetFilters(dxLayoutControl_query, 1, 2)); +// cds_mxlist.EmptyDataSet; +// SInitCDSData(ADOQueryMxList, cds_mxlist); +// end; +// finally +// tv3.EndUpdate; +// end; + end; +end; + +procedure TfrmItemTestList.TupdatetoClick(Sender: TObject); +var + mOrderNo, mMainId: string; +begin + if cxPageControl1.ActivePageIndex = 0 then + begin + if Order_Main.IsEmpty then + Exit; + mOrderNo := Trim(Order_Main.fieldbyname('orderNo').AsString); + mMainId := Trim(Order_Main.fieldbyname('mainId').AsString); + end + else + begin + if cds_mxlist.IsEmpty then + Exit; + mOrderNo := Trim(cds_mxlist.fieldbyname('orderNo').AsString); + mMainId := Trim(cds_mxlist.fieldbyname('mainId').AsString); + end; + frmUptPlanDataToRoll := TfrmUptPlanDataToRoll.create(Application); + with frmUptPlanDataToRoll do + begin + fMainId := mMainId; + cxTextEdit1.Text := trim(mOrderNo); + showModal; + free; + end; + +end; + +procedure TfrmItemTestList.ToolButton4Click(Sender: TObject); +var + mMainId: string; +begin + if cxPageControl1.ActivePageIndex = 0 then + begin + if Order_Main.IsEmpty then + Exit; + mMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + end + else + begin + if cds_mxlist.IsEmpty then + Exit; + mMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString); + end; + try + frmAttachmentUpload := TfrmAttachmentUpload.Create(Application); + with frmAttachmentUpload do + begin + if Trim(canshu1) <> 'ѯ' then + FEditAuthority := true; + fkeyNO := Trim(mMainId); + fType := 'ָʾ'; + if ShowModal = 1 then + begin + + end; + end; + finally + frmAttachmentUpload.Free; + end; + +end; + +procedure TfrmItemTestList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + if fIsLoad then + InitSub(); + +end; + +procedure TfrmItemTestList.TWCClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex = 0 then + 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 ADOQueryBaseCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Plan_Main SET status=''10'' '); + sql.Add('where mainID=' + quotedstr(Trim(Order_Main.fieldbyname('mainID').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('orderNO').AsString)))); + sql.Add(',' + quotedstr(Trim('ɹ'))); + sql.Add(')'); + execsql; + end; + + Application.MessageBox('ƻɳɹ', 'ʾϢ'); + TBRafresh.Click; + except + Application.MessageBox('ƻʧܣ', 'ʾϢ', 0); + end; + end + else + begin + if cds_mxlist.IsEmpty then + Exit; + if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + + if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryBaseCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Plan_Main SET status=''10'' '); + sql.Add('where mainID=' + quotedstr(Trim(cds_mxlist.fieldbyname('mainID').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(cds_mxlist.fieldbyname('orderNO').AsString)))); + sql.Add(',' + quotedstr(Trim('ɹ'))); + sql.Add(')'); + execsql; + end; + + Application.MessageBox('ƻɳɹ', 'ʾϢ'); + TBRafresh.Click; + except + Application.MessageBox('ƻʧܣ', 'ʾϢ', 0); + end; + end; + +end; + +procedure TfrmItemTestList.ButtonEdit(Sender: TObject; AButtonIndex: Integer); +begin + inherited; + try + frmPictureUpload := TfrmPictureUpload.Create(Application); + with frmPictureUpload do + begin + fFlileFlag := UserDataFlag + 'HX'; + FWidth := 250; + FHeight := 300; + FTFType := 'HX'; + FDataId := Trim(Self.ORDER_SUB.fieldbyname('subId').AsString); + if ShowModal = 1 then + begin + end; + end; + finally + frmPictureUpload.Free; + end; +end; + +procedure TfrmItemTestList.InitGrid(); +var + strwhere: string; + mStatus: string; +begin + strwhere := ''; + mStatus := cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption; + ConNo.Tag := 99; + batchNo.Tag := 99; + FtyPCId.Tag := 99; + strwhere := SLGetFilters(dxLayoutControl_query, 1, 2); + if Trim(strwhere) <> '' then + begin + strwhere := ' and ' + Trim(strwhere); + end; + + if (Trim(DParameters1) <> 'Ȩ') then + strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName)); + + try + Tv1.BeginUpdate(); + fIsLoad := false; + loadProcess.Visible := true; + loadProcess.Refresh; + + Order_Main.DisableControls; + with ADOQueryMain do + begin + + close; + Filtered := false; + sql.Clear; + sql.Add('exec P_View_ItemTestList :begdate,:enddate,:WSql'); + Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', begdate.Date); + Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1); +// Parameters.ParamByName('mStatus').Value := mStatus; + Parameters.ParamByName('WSql').Value := strwhere; + Open; + end; + // if Order_Main.Fields.Count<=1 then + SCreateCDS(ADOQueryMain, Order_Main); + SInitCDSData(ADOQueryMain, Order_Main); + finally + Tv1.DataController.Filter.Clear; + Order_Main.EnableControls; + + Tv1.EndUpdate; + TV1.Controller.GoToFirst(); + fIsLoad := true; + InitSub(); + + loadProcess.Visible := false; + + end; + +end; + +procedure TfrmItemTestList.InitForm(); +begin + addQryContionByLay(ADOQueryBaseTemp, fformId, 'cxgrid1', dxLayoutControl_query, 7); +// addQryContionByLay(ADOQueryBaseTemp, fformId, 'cxgrid3', dxLayoutControl_query, 7); + ReadCxGrid('ⱨбT1', Tv1, gDllFileCaption); + ReadCxGrid('ⱨбT2', TV2, gDllFileCaption); +// ReadCxGrid('ⱨϸбT3', tv3, gDllFileCaption); + + InitGrid(); + +end; + +procedure TfrmItemTestList.InitSub(); +begin + ADOQuerySub.close; +// if Order_Main.IsEmpty then +// Exit; + try + TV2.BeginUpdate(); + ORDER_SUB.DisableControls; + with ADOQuerySub do + begin + close; + sql.Clear; + sql.Add('exec P_View_ItemTestMxList '); + sql.Add('@mainId =' + quotedstr((Order_Main.fieldbyname('mainID').AsString))); + Open; + end; + // if ORDER_SUB.Fields.Count<=1 then + SCreateCDS(ADOQuerySub, ORDER_SUB); + SInitCDSData(ADOQuerySub, ORDER_SUB); + finally + ORDER_SUB.EnableControls; + TV2.EndUpdate; + end; + + // +end; + +procedure TfrmItemTestList.N1Click(Sender: TObject); +var + FLabVolume, fPrintFile, mSubId: string; +begin + if cxPageControl1.ActivePageIndex = 0 then + begin + if ORDER_SUB.IsEmpty then + Exit; + mSubId := Trim(ORDER_SUB.fieldbyname('SUBID').AsString); + end + else + begin + if cds_mxlist.IsEmpty then + Exit; + mSubId := Trim(cds_mxlist.fieldbyname('SUBID').AsString); + end; + // + with ADOQueryPrint do + begin + close; + sql.Clear; + sql.Add(' EXEC P_Trade_Print_djd_Lab '); + sql.Add(' @CIID=''' + mSubId + ''''); + sql.Add(',@isTest =1'); + Open; + end; + + if Trim(ADOQueryPrint.fieldbyname('SLabVolume').AsString) <> '' then + FLabVolume := Trim(ADOQueryPrint.fieldbyname('SLabVolume').AsString) + else + FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString); + + if FLabVolume = '' then + FLabVolume := trim(gDefaultLableFile); + if FLabVolume = '' then + begin + Application.MessageBox('δþǩ', 'ʾϢ', MB_ICONERROR); + Exit; + end; + ExportFtErpFile(FLabVolume + '.rmf', ADOQueryBaseTemp); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf'; + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> 'Ʒǩ' then + RM1.DefaultCopies := 2 + else + RM1.DefaultCopies := 1; + RM1.ShowErrorMsg := false; + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + end; + +end; + +procedure TfrmItemTestList.N2Click(Sender: TObject); +var + MLabPackage, fPrintFile, mSubId: string; +begin + if cxPageControl1.ActivePageIndex = 0 then + begin + if ORDER_SUB.IsEmpty then + Exit; + mSubId := Trim(ORDER_SUB.fieldbyname('SUBID').AsString); + end + else + begin + if cds_mxlist.IsEmpty then + Exit; + mSubId := Trim(cds_mxlist.fieldbyname('SUBID').AsString); + end; + with ADOQueryPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Trade_Insp_Prt_djd_PackLab_test '); + sql.Add('@subId =' + quotedstr(mSubId)); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLabPackage').AsString) <> '' then + MLabPackage := Trim(ADOQueryPrint.fieldbyname('SLabPackage').AsString) + else + MLabPackage := Trim(ADOQueryPrint.fieldbyname('LabPackage').AsString); + if MLabPackage = '' then + MLabPackage := trim(gDefaultPackLableFile); + if MLabPackage = '' then + begin + Application.MessageBox('δðǩ', 'ʾϢ', MB_ICONERROR); + Exit; + end; + ExportFtErpFile(Trim(MLabPackage) + '.rmf', ADOQueryBaseTemp); + + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(MLabPackage) + '.rmf'; + if not FileExists(fPrintFile) then + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + Exit; + end; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.DefaultCopies := 1; + RM1.ShowErrorMsg := false; + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + end; + +end; + +procedure TfrmItemTestList.OrderNoPropertiesChange(Sender: TObject); +begin + inherited; + Tfilter.Click; +end; + +procedure TfrmItemTestList.OrderNoPropertiesEditValueChanged(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmItemTestList.InitMxGrid(); +var + strwhere: string; + mStatus: string; +begin + strwhere := ''; + try + loadProcess.Visible := true; + loadProcess.Refresh; +// tv3.BeginUpdate(); + ConNo.Tag := 2; + batchNo.Tag := 2; + FtyPCId.Tag := 2; + strwhere := SLGetFilters(dxLayoutControl_query, 1, 2); + if Trim(strwhere) <> '' then + begin + strwhere := ' and ' + Trim(strwhere); + end; + mStatus := cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption; + if (Trim(DParameters1) <> 'Ȩ') then + strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName)); + + cds_mxlist.DisableControls; + with ADOQueryMxList do + begin + close; + Filtered := false; + sql.Clear; + sql.Add('exec P_View_TradePlanMxList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql'); + Parameters.ParamByName('timeType').Value := 'Ƶ'; + Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', begdate.Date); + Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1); + Parameters.ParamByName('mStatus').Value := mStatus; + // if strwhere<> then + Parameters.ParamByName('WSql').Value := ' ' + strwhere; + Open; + end; + + // if cds_mxlist.Fields.Count<=1 then + SCreateCDS(ADOQueryMxList, cds_mxlist); + SInitCDSData(ADOQueryMxList, cds_mxlist); + + cds_mxlist.EnableControls; + +// tv3.DataController.Filter.Clear; + finally +// TV3.Controller.GoToFirst(); +// tv3.EndUpdate; + loadProcess.Visible := false; + end; +end; + +function TfrmItemTestList.DelData(): Boolean; +begin + try + Result := false; + ADOQueryBaseCmd.Connection.BeginTrans; + with ADOQueryBaseCmd do + begin + close; + sql.Clear; + sql.Add('delete Item_Test_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + sql.Add('delete Item_Test_sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); +// sql.Add('delete Trade_Plan_Fty where MainId=''' + Trim(Order_Main.fieldbyname('MainId').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('ConNo').AsString)))); + sql.Add(',' + quotedstr(Trim('ɹ'))); + sql.Add(')'); + execsql; + end; + + ADOQueryBaseCmd.Connection.CommitTrans; + Result := true; + except + ADOQueryBaseCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; +///////////////////////////////////////////////// + +function TfrmItemTestList.DelSubData(): Boolean; +var + mSubId: string; +begin + try + Result := false; + mSubId := Trim(cds_mxlist.fieldbyname('subId').AsString); + ADOQueryBaseCmd.Connection.BeginTrans; + with ADOQueryBaseCmd do + begin + close; + sql.Clear; + // sql.Add('delete Trade_Plan_Main where MainId=''' + + // Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + sql.Add('delete Trade_Plan_Sub where MainId=' + quotedstr(Trim(cds_mxlist.fieldbyname('MainId').AsString))); + sql.Add('and subId=' + quotedstr(mSubId)); + // sql.Add('delete Trade_Plan_Fty where MainId=''' + + // Trim(Order_Main.fieldbyname('MainId').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('OrderNO').AsString) + ';ϸid=' + mSubId))); + sql.Add(',' + quotedstr(Trim('ɹ'))); + sql.Add(')'); + execsql; + end; + + ADOQueryBaseCmd.Connection.CommitTrans; + Result := true; + except + ADOQueryBaseCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; +//////////////////////////////////////////////// + +procedure TfrmItemTestList.threadLoadform(); +var + thread: TThread; +begin + + thread := TThread.CreateAnonymousThread( + procedure + begin + + with ADOQueryMain do + begin + + close; + Filtered := false; + sql.Clear; + sql.Add('exec P_View_TradePlanList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql'); + Parameters.ParamByName('timeType').Value := 'Ƶ'; + Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', begdate.Date); + Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1); + Parameters.ParamByName('mStatus').Value := ''; + Parameters.ParamByName('WSql').Value := ''; + Open; + end; + end); + + thread.FreeOnTerminate := True; + thread.Start; + +end; + +end. + diff --git a/项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.dfm b/项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.dfm index a06b0e8..b89adab 100644 --- a/项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.dfm +++ b/项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.dfm @@ -8,7 +8,6 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut Position = poScreenCenter WindowState = wsMaximized OnClose = FormClose - ExplicitTop = -63 ExplicitWidth = 1093 ExplicitHeight = 689 PixelsPerInch = 96 @@ -71,12 +70,13 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut object Tsj: TToolButton Left = 273 Top = 0 + AutoSize = True Caption = #20445#23384#35774#35745 ImageIndex = 16 OnClick = TsjClick end object TBClose: TToolButton - Left = 392 + Left = 360 Top = 0 AutoSize = True Caption = #20851#38381 @@ -167,6 +167,14 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut ImageIndex = 49 OnClick = ToolButton7Click end + object Timport: TToolButton + Left = 744 + Top = 0 + AutoSize = True + Caption = #23548#20837 + ImageIndex = 17 + OnClick = TimportClick + end end object dxPanel1: TdxPanel [3] Left = 0 @@ -1022,10 +1030,6 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut object cxTabSheet2: TcxTabSheet Caption = #21253#26631#31614 ImageIndex = 1 - ExplicitLeft = 0 - ExplicitTop = 28 - ExplicitWidth = 200 - ExplicitHeight = 309 object RMPreview2: TRMPreview Left = 0 Top = 0 @@ -1042,8 +1046,6 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut Options.DrawBorder = False Options.BorderPen.Color = clGray Options.BorderPen.Style = psDash - ExplicitWidth = 200 - ExplicitHeight = 309 end end end @@ -1055,8 +1057,6 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut Height = 250 Align = alBottom TabOrder = 3 - ExplicitLeft = 1 - ExplicitTop = 399 object Tv1: TcxGridDBTableView PopupMenu = PM_1 Navigator.Buttons.CustomButtons = <> @@ -1348,6 +1348,13 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut HeaderAlignmentHorz = taCenter Width = 60 end + object Tv1BatchNoQty: TcxGridDBColumn + Caption = #33853#33394#25968#37327 + DataBinding.FieldName = 'BatchNoQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -1389,7 +1396,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut Aggregates = <> Params = <> Left = 539 - Top = 516 + Top = 515 end object GPM_1: TcxGridPopupMenu [12] Grid = cxGrid1 @@ -1527,4 +1534,10 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut OnClick = MenuItem2Click end end + object CDS_LM: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 328 + end end diff --git a/项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.pas b/项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.pas index 2fd1286..4047764 100644 --- a/项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.pas +++ b/项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.pas @@ -12,13 +12,12 @@ uses cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit, RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox, - dxDateRanges, dxBarBuiltInMenu, cxPC, - System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, - IdBaseComponent, Winapi.UrlMon, - IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, - IdFTP, ShellAPI, dxScrollbarAnnotations, cxGeometry, - dxFramedControl, dxLayoutContainer, dxLayoutControl, dxPanel, cxGroupBox, - dxLayoutcxEditAdapters, dxCore, cxDateUtils, cxImageList; + dxDateRanges, dxBarBuiltInMenu, cxPC, System.ImageList, Vcl.ImgList, + U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, Winapi.UrlMon, IdComponent, + IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, + dxScrollbarAnnotations, cxGeometry, dxFramedControl, dxLayoutContainer, + dxLayoutControl, dxPanel, cxGroupBox, dxLayoutcxEditAdapters, dxCore, ComObj, + cxDateUtils, cxImageList; type TfrmTradePlanInPut = class(TfrmBaseInput) @@ -159,62 +158,49 @@ type Tv1PB_Spec: TcxGridDBColumn; Tv1PB_Code: TcxGridDBColumn; Tv1DSLight: TcxGridDBColumn; + Timport: TToolButton; + CDS_LM: TClientDataSet; + Tv1BatchNoQty: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); - procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure YCLFactoryBtnUpClick(Sender: TObject); procedure ScrollBox1Click(Sender: TObject); procedure v1Column5PropertiesEditValueChanged(Sender: TObject); procedure HYTTBtnUpClick(Sender: TObject); procedure KYTTBtnUpClick(Sender: TObject); procedure N1Click(Sender: TObject); - procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure v1OrderUnitPropertiesEditValueChanged(Sender: TObject); - procedure Tv1Column4PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure cxDBImage1DblClick(Sender: TObject); procedure SYRNameBtnUpClick(Sender: TObject); procedure N3Click(Sender: TObject); - procedure TV2Column5PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure TV2Column1PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TV2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TbcgsClick(Sender: TObject); procedure OurCoNameBtnUpClick(Sender: TObject); procedure OurCoNameBtnDnClick(Sender: TObject); - procedure V2Column1PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure V2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ToolButton5Click(Sender: TObject); procedure C_CodeBtnDnClick(Sender: TObject); - procedure CustomerNoNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure CustomerNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure FormCreate(Sender: TObject); - procedure v1PRTCodeNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1C_ColorPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure GildingPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure FtyNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1OrdUnitPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure v1PRTCodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1C_ColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure GildingPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure FtyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1OrdUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TsjClick(Sender: TObject); - procedure LabVolumePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure LabVolumePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure LabVolumeEnter(Sender: TObject); procedure LabPackageEnter(Sender: TObject); - procedure Tv1SLabVolumePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure Tv1SLabPackagePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure Tv1SLabVolumePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1SLabPackagePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ToolButton3Click(Sender: TObject); procedure TupimageClick(Sender: TObject); procedure FormDestroy(Sender: TObject); @@ -224,15 +210,14 @@ type procedure MenuItem2Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject); - procedure v1AttNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure ButtonEdit(Sender: TObject; - AButtonIndex: Integer); + procedure v1AttNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer); procedure ToolButton8Click(Sender: TObject); + procedure TimportClick(Sender: TObject); private fIsLabelSave: Boolean; FSCXDH: string; - fOrdeNOIsAuto:string; //ǷԶ + fOrdeNOIsAuto: string; //ǷԶ procedure InitData(); procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); function SaveData(): Boolean; @@ -240,7 +225,7 @@ type procedure LookImage(FileName: string); procedure InitDataSetDictionary(); function saveCopyRuleInfo(mPlanId: string): Boolean; - function getLabel(labelType:string=''):Boolean; + function getLabel(labelType: string = ''): Boolean; procedure initGrid(); function getOrderMakeType(): Boolean; procedure threadLoadform(); @@ -248,7 +233,7 @@ type public PState, CopyInt, PriceFlag: Integer; FMainId, FFMainId, FOrderNo: string; - fCopyMainId:string; + fCopyMainId: string; FXS: Integer; canshu1: string; fFlileFlag: string; @@ -263,8 +248,8 @@ implementation uses U_DataLink, U_TradeInspSet, U_ZDYHelp, U_RTFun, U_CompanySel, - U_FormLayOutDesign,U_cxGridCustomSet, U_PictureUpload, - U_ClothInfoSel, U_globalVar, U_UptPlanDataToRoll; + U_FormLayOutDesign, U_cxGridCustomSet, U_PictureUpload, U_ClothInfoSel, + U_globalVar, U_UptPlanDataToRoll; // getpic , {$R *.dfm} @@ -279,8 +264,7 @@ begin begin close; sql.Clear; - sql.Add('select MainID from Trade_Plan_Main where orderNo=' + - quotedstr(trim(str1))); + sql.Add('select MainID from Trade_Plan_Main where orderNo=' + quotedstr(trim(str1))); open; end; if not ADOTemp.IsEmpty then @@ -292,8 +276,7 @@ begin begin close; sql.Clear; - sql.Add('select MainID from Trade_Plan_Main where orderNo=' + - quotedstr(trim(str1))); + sql.Add('select MainID from Trade_Plan_Main where orderNo=' + quotedstr(trim(str1))); open; end; if ADOCmd.IsEmpty then @@ -303,8 +286,7 @@ begin result := str1; end; -procedure TfrmTradePlanInPut.GildingPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.GildingPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); var fsj: string; FWZ: Integer; @@ -320,8 +302,7 @@ begin if ShowModal = 1 then begin - TcxButtonEdit(Sender).Text := - trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + TcxButtonEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -358,8 +339,7 @@ begin LSCSHData(ADOTemp, dxLayoutControl_bzplan, 2); // OurCoName.TxtCode := Trim(ADOTemp.FieldByName('OurCoNo').AsString); - CustName.Properties.LookupItems.Text := - trim(ADOTemp.fieldbyname('CustNo').AsString); + CustName.Properties.LookupItems.Text := trim(ADOTemp.fieldbyname('CustNo').AsString); LabVolume.Text := trim(ADOTemp.fieldbyname('LabVolume').AsString); LabPackage.Text := trim(ADOTemp.fieldbyname('LabPackage').AsString); @@ -400,16 +380,16 @@ begin begin OrdDate.Date := SGetServerDateTime(ADOTemp); DLYDate.Date := OrdDate.Date; - if fOrdeNOIsAuto='1' then + if fOrdeNOIsAuto = '1' then begin - orderNo.Text:='Զ'; - orderNo.Enabled:=false; - end - else - begin - OrderNo.Text := ''; - OrderNo.Enabled := True; - end; + orderNo.Text := 'Զ'; + orderNo.Enabled := false; + end + else + begin + OrderNo.Text := ''; + OrderNo.Enabled := True; + end; end else begin @@ -418,21 +398,21 @@ begin begin PState := 0; FMainId := ''; - if fOrdeNOIsAuto='1' then + if fOrdeNOIsAuto = '1' then begin - orderNo.Text:='Զ'; - orderNo.Enabled:=false; - end - else - begin - OrderNo.Text := ''; - OrderNo.Enabled := True; - end; + orderNo.Text := 'Զ'; + orderNo.Enabled := false; + end + else + begin + OrderNo.Text := ''; + OrderNo.Enabled := True; + end; OrdDate.Date := FDate; try - CDS_1.DisableControls ; + CDS_1.DisableControls; with CDS_1 do begin First; @@ -457,26 +437,25 @@ var begin end; -procedure TfrmTradePlanInPut.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmTradePlanInPut.FormClose(Sender: TObject; var Action: TCloseAction); begin inherited; - action:=cafree; + Action := cafree; end; procedure TfrmTradePlanInPut.FormCreate(Sender: TObject); begin - inherited; - cxGrid1.Align := alClient; - getOrderMakeType(); - if fOrdeNOIsAuto='1' then - orderNo.Enabled:=false; + inherited; + cxGrid1.Align := alClient; + getOrderMakeType(); + if fOrdeNOIsAuto = '1' then + orderNo.Enabled := false; end; procedure TfrmTradePlanInPut.FormDestroy(Sender: TObject); begin inherited; - frmTradePlanInPut:=nil; + frmTradePlanInPut := nil; end; procedure TfrmTradePlanInPut.FormShow(Sender: TObject); @@ -485,7 +464,7 @@ var begin inherited; cxPageControl1.Align := alClient; - cxPageControl1.ActivePageIndex:=0; + cxPageControl1.ActivePageIndex := 0; if PState = 5 then begin Tbcgs.Visible := false; @@ -496,29 +475,35 @@ begin OrderNo.Text := ''; fFlileFlag := UserDataFlag + 'HX'; - thread:=TThread.CreateAnonymousThread( + thread := TThread.CreateAnonymousThread( procedure begin TThread.Synchronize(nil, procedure begin - readCxGrid(trim(SELF.Caption) + '-¼봰', Tv1, gDllFileCaption); - getLabel(); + readCxGrid(trim(SELF.Caption) + '-¼봰', Tv1, gDllFileCaption); + getLabel(); end) end); - thread.FreeOnTerminate := True; - thread.Start; - application.ProcessMessages; + thread.FreeOnTerminate := True; + thread.Start; + application.ProcessMessages; + with CDS_LM do + begin + FieldDefs.Clear; + FieldDefs.Add('LXH', ftInteger, 0); + FieldDefs.Add('lCode', ftString, 40); + FieldDefs.Add('LName', ftString, 40); + close; + CreateDataSet; + end; InitData(); - - end; -procedure TfrmTradePlanInPut.FtyNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.FtyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); var fsj: string; FWZ: Integer; @@ -534,8 +519,7 @@ begin MainType := TEdit(Sender).Name; if ShowModal = 1 then begin - TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName') - .AsString); + TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -567,8 +551,7 @@ begin begin close; sql.Clear; - sql.Add('select * from Trade_Plan_Main where MainId=''' + - trim(FMainId) + ''''); + sql.Add('select * from Trade_Plan_Main where MainId=''' + trim(FMainId) + ''''); open; end; with ADOCmd do @@ -612,8 +595,7 @@ begin begin close; sql.Clear; - sql.Add('select * from Trade_Plan_Sub where MainId=''' + - trim(maxno) + ''''); + sql.Add('select * from Trade_Plan_Sub where MainId=''' + trim(maxno) + ''''); sql.Add(' and SubId=''' + trim(Smaxno) + ''''); open; end; @@ -630,10 +612,8 @@ begin RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_Plan_Sub', 9); LRTSetsavedata(ADOCmd, 'Trade_Plan_Sub', dxLayoutControl_bzplan, 7); fieldbyname('MainId').Value := trim(maxno); - fieldbyname('ConSId').Value := - trim(CDS_1.fieldbyname('ConSId').AsString); - fieldbyname('ConMId').Value := - trim(CDS_1.fieldbyname('ConMId').AsString); + fieldbyname('ConSId').Value := trim(CDS_1.fieldbyname('ConSId').AsString); + fieldbyname('ConMId').Value := trim(CDS_1.fieldbyname('ConMId').AsString); Post; // with CDS_1 do @@ -659,16 +639,14 @@ begin begin close; sql.Clear; - sql.Add('select * from Trade_Plan_Fty where MainId=''' + - trim(maxno) + ''''); + sql.Add('select * from Trade_Plan_Fty where MainId=''' + trim(maxno) + ''''); open; end; with ADOCmd do begin if IsEmpty then begin - if GetLSNo(ADOQueryBaseCmd, MaxFNo, 'JF', 'Trade_Plan_Fty', 4, 1) = false - then + if GetLSNo(ADOQueryBaseCmd, MaxFNo, 'JF', 'Trade_Plan_Fty', 4, 1) = false then raise Exception.Create('ȡˮʧ!'); Append; fieldbyname('MainId').Value := trim(maxno); @@ -678,8 +656,7 @@ begin Edit; fieldbyname('ftyName').Value := trim(factoryName.Text); - fieldbyname('ftyNo').Value := - trim(factoryName.Properties.LookupItems.Text); + fieldbyname('ftyNo').Value := trim(factoryName.Properties.LookupItems.Text); // RTSetSaveDataCDS(ADOCmd, Tv2, CDS_Fact, 'Trade_Plan_Fty', 0); Post; with CDS_Fact do @@ -699,8 +676,7 @@ begin begin close; sql.Clear; - sql.Add('select * from Trade_Plan_Main where orderno=''' + - trim(OrderNo.Text) + ''''); + sql.Add('select * from Trade_Plan_Main where orderno=''' + trim(OrderNo.Text) + ''''); open; end; if ADOCmd.RecordCount > 1 then @@ -711,17 +687,16 @@ begin begin close; sql.Clear; - sql.Add('update Trade_Plan_Main SET status=''9'',chker=''' + trim(DName) + - ''',Chktime=getdate() '); - sql.Add('where mainId='+quotedstr(maxno)); + sql.Add('update Trade_Plan_Main SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() '); + sql.Add('where mainId=' + quotedstr(maxno)); sql.Add('and status<''9'''); execsql; end; - if not saveCopyRuleInfo(maxno) then - begin + if not saveCopyRuleInfo(maxno) then + begin // raise Exception.Create('ƶʧ!'); - end; + end; FMainId := trim(maxno); ADOCmd.Connection.CommitTrans; @@ -740,13 +715,13 @@ begin // begin OrdDate.SetFocus; // end; - if not mustInCheck(application, dxLayoutControl_bzplan,PWideChar('*')) then + if not mustInCheck(application, dxLayoutControl_bzplan, PWideChar('*')) then exit; - if (pos('*', dxLayoutItem1.Caption)>0) and (trim(OrderNo.Text) = '') then - begin + if (pos('*', dxLayoutItem1.Caption) > 0) and (trim(OrderNo.Text) = '') then + begin Application.MessageBox('ŲΪգ', 'ʾ', 0); - exit; - end; + exit; + end; // if trim(OrderNo.Text) = '' then // begin // Application.MessageBox('ŲΪգ', 'ʾ', 0); @@ -758,17 +733,103 @@ begin exit; end; - if not checkColumnMustIn(application,tv1,9) then exit; - + if not checkColumnMustIn(application, tv1, 9) then + exit; if SaveData() then begin initGrid(); if not fIsLabelSave then Application.MessageBox('ɹ', 'ʾ', 0); - if PState=0 then PState:=1; - - ModalResult := 1; + if PState = 0 then + PState := 1; + + ModalResult := 1; + end; +end; + +procedure TfrmTradePlanInPut.TimportClick(Sender: TObject); +var + excelApp, WorkBook: Variant; + i, j, k, LX, ExcelRowCount: integer; + maxId, FCPID, FCPName, t1, t2, t3, FFID: string; +begin + inherited; + try + excelApp := CreateOleObject('Excel.Application'); + openDialog1.Filter := '*.CSV;*.xls'; + if opendialog1.Execute then + begin + WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName); + end + else + exit; + excelApp.Visible := false; + ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count; + except + application.MessageBox('EXCEL', 'Ϣ', MB_ICONERROR); + exit; + end; + + CDS_LM.EmptyDataSet; + + for j := 0 to Tv1.ColumnCount - 1 do + begin + with CDS_LM do + begin + Append; + FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName); + FieldByName('LName').Value := trim(Tv1.Columns[j].Caption); + Post; + end; + end; + + try + for i := 1 to 50 do + begin + if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then + continue; + if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then + begin + with CDS_LM do + begin + Edit; + FieldByName('LXH').Value := i; + Post; + end; + end; + end; + except + application.MessageBox('', 'Ϣ', MB_ICONERROR); + exit; + end; + + try + for i := 2 to ExcelRowCount do + begin + with CDS_1 do + begin + Append; + CDS_LM.First; + while not CDS_LM.Eof do + begin + if CDS_LM.FieldByName('LXH').AsInteger > 0 then + CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value; + CDS_LM.Next; + end; + Post; + end; + end; + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + except + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + exit; end; end; @@ -784,7 +845,7 @@ begin fieldbyname('SSel').Value := false; FieldByName('SerialNo').Value := CDS_1.RecordCount; //FieldByName('c_Name').Value := ''; - if trim(CDS_1.FieldByName('batchno').AsString)='' then + if trim(CDS_1.FieldByName('batchno').AsString) = '' then begin FieldByName('C_Color').Value := ''; end @@ -812,48 +873,45 @@ begin if Application.MessageBox('ȷҪɾѡ', 'ʾ', 32 + 4) <> IDYES then exit; try - CDS_1.DisableControls; - with CDS_1 do - begin - First; - while Locate('SSel', True, []) do + CDS_1.DisableControls; + with CDS_1 do begin - with ADOTemp do + First; + while Locate('SSel', True, []) do begin - close; - sql.Clear; - sql.Add('select * from Trade_Cloth_Inspect where isnull(SubId,'''')<>'''' and SubId=''' - + trim(CDS_1.fieldbyname('SubId').AsString) + ''''); - open; - end; - if ADOTemp.IsEmpty = false then - begin - Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0); - exit; - end; - if trim(CDS_1.fieldbyname('SubId').AsString) <> '' then - begin - with ADOCmd do + with ADOTemp do begin close; sql.Clear; + sql.Add('select * from Trade_Cloth_Inspect where isnull(SubId,'''')<>'''' and SubId=''' + trim(CDS_1.fieldbyname('SubId').AsString) + ''''); + open; + end; + if ADOTemp.IsEmpty = false then + begin + Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0); + exit; + end; + if trim(CDS_1.fieldbyname('SubId').AsString) <> '' then + begin + with ADOCmd do + begin + close; + sql.Clear; // sql.Add('insert into Trade_Plan_Sub_Del select * from Trade_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + ''''); - sql.Add('delete Trade_Plan_Sub where SubId=''' + - trim(CDS_1.fieldbyname('SubId').AsString) + ''''); + sql.Add('delete Trade_Plan_Sub where SubId=''' + trim(CDS_1.fieldbyname('SubId').AsString) + ''''); - execsql; + execsql; + end; end; + Delete; end; - Delete; end; - end; finally CDS_1.EnableControls; end; - end; procedure TfrmTradePlanInPut.ToolButton3Click(Sender: TObject); @@ -866,33 +924,34 @@ end; procedure TfrmTradePlanInPut.ToolButton4Click(Sender: TObject); var - strResult:string; - k:integer; - col:integer; - fieldName:string; + strResult: string; + k: integer; + col: integer; + fieldName: string; begin if CDS_1.IsEmpty then begin exit; end; - col :=tv1.controller.focusedcolumnIndex; - if col<=0 then + col := tv1.controller.focusedcolumnIndex; + if col <= 0 then begin - application.MessageBox('ѡҪ(еԪ)','Ϣ',0); - exit; + application.MessageBox('ѡҪ(еԪ)', 'Ϣ', 0); + exit; end; - fieldName:=tv1.Columns[col+1].DataBinding.FieldName; - if fieldName='' then exit; + fieldName := tv1.Columns[col + 1].DataBinding.FieldName; + if fieldName = '' then + exit; - if InputQuery('','ǰ׺ַ:',strResult) then + if InputQuery('', 'ǰ׺ַ:', strResult) then begin CDS_1.First; - k:=1; + k := 1; while not CDS_1.eof do begin CDS_1.edit; - CDS_1.FieldByName(fieldName).value :=strResult+intTostr(k); + CDS_1.FieldByName(fieldName).value := strResult + intTostr(k); CDS_1.Post; inc(k); CDS_1.Next; @@ -916,8 +975,7 @@ begin begin while CDS_1.Locate('SSel', True, []) do begin - if SELF.CDS_1.Locate('ConSubId', - trim(CDS_1.fieldbyname('SubId').AsString), []) then + if SELF.CDS_1.Locate('ConSubId', trim(CDS_1.fieldbyname('SubId').AsString), []) then begin CDS_1.Edit; CDS_1.fieldbyname('SSel').Value := false; @@ -927,32 +985,22 @@ begin begin Append; fieldbyname('SSel').Value := false; - C_Code.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Code') - .AsString); - C_Name.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Name') - .AsString); + C_Code.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Code').AsString); + C_Name.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Name').AsString); // C_Spec.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString); // C_Composition.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString); - C_Width.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Width') - .AsString); - C_GramWeight.Text := - trim(frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').AsString); + C_Width.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Width').AsString); + C_GramWeight.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').AsString); // OrdUnit.ItemIndex := OrdUnit.Items.IndexOf(trim(frmClothInfoSel.CDS_1.fieldbyname('ConUnit').AsString)); - fieldbyname('C_ColorNo').Value := - trim(frmClothInfoSel.CDS_1.fieldbyname('C_ColorNo').AsString); - fieldbyname('C_Color').Value := - trim(frmClothInfoSel.CDS_1.fieldbyname('C_Color').AsString); - fieldbyname('C_Pattern').Value := - trim(frmClothInfoSel.CDS_1.fieldbyname('C_Pattern').AsString); + fieldbyname('C_ColorNo').Value := trim(frmClothInfoSel.CDS_1.fieldbyname('C_ColorNo').AsString); + fieldbyname('C_Color').Value := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Color').AsString); + fieldbyname('C_Pattern').Value := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Pattern').AsString); - fieldbyname('OrdQty').Value := frmClothInfoSel.CDS_1.fieldbyname - ('ConQty').AsFloat; + fieldbyname('OrdQty').Value := frmClothInfoSel.CDS_1.fieldbyname('ConQty').AsFloat; - fieldbyname('DDQtyUnit').Value := frmClothInfoSel.CDS_1.fieldbyname - ('SCSUnit').AsString; - fieldbyname('OrderUnit').Value := - trim(frmClothInfoSel.CDS_1.fieldbyname('SCSUnit').AsString); + fieldbyname('DDQtyUnit').Value := frmClothInfoSel.CDS_1.fieldbyname('SCSUnit').AsString; + fieldbyname('OrderUnit').Value := trim(frmClothInfoSel.CDS_1.fieldbyname('SCSUnit').AsString); end; CDS_1.Edit; @@ -1018,32 +1066,33 @@ end; procedure TfrmTradePlanInPut.ToolButton7Click(Sender: TObject); var - strResult:string; - k:integer; - col:integer; - fieldName:string; + strResult: string; + k: integer; + col: integer; + fieldName: string; begin if CDS_1.IsEmpty then begin exit; end; - col :=tv1.controller.focusedcolumnIndex; - if col<=0 then + col := tv1.controller.focusedcolumnIndex; + if col <= 0 then begin - application.MessageBox('ѡҪ(еԪ)','Ϣ',0); - exit; + application.MessageBox('ѡҪ(еԪ)', 'Ϣ', 0); + exit; end; - fieldName:=tv1.Columns[col+1].DataBinding.FieldName; - if fieldName='' then exit; + fieldName := tv1.Columns[col + 1].DataBinding.FieldName; + if fieldName = '' then + exit; - if InputQuery('','ǰ׺ַ:',strResult) then + if InputQuery('', 'ǰ׺ַ:', strResult) then begin - k:=1; + k := 1; while not CDS_1.eof do begin CDS_1.edit; - CDS_1.FieldByName(fieldName).value :=strResult+intTostr(k); + CDS_1.FieldByName(fieldName).value := strResult + intTostr(k); CDS_1.Post; inc(k); CDS_1.Next; @@ -1053,20 +1102,22 @@ end; procedure TfrmTradePlanInPut.ToolButton8Click(Sender: TObject); begin - if (Trim(FMainId)='') then + if (Trim(FMainId) = '') then begin - Application.MessageBox('ϴͼƬ!','ʾϢ',0); + Application.MessageBox('ϴͼƬ!', 'ʾϢ', 0); Exit; end; try frmPictureUpload := TfrmPictureUpload.Create(Application); - with frmPictureUpload do begin + with frmPictureUpload do + begin fFlileFlag := self.fFlileFlag; FWidth := 250; FHeight := 300; FTFType := 'HX'; FDataId := Trim(FMainId); - if ShowModal = 1 then begin + if ShowModal = 1 then + begin InitData(); end; end; @@ -1078,30 +1129,31 @@ end; procedure TfrmTradePlanInPut.TsjClick(Sender: TObject); begin - saveLayOut(application,dxLayoutControl_bzplan, ADOQueryBaseCmd, - PWideChar( fDllFileName + '|' + SELF.Name + '|' + dxLayoutControl_bzplan.Name+ '.ini')); + saveLayOut(application, dxLayoutControl_bzplan, ADOQueryBaseCmd, PWideChar(fDllFileName + '|' + SELF.Name + '|' + dxLayoutControl_bzplan.Name + '.ini')); end; procedure TfrmTradePlanInPut.TupimageClick(Sender: TObject); begin - if CDS_1.IsEmpty then + if CDS_1.IsEmpty then Exit; - if (Trim(Self.CDS_1.fieldbyname('subId').AsString)='') then - begin - Application.MessageBox('ϴͼƬ!','ʾϢ',0); - Exit; - end; + if (Trim(Self.CDS_1.fieldbyname('subId').AsString) = '') then + begin + Application.MessageBox('ϴͼƬ!', 'ʾϢ', 0); + Exit; + end; try frmPictureUpload := TfrmPictureUpload.Create(Application); - with frmPictureUpload do begin + with frmPictureUpload do + begin fFlileFlag := self.fFlileFlag; FWidth := 250; FHeight := 300; FTFType := 'HX'; FDataId := Trim(Self.CDS_1.fieldbyname('subId').AsString); - if ShowModal = 1 then begin - InitData(); + if ShowModal = 1 then + begin + InitData(); end; end; finally @@ -1110,8 +1162,7 @@ begin end; -procedure TfrmTradePlanInPut.CustomerNoNamePropertiesButtonClick - (Sender: TObject; AButtonIndex: Integer); +procedure TfrmTradePlanInPut.CustomerNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin // try // frmCompanySel := TfrmCompanySel.Create(Application); @@ -1162,8 +1213,7 @@ begin cxPageControl1.ActivePageIndex := 0; end; -procedure TfrmTradePlanInPut.LabVolumePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.LabVolumePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try fIsLabelSave := True; @@ -1175,7 +1225,7 @@ begin with frmTradeInspSet do begin FDataID := trim(SELF.FMainId); - Tsave.Tag :=2; + Tsave.Tag := 2; if ShowModal = 1 then begin // InitDataSetDictionary(); @@ -1184,7 +1234,7 @@ begin SELF.LabPackage.Properties.LookupItems.Text := LabPackage.Text; SELF.LabPackage.Text := LabPackage.Text; getLabel(); - TcxButtonEdit( Sender ).SetFocus ; + TcxButtonEdit(Sender).SetFocus; end; Free; @@ -1207,8 +1257,7 @@ begin sFieldName := sFieldName + '\' + trim(FileName); try - IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', 'ַ', - '127.0.0.1'); + IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', 'ַ', '127.0.0.1'); IdFTP1.Username := 'three'; IdFTP1.Password := '641010'; IdFTP1.Connect(); @@ -1239,21 +1288,19 @@ end; procedure TfrmTradePlanInPut.MenuItem1Click(Sender: TObject); begin - SelOKNo(CDS_1,True); + SelOKNo(CDS_1, True); end; procedure TfrmTradePlanInPut.MenuItem2Click(Sender: TObject); begin - SelOKNo(CDS_1,False); + SelOKNo(CDS_1, False); end; -procedure TfrmTradePlanInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); var mvalues: string; begin - mvalues := Tv1.Columns[Tv1.Controller.FocusedColumn.index] - .DataBinding.FieldName; + mvalues := Tv1.Columns[Tv1.Controller.FocusedColumn.index].DataBinding.FieldName; try frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do @@ -1263,8 +1310,7 @@ begin if ShowModal = 1 then begin SELF.CDS_1.Edit; - SELF.CDS_1.fieldbyname(mvalues).Value := - trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + SELF.CDS_1.fieldbyname(mvalues).Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -1272,8 +1318,7 @@ begin end; end; -procedure TfrmTradePlanInPut.v1OrderUnitPropertiesEditValueChanged - (Sender: TObject); +procedure TfrmTradePlanInPut.v1OrderUnitPropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName, YValue: string; FDDQty, FCPCDXS, FQty, FDKCQty: Double; @@ -1349,8 +1394,7 @@ begin Tv1.Controller.EditingController.ShowEdit(); end; -procedure TfrmTradePlanInPut.v1OrdUnitPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.v1OrdUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); @@ -1361,8 +1405,7 @@ begin if ShowModal = 1 then begin SELF.CDS_1.Edit; - SELF.CDS_1.fieldbyname('OrdUnit').Value := - trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + SELF.CDS_1.fieldbyname('OrdUnit').Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -1371,8 +1414,7 @@ begin end; -procedure TfrmTradePlanInPut.v1PriceUnitPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); @@ -1390,8 +1432,7 @@ begin if ShowModal = 1 then begin SELF.CDS_1.Edit; - SELF.CDS_1.fieldbyname('PriceUnit').Value := - trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + SELF.CDS_1.fieldbyname('PriceUnit').Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -1399,8 +1440,7 @@ begin end; end; -procedure TfrmTradePlanInPut.v1PRTCodeNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.v1PRTCodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin inherited; try @@ -1412,10 +1452,8 @@ begin if ShowModal = 1 then begin SELF.CDS_1.Edit; - SELF.CDS_1.fieldbyname('c_code').Value := - trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); - SELF.CDS_1.fieldbyname('c_name').Value := - trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + SELF.CDS_1.fieldbyname('c_code').Value := trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + SELF.CDS_1.fieldbyname('c_name').Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -1438,8 +1476,7 @@ begin flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); if ShowModal = 1 then begin - TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName') - .AsString); + TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -1460,8 +1497,7 @@ begin begin close; sql.Clear; - sql.Add('delete Trade_Plan_Fty where TPFId=''' + - trim(CDS_Fact.fieldbyname('TPFId').AsString) + ''''); + sql.Add('delete Trade_Plan_Fty where TPFId=''' + trim(CDS_Fact.fieldbyname('TPFId').AsString) + ''''); execsql; end; end; @@ -1529,8 +1565,7 @@ begin flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); if ShowModal = 1 then begin - TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName') - .AsString); + TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -1538,8 +1573,7 @@ begin end; end; -procedure TfrmTradePlanInPut.Tv1Column4PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin frmClothInfoSel := TfrmClothInfoSel.Create(SELF); with frmClothInfoSel do @@ -1548,18 +1582,14 @@ begin begin CDS_1.Edit; CDS_1.fieldbyname('MPRTCode').Value := CDS_1.fieldbyname('CYNO').AsString; - CDS_1.fieldbyname('MPRTCodeName').Value := - CDS_1.fieldbyname('CYName').AsString; - CDS_1.fieldbyname('MPRTSpec').Value := - CDS_1.fieldbyname('CYSpec').AsString; + CDS_1.fieldbyname('MPRTCodeName').Value := CDS_1.fieldbyname('CYName').AsString; + CDS_1.fieldbyname('MPRTSpec').Value := CDS_1.fieldbyname('CYSpec').AsString; CDS_1.fieldbyname('MPRTCF').Value := CDS_1.fieldbyname('CYCF').AsString; - CDS_1.fieldbyname('PRTColor').Value := - CDS_1.fieldbyname('CYColor').AsString; + CDS_1.fieldbyname('PRTColor').Value := CDS_1.fieldbyname('CYColor').AsString; CDS_1.fieldbyname('PRTHX').Value := CDS_1.fieldbyname('CYHX').AsString; CDS_1.fieldbyname('MPRTMF').Value := CDS_1.fieldbyname('CYMF').AsString; CDS_1.fieldbyname('MPRTKZ').Value := CDS_1.fieldbyname('CYKZ').AsString; - CDS_1.fieldbyname('OrderUnit').Value := - CDS_1.fieldbyname('CYPUnit').AsString; + CDS_1.fieldbyname('OrderUnit').Value := CDS_1.fieldbyname('CYPUnit').AsString; CDS_1.fieldbyname('SuoLv').Value := CDS_1.fieldbyname('SuoLv').AsString; CDS_1.fieldbyname('GcHuaNo').Value := CDS_1.fieldbyname('GcHua').AsString; CDS_1.fieldbyname('GsHuaNo').Value := CDS_1.fieldbyname('GsHua').AsString; @@ -1569,15 +1599,13 @@ begin end; end; -procedure TfrmTradePlanInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); +procedure TfrmTradePlanInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin // InitImageHX(); end; -procedure TfrmTradePlanInPut.Tv1SLabPackagePropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); +procedure TfrmTradePlanInPut.Tv1SLabPackagePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin inherited; try @@ -1586,12 +1614,11 @@ begin with frmTradeInspSet do begin FDataID := trim(SELF.FMainId); - fSubUseFlag:=true; + fSubUseFlag := true; if ShowModal = 1 then begin SELF.CDS_1.Edit; - SELF.CDS_1.fieldbyname('SLabPackage').Value := - trim(CDS_Label.fieldbyname('labelCaption').AsString); + SELF.CDS_1.fieldbyname('SLabPackage').Value := trim(CDS_Label.fieldbyname('labelCaption').AsString); // getLabel(); end; @@ -1602,8 +1629,7 @@ begin end; end; -procedure TfrmTradePlanInPut.Tv1SLabVolumePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.Tv1SLabVolumePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin inherited; try @@ -1612,12 +1638,11 @@ begin with frmTradeInspSet do begin FDataID := trim(SELF.FMainId); - fSubUseFlag:=true; + fSubUseFlag := true; if ShowModal = 1 then begin SELF.CDS_1.Edit; - SELF.CDS_1.fieldbyname('SLabVolume').Value := - trim(CDS_Label.fieldbyname('labelCaption').AsString); + SELF.CDS_1.fieldbyname('SLabVolume').Value := trim(CDS_Label.fieldbyname('labelCaption').AsString); // getLabel(); end; @@ -1628,8 +1653,7 @@ begin end; end; -procedure TfrmTradePlanInPut.TV2Column1PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.TV2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); @@ -1641,8 +1665,7 @@ begin if ShowModal = 1 then begin CDS_Fact.Edit; - CDS_Fact.fieldbyname('Technics').Value := - trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CDS_Fact.fieldbyname('Technics').Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; @@ -1652,8 +1675,7 @@ begin end; -procedure TfrmTradePlanInPut.TV2Column5PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); @@ -1665,8 +1687,7 @@ begin if ShowModal = 1 then begin CDS_Fact.Edit; - CDS_Fact.fieldbyname('SJGDY').Value := - trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CDS_Fact.fieldbyname('SJGDY').Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; @@ -1675,8 +1696,7 @@ begin end; end; -procedure TfrmTradePlanInPut.V2Column1PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.V2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmCompanySel := TfrmCompanySel.Create(Application); @@ -1687,10 +1707,8 @@ begin begin CDS_Fact.Edit; - CDS_Fact.fieldbyname('FtyNo').Value := - trim(CDS_1.fieldbyname('CoCode').AsString); - CDS_Fact.fieldbyname('FtyName').Value := - trim(CDS_1.fieldbyname('CoAbbrName').AsString); + CDS_Fact.fieldbyname('FtyNo').Value := trim(CDS_1.fieldbyname('CoCode').AsString); + CDS_Fact.fieldbyname('FtyName').Value := trim(CDS_1.fieldbyname('CoAbbrName').AsString); end; end; finally @@ -1699,15 +1717,13 @@ begin end; -procedure TfrmTradePlanInPut.v1AttNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.v1AttNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin inherited; Tupimage.Click; end; -procedure TfrmTradePlanInPut.v1Column5PropertiesEditValueChanged - (Sender: TObject); +procedure TfrmTradePlanInPut.v1Column5PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; begin @@ -1724,8 +1740,7 @@ begin Tv1.Controller.EditingController.ShowEdit(); end; -procedure TfrmTradePlanInPut.v1C_ColorPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.v1C_ColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); @@ -1739,10 +1754,8 @@ begin if ShowModal = 1 then begin SELF.CDS_1.Edit; - SELF.CDS_1.fieldbyname('c_color').Value := - trim(ClientDataSet1.fieldbyname('ZDYName').AsString); - SELF.CDS_1.fieldbyname('c_ecolor').Value := - trim(ClientDataSet1.fieldbyname('Note').AsString); + SELF.CDS_1.fieldbyname('c_color').Value := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + SELF.CDS_1.fieldbyname('c_ecolor').Value := trim(ClientDataSet1.fieldbyname('Note').AsString); end; end; finally @@ -1750,8 +1763,7 @@ begin end; end; -procedure TfrmTradePlanInPut.ButtonEdit(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanInPut.ButtonEdit(Sender: TObject; AButtonIndex: Integer); begin inherited; Tupimage.Click; @@ -1772,8 +1784,7 @@ begin flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); if ShowModal = 1 then begin - TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName') - .AsString); + TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -1802,8 +1813,7 @@ begin end; if ShowModal = 1 then begin - TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName') - .AsString); + TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; @@ -1830,7 +1840,7 @@ end; function TfrmTradePlanInPut.saveCopyRuleInfo(mPlanId: string): Boolean; var MaxId, MaxSubId, FCoCode, FCCID, MaxCFID: string; - i:integer; + i: integer; begin result := false; try @@ -1847,16 +1857,16 @@ begin begin close; sql.clear; - sql.Add('select * from Trade_Cloth_Inspect_Rule where RuleID=''' +trim(fCopyMainId) + ''''); + sql.Add('select * from Trade_Cloth_Inspect_Rule where RuleID=''' + trim(fCopyMainId) + ''''); open; - if IsEmpty then exit; + if IsEmpty then + exit; end; with ADOQueryBaseCmd do begin close; sql.Clear; - sql.Add('select * from Trade_Cloth_Inspect_Rule where RuleID=''' + - trim(mPlanId) + ''''); + sql.Add('select * from Trade_Cloth_Inspect_Rule where RuleID=''' + trim(mPlanId) + ''''); open; end; with ADOQueryBaseCmd do @@ -1872,11 +1882,11 @@ begin fieldbyname('Edittime').Value := now; end; ////////////// - for i := 0 to ADOQueryBaseTemp.Fields.Count -1 do + for i := 0 to ADOQueryBaseTemp.Fields.Count - 1 do begin - if (lowercase(ADOQueryBaseTemp.Fields[i].FieldName)<>'ruleid') then + if (lowercase(ADOQueryBaseTemp.Fields[i].fieldName) <> 'ruleid') then begin - fields[i].Value:= ADOQueryBaseTemp.Fields[i].Value; + fields[i].Value := ADOQueryBaseTemp.Fields[i].Value; end; end; fieldbyname('RuleID').Value := trim(mPlanId); @@ -1894,17 +1904,17 @@ begin end; -function TfrmTradePlanInPut.getLabel(labelType:string=''):Boolean; +function TfrmTradePlanInPut.getLabel(labelType: string = ''): Boolean; var - mLblFile:String; + mLblFile: string; begin - if TRIM(LabVolume.Text)<>'' then + if TRIM(LabVolume.Text) <> '' then begin ExportFtErpFile(TRIM(LabVolume.Text) + '.rmf', ADOQueryBaseTemp); - mLblFile := ExtractFilePath(Application.ExeName) + 'Report\' + TRIM(LabVolume.Text)+ '.rmf'; + mLblFile := ExtractFilePath(Application.ExeName) + 'Report\' + TRIM(LabVolume.Text) + '.rmf'; if not FileExists(mLblFile) then CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\ģǩ.rmf'), PChar(mLblFile), False); - with RMGridReport1 do + with RMGridReport1 do begin LoadFromFile(mLblFile); //Preview := RMPreview1; @@ -1915,13 +1925,13 @@ begin begin RMGridReport1.Clear; end; - if TRIM(LabPackage.Text)<>'' then + if TRIM(LabPackage.Text) <> '' then begin ExportFtErpFile(TRIM(LabPackage.Text) + '.rmf', ADOQueryBaseTemp); - mLblFile := ExtractFilePath(Application.ExeName) + 'Report\' + TRIM(LabPackage.Text)+ '.rmf'; + mLblFile := ExtractFilePath(Application.ExeName) + 'Report\' + TRIM(LabPackage.Text) + '.rmf'; if not FileExists(mLblFile) then CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\ģǩ.rmf'), PChar(mLblFile), False); - with RMGridReport2 do + with RMGridReport2 do begin LoadFromFile(mLblFile); // Preview := RMPreview2; @@ -1933,7 +1943,6 @@ begin RMGridReport2.Clear; end; - end; //** @@ -1950,14 +1959,14 @@ begin open; end; try - dxLayoutControl_bzplan.BeginUpdate ; - tv1.BeginUpdate() ; + dxLayoutControl_bzplan.BeginUpdate; + tv1.BeginUpdate(); SCreateCDS(ADOTemp, CDS_1); SInitCDSData(ADOTemp, CDS_1); LSCSHData(ADOTemp, dxLayoutControl_bzplan, 7); finally dxLayoutControl_bzplan.EndUpdate(); - tv1.EndUpdate ; + tv1.EndUpdate; end; end; @@ -1966,7 +1975,7 @@ end; function TfrmTradePlanInPut.getOrderMakeType(): Boolean; begin result := false; - fOrdeNOIsAuto:=''; + fOrdeNOIsAuto := ''; ////////////////////////////// try with DataLink_TradePlan.AdoDataLink do @@ -1974,11 +1983,11 @@ begin close; sql.Clear; sql.Add('select * from sd_erp_dll_params'); - sql.Add('where dll_name='+quotedstr('djdPackPlan.dll')); - sql.Add('and set_item='+quotedstr('order_auto')); + sql.Add('where dll_name=' + quotedstr('djdPackPlan.dll')); + sql.Add('and set_item=' + quotedstr('order_auto')); sql.Add('and valid=1'); open; - if recordCount>0 then + if recordCount > 0 then fOrdeNOIsAuto := trim(fieldByName('set_value').AsString); end; except @@ -1989,11 +1998,9 @@ end; //////////////////////////////////////////////// procedure TfrmTradePlanInPut.threadLoadform(); - begin - - end; end. + diff --git a/项目代码/DJ/G01贸易生产计划/U_TradePlanMgeList.pas b/项目代码/DJ/G01贸易生产计划/U_TradePlanMgeList.pas index f6bafe1..b0592a3 100644 --- a/项目代码/DJ/G01贸易生产计划/U_TradePlanMgeList.pas +++ b/项目代码/DJ/G01贸易生产计划/U_TradePlanMgeList.pas @@ -4,19 +4,17 @@ interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, - System.Classes, Vcl.Graphics, - Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ToolWin, cxGraphics, - cxControls, cxLookAndFeels, - cxContainer, cxEdit, dxLayoutcxEditAdapters, dxBarBuiltInMenu, cxPC, - dxLayoutContainer, cxClasses, cxTextEdit, dxLayoutControl, cxStyles, - cxCustomData, cxFilter, cxData, cxDataStorage, cxNavigator, dxDateRanges, - dxScrollbarAnnotations, Data.DB, cxDBData, cxCalendar, cxGridLevel, - cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomView, - cxGrid, U_BaseList, Data.Win.ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, - Datasnap.DBClient, cxCheckBox, cxButtonEdit, cxSplitter, dxCore, cxDateUtils, - cxMaskEdit, cxDropDownEdit, cxProgressBar, Vcl.Menus, - RM_Common, RM_Class, RM_GridReport, RM_Dataset, cxLookAndFeelPainters, - Vcl.ExtCtrls; + System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, + Vcl.ComCtrls, Vcl.ToolWin, cxGraphics, cxControls, cxLookAndFeels, cxContainer, + cxEdit, dxLayoutcxEditAdapters, dxBarBuiltInMenu, cxPC, dxLayoutContainer, + cxClasses, cxTextEdit, dxLayoutControl, cxStyles, cxCustomData, cxFilter, + cxData, cxDataStorage, cxNavigator, dxDateRanges, dxScrollbarAnnotations, + Data.DB, cxDBData, cxCalendar, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxGridCustomView, cxGrid, U_BaseList, + Data.Win.ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, Datasnap.DBClient, + cxCheckBox, cxButtonEdit, cxSplitter, dxCore, cxDateUtils, cxMaskEdit, + cxDropDownEdit, cxProgressBar, Vcl.Menus, RM_Common, RM_Class, RM_GridReport, + RM_Dataset, cxLookAndFeelPainters, Vcl.ExtCtrls; type TfrmTradePlanMgeList = class(TfrmBaseList) @@ -217,9 +215,7 @@ type procedure FormDestroy(Sender: TObject); procedure TBRafreshClick(Sender: TObject); procedure FormShow(Sender: TObject); - procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; - APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; - ANewItemRecordFocusingChanged: Boolean); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure TBAddClick(Sender: TObject); procedure cxTabControl1Change(Sender: TObject); procedure TbcgsClick(Sender: TObject); @@ -241,8 +237,7 @@ type procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure TupdatetoClick(Sender: TObject); - procedure ButtonEdit(Sender: TObject; - AButtonIndex: Integer); + procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer); private canshu1, canshu2: string; fIsLoad: Boolean; @@ -254,7 +249,6 @@ type function DelSubData(): Boolean; procedure threadLoadform(); public - end; var @@ -270,78 +264,89 @@ uses procedure TfrmTradePlanMgeList.btnCopyClick(Sender: TObject); begin - if cxPageControl1.ActivePageIndex = 0 then - begin - if Order_Main.IsEmpty then + if cxPageControl1.ActivePageIndex = 0 then + begin + if Order_Main.IsEmpty then Exit; - try - frmTradePlanInPut := TfrmTradePlanInPut.Create(Application); - with frmTradePlanInPut do begin PState := 1; + try + frmTradePlanInPut := TfrmTradePlanInPut.Create(Application); + with frmTradePlanInPut do + begin + PState := 1; CopyInt := 99; FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); - fCopyMainId:= FMainId ; + fCopyMainId := FMainId; canshu1 := Self.canshu1; - if ShowModal = 1 then begin + if ShowModal = 1 then + begin end; end; - finally - frmTradePlanInPut.Free; - end; - end - else - begin - if cds_mxlist.IsEmpty then + finally + frmTradePlanInPut.Free; + end; + end + else + begin + if cds_mxlist.IsEmpty then Exit; - try - frmTradePlanInPut := TfrmTradePlanInPut.Create(Application); - with frmTradePlanInPut do begin PState := 1; + try + frmTradePlanInPut := TfrmTradePlanInPut.Create(Application); + with frmTradePlanInPut do + begin + PState := 1; CopyInt := 99; FMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString); - fCopyMainId:= FMainId ; + fCopyMainId := FMainId; canshu1 := Self.canshu1; - if ShowModal = 1 then begin + if ShowModal = 1 then + begin end; end; - finally - frmTradePlanInPut.Free; - end; - end; + finally + frmTradePlanInPut.Free; + end; + end; end; procedure TfrmTradePlanMgeList.cxPageControl1Click(Sender: TObject); begin - if cxPageControl1.ActivePageIndex = 0 then begin + if cxPageControl1.ActivePageIndex = 0 then + begin dxLayoutItem_khdh.Visible := false; dxLayoutItem_pm.Visible := false; - dxLayoutItem_batchno.Visible:=false; - dxLayoutItem_FtyPCId.Visible:=false; + dxLayoutItem_batchno.Visible := false; + dxLayoutItem_FtyPCId.Visible := false; end - else begin dxLayoutItem_khdh.Visible := true; + else + begin + dxLayoutItem_khdh.Visible := true; dxLayoutItem_pm.Visible := true; - dxLayoutItem_batchno.Visible:=true; - dxLayoutItem_FtyPCId.Visible:=true; + dxLayoutItem_batchno.Visible := true; + dxLayoutItem_FtyPCId.Visible := true; end; TBRafresh.Click end; procedure TfrmTradePlanMgeList.cxTabControl1Change(Sender: TObject); -begin TBRafresh.Click +begin + TBRafresh.Click end; -procedure TfrmTradePlanMgeList.FormClose(Sender: TObject; - var Action: TCloseAction); -begin inherited; +procedure TfrmTradePlanMgeList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; Action := cafree; end; procedure TfrmTradePlanMgeList.FormCreate(Sender: TObject); -begin inherited; +begin + inherited; canshu1 := Trim(Self.fParameters1); cxGrid2.Height := 250; cxGrid1.Align := alClient; @@ -362,7 +367,8 @@ begin inherited; end; procedure TfrmTradePlanMgeList.FormDestroy(Sender: TObject); -begin inherited; +begin + inherited; frmTradePlanMgeList := nil; end; @@ -371,7 +377,7 @@ procedure TfrmTradePlanMgeList.FormShow(Sender: TObject); // mdesignCode :string; begin inherited; - Tbcgs.Visible:=gIsCanDesign; + Tbcgs.Visible := gIsCanDesign; endDate.Date := SGetServerDate(ADOQueryBaseTemp); begdate.Date := endDate.Date - 10; // Scaleby(Screen.Width,1024); @@ -391,10 +397,14 @@ procedure TfrmTradePlanMgeList.TBAddClick(Sender: TObject); begin try frmTradePlanInPut := TfrmTradePlanInPut.Create(Application); - with frmTradePlanInPut do begin PState := 0; + with frmTradePlanInPut do + begin + PState := 0; FMainId := ''; canshu1 := Self.canshu1; - if ShowModal = 1 then begin InitGrid(); + if ShowModal = 1 then + begin + InitGrid(); end; end; finally @@ -405,28 +415,31 @@ end; procedure TfrmTradePlanMgeList.TBCKClick(Sender: TObject); var - mMainId:string; + mMainId: string; begin if cxPageControl1.ActivePageIndex = 0 then begin if Order_Main.IsEmpty then - Exit; + Exit; mMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); end else begin if cds_mxlist.IsEmpty then - Exit; + Exit; mMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString); end; try frmTradePlanInPut := TfrmTradePlanInPut.Create(Application); - with frmTradePlanInPut do begin PState := 5; + with frmTradePlanInPut do + begin + PState := 5; FMainId := Trim(mMainId); ToolBar2.Visible := false; TBSave.Visible := false; - if ShowModal = 1 then begin + if ShowModal = 1 then + begin end; end; @@ -437,7 +450,8 @@ begin end; procedure TfrmTradePlanMgeList.TBCloseClick(Sender: TObject); -begin inherited; +begin + inherited; close; end; @@ -445,59 +459,71 @@ procedure TfrmTradePlanMgeList.TBDelClick(Sender: TObject); begin if cxPageControl1.ActivePageIndex = 0 then begin - if Order_Main.IsEmpty then - Exit; - if (canshu1 <> '') and (canshu1 <> 'Ȩ') then begin - if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin - Application.MessageBox('ܲ˵!', 'ʾ', 0); - Exit; - end; - end; + if Order_Main.IsEmpty then + Exit; + if (canshu1 <> '') and (canshu1 <> 'Ȩ') then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; - if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then Exit; - with ADOQueryBaseTemp do begin close; + with ADOQueryBaseTemp do + begin + close; sql.Clear; - sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID=''' - + Trim(Order_Main.fieldbyname('mainID').AsString) + ''''); + sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID=''' + Trim(Order_Main.fieldbyname('mainID').AsString) + ''''); Open; - end; - if not ADOQueryBaseTemp.IsEmpty then begin - Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0); + end; + if not ADOQueryBaseTemp.IsEmpty then + begin + Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0); Exit; - end; + end; - if Trim(Order_Main.fieldbyname('MainId').AsString) <> '' then begin DelData() + if Trim(Order_Main.fieldbyname('MainId').AsString) <> '' then + begin + DelData() end; Order_Main.Delete; end else begin - if cds_mxlist.IsEmpty then - Exit; - if (canshu1 <> '') and (canshu1 <> 'Ȩ') then begin - if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then begin - Application.MessageBox('ܲ˵!', 'ʾ', 0); - Exit; - end; - end; + if cds_mxlist.IsEmpty then + Exit; + if (canshu1 <> '') and (canshu1 <> 'Ȩ') then + begin + if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; - if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then Exit; - with ADOQueryBaseTemp do begin close; + with ADOQueryBaseTemp do + begin + close; sql.Clear; - sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID=''' - + Trim(cds_mxlist.fieldbyname('mainID').AsString) + ''''); + sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID=''' + Trim(cds_mxlist.fieldbyname('mainID').AsString) + ''''); Open; - end; - if not ADOQueryBaseTemp.IsEmpty then begin - Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0); + end; + if not ADOQueryBaseTemp.IsEmpty then + begin + Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0); Exit; - end; + end; - if Trim(cds_mxlist.fieldbyname('subId').AsString) <> '' then begin DelSubData() + if Trim(cds_mxlist.fieldbyname('subId').AsString) <> '' then + begin + DelSubData() end; cds_mxlist.Delete; @@ -510,23 +536,27 @@ begin if cxPageControl1.ActivePageIndex = 0 then begin if Order_Main.IsEmpty then - Exit; + Exit; - if (canshu1 <> '') and (canshu1 <> 'Ȩ') then begin - if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin - Application.MessageBox('ܲ˵!', 'ʾ', 0); - Exit; + if (canshu1 <> '') and (canshu1 <> 'Ȩ') then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; end; end; try frmTradePlanInPut := TfrmTradePlanInPut.Create(Application); - with frmTradePlanInPut do begin + with frmTradePlanInPut do + begin PState := 1; FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); FOrderNo := Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); canshu1 := Self.canshu1; - if ShowModal = 1 then begin + if ShowModal = 1 then + begin end; end; @@ -537,23 +567,27 @@ begin else begin if cds_mxlist.IsEmpty then - Exit; + Exit; - if (canshu1 <> '') and (canshu1 <> 'Ȩ') then begin - if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then begin - Application.MessageBox('ܲ˵!', 'ʾ', 0); - Exit; + if (canshu1 <> '') and (canshu1 <> 'Ȩ') then + begin + if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; end; end; try frmTradePlanInPut := TfrmTradePlanInPut.Create(Application); - with frmTradePlanInPut do begin + with frmTradePlanInPut do + begin PState := 1; FMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString); FOrderNo := Trim(Self.cds_mxlist.fieldbyname('OrderNo').AsString); canshu1 := Self.canshu1; - if ShowModal = 1 then begin + if ShowModal = 1 then + begin end; end; @@ -567,9 +601,9 @@ end; procedure TfrmTradePlanMgeList.TBPrintClick(Sender: TObject); var WSql: string; - mxIds:string; + mxIds: string; begin - mxIds:=''; + mxIds := ''; if cxPageControl1.ActivePageIndex = 0 then begin if Order_Main.IsEmpty then @@ -579,7 +613,7 @@ begin while not ORDER_SUB.eof do begin if ORDER_SUB.FieldByName('SSel').AsBoolean then - mxIds:= trim(ORDER_SUB.FieldByName('subId').AsString)+','+mxIds; + mxIds := trim(ORDER_SUB.FieldByName('subId').AsString) + ',' + mxIds; ORDER_SUB.Next; end; end @@ -592,10 +626,13 @@ begin try frmLabelPrint := TfrmLabelPrint.Create(Application); - with frmLabelPrint do begin FLMType := 'TradePlanPrint'; + with frmLabelPrint do + begin + FLMType := 'TradePlanPrint'; FFiltration1 := WSql; - FFiltrationSubs:=mxIds; - if ShowModal = 1 then begin + FFiltrationSubs := mxIds; + if ShowModal = 1 then + begin // Self.InitGrid(); end; end; @@ -617,11 +654,14 @@ procedure TfrmTradePlanMgeList.TcdglClick(Sender: TObject); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); - with frmZDYHelp do begin flag := 'WFBCD'; + with frmZDYHelp do + begin + flag := 'WFBCD'; flagname := 'õ'; fnote := true; V1Note.Caption := 'Ӣ'; - if ShowModal = 1 then begin + if ShowModal = 1 then + begin end; end; @@ -633,21 +673,21 @@ end; procedure TfrmTradePlanMgeList.TdjszClick(Sender: TObject); var - mOrderNo,mMainId:string; + mOrderNo, mMainId: string; begin if cxPageControl1.ActivePageIndex = 0 then begin if Order_Main.IsEmpty then Exit; - mOrderNo:= Trim(Order_Main.fieldbyname('orderNo').AsString) ; - mMainId:= Trim(Order_Main.fieldbyname('mainId').AsString) ; + mOrderNo := Trim(Order_Main.fieldbyname('orderNo').AsString); + mMainId := Trim(Order_Main.fieldbyname('mainId').AsString); end else begin if cds_mxlist.IsEmpty then Exit; - mOrderNo:= Trim(cds_mxlist.fieldbyname('orderNo').AsString) ; - mMainId:= Trim(cds_mxlist.fieldbyname('mainId').AsString) ; + mOrderNo := Trim(cds_mxlist.fieldbyname('orderNo').AsString); + mMainId := Trim(cds_mxlist.fieldbyname('mainId').AsString); end; try frmTradeInspSet := TfrmTradeInspSet.Create(Application); @@ -656,7 +696,8 @@ begin // caption:=mOrderNo+'ǩ' FDataID := mMainId; - if ShowModal = 1 then begin + if ShowModal = 1 then + begin end; end; @@ -668,18 +709,19 @@ end; procedure TfrmTradePlanMgeList.TNowcClick(Sender: TObject); var - mOrderNo,mMainId:string; + mOrderNo, mMainId: string; begin if cxPageControl1.ActivePageIndex = 0 then begin if Order_Main.IsEmpty then Exit; - if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin - Application.MessageBox('ܲ˵!', 'ʾ', 0); + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); Exit; end; - mOrderNo:= Trim(Order_Main.fieldbyname('orderNo').AsString) ; - mMainId:= Trim(Order_Main.fieldbyname('mainId').AsString) ; + mOrderNo := Trim(Order_Main.fieldbyname('orderNo').AsString); + mMainId := Trim(Order_Main.fieldbyname('mainId').AsString); end else begin @@ -687,16 +729,18 @@ begin Exit; if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then begin - Application.MessageBox('ܲ˵!', 'ʾ', 0); + Application.MessageBox('ܲ˵!', 'ʾ', 0); Exit; end; - mOrderNo:= Trim(cds_mxlist.fieldbyname('orderNo').AsString) ; - mMainId:= Trim(cds_mxlist.fieldbyname('mainId').AsString) ; + mOrderNo := Trim(cds_mxlist.fieldbyname('orderNo').AsString); + mMainId := Trim(cds_mxlist.fieldbyname('mainId').AsString); end; if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then Exit; try - with ADOQueryBaseCmd do begin close; + with ADOQueryBaseCmd do + begin + close; sql.Clear; sql.Add('update Trade_Plan_Main SET status=''9'' '); sql.Add('where mainID=' + quotedstr(mMainId)); @@ -716,45 +760,55 @@ begin Application.MessageBox('ƻʧܣ', 'ʾϢ', 0); end; - end; procedure TfrmTradePlanMgeList.TbcgsClick(Sender: TObject); begin - if cxPageControl1.ActivePageIndex = 1 then begin - WriteCxGrid('װָʾϸбT3', tv3, gDllFileCaption); + if cxPageControl1.ActivePageIndex = 1 then + begin + WriteCxGrid('װָʾϸбT3', tv3, gDllFileCaption); end - else begin WriteCxGrid('װָʾбT1', Tv1, gDllFileCaption); + else + begin + WriteCxGrid('װָʾбT1', Tv1, gDllFileCaption); WriteCxGrid('װָʾбT2', TV2, gDllFileCaption); end; if gIsCanDesign then begin - saveLayOut(application,dxLayoutControl_query, ADOQueryBaseCmd, pwidechar( fDllFileName + '|' + Self.name + '|' + dxLayoutControl_query.name+ '.ini')); + saveLayOut(application, dxLayoutControl_query, ADOQueryBaseCmd, pwidechar(fDllFileName + '|' + Self.name + '|' + dxLayoutControl_query.name + '.ini')); end; end; procedure TfrmTradePlanMgeList.TtoexcelClick(Sender: TObject); begin - if (cxPageControl1.ActivePageIndex = 0) then begin - if cxGrid2.Focused then begin TcxGridToExcel(Self.Caption, cxGrid2); + if (cxPageControl1.ActivePageIndex = 0) then + begin + if cxGrid2.Focused then + begin + TcxGridToExcel(Self.Caption, cxGrid2); end - else begin TcxGridToExcel(Self.Caption + '-ϸ', cxGrid1); + else + begin + TcxGridToExcel(Self.Caption + '-ϸ', cxGrid1); end; end - else begin - TcxGridToExcel(Self.Caption+'-ϸ',cxGrid3); + else + begin + TcxGridToExcel(Self.Caption + '-ϸ', cxGrid3); end; end; procedure TfrmTradePlanMgeList.TfilterClick(Sender: TObject); begin - inherited; - conno.Tag:=2; - if cxPageControl1.ActivePageIndex = 0 then begin + inherited; + conno.Tag := 2; + if cxPageControl1.ActivePageIndex = 0 then + begin try Tv1.BeginUpdate(); - if ADOQueryMain.Active then begin - SDofilter(ADOQueryMain, SLGetFilters(dxLayoutControl_query, 1, 2)); + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SLGetFilters(dxLayoutControl_query, 1, 2)); Order_Main.EmptyDataSet; SInitCDSData(ADOQueryMain, Order_Main); end; @@ -762,11 +816,13 @@ begin Tv1.EndUpdate; end; end - else begin + else + begin try tv3.BeginUpdate(); - if ADOQueryMxList.Active then begin - SDofilter(ADOQueryMxList, SLGetFilters(dxLayoutControl_query, 1, 2)); + if ADOQueryMxList.Active then + begin + SDofilter(ADOQueryMxList, SLGetFilters(dxLayoutControl_query, 1, 2)); cds_mxlist.EmptyDataSet; SInitCDSData(ADOQueryMxList, cds_mxlist); end; @@ -778,27 +834,27 @@ end; procedure TfrmTradePlanMgeList.TupdatetoClick(Sender: TObject); var - mOrderNo,mMainId:string; + mOrderNo, mMainId: string; begin if cxPageControl1.ActivePageIndex = 0 then begin if Order_Main.IsEmpty then Exit; - mOrderNo:= Trim(Order_Main.fieldbyname('orderNo').AsString) ; - mMainId:= Trim(Order_Main.fieldbyname('mainId').AsString) ; + mOrderNo := Trim(Order_Main.fieldbyname('orderNo').AsString); + mMainId := Trim(Order_Main.fieldbyname('mainId').AsString); end else begin if cds_mxlist.IsEmpty then Exit; - mOrderNo:= Trim(cds_mxlist.fieldbyname('orderNo').AsString) ; - mMainId:= Trim(cds_mxlist.fieldbyname('mainId').AsString) ; + mOrderNo := Trim(cds_mxlist.fieldbyname('orderNo').AsString); + mMainId := Trim(cds_mxlist.fieldbyname('mainId').AsString); end; - frmUptPlanDataToRoll:=TfrmUptPlanDataToRoll.create(Application); + frmUptPlanDataToRoll := TfrmUptPlanDataToRoll.create(Application); with frmUptPlanDataToRoll do begin - fMainId:=mMainId; - cxTextEdit1.Text:=trim(mOrderNo); + fMainId := mMainId; + cxTextEdit1.Text := trim(mOrderNo); showModal; free; end; @@ -807,28 +863,30 @@ end; procedure TfrmTradePlanMgeList.ToolButton4Click(Sender: TObject); var - mMainId:string; + mMainId: string; begin if cxPageControl1.ActivePageIndex = 0 then begin if Order_Main.IsEmpty then - Exit; + Exit; mMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); end else begin if cds_mxlist.IsEmpty then - Exit; + Exit; mMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString); end; try frmAttachmentUpload := TfrmAttachmentUpload.Create(Application); - with frmAttachmentUpload do begin + with frmAttachmentUpload do + begin if Trim(canshu1) <> 'ѯ' then FEditAuthority := true; fkeyNO := Trim(mMainId); fType := 'ָʾ'; - if ShowModal = 1 then begin + if ShowModal = 1 then + begin end; end; @@ -838,9 +896,7 @@ begin end; -procedure TfrmTradePlanMgeList.Tv1FocusedRecordChanged - (Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord - : TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +procedure TfrmTradePlanMgeList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin if fIsLoad then InitSub(); @@ -853,31 +909,32 @@ begin begin if Order_Main.IsEmpty then Exit; - if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin - Application.MessageBox('ܲ˵!', 'ʾ', 0); - 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 ADOQueryBaseCmd do begin close; - sql.Clear; - sql.Add('update Trade_Plan_Main SET status=''10'' '); - sql.Add('where mainID=' + quotedstr(Trim(Order_Main.fieldbyname('mainID') - .AsString))); + with ADOQueryBaseCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Plan_Main SET status=''10'' '); + sql.Add('where mainID=' + quotedstr(Trim(Order_Main.fieldbyname('mainID').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('orderNO').AsString)))); - sql.Add(',' + quotedstr(Trim('ɹ'))); - sql.Add(')'); - execsql; - end; + 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('orderNO').AsString)))); + sql.Add(',' + quotedstr(Trim('ɹ'))); + sql.Add(')'); + execsql; + end; Application.MessageBox('ƻɳɹ', 'ʾϢ'); TBRafresh.Click; @@ -889,31 +946,32 @@ begin begin if cds_mxlist.IsEmpty then Exit; - if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then begin - Application.MessageBox('ܲ˵!', 'ʾ', 0); - Exit; + if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; end; if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then Exit; try - with ADOQueryBaseCmd do begin close; - sql.Clear; - sql.Add('update Trade_Plan_Main SET status=''10'' '); - sql.Add('where mainID=' + quotedstr(Trim(cds_mxlist.fieldbyname('mainID') - .AsString))); + with ADOQueryBaseCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Plan_Main SET status=''10'' '); + sql.Add('where mainID=' + quotedstr(Trim(cds_mxlist.fieldbyname('mainID').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(cds_mxlist.fieldbyname('orderNO').AsString)))); - sql.Add(',' + quotedstr(Trim('ɹ'))); - sql.Add(')'); - execsql; - end; + 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(cds_mxlist.fieldbyname('orderNO').AsString)))); + sql.Add(',' + quotedstr(Trim('ɹ'))); + sql.Add(')'); + execsql; + end; Application.MessageBox('ƻɳɹ', 'ʾϢ'); TBRafresh.Click; @@ -924,19 +982,20 @@ begin end; -procedure TfrmTradePlanMgeList.ButtonEdit(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTradePlanMgeList.ButtonEdit(Sender: TObject; AButtonIndex: Integer); begin inherited; try frmPictureUpload := TfrmPictureUpload.Create(Application); - with frmPictureUpload do begin + with frmPictureUpload do + begin fFlileFlag := UserDataFlag + 'HX'; FWidth := 250; FHeight := 300; FTFType := 'HX'; FDataId := Trim(Self.ORDER_SUB.fieldbyname('subId').AsString); - if ShowModal = 1 then begin + if ShowModal = 1 then + begin end; end; finally @@ -948,17 +1007,20 @@ procedure TfrmTradePlanMgeList.InitGrid(); var strwhere: string; mStatus: string; -begin strwhere := ''; +begin + strwhere := ''; mStatus := cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption; - ConNo.Tag:=99; - batchNo.Tag:=99; - FtyPCId.Tag:=99; + ConNo.Tag := 99; + batchNo.Tag := 99; + FtyPCId.Tag := 99; strwhere := SLGetFilters(dxLayoutControl_query, 1, 2); - if Trim(strwhere) <> '' then begin strwhere := ' and ' + Trim(strwhere); + if Trim(strwhere) <> '' then + begin + strwhere := ' and ' + Trim(strwhere); end; - if (Trim(DParameters1) <> 'Ȩ') then - strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName)); + if (Trim(DParameters1) <> 'Ȩ') then + strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName)); try Tv1.BeginUpdate(); @@ -966,19 +1028,17 @@ begin strwhere := ''; loadProcess.Visible := true; loadProcess.Refresh; - Order_Main.DisableControls; - with ADOQueryMain do begin + with ADOQueryMain do + begin - close; + close; Filtered := false; sql.Clear; sql.Add('exec P_View_TradePlanList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql'); Parameters.ParamByName('timeType').Value := 'Ƶ'; - Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', - begdate.Date); - Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', - endDate.Date + 1); + Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', begdate.Date); + Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1); Parameters.ParamByName('mStatus').Value := mStatus; Parameters.ParamByName('WSql').Value := strwhere; Open; @@ -1003,8 +1063,8 @@ end; procedure TfrmTradePlanMgeList.InitForm(); begin - addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid1',dxLayoutControl_query,7); - addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid3',dxLayoutControl_query,7); + addQryContionByLay(ADOQueryBaseTemp, fformId, 'cxgrid1', dxLayoutControl_query, 7); + addQryContionByLay(ADOQueryBaseTemp, fformId, 'cxgrid3', dxLayoutControl_query, 7); ReadCxGrid('װָʾбT1', Tv1, gDllFileCaption); ReadCxGrid('װָʾбT2', TV2, gDllFileCaption); ReadCxGrid('װָʾϸбT3', tv3, gDllFileCaption); @@ -1014,13 +1074,16 @@ begin end; procedure TfrmTradePlanMgeList.InitSub(); -begin ADOQuerySub.close; +begin + ADOQuerySub.close; if Order_Main.IsEmpty then Exit; try TV2.BeginUpdate(); ORDER_SUB.DisableControls; - with ADOQuerySub do begin close; + with ADOQuerySub do + begin + close; sql.Clear; sql.Add('exec P_View_TradePlanMxList_for_pack '); sql.Add('@mainId =' + quotedstr((Order_Main.fieldbyname('mainID').AsString))); @@ -1039,25 +1102,27 @@ end; procedure TfrmTradePlanMgeList.N1Click(Sender: TObject); var - FLabVolume, fPrintFile,mSubId: string; + FLabVolume, fPrintFile, mSubId: string; begin if cxPageControl1.ActivePageIndex = 0 then begin if ORDER_SUB.IsEmpty then Exit; - mSubId:= Trim(ORDER_SUB.fieldbyname('SUBID').AsString) ; + mSubId := Trim(ORDER_SUB.fieldbyname('SUBID').AsString); end else begin - if cds_mxlist.IsEmpty then + if cds_mxlist.IsEmpty then Exit; - mSubId:= Trim(cds_mxlist.fieldbyname('SUBID').AsString) ; + mSubId := Trim(cds_mxlist.fieldbyname('SUBID').AsString); end; // - with ADOQueryPrint do begin close; + with ADOQueryPrint do + begin + close; sql.Clear; sql.Add(' EXEC P_Trade_Print_djd_Lab '); - sql.Add(' @CIID=''' + mSubId+ ''''); + sql.Add(' @CIID=''' + mSubId + ''''); sql.Add(',@isTest =1'); Open; end; @@ -1067,16 +1132,19 @@ begin else FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString); - if FLabVolume='' then FLabVolume:=trim(gDefaultLableFile); - if FLabVolume = '' then begin - Application.MessageBox('δþǩ', 'ʾϢ', MB_ICONERROR); + if FLabVolume = '' then + FLabVolume := trim(gDefaultLableFile); + if FLabVolume = '' then + begin + Application.MessageBox('δþǩ', 'ʾϢ', MB_ICONERROR); Exit; end; ExportFtErpFile(FLabVolume + '.rmf', ADOQueryBaseTemp); - fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + - FLabVolume + '.rmf'; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf'; - if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile); + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> 'Ʒǩ' then RM1.DefaultCopies := 2 else @@ -1084,28 +1152,32 @@ begin RM1.ShowErrorMsg := false; RM1.ShowReport; end - else begin Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); end; end; procedure TfrmTradePlanMgeList.N2Click(Sender: TObject); var - MLabPackage, fPrintFile,mSubId: string; + MLabPackage, fPrintFile, mSubId: string; begin if cxPageControl1.ActivePageIndex = 0 then begin if ORDER_SUB.IsEmpty then Exit; - mSubId:= Trim(ORDER_SUB.fieldbyname('SUBID').AsString) ; + mSubId := Trim(ORDER_SUB.fieldbyname('SUBID').AsString); end else begin - if cds_mxlist.IsEmpty then + if cds_mxlist.IsEmpty then Exit; - mSubId:= Trim(cds_mxlist.fieldbyname('SUBID').AsString) ; + mSubId := Trim(cds_mxlist.fieldbyname('SUBID').AsString); end; - with ADOQueryPrint do begin close; + with ADOQueryPrint do + begin + close; sql.Clear; sql.Add('exec P_Trade_Insp_Prt_djd_PackLab_test '); sql.Add('@subId =' + quotedstr(mSubId)); @@ -1115,37 +1187,44 @@ begin MLabPackage := Trim(ADOQueryPrint.fieldbyname('SLabPackage').AsString) else MLabPackage := Trim(ADOQueryPrint.fieldbyname('LabPackage').AsString); - if MLabPackage='' then MLabPackage:=trim(gDefaultPackLableFile); - if MLabPackage = '' then begin - Application.MessageBox('δðǩ', 'ʾϢ', MB_ICONERROR); + if MLabPackage = '' then + MLabPackage := trim(gDefaultPackLableFile); + if MLabPackage = '' then + begin + Application.MessageBox('δðǩ', 'ʾϢ', MB_ICONERROR); Exit; end; ExportFtErpFile(Trim(MLabPackage) + '.rmf', ADOQueryBaseTemp); - fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + - Trim(MLabPackage) + '.rmf'; - if not FileExists(fPrintFile) then begin - Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(MLabPackage) + '.rmf'; + if not FileExists(fPrintFile) then + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); Exit; end; - if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile); + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); RM1.DefaultCopies := 1; RM1.ShowErrorMsg := false; RM1.ShowReport; end - else begin Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); end; end; procedure TfrmTradePlanMgeList.OrderNoPropertiesChange(Sender: TObject); -begin inherited; +begin + inherited; Tfilter.Click; end; -procedure TfrmTradePlanMgeList.OrderNoPropertiesEditValueChanged - (Sender: TObject); -begin inherited; +procedure TfrmTradePlanMgeList.OrderNoPropertiesEditValueChanged(Sender: TObject); +begin + inherited; InitGrid(); end; @@ -1153,34 +1232,37 @@ procedure TfrmTradePlanMgeList.InitMxGrid(); var strwhere: string; mStatus: string; -begin strwhere := ''; +begin + strwhere := ''; try loadProcess.Visible := true; loadProcess.Refresh; tv3.BeginUpdate(); - ConNo.Tag:=2; - batchNo.Tag:=2; - FtyPCId.Tag:=2; + ConNo.Tag := 2; + batchNo.Tag := 2; + FtyPCId.Tag := 2; strwhere := SLGetFilters(dxLayoutControl_query, 1, 2); - if Trim(strwhere) <> '' then begin strwhere := ' and ' + Trim(strwhere); + if Trim(strwhere) <> '' then + begin + strwhere := ' and ' + Trim(strwhere); end; mStatus := cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption; - if (Trim(DParameters1) <> 'Ȩ') then + if (Trim(DParameters1) <> 'Ȩ') then strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName)); cds_mxlist.DisableControls; - with ADOQueryMxList do begin close; + with ADOQueryMxList do + begin + close; Filtered := false; sql.Clear; sql.Add('exec P_View_TradePlanMxList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql'); Parameters.ParamByName('timeType').Value := 'Ƶ'; - Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', - begdate.Date); - Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', - endDate.Date + 1); + Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', begdate.Date); + Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1); Parameters.ParamByName('mStatus').Value := mStatus; // if strwhere<> then - Parameters.ParamByName('WSql').Value :=' '+ strwhere; + Parameters.ParamByName('WSql').Value := ' ' + strwhere; Open; end; @@ -1192,8 +1274,8 @@ begin strwhere := ''; tv3.DataController.Filter.Clear; finally - TV3.Controller.GoToFirst(); - tv3.EndUpdate; + TV3.Controller.GoToFirst(); + tv3.EndUpdate; loadProcess.Visible := false; end; end; @@ -1203,22 +1285,20 @@ begin try Result := false; ADOQueryBaseCmd.Connection.BeginTrans; - with ADOQueryBaseCmd do begin close; + with ADOQueryBaseCmd do + begin + close; sql.Clear; - sql.Add('delete Trade_Plan_Main where MainId=''' + - Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); - sql.Add('delete Trade_Plan_Sub where MainId=''' + - Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); - sql.Add('delete Trade_Plan_Fty where MainId=''' + - Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + sql.Add('delete Trade_Plan_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + sql.Add('delete Trade_Plan_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + sql.Add('delete Trade_Plan_Fty where MainId=''' + Trim(Order_Main.fieldbyname('MainId').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('OrderNO').AsString)))); + sql.Add(',' + quotedstr(Trim('ָʾţ' + Trim(Order_Main.fieldbyname('OrderNO').AsString)))); sql.Add(',' + quotedstr(Trim('ɹ'))); sql.Add(')'); execsql; @@ -1232,20 +1312,23 @@ begin end; end; ///////////////////////////////////////////////// + function TfrmTradePlanMgeList.DelSubData(): Boolean; var - mSubId:string; + mSubId: string; begin try Result := false; - mSubId:= Trim(cds_mxlist.fieldbyname('subId').AsString) ; + mSubId := Trim(cds_mxlist.fieldbyname('subId').AsString); ADOQueryBaseCmd.Connection.BeginTrans; - with ADOQueryBaseCmd do begin close; + with ADOQueryBaseCmd do + begin + close; sql.Clear; // sql.Add('delete Trade_Plan_Main where MainId=''' + // Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); sql.Add('delete Trade_Plan_Sub where MainId=' + quotedstr(Trim(cds_mxlist.fieldbyname('MainId').AsString))); - sql.Add('and subId='+ quotedstr(mSubId)); + sql.Add('and subId=' + quotedstr(mSubId)); // sql.Add('delete Trade_Plan_Fty where MainId=''' + // Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); @@ -1254,8 +1337,7 @@ begin sql.Add(',getdate() '); sql.Add(',' + quotedstr(Trim(Self.Caption))); sql.Add(',' + quotedstr(Trim('ָʾɾ'))); - sql.Add(',' + quotedstr(Trim('ָʾţ' + - Trim(Order_Main.fieldbyname('OrderNO').AsString)+';ϸid='+mSubId))); + sql.Add(',' + quotedstr(Trim('ָʾţ' + Trim(Order_Main.fieldbyname('OrderNO').AsString) + ';ϸid=' + mSubId))); sql.Add(',' + quotedstr(Trim('ɹ'))); sql.Add(')'); execsql; @@ -1269,35 +1351,36 @@ begin end; end; //////////////////////////////////////////////// + procedure TfrmTradePlanMgeList.threadLoadform(); var thread: TThread; begin - thread:=TThread.CreateAnonymousThread( + thread := TThread.CreateAnonymousThread( procedure begin - with ADOQueryMain do begin + with ADOQueryMain do + begin - close; - Filtered := false; - sql.Clear; - sql.Add('exec P_View_TradePlanList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql'); - Parameters.ParamByName('timeType').Value := 'Ƶ'; - Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', - begdate.Date); - Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', - endDate.Date + 1); - Parameters.ParamByName('mStatus').Value := ''; - Parameters.ParamByName('WSql').Value := ''; - Open; - end; + close; + Filtered := false; + sql.Clear; + sql.Add('exec P_View_TradePlanList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql'); + Parameters.ParamByName('timeType').Value := 'Ƶ'; + Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', begdate.Date); + Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1); + Parameters.ParamByName('mStatus').Value := ''; + Parameters.ParamByName('WSql').Value := ''; + Open; + end; end); - thread.FreeOnTerminate := True; - thread.Start; + thread.FreeOnTerminate := True; + thread.Start; end; end. + diff --git a/项目代码/DJ/G01贸易生产计划/djdPackPlan.dpr b/项目代码/DJ/G01贸易生产计划/djdPackPlan.dpr index 6d4cf04..3eade41 100644 --- a/项目代码/DJ/G01贸易生产计划/djdPackPlan.dpr +++ b/项目代码/DJ/G01贸易生产计划/djdPackPlan.dpr @@ -32,8 +32,8 @@ uses U_ZDYHelpSel in '..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel}, getpic in 'getpic.pas' {FormGetPic}, U_SysLogOrder in 'U_SysLogOrder.pas' {frmSysLogOrder}, - U_TradePlanMgeList in 'U_TradePlanMgeList.pas' {frmTradePlanMgeList}, - U_TradePlanInPut in 'U_TradePlanInPut.pas' {frmTradePlanInPut}, + U_ItemTestList in 'U_ItemTestList.pas' {frmItemTestList}, + U_ItemTestInPut in 'U_ItemTestInPut.pas' {frmItemTestInPut}, U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas', U_PictureList in '..\A00ͨô\U_PictureList.pas' {frmPictureList}, U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload}, diff --git a/项目代码/DJ/G01贸易生产计划/djdPackPlan.dproj b/项目代码/DJ/G01贸易生产计划/djdPackPlan.dproj index db3a485..6fcf494 100644 --- a/项目代码/DJ/G01贸易生产计划/djdPackPlan.dproj +++ b/项目代码/DJ/G01贸易生产计划/djdPackPlan.dproj @@ -4,7 +4,7 @@ djdPackPlan.dpr True Debug - 38017 + 1 Library VCL 19.2 @@ -13,16 +13,6 @@ true - - true - Base - true - - - true - Base - true - true Base @@ -38,24 +28,6 @@ Base true - - true - Cfg_1 - true - true - - - true - Cfg_1 - true - true - - - true - Cfg_1 - true - true - true Cfg_1 @@ -67,24 +39,6 @@ Base true - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - true Cfg_2 @@ -104,13 +58,6 @@ 2052 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName= - - $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png - android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar - - - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png - Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug @@ -128,15 +75,6 @@ false 0 - - Debug - - - Debug - - - Debug - D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\testDll.exe @@ -145,18 +83,9 @@ false true - - Debug - - - Debug - - - Debug - CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G01贸易生产计划\testDll.exe + D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\testDll.exe @@ -223,11 +152,11 @@
frmSysLogOrder
 - -
frmTradePlanMgeList
+ +
frmItemTestList
 - -
frmTradePlanInPut
+ +
frmItemTestInPut
 @@ -286,10 +215,6 @@ - True - True - True - True True False diff --git a/项目代码/DJ/G01贸易生产计划/djdPackPlan.dproj.local b/项目代码/DJ/G01贸易生产计划/djdPackPlan.dproj.local index 35e940a..1f46e9a 100644 --- a/项目代码/DJ/G01贸易生产计划/djdPackPlan.dproj.local +++ b/项目代码/DJ/G01贸易生产计划/djdPackPlan.dproj.local @@ -61,21 +61,25 @@ - - - - + + + + 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.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.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.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm - 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.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas + 1899-12-30 00:00:00.000.721,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanInPut.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestInPut.dfm 1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas + 1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas= + 1899-12-30 00:00:00.000.710,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanMgeList.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestList.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.721,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanInPut.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestInPut.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贸易生产计划\U_UptPlanDataToRoll.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas + 1899-12-30 00:00:00.000.710,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanMgeList.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestList.dfm + 1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm diff --git a/项目代码/DJ/G01贸易生产计划/djdPackPlan.identcache b/项目代码/DJ/G01贸易生产计划/djdPackPlan.identcache index b8fbbe4..c525b3d 100644 Binary files a/项目代码/DJ/G01贸易生产计划/djdPackPlan.identcache and b/项目代码/DJ/G01贸易生产计划/djdPackPlan.identcache differ diff --git a/项目代码/DJ/G01贸易生产计划/testDll.res b/项目代码/DJ/G01贸易生产计划/testDll.res index 2465ca0..e116c48 100644 Binary files a/项目代码/DJ/G01贸易生产计划/testDll.res and b/项目代码/DJ/G01贸易生产计划/testDll.res differ diff --git a/项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.dproj.local b/项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.dproj.local index 87ea9c0..7d62280 100644 --- a/项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.dproj.local +++ b/项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.dproj.local @@ -4,104 +4,104 @@ 1899-12-30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.pas 1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas - 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm - 1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm - 1899-12-30 00:00:00.000.870,=D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.178,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G03贸易布匹检验\U_CDList.pas=D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm + 1899-12-30 00:00:00.000.870,=D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.178,D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G03贸易布匹检验\U_CDList.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.769,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj - 1899-12-30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj - 1899-12-30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas - 1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas= - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj + 1899-12-30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm + 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas 1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas - 1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas - 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas + 1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas= + 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas + 1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas 1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas 1899-12-30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas 1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas 1899-12-30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.608,D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList_Auto.pas=D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList.pas + 1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas + 1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= - 1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas= + 1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas 1899-12-30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas - 1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj - 1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas - 1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj + 1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas= 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm + 1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj + 1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas + 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.178,D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G03贸易布匹检验\U_CDList.dfm 1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas + 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas + 1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas + 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas + 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas + 1899-12-30 00:00:00.000.608,D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList_Auto.dfm=D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList.dfm + 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm + 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas + 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj + 1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm - 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas - 1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm - 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm - 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas 1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.608,D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList.dfm=D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList_Auto.dfm - 1899-12-30 00:00:00.000.608,D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList.pas=D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList_Auto.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas - 1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm - 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm - 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm - 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm - 1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas - 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.178,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G03贸易布匹检验\U_CDList.dfm=D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.dfm + 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm + 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm + 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm + 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm + 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm + 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm + 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas 1899-12-30 00:00:00.000.634,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas= - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas + 1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas + 1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas + 1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas 1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas 1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm - 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm + 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas - 1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas + 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas diff --git a/项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.identcache b/项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.identcache index 6759b60..0104787 100644 Binary files a/项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.identcache and b/项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.identcache differ diff --git a/项目代码/DJ/G03贸易布匹检验/U_KeyBoard.dfm b/项目代码/DJ/G03贸易布匹检验/U_KeyBoard.dfm index 9d301c9..c6fb224 100644 --- a/项目代码/DJ/G03贸易布匹检验/U_KeyBoard.dfm +++ b/项目代码/DJ/G03贸易布匹检验/U_KeyBoard.dfm @@ -2,7 +2,7 @@ object FrameKeyBoard: TFrameKeyBoard Left = 0 Top = 0 Width = 314 - Height = 235 + Height = 357 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -14,11 +14,11 @@ object FrameKeyBoard: TFrameKeyBoard Left = 0 Top = 0 Width = 314 - Height = 235 + Height = 357 Align = alClient Frame.Visible = False TabOrder = 0 - ExplicitHeight = 192 + ExplicitTop = 1 object SpeedButton1: TSpeedButton Left = 1 Top = 2 @@ -125,8 +125,8 @@ object FrameKeyBoard: TFrameKeyBoard end object SpeedButton9: TSpeedButton Tag = 9 - Left = 124 - Top = 125 + Left = 125 + Top = 126 Width = 60 Height = 60 Caption = '9' @@ -165,7 +165,7 @@ object FrameKeyBoard: TFrameKeyBoard end object SpeedButton_dot: TSpeedButton Left = 186 - Top = 125 + Top = 124 Width = 60 Height = 60 Caption = '.' @@ -179,7 +179,7 @@ object FrameKeyBoard: TFrameKeyBoard object SpeedButton_yc: TSpeedButton Tag = 9 Left = 248 - Top = 2 + Top = 1 Width = 60 Height = 60 Caption = #38544#34255 @@ -193,7 +193,7 @@ object FrameKeyBoard: TFrameKeyBoard object SpeedButton_zdykey2: TSpeedButton Tag = 9 Left = 248 - Top = 63 + Top = 124 Width = 60 Height = 60 Caption = 'C' @@ -206,8 +206,8 @@ object FrameKeyBoard: TFrameKeyBoard end object SpeedButton_zdykey1: TSpeedButton Tag = 9 - Left = 248 - Top = 125 + Left = 249 + Top = 63 Width = 60 Height = 60 Caption = 'A' @@ -219,8 +219,8 @@ object FrameKeyBoard: TFrameKeyBoard ParentFont = False end object SpeedButton10: TSpeedButton - Left = 2 - Top = 187 + Left = 1 + Top = 190 Width = 60 Height = 44 Caption = '-' @@ -231,5 +231,60 @@ object FrameKeyBoard: TFrameKeyBoard Font.Style = [fsBold] ParentFont = False end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 248 + Top = 186 + Width = 60 + Height = 60 + Caption = 'C' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #24494#36719#38597#40657 + Font.Style = [fsBold] + ParentFont = False + end + object SpeedButton12: TSpeedButton + Tag = 9 + Left = 187 + Top = 187 + Width = 60 + Height = 60 + Caption = 'D' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #24494#36719#38597#40657 + Font.Style = [fsBold] + ParentFont = False + end + object SpeedButton13: TSpeedButton + Tag = 9 + Left = 125 + Top = 187 + Width = 60 + Height = 60 + Caption = 'E' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #24494#36719#38597#40657 + Font.Style = [fsBold] + ParentFont = False + end + object SpeedButton14: TSpeedButton + Left = 63 + Top = 187 + Width = 60 + Height = 60 + Caption = 'F' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #24494#36719#38597#40657 + Font.Style = [fsBold] + ParentFont = False + end end end diff --git a/项目代码/DJ/G03贸易布匹检验/U_KeyBoard.pas b/项目代码/DJ/G03贸易布匹检验/U_KeyBoard.pas index d679b07..fc9ba21 100644 --- a/项目代码/DJ/G03贸易布匹检验/U_KeyBoard.pas +++ b/项目代码/DJ/G03贸易布匹检验/U_KeyBoard.pas @@ -28,6 +28,10 @@ type SpeedButton_zdykey2: TSpeedButton; SpeedButton_zdykey1: TSpeedButton; SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; private { Private declarations } public diff --git a/项目代码/DJ/G03贸易布匹检验/U_MachRollMain.dfm b/项目代码/DJ/G03贸易布匹检验/U_MachRollMain.dfm index 51e3f87..c8a172b 100644 --- a/项目代码/DJ/G03贸易布匹检验/U_MachRollMain.dfm +++ b/项目代码/DJ/G03贸易布匹检验/U_MachRollMain.dfm @@ -8,7 +8,6 @@ inherited frmMachRollMain: TfrmMachRollMain Font.Height = -16 FormStyle = fsMDIChild Visible = True - ExplicitTop = -117 ExplicitWidth = 1128 ExplicitHeight = 775 PixelsPerInch = 96 @@ -118,12 +117,12 @@ inherited frmMachRollMain: TfrmMachRollMain Width = 105 end object BCIOID: TcxTextEdit - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 Properties.ReadOnly = True Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 68 + TabOrder = 70 Visible = False Width = 144 end @@ -143,7 +142,7 @@ inherited frmMachRollMain: TfrmMachRollMain Style.HotTrack = False Style.TransparentBorder = False Style.IsFontAssigned = True - TabOrder = 34 + TabOrder = 36 OnClick = edtScanEnter OnKeyPress = InputLenKeyPress Height = 38 @@ -161,7 +160,7 @@ inherited frmMachRollMain: TfrmMachRollMain Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False - TabOrder = 38 + TabOrder = 40 OnClick = BTPrintClick end object Button_bad: TButton @@ -249,7 +248,7 @@ inherited frmMachRollMain: TfrmMachRollMain Style.HotTrack = False Style.TransparentBorder = False Style.IsFontAssigned = True - TabOrder = 37 + TabOrder = 39 OnClick = edtScanEnter OnKeyPress = InputLenKeyPress Height = 59 @@ -270,11 +269,11 @@ inherited frmMachRollMain: TfrmMachRollMain Style.HotTrack = False Style.TransparentBorder = False Style.IsFontAssigned = True - TabOrder = 39 + TabOrder = 41 OnClick = edtScanEnter OnKeyPress = InputLenKeyPress Height = 37 - Width = 41 + Width = 44 end object InputWeight: TcxTextEdit Tag = 999 @@ -291,7 +290,7 @@ inherited frmMachRollMain: TfrmMachRollMain Style.HotTrack = False Style.TransparentBorder = False Style.IsFontAssigned = True - TabOrder = 36 + TabOrder = 38 OnClick = edtScanEnter OnKeyPress = InputLenKeyPress Height = 59 @@ -326,8 +325,8 @@ inherited frmMachRollMain: TfrmMachRollMain end object OutPutWeight: TcxTextEdit Tag = 999 - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 AutoSize = False ParentFont = False Style.Font.Charset = ANSI_CHARSET @@ -338,7 +337,7 @@ inherited frmMachRollMain: TfrmMachRollMain Style.HotTrack = False Style.TransparentBorder = False Style.IsFontAssigned = True - TabOrder = 44 + TabOrder = 47 Visible = False OnClick = edtScanEnter OnKeyPress = InputLenKeyPress @@ -366,7 +365,7 @@ inherited frmMachRollMain: TfrmMachRollMain end object AOrdDefNote1: TcxRichEdit Left = 0 - Top = 698 + Top = 713 ParentFont = False Properties.ReadOnly = True Properties.ScrollBars = ssBoth @@ -378,13 +377,13 @@ inherited frmMachRollMain: TfrmMachRollMain Style.HotTrack = False Style.TransparentBorder = False Style.IsFontAssigned = True - TabOrder = 42 + TabOrder = 45 Height = 238 Width = 181 end object cxDBImage1: TcxDBImage - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 Hint = 'FileName' DataBinding.DataField = 'FilesOther' DataBinding.DataSource = DS_IMAGE @@ -394,7 +393,7 @@ inherited frmMachRollMain: TfrmMachRollMain Properties.ShowFocusRect = False Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 45 + TabOrder = 48 Visible = False Height = 122 Width = 280 @@ -416,7 +415,7 @@ inherited frmMachRollMain: TfrmMachRollMain Style.HotTrack = False Style.TransparentBorder = False Style.IsFontAssigned = True - TabOrder = 35 + TabOrder = 37 Text = #27491#21697 OnKeyPress = InputLenKeyPress Height = 38 @@ -454,7 +453,7 @@ inherited frmMachRollMain: TfrmMachRollMain end object lblRuleConversion: TcxComboBox Tag = 2 - Left = 139 + Left = 142 Top = 640 AutoSize = False ParentFont = False @@ -477,15 +476,15 @@ inherited frmMachRollMain: TfrmMachRollMain StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI' - TabOrder = 40 + TabOrder = 42 Text = #26080#38656#36716#25442 Height = 37 - Width = 102 + Width = 84 end object packnote: TcxMemo Tag = 999 Left = 190 - Top = 698 + Top = 713 ParentFont = False Properties.ReadOnly = True Properties.ScrollBars = ssVertical @@ -497,7 +496,7 @@ inherited frmMachRollMain: TfrmMachRollMain Style.HotTrack = False Style.TransparentBorder = False Style.IsFontAssigned = True - TabOrder = 43 + TabOrder = 46 Height = 241 Width = 199 end @@ -530,18 +529,18 @@ inherited frmMachRollMain: TfrmMachRollMain Width = 149 end object C_Pattern: TcxTextEdit - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 Properties.ReadOnly = True Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 46 + TabOrder = 49 Visible = False Width = 124 end object RuleYardstick: TcxTextEdit - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 AutoSize = False ParentFont = False Properties.ReadOnly = True @@ -553,7 +552,7 @@ inherited frmMachRollMain: TfrmMachRollMain Style.HotTrack = False Style.TransparentBorder = False Style.IsFontAssigned = True - TabOrder = 47 + TabOrder = 50 Text = '100' Visible = False OnClick = edtScanEnter @@ -562,20 +561,20 @@ inherited frmMachRollMain: TfrmMachRollMain Width = 69 end object C_StyleNo: TcxTextEdit - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 ParentFont = False Properties.ReadOnly = True Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 48 + TabOrder = 51 Visible = False Width = 168 end object packPostBtn: TButton - Left = 250 + Left = 356 Top = 640 - Width = 215 + Width = 109 Height = 37 Caption = #25171#21253#25552#20132 Font.Charset = GB2312_CHARSET @@ -584,35 +583,35 @@ inherited frmMachRollMain: TfrmMachRollMain Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False - TabOrder = 41 + TabOrder = 44 OnClick = packPostBtnClick end object customStrField1: TcxTextEdit - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 49 + TabOrder = 52 Visible = False OnClick = edtScanEnter Width = 121 end object customStrField2: TcxTextEdit - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 50 + TabOrder = 53 Visible = False OnClick = edtScanEnter Width = 121 end object C_Width: TcxTextEdit - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 51 + TabOrder = 54 Visible = False OnClick = edtScanEnter Width = 121 @@ -627,11 +626,11 @@ inherited frmMachRollMain: TfrmMachRollMain Width = 164 end object addLen: TcxTextEdit - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 52 + TabOrder = 55 Visible = False OnClick = edtScanEnter Width = 121 @@ -646,8 +645,8 @@ inherited frmMachRollMain: TfrmMachRollMain Width = 164 end object bt_printmd: TButton - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 Width = 48 Height = 33 Caption = #30721#21333 @@ -657,73 +656,73 @@ inherited frmMachRollMain: TfrmMachRollMain Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False - TabOrder = 53 + TabOrder = 56 Visible = False OnClick = bt_printmdClick end object presentLen: TcxTextEdit - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 54 + TabOrder = 57 Visible = False OnClick = edtScanEnter Width = 121 end object presentWeight: TcxTextEdit - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 55 + TabOrder = 58 Visible = False OnClick = edtScanEnter Width = 121 end object unitPieces: TcxTextEdit - Left = 10000 - Top = 10000 + Left = 328 + Top = 485 Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 56 - Visible = False + TabOrder = 35 OnClick = edtScanEnter - Width = 121 + Width = 76 end object custName: TcxTextEdit - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 Properties.ReadOnly = True Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 57 + TabOrder = 59 Visible = False Width = 164 end object customStrField3: TcxComboBox - Left = 89 - Top = 179 - Style.HotTrack = False - Style.TransparentBorder = False - TabOrder = 10 - OnClick = edtScanEnter - Width = 105 - end - object c_ecolor: TcxTextEdit Left = 10000 Top = 10000 + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 71 + Visible = False + OnClick = edtScanEnter + Width = 145 + end + object c_ecolor: TcxTextEdit + Left = 9994 + Top = 9751 Properties.ReadOnly = True Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 58 + TabOrder = 60 Visible = False Width = 164 end object edit_roll_auto: TcxTextEdit Tag = 999 - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 AutoSize = False ParentFont = False Properties.ReadOnly = True @@ -735,15 +734,15 @@ inherited frmMachRollMain: TfrmMachRollMain Style.HotTrack = False Style.TransparentBorder = False Style.IsFontAssigned = True - TabOrder = 59 + TabOrder = 61 Visible = False OnClick = edit_roll_autoClick Height = 31 Width = 20 end object customStrField4: TcxButtonEdit - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 Hint = 'customStrField4/'#33258#23450#20041'4' Properties.Buttons = < item @@ -752,16 +751,50 @@ inherited frmMachRollMain: TfrmMachRollMain end> Style.HotTrack = False Style.TransparentBorder = False + TabOrder = 65 + Visible = False + OnClick = edtScanEnter + OnDblClick = customStrField5DblClick + Width = 121 + end + object customStrField8: TcxButtonEdit + Left = 9994 + Top = 9751 + Hint = 'customStrField8/'#33258#23450#20041'8' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 64 + Visible = False + OnClick = edtScanEnter + OnDblClick = customStrField5DblClick + Width = 121 + end + object customStrField7: TcxButtonEdit + Left = 9994 + Top = 9751 + Hint = 'customStrField7/'#33258#23450#20041'7' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Style.HotTrack = False + Style.TransparentBorder = False TabOrder = 63 Visible = False OnClick = edtScanEnter OnDblClick = customStrField5DblClick Width = 121 end - object customStrField8: TcxButtonEdit - Left = 10000 - Top = 10000 - Hint = 'customStrField8/'#33258#23450#20041'8' + object customStrField6: TcxButtonEdit + Left = 9994 + Top = 9751 + Hint = 'customStrField6/'#33258#23450#20041'6' Properties.Buttons = < item Default = True @@ -775,43 +808,9 @@ inherited frmMachRollMain: TfrmMachRollMain OnDblClick = customStrField5DblClick Width = 121 end - object customStrField7: TcxButtonEdit - Left = 10000 - Top = 10000 - Hint = 'customStrField7/'#33258#23450#20041'7' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Style.HotTrack = False - Style.TransparentBorder = False - TabOrder = 61 - Visible = False - OnClick = edtScanEnter - OnDblClick = customStrField5DblClick - Width = 121 - end - object customStrField6: TcxButtonEdit - Left = 10000 - Top = 10000 - Hint = 'customStrField6/'#33258#23450#20041'6' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Style.HotTrack = False - Style.TransparentBorder = False - TabOrder = 60 - Visible = False - OnClick = edtScanEnter - OnDblClick = customStrField5DblClick - Width = 121 - end object customStrField5: TcxButtonEdit - Left = 10000 - Top = 10000 + Left = 9994 + Top = 9751 Hint = 'customStrField5/'#33258#23450#20041'5' Properties.Buttons = < item @@ -821,7 +820,7 @@ inherited frmMachRollMain: TfrmMachRollMain Properties.OnButtonClick = customStrField5PropertiesButtonClick Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 64 + TabOrder = 66 Visible = False OnClick = edtScanEnter OnDblClick = customStrField5DblClick @@ -833,7 +832,7 @@ inherited frmMachRollMain: TfrmMachRollMain AutoSize = False Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 22 + TabOrder = 23 OnClick = edtScanEnter Height = 31 Width = 83 @@ -843,7 +842,7 @@ inherited frmMachRollMain: TfrmMachRollMain Top = 285 Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 21 + TabOrder = 22 OnClick = edtScanEnter Width = 95 end @@ -853,7 +852,7 @@ inherited frmMachRollMain: TfrmMachRollMain AutoSize = False Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 23 + TabOrder = 24 OnClick = edtScanEnter Height = 31 Width = 88 @@ -864,7 +863,7 @@ inherited frmMachRollMain: TfrmMachRollMain AutoSize = False Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 24 + TabOrder = 25 OnClick = edtScanEnter Height = 31 Width = 92 @@ -874,7 +873,7 @@ inherited frmMachRollMain: TfrmMachRollMain Top = 325 Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 25 + TabOrder = 26 OnClick = edtScanEnter Width = 121 end @@ -884,21 +883,21 @@ inherited frmMachRollMain: TfrmMachRollMain AutoSize = False Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 26 + TabOrder = 27 OnClick = edtScanEnter Height = 31 Width = 121 end object JingMi: TcxTextEdit - Left = 286 + Left = 210 Top = 485 AutoSize = False Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 33 + TabOrder = 34 OnClick = edtScanEnter Height = 31 - Width = 121 + Width = 72 end object WeiMi: TcxTextEdit Left = 89 @@ -906,10 +905,10 @@ inherited frmMachRollMain: TfrmMachRollMain AutoSize = False Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 32 + TabOrder = 33 OnClick = edtScanEnter Height = 31 - Width = 121 + Width = 75 end object color_diff: TcxButtonEdit Left = 89 @@ -923,7 +922,7 @@ inherited frmMachRollMain: TfrmMachRollMain Properties.OnButtonClick = hand_feelPropertiesButtonClick Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 28 + TabOrder = 29 OnClick = edtScanEnter Width = 121 end @@ -940,7 +939,7 @@ inherited frmMachRollMain: TfrmMachRollMain Properties.OnButtonClick = hand_feelPropertiesButtonClick Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 29 + TabOrder = 30 OnClick = edtScanEnter Height = 31 Width = 121 @@ -958,7 +957,7 @@ inherited frmMachRollMain: TfrmMachRollMain Properties.OnButtonClick = hand_feelPropertiesButtonClick Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 30 + TabOrder = 31 OnClick = edtScanEnter Height = 31 Width = 121 @@ -975,7 +974,7 @@ inherited frmMachRollMain: TfrmMachRollMain Properties.OnButtonClick = hand_feelPropertiesButtonClick Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 27 + TabOrder = 28 OnClick = edtScanEnter Width = 121 end @@ -991,10 +990,45 @@ inherited frmMachRollMain: TfrmMachRollMain Properties.OnButtonClick = hand_feelPropertiesButtonClick Style.HotTrack = False Style.TransparentBorder = False - TabOrder = 31 + TabOrder = 32 OnClick = edtScanEnter Width = 121 end + object LYFlag: TcxComboBox + Left = 302 + Top = 640 + AutoSize = False + Properties.Items.Strings = ( + #26159 + #21542) + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 43 + Height = 37 + Width = 45 + end + object btnClear: TcxButton + Left = 452 + Top = 232 + Width = 83 + Height = 30 + Caption = #28165#31354 + Colors.Default = clRed + LookAndFeel.Kind = lfUltraFlat + LookAndFeel.NativeStyle = False + LookAndFeel.SkinName = '' + TabOrder = 21 + OnClick = btnClearClick + end + object BatchNoQty: TcxTextEdit + Left = 89 + Top = 179 + Properties.ReadOnly = True + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 10 + Width = 105 + end object dxLayoutControl_packGroup_Root: TdxLayoutGroup AlignHorz = ahClient AlignVert = avTop @@ -1005,7 +1039,7 @@ inherited frmMachRollMain: TfrmMachRollMain SizeOptions.SizableVert = True AllowRemove = False Hidden = True - ItemIndex = 4 + ItemIndex = 2 Padding.Left = -15 Padding.Top = -5 Padding.AssignedValues = [lpavLeft, lpavTop] @@ -1075,10 +1109,9 @@ inherited frmMachRollMain: TfrmMachRollMain AlignHorz = ahLeft CaptionOptions.Text = #35746#21333#20449#24687#32452 CaptionOptions.Visible = False - SizeOptions.Height = 176 + SizeOptions.Height = 175 SizeOptions.Width = 721 AllowRemove = False - ItemIndex = 1 LayoutDirection = ldHorizontal Padding.Bottom = -10 Padding.Left = -10 @@ -1256,7 +1289,7 @@ inherited frmMachRollMain: TfrmMachRollMain SizeOptions.Height = 26 SizeOptions.Width = 446 Hidden = True - ItemIndex = 2 + ItemIndex = 5 LayoutDirection = ldHorizontal ShowBorder = False Index = 0 @@ -1270,7 +1303,7 @@ inherited frmMachRollMain: TfrmMachRollMain SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] SizeOptions.SizableHorz = True SizeOptions.SizableVert = True - SizeOptions.Height = 396 + SizeOptions.Height = 439 SizeOptions.Width = 747 AllowRemove = False LayoutDirection = ldHorizontal @@ -1409,7 +1442,8 @@ inherited frmMachRollMain: TfrmMachRollMain Index = 1 end object dxLayoutAutoCreatedGroup1: TdxLayoutAutoCreatedGroup - Parent = dxLayoutAutoCreatedGroup2 + Parent = dxLayoutGroup_do2 + AlignHorz = ahLeft AlignVert = avTop Index = 0 end @@ -1482,11 +1516,11 @@ inherited frmMachRollMain: TfrmMachRollMain SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] SizeOptions.SizableHorz = True SizeOptions.SizableVert = True - SizeOptions.Width = 124 + SizeOptions.Width = 127 CaptionOptions.Text = #31995#25968 Control = Coefficient ControlOptions.OriginalHeight = 37 - ControlOptions.OriginalWidth = 41 + ControlOptions.OriginalWidth = 44 ControlOptions.ShowBorder = False Index = 0 end @@ -1500,7 +1534,6 @@ inherited frmMachRollMain: TfrmMachRollMain SizeOptions.Width = 74 AllowRemove = False Hidden = True - ItemIndex = 1 LayoutDirection = ldHorizontal ShowBorder = False Index = 5 @@ -1535,10 +1568,6 @@ inherited frmMachRollMain: TfrmMachRollMain ControlOptions.ShowBorder = False Index = -1 end - object dxLayoutAutoCreatedGroup2: TdxLayoutAutoCreatedGroup - Parent = dxLayoutGroup_do2 - Index = 0 - end object dxLayoutItem_grade: TdxLayoutItem Parent = dxLayoutAutoCreatedGroup5 AlignVert = avClient @@ -1586,20 +1615,19 @@ inherited frmMachRollMain: TfrmMachRollMain object dxLayoutItem14: TdxLayoutItem Parent = dxLayoutAutoCreatedGroup4 AlignVert = avClient - SizeOptions.Width = 102 + SizeOptions.Width = 84 CaptionOptions.Text = #31995#25968#36716#25442 CaptionOptions.Visible = False Control = lblRuleConversion ControlOptions.OriginalHeight = 29 - ControlOptions.OriginalWidth = 102 + ControlOptions.OriginalWidth = 84 ControlOptions.ShowBorder = False Index = 1 end object dxLayoutAutoCreatedGroup4: TdxLayoutAutoCreatedGroup - Parent = dxLayoutAutoCreatedGroup2 - AlignVert = avTop + Parent = dxLayoutAutoCreatedGroup1 LayoutDirection = ldHorizontal - Index = 1 + Index = 8 end object dxLayoutItem_packnote: TdxLayoutItem Parent = dxLayoutGroup2 @@ -1649,7 +1677,7 @@ inherited frmMachRollMain: TfrmMachRollMain ControlOptions.OriginalHeight = 33 ControlOptions.OriginalWidth = 75 ControlOptions.ShowBorder = False - Index = 2 + Index = 3 end object dxLayoutItem_customStrField1: TdxLayoutItem CaptionOptions.Text = #33258#23450#20041#36755#20837'1' @@ -1727,12 +1755,14 @@ inherited frmMachRollMain: TfrmMachRollMain Index = -1 end object dxLayoutItem_unitPieces: TdxLayoutItem + Parent = dxLayoutAutoCreatedGroup10 + SizeOptions.Width = 113 CaptionOptions.Text = #25340#21305 Control = unitPieces ControlOptions.OriginalHeight = 31 - ControlOptions.OriginalWidth = 121 + ControlOptions.OriginalWidth = 76 ControlOptions.ShowBorder = False - Index = -1 + Index = 2 end object dxLayoutItem_custname: TdxLayoutItem SizeOptions.Width = 190 @@ -1744,13 +1774,12 @@ inherited frmMachRollMain: TfrmMachRollMain Index = -1 end object dxLayoutItem_customStrField3: TdxLayoutItem - Parent = dxLayoutGroup_plan_1 CaptionOptions.Text = #33258#23450#20041'3' Control = customStrField3 ControlOptions.OriginalHeight = 31 ControlOptions.OriginalWidth = 145 ControlOptions.ShowBorder = False - Index = 4 + Index = -1 end object dxLayoutItem_ecolor: TdxLayoutItem CaptionOptions.Text = #33521#25991#39068#33394 @@ -1938,20 +1967,22 @@ inherited frmMachRollMain: TfrmMachRollMain object dxLayoutItem_JingMi: TdxLayoutItem Parent = dxLayoutAutoCreatedGroup10 AlignHorz = ahLeft + SizeOptions.Width = 109 CaptionOptions.Text = #32463#23494 Control = JingMi ControlOptions.OriginalHeight = 31 - ControlOptions.OriginalWidth = 121 + ControlOptions.OriginalWidth = 72 ControlOptions.ShowBorder = False Index = 1 end object dxLayoutItem_WeiMi: TdxLayoutItem Parent = dxLayoutAutoCreatedGroup10 AlignVert = avClient + SizeOptions.Width = 158 CaptionOptions.Text = #32428#23494 Control = WeiMi ControlOptions.OriginalHeight = 31 - ControlOptions.OriginalWidth = 121 + ControlOptions.OriginalWidth = 75 ControlOptions.ShowBorder = False Index = 0 end @@ -1977,6 +2008,38 @@ inherited frmMachRollMain: TfrmMachRollMain LayoutDirection = ldHorizontal Index = 1 end + object dxLayoutItem_LYFlag: TdxLayoutItem + Parent = dxLayoutAutoCreatedGroup4 + AlignVert = avClient + SizeOptions.AssignedValues = [sovSizableHorz] + SizeOptions.SizableHorz = True + SizeOptions.Width = 112 + CaptionOptions.Text = #26159#21542#30041#26679 + Control = LYFlag + ControlOptions.OriginalHeight = 31 + ControlOptions.OriginalWidth = 45 + ControlOptions.ShowBorder = False + Index = 2 + end + object dxLayoutItem_btnClear: TdxLayoutItem + Parent = dxLayoutGroup_do1 + CaptionOptions.Text = #28165#31354 + CaptionOptions.Visible = False + Control = btnClear + ControlOptions.OriginalHeight = 30 + ControlOptions.OriginalWidth = 83 + ControlOptions.ShowBorder = False + Index = 5 + end + object dxLayoutItem_BatchNoQty: TdxLayoutItem + Parent = dxLayoutGroup_plan_1 + CaptionOptions.Text = #33853#33394#25968#37327 + Control = BatchNoQty + ControlOptions.OriginalHeight = 31 + ControlOptions.OriginalWidth = 105 + ControlOptions.ShowBorder = False + Index = 4 + end end object Panel_right: TPanel [1] Left = 860 @@ -2595,8 +2658,8 @@ inherited frmMachRollMain: TfrmMachRollMain end end object Panel_msg: TPanel - Left = 8 - Top = 186 + Left = 9 + Top = 187 Width = 241 Height = 41 Caption = #20877#27425#28857#20462#25913#21487#20197#35299#38500#20462#25913#25552#20132 @@ -2639,51 +2702,72 @@ inherited frmMachRollMain: TfrmMachRollMain ExplicitWidth = 338 ExplicitHeight = 734 inherited dxPanel1: TdxPanel - Top = 371 + Top = 381 Width = 338 - Height = 363 - ExplicitTop = 371 + Height = 353 + ExplicitTop = 381 ExplicitWidth = 338 - ExplicitHeight = 363 + ExplicitHeight = 353 inherited RadioGroup1: TRadioGroup - Top = 304 + Top = 294 Width = 336 Height = 57 - Visible = False - ExplicitTop = 304 + ExplicitTop = 294 ExplicitWidth = 336 ExplicitHeight = 57 end inherited dxPanel3: TdxPanel - Top = 106 + Top = 96 Width = 336 Height = 198 - ExplicitTop = 107 + ExplicitTop = 96 ExplicitWidth = 336 ExplicitHeight = 198 inherited cxButton1: TcxButton Left = 18 Top = 164 - Visible = False OnClick = frameBads1cxButton1Click ExplicitLeft = 18 ExplicitTop = 164 end inherited cxButton2: TcxButton - Left = 118 - Top = 142 + Left = 117 + Top = 91 OnClick = cxButton2Click - ExplicitLeft = 118 - ExplicitTop = 142 + ExplicitLeft = 117 + ExplicitTop = 91 + end + inherited CIFPoints: TcxButtonEdit + Left = 115 + Top = 6 + Properties.OnButtonClick = hand_feelPropertiesButtonClick + OnEnter = edtScanEnter + ExplicitLeft = 115 + ExplicitTop = 6 + ExplicitHeight = 34 + end + inherited cxLabel2: TcxLabel + Top = 46 + ExplicitTop = 46 + end + inherited CIFnote: TcxButtonEdit + Left = 115 + Top = 44 + Properties.OnButtonClick = hand_feelPropertiesButtonClick + OnEnter = edtScanEnter + ExplicitLeft = 115 + ExplicitTop = 44 + ExplicitHeight = 34 end end inherited dxLayoutControl1: TdxLayoutControl - Top = 7 + Top = -3 Width = 336 OnDblClick = dxLayoutControl_packDblClick - ExplicitTop = 7 + ExplicitTop = -3 ExplicitWidth = 336 inherited CIFBeg: TcxTextEdit + Properties.OnEditValueChanged = nil OnEnter = edtScanEnter end inherited IsSubtract: TcxCheckBox @@ -2703,57 +2787,15 @@ inherited frmMachRollMain: TfrmMachRollMain end inherited cxScrollBox1: TcxScrollBox Width = 338 - Height = 371 + Height = 381 ExplicitWidth = 338 - ExplicitHeight = 371 + ExplicitHeight = 381 end inherited ADOTmp: TADOQuery Left = 104 Top = 153 end end - object cxLabel2: TcxLabel - Left = 30 - Top = 594 - Caption = #30133#28857#25551#36848 - end - object cxLabel1: TcxLabel - Left = 60 - Top = 555 - Caption = #25187#20998 - end - object CIFPoints: TcxButtonEdit - Left = 121 - Top = 555 - Hint = 'CIFPoints/'#25187#20998 - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.OnButtonClick = hand_feelPropertiesButtonClick - Style.HotTrack = False - Style.TransparentBorder = False - TabOrder = 3 - OnEnter = edtScanEnter - Width = 121 - end - object CIFnote: TcxButtonEdit - Left = 122 - Top = 595 - Hint = 'CIFnote/'#30133#28857#25551#36848 - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.OnButtonClick = hand_feelPropertiesButtonClick - Style.HotTrack = False - Style.TransparentBorder = False - TabOrder = 4 - OnEnter = edtScanEnter - Width = 200 - end end object cxGroupBox_keys: TcxGroupBox [3] Left = 505 @@ -2771,13 +2813,13 @@ inherited frmMachRollMain: TfrmMachRollMain TabOrder = 2 Transparent = True Visible = False - Height = 245 + Height = 287 Width = 319 inline FrameKeyBoard1: TFrameKeyBoard Left = 4 Top = 21 Width = 311 - Height = 208 + Height = 250 Align = alClient Font.Charset = ANSI_CHARSET Font.Color = clWindowText @@ -2789,12 +2831,13 @@ inherited frmMachRollMain: TfrmMachRollMain ExplicitLeft = 4 ExplicitTop = 21 ExplicitWidth = 311 - ExplicitHeight = 208 + ExplicitHeight = 250 inherited dxPanel1: TdxPanel Width = 311 - Height = 208 + Height = 250 + ExplicitTop = 0 ExplicitWidth = 311 - ExplicitHeight = 208 + ExplicitHeight = 250 inherited SpeedButton1: TSpeedButton OnClick = FrameKeyBoard1SpeedButton1Click end @@ -2820,9 +2863,9 @@ inherited frmMachRollMain: TfrmMachRollMain OnClick = FrameKeyBoard1SpeedButton1Click end inherited SpeedButton9: TSpeedButton - Top = 124 + Top = 123 OnClick = FrameKeyBoard1SpeedButton1Click - ExplicitTop = 124 + ExplicitTop = 123 end inherited SpeedButton_back: TSpeedButton OnClick = FrameKeyBoard1SpeedButton_backClick @@ -2837,7 +2880,9 @@ inherited frmMachRollMain: TfrmMachRollMain OnClick = FrameKeyBoard1SpeedButton_ycClick end inherited SpeedButton_zdykey2: TSpeedButton + Left = 247 OnClick = FrameKeyBoard1SpeedButton1Click + ExplicitLeft = 247 end inherited SpeedButton_zdykey1: TSpeedButton OnClick = FrameKeyBoard1SpeedButton1Click @@ -2845,6 +2890,26 @@ inherited frmMachRollMain: TfrmMachRollMain inherited SpeedButton10: TSpeedButton OnClick = FrameKeyBoard1SpeedButton1Click end + inherited SpeedButton11: TSpeedButton + Top = 185 + OnClick = FrameKeyBoard1SpeedButton1Click + ExplicitTop = 185 + end + inherited SpeedButton12: TSpeedButton + OnClick = FrameKeyBoard1SpeedButton1Click + end + inherited SpeedButton13: TSpeedButton + Left = 124 + OnClick = FrameKeyBoard1SpeedButton1Click + ExplicitLeft = 124 + end + inherited SpeedButton14: TSpeedButton + Left = 64 + Top = 188 + OnClick = FrameKeyBoard1SpeedButton1Click + ExplicitLeft = 64 + ExplicitTop = 188 + end end end object MovePanel1: TMovePanel @@ -2858,12 +2923,12 @@ inherited frmMachRollMain: TfrmMachRollMain end end inherited loadProcess: TPanel - Left = 579 - Top = 124 + Left = 570 + Top = 138 Width = 177 TabOrder = 4 - ExplicitLeft = 579 - ExplicitTop = 124 + ExplicitLeft = 570 + ExplicitTop = 138 ExplicitWidth = 177 end inherited cxProgressBar2: TcxProgressBar diff --git a/项目代码/DJ/G03贸易布匹检验/U_MachRollMain.pas b/项目代码/DJ/G03贸易布匹检验/U_MachRollMain.pas index 307765d..8e116ca 100644 --- a/项目代码/DJ/G03贸易布匹检验/U_MachRollMain.pas +++ b/项目代码/DJ/G03贸易布匹检验/U_MachRollMain.pas @@ -18,7 +18,7 @@ uses cxGeometry, dxFramedControl, dxPanel, U_KeyBoard, cxGroupBox, cxGridCustomPopupMenu, cxGridPopupMenu, MovePanel, RM_RichEdit, cxProgressBar, cxCurrencyEdit, Xml.XMLDoc, Xml.xmldom, Xml.XMLIntf, cxDateUtils, - System.DateUtils, cxLabel; + System.DateUtils, cxLabel, cxButtons; type TfrmMachRollMain = class(TfrmBaseList) @@ -136,7 +136,6 @@ type dxLayoutItem_zhfield: TdxLayoutItem; AOrdDefNote1: TcxRichEdit; dxLayoutItem_pic: TdxLayoutItem; - dxLayoutAutoCreatedGroup2: TdxLayoutAutoCreatedGroup; cds_params: TClientDataSet; cds_paramsdabao: TStringField; cds_paramspackRolls: TIntegerField; @@ -294,11 +293,13 @@ type dxLayoutAutoCreatedGroup9: TdxLayoutAutoCreatedGroup; dxLayoutAutoCreatedGroup11: TdxLayoutAutoCreatedGroup; dxLayoutAutoCreatedGroup7: TdxLayoutAutoCreatedGroup; - cxLabel2: TcxLabel; Tv2CIFType: TcxGridDBColumn; - cxLabel1: TcxLabel; - CIFPoints: TcxButtonEdit; - CIFnote: TcxButtonEdit; + LYFlag: TcxComboBox; + dxLayoutItem_LYFlag: TdxLayoutItem; + btnClear: TcxButton; + dxLayoutItem_btnClear: TdxLayoutItem; + BatchNoQty: TcxTextEdit; + dxLayoutItem_BatchNoQty: TdxLayoutItem; procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure Button_badClick(Sender: TObject); @@ -348,6 +349,7 @@ type procedure ToolButton1Click(Sender: TObject); procedure hand_feelPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure frameBads1cxButton1Click(Sender: TObject); + procedure btnClearClick(Sender: TObject); private FCIID, FOperationStatus, FCIFName, FWorkshop: string; FBCIOID, FOrderNo, FMainId, FSubId, FPCId, FConNo, FConMId, fBuyConNo, FConSId: string; @@ -763,6 +765,28 @@ begin end; end; +procedure TfrmMachRollMain.btnClearClick(Sender: TObject); +begin + inherited; + BatchNO.text := ''; + PieceNo.text := ''; + InputMeter.text := ''; + C_GramWeight1.text := ''; + C_GramWeight2.text := ''; + C_GramWeight3.text := ''; + ValidC_Width.text := ''; + BDBC_Width.text := ''; + hand_feel.text := ''; + color_diff.text := ''; + TW_diff.text := ''; + LMR_diff.text := ''; + color_light.text := ''; + JingMi.text := ''; + WeiMi.text := ''; + LYFlag.text := ''; + unitPieces.text := ''; +end; + procedure TfrmMachRollMain.btnRKClick(Sender: TObject); var MINo, MStkIds: string; @@ -991,12 +1015,12 @@ begin end; if trim(fCanInputFs) = '1' then begin - cxGroupBox_keys.ClientHeight := round(cxGrid3.ClientHeight * 0.6); +// cxGroupBox_keys.ClientHeight := round(cxGrid3.ClientHeight * 0.6); frameKeyBoard1.SpeedButton10.Visible := true; end else begin - cxGroupBox_keys.ClientHeight := round(cxGrid3.ClientHeight * 0.55); +// cxGroupBox_keys.ClientHeight := round(cxGrid3.ClientHeight * 0.55); frameKeyBoard1.SpeedButton10.Visible := false; end; finally @@ -1362,7 +1386,7 @@ begin FC_Code := trim(fieldbyName('C_Code').AsString); FC_Name := trim(fieldbyName('C_Name').AsString); FC_EName := trim(fieldbyName('C_EName').AsString); - // FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString); + FBatchNO := Trim(fieldbyname('BatchNO').AsString); FC_Spec := trim(fieldbyName('C_Spec').AsString); FC_Color := trim(fieldbyName('C_Color').AsString); FC_ColorNo := trim(fieldbyName('C_ColorNo').AsString); @@ -1446,7 +1470,7 @@ begin if fieldbyName('DecimalKg').Value <> null then cds_params.fieldbyName('kgPlace').value := fieldbyName('DecimalKg').AsInteger; cds_params.Post; - // + //ɫ׺ţ BatchNO.Text := trim(fieldbyName('batchNo').AsString); if (fields.FindField('mcxs') <> nil) and (ADOQueryBaseTemp.FieldByName('zhxs').AsFloat > 0) then @@ -1466,6 +1490,7 @@ begin FtyPCId.Text := FFtyPCId; BCIOID.Text := FBCIOID; Piece.Text := trim(fieldbyName('ordPiece').AsString); + BatchNoQty.text := trim(fieldbyName('BatchNoQty').AsString); Qty.Text := trim(fieldbyName('ordQty').AsString) + trim(fieldbyName('ordUnit').AsString); // Ƥ Tare.Text := trim(fieldbyName('RuleLaterTare').AsString); @@ -2347,7 +2372,7 @@ end; procedure TfrmMachRollMain.cxButton2Click(Sender: TObject); var - CIFType : string; + CIFType: string; begin inherited; if FCIFName = '' then @@ -2360,7 +2385,7 @@ begin begin Close; SQL.Clear; - sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''WFBCD'' and ZDYName='+QuotedStr(trim(FCIFName))); + sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''WFBCD'' and ZDYName=' + QuotedStr(trim(FCIFName))); // ShowMessage(sql.Text); Open; end; @@ -2379,8 +2404,8 @@ begin fieldbyName('CIFEnd').value := trim(frameBads1.CIFEnd.Text); fieldbyName('CIFNumber').value := strtointdef(trim(frameBads1.CIFNumber.Text), 0); - fieldbyName('CIFPoints').value := StrToFloatDef(trim(CIFPoints.Text), 0); - fieldbyName('CIFnote').value := trim(CIFnote.Text); + fieldbyName('CIFPoints').value := StrToFloatDef(trim(frameBads1.CIFPoints.Text), 0); + fieldbyName('CIFnote').value := trim(frameBads1.CIFnote.Text); fieldbyName('CIFType').value := trim(CIFType); // if frameBads1.RadioGroup1.ItemIndex > -1 then // begin @@ -2403,8 +2428,8 @@ begin frameBads1.CIFBeg.Text := ''; frameBads1.CIFEnd.Text := ''; frameBads1.CIFQty.Text := ''; - CIFPoints.Text := ''; - CIFnote.Text := ''; + frameBads1.CIFPoints.Text := ''; + frameBads1.CIFnote.Text := ''; frameBads1.dxPanel1.Visible := false; cxPageControl1.ActivePageIndex := 0; end; @@ -2791,6 +2816,7 @@ begin fieldbyName('color_light').value := trim(color_light.Text); fieldbyName('JingMi').value := trim(JingMi.Text); fieldbyName('WeiMi').value := trim(WeiMi.Text); + fieldbyName('LYFlag').value := trim(LYFlag.Text); /// ¼ӵһ /// //ƴƥ diff --git a/项目代码/DJ/G03贸易布匹检验/U_frameBads.dfm b/项目代码/DJ/G03贸易布匹检验/U_frameBads.dfm index 7228376..b50b939 100644 --- a/项目代码/DJ/G03贸易布匹检验/U_frameBads.dfm +++ b/项目代码/DJ/G03贸易布匹检验/U_frameBads.dfm @@ -22,9 +22,9 @@ object frameBads: TframeBads Visible = False object RadioGroup1: TRadioGroup Left = 0 - Top = 108 + Top = 227 Width = 329 - Height = 132 + Height = 62 Align = alBottom Columns = 2 Ctl3D = True @@ -43,22 +43,25 @@ object frameBads: TframeBads ParentCtl3D = False ParentFont = False TabOrder = 0 + Visible = False end object dxPanel3: TdxPanel Left = 0 - Top = 240 + Top = 99 Width = 329 - Height = 49 + Height = 128 Align = alBottom Frame.Borders = [bLeft, bRight, bBottom] TabOrder = 1 + ExplicitTop = 98 object cxButton1: TcxButton - Left = 25 - Top = 3 + Left = 4 + Top = 85 Width = 71 Height = 41 Caption = #21462#28040#36873#25321 TabOrder = 0 + Visible = False Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -68,8 +71,8 @@ object frameBads: TframeBads OnClick = cxButton1Click end object cxButton2: TcxButton - Left = 174 - Top = 4 + Left = 116 + Top = 84 Width = 75 Height = 38 Caption = #30830' '#23450 @@ -82,10 +85,48 @@ object frameBads: TframeBads ParentFont = False OnClick = cxButton2Click end + object cxLabel1: TcxLabel + Left = 46 + Top = 8 + Caption = #25187#20998 + end + object CIFPoints: TcxButtonEdit + Left = 117 + Top = 4 + Hint = 'CIFPoints/'#25187#20998 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 3 + Width = 121 + end + object cxLabel2: TcxLabel + Left = 17 + Top = 47 + Caption = #30133#28857#25551#36848 + end + object CIFnote: TcxButtonEdit + Left = 117 + Top = 43 + Hint = 'CIFnote/'#30133#28857#25551#36848 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 5 + Width = 200 + end end object dxLayoutControl1: TdxLayoutControl Left = 0 - Top = 9 + Top = 0 Width = 329 Height = 99 Align = alBottom @@ -97,6 +138,7 @@ object frameBads: TframeBads ParentFont = False TabOrder = 2 LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1 + ExplicitTop = 9 object CIFBeg: TcxTextEdit Left = 53 Top = 54 diff --git a/项目代码/DJ/G03贸易布匹检验/U_frameBads.pas b/项目代码/DJ/G03贸易布匹检验/U_frameBads.pas index b5f8e91..1b352a9 100644 --- a/项目代码/DJ/G03贸易布匹检验/U_frameBads.pas +++ b/项目代码/DJ/G03贸易布匹检验/U_frameBads.pas @@ -9,7 +9,7 @@ uses Vcl.StdCtrls, Vcl.ExtCtrls, cxTextEdit, MovePanel, Vcl.Buttons, cxGeometry, dxFramedControl, Vcl.Menus, cxButtons, dxPanel, cxScrollBox, dxLayoutcxEditAdapters, dxLayoutContainer, cxClasses, dxLayoutControl, Data.DB, - Data.Win.ADODB, cxCheckBox; + Data.Win.ADODB, cxCheckBox, cxLabel, cxMaskEdit, cxButtonEdit; type TframeBads = class(TFrame) @@ -43,6 +43,10 @@ type dxLayoutAutoCreatedGroup1: TdxLayoutAutoCreatedGroup; cxCheck_len: TcxCheckBox; dxLayoutItem_checkLen: TdxLayoutItem; + cxLabel1: TcxLabel; + CIFPoints: TcxButtonEdit; + cxLabel2: TcxLabel; + CIFnote: TcxButtonEdit; procedure cxButton2Click(Sender: TObject); procedure cxButton1Click(Sender: TObject); procedure CIFBegPropertiesEditValueChanged(Sender: TObject); diff --git a/项目代码/DJ/G03贸易布匹检验/testDll.identcache b/项目代码/DJ/G03贸易布匹检验/testDll.identcache index 86b6f7a..c0a718c 100644 Binary files a/项目代码/DJ/G03贸易布匹检验/testDll.identcache and b/项目代码/DJ/G03贸易布匹检验/testDll.identcache differ