From 078a177f98179149973426fd188333798699d275 Mon Sep 17 00:00:00 2001 From: "LAPTOP-8NOV8MVQ\\cai" Date: Thu, 10 Jul 2025 17:28:43 +0800 Subject: [PATCH] 2025-7-10 --- A00通用窗体/U_ProductInfoSel.dfm | 26 +- A02基础产品管理/ClothInfo.dproj.local | 144 +++++----- A02基础产品管理/U_TatClothInfo.dfm | 19 +- A02基础产品管理/U_TatClothInfo.pas | 2 + A02基础产品管理/U_TatClothInfoInput.dfm | 4 +- A02基础产品管理/testDll.res | Bin 3308 -> 3308 bytes A05基础资料管理/BaseInfo.dproj | 52 +--- A05基础资料管理/BaseInfo.dproj.local | 54 ++-- A05基础资料管理/BaseInfo.identcache | Bin 2463 -> 2463 bytes A05基础资料管理/BaseInfo.res | Bin 1484 -> 1484 bytes A05基础资料管理/U_GKInput.dfm | 237 ++++----------- A05基础资料管理/U_GKInput.pas | 85 +++--- A05基础资料管理/U_GKManage.dfm | 137 +++------ A05基础资料管理/U_GKManage.pas | 29 +- A05基础资料管理/U_GetDllForm.pas | 6 +- A05基础资料管理/testDll.res | Bin 3308 -> 3308 bytes B03基础物料仓库/ProductStk.dproj | 50 +--- B03基础物料仓库/ProductStk.identcache | Bin 4471 -> 4471 bytes B03基础物料仓库/ProductStk.res | Bin 1496 -> 1496 bytes B03基础物料仓库/ProjectGroup1.groupproj.local | 2 +- B03基础物料仓库/U_BSPrtInEdit.dfm | 63 ++-- B03基础物料仓库/U_BSPrtInEdit.pas | 87 ++++-- B03基础物料仓库/U_BSPrtInList.dfm | 49 ++-- B03基础物料仓库/U_BSPrtInList.pas | 16 +- B03基础物料仓库/U_GKManageSel.dfm | 256 +++++++++++++++++ B03基础物料仓库/U_GKManageSel.pas | 176 ++++++++++++ B03基础物料仓库/U_GetDllForm.pas | 6 +- B03基础物料仓库/testDll.identcache | Bin 180 -> 178 bytes B03基础物料仓库/testDll.res | Bin 3308 -> 3308 bytes B04采购计划管理/PurchasePlan.dpr | 3 +- B04采购计划管理/PurchasePlan.dproj | 4 + B04采购计划管理/PurchasePlan.dproj.local | 95 +++--- B04采购计划管理/PurchasePlan.identcache | Bin 2944 -> 3036 bytes B04采购计划管理/U_GKManageSel.dfm | 272 ++++++++++++++++++ B04采购计划管理/U_GKManageSel.pas | 194 +++++++++++++ B04采购计划管理/U_YarnPurchasePlanPut.dfm | 19 +- B04采购计划管理/U_YarnPurchasePlanPut.pas | 52 +++- 37 files changed, 1455 insertions(+), 684 deletions(-) create mode 100644 B03基础物料仓库/U_GKManageSel.dfm create mode 100644 B03基础物料仓库/U_GKManageSel.pas create mode 100644 B04采购计划管理/U_GKManageSel.dfm create mode 100644 B04采购计划管理/U_GKManageSel.pas diff --git a/A00通用窗体/U_ProductInfoSel.dfm b/A00通用窗体/U_ProductInfoSel.dfm index f6a541e..4c34967 100644 --- a/A00通用窗体/U_ProductInfoSel.dfm +++ b/A00通用窗体/U_ProductInfoSel.dfm @@ -1,19 +1,19 @@ inherited frmProductInfoSel: TfrmProductInfoSel Left = 372 Top = 106 - Caption = #21333#20301#21517#31216#36873#25321 + Caption = #26426#29289#26009#20449#24687#36873#25321 ClientHeight = 558 ClientWidth = 893 Color = clWhite Font.Charset = GB2312_CHARSET Font.Height = -12 - Font.Name = #23435#20307 + Font.Name = #24494#36719#38597#40657 Position = poScreenCenter OnClose = FormClose ExplicitWidth = 909 ExplicitHeight = 597 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 17 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 @@ -28,7 +28,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 - Font.Name = #23435#20307 + Font.Name = #24494#36719#38597#40657 Font.Style = [] Images = ImageList1 List = True @@ -69,12 +69,18 @@ inherited frmProductInfoSel: TfrmProductInfoSel Align = alTop BevelInner = bvRaised BevelOuter = bvLowered + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False TabOrder = 1 object Label1: TLabel Left = 18 Top = 17 Width = 24 - Height = 12 + Height = 17 Caption = #21517#31216 end object CoName: TEdit @@ -82,7 +88,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel Left = 53 Top = 12 Width = 169 - Height = 20 + Height = 25 TabOrder = 0 OnChange = CoNameChange end @@ -93,7 +99,14 @@ inherited frmProductInfoSel: TfrmProductInfoSel Width = 893 Height = 476 Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False TabOrder = 2 + ExplicitTop = 81 object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> @@ -208,6 +221,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel Caption = #22791#27880 DataBinding.FieldName = 'Note' DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter Width = 102 end end diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local index 47efa15..d3574b7 100644 --- a/A02基础产品管理/ClothInfo.dproj.local +++ b/A02基础产品管理/ClothInfo.dproj.local @@ -1,78 +1,78 @@  - 1899-12-30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm - 1899-12-30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas - 1899-12-30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.873,=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.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas - 1899-12-30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas - 1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 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.734,=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.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899-12-30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm - 1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm - 1899-12-30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas - 1899-12-30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas - 1899-12-30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas - 1899-12-30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas - 1899-12-30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas - 1899-12-30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas - 1899-12-30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas - 1899-12-30 00:00:00.000.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas - 1899-12-30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas - 1899-12-30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas - 1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas - 1899-12-30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas - 1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm - 1899-12-30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas - 1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm - 1899-12-30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj - 1899-12-30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas= - 1899-12-30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm + 1899/12/30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas + 1899/12/30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899/12/30 00:00:00.000.873,=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.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas + 1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas + 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 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.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.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm + 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm + 1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas + 1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas + 1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas + 1899/12/30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas + 1899/12/30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas + 1899/12/30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas + 1899/12/30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas + 1899/12/30 00:00:00.000.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas + 1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas + 1899/12/30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas + 1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas + 1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas + 1899/12/30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm + 1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas + 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm + 1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj + 1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas diff --git a/A02基础产品管理/U_TatClothInfo.dfm b/A02基础产品管理/U_TatClothInfo.dfm index 35a14ab..e3715b9 100644 --- a/A02基础产品管理/U_TatClothInfo.dfm +++ b/A02基础产品管理/U_TatClothInfo.dfm @@ -8,7 +8,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitLeft = -327 ExplicitWidth = 1507 ExplicitHeight = 787 PixelsPerInch = 96 @@ -360,6 +359,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo Align = alClient PopupMenu = PM_1 TabOrder = 0 + ExplicitLeft = 6 + ExplicitTop = 48 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> @@ -760,6 +761,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo Height = 337 Align = alClient TabOrder = 1 + ExplicitLeft = 4 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -888,6 +890,13 @@ inherited frmTatClothInfo: TfrmTatClothInfo Options.Editing = False Width = 99 end + object TV2Z_Number: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'Z_Number' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object TV2Column10: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'Y_Composition' @@ -937,6 +946,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo Height = 339 Align = alClient TabOrder = 0 + ExplicitLeft = 4 object Tv4: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -1069,6 +1079,13 @@ inherited frmTatClothInfo: TfrmTatClothInfo Options.Editing = False Width = 88 end + object Tv4Z_Number: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'Z_Number' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object Tv4Column10: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'Y_Composition' diff --git a/A02基础产品管理/U_TatClothInfo.pas b/A02基础产品管理/U_TatClothInfo.pas index 0873e8b..b14b2fd 100644 --- a/A02基础产品管理/U_TatClothInfo.pas +++ b/A02基础产品管理/U_TatClothInfo.pas @@ -212,6 +212,8 @@ type Tv1Column4: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn; + Tv4Z_Number: TcxGridDBColumn; + TV2Z_Number: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBDelClick(Sender: TObject); diff --git a/A02基础产品管理/U_TatClothInfoInput.dfm b/A02基础产品管理/U_TatClothInfoInput.dfm index dbebee0..d5c0194 100644 --- a/A02基础产品管理/U_TatClothInfoInput.dfm +++ b/A02基础产品管理/U_TatClothInfoInput.dfm @@ -9,7 +9,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Font.Height = -16 OldCreateOrder = True Position = poScreenCenter - ExplicitTop = -236 ExplicitWidth = 1556 ExplicitHeight = 776 PixelsPerInch = 96 @@ -527,7 +526,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Height = 462 Align = alClient TabOrder = 2 - Properties.ActivePage = cxTabSheet2 + Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> Properties.Style = 9 ClientRectBottom = 462 @@ -599,7 +598,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput PopupMenu = PM_1 TabOrder = 1 ExplicitLeft = -2 - ExplicitTop = 0 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/A02基础产品管理/testDll.res b/A02基础产品管理/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/A05基础资料管理/BaseInfo.dproj b/A05基础资料管理/BaseInfo.dproj index 1c7a98e..be84968 100644 --- a/A05基础资料管理/BaseInfo.dproj +++ b/A05基础资料管理/BaseInfo.dproj @@ -4,7 +4,7 @@ BaseInfo.dpr True Debug - 38017 + 1 Library VCL 19.2 @@ -13,16 +13,6 @@ true - - true - Base - true - - - true - Base - true - true Base @@ -43,24 +33,6 @@ Base true - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - true Cfg_2 @@ -84,13 +56,6 @@ 2052 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - - $(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 - System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug @@ -113,17 +78,8 @@ false true - - Debug - - - Debug - - - Debug - - D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\testDll.exe + D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\testDll.exe CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) @@ -244,10 +200,6 @@ - True - True - True - True True False diff --git a/A05基础资料管理/BaseInfo.dproj.local b/A05基础资料管理/BaseInfo.dproj.local index 878072e..aa266d2 100644 --- a/A05基础资料管理/BaseInfo.dproj.local +++ b/A05基础资料管理/BaseInfo.dproj.local @@ -1,32 +1,32 @@  - 1899-12-30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm - 1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm - 1899-12-30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas - 1899-12-30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas - 1899-12-30 00:00:00.000.471,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRtInPut.pas - 1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas - 1899-12-30 00:00:00.000.467,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.888,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm - 1899-12-30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas - 1899-12-30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm - 1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm - 1899-12-30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas - 1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas - 1899-12-30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.116,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRList.pas - 1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas - 1899-12-30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas - 1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm - 1899-12-30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm + 1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm + 1899/12/30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas + 1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas + 1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas + 1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas + 1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm + 1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas + 1899/12/30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.467,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.888,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas + 1899/12/30 00:00:00.000.471,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRtInPut.pas + 1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas + 1899/12/30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.116,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRList.pas + 1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm + 1899/12/30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm + 1899/12/30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas + 1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm + 1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas + 1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm + 1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm diff --git a/A05基础资料管理/BaseInfo.identcache b/A05基础资料管理/BaseInfo.identcache index c2a79f5b742ae126333d187ce44863f38f55d7d1..44c17441aa976d6468ecb9625975382b0f5cbd0c 100644 GIT binary patch delta 61 zcmbO)JYSemeq)RR)8q;4){|Q~r6$)fy#=yEC(q_^+`NkU8S`WZ4#$ai*(dr4gIJT* MIHZ75>w)ZO0Fc%dBme*a delta 75 zcmbO)JYSemezGH{%VY%(sf{eMOq1VnSWn)_v}yAWW_6ayri{juS2FQVUd${y`98bj a2HF*cK8k diff --git a/A05基础资料管理/BaseInfo.res b/A05基础资料管理/BaseInfo.res index d9b12cbf1d4ec33455a22a6cd557c57fcc037fc2..77b0e1cc2ee70b26a2f6626c954425fee01bbd7e 100644 GIT binary patch delta 12 TcmX@ZeTI9(304+H1_lNI9i9U* delta 12 TcmX@ZeTI9(309WIDGUq%AzB1Q diff --git a/A05基础资料管理/U_GKInput.dfm b/A05基础资料管理/U_GKInput.dfm index 2eedc03..12d50b8 100644 --- a/A05基础资料管理/U_GKInput.dfm +++ b/A05基础资料管理/U_GKInput.dfm @@ -2,7 +2,7 @@ inherited frmGKInput: TfrmGKInput Left = 261 Top = 149 Caption = #38050#25187#24405#20837 - ClientHeight = 494 + ClientHeight = 549 ClientWidth = 863 Color = clWhite Font.Charset = GB2312_CHARSET @@ -11,7 +11,7 @@ inherited frmGKInput: TfrmGKInput Position = poScreenCenter OnClose = FormClose ExplicitWidth = 879 - ExplicitHeight = 533 + ExplicitHeight = 588 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -31,13 +31,13 @@ inherited frmGKInput: TfrmGKInput ParentColor = False ShowCaptions = True TabOrder = 0 - object ToolButton3: TToolButton + object TbSave: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 16 - OnClick = ToolButton3Click + OnClick = TbSaveClick end object TBClose: TToolButton Left = 71 @@ -52,7 +52,7 @@ inherited frmGKInput: TfrmGKInput Left = 0 Top = 30 Width = 863 - Height = 464 + Height = 519 Align = alClient BevelInner = bvNone BevelOuter = bvNone @@ -62,233 +62,98 @@ inherited frmGKInput: TfrmGKInput ParentColor = False ParentCtl3D = False TabOrder = 1 - ExplicitTop = 29 + ExplicitTop = 36 object Label2: TLabel - Left = 10 - Top = 12 + Left = 48 + Top = 73 Width = 64 Height = 21 - Caption = #38050#25187#24207#21495 + Caption = #38050#31576#32534#21495 end object Label6: TLabel - Left = 10 - Top = 48 - Width = 64 + Left = 48 + Top = 109 + Width = 106 Height = 21 - Caption = #38050#25187#40831#25968 + Caption = #31576#21495'('#40831'/2'#33521#23544')' end object Label39: TLabel - Left = 10 - Top = 85 - Width = 64 + Left = 48 + Top = 146 + Width = 91 Height = 21 - Caption = #38050#25187#32534#21495 + Caption = #38050#31576#38271#24230'CM' end object Label7: TLabel - Left = 10 - Top = 292 + Left = 48 + Top = 182 Width = 57 Height = 21 Caption = #22791' '#27880 end object Label3: TLabel - Left = 319 - Top = 12 + Left = 399 + Top = 73 Width = 64 Height = 21 - Caption = #38050#25187#31576#21495 + Caption = #26550#23376#32534#21495 end object Label1: TLabel - Left = 319 - Top = 48 + Left = 399 + Top = 109 Width = 64 Height = 21 - Caption = #38050#25187#35268#26684 + Caption = #26550#23376#23618#21495 end - object Label4: TLabel - Left = 10 - Top = 127 - Width = 62 - Height = 21 - Caption = #20215' '#26684 - end - object Label5: TLabel - Left = 319 - Top = 127 - Width = 64 - Height = 21 - Caption = #24403#21069#36136#37327 - end - object Label26: TLabel - Left = 10 - Top = 249 - Width = 58 - Height = 21 - Caption = #20379' '#24212' '#21830 - end - object Label8: TLabel - Left = 319 - Top = 250 - Width = 64 - Height = 21 - Caption = #20837#24211#26085#26399 - end - object lbl2: TLabel - Left = 10 - Top = 173 - Width = 59 - Height = 21 - Caption = 'A'#38754#29366#24577 - end - object Label9: TLabel - Left = 319 - Top = 173 - Width = 58 - Height = 21 - Caption = 'B'#38754#29366#24577 - end - object Label10: TLabel - Left = 10 - Top = 212 - Width = 59 - Height = 21 - Caption = 'C'#38754#29366#24577 - end - object Label11: TLabel - Left = 319 - Top = 212 - Width = 60 - Height = 21 - Caption = 'D'#38754#29366#24577 - end - object GKCS: TcxTextEdit + object GKKH: TcxTextEdit Tag = 2 - Left = 79 - Top = 44 + Left = 159 + Top = 105 + Properties.OnChange = JZBHPropertiesChange TabOrder = 1 Width = 200 end - object GKNO: TcxTextEdit - Tag = 2 - Left = 79 - Top = 8 - TabOrder = 0 - Width = 200 - end object GKBH: TcxTextEdit Tag = 2 - Left = 79 - Top = 82 + Left = 159 + Top = 69 + Enabled = False + TabOrder = 0 + Text = #33258#21160#29983#25104 + Width = 200 + end + object GKLength: TcxTextEdit + Tag = 2 + Left = 159 + Top = 143 + Properties.OnChange = JZBHPropertiesChange TabOrder = 2 Width = 200 end - object GKKH: TcxTextEdit + object JZBH: TcxTextEdit Tag = 2 - Left = 389 - Top = 8 + Left = 469 + Top = 69 + Properties.OnChange = JZBHPropertiesChange TabOrder = 3 Width = 200 end object Note: TcxMemo Tag = 2 - Left = 79 - Top = 292 + Left = 159 + Top = 182 TabOrder = 4 Height = 77 Width = 518 end - object GKSpec: TcxTextEdit + object JZCH: TcxTextEdit Tag = 2 - Left = 389 - Top = 44 + Left = 469 + Top = 105 + Properties.OnChange = JZBHPropertiesChange TabOrder = 5 Width = 200 end - object Price: TcxTextEdit - Tag = 2 - Left = 79 - Top = 124 - TabOrder = 6 - Width = 200 - end - object DQZL: TcxTextEdit - Tag = 2 - Left = 389 - Top = 124 - TabOrder = 7 - Width = 200 - end - object GKGYS: TcxButtonEdit - Tag = 2 - Left = 79 - Top = 246 - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = False - Properties.OnButtonClick = GKGYSPropertiesButtonClick - Style.ButtonStyle = btsDefault - TabOrder = 8 - Width = 200 - end - object IODate: TcxDateEdit - Tag = 2 - Left = 389 - Top = 246 - Properties.ShowTime = False - TabOrder = 9 - Width = 200 - end - object AM: TcxComboBox - Tag = 2 - Left = 79 - Top = 169 - Properties.Items.Strings = ( - #27491#24120 - #24453#22788#29702 - #31105#29992) - TabOrder = 10 - Text = #27491#24120 - Width = 200 - end - object BM: TcxComboBox - Tag = 2 - Left = 389 - Top = 169 - Properties.Items.Strings = ( - #27491#24120 - #24453#22788#29702 - #31105#29992) - TabOrder = 11 - Text = #27491#24120 - Width = 200 - end - object CM: TcxComboBox - Tag = 2 - Left = 79 - Top = 208 - Properties.Items.Strings = ( - #27491#24120 - #24453#22788#29702 - #31105#29992) - TabOrder = 12 - Text = #27491#24120 - Width = 200 - end - object DM: TcxComboBox - Tag = 2 - Left = 389 - Top = 208 - Properties.Items.Strings = ( - #27491#24120 - #24453#22788#29702 - #31105#29992) - TabOrder = 13 - Text = #27491#24120 - Width = 200 - end end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_BaseInfo.ADOLink diff --git a/A05基础资料管理/U_GKInput.pas b/A05基础资料管理/U_GKInput.pas index c764728..0a9b786 100644 --- a/A05基础资料管理/U_GKInput.pas +++ b/A05基础资料管理/U_GKInput.pas @@ -25,44 +25,28 @@ type ADOQueryTemp: TADOQuery; ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; - ToolButton3: TToolButton; + TbSave: TToolButton; ScrollBox1: TScrollBox; Label2: TLabel; Label6: TLabel; Label39: TLabel; - GKCS: TcxTextEdit; - GKNO: TcxTextEdit; - GKBH: TcxTextEdit; - Label7: TLabel; GKKH: TcxTextEdit; + GKBH: TcxTextEdit; + GKLength: TcxTextEdit; + Label7: TLabel; + JZBH: TcxTextEdit; Label3: TLabel; Note: TcxMemo; Label1: TLabel; - GKSpec: TcxTextEdit; - Label4: TLabel; - Price: TcxTextEdit; - Label5: TLabel; - DQZL: TcxTextEdit; - Label26: TLabel; - GKGYS: TcxButtonEdit; - Label8: TLabel; - IODate: TcxDateEdit; - lbl2: TLabel; - AM: TcxComboBox; - Label9: TLabel; - BM: TcxComboBox; - Label10: TLabel; - CM: TcxComboBox; - Label11: TLabel; - DM: TcxComboBox; + JZCH: TcxTextEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBRafreshClick(Sender: TObject); - procedure ToolButton3Click(Sender: TObject); + procedure TbSaveClick(Sender: TObject); procedure CoareaBtnDnClick(Sender: TObject); - procedure GKGYSPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure JZBHPropertiesChange(Sender: TObject); private { Private declarations } procedure InitGrid(); @@ -104,6 +88,12 @@ begin end; end; +procedure TfrmGKInput.JZBHPropertiesChange(Sender: TObject); +begin + inherited; + GKBH.Text := JZBH.Text + '-' + GKKH.Text + '-' + JZCH.Text + '-' + GKLength.Text; +end; + procedure TfrmGKInput.FormDestroy(Sender: TObject); begin inherited; @@ -126,29 +116,9 @@ begin inherited; InitGrid(); - if FGKID = '' then - begin - IODate.Date := SGetServerDateTime(ADOQueryTemp); - end; - end; -procedure TfrmGKInput.GKGYSPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); -begin - try - frmCompanySel := TfrmCompanySel.Create(Application); - with frmCompanySel do - begin - FCoType := 'Ӧ'; - if ShowModal = 1 then - begin - self.GKGYS.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString); - end; - end; - finally - frmCompanySel.Free; - end; -end; + procedure TfrmGKInput.TBRafreshClick(Sender: TObject); begin @@ -206,13 +176,13 @@ begin begin Close; sql.Clear; - sql.Add('select * from BS_GK where GKNo=' + quotedstr(trim(GKNo.Text))); + sql.Add('select * from BS_GK where GKBH=' + quotedstr(trim(GKBH.Text))); Open; end; if ADOQueryCmd.RecordCount > 1 then begin ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ֿظ!', 'ʾ', 0); + Application.MessageBox('ֿ۱ظ!', 'ʾ', 0); Exit; end; @@ -226,11 +196,26 @@ begin end; end; -procedure TfrmGKInput.ToolButton3Click(Sender: TObject); +procedure TfrmGKInput.TbSaveClick(Sender: TObject); begin - if Trim(GKNo.Text) = '' then + if Trim(JZBH.Text) = '' then begin - Application.MessageBox('ֿŲΪ!', 'ʾ', 0); + Application.MessageBox('ӱŲΪ!', 'ʾ', 0); + Exit; + end + else if Trim(GKKH.Text) = '' then + begin + Application.MessageBox('غŲΪ!', 'ʾ', 0); + Exit; + end + else if Trim(JZCH.Text) = '' then + begin + Application.MessageBox('ӲŲΪ!', 'ʾ', 0); + Exit; + end + else if Trim(GKLength.Text) = '' then + begin + Application.MessageBox('سȲΪ!', 'ʾ', 0); Exit; end; diff --git a/A05基础资料管理/U_GKManage.dfm b/A05基础资料管理/U_GKManage.dfm index 0859487..3395e6a 100644 --- a/A05基础资料管理/U_GKManage.dfm +++ b/A05基础资料管理/U_GKManage.dfm @@ -35,7 +35,7 @@ inherited frmGKManage: TfrmGKManage ImageIndex = 1 OnClick = TBRafreshClick end - object ToolButton2: TToolButton + object TbFilter: TToolButton Left = 71 Top = 0 AutoSize = True @@ -94,13 +94,14 @@ inherited frmGKManage: TfrmGKManage end object cxGrid2: TcxGrid [1] Left = 0 - Top = 120 + Top = 89 Width = 1461 - Height = 403 + Height = 434 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitTop = 126 + ExplicitLeft = 8 + ExplicitTop = 95 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -137,30 +138,6 @@ inherited frmGKManage: TfrmGKManage OptionsData.DeletingConfirmation = False OptionsView.Footer = True OptionsView.GroupByBox = False - object Tv2Column1: TcxGridDBColumn - Caption = #38050#25187#24207#21495 - DataBinding.FieldName = 'GKNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv2Column2: TcxGridDBColumn - Caption = #38050#25187#31576#21495 - DataBinding.FieldName = 'GKKH' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv2Column3: TcxGridDBColumn - Caption = #38050#25187#40831#25968 - DataBinding.FieldName = 'GKCS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end object Tv2Column4: TcxGridDBColumn Caption = #38050#25187#32534#21495 DataBinding.FieldName = 'GKBH' @@ -169,76 +146,32 @@ inherited frmGKManage: TfrmGKManage Options.Editing = False Width = 100 end + object Tv2Column1: TcxGridDBColumn + Caption = #26550#23376#32534#21495 + DataBinding.FieldName = 'JZBH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv2Column3: TcxGridDBColumn + Caption = #26550#23376#23618#21495 + DataBinding.FieldName = 'JZCH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end object Tv2Column5: TcxGridDBColumn - Caption = #38050#25187#35268#26684 - DataBinding.FieldName = 'GKSPec' + Caption = #25187#21495'('#40831'/2'#33521#23544')' + DataBinding.FieldName = 'GKKH' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv2Column8: TcxGridDBColumn - Caption = #20215#26684 - DataBinding.FieldName = 'Price' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv2Column9: TcxGridDBColumn - Caption = #24403#21069#36136#37327 - DataBinding.FieldName = 'DQZL' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 + Width = 124 end object Tv2Column6: TcxGridDBColumn - Caption = #38050#25187#20379#24212#21830 - DataBinding.FieldName = 'GKGYS' + Caption = #38050#25187#38271#24230'CM' + DataBinding.FieldName = 'GKLength' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv2Column7: TcxGridDBColumn - Caption = #20837#24211#26085#26399 - DataBinding.FieldName = 'IODate' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv2Column11: TcxGridDBColumn - Caption = 'A'#38754#29366#24577 - DataBinding.FieldName = 'AM' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv2Column12: TcxGridDBColumn - Caption = 'B'#38754#29366#24577 - DataBinding.FieldName = 'BM' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv2Column13: TcxGridDBColumn - Caption = 'C'#38754#29366#24577 - DataBinding.FieldName = 'CM' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv2Column14: TcxGridDBColumn - Caption = 'D'#38754#29366#24577 - DataBinding.FieldName = 'DM' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False Width = 100 end object Tv2Column10: TcxGridDBColumn @@ -249,6 +182,13 @@ inherited frmGKManage: TfrmGKManage Options.Editing = False Width = 100 end + object Tv2Column7: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'kcqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end end object cxGridLevel1: TcxGridLevel GridView = Tv2 @@ -258,24 +198,25 @@ inherited frmGKManage: TfrmGKManage Left = 0 Top = 30 Width = 1461 - Height = 90 + Height = 59 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clWhite ParentBackground = False TabOrder = 4 + ExplicitTop = 36 object Label1: TLabel - Left = 42 - Top = 35 + Left = 30 + Top = 19 Width = 64 Height = 21 - Caption = #38050#25187#24207#21495 + Caption = #38050#25187#32534#21495 end - object GKNo: TcxTextEdit + object GKBH: TcxTextEdit Tag = 2 - Left = 112 - Top = 31 + Left = 100 + Top = 15 ParentColor = True Properties.OnChange = MCNOPropertiesChange TabOrder = 0 diff --git a/A05基础资料管理/U_GKManage.pas b/A05基础资料管理/U_GKManage.pas index ced5143..2764af5 100644 --- a/A05基础资料管理/U_GKManage.pas +++ b/A05基础资料管理/U_GKManage.pas @@ -24,7 +24,7 @@ type TBClose: TToolButton; ADOQueryTemp: TADOQuery; ADOQueryCmd: TADOQuery; - ToolButton2: TToolButton; + TbFilter: TToolButton; ADOQueryMain: TADOQuery; ToolButton1: TToolButton; cxGrid2: TcxGrid; @@ -42,21 +42,14 @@ type ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton6: TToolButton; - GKNo: TcxTextEdit; - Tv2Column1: TcxGridDBColumn; - Tv2Column2: TcxGridDBColumn; - Tv2Column3: TcxGridDBColumn; + GKBH: TcxTextEdit; Tv2Column4: TcxGridDBColumn; + Tv2Column10: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + Tv2Column3: TcxGridDBColumn; Tv2Column5: TcxGridDBColumn; Tv2Column6: TcxGridDBColumn; Tv2Column7: TcxGridDBColumn; - Tv2Column8: TcxGridDBColumn; - Tv2Column9: TcxGridDBColumn; - Tv2Column10: TcxGridDBColumn; - Tv2Column11: TcxGridDBColumn; - Tv2Column12: TcxGridDBColumn; - Tv2Column13: TcxGridDBColumn; - Tv2Column14: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -97,22 +90,24 @@ uses procedure TfrmGKManage.InitGrid(); begin - GKNO.SetFocus; + GKBH.SetFocus; try ADOQueryMain.DisableControls; with ADOQueryMain do begin Close; SQL.Clear; - sql.Add(' select A.* from BS_GK A '); -// showmessage(Sql.text); + sql.Add(' select A.* '); + sql.Add(' ,kcqty=( select sum(e.IOQtyFlag*e.qty) from Bs_Product_IO e JOIN BS_GK a on e.p_code=a.GKBH where e.stkname='''')'); + SQL.Add(' from BS_GK A'); + // showmessage(Sql.text); Open; end; SCreateCDS(ADOQueryMain, CDS_HZ); SInitCDSData(ADOQueryMain, CDS_HZ); finally ADOQueryMain.EnableControls; - ToolButton2.Click; + TbFilter.Click; end; end; @@ -345,7 +340,7 @@ end; procedure TfrmGKManage.CustomerChange(Sender: TObject); begin - ToolButton2.Click; + TbFilter.Click; end; procedure TfrmGKManage.FormCreate(Sender: TObject); diff --git a/A05基础资料管理/U_GetDllForm.pas b/A05基础资料管理/U_GetDllForm.pas index 0c3dcc1..198beba 100644 --- a/A05基础资料管理/U_GetDllForm.pas +++ b/A05基础资料管理/U_GetDllForm.pas @@ -67,10 +67,10 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; + server := '150.109.121.232,7781'; dtbase := 'KaiXiYadata'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; + user := 'kaixiyasa'; + pswd := 'rightsoft,.KXY@YN'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DParameters1 := ''; end diff --git a/A05基础资料管理/testDll.res b/A05基础资料管理/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/B03基础物料仓库/ProductStk.dproj b/B03基础物料仓库/ProductStk.dproj index 8adfccf..2a3a2f8 100644 --- a/B03基础物料仓库/ProductStk.dproj +++ b/B03基础物料仓库/ProductStk.dproj @@ -4,7 +4,7 @@ ProductStk.dpr True Debug - 38017 + 1 Library VCL 19.2 @@ -13,16 +13,6 @@ true - - true - Base - true - - - true - Base - true - true Base @@ -43,24 +33,6 @@ Base true - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - true Cfg_2 @@ -84,13 +56,6 @@ 2052 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - - $(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 - System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug @@ -113,15 +78,6 @@ 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\项目代码\D10szKaiXiYa\B03基础物料仓库\testDll.exe @@ -312,10 +268,6 @@ - True - True - True - True True False diff --git a/B03基础物料仓库/ProductStk.identcache b/B03基础物料仓库/ProductStk.identcache index 2068a09a390bea145624a3acaf31ee165a2797e4..b97c76ea5b6bcdbc5a40bc5e4c841fd393f20023 100644 GIT binary patch delta 107 zcmeya^j&E~9n0i7?3R=3Sga=(aIj7mVck0UFSpxdK~C|>_n4I?zh;%4#OO77HQUF@ zy38OY(UWDk>?gakNrCBfPAQ<)u*rwmbSJOl%$wZD=Qufzg?sWrc9F^K0v?<9a_wRR HDvSgG6-gwu delta 99 zcmeya^j&E~9n0j?9AQ9gJ^2&MuF3b9l_qPm$xfCNw4WToAvKB7Yw{$vkCW?IEGPT% zJ5G*c;hxOFB{Er;*?RIm_UOq8JZ_Uev5JG0Z{(1gypm0KvL9z2kRQ2OhKq?E04x$A AeE?$6;>8T1_lNI9{K}S delta 12 Tcmcb?eS>?$6;_tUDGUq%BDMr+ diff --git a/B03基础物料仓库/ProjectGroup1.groupproj.local b/B03基础物料仓库/ProjectGroup1.groupproj.local index f9ad858..aa21a92 100644 --- a/B03基础物料仓库/ProjectGroup1.groupproj.local +++ b/B03基础物料仓库/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/B03基础物料仓库/U_BSPrtInEdit.dfm b/B03基础物料仓库/U_BSPrtInEdit.dfm index aa7226c..bc9f4fc 100644 --- a/B03基础物料仓库/U_BSPrtInEdit.dfm +++ b/B03基础物料仓库/U_BSPrtInEdit.dfm @@ -2,7 +2,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit Left = 67 Top = 126 Caption = #26426#29289#26009#20837#24211 - ClientHeight = 463 + ClientHeight = 542 ClientWidth = 1340 Color = clWhite Font.Charset = GB2312_CHARSET @@ -10,7 +10,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit Position = poScreenCenter OnClose = FormClose ExplicitWidth = 1356 - ExplicitHeight = 502 + ExplicitHeight = 581 PixelsPerInch = 96 TextHeight = 21 object cxGrid1: TcxGrid [0] @@ -18,10 +18,10 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit Left = 0 Top = 30 Width = 1340 - Height = 433 + Height = 512 Align = alClient TabOrder = 0 - ExplicitTop = 29 + ExplicitTop = 36 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -67,6 +67,18 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit HeaderAlignmentHorz = taCenter Width = 100 end + object Tv1Style: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'Style' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + '' + #38050#25187 + #26426#29289#26009) + HeaderAlignmentHorz = taCenter + Width = 82 + end object v1Column4: TcxGridDBColumn Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'IOType' @@ -117,7 +129,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit DataBinding.FieldName = 'Brand' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 100 + Width = 90 end object Tv1Column2: TcxGridDBColumn Caption = #32534#21495 @@ -132,8 +144,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit Properties.ReadOnly = True Properties.OnButtonClick = Tv1Column2PropertiesButtonClick HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 60 + Width = 120 end object v1SPName: TcxGridDBColumn Caption = #21697#21517 @@ -141,7 +152,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 101 + Width = 90 end object v1SPSpec: TcxGridDBColumn Caption = #35268#26684 @@ -150,7 +161,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False - Width = 112 + Width = 90 end object v1Column1: TcxGridDBColumn Caption = #25209#21495 @@ -158,7 +169,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter VisibleForCustomization = False - Width = 92 + Width = 90 end object v2Column6: TcxGridDBColumn Caption = #25968#37327 @@ -166,14 +177,14 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter - Width = 81 + Width = 90 end object v1QtyUnit: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 64 + Width = 90 end object v1Column5: TcxGridDBColumn Caption = #24211#20301 @@ -188,21 +199,21 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit Properties.ReadOnly = False Properties.OnButtonClick = v1Column5PropertiesButtonClick HeaderAlignmentHorz = taCenter - Width = 79 + Width = 90 end object v1Column12: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 66 + Width = 90 end object Tv1Column3: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 71 + Width = 90 end end object cxGrid1Level1: TcxGridLevel @@ -217,7 +228,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 83 + ButtonWidth = 95 Caption = 'ToolBar1' Color = clSkyBlue Font.Charset = GB2312_CHARSET @@ -248,16 +259,24 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit Visible = False OnClick = ToolButton2Click end - object TBAdd: TToolButton + object TBAdd1: TToolButton Left = 150 Top = 0 AutoSize = True - Caption = #26032#22686 + Caption = #26032#22686#26426#29289#26009 ImageIndex = 2 - OnClick = TBAddClick + OnClick = TBAdd1Click + end + object TbAdd2: TToolButton + Left = 249 + Top = 0 + AutoSize = True + Caption = #26032#22686#38050#31576 + ImageIndex = 2 + OnClick = TbAdd2Click end object TBDel: TToolButton - Left = 213 + Left = 336 Top = 0 AutoSize = True Caption = #21024#38500 @@ -265,7 +284,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit OnClick = TBDelClick end object ToolButton1: TToolButton - Left = 276 + Left = 399 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -273,7 +292,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 363 + Left = 486 Top = 0 AutoSize = True Caption = #20851#38381 diff --git a/B03基础物料仓库/U_BSPrtInEdit.pas b/B03基础物料仓库/U_BSPrtInEdit.pas index d806f5e..beadd5a 100644 --- a/B03基础物料仓库/U_BSPrtInEdit.pas +++ b/B03基础物料仓库/U_BSPrtInEdit.pas @@ -22,7 +22,7 @@ type v2Column6: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; ToolBar1: TToolBar; - TBAdd: TToolButton; + TBAdd1: TToolButton; TBDel: TToolButton; TBSave: TToolButton; TBClose: TToolButton; @@ -46,8 +46,10 @@ type Tv1Column3: TcxGridDBColumn; ToolButton2: TToolButton; Tv1Column4: TcxGridDBColumn; + TbAdd2: TToolButton; + Tv1Style: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); - procedure TBAddClick(Sender: TObject); + procedure TBAdd1Click(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBDelClick(Sender: TObject); @@ -59,6 +61,7 @@ type procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); + procedure TbAdd2Click(Sender: TObject); private { Private declarations } function SaveCKData(): Boolean; @@ -74,7 +77,7 @@ implementation uses U_DataLink, U_RTFun, U_ZDYHelp, U_ProductInfoSel, U_CompanySel, - U_JWLPurchasePlanSel; + U_JWLPurchasePlanSel, U_GKManageSel; {$R *.dfm} @@ -84,7 +87,7 @@ begin Action := caFree; end; -procedure TfrmBSPrtInEdit.TBAddClick(Sender: TObject); +procedure TfrmBSPrtInEdit.TBAdd1Click(Sender: TObject); begin try frmProductInfoSel := TfrmProductInfoSel.Create(Application); @@ -106,6 +109,7 @@ begin FieldByName('Brand').Value := frmProductInfoSel.CDS_1.fieldbyname('Brand').value; FieldByName('QtyUnit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value; FieldByName('Price').Value := frmProductInfoSel.CDS_1.fieldbyname('Price').value; + FieldByName('Style').Value := ''; end; end; end; @@ -421,6 +425,35 @@ begin end; end; +procedure TfrmBSPrtInEdit.TbAdd2Click(Sender: TObject); +begin + inherited; + try + frmGKManageSel := TfrmGKManageSel.Create(Application); + with frmGKManageSel do + begin + FSTKName := Self.FSTKName; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + append; + FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('StkCoNo').Value := 'ֿ'; + FieldByName('StkCoName').Value := 'ֿ'; + FieldByName('IOType').Value := 'ɹ'; + FieldByName('P_Code').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKBH').value; + FieldByName('P_Name').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKKH').value; + FieldByName('P_Spec').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKLength').value; + FieldByName('Style').Value := ''; + end; + end; + end; + finally + frmGKManageSel.Free; + end; +end; + procedure TfrmBSPrtInEdit.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try @@ -447,25 +480,47 @@ end; procedure TfrmBSPrtInEdit.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmProductInfoSel := TfrmProductInfoSel.Create(Application); - with frmProductInfoSel do + if CDS_Sub.FieldByName('style').Value = '' then begin - FSTKName := Self.FSTKName; - if ShowModal = 1 then + frmProductInfoSel := TfrmProductInfoSel.Create(Application); + with frmProductInfoSel do begin - with Self.CDS_Sub do + FSTKName := Self.FSTKName; + if ShowModal = 1 then begin - Edit; - FieldByName('P_Code').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Code').value; - FieldByName('P_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value; - FieldByName('P_Spec').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value; - FieldByName('QtyUnit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value; - FieldByName('Price').Value := frmProductInfoSel.CDS_1.fieldbyname('Price').value; + with Self.CDS_Sub do + begin + Edit; + FieldByName('P_Code').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Code').value; + FieldByName('P_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value; + FieldByName('P_Spec').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value; + FieldByName('QtyUnit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value; + FieldByName('Price').Value := frmProductInfoSel.CDS_1.fieldbyname('Price').value; + end; + end; + end; + end + else if CDS_Sub.FieldByName('style').Value = '' then + begin + frmGKManageSel := TfrmGKManageSel.Create(Application); + with frmGKManageSel do + begin + FSTKName := Self.FSTKName; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('P_Code').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKBH').value; + FieldByName('P_Name').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKKH').value; + FieldByName('P_Spec').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKLength').value; + end; end; end; end; + finally - frmProductInfoSel.Free; + frmGKManageSel.Free; end; end; diff --git a/B03基础物料仓库/U_BSPrtInList.dfm b/B03基础物料仓库/U_BSPrtInList.dfm index 3e03e20..ea149d8 100644 --- a/B03基础物料仓库/U_BSPrtInList.dfm +++ b/B03基础物料仓库/U_BSPrtInList.dfm @@ -2,11 +2,11 @@ inherited frmBSPrtInList: TfrmBSPrtInList Left = 165 Top = 111 Caption = #29289#26009#20837#24211#21015#34920 - ClientHeight = 478 + ClientHeight = 546 ClientWidth = 1284 Font.Height = -16 ExplicitWidth = 1300 - ExplicitHeight = 517 + ExplicitHeight = 585 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -233,9 +233,10 @@ inherited frmBSPrtInList: TfrmBSPrtInList Left = 0 Top = 111 Width = 1284 - Height = 367 + Height = 435 Align = alClient TabOrder = 2 + ExplicitTop = 108 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -294,6 +295,20 @@ inherited frmBSPrtInList: TfrmBSPrtInList Options.Editing = False Width = 93 end + object Tv1Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'Style' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + '' + #38050#25187 + #26426#29289#26009) + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end object v1Column4: TcxGridDBColumn Tag = 2 Caption = #20837#24211#31867#22411 @@ -332,7 +347,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 100 + Width = 90 end object v1Column20: TcxGridDBColumn Caption = #32534#21495 @@ -340,22 +355,16 @@ inherited frmBSPrtInList: TfrmBSPrtInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 63 + Width = 90 end object v2Column1: TcxGridDBColumn Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'P_Name' DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 99 + Width = 90 end object v1Column8: TcxGridDBColumn Tag = 2 @@ -365,7 +374,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False - Width = 79 + Width = 90 end object v1Column10: TcxGridDBColumn Caption = #25209#21495 @@ -373,7 +382,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 89 + Width = 90 end object v2Column6: TcxGridDBColumn Tag = 2 @@ -383,7 +392,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 85 + Width = 90 end object v1Column3: TcxGridDBColumn Tag = 2 @@ -398,7 +407,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList 'Y') HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 90 end object v1Column5: TcxGridDBColumn Tag = 2 @@ -414,7 +423,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 79 + Width = 90 end object v1Column12: TcxGridDBColumn Tag = 2 @@ -423,7 +432,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 79 + Width = 90 end end object cxGrid1Level1: TcxGridLevel @@ -533,8 +542,8 @@ inherited frmBSPrtInList: TfrmBSPrtInList object CDS_HZ: TClientDataSet Aggregates = <> Params = <> - Left = 520 - Top = 232 + Left = 592 + Top = 176 end object CDS_PRT: TClientDataSet Aggregates = <> diff --git a/B03基础物料仓库/U_BSPrtInList.pas b/B03基础物料仓库/U_BSPrtInList.pas index 983e758..62a67a7 100644 --- a/B03基础物料仓库/U_BSPrtInList.pas +++ b/B03基础物料仓库/U_BSPrtInList.pas @@ -11,10 +11,9 @@ uses ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, - cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, - cxDateUtils, cxMaskEdit, dxSkinsCore, dxSkinsDefaultPainters, - dxScrollbarAnnotations, cxProgressBar; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxMaskEdit, + dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar; type TfrmBSPrtInList = class(TfrmBaseList) @@ -75,6 +74,7 @@ type BegDate: TcxDateEdit; EndDate: TcxDateEdit; Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -105,7 +105,7 @@ type implementation uses - U_DataLink, U_RTFun, U_BSPrtInEdit; + U_DataLink, U_RTFun, U_BSPrtInEdit, U_GKManageSel; {$R *.dfm} procedure TfrmBSPrtInList.setStatus(); @@ -145,6 +145,9 @@ begin sql.Add(' and isnull(STKNAME,'''')=''' + Trim(FSTKName) + ''''); SQL.Add(' and IOFlag='''' '); SQL.Add(' order by IOTime desc'); + + + Open; end; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); @@ -341,7 +344,8 @@ begin begin FBCId := Trim(CDS_Main.fieldbyname('BPIOID').AsString); TBDel.Visible := False; - TBAdd.Visible := False; + TBAdd1.Visible := False; + TBAdd2.Visible := False; FSTKName := Self.FSTKName; if ShowModal = 1 then begin diff --git a/B03基础物料仓库/U_GKManageSel.dfm b/B03基础物料仓库/U_GKManageSel.dfm new file mode 100644 index 0000000..76e3aae --- /dev/null +++ b/B03基础物料仓库/U_GKManageSel.dfm @@ -0,0 +1,256 @@ +inherited frmGKManageSel: TfrmGKManageSel + Left = 297 + Top = 109 + Caption = #38050#25187#20449#24687#36873#25321 + ClientHeight = 523 + ClientWidth = 1461 + KeyPreview = True + ExplicitWidth = 1477 + ExplicitHeight = 562 + PixelsPerInch = 96 + TextHeight = 17 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1461 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar1' + Color = clSkyBlue + Images = DataLink_ProductStk.ImageList_new32 + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 3 + ExplicitTop = 1 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TbFilter: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + Visible = False + end + object TBClose: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid [1] + Left = 0 + Top = 75 + Width = 1461 + Height = 448 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + ExplicitTop = 76 + ExplicitHeight = 442 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + 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 = skCount + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv2Column4: TcxGridDBColumn + Caption = #38050#31576#32534#21495 + DataBinding.FieldName = 'GKBH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column1: TcxGridDBColumn + Caption = #26550#23376#32534#21495 + DataBinding.FieldName = 'JZBH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv2Column3: TcxGridDBColumn + Caption = #26550#23376#23618#21495 + DataBinding.FieldName = 'JZCH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv2Column5: TcxGridDBColumn + Caption = #31576#21495'('#40831'/2'#33521#23544')' + DataBinding.FieldName = 'GKKH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 124 + end + object Tv2Column6: TcxGridDBColumn + Caption = #38050#31576#38271#24230'CM' + DataBinding.FieldName = 'GKLength' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv2Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column7: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel1: TPanel [2] + Left = 0 + Top = 38 + Width = 1461 + Height = 37 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 4 + object Label1: TLabel + Left = 13 + Top = 11 + Width = 48 + Height = 17 + Caption = #38050#31576#32534#21495 + end + object GKBH: TcxTextEdit + Tag = 2 + Left = 83 + Top = 7 + ParentColor = True + Properties.OnChange = MCNOPropertiesChange + TabOrder = 0 + Width = 158 + end + end + inherited loadProcess: TPanel + Left = 316 + Top = 411 + ExplicitLeft = 316 + ExplicitTop = 411 + end + inherited cxProgressBar2: TcxProgressBar + Left = 316 + Top = 356 + ExplicitLeft = 316 + ExplicitTop = 356 + ExplicitHeight = 25 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_ProductStk.ADOLink + Left = 113 + Top = 256 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_ProductStk.ADOLink + Left = 137 + Top = 169 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_ProductStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 459 + Top = 169 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_ProductStk.ADOLink + Parameters = <> + Left = 357 + Top = 153 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_ProductStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 253 + Top = 161 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 283 + Top = 259 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 429 + Top = 271 + end + object PopupMenu1: TPopupMenu + Left = 355 + Top = 250 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/B03基础物料仓库/U_GKManageSel.pas b/B03基础物料仓库/U_GKManageSel.pas new file mode 100644 index 0000000..bfca016 --- /dev/null +++ b/B03基础物料仓库/U_GKManageSel.pas @@ -0,0 +1,176 @@ +unit U_GKManageSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer, + cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters; + +type + TfrmGKManageSel = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + TbFilter: TToolButton; + ADOQueryMain: TADOQuery; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + GPM_1: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Panel1: TPanel; + Label1: TLabel; + GKBH: TcxTextEdit; + Tv2Column4: TcxGridDBColumn; + Tv2Column10: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + Tv2Column3: TcxGridDBColumn; + Tv2Column5: TcxGridDBColumn; + Tv2Column6: TcxGridDBColumn; + Tv2Column7: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure CustomerChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure MCNOPropertiesChange(Sender: TObject); + + private + { Private declarations } + procedure InitGrid(); + public + fFlag: integer; + { Public declarations } + RKFlag, FCYID, fmanage: string; + end; + +var + frmGKManageSel: TfrmGKManageSel; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_EmployeeSel; + +{$R *.dfm} + +procedure TfrmGKManageSel.InitGrid(); +begin + GKBH.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add(' select A.* from BS_GK A '); +// showmessage(Sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_HZ); + SInitCDSData(ADOQueryMain, CDS_HZ); + finally + ADOQueryMain.EnableControls; + TbFilter.Click; + end; +end; + +procedure TfrmGKManageSel.MCNOPropertiesChange(Sender: TObject); +var + sql: string; +begin + if ADOQueryMain.Active then + begin + sql := SGetFilters(Panel1, 1, 2); + SDofilter(ADOQueryMain, sql); + SCreateCDS(ADOQueryMain, CDS_HZ); + SInitCDSData(ADOQueryMain, CDS_HZ); + end; +end; + +procedure TfrmGKManageSel.FormDestroy(Sender: TObject); +begin + inherited; + frmGKManageSel := nil; +end; + +procedure TfrmGKManageSel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmGKManageSel.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(Trim(Self.Caption), Tv2, 'Ϣѡ'); + Close; +end; + +procedure TfrmGKManageSel.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(Trim(Self.Caption), Tv2, 'Ϣѡ'); + InitGrid(); +end; + +procedure TfrmGKManageSel.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + + + +procedure TfrmGKManageSel.cxTabControl1Change(Sender: TObject); +begin + InitGrid; +end; + +procedure TfrmGKManageSel.N1Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + exit; + SelOKNo(CDS_HZ, True); +end; + +procedure TfrmGKManageSel.N2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + exit; + SelOKNo(CDS_HZ, False); +end; + +procedure TfrmGKManageSel.CustomerChange(Sender: TObject); +begin + TbFilter.Click; +end; + +procedure TfrmGKManageSel.FormCreate(Sender: TObject); +begin + inherited; + fmanage := Trim(DParameters1); +end; + +end. + diff --git a/B03基础物料仓库/U_GetDllForm.pas b/B03基础物料仓库/U_GetDllForm.pas index cc684b9..60336d4 100644 --- a/B03基础物料仓库/U_GetDllForm.pas +++ b/B03基础物料仓库/U_GetDllForm.pas @@ -72,10 +72,10 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; + server := '150.109.121.232,7781'; dtbase := 'KaiXiYadata'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; + user := 'kaixiyasa'; + pswd := 'rightsoft,.KXY@YN'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; Parameters1 := ''; Parameters2 := ''; diff --git a/B03基础物料仓库/testDll.identcache b/B03基础物料仓库/testDll.identcache index b59f12aba5d46feadecc720c10ddd9f330ed5eae..93998ffa602922f49207e04449a4fc71086f7b0f 100644 GIT binary patch delta 47 pcmdnOxQUUKiGhK^dt#g%XK<8vVrE2UWa30!14d6Y5%Gz0#Q`jg4YL3M delta 46 ocmdnQxP_6GiGhK^XJV`zS9-2TX<|lcN@nUr9Ro%$G@%wf055_LWdHyG diff --git a/B03基础物料仓库/testDll.res b/B03基础物料仓库/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/B04采购计划管理/PurchasePlan.dpr b/B04采购计划管理/PurchasePlan.dpr index fd2495b..7627bfa 100644 --- a/B04采购计划管理/PurchasePlan.dpr +++ b/B04采购计划管理/PurchasePlan.dpr @@ -41,7 +41,8 @@ uses U_YarnPurchasePlanList_ZZD in 'U_YarnPurchasePlanList_ZZD.pas' {frmYarnPurchasePlanList_ZZD}, U_YarnPurchasePlanPut_ZZD in 'U_YarnPurchasePlanPut_ZZD.pas' {frmYarnPurchasePlanPut_ZZD}, U_SalesContract_ZZDSXSel in '..\A00ͨô\U_SalesContract_ZZDSXSel.pas' {frmSalesContract_ZZDSXSel}, - U_SalesContract_SXSel in '..\A00ͨô\U_SalesContract_SXSel.pas' {frmSalesContract_SXSel}; + U_SalesContract_SXSel in '..\A00ͨô\U_SalesContract_SXSel.pas' {frmSalesContract_SXSel}, + U_GKManageSel in 'U_GKManageSel.pas' {frmGKManageSel}; {$R *.res} diff --git a/B04采购计划管理/PurchasePlan.dproj b/B04采购计划管理/PurchasePlan.dproj index 13565f9..599a86f 100644 --- a/B04采购计划管理/PurchasePlan.dproj +++ b/B04采购计划管理/PurchasePlan.dproj @@ -198,6 +198,10 @@
frmSalesContract_SXSel
dfm + +
frmGKManageSel
+ dfm + Cfg_2 Base diff --git a/B04采购计划管理/PurchasePlan.dproj.local b/B04采购计划管理/PurchasePlan.dproj.local index 62d0d74..ef08617 100644 --- a/B04采购计划管理/PurchasePlan.dproj.local +++ b/B04采购计划管理/PurchasePlan.dproj.local @@ -1,60 +1,61 @@  - 1899/12/30 00:00:00.000.023,=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.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.422,=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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas - 1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm - 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas - 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm - 1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas - 1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj - 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas + 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas + 1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas= + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas + 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas + 1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas + 1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm + 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm + 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas + 1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas + 1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899/12/30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas 1899/12/30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas= - 1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas - 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas - 1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas + 1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas 1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas - 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas + 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm + 1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 2025/07/10 16:46:39.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas @@ -128,5 +129,7 @@ + + diff --git a/B04采购计划管理/PurchasePlan.identcache b/B04采购计划管理/PurchasePlan.identcache index 6f04356a8e7ee237418c87a82d29af7c2c75d3de..7874219285a0ffc5d7350c6f219e657f9a9aa40b 100644 GIT binary patch delta 39 vcmZn=za!45x{)!5lhJ>&0H@X@W-$(TZ{Nhc#Prlj97YopWHzthyuk + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + 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 = skCount + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv2SSel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv2Column4: TcxGridDBColumn + Caption = #38050#31576#32534#21495 + DataBinding.FieldName = 'GKBH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column1: TcxGridDBColumn + Caption = #26550#23376#32534#21495 + DataBinding.FieldName = 'JZBH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv2Column3: TcxGridDBColumn + Caption = #26550#23376#23618#21495 + DataBinding.FieldName = 'JZCH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv2Column5: TcxGridDBColumn + Caption = #31576#21495'('#40831'/2'#33521#23544')' + DataBinding.FieldName = 'GKKH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 124 + end + object Tv2Column6: TcxGridDBColumn + Caption = #38050#31576#38271#24230'CM' + DataBinding.FieldName = 'GKLength' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv2Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv2Column7: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel1: TPanel [2] + Left = 0 + Top = 38 + Width = 1461 + Height = 37 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 4 + ExplicitTop = 23 + object Label1: TLabel + Left = 13 + Top = 11 + Width = 48 + Height = 17 + Caption = #38050#31576#32534#21495 + end + object GKBH: TcxTextEdit + Tag = 2 + Left = 83 + Top = 7 + ParentColor = True + Properties.OnChange = MCNOPropertiesChange + TabOrder = 0 + Width = 158 + end + end + inherited loadProcess: TPanel + Left = 316 + Top = 411 + ExplicitLeft = 316 + ExplicitTop = 411 + end + inherited cxProgressBar2: TcxProgressBar + Left = 316 + Top = 356 + ExplicitLeft = 316 + ExplicitTop = 356 + ExplicitHeight = 25 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_PurchasePlan.ADOLink + Left = 113 + Top = 256 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_PurchasePlan.ADOLink + Left = 137 + Top = 170 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PurchasePlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 459 + Top = 169 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PurchasePlan.ADOLink + Parameters = <> + Left = 357 + Top = 153 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PurchasePlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 253 + Top = 161 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 283 + Top = 259 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 429 + Top = 271 + end + object PopupMenu1: TPopupMenu + Left = 355 + Top = 250 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/B04采购计划管理/U_GKManageSel.pas b/B04采购计划管理/U_GKManageSel.pas new file mode 100644 index 0000000..86f1b08 --- /dev/null +++ b/B04采购计划管理/U_GKManageSel.pas @@ -0,0 +1,194 @@ +unit U_GKManageSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer, + cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters; + +type + TfrmGKManageSel = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + TbFilter: TToolButton; + ADOQueryMain: TADOQuery; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + GPM_1: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Panel1: TPanel; + Label1: TLabel; + GKBH: TcxTextEdit; + Tv2Column4: TcxGridDBColumn; + Tv2Column10: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + Tv2Column3: TcxGridDBColumn; + Tv2Column5: TcxGridDBColumn; + Tv2Column6: TcxGridDBColumn; + Tv2Column7: TcxGridDBColumn; + Tv2SSel: TcxGridDBColumn; + TbSelect: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure CustomerChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure MCNOPropertiesChange(Sender: TObject); + procedure Tv2DblClick(Sender: TObject); + procedure TbSelectClick(Sender: TObject); + + private + { Private declarations } + procedure InitGrid(); + public + fFlag: integer; + { Public declarations } + RKFlag, FCYID, fmanage: string; + end; + +var + frmGKManageSel: TfrmGKManageSel; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_EmployeeSel; + +{$R *.dfm} + +procedure TfrmGKManageSel.InitGrid(); +begin + GKBH.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add(' select A.* from BS_GK A '); +// showmessage(Sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_HZ); + SInitCDSData(ADOQueryMain, CDS_HZ); + finally + ADOQueryMain.EnableControls; + TbFilter.Click; + end; +end; + +procedure TfrmGKManageSel.MCNOPropertiesChange(Sender: TObject); +var + sql: string; +begin + if ADOQueryMain.Active then + begin + sql := SGetFilters(Panel1, 1, 2); + SDofilter(ADOQueryMain, sql); + SCreateCDS(ADOQueryMain, CDS_HZ); + SInitCDSData(ADOQueryMain, CDS_HZ); + end; +end; + +procedure TfrmGKManageSel.FormDestroy(Sender: TObject); +begin + inherited; + frmGKManageSel := nil; +end; + +procedure TfrmGKManageSel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmGKManageSel.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(Trim(Self.Caption), Tv2, 'Ϣѡ'); + Close; +end; + +procedure TfrmGKManageSel.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(Trim(Self.Caption), Tv2, 'Ϣѡ'); + InitGrid(); +end; + +procedure TfrmGKManageSel.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGKManageSel.TbSelectClick(Sender: TObject); +begin + inherited; + if CDS_HZ.Locate('ssel',True,[]) = False then + begin + Application.MessageBox('ѡݣ','ʾϢ',MB_OK); + exit; + end; + ModalResult := 1; +end; + +procedure TfrmGKManageSel.Tv2DblClick(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmGKManageSel.cxTabControl1Change(Sender: TObject); +begin + InitGrid; +end; + +procedure TfrmGKManageSel.N1Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + exit; + SelOKNo(CDS_HZ, True); +end; + +procedure TfrmGKManageSel.N2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + exit; + SelOKNo(CDS_HZ, False); +end; + +procedure TfrmGKManageSel.CustomerChange(Sender: TObject); +begin + TbFilter.Click; +end; + +procedure TfrmGKManageSel.FormCreate(Sender: TObject); +begin + inherited; + fmanage := Trim(DParameters1); +end; + +end. + diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.dfm b/B04采购计划管理/U_YarnPurchasePlanPut.dfm index ad72a41..548625d 100644 --- a/B04采购计划管理/U_YarnPurchasePlanPut.dfm +++ b/B04采购计划管理/U_YarnPurchasePlanPut.dfm @@ -10,7 +10,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut OldCreateOrder = True Position = poScreenCenter WindowState = wsMaximized - ExplicitLeft = -23 ExplicitWidth = 1540 ExplicitHeight = 690 PixelsPerInch = 96 @@ -92,15 +91,23 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut ImageIndex = 2 OnClick = ToolButton4Click end - object ToolButton5: TToolButton + object ToolButton6: TToolButton Left = 222 Top = 0 + AutoSize = True + Caption = #38050#31576#26723#26696 + ImageIndex = 2 + OnClick = ToolButton6Click + end + object ToolButton5: TToolButton + Left = 325 + Top = 0 Caption = #38144#21806#21512#21516 ImageIndex = 2 OnClick = ToolButton5Click end object ToolButton2: TToolButton - Left = 337 + Left = 440 Top = 0 AutoSize = True Caption = #21024#34892 @@ -116,7 +123,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Align = alClient BorderStyle = cxcbsNone TabOrder = 2 - ExplicitLeft = -232 + ExplicitLeft = -6 ExplicitTop = 192 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> @@ -225,7 +232,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut end object v1Column4: TcxGridDBColumn Caption = #35268#26684 - DataBinding.FieldName = 'C_Spec' + DataBinding.FieldName = 'Y_Spec' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False @@ -394,7 +401,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut ParentColor = False ParentCtl3D = False TabOrder = 3 - ExplicitTop = 36 + ExplicitTop = 24 object lbl5: TLabel Left = 32 Top = 50 diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.pas b/B04采购计划管理/U_YarnPurchasePlanPut.pas index f8b14bb..7338c48 100644 --- a/B04采购计划管理/U_YarnPurchasePlanPut.pas +++ b/B04采购计划管理/U_YarnPurchasePlanPut.pas @@ -111,6 +111,7 @@ type Tv1Column6: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn; + ToolButton6: TToolButton; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -140,6 +141,7 @@ type procedure Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ToolButton4Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); private FLeft, FTop: Integer; fuserName, Fstatus: string; @@ -169,7 +171,7 @@ implementation uses U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel, U_YarnInfoSel, - U_ProductInfoSel, U_SalesContract_SXSel; + U_ProductInfoSel, U_SalesContract_SXSel, U_GKManageSel; {$R *.dfm} @@ -1041,6 +1043,54 @@ begin SetXH(); end; +procedure TfrmYarnPurchasePlanPut.ToolButton6Click(Sender: TObject); +var + i: Integer; +begin + inherited; + i := Order_Sub.RecordCount + 1; + try + frmGKManageSel := TfrmGKManageSel.Create(Application); + with frmGKManageSel do + begin + +// FSTKName := Self.FSTKName; + if ShowModal = 1 then + begin + with CDS_HZ do + begin + First; + while not Eof do + begin + if CDS_HZ.FieldByName('SSel').AsBoolean then + begin + with Self.Order_Sub do + begin + append; + FieldByName('SSEL').Value := False; + FieldByName('SerialNo').Value := i; +// FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); +// FieldByName('StkCoNo').Value := 'ֿ'; +// FieldByName('StkCoName').Value := 'ֿ'; +// FieldByName('IOType').Value := 'ɹ'; + FieldByName('Y_Code').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKBH').value; + FieldByName('Y_Name').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKKH').value; + FieldByName('Y_Spec').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKLength').value; + FieldByName('C_Degree').Value := ''; + end; + end; + next; + + end; + end; + + end; + end; + finally + frmGKManageSel.Free; + end; +end; + procedure TfrmYarnPurchasePlanPut.Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try