From 6581f78c822da0bc3dd62430fcecf806ed34e9da Mon Sep 17 00:00:00 2001 From: acer <2928357209@qq.com> Date: Mon, 30 Mar 2026 17:30:30 +0800 Subject: [PATCH] 123 --- .../G01贸易生产计划/ProjectGroup1.groupproj.local | 2 +- .../djdPack/G01贸易生产计划/U_GetDllForm.pas | 13 +- .../G01贸易生产计划/U_TradePlanMgeList.dfm | 35 +- .../G01贸易生产计划/U_TradePlanMgeList.pas | 703 ++++++++++-------- .../djdPack/G01贸易生产计划/djdPackPlan.dproj | 79 +- .../G01贸易生产计划/djdPackPlan.dproj.local | 36 +- .../G01贸易生产计划/djdPackPlan.identcache | Bin 3390 -> 3050 bytes .../djdPack/G01贸易生产计划/djdPackPlan.res | Bin 1496 -> 1496 bytes .../djdPack/G01贸易生产计划/testDll.identcache | Bin 216 -> 196 bytes 项目代码/djdPack/G01贸易生产计划/testDll.res | Bin 3308 -> 3308 bytes .../djdPack/G03贸易布匹检验/DjdMachineInsp.dpr | 3 +- .../djdPack/G03贸易布匹检验/DjdMachineInsp.dproj | 4 + .../G03贸易布匹检验/DjdMachineInsp.dproj.local | 147 ++-- .../G03贸易布匹检验/DjdMachineInsp.identcache | Bin 4109 -> 4215 bytes .../djdPack/G03贸易布匹检验/U_MachRollMain.dfm | 4 + .../djdPack/G03贸易布匹检验/U_MachRollMain.pas | 16 +- .../G03贸易布匹检验/U_ProductListHelp2.dfm | 458 ++++++++++++ .../G03贸易布匹检验/U_ProductListHelp2.pas | 296 ++++++++ .../G04复核布匹检验/ProjectGroup1.groupproj.local | 2 +- .../G04复核布匹检验/fhDjdMachineInsp.dproj.local | 178 ++--- .../G04复核布匹检验/fhDjdMachineInsp.identcache | Bin 4592 -> 4142 bytes .../djdPack/G04复核布匹检验/testDll.identcache | Bin 216 -> 196 bytes 22 files changed, 1352 insertions(+), 624 deletions(-) create mode 100644 项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.dfm create mode 100644 项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.pas diff --git a/项目代码/djdPack/G01贸易生产计划/ProjectGroup1.groupproj.local b/项目代码/djdPack/G01贸易生产计划/ProjectGroup1.groupproj.local index 705fac2..eae65c2 100644 --- a/项目代码/djdPack/G01贸易生产计划/ProjectGroup1.groupproj.local +++ b/项目代码/djdPack/G01贸易生产计划/ProjectGroup1.groupproj.local @@ -1,6 +1,6 @@  - + diff --git a/项目代码/djdPack/G01贸易生产计划/U_GetDllForm.pas b/项目代码/djdPack/G01贸易生产计划/U_GetDllForm.pas index 54faad9..8078907 100644 --- a/项目代码/djdPack/G01贸易生产计划/U_GetDllForm.pas +++ b/项目代码/djdPack/G01贸易生产计划/U_GetDllForm.pas @@ -74,17 +74,14 @@ begin if trim(DataBaseStr) = '' then begin server := '101.132.143.144,7781'; - //server:='192.168.110.193,7781'; - dtbase := 'RTBasicsData'; -// dtbase := 'ruifengsyjyData'; - // dtbase:='jingpinjydata' ; - // dtbase := 'sanhaojydata'; + dtbase := 'zhuocanjydata'; +// dtbase := 'rtbasicsdata'; 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 := 'Ȩ'; +// Parameters1 := ''; + Parameters1 := 'Ȩ'; dname:='ADMIN'; dcode:='ADMIN'; end diff --git a/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.dfm b/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.dfm index 3df5871..9cdcaa8 100644 --- a/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.dfm +++ b/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.dfm @@ -315,7 +315,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList AllowRemove = False CaptionOptions.Text = #35746#21333#21495 Control = OrderNo - ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalHeight = 33 ControlOptions.OriginalWidth = 109 ControlOptions.ShowBorder = False Index = 2 @@ -325,7 +325,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList AllowRemove = False CaptionOptions.Text = #23458#25143#21517#31216 Control = custName - ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalHeight = 33 ControlOptions.OriginalWidth = 109 ControlOptions.ShowBorder = False Index = 3 @@ -334,7 +334,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList Tag = 99 CaptionOptions.Text = #19994#21153#21592 Control = ywy - ControlOptions.OriginalHeight = 21 + ControlOptions.OriginalHeight = 25 ControlOptions.OriginalWidth = 121 ControlOptions.ShowBorder = False Index = -1 @@ -344,7 +344,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList Visible = False CaptionOptions.Text = #20135#21697#21517#31216 Control = C_Name - ControlOptions.OriginalHeight = 21 + ControlOptions.OriginalHeight = 25 ControlOptions.OriginalWidth = 121 ControlOptions.ShowBorder = False Index = -1 @@ -354,7 +354,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList SizeOptions.Width = 195 CaptionOptions.Text = #21046#21333#26085#26399 Control = begdate - ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalHeight = 33 ControlOptions.OriginalWidth = 123 ControlOptions.ShowBorder = False Index = 0 @@ -364,7 +364,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList SizeOptions.Width = 154 CaptionOptions.Text = '--' Control = endDate - ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalHeight = 33 ControlOptions.OriginalWidth = 132 ControlOptions.ShowBorder = False Index = 1 @@ -373,7 +373,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList Parent = dxLayoutControl_queryGroup_Root CaptionOptions.Text = #21512#21516#21495 Control = ConNo - ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalHeight = 33 ControlOptions.OriginalWidth = 105 ControlOptions.ShowBorder = False Index = 4 @@ -383,7 +383,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList Visible = False CaptionOptions.Text = #23458#25143#21333#21495 Control = BuyConNo - ControlOptions.OriginalHeight = 21 + ControlOptions.OriginalHeight = 25 ControlOptions.OriginalWidth = 121 ControlOptions.ShowBorder = False Index = -1 @@ -392,7 +392,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList Parent = dxLayoutControl_queryGroup_Root CaptionOptions.Text = #26412#21378#32568#21495 Control = batchNo - ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalHeight = 33 ControlOptions.OriginalWidth = 105 ControlOptions.ShowBorder = False Index = 5 @@ -400,7 +400,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList object dxLayoutItem_FtyPCId: TdxLayoutItem CaptionOptions.Text = #26579#21378#32568#21495 Control = FtyPCId - ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalHeight = 33 ControlOptions.OriginalWidth = 105 ControlOptions.ShowBorder = False Index = -1 @@ -416,9 +416,10 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList Properties.CustomButtons.Buttons = <> Properties.TabPosition = tpBottom OnClick = cxPageControl1Click - ClientRectBottom = 433 - ClientRectRight = 1113 - ClientRectTop = 0 + ClientRectBottom = 430 + ClientRectLeft = 1 + ClientRectRight = 1112 + ClientRectTop = 1 object cxTabSheet1: TcxTabSheet Caption = #27719#24635#35270#22270 ImageIndex = 0 @@ -806,8 +807,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList end object cxGrid2: TcxGrid Left = 0 - Top = 278 - Width = 1113 + Top = 274 + Width = 1111 Height = 155 Align = alBottom TabOrder = 1 @@ -1302,8 +1303,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList end object cxSplitter1: TcxSplitter Left = 0 - Top = 270 - Width = 1113 + Top = 266 + Width = 1111 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom diff --git a/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.pas b/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.pas index f6bafe1..79d16f2 100644 --- a/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.pas +++ b/项目代码/djdPack/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(); @@ -848,36 +904,41 @@ begin end; procedure TfrmTradePlanMgeList.TWCClick(Sender: TObject); +var + topIndex: Integer; 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; + 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))); + topIndex := Tv1.Controller.TopRowIndex; - 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; + 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; @@ -889,31 +950,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; @@ -921,22 +983,23 @@ begin Application.MessageBox('ƻʧܣ', 'ʾϢ', 0); end; end; - + Tv1.Controller.TopRowIndex := topIndex; 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 +1011,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 +1032,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 +1067,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 +1078,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 +1106,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 +1136,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 +1156,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 +1191,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 +1236,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 +1278,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 +1289,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 +1316,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 +1341,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 +1355,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/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj b/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj index db3a485..a29c644 100644 --- a/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj +++ b/项目代码/djdPack/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 + E:\rtgit\trade\D10DJzhuocan\项目代码\djdPack\G01贸易生产计划\testDll.exe @@ -286,10 +215,6 @@ - True - True - True - True True False diff --git a/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj.local b/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj.local index f9df33d..4fdb613 100644 --- a/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj.local +++ b/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj.local @@ -1,34 +1,6 @@  - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -53,7 +25,7 @@ - + @@ -98,12 +70,12 @@ 1899-12-30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas= - 1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas= + 1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm 1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.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.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm 1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas= - 1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas + 1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas 1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas diff --git a/项目代码/djdPack/G01贸易生产计划/djdPackPlan.identcache b/项目代码/djdPack/G01贸易生产计划/djdPackPlan.identcache index b171f12bd6a486a194e3a3121970e87a19db8cb0..24200ff0a4ee6b8082b6e373302b211286d09729 100644 GIT binary patch literal 3050 zcmcImL2uJA7~OB-2TbX82t?PcU8imhO|!8PsNBS~X09FCj-Z@C;=q|r0>J?$4j>LY zAp}(Xn?kpLf!$S|=D1M}A*Y<)`@Z+y_xZcFva+(bu@*AXLn0Im#4vPAj=S}wpVA1B z@ciWa)8zB3@y{cP?x9Ge3n+nO%hPXlxz_81~UN57eeo}^ujqLLHFkfR=v!mI-hT_8XMkwYD7-41FG zk(fSG4ql+^aFwOt+IxFpD71 zV(wu;R^x=tLo9zRMF>BA>9>Jto!TE?*@Tyc08xJci7?+rf3ax) zml7KTdA$uGG|Zyqq^P5(PLd+_^rfPs=i|}Wuqx+R9aN?&|6x!noa+nueqk{V5}`t@ M=A}(r6lX5hKaCiS%K!iX literal 3390 zcmcIm%Wl&^6wSBr0hP05SK{VToW_ciB8q94*n=~4JTsaZ3$g==1#4OfR2ERN0I}!_ zAt2&!0%`vOJ1wpGe z_ThzZSFP|#=z`#A@%_J-4Xb+b_4}W<$Fr07)1RL%&d+|odhPcIJq|+HB7%8PZZRNI znEV%Q3eUxWv?J&sQNY|a!(_=2qo8W}y%C47o)ABK67Qh7H`w($dny%ZR(3&BBk3|K zE#f8xBDNV~P9%f^MI`OW9Ux#6Vy04fU{>%yC`3>)6sS0$1kSc)T|PgZoqV2sc{BZW zoU+-L5(J|d64_^%f>1>pmOxwPX>TkX8g+OGxe9mJ46fLf;8}yCu$Bl(a$02ym=*4yr# zI8BZ*gc_iSW>OjYs)nf?wa8JPFB?$6;>8T1_lNI9{K}S delta 12 Tcmcb?eS>?$6;_tUDGUq%BDMr+ diff --git a/项目代码/djdPack/G01贸易生产计划/testDll.identcache b/项目代码/djdPack/G01贸易生产计划/testDll.identcache index 075b4e98a84eb4a91f7d3b1d6e0e0680de90cfb6..07c0810a9c0ad80e790dbb34db87097313215dd8 100644 GIT binary patch delta 75 zcmcb?c!W`biGhJ3#MLUMs3bkJB&MV&F(oy|#n8aTt16>3KRGdPqL$9Y{gN_4c$GK< E0H)pFberNGc2D77Fz%rNHV!ky1&uY0n4@$&_ZF)oG%DOo82iOJa$ P8=ckSh*YUF(MJ*h9F!;G diff --git a/项目代码/djdPack/G01贸易生产计划/testDll.res b/项目代码/djdPack/G01贸易生产计划/testDll.res index 2465ca0e30696a8467f3b1371b2f343eab2cd121..e116c482ff64a90aae29d14ae002699b9b83f166 100644 GIT binary patch delta 12 TcmaDO`9^ZX3mz6m1_lNIB7g(5 delta 12 TcmaDO`9^ZX3m%rnDGUq%COibl diff --git a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dpr b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dpr index 8fe4fbd..bb6556a 100644 --- a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dpr +++ b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dpr @@ -50,7 +50,8 @@ uses U_FormInitThread in '..\..\..\public10\design\U_FormInitThread.pas', Unit2 in 'Unit2.pas' {Form2}, U_ControlData in '..\..\..\public10\ThreeFun\Fun\U_ControlData.pas', - uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; + uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', + U_ProductListHelp2 in 'U_ProductListHelp2.pas' {frmProductListHelp2}; {$R *.res} diff --git a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj index e6e2ef6..1c99069 100644 --- a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj +++ b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj @@ -235,6 +235,10 @@ + +
frmProductListHelp2
+ dfm + Cfg_2 Base diff --git a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj.local b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj.local index b74bfac..71a3232 100644 --- a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj.local +++ b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj.local @@ -1,104 +1,105 @@  - 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.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas 1899-12-30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.pas 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.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.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 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.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.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.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj 1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas + 1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.950,=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.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.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.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.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.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm + 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.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 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.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.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.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj - 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.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.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.233,=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.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas + 1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.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.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 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.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.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.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.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.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.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.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.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.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.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm + 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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.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.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 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.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.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.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm - 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.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas - 1899-12-30 00:00:00.000.706,=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.990,=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.053,=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.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.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.928,=E:\rtgit\trade\D10DJzhuocan\项目代码\djdPack\G03贸易布匹检验\U_ProductListHelp2.pas + 1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 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.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 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.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm + 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.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.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm + 1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas + 1899-12-30 00:00:00.000.679,=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.950,=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.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas + 1899-12-30 00:00:00.000.739,=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.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas @@ -184,5 +185,7 @@ + + diff --git a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.identcache b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.identcache index 702feebc091e6a463d8528154ef0eff6cb5fa7ac..c71ed0220c733f701291a61d60f49a5597c236e7 100644 GIT binary patch delta 206 zcmeBG_^!aHH<9t|^r%DD;_Am3dlB?Jc*@oVz$@hi`dJ2{R~bn-q%|H%RDg_C)ik|xWrWlqj#@&$_N zPxfN2o~$WgJ(-bP7${~i`73iHkXD;~fmeO9HS0v6IbM^wIbV)A(&DX>}}E*YR5UXztsB_{7-ik~dPy<=jw*W?2%l9P)W Yy(gbx4FGC6IPsi2P}XI$HJ=R=09J%Q!T + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + 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 + Column = V2OrdQty + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object V2C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object V2C_ColorNo: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 73 + end + object V2C_Pattern: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object V2Subid: TcxGridDBColumn + Caption = #35746#21333#26465#30721 + DataBinding.FieldName = 'Subid' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 73 + end + object V2Column10: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 72 + end + object V2CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object V2Column14: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'conNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object V2C_Name: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object V2C_Spec: TcxGridDBColumn + Caption = #22411#21495#35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object V2OrdQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 65 + end + object V2OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 65 + end + object V2OrdSNote: TcxGridDBColumn + Caption = #25968#37327#35201#27714 + DataBinding.FieldName = 'OrdSNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 76 + end + object V2packNote: TcxGridDBColumn + Caption = #21253#35013#35201#27714 + DataBinding.FieldName = 'packNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 65 + end + object TV2Column1: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'batchno' + DataBinding.IsNullValueType = True + end + object TV2Column2: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'FtyPCId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + object TV2Column3: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'C_EColor' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 79 + Width = 545 + Height = 461 + Align = alLeft + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + 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> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Caption = #25490#21333#26102#38388 + DataBinding.FieldName = 'OrdDate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 117 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 112 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 141 + end + object Tv1Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 123 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel [3] + Left = 0 + Top = 30 + Width = 1143 + Height = 49 + Align = alTop + Color = 16448250 + ParentBackground = False + TabOrder = 3 + object C_Name: TcxTextEdit + Tag = 2 + Left = 433 + Top = 8 + Properties.OnChange = C_NamePropertiesChange + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 0 + Width = 109 + end + object OrderNo: TcxTextEdit + Tag = 2 + Left = 249 + Top = 8 + Properties.OnChange = OrderNoPropertiesChange + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 1 + Width = 109 + end + object custName: TcxComboBox + Tag = 2 + Left = 77 + Top = 8 + Properties.OnChange = custNamePropertiesChange + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 2 + Width = 121 + end + object cxLabel1: TcxLabel + Left = 17 + Top = 9 + Caption = #23458#25143#21517#31216 + end + object cxLabel2: TcxLabel + Left = 204 + Top = 8 + Caption = #35746#21333#21495 + end + object cxLabel3: TcxLabel + Tag = 3 + Left = 375 + Top = 9 + Caption = #20135#21697#21517#31216 + end + object C_Color: TcxTextEdit + Tag = 4 + Left = 741 + Top = 6 + Properties.OnChange = C_ColorPropertiesChange + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 6 + Width = 109 + end + object cxLabel4: TcxLabel + Tag = 4 + Left = 705 + Top = 6 + Caption = #39068#33394 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + Left = 385 + Top = 336 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + Left = 289 + Top = 345 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 680 + Top = 328 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 616 + Top = 328 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 824 + Top = 256 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 448 + Top = 168 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 224 + end + object DataSource2: TDataSource + DataSet = Order_Sub + Left = 520 + Top = 256 + end +end diff --git a/项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.pas b/项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.pas new file mode 100644 index 0000000..0323065 --- /dev/null +++ b/项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.pas @@ -0,0 +1,296 @@ +unit U_ProductListHelp2; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, + cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxStyles, cxCustomData, + cxFilter, cxData, cxDataStorage, cxEdit, cxNavigator, dxDateRanges, + dxScrollbarAnnotations, Data.DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls, + Vcl.ToolWin, Data.Win.ADODB, U_BaseHelp, U_BaseList, System.ImageList, + Vcl.ImgList, Datasnap.DBClient, dxBarBuiltInMenu, cxGridCustomPopupMenu, + cxGridPopupMenu, dxLayoutContainer, dxLayoutControl, cxContainer, dxCore, + cxDateUtils, dxLayoutcxEditAdapters, cxMaskEdit, cxDropDownEdit, cxTextEdit, + cxLabel; + +type + TfrmProductListHelp2 = class(TfrmBaseHelp) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + V2Subid: TcxGridDBColumn; + V2Column10: TcxGridDBColumn; + V2CustomerNoName: TcxGridDBColumn; + V2Column14: TcxGridDBColumn; + V2C_Name: TcxGridDBColumn; + V2C_Spec: TcxGridDBColumn; + V2C_Color: TcxGridDBColumn; + V2C_ColorNo: TcxGridDBColumn; + V2C_Pattern: TcxGridDBColumn; + V2OrdSNote: TcxGridDBColumn; + V2packNote: TcxGridDBColumn; + V2OrdQty: TcxGridDBColumn; + V2OrderUnit: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + DataSource1: TDataSource; + ADOQueryMain: TADOQuery; + Order_Main: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + TselOk: TToolButton; + ToolButton1: TToolButton; + TV2Column1: TcxGridDBColumn; + TV2Column2: TcxGridDBColumn; + TV2Column3: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + Panel1: TPanel; + C_Name: TcxTextEdit; + OrderNo: TcxTextEdit; + custName: TcxComboBox; + cxLabel1: TcxLabel; + cxLabel2: TcxLabel; + cxLabel3: TcxLabel; + C_Color: TcxTextEdit; + cxLabel4: TcxLabel; + procedure TBCloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TselOkClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure custNamePropertiesChange(Sender: TObject); + procedure TV2DblClick(Sender: TObject); + procedure C_ColorPropertiesChange(Sender: TObject); + procedure C_NamePropertiesChange(Sender: TObject); + procedure OrderNoPropertiesChange(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + private + procedure InitForm(); + procedure InitGrid(); + procedure InitSubGrid(); + public + fType: string; + FCustName: string; + FC_Color: string; + FOrderNo: string; + end; + +var + frmProductListHelp2: TfrmProductListHelp2; + +implementation + +uses + U_DataLink, U_globalVar, U_RTFun, U_FormLayOutDesign; +{$R *.dfm} + +procedure TfrmProductListHelp2.custNamePropertiesChange(Sender: TObject); +begin + inherited; + with Order_Main do + begin + Filtered := false; + Filter := SGetFilters(panel1, 1, 2); + Filtered := true; + end; +end; + +procedure TfrmProductListHelp2.TV2DblClick(Sender: TObject); +begin + inherited; + TselOk.Click; +end; + +procedure TfrmProductListHelp2.C_ColorPropertiesChange(Sender: TObject); +begin + inherited; + + with Order_Sub do + begin + Filtered := false; + Filter := SGetFilters(panel1, 3, 4); + Filtered := true; + end; +end; + +procedure TfrmProductListHelp2.C_NamePropertiesChange(Sender: TObject); +begin + inherited; + + with Order_Main do + begin + Filtered := false; + Filter := SGetFilters(panel1, 1, 2); + Filtered := true; + end; + +end; + +procedure TfrmProductListHelp2.FormCreate(Sender: TObject); +begin + inherited; +// cxGrid2.Align := alClient; +// BegDate.Date := SGetServerDateTime(ADOQueryBaseTemp) - 15; +// endDate.Date := SGetServerDateTime(ADOQueryBaseTemp) +end; + +procedure TfrmProductListHelp2.FormShow(Sender: TObject); +begin + inherited; + InitForm(); + SInitTcxComBoxBySql(ADOQueryBaseCmd, custName, true, 'select distinct name = custName from trade_plan_main'); + CustName.Text := FCustName; + + if Trim(FOrderNo) <> '' then + begin + Order_Main.Locate('OrderNo', FOrderNo, []); + InitSubGrid(); + end; + +end; + +procedure TfrmProductListHelp2.InitForm(); +begin + InitGrid(); + ReadCxGrid(self.Caption + tv2.Name, Tv2, gDllFileCaption); + ReadCxGrid(self.Caption + tv1.Name, Tv1, gDllFileCaption); +end; + +procedure TfrmProductListHelp2.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(panel1, 1, 2)); + SCreateCDS(ADOQueryMain, Order_Main); + SInitCDSData(ADOQueryMain, Order_Main); +end; + +procedure TfrmProductListHelp2.TBRafreshClick(Sender: TObject); +begin + OrderNo.SetFocus; + InitGrid(); +end; + +procedure TfrmProductListHelp2.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(trim(Self.Caption) + tv2.Name, Tv2, gDllFileCaption); + WriteCxGrid(trim(Self.Caption) + tv1.Name, Tv1, gDllFileCaption); +// if gIsCanDesign then +// begin +// saveLayOut(application, dxLayoutControl_query, ADOQueryBaseCmd, PWideChar(fDllFileName + '|' + Self.Name + '|' + dxLayoutControl_query.Name + '.ini')); +// end; + +end; + +procedure TfrmProductListHelp2.TselOkClick(Sender: TObject); +begin + inherited; + if Order_Sub.IsEmpty then + exit; + + ModalResult := 1; +end; + +procedure TfrmProductListHelp2.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + inherited; + InitSubGrid(); +end; + +procedure TfrmProductListHelp2.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmProductListHelp2.InitGrid(); +var + mBegDate: string; + mendDate: string; +begin +// if BegDate.Text <> '' then +// mBegDate := FormatDateTime('yyyy-MM-dd', BegDate.Date); +// if enddate.Text <> '' then +// mendDate := FormatDateTime('yyyy-MM-dd', enddate.Date + 1); + try + Order_Main.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; +// sql.Add('select A.* '); +// // sql.Add(',SumPiece=(select Sum(X.Piece) from BS_Cloth_IO X where X.IOFlag='''' and X.fromSubID=A.SubID and isnull(X.STKNAME,'''')=' + Quotedstr(Trim(FSTKNAME)) + ')'); +// //sql.Add(',SumQty=(select Sum(X.Qty) from BS_Cloth_IO X where X.IOFlag='''' and X.fromSubID=A.SubID and isnull(X.STKNAME,'''')=' + Quotedstr(Trim(FSTKNAME)) + ')'); +// sql.Add('from V_Trade_Plan_Fty A '); +// sql.add('where Status=''9'' '); +// if mBegDate<>'' then +// sql.Add('and filltime>='+QuotedStr(mBegDate)); +// if mendDate<>'' then +// sql.Add('and filltime<'+QuotedStTr(mendDate)); + sql.Add('select OrderNo, OrdDate, CustName, C_Name from Trade_Plan_Main A '); + sql.Add('join Trade_Plan_Sub B '); + sql.Add('on A.MainId = B.MainId '); + sql.Add('where A.status = ''9'' '); + sql.Add('GROUP BY OrderNo, OrdDate, CustName, C_Name '); + Open; + end; + SDofilter(ADOQueryMain, SGetFilters(panel1, 1, 2)); + SCreateCDS(ADOQueryMain, Order_Main); + SInitCDSData(ADOQueryMain, Order_Main); + finally + Order_Main.EnableControls; + end; +end; + +procedure TfrmProductListHelp2.InitSubGrid(); +begin + try + Order_Sub.DisableControls; + with ADOQueryBaseTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + // sql.Add(',SumPiece=(select Sum(X.Piece) from BS_Cloth_IO X where X.IOFlag='''' and X.fromSubID=A.SubID and isnull(X.STKNAME,'''')=' + Quotedstr(Trim(FSTKNAME)) + ')'); + //sql.Add(',SumQty=(select Sum(X.Qty) from BS_Cloth_IO X where X.IOFlag='''' and X.fromSubID=A.SubID and isnull(X.STKNAME,'''')=' + Quotedstr(Trim(FSTKNAME)) + ')'); + sql.Add('from V_Trade_Plan_Fty A '); + sql.add('where Status=''9'' '); + SQL.Add(' and OrderNo=' + QuotedStr(Trim(Order_Main.FieldByName('OrderNo').AsString))); + Open; + end; + SDofilter(ADOQueryBaseTemp, SGetFilters(panel1, 3, 4)); + SCreateCDS(ADOQueryBaseTemp, Order_Sub); + SInitCDSData(ADOQueryBaseTemp, Order_Sub); + finally + Order_Sub.EnableControls; + end; +end; + +procedure TfrmProductListHelp2.OrderNoPropertiesChange(Sender: TObject); +begin + inherited; + + with Order_Main do + begin + Filtered := false; + Filter := SGetFilters(panel1, 1, 2); + Filtered := true; + end; + +end; + +end. + diff --git a/项目代码/djdPack/G04复核布匹检验/ProjectGroup1.groupproj.local b/项目代码/djdPack/G04复核布匹检验/ProjectGroup1.groupproj.local index 62c412b..59f75e7 100644 --- a/项目代码/djdPack/G04复核布匹检验/ProjectGroup1.groupproj.local +++ b/项目代码/djdPack/G04复核布匹检验/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.dproj.local b/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.dproj.local index b6e7920..97cd17e 100644 --- a/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.dproj.local +++ b/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.dproj.local @@ -1,138 +1,110 @@  + 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.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm + 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.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas 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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=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.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas - 1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.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.193,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.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.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.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.800,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain_fh.dfm=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain.dfm 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= - 1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.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贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas + 1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.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.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas + 1899-12-30 00:00:00.000.352,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_ZdyBtnHelp.pas 1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.352,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_ZdyBtnHelp.dfm=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.dfm - 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.352,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_ZdyBtnHelp.dfm 1899-12-30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas 1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.pas 1899-12-30 00:00:00.000.186,=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.pas - 1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.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.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.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.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.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj + 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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm + 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.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.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm - 1899-12-30 00:00:00.000.352,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_ZdyBtnHelp.pas=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.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.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.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.495,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\DjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\fhDjdMachineInsp.dproj + 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.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.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.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.706,=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.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.800,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain.dfm=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain_fh.dfm - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.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.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas - 1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas - 1899-12-30 00:00:00.000.495,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\fhDjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\DjdMachineInsp.dproj + 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.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 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.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.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm - 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.800,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain.pas=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain_fh.pas + 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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas + 1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.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.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 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.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.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.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.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm - 1899-12-30 00:00:00.000.233,=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.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.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.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.800,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain_fh.pas=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain.pas + 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.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.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 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.233,=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.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas 1899-12-30 00:00:00.000.956,=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_SCPersonColor.pas 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -152,7 +124,7 @@ - + diff --git a/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.identcache b/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.identcache index a7c62e5d8bd6f0e1fabd5b9ab1b25f42c3122dc3..7b9c3bbf005e6af377c21e62e0f1cf5959f559df 100644 GIT binary patch literal 4142 zcmcInO-~a+80HU2O5zFQM|YP(vDHdj5Zt60cBb8d>C9$!R$WgRJ>p3d6TM*YU^sX* z5aPc98vcbd#jMH9bi=~9r#-zN&-*;@`^=rWxw&Uciy;>yEJDEnL}9Q{3s&F68H)f7 zFTb5kzWzKrJ)9i84dD*#fM_?Y*J_u0UnZY^OpZRE{r(vC2Q9FTNQYx8<`a<0pvAXQ zIr?(#?)mo*7YE1Z$M4SfPc9DkE|2zQjxCsbg03Kv=s7l>_N=x3>5<1R9AxmPXPh_G!y)&bY6dR`XCI=xx=20Jj=@ktA( zMzQP8k_X(WUKc{Sr{uUrqbKcD)SpuXd9eYR-xJG2Bwg`Qe3#| zUB}Jc^6BPji;Zlcx>%n+8z+F~T}1Q_ZWI0V{n_cSu%Q$u_ZhN8Z(IxRf1;DZ>km}1 z9Hl8{R4P#~*qtUioWU#-3UeD(uD37>O(>EyDHf_30QIUL-UNs`WDGW`!*e!ZBqTpEzDv?2S`O*9K~AY3?@iZAJ+znCA_-^l(}kQYLMC8 zww}6-DNZ`W-F5L8ny4yph=X+6^PIkf$V`(gvzrhqW zX`0N#gcq*^`QvWt%SZ%-s2!(I-T6^k-CWtSnE`jkv+H*dPZ{+YVTS3ij+rU-x)5?G zV?;$iAzN6*(}`ua2radHg^93F=JI@ literal 4592 zcmcIo!A=`76y%4B5~-)&$S#D0M2$#*LbsyM+93{(ZP`xSy-~GCdTOOg?S+aSDh@qX zAk@DBBL1S@6sWMhszc(OP!4ZAZ|1!>;nBjvLN|Vr#JpTuN1Sbzlk0D1HhuiZ@;XT9$$X{aCLNgdHU}1@a*dN;QHh++1QQIE1aVGeoV+B2U4Tl zeQ*G{jsOrvgsFawO5VUynW(z~P-CD#1JivID-D5l)6fpGxy62XeAFd4Ete9AB;KQ1 zr3#Q}6%lR{2+=G|aSI4AG_io+njbe?nDk9m zU>J?0V#7#EvuBNm*3BQ;0NK-#iYFd03%~R$Je3$dEjp?IXt9_@i=|TO`rym>(~t4V z=ZoJTwU?Ka0%?DUsM_F!0ccVSvgHOa9z?`tw7Op>ZRvA~Y80zZUm%;sEIljQ)f0i7 zvzhpjaN5CEr~$f&Gy!iTYdiO504k!@5)6(~m5bxranlNv>w#8AG|2_he%pz+U1guo zz{GA@#D*Nutc|QII$vp)hk9l*gd9LMKSFm#{?{knD?OHw>87RTG`{ew>glYT%im*; z_s?`3U6UQ+x>tZo`%ReTiNb7E)2~%U0z`}|!HBE!e7t)8{^I;svXXCk4dSv;h&Zu^ zvI+yjTJvGkzk0!kB_ryMJKx*wUCgEMvO2^_Ym21^1IPB&~r)dj^Pa<)J@Q-Z?EpS?p4)K zs3PO7cN~73&*iv{?vr5X92(^J_9;x(>&F9_TN_io3?yHKT-^O@LjMuM))h?1gq};D O5Q%;VW)($U@$?Tgq>N_( diff --git a/项目代码/djdPack/G04复核布匹检验/testDll.identcache b/项目代码/djdPack/G04复核布匹检验/testDll.identcache index cca1f5d5ad8a350f044ce12400796745c6bef628..9725978da03cb08f6e563a8df65274ef327701c7 100644 GIT binary patch delta 75 zcmcb?c!W`biGhJ3$ki&Qs3bkJB&MV&F(oy|#n8aTt16>3KRGdPqL$9YgW@tFc$K&U E0H&N7!vFvP delta 95 zcmX@Yc!N=kiGhJ3&c!OmrNGc2D77Fz%rNHV!ky1&uY0n4@$&_ZF)oG%DOo82iOJa$ P6?7)9mQ;%&Qn51t2RA2w