From b03d300175ed832dad4720e7072e1774857bb276 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 12 Aug 2025 13:37:49 +0800 Subject: [PATCH] 0 --- A00通用窗体/U_PictureUpload.dfm | 35 +- A00通用窗体/U_SalesContract_SXSel.pas | 19 +- A00通用窗体/U_SalesContract_ZZDSXSel.pas | 17 +- A00通用窗体/U_WBSpecSel.dfm | 133 +- A00通用窗体/U_WBSpecSel.pas | 7 - A02基础产品管理/ClothInfo.dpr | 3 +- A02基础产品管理/ClothInfo.dproj | 4 + A02基础产品管理/ClothInfo.dproj.local | 29 +- A02基础产品管理/ClothInfo.identcache | Bin 3936 -> 4024 bytes A02基础产品管理/SYSTEMSET.ini | 6 +- A02基础产品管理/U_ClothType.pas | 21 +- A02基础产品管理/U_DataLink.pas | 37 +- A02基础产品管理/U_TatClothInfo.dfm | 90 +- A02基础产品管理/U_TatClothInfo.pas | 57 +- A02基础产品管理/U_TatClothInfoInput.dfm | 1142 +++++++----- A02基础产品管理/U_TatClothInfoInput.pas | 580 ++++-- A02基础产品管理/U_TatClothInfo_CB.dfm | 18 + A02基础产品管理/U_TatClothInfo_CB.pas | 19 +- A05基础资料管理/BaseInfo.identcache | Bin 2463 -> 2463 bytes A05基础资料管理/U_GKInput.dfm | 47 +- A05基础资料管理/U_GKInput.pas | 17 + A05基础资料管理/U_GKManage.dfm | 17 +- A05基础资料管理/U_GKManage.pas | 2 + B01基础合同管理/Contract.dproj.local | 158 +- B01基础合同管理/ProjectGroup1.groupproj.local | 2 +- B02基础纱线仓库/U_CJDJ.dfm | 3 +- B02基础纱线仓库/U_CJDJ.pas | 32 +- B02基础纱线仓库/U_DataLink.pas | 19 +- B02基础纱线仓库/U_YarnInEdit.pas | 17 +- B02基础纱线仓库/U_YarnInList.dfm | 3 +- B02基础纱线仓库/U_YarnInList.pas | 19 +- B02基础纱线仓库/U_YarnInfoInPut.dfm | 14 + B02基础纱线仓库/U_YarnInfoInPut.pas | 1 + B02基础纱线仓库/U_YarnInfoList.pas | 19 +- B02基础纱线仓库/U_YarnOutEdit.dfm | 1 - B02基础纱线仓库/U_YarnOutEdit.pas | 23 +- B02基础纱线仓库/U_YarnOutList.dfm | 4 +- B02基础纱线仓库/U_YarnOutList.pas | 19 +- B02基础纱线仓库/U_YarnOutReturnList.dfm | 9 +- B02基础纱线仓库/U_YarnOutReturnList.pas | 18 +- B02基础纱线仓库/U_YarnPurOutReturn.dfm | 29 +- B02基础纱线仓库/U_YarnPurOutReturn.pas | 22 +- B02基础纱线仓库/YarnStk.dproj.local | 184 +- B02基础纱线仓库/YarnStk.identcache | Bin 3802 -> 3802 bytes B02基础纱线仓库/testDll.res | Bin 3308 -> 3308 bytes B04采购计划管理/PurchasePlan.dproj.local | 110 +- B04采购计划管理/U_DataLink.pas | 18 +- B04采购计划管理/U_YarnPurchasePlanList.pas | 19 +- .../U_YarnPurchasePlanList_ZZD.dfm | 4 +- .../U_YarnPurchasePlanList_ZZD.pas | 19 +- B04采购计划管理/U_YarnPurchasePlanPut.dfm | 11 +- B04采购计划管理/U_YarnPurchasePlanPut.pas | 26 +- B04采购计划管理/U_YarnPurchasePlanPut_ZZD.pas | 19 +- E01梭织生产计划/TatPlan.dpr | 3 +- E01梭织生产计划/TatPlan.dproj | 4 + E01梭织生产计划/TatPlan.dproj.local | 99 +- E01梭织生产计划/TatPlan.identcache | Bin 3050 -> 3138 bytes E01梭织生产计划/U_TatPlanInPut.dfm | 1620 +++++++++-------- E01梭织生产计划/U_TatPlanInPut.pas | 1102 ++++++----- E02梭织经轴仓库/U_GKManageSel.dfm | 17 +- E02梭织经轴仓库/U_GKManageSel.pas | 2 + E02梭织经轴仓库/U_TatWBCardInPut.dfm | 527 +++--- E02梭织经轴仓库/U_TatWBCardInPut.pas | 149 +- E02梭织经轴仓库/U_TatWBCardInPut2.dfm | 1275 +++++++++++++ E02梭织经轴仓库/U_TatWBCardInPut2.pas | 1012 ++++++++++ E02梭织经轴仓库/U_TatWBNeedList.dfm | 78 +- E02梭织经轴仓库/U_TatWBNeedList.pas | 36 +- E02梭织经轴仓库/U_TatWBPlan.dfm | 18 +- E02梭织经轴仓库/U_TatWBPlan.pas | 18 +- E02梭织经轴仓库/U_TatWBPlanCard.pas | 2 +- E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm | 792 +++++++- E02梭织经轴仓库/U_TatWBPlanCardInPut.pas | 84 +- E02梭织经轴仓库/U_TatWBPlanInPut.dfm | 1063 +++++++---- E02梭织经轴仓库/U_TatWBPlanInPut.pas | 309 +++- E02梭织经轴仓库/U_WBNeedLook.dfm | 53 +- E02梭织经轴仓库/U_WBNeedLook.pas | 93 +- E02梭织经轴仓库/U_WBSpecInPut.dfm | 841 ++++++--- E02梭织经轴仓库/U_WBSpecInPut.pas | 383 ++-- E02梭织经轴仓库/U_WBSpecList.dfm | 119 +- E02梭织经轴仓库/U_WBSpecList.pas | 9 - E02梭织经轴仓库/WarpBeamStk.dproj.local | 28 +- E02梭织经轴仓库/WarpBeamStk.identcache | Bin 5308 -> 5308 bytes E02梭织经轴仓库/testDll.identcache | Bin 178 -> 178 bytes E03梭织坯布检验/TatInsp.dproj | 2 +- E03梭织坯布检验/TatInsp.dproj.local | 76 +- E03梭织坯布检验/TatInsp.identcache | Bin 2043 -> 2043 bytes E03梭织坯布检验/TatInspLogin.dproj.local | 4 +- E03梭织坯布检验/TatInspLogin.identcache | Bin 1186 -> 1186 bytes E03梭织坯布检验/U_GetDllForm.pas | 6 +- E03梭织坯布检验/U_TatMachInsp.dfm | 71 +- 90 files changed, 8736 insertions(+), 4281 deletions(-) create mode 100644 E02梭织经轴仓库/U_TatWBCardInPut2.dfm create mode 100644 E02梭织经轴仓库/U_TatWBCardInPut2.pas diff --git a/A00通用窗体/U_PictureUpload.dfm b/A00通用窗体/U_PictureUpload.dfm index d7fa7fc..4d03dff 100644 --- a/A00通用窗体/U_PictureUpload.dfm +++ b/A00通用窗体/U_PictureUpload.dfm @@ -34,18 +34,20 @@ object frmPictureUpload: TfrmPictureUpload end object ScrollBox1: TScrollBox Left = 0 - Top = 30 + Top = 76 Width = 496 - Height = 419 + Height = 373 HorzScrollBar.Visible = False VertScrollBar.Visible = False Align = alClient TabOrder = 0 + ExplicitTop = 38 + ExplicitHeight = 411 object Image1: TImage Left = 0 Top = 0 Width = 492 - Height = 415 + Height = 369 Cursor = crSizeAll Align = alClient Center = True @@ -64,13 +66,13 @@ object frmPictureUpload: TfrmPictureUpload Left = 0 Top = 0 Width = 496 - Height = 30 + Height = 76 AutoSize = True - ButtonHeight = 30 - ButtonWidth = 95 + ButtonHeight = 38 + ButtonWidth = 123 Caption = 'ToolBar1' - DisabledImages = BaseDataLink.cxImageList_bar - Images = BaseDataLink.cxImageList_bar + DisabledImages = ImageList1 + Images = ImageList1 List = True ShowCaptions = True TabOrder = 1 @@ -83,7 +85,7 @@ object frmPictureUpload: TfrmPictureUpload OnClick = ToolButton1Click end object TBSave: TToolButton - Left = 87 + Left = 111 Top = 0 AutoSize = True Caption = #20445#23384 @@ -92,32 +94,33 @@ object frmPictureUpload: TfrmPictureUpload OnClick = TBSaveClick end object ToolButton3: TToolButton - Left = 150 + Left = 190 Top = 0 AutoSize = True Caption = #22270#29255#21478#23384#20026 ImageIndex = 13 + Wrap = True OnClick = ToolButton3Click end object ToolButton2: TToolButton - Left = 249 - Top = 0 + Left = 0 + Top = 38 AutoSize = True Caption = #21024#38500 ImageIndex = 14 OnClick = ToolButton2Click end object ToolButton4: TToolButton - Left = 312 - Top = 0 + Left = 79 + Top = 38 AutoSize = True Caption = #25918#24323 ImageIndex = 10 OnClick = ToolButton4Click end object TBClose: TToolButton - Left = 375 - Top = 0 + Left = 158 + Top = 38 AutoSize = True Caption = #20851#38381 ImageIndex = 7 diff --git a/A00通用窗体/U_SalesContract_SXSel.pas b/A00通用窗体/U_SalesContract_SXSel.pas index 4819b75..91d20d9 100644 --- a/A00通用窗体/U_SalesContract_SXSel.pas +++ b/A00通用窗体/U_SalesContract_SXSel.pas @@ -12,22 +12,7 @@ uses cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, - Clipbrd, - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + Clipbrd, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmSalesContract_SXSel = class(TfrmBaseHelp) @@ -179,7 +164,7 @@ begin Close; sql.Clear; SQL.add('select * from V_HT_SX'); - Open; + Open; end; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS(ADOQueryMain, CDS_1); diff --git a/A00通用窗体/U_SalesContract_ZZDSXSel.pas b/A00通用窗体/U_SalesContract_ZZDSXSel.pas index c358fbd..5aa83f5 100644 --- a/A00通用窗体/U_SalesContract_ZZDSXSel.pas +++ b/A00通用窗体/U_SalesContract_ZZDSXSel.pas @@ -12,22 +12,7 @@ uses cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, - Clipbrd, - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + Clipbrd, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmSalesContract_ZZDSXSel = class(TfrmBaseHelp) diff --git a/A00通用窗体/U_WBSpecSel.dfm b/A00通用窗体/U_WBSpecSel.dfm index e242f61..44acc8b 100644 --- a/A00通用窗体/U_WBSpecSel.dfm +++ b/A00通用窗体/U_WBSpecSel.dfm @@ -103,7 +103,6 @@ inherited frmWBSpecSel: TfrmWBSpecSel Height = 484 Align = alClient TabOrder = 2 - ExplicitTop = 80 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -112,7 +111,6 @@ inherited frmWBSpecSel: TfrmWBSpecSel item Kind = skSum Position = spFooter - Column = v1Column17 end item Kind = skSum @@ -151,119 +149,62 @@ inherited frmWBSpecSel: TfrmWBSpecSel Width = 99 end object Tv1Column10: TcxGridDBColumn - Caption = #19978#25490#39063#25968 - DataBinding.FieldName = 'WB_YarnArr' + Caption = #38050#31576#32534#21495 + DataBinding.FieldName = 'GKBH' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 144 end - object Tv1Column4: TcxGridDBColumn - Caption = #21514#25968 - DataBinding.FieldName = 'WB_YarnStripQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 102 - end - object Tv1Column2: TcxGridDBColumn - Caption = #38646#22836 - DataBinding.FieldName = 'WB_YarnStripRemainder' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 98 - end - object Tv1Column9: TcxGridDBColumn - Caption = #32463#36724#38376#24133 - DataBinding.FieldName = 'WB_Width' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 78 - end object Tv1Column12: TcxGridDBColumn Caption = #29301#32463#31576#21495 DataBinding.FieldName = 'WB_ReedNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 91 + end + object Tv1Column4: TcxGridDBColumn + Caption = #31576#24133 + DataBinding.FieldName = 'WB_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object Tv1Column2: TcxGridDBColumn + Caption = #31576#40831#25968 + DataBinding.FieldName = 'C_KCQTY' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object Tv1Column9: TcxGridDBColumn + Caption = #36793#32433#25968 + DataBinding.FieldName = 'BSQTY' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object Tv1Column6: TcxGridDBColumn + Caption = #22320#31359#20837#27861 + DataBinding.FieldName = 'DCRQTY' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 end object v1Column8: TcxGridDBColumn Tag = 2 - Caption = #31576#31359#20837#27861 + Caption = #36793#31359#20837#27861 DataBinding.FieldName = 'WB_ReedNote' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False - Width = 66 - end - object Tv1Column6: TcxGridDBColumn - Caption = #32463#36724#31859#25968 - DataBinding.FieldName = 'WB_YarnLen' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column10: TcxGridDBColumn - Caption = #22987#21514#20301#32622 - DataBinding.FieldName = 'WB_Arg_SDWZ' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column17: TcxGridDBColumn - Caption = #22369#26012#24230#25968 - DataBinding.FieldName = 'WB_Arg_PXDS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column5: TcxGridDBColumn - Caption = #20301#31227#37327 - DataBinding.FieldName = 'WB_Move' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column3: TcxGridDBColumn - Caption = #29301#32463#24352#21147#21442#25968 - DataBinding.FieldName = 'WB_Arg_QJZL' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column12: TcxGridDBColumn - Tag = 2 - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column8: TcxGridDBColumn - Caption = #29301#32463#25490#21015 - DataBinding.FieldName = 'WB_YarnArrNote' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column7: TcxGridDBColumn - Caption = #32463#23494#24230 - DataBinding.FieldName = 'WB_YarnDensity' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 118 + Width = 98 end end object cxGrid1Level1: TcxGridLevel diff --git a/A00通用窗体/U_WBSpecSel.pas b/A00通用窗体/U_WBSpecSel.pas index 791417a..0cb7980 100644 --- a/A00通用窗体/U_WBSpecSel.pas +++ b/A00通用窗体/U_WBSpecSel.pas @@ -61,15 +61,8 @@ type Tv1Column12: TcxGridDBColumn; v1Column8: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; - v1Column10: TcxGridDBColumn; - v1Column17: TcxGridDBColumn; - Tv1Column5: TcxGridDBColumn; - Tv1Column3: TcxGridDBColumn; - v1Column12: TcxGridDBColumn; - Tv1Column8: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; cxImageList_bar: TcxImageList; - Tv1Column7: TcxGridDBColumn; Label2: TLabel; WB_Name: TEdit; procedure FormCreate(Sender: TObject); diff --git a/A02基础产品管理/ClothInfo.dpr b/A02基础产品管理/ClothInfo.dpr index 237ffe0..58c1b77 100644 --- a/A02基础产品管理/ClothInfo.dpr +++ b/A02基础产品管理/ClothInfo.dpr @@ -53,7 +53,8 @@ uses JDAESExtend in '..\A00ͨ÷\AES\JDAESExtend.pas', untAES in '..\A00ͨ÷\AES\untAES.pas', U_TatClothInfoInput in 'U_TatClothInfoInput.pas' {frmTatClothInfoInput}, - U_WBSpecInPut2 in 'U_WBSpecInPut2.pas' {frmWBSpecInPut2}; + U_WBSpecInPut2 in 'U_WBSpecInPut2.pas' {frmWBSpecInPut2}, + U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload}; {$R *.res} diff --git a/A02基础产品管理/ClothInfo.dproj b/A02基础产品管理/ClothInfo.dproj index acce40a..bb18a39 100644 --- a/A02基础产品管理/ClothInfo.dproj +++ b/A02基础产品管理/ClothInfo.dproj @@ -208,6 +208,10 @@
frmWBSpecInPut2
dfm + +
frmPictureUpload
+ dfm + Cfg_2 Base diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local index e259af3..e754c4c 100644 --- a/A02基础产品管理/ClothInfo.dproj.local +++ b/A02基础产品管理/ClothInfo.dproj.local @@ -12,31 +12,32 @@ 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.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.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.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.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.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.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899-12-30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= @@ -46,33 +47,33 @@ 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.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.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.503,=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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.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.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas= - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.493,=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.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.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas @@ -109,6 +110,8 @@ + + diff --git a/A02基础产品管理/ClothInfo.identcache b/A02基础产品管理/ClothInfo.identcache index 5ac4bd341eb0b3481c9c7b499775fe523fe2a55c..9dbcf5e11e3342000fa9a170b36490fadaa497eb 100644 GIT binary patch delta 73 zcmaDLw?m%Ma3iAz`{Z>z@=U=|lP7XY@djijmy{Nzh8E=HC#Gz!W?#rOxtm>cauB=a YU?Zaj`(z=mBp}wDe1KVE@=so#&F9!%m?p>ZM**?h=3QJ%SO7Ym4sieg diff --git a/A02基础产品管理/SYSTEMSET.ini b/A02基础产品管理/SYSTEMSET.ini index e49efa9..7da7820 100644 --- a/A02基础产品管理/SYSTEMSET.ini +++ b/A02基础产品管理/SYSTEMSET.ini @@ -1,8 +1,8 @@ [SERVER] -ַ=101.132.143.144 -ַ=541 +ַ=150.109.121.232 +ַ=903 ǷԶ=1 -=ó׹ +=ϲ ½=sss [] С=9 \ No newline at end of file diff --git a/A02基础产品管理/U_ClothType.pas b/A02基础产品管理/U_ClothType.pas index 29e0a83..ae97542 100644 --- a/A02基础产品管理/U_ClothType.pas +++ b/A02基础产品管理/U_ClothType.pas @@ -7,24 +7,9 @@ uses Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, ExtCtrls, DBClient, U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, - cxTLdxBarBuiltInMenu, dxSkinsDefaultPainters, cxContainer, cxEdit, - dxSkinsCore, cxFilter, dxScrollbarAnnotations, cxProgressBar, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + cxTLdxBarBuiltInMenu, dxSkinsDefaultPainters, cxContainer, cxEdit, dxSkinsCore, + cxFilter, dxScrollbarAnnotations, cxProgressBar, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI; type TfrmClothType = class(TfrmBaseList) diff --git a/A02基础产品管理/U_DataLink.pas b/A02基础产品管理/U_DataLink.pas index ea51d48..fd6ac08 100644 --- a/A02基础产品管理/U_DataLink.pas +++ b/A02基础产品管理/U_DataLink.pas @@ -5,40 +5,9 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, - System.ImageList, U_BaseDataLink, - cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, cxLocalization, - - - - - - - - - - - - - - - - dxCore, dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + System.ImageList, U_BaseDataLink, cxImageList, cxGraphics, cxEdit, cxContainer, + dxSkinsForm, cxLocalization, dxCore, dxLayoutLookAndFeels, dxSkinsCore, + dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TMyThread = class(TThread) diff --git a/A02基础产品管理/U_TatClothInfo.dfm b/A02基础产品管理/U_TatClothInfo.dfm index bc14b51..994adde 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 = -310 ExplicitWidth = 1507 ExplicitHeight = 786 PixelsPerInch = 96 @@ -108,7 +107,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo AutoSize = True Caption = #26631#31614#25171#21360 ImageIndex = 21 - Visible = False OnClick = ToolButton3Click end object btn1: TToolButton @@ -170,7 +168,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo Height = 672 HotZoneClassName = 'TcxMediaPlayer9Style' Control = Panel5 - ExplicitHeight = 673 end object Panel1: TPanel [2] Left = 0 @@ -310,7 +307,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 7 - ExplicitHeight = 673 object cxDBTreeList1: TcxDBTreeList Left = 2 Top = 2 @@ -333,7 +329,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo ScrollbarAnnotations.CustomAnnotations = <> TabOrder = 0 OnDblClick = cxDBTreeList1DblClick - ExplicitHeight = 669 object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn DataBinding.FieldName = 'CTName' Width = 210 @@ -355,7 +350,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo BevelOuter = bvLowered Caption = 'Panel3' TabOrder = 4 - ExplicitHeight = 673 object cxGrid1: TcxGrid Left = 2 Top = 42 @@ -364,7 +358,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo Align = alClient PopupMenu = PM_1 TabOrder = 0 - ExplicitHeight = 262 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> @@ -716,22 +709,18 @@ inherited frmTatClothInfo: TfrmTatClothInfo Height = 367 Align = alBottom TabOrder = 2 - Properties.ActivePage = cxTabSheet2 + Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> Properties.Style = 9 LookAndFeel.Kind = lfUltraFlat LookAndFeel.ScrollbarMode = sbmHybrid LookAndFeel.SkinName = '' - ExplicitTop = 304 ClientRectBottom = 367 ClientRectRight = 1259 ClientRectTop = 28 object cxTabSheet1: TcxTabSheet Caption = #32463#19997#32452#21512 ImageIndex = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Panel6: TPanel Left = 0 Top = 0 @@ -769,7 +758,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo Height = 337 Align = alClient TabOrder = 1 - ExplicitLeft = 4 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -1134,9 +1122,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo object cxTabSheet3: TcxTabSheet Caption = #26679#21697#22270#29255 ImageIndex = 2 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object GroupBox1: TGroupBox Left = 0 Top = 0 @@ -1160,33 +1145,27 @@ inherited frmTatClothInfo: TfrmTatClothInfo object cxTabSheet4: TcxTabSheet Caption = #36215#32508#27861 ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 - object QZF: TMemo - Tag = 2 + object cxDBImage2: TcxDBImage Left = 0 Top = 0 - Width = 1259 - Height = 339 + Hint = 'FileName' Align = alClient - Enabled = False - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - ParentFont = False + DataBinding.DataField = 'FilesOther' + DataBinding.DataSource = DS_ImgHX2 + Properties.GraphicClassName = 'TdxSmartImage' + Properties.GraphicTransparency = gtTransparent + Properties.ReadOnly = True + Properties.ShowFocusRect = False + Style.BorderStyle = ebsSingle TabOrder = 0 + ExplicitLeft = -4 + Height = 339 + Width = 1259 end end object cxTabSheet5: TcxTabSheet Caption = #31359#32508#27861 ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object CZF: TMemo Tag = 2 Left = 0 @@ -1203,14 +1182,29 @@ inherited frmTatClothInfo: TfrmTatClothInfo ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ParentFont = False TabOrder = 0 + ExplicitLeft = 4 + end + object cxDBImage1: TcxDBImage + Left = 0 + Top = 0 + Hint = 'FileName' + Align = alClient + DataBinding.DataField = 'FilesOther' + DataBinding.DataSource = DS_ImgHX + Properties.GraphicClassName = 'TdxSmartImage' + Properties.GraphicTransparency = gtTransparent + Properties.ReadOnly = True + Properties.ShowFocusRect = False + Style.BorderStyle = ebsSingle + TabOrder = 1 + ExplicitTop = 42 + Height = 339 + Width = 1259 end end object cxTabSheet6: TcxTabSheet Caption = #31359#31576#27861 ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object CKF: TMemo Tag = 2 Left = 0 @@ -1468,4 +1462,26 @@ inherited frmTatClothInfo: TfrmTatClothInfo Left = 945 Top = 214 end + object Qry_ImgHX2: TADOQuery + Connection = DataLink_ClothInfo.ADOLink + Parameters = <> + Left = 458 + Top = 392 + end + object DS_ImgHX2: TDataSource + DataSet = Qry_ImgHX2 + Left = 383 + Top = 456 + end + object Qry_ImgHX: TADOQuery + Connection = DataLink_ClothInfo.ADOLink + Parameters = <> + Left = 1066 + Top = 288 + end + object DS_ImgHX: TDataSource + DataSet = Qry_ImgHX + Left = 975 + Top = 392 + end end diff --git a/A02基础产品管理/U_TatClothInfo.pas b/A02基础产品管理/U_TatClothInfo.pas index a27f169..28fd9a5 100644 --- a/A02基础产品管理/U_TatClothInfo.pas +++ b/A02基础产品管理/U_TatClothInfo.pas @@ -24,23 +24,8 @@ uses dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles, dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, cxCheckBox, - dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI, cxImage, cxDBEdit; type FdDy = record @@ -180,7 +165,6 @@ type btn1: TToolButton; ToolButton4: TToolButton; cxTabSheet4: TcxTabSheet; - QZF: TMemo; cxTabSheet5: TcxTabSheet; CZF: TMemo; cxTabSheet6: TcxTabSheet; @@ -214,6 +198,12 @@ type Tv1Column12: TcxGridDBColumn; Tv4Z_Number: TcxGridDBColumn; TV2Z_Number: TcxGridDBColumn; + cxDBImage2: TcxDBImage; + Qry_ImgHX2: TADOQuery; + DS_ImgHX2: TDataSource; + cxDBImage1: TcxDBImage; + Qry_ImgHX: TADOQuery; + DS_ImgHX: TDataSource; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBDelClick(Sender: TObject); @@ -608,6 +598,7 @@ begin jpg.free; application.ProcessMessages; end; + end; procedure TfrmTatClothInfo.TBCopyClick(Sender: TObject); @@ -1097,7 +1088,35 @@ begin CZF.Text := Trim(CDS_1.fieldbyname('CZF').AsString); CKF.Text := Trim(CDS_1.fieldbyname('CKF').AsString); - QZF.Text := Trim(CDS_1.fieldbyname('QZF').AsString); + + if CDS_1.fieldbyname('attname1').AsString <> '' then + begin + with Qry_ImgHX do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(CDS_1.fieldbyname('attname1').AsString))); + SQL.Add('AND TFTYPE=''ZC'' '); +// ShowMessage(SQL.Text); + open; + end; + + end; + if CDS_1.fieldbyname('attname2').AsString <> '' then + begin + with Qry_ImgHX2 do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(CDS_1.fieldbyname('attname2').AsString))); + SQL.Add('AND TFTYPE=''qC'' '); +// ShowMessage(SQL.Text); + open; + end; + + end; // myStream.Free; end; diff --git a/A02基础产品管理/U_TatClothInfoInput.dfm b/A02基础产品管理/U_TatClothInfoInput.dfm index d5c0194..9b6bc27 100644 --- a/A02基础产品管理/U_TatClothInfoInput.dfm +++ b/A02基础产品管理/U_TatClothInfoInput.dfm @@ -67,32 +67,51 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 0 Top = 30 Width = 1540 - Height = 245 + Height = 395 Align = alTop BevelInner = bvNone BevelOuter = bvNone Color = clWhite Ctl3D = False + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentColor = False ParentCtl3D = False + ParentFont = False TabOrder = 1 + ExplicitTop = 36 object Label1: TLabel - Left = 38 + Left = 10 Top = 26 - Width = 64 + Width = 71 Height = 21 - Caption = #20135#21697#32534#21495 + Caption = #20135#21697#32534#21495'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label5: TLabel - Left = 385 + Left = 336 Top = 26 - Width = 64 + Width = 71 Height = 21 - Caption = #20135#21697#21517#31216 + Caption = #20135#21697#21517#31216'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label3: TLabel - Left = 50 - Top = 355 + Left = 136 + Top = 419 Width = 51 Height = 16 Caption = #26465#30721#65306 @@ -104,64 +123,71 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput ParentFont = False Visible = False end - object Label16: TLabel - Left = 38 - Top = 189 - Width = 32 - Height = 21 - Caption = #22791#27880 - end object Label55: TLabel - Left = 34 - Top = 451 - Width = 64 - Height = 21 - Caption = #31359#32508#39034#24207 - Visible = False - end - object Label2: TLabel - Left = 1114 - Top = 439 - Width = 32 - Height = 21 - Caption = #31576#21495 - Visible = False - end - object Label4: TLabel - Left = 385 - Top = 62 - Width = 96 - Height = 21 - Caption = #23454#27979#24179#26041#20811#37325 - end - object Label6: TLabel - Left = 1114 - Top = 63 - Width = 32 - Height = 21 - Caption = #32428#23494 - end - object Label7: TLabel - Left = 736 - Top = 483 + Left = 10 + Top = 308 Width = 48 Height = 21 - Caption = #24635#22836#32441 - Visible = False + Caption = #31359#32508#27861 + end + object Label2: TLabel + Left = 336 + Top = 176 + Width = 39 + Height = 21 + Caption = #31576#21495'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 921 + Top = 100 + Width = 39 + Height = 21 + Caption = #32428#23494'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 687 + Top = 139 + Width = 55 + Height = 21 + Caption = #24635#22836#32441'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label8: TLabel - Left = 38 - Top = 62 - Width = 96 - Height = 21 - Caption = #29702#35770#24179#26041#20811#37325 - end - object Label9: TLabel - Left = 757 - Top = 26 + Left = 336 + Top = 101 Width = 32 Height = 21 - Caption = #38376#24133 + Caption = #20811#37325 + end + object Label9: TLabel + Left = 10 + Top = 101 + Width = 39 + Height = 21 + Caption = #38376#24133'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label10: TLabel Left = 1132 @@ -172,101 +198,216 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Visible = False end object lbl1: TLabel - Left = 762 - Top = 404 - Width = 96 + Left = 10 + Top = 139 + Width = 103 Height = 21 - Caption = #25972#32463#24037#33402#32534#21495 - Visible = False + Caption = #25972#32463#24037#33402#32534#21495'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object lbl2: TLabel - Left = 1114 - Top = 398 - Width = 96 + Left = 336 + Top = 139 + Width = 103 Height = 21 - Caption = #25972#32463#24037#33402#21517#31216 - Visible = False + Caption = #25972#32463#24037#33402#21517#31216'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label11: TLabel - Left = 385 - Top = 98 + Left = 921 + Top = 63 Width = 32 Height = 21 Caption = #33394#21495 end object Label12: TLabel - Left = 38 - Top = 98 + Left = 687 + Top = 63 Width = 32 Height = 21 Caption = #39068#33394 end object Label13: TLabel - Left = 757 - Top = 98 + Left = 10 + Top = 63 Width = 32 Height = 21 Caption = #33457#22411 end object Label14: TLabel - Left = 757 + Left = 336 Top = 63 Width = 32 Height = 21 Caption = #27454#21495 end object Label15: TLabel - Left = 757 - Top = 136 + Left = 921 + Top = 25 Width = 32 Height = 21 Caption = #35268#26684 end object Label17: TLabel - Left = 1114 - Top = 99 + Left = 687 + Top = 26 Width = 32 Height = 21 Caption = #25104#20998 end - object Label18: TLabel - Left = 38 - Top = 134 - Width = 64 + object Label20: TLabel + Left = 687 + Top = 101 + Width = 39 Height = 21 - Caption = #29256#26412#32534#21495 + Caption = #32463#23494'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label19: TLabel - Left = 385 - Top = 135 - Width = 32 + Left = 10 + Top = 176 + Width = 71 Height = 21 - Caption = #32455#32553 - end - object Label20: TLabel - Left = 1114 - Top = 28 - Width = 32 - Height = 21 - Caption = #32463#23494 - end - object Label21: TLabel - Left = 757 - Top = 172 - Width = 32 - Height = 21 - Caption = #32463#32433 + Caption = #38050#31576#32534#21495'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label22: TLabel - Left = 757 - Top = 206 + Left = 687 + Top = 176 + Width = 39 + Height = 21 + Caption = #31576#24133'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 921 + Top = 177 + Width = 48 + Height = 21 + Caption = #31576#40831#25968 + end + object Label24: TLabel + Left = 10 + Top = 213 + Width = 48 + Height = 21 + Caption = #36793#32433#25968 + end + object Label25: TLabel + Left = 336 + Top = 213 + Width = 71 + Height = 21 + Caption = #22320#20256#20837#25968'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 687 + Top = 213 + Width = 64 + Height = 21 + Caption = #36793#31359#20837#27861 + end + object Label27: TLabel + Left = 10 + Top = 251 + Width = 48 + Height = 21 + Caption = #32508#39029#25968 + end + object Label4: TLabel + Left = 336 + Top = 251 + Width = 48 + Height = 21 + Caption = #32428#29273#23494 + end + object Label16: TLabel + Left = 687 + Top = 251 + Width = 55 + Height = 21 + Caption = #26085#20135#37327'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label18: TLabel + Left = 921 + Top = 250 + Width = 64 + Height = 21 + Caption = #33853#24067#31859#25968 + end + object Label31: TLabel + Left = 1145 + Top = 25 Width = 32 Height = 21 - Caption = #32428#32433 + Caption = #26426#22411 + end + object Label29: TLabel + Left = 95 + Top = 353 + Width = 392 + Height = 21 + Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#20840#24133#26681#25968'*0.059/'#25903#25968'*1.08' + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label30: TLabel + Left = 765 + Top = 353 + Width = 615 + Height = 21 + Caption = #27880' '#32428#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#32428#23494'*'#65288#31576#24133'+'#25439#32791#65289'*0.059 / '#25903#25968' *'#26681#25968'/'#24490#29615#26681#25968'* 1.08' + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object BCIID: TEdit - Left = 107 - Top = 353 + Left = 193 + Top = 417 Width = 218 Height = 22 Enabled = False @@ -279,110 +420,87 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput TabOrder = 0 Visible = False end - object CINote: TcxMemo - Tag = 2 - Left = 141 - Top = 172 - ParentColor = True - TabOrder = 1 - Height = 57 - Width = 567 - end object ThroughHealdOrder: TcxMemo Tag = 2 - Left = 107 - Top = 433 + Left = 116 + Top = 290 ParentColor = True ParentFont = False - TabOrder = 2 - Visible = False - Height = 57 - Width = 589 + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 1 + Height = 63 + Width = 1061 end object C_Code: TcxTextEdit Tag = 2 - Left = 141 + Left = 116 + Top = 22 + ParentColor = True + TabOrder = 2 + OnKeyPress = CYColorKeyPress + Width = 150 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 444 Top = 22 ParentColor = True TabOrder = 3 OnKeyPress = CYColorKeyPress - Width = 220 - end - object LoomType: TcxTextEdit - Tag = 2 - Left = 1230 - Top = 479 - ParentColor = True - TabOrder = 4 - Visible = False - Width = 220 - end - object C_Name: TcxTextEdit - Tag = 2 - Left = 488 - Top = 22 - ParentColor = True - TabOrder = 5 - OnKeyPress = CYColorKeyPress - Width = 220 + Width = 150 end object C_YarnQty: TcxTextEdit Tag = 2 - Left = 834 - Top = 479 + Left = 765 + Top = 135 ParentColor = True Properties.OnEditValueChanged = C_ReedWidthPropertiesEditValueChanged - TabOrder = 6 - Visible = False - Width = 220 + TabOrder = 4 + Width = 150 end - object C_ReedWidth: TcxTextEdit + object C_Width: TcxTextEdit Tag = 2 - Left = 869 - Top = 26 + Left = 116 + Top = 97 ParentColor = True Properties.OnEditValueChanged = C_ReedWidthPropertiesEditValueChanged - TabOrder = 7 - Width = 220 + TabOrder = 5 + Width = 150 end object C_ReedNo: TcxTextEdit Tag = 2 - Left = 1217 - Top = 435 + Left = 444 + Top = 172 ParentColor = True - TabOrder = 8 - Visible = False - Width = 220 + TabOrder = 6 + Width = 150 end object C_GramWeight: TcxTextEdit Tag = 2 - Left = 141 - Top = 58 + Left = 444 + Top = 97 ParentColor = True - TabOrder = 9 - Width = 220 - end - object C_TestGramWeight: TcxTextEdit - Tag = 2 - Left = 488 - Top = 58 - ParentColor = True - TabOrder = 10 - Width = 220 + TabOrder = 7 + Width = 150 end object C_FinishLatitudeDensity: TcxTextEdit Tag = 2 - Left = 1217 - Top = 60 + Left = 986 + Top = 97 ParentColor = True - Properties.OnEditValueChanged = C_ReedWidthPropertiesEditValueChanged - TabOrder = 11 - Width = 220 + TabOrder = 8 + OnExit = C_ReedWidthExit + Width = 150 end object WB_Code: TcxButtonEdit Tag = 2 - Left = 860 - Top = 398 + Left = 116 + Top = 135 ParentColor = True Properties.Buttons = < item @@ -392,144 +510,215 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Properties.ReadOnly = True Properties.OnButtonClick = WB_CodePropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 12 - Visible = False - Width = 220 + TabOrder = 9 + Width = 150 end object WB_Name: TcxTextEdit Tag = 2 - Left = 1217 - Top = 392 + Left = 444 + Top = 135 Enabled = False ParentColor = True - TabOrder = 13 - Visible = False - Width = 220 + TabOrder = 10 + Width = 150 end object C_Color: TcxTextEdit Tag = 2 - Left = 141 - Top = 94 + Left = 765 + Top = 59 ParentColor = True - TabOrder = 14 - Width = 220 + TabOrder = 11 + Width = 150 end object C_ColorNo: TcxTextEdit Tag = 2 - Left = 488 - Top = 94 + Left = 986 + Top = 59 ParentColor = True - TabOrder = 15 - Width = 220 + TabOrder = 12 + Width = 150 end object C_Pattern: TcxTextEdit Tag = 2 - Left = 870 - Top = 94 + Left = 116 + Top = 59 ParentColor = True - TabOrder = 16 - Width = 220 + TabOrder = 13 + Width = 150 end object C_StyleNo: TcxTextEdit Tag = 2 - Left = 870 + Left = 444 Top = 59 ParentColor = True - TabOrder = 17 - Width = 220 + TabOrder = 14 + Width = 150 end object C_Spec: TcxTextEdit Tag = 2 - Left = 870 - Top = 132 + Left = 986 + Top = 22 ParentColor = True - TabOrder = 18 - Width = 567 + TabOrder = 15 + Width = 150 end object C_Composition: TcxTextEdit Tag = 2 - Left = 1217 - Top = 95 + Left = 765 + Top = 22 ParentColor = True Properties.OnEditValueChanged = C_CompositionPropertiesEditValueChanged - TabOrder = 19 - Width = 220 - end - object BBNo: TcxTextEdit - Tag = 2 - Left = 141 - Top = 131 - ParentColor = True - TabOrder = 20 - Width = 220 - end - object ZS: TcxTextEdit - Tag = 2 - Left = 488 - Top = 131 - ParentColor = True - TabOrder = 21 - Width = 220 + TabOrder = 16 + Width = 150 end object MFDW: TcxComboBox Tag = 2 - Left = 1031 - Top = 27 + Left = 267 + Top = 97 Properties.Items.Strings = ( #8220 'CM') Properties.OnEditValueChanged = MFDWPropertiesEditValueChanged - TabOrder = 22 + TabOrder = 17 + Text = #8220 Width = 63 end object C_FinishLongitudeDensity: TcxTextEdit Tag = 2 - Left = 1217 - Top = 24 + Left = 765 + Top = 97 ParentColor = True Properties.OnEditValueChanged = C_FinishLongitudeDensityPropertiesEditValueChanged - TabOrder = 23 - Width = 220 - end - object JinSha: TcxTextEdit - Tag = 2 - Left = 870 - Top = 168 - ParentColor = True - TabOrder = 24 - Width = 567 - end - object WeiSha: TcxTextEdit - Tag = 2 - Left = 870 - Top = 202 - ParentColor = True - TabOrder = 25 - Width = 567 + TabOrder = 18 + Width = 150 end object LPDW: TcxComboBox Tag = 2 - Left = 296 - Top = 55 + Left = 600 + Top = 97 Properties.Items.Strings = ( 'GSM' 'MM') Properties.OnEditValueChanged = MFDWPropertiesEditValueChanged - TabOrder = 26 + TabOrder = 19 Width = 63 end + object GKBH: TcxTextEdit + Tag = 2 + Left = 116 + Top = 172 + ParentColor = True + TabOrder = 20 + Width = 150 + end + object C_ReedWidth: TcxTextEdit + Tag = 2 + Left = 765 + Top = 172 + ParentColor = True + TabOrder = 21 + OnExit = C_ReedWidthExit + Width = 76 + end + object C_KCQTY: TcxTextEdit + Tag = 2 + Left = 986 + Top = 173 + ParentColor = True + TabOrder = 22 + Width = 150 + end + object BSQTY: TcxTextEdit + Tag = 2 + Left = 116 + Top = 209 + ParentColor = True + TabOrder = 23 + Width = 150 + end + object DCRQTY: TcxTextEdit + Tag = 2 + Left = 444 + Top = 209 + ParentColor = True + TabOrder = 24 + Width = 150 + end + object WB_ReedNote: TcxTextEdit + Tag = 2 + Left = 765 + Top = 209 + ParentColor = True + TabOrder = 25 + Width = 371 + end + object ZYQTY: TcxTextEdit + Tag = 2 + Left = 116 + Top = 247 + ParentColor = True + TabOrder = 26 + Width = 150 + end + object WYAMI: TcxTextEdit + Tag = 2 + Left = 444 + Top = 247 + ParentColor = True + TabOrder = 27 + Width = 150 + end + object DAYQTY: TcxTextEdit + Tag = 2 + Left = 765 + Top = 247 + ParentColor = True + TabOrder = 28 + Width = 150 + end + object LBQTY: TcxTextEdit + Tag = 2 + Left = 986 + Top = 244 + ParentColor = True + TabOrder = 29 + Width = 150 + end + object GKDW: TcxComboBox + Tag = 2 + Left = 847 + Top = 170 + Properties.Items.Strings = ( + #8220 + 'CM') + Properties.OnEditValueChanged = MFDWPropertiesEditValueChanged + TabOrder = 30 + Text = #8220 + Width = 63 + end + object LoomType: TcxComboBox + Tag = 2 + Left = 1190 + Top = 22 + Properties.Items.Strings = ( + 'GSM' + 'MM') + Properties.OnEditValueChanged = MFDWPropertiesEditValueChanged + TabOrder = 31 + Width = 99 + end end object cxPageControl3: TcxPageControl [2] Left = 0 - Top = 275 + Top = 425 Width = 1540 - Height = 462 + Height = 312 Align = alClient TabOrder = 2 Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> Properties.Style = 9 - ClientRectBottom = 462 + ClientRectBottom = 312 ClientRectRight = 1540 ClientRectTop = 28 object cxTabSheet1: TcxTabSheet @@ -539,7 +728,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 931 Top = 0 Width = 609 - Height = 434 + Height = 284 Align = alClient Caption = #32463#25490#21015 Font.Charset = GB2312_CHARSET @@ -554,7 +743,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 2 Top = 31 Width = 605 - Height = 401 + Height = 251 Align = alClient TabOrder = 0 end @@ -563,14 +752,14 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 0 Top = 0 Width = 931 - Height = 434 + Height = 284 Align = alLeft TabOrder = 1 object cxPageControl2: TcxPageControl Left = 1 Top = 1 Width = 929 - Height = 432 + Height = 282 Align = alClient Color = clWhite Font.Charset = GB2312_CHARSET @@ -585,7 +774,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Visible = False Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ClientRectBottom = 432 + ClientRectBottom = 282 ClientRectRight = 929 ClientRectTop = 0 end @@ -593,11 +782,10 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 1 Top = 1 Width = 929 - Height = 432 + Height = 282 Align = alClient PopupMenu = PM_1 TabOrder = 1 - ExplicitLeft = -2 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -629,7 +817,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Width = 66 end object cxGridDBColumn3: TcxGridDBColumn - Caption = #21407#26009#20195#21495 + Caption = #32534#21495 DataBinding.FieldName = 'Y_Code' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' @@ -644,7 +832,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Width = 100 end object cxGridDBColumn4: TcxGridDBColumn - Caption = #21407#26009#21517#31216 + Caption = #21697#21517 DataBinding.FieldName = 'Y_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter @@ -666,6 +854,24 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput HeaderAlignmentHorz = taCenter Width = 100 end + object TV1Column6: TcxGridDBColumn + Caption = #20998#29305'(Dtex)' + DataBinding.FieldName = 'TestDenier' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 96 + end + object TV1Column14: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'Z_Number' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column10PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end object TV1Column1: TcxGridDBColumn Caption = #26681#25968 DataBinding.FieldName = 'YarnQty' @@ -685,82 +891,24 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Width = 80 end object TV1Column10: TcxGridDBColumn - Caption = #32442#27861 - DataBinding.FieldName = 'FF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column12: TcxGridDBColumn - Caption = #25467#24230 - DataBinding.FieldName = 'ND' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column3: TcxGridDBColumn - Caption = #28068 - DataBinding.FieldName = 'Dacron' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column4: TcxGridDBColumn - Caption = #26825 - DataBinding.FieldName = 'Cotton' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column5: TcxGridDBColumn - Caption = #40635 - DataBinding.FieldName = 'Linen' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object cxGridDBColumn5: TcxGridDBColumn - Caption = #32433#32447#21697#29260 - DataBinding.FieldName = 'Brand' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Moving = False - Options.Sorting = False - Width = 100 - end - object TV1Column6: TcxGridDBColumn - Caption = #20998#29305'(Dtex)' - DataBinding.FieldName = 'TestDenier' + Caption = #20840#24133#26681#25968 + DataBinding.FieldName = 'QFYARNQTY' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged - HeaderAlignmentHorz = taCenter - Width = 96 - end - object TV1Column14: TcxGridDBColumn - Caption = #25903#25968 - DataBinding.FieldName = 'Z_Number' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 71 - end - object TV1Column9: TcxGridDBColumn - Caption = #25104#20998 - DataBinding.FieldName = 'Y_Composition' - DataBinding.IsNullValueType = True + Properties.OnEditValueChanged = TV1Column10PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 80 end object TV1Column8: TcxGridDBColumn - Caption = #31859'/'#24212#29992#37327 + Caption = #30334#31859#32463#38271#37325#37327'KG' DataBinding.FieldName = 'MeterQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 96 + Width = 163 end object TV1Column11: TcxGridDBColumn - Caption = #28504#36890#21495 - DataBinding.FieldName = 'PTNo' + Caption = #22791#27880 + DataBinding.FieldName = 'NOTE' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 100 @@ -779,7 +927,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 961 Top = 0 Width = 579 - Height = 434 + Height = 284 Align = alClient Caption = #32428#25490#21015 Font.Charset = GB2312_CHARSET @@ -794,7 +942,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 2 Top = 31 Width = 575 - Height = 401 + Height = 251 Align = alClient TabOrder = 0 end @@ -803,14 +951,14 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 0 Top = 0 Width = 961 - Height = 434 + Height = 284 Align = alLeft TabOrder = 1 object cxPageControl1: TcxPageControl Left = 1 Top = 1 Width = 959 - Height = 432 + Height = 282 Align = alClient Color = clWhite Font.Charset = GB2312_CHARSET @@ -825,7 +973,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Visible = False Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ClientRectBottom = 432 + ClientRectBottom = 282 ClientRectRight = 959 ClientRectTop = 0 end @@ -833,11 +981,10 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 1 Top = 1 Width = 959 - Height = 432 + Height = 282 Align = alClient PopupMenu = PM_2 TabOrder = 1 - ExplicitLeft = -2 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -869,7 +1016,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Width = 66 end object v2Column10: TcxGridDBColumn - Caption = #21407#26009#20195#21495 + Caption = #32534#21495 DataBinding.FieldName = 'Y_Code' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' @@ -884,7 +1031,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Width = 100 end object cxGridDBColumn1: TcxGridDBColumn - Caption = #21407#26009#21517#31216 + Caption = #21697#21517 DataBinding.FieldName = 'Y_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter @@ -906,10 +1053,29 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput HeaderAlignmentHorz = taCenter Width = 100 end - object Tv2Column12: TcxGridDBColumn - Caption = #25467#24230 - DataBinding.FieldName = 'ND' + object Tv2Column6: TcxGridDBColumn + Caption = #20998#29305'(Dtex)' + DataBinding.FieldName = 'TestDenier' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 91 + end + object Tv2Column14: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'Z_Number' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 88 + end + object Tv2Column1: TcxGridDBColumn + Caption = #26681#25968 + DataBinding.FieldName = 'YarnQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 80 end @@ -922,85 +1088,25 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput HeaderAlignmentHorz = taCenter Width = 80 end - object Tv2Column10: TcxGridDBColumn - Caption = #32442#27861 - DataBinding.FieldName = 'FF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column1: TcxGridDBColumn - Caption = #26681#25968 - DataBinding.FieldName = 'YarnQty' + object Tv2Column11: TcxGridDBColumn + Caption = #25439#32791 + DataBinding.FieldName = 'Y_Loss' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 80 end - object v2Column2: TcxGridDBColumn - Caption = #32433#32447#21697#29260 - DataBinding.FieldName = 'Brand' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Moving = False - Options.Sorting = False - Width = 100 - end - object Tv2Column3: TcxGridDBColumn - Caption = #28068 - DataBinding.FieldName = 'Dacron' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column4: TcxGridDBColumn - Caption = #26825 - DataBinding.FieldName = 'Cotton' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column5: TcxGridDBColumn - Caption = #40635 - DataBinding.FieldName = 'Linen' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column6: TcxGridDBColumn - Caption = #20998#29305'(Dtex)' - DataBinding.FieldName = 'TestDenier' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column14: TcxGridDBColumn - Caption = #25903#25968 - DataBinding.FieldName = 'Z_Number' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 88 - end object Tv2Column8: TcxGridDBColumn - Caption = #31859'/'#24212#29992#37327 + Caption = #30334#31859#32463#38271#29992#37327'KG' DataBinding.FieldName = 'MeterQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 113 + Width = 151 end - object Tv2Column9: TcxGridDBColumn - Caption = #25104#20998 - DataBinding.FieldName = 'Y_Composition' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column11: TcxGridDBColumn - Caption = #28504#36890#21495 - DataBinding.FieldName = 'PTNo' + object Tv2Column12: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 @@ -1015,98 +1121,123 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput object cxTabSheet3: TcxTabSheet Caption = #36215#32508#27861 ImageIndex = 3 - object Panel8: TPanel + object Panel5: TPanel Left = 0 Top = 0 Width = 1540 - Height = 32 + Height = 41 Align = alTop + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False TabOrder = 0 - Visible = False - object ToolBar4: TToolBar - Tag = 1 - Left = 555 - Top = 1 - Width = 142 - Height = 30 - Align = alLeft - AutoSize = True - ButtonHeight = 30 - ButtonWidth = 67 - Caption = 'ToolBar1' - DisabledImages = DataLink_ClothInfo.cxImageList_bar - EdgeInner = esNone - EdgeOuter = esNone - Images = DataLink_ClothInfo.cxImageList_bar - List = True - ShowCaptions = True - TabOrder = 0 - object ToolButton9: TToolButton - Left = 0 - Top = 0 - AutoSize = True - Caption = #22686#34892 - ImageIndex = 2 - OnClick = ToolButton9Click - end - object ToolButton10: TToolButton - Left = 71 - Top = 0 - AutoSize = True - Caption = #21024#34892 - ImageIndex = 6 - OnClick = ToolButton10Click - end + object Label28: TLabel + Left = 18 + Top = 4 + Width = 96 + Height = 31 + Caption = #22270#29255#36873#25321 end - object Panel7: TPanel - Left = 1 - Top = 1 - Width = 554 - Height = 30 - Align = alLeft - TabOrder = 1 - object Label49: TLabel - Tag = 2 - Left = 23 - Top = 4 - Width = 80 - Height = 21 - Caption = #36215#32508#35268#24459#65306 - end - object Edit1: TEdit - Tag = 55 - Left = 100 - Top = 0 - Width = 381 - Height = 29 - TabOrder = 0 - OnKeyPress = Edit1KeyPress - end + object attname2: TcxButtonEdit + Tag = 2 + Left = 120 + Top = -4 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = attname2PropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 0 + Width = 150 end end - object QZF: TMemo - Tag = 2 + object cxDBImage2: TcxDBImage Left = 0 - Top = 32 - Width = 1540 - Height = 402 + Top = 41 + Hint = 'FileName' Align = alClient - ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + DataBinding.DataField = 'FilesOther' + DataBinding.DataSource = DS_ImgHX2 + Properties.GraphicClassName = 'TdxSmartImage' + Properties.GraphicTransparency = gtTransparent + Properties.ReadOnly = True + Properties.ShowFocusRect = False + Style.BorderStyle = ebsSingle TabOrder = 1 + Height = 243 + Width = 1540 end end object cxTabSheet4: TcxTabSheet Caption = #31359#32508#27861 ImageIndex = 3 - object CZF: TMemo - Tag = 2 + object Panel3: TPanel Left = 0 Top = 0 Width = 1540 - Height = 434 + Height = 284 Align = alClient - ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 TabOrder = 0 + object cxDBImage1: TcxDBImage + Left = 1 + Top = 42 + Hint = 'FileName' + Align = alClient + DataBinding.DataField = 'FilesOther' + DataBinding.DataSource = DS_ImgHX + Properties.GraphicClassName = 'TdxSmartImage' + Properties.GraphicTransparency = gtTransparent + Properties.ReadOnly = True + Properties.ShowFocusRect = False + Style.BorderStyle = ebsSingle + TabOrder = 0 + Height = 241 + Width = 1538 + end + object Panel4: TPanel + Left = 1 + Top = 1 + Width = 1538 + Height = 41 + Align = alTop + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object Label21: TLabel + Left = 18 + Top = 4 + Width = 96 + Height = 31 + Caption = #22270#29255#36873#25321 + end + object ATTNAME1: TcxButtonEdit + Tag = 2 + Left = 120 + Top = -4 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 0 + Width = 150 + end + end end end object cxTabSheet5: TcxTabSheet @@ -1117,7 +1248,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Left = 0 Top = 0 Width = 1540 - Height = 434 + Height = 284 Align = alClient ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 TabOrder = 0 @@ -1126,8 +1257,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput end inherited ADOQueryBaseCmd: TADOQuery Connection = ADOConnection1 - Left = 721 - Top = 190 + Left = 905 + Top = 334 end inherited ADOQueryBaseTemp: TADOQuery Connection = ADOConnection1 @@ -1140,9 +1271,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput end inherited cxImageList_bar: TcxImageList FormatVersion = 1 - Left = 842 - Top = 262 - DesignInfo = 17171274 + Left = 1250 + Top = 310 + DesignInfo = 20317410 end object ADOQueryCmd: TADOQuery Connection = ADOConnection1 @@ -1181,8 +1312,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput end object ADOConnection1: TADOConnection LoginPrompt = False - Left = 844 - Top = 140 + Left = 1340 + Top = 268 end object ImageList1: TImageList DrawingStyle = dsTransparent @@ -4897,8 +5028,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput object CDS_4: TClientDataSet Aggregates = <> Params = <> - Left = 1144 - Top = 276 + Left = 1312 + Top = 348 end object DS_4: TDataSource DataSet = CDS_4 @@ -4919,14 +5050,14 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput end object GPM_4: TcxGridPopupMenu PopupMenus = <> - Left = 1092 - Top = 270 + Left = 1252 + Top = 294 end object ADOQuery1: TADOQuery Connection = ADOConnection1 LockType = ltReadOnly Parameters = <> - Left = 1008 + Left = 1280 Top = 270 end object ADOQueryTemp2: TADOQuery @@ -4952,4 +5083,31 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput OnClick = MenuItem1Click end end + object DS_ImgHX: TDataSource + DataSet = Qry_ImgHX + Left = 519 + Top = 408 + end + object Qry_ImgHX: TADOQuery + Connection = DataLink_ClothInfo.ADOLink + Parameters = <> + Left = 610 + Top = 304 + end + object Qry_ImgHX2: TADOQuery + Connection = DataLink_ClothInfo.ADOLink + Parameters = <> + Left = 674 + Top = 352 + end + object DataSource1: TDataSource + DataSet = Qry_ImgHX2 + Left = 671 + Top = 528 + end + object DS_ImgHX2: TDataSource + DataSet = Qry_ImgHX2 + Left = 599 + Top = 416 + end end diff --git a/A02基础产品管理/U_TatClothInfoInput.pas b/A02基础产品管理/U_TatClothInfoInput.pas index 5302adf..7c1c2b4 100644 --- a/A02基础产品管理/U_TatClothInfoInput.pas +++ b/A02基础产品管理/U_TatClothInfoInput.pas @@ -19,23 +19,8 @@ uses dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles, dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, cxCheckBox, - dxSkinsCore, dxSkinsDefaultPainters, cxImageList, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - Vcl.Menus, cxDropDownEdit; + dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI, Vcl.Menus, cxDropDownEdit, cxImage, cxDBEdit; type TfrmTatClothInfoInput = class(TfrmBaseInput) @@ -56,7 +41,6 @@ type DS_2: TDataSource; ADOConnection1: TADOConnection; ImageList1: TImageList; - Label16: TLabel; Label55: TLabel; cxPageControl3: TcxPageControl; cxTabSheet1: TcxTabSheet; @@ -68,7 +52,6 @@ type TV1: TcxGridDBTableView; cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn; - cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn; cxGridLevel2: TcxGridLevel; cxTabSheet2: TcxTabSheet; @@ -80,67 +63,45 @@ type Tv2: TcxGridDBTableView; v2Column10: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn; - v2Column2: TcxGridDBColumn; v2Column6: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; cxTabSheet3: TcxTabSheet; - Panel8: TPanel; - ToolBar4: TToolBar; - ToolButton9: TToolButton; - ToolButton10: TToolButton; - Panel7: TPanel; - Label49: TLabel; - Edit1: TEdit; CDS_4: TClientDataSet; DS_4: TDataSource; GPM_1: TcxGridPopupMenu; GPM_2: TcxGridPopupMenu; GPM_4: TcxGridPopupMenu; ToolButton11: TToolButton; - CINote: TcxMemo; ThroughHealdOrder: TcxMemo; C_Code: TcxTextEdit; Label2: TLabel; - Label4: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; - LoomType: TcxTextEdit; C_Name: TcxTextEdit; C_YarnQty: TcxTextEdit; - C_ReedWidth: TcxTextEdit; + C_Width: TcxTextEdit; C_ReedNo: TcxTextEdit; C_GramWeight: TcxTextEdit; - C_TestGramWeight: TcxTextEdit; C_FinishLatitudeDensity: TcxTextEdit; TV1Column7: TcxGridDBColumn; Tv2Column7: TcxGridDBColumn; TV1Column1: TcxGridDBColumn; TV1Column2: TcxGridDBColumn; - TV1Column3: TcxGridDBColumn; - TV1Column4: TcxGridDBColumn; - TV1Column5: TcxGridDBColumn; TV1Column6: TcxGridDBColumn; TV1Column8: TcxGridDBColumn; - TV1Column9: TcxGridDBColumn; TV1Column10: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn; Tv2Column2: TcxGridDBColumn; - Tv2Column3: TcxGridDBColumn; - Tv2Column4: TcxGridDBColumn; - Tv2Column5: TcxGridDBColumn; Tv2Column6: TcxGridDBColumn; Tv2Column8: TcxGridDBColumn; - Tv2Column9: TcxGridDBColumn; - Tv2Column10: TcxGridDBColumn; lbl1: TLabel; lbl2: TLabel; WB_Code: TcxButtonEdit; WB_Name: TcxTextEdit; cxTabSheet4: TcxTabSheet; - CZF: TMemo; cxTabSheet5: TcxTabSheet; CKF: TMemo; TV1Column11: TcxGridDBColumn; @@ -157,31 +118,60 @@ type C_Spec: TcxTextEdit; Label17: TLabel; C_Composition: TcxTextEdit; - TV1Column12: TcxGridDBColumn; Tv2Column12: TcxGridDBColumn; TV1Column13: TcxGridDBColumn; Tv2Column13: TcxGridDBColumn; ADOQuery1: TADOQuery; - Label18: TLabel; - Label19: TLabel; - BBNo: TcxTextEdit; - ZS: TcxTextEdit; ADOQueryTemp2: TADOQuery; PM_1: TPopupMenu; N1: TMenuItem; PM_2: TPopupMenu; MenuItem1: TMenuItem; - QZF: TMemo; MFDW: TcxComboBox; Label20: TLabel; C_FinishLongitudeDensity: TcxTextEdit; - Label21: TLabel; - JinSha: TcxTextEdit; - Label22: TLabel; - WeiSha: TcxTextEdit; LPDW: TcxComboBox; TV1Column14: TcxGridDBColumn; Tv2Column14: TcxGridDBColumn; + Label19: TLabel; + GKBH: TcxTextEdit; + Label22: TLabel; + C_ReedWidth: TcxTextEdit; + Label23: TLabel; + C_KCQTY: TcxTextEdit; + Label24: TLabel; + BSQTY: TcxTextEdit; + Label25: TLabel; + DCRQTY: TcxTextEdit; + Label26: TLabel; + WB_ReedNote: TcxTextEdit; + Label27: TLabel; + ZYQTY: TcxTextEdit; + Label4: TLabel; + WYAMI: TcxTextEdit; + Label16: TLabel; + DAYQTY: TcxTextEdit; + Label18: TLabel; + LBQTY: TcxTextEdit; + Panel3: TPanel; + cxDBImage1: TcxDBImage; + Panel4: TPanel; + Label21: TLabel; + ATTNAME1: TcxButtonEdit; + DS_ImgHX: TDataSource; + Qry_ImgHX: TADOQuery; + Panel5: TPanel; + Label28: TLabel; + attname2: TcxButtonEdit; + cxDBImage2: TcxDBImage; + Qry_ImgHX2: TADOQuery; + DataSource1: TDataSource; + DS_ImgHX2: TDataSource; + GKDW: TcxComboBox; + LoomType: TcxComboBox; + Label31: TLabel; + Label29: TLabel; + Label30: TLabel; procedure FormShow(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); @@ -195,7 +185,7 @@ type procedure ToolButton7Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject); procedure ToolButton10Click(Sender: TObject); - procedure Edit1KeyPress(Sender: TObject; var Key: Char); + procedure ToolButton11Click(Sender: TObject); procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); @@ -211,10 +201,16 @@ type procedure MFDWPropertiesEditValueChanged(Sender: TObject); procedure C_FinishLongitudeDensityPropertiesEditValueChanged(Sender: TObject); procedure C_CompositionPropertiesEditValueChanged(Sender: TObject); + procedure Panel4Click(Sender: TObject); + procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TV1Column10PropertiesEditValueChanged(Sender: TObject); + procedure C_ReedWidthExit(Sender: TObject); private canshu1: string; Fint: Integer; procedure InitGrid(); + procedure InitImage(); procedure JSJS(); //㾭˿ procedure JSWS(); //γ˿ procedure JSKZ(); // @@ -234,14 +230,49 @@ implementation uses U_DataLink, U_HttpFun, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, - U_YarnInfoSel, U_WBSpecSel; + U_YarnInfoSel, U_WBSpecSel, U_PictureUpload; {$R *.dfm} +procedure TfrmTatClothInfoInput.InitImage(); +begin + if attname1.Text <> '' then + begin + with Qry_ImgHX do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(attname1.Text))); + SQL.Add('AND TFTYPE=''ZC'' '); +// ShowMessage(SQL.Text); + open; + end; + + end; + if attname2.Text <> '' then + begin + with Qry_ImgHX2 do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(attname2.Text))); + SQL.Add('AND TFTYPE=''qC'' '); +// ShowMessage(SQL.Text); + open; + end; + + end; +end; procedure TfrmTatClothInfoInput.InitGrid(); var myStream: TMemoryStream; + mSql: string; begin + + mSql := 'select distinct name=A.mctype from Bs_Machine A '; + SInitTcxComBoxBySql(ADOQueryTemp, LoomType, false, mSql); myStream := TMemoryStream.Create(); with ADOQueryTemp do @@ -276,13 +307,12 @@ begin SCSHData(ADOQueryTemp, ScrollBox1, 2); SCSHData(ADOQueryTemp, ScrollBox1, 0); - QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString); - CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString); CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString); Y_Note_PLJ.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLJ').AsString); Y_Note_PLW.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLW').AsString); - + ATTNAME1.Text := Trim(ADOQueryTemp.FieldByName('ATTNAME1').AsString); + ATTNAME2.Text := Trim(ADOQueryTemp.FieldByName('ATTNAME2').AsString); ////////////////////////// ////////////////////////// // with ADOQueryTemp do @@ -379,6 +409,8 @@ begin end; SCreateCDS(ADOQueryTemp, CDS_4); SInitCDSData(ADOQueryTemp, CDS_4); + + /////////////////ˢ۹յϢ///////////////////////// /// end; @@ -608,6 +640,30 @@ begin end; end; +procedure TfrmTatClothInfoInput.Panel4Click(Sender: TObject); +begin + try + frmPictureUpload := TfrmPictureUpload.create(self); + with frmPictureUpload do + begin + fFlileFlag := UserDataFlag + 'HX'; + FDataId := ATTNAME1.Text; + FPictureName := ATTNAME1.Text; + FWidth := 450; + FHeight := 600; + FTFType := 'ZC'; + if showmodal = 1 then + begin + ATTNAME1.Text := frmPictureUpload.FPictureName; + end; + end; + finally + frmPictureUpload.free; + end; + initimage(); + +end; + procedure TfrmTatClothInfoInput.JSKZ(); var SumJS, SumWS: double; @@ -635,8 +691,7 @@ begin // // C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2)); /////////////ɹ ///////////// - JinSha.text := JSGG; - WeiSha.text := WSGG; + FC_Spec := ''; FC_Spec := C_Composition.text + ' (' + JSGG + ')*(' + WSGG + ') ' + C_FinishLongitudeDensity.text + '*' + C_FinishLatitudeDensity.text + ' ' + C_ReedWidth.text + MFDW.text; @@ -664,7 +719,8 @@ begin FBCIID := ''; BCIID.text := ''; C_Code.text := ''; - + ATTNAME1.Text := ''; + ATTNAME2.Text := ''; with CDS_1 do begin First; @@ -692,7 +748,7 @@ begin end; end; - + InitImage(); end; procedure TfrmTatClothInfoInput.TBCloseClick(Sender: TObject); @@ -750,13 +806,12 @@ begin end; FieldByName('BCIID').Value := Trim(maxId); - FieldByName('QZF').Value := Trim(QZF.text); - FieldByName('CZF').Value := Trim(CZF.text); FieldByName('CKF').Value := Trim(CKF.text); FieldByName('Y_Note_PLJ').Value := Trim(Y_Note_PLJ.text); FieldByName('Y_Note_PLW').Value := Trim(Y_Note_PLW.text); - + FieldByName('ATTNAME1').Value := Trim(ATTNAME1.text); + FieldByName('ATTNAME2').Value := Trim(ATTNAME2.text); if trim(C_Code.Text) = '' then C_Code.Text := Trim(maxId); RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2); @@ -1071,21 +1126,62 @@ begin Application.MessageBox('ŷλΪգ', 'ʾ', 0); Exit; end; + if C_Width.Text = '' then + begin + Application.MessageBox('ŷΪգ', 'ʾ', 0); + Exit; + end; - -// CDS_1.First; -// if Trim(CDS_1.fieldbyname('Y_Code').AsString) = '' then -// begin -// Application.MessageBox('Ҫдһ˿ԭϣ', 'ʾ', 0); -// Exit; -// end; -// -// CDS_2.First; -// if Trim(CDS_2.fieldbyname('Y_Code').AsString) = '' then -// begin -// Application.MessageBox('Ҫдһγ˿ԭϣ', 'ʾ', 0); -// Exit; -// end; + if C_FinishLongitudeDensity.Text = '' then + begin + Application.MessageBox('ܲΪգ', 'ʾ', 0); + Exit; + end; + if C_FinishLatitudeDensity.Text = '' then + begin + Application.MessageBox('γܲΪգ', 'ʾ', 0); + Exit; + end; + if WB_Code.Text = '' then + begin + Application.MessageBox('ձŲΪգ', 'ʾ', 0); + Exit; + end; + if WB_Name.Text = '' then + begin + Application.MessageBox('ƲΪգ', 'ʾ', 0); + Exit; + end; + if C_YarnQty.Text = '' then + begin + Application.MessageBox('ͷƲΪգ', 'ʾ', 0); + Exit; + end; + if GKBH.Text = '' then + begin + Application.MessageBox('رŲΪգ', 'ʾ', 0); + Exit; + end; + if C_ReedNo.Text = '' then + begin + Application.MessageBox('غŲΪգ', 'ʾ', 0); + Exit; + end; + if C_ReedWidth.Text = '' then + begin + Application.MessageBox('طΪգ', 'ʾ', 0); + Exit; + end; + if DCRQTY.Text = '' then + begin + Application.MessageBox('شΪգ', 'ʾ', 0); + Exit; + end; + if DAYQTY.Text = '' then + begin + Application.MessageBox('ղΪգ', 'ʾ', 0); + Exit; + end; if trim(C_Code.Text) = '' then begin @@ -1109,6 +1205,52 @@ begin end; end; +procedure TfrmTatClothInfoInput.attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmPictureUpload := TfrmPictureUpload.create(self); + with frmPictureUpload do + begin + fFlileFlag := UserDataFlag + 'HX'; + FDataId := AttName2.Text; + FPictureName := AttName2.Text; + FWidth := 600; + FHeight := 600; + FTFType := 'QC'; + if showmodal = 1 then + begin + AttName2.Text := frmPictureUpload.FPictureName; + end; + end; + finally + frmPictureUpload.free; + end; + initimage(); +end; + +procedure TfrmTatClothInfoInput.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmPictureUpload := TfrmPictureUpload.create(self); + with frmPictureUpload do + begin + fFlileFlag := UserDataFlag + 'HX'; + FDataId := AttName1.Text; + FPictureName := AttName1.Text; + FWidth := 600; + FHeight := 600; + FTFType := 'ZC'; + if showmodal = 1 then + begin + AttName1.Text := frmPictureUpload.FPictureName; + end; + end; + finally + frmPictureUpload.free; + end; + initimage(); +end; + procedure TfrmTatClothInfoInput.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try @@ -1152,7 +1294,7 @@ begin FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value; FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; - FieldByName('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value; + FieldByName('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value; Post; end; @@ -1205,6 +1347,74 @@ begin JSKZ(); end; +procedure TfrmTatClothInfoInput.C_ReedWidthExit(Sender: TObject); +var + mvalue, FFieldName: string; + GS, ZGS, MF, DS, WM, fsh: double; +begin + with CDS_2 do + begin + first; + while not eof do + begin + with CDS_2 do + begin + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('Y_loss').Value = null then + begin + fsh := 0; // + end + else + begin + fsh := FieldByName('Y_loss').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(C_ReedWidth.text, 0); //ط + + if FieldByName('Z_Number').Value = null then + begin + DS := 0; //֧ + end + else + begin + DS := FieldByName('Z_Number').Value; //֧ + end; + + WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ + end; + if (ZGS <> 0) and (DS <> 0) then + begin + with CDS_2 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2); + Post; + end; + end; + next; + end; + + end; +end; + procedure TfrmTatClothInfoInput.C_ReedWidthPropertiesEditValueChanged(Sender: TObject); begin JSJS(); @@ -1247,31 +1457,6 @@ begin JSWS(); end; -procedure TfrmTatClothInfoInput.Edit1KeyPress(Sender: TObject; var Key: Char); -var - i, j: Integer; -begin - if Key = #13 then - begin - - if Edit1.Text <> '' then - begin - i := CDS_4.RecordCount; - i := i + 1; - with CDS_4 do - begin - Append; - FieldByName('SSEL').Value := FALSE; - FieldByName('XuNO').Value := i; - FieldByName('DZZQZGL').Value := Trim(Edit1.Text); - Post; - end; - Edit1.Text := ''; - end; - - end; -end; - procedure TfrmTatClothInfoInput.CYMFExit(Sender: TObject); begin // if pos('"', trim(CYMF.Text)) = 0 then @@ -1358,6 +1543,51 @@ begin end; end; +procedure TfrmTatClothInfoInput.TV1Column10PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + ZS, ZGS: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + + with CDS_1 do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + + if FieldByName('QFYARNQTY').Value = null then + begin + ZGS := 0; //QUANFU + end + else + begin + ZGS := FieldByName('QFYARNQTY').Value; //ȫ + end; + + if FieldByName('Z_Number').Value = null then + begin + ZS := 0; //ѭ + end + else + begin + ZS := FieldByName('Z_Number').Value; //ѭ + end; + + end; + if ZS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2); + Post; + end; + end; +end; + procedure TfrmTatClothInfoInput.TV1Column1PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; @@ -1367,66 +1597,66 @@ begin mvalue := TcxTextEdit(Sender).EditingText; FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); - if mvalue = '' then - begin - mvalue := '0'; - end; - - with CDS_1 do - begin - Edit; - FieldByName(FFieldName).Value := mvalue; - Post; - - if FieldByName('YarnQty').Value = null then - begin - GS := 0; // - end - else - begin - GS := FieldByName('YarnQty').Value; // - end; - - if FieldByName('CycleYarnQty').Value = null then - begin - ZGS := 0; //ѭ - end - else - begin - ZGS := FieldByName('CycleYarnQty').Value; //ѭ - end; - - MF := strtofloatdef(C_ReedWidth.text, 0); //ط - - if FieldByName('TestDenier').Value = null then - begin - DS := 0; //D - end - else - begin - DS := FieldByName('TestDenier').Value; //D - end; - - WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ - - TW := strtofloatdef(C_YarnQty.text, 0); //ͷ - end; - if ZGS <> 0 then - begin - with CDS_1 do - begin - Edit; - FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); - Post; - end; - end; - JSKZ(); +// if mvalue = '' then +// begin +// mvalue := '0'; +// end; +// +// with CDS_1 do +// begin +// Edit; +// FieldByName(FFieldName).Value := mvalue; +// Post; +// +// if FieldByName('YarnQty').Value = null then +// begin +// GS := 0; // +// end +// else +// begin +// GS := FieldByName('YarnQty').Value; // +// end; +// +// if FieldByName('CycleYarnQty').Value = null then +// begin +// ZGS := 0; //ѭ +// end +// else +// begin +// ZGS := FieldByName('CycleYarnQty').Value; //ѭ +// end; +// +// MF := strtofloatdef(C_ReedWidth.text, 0); //ط +// +// if FieldByName('TestDenier').Value = null then +// begin +// DS := 0; //D +// end +// else +// begin +// DS := FieldByName('TestDenier').Value; //D +// end; +// +// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ +// +// TW := strtofloatdef(C_YarnQty.text, 0); //ͷ +// end; +// if ZGS <> 0 then +// begin +// with CDS_1 do +// begin +// Edit; +// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); +// Post; +// end; +// end; +// JSKZ(); end; procedure TfrmTatClothInfoInput.Tv2Column1PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; - GS, ZGS, MF, DS, WM: double; + GS, ZGS, MF, DS, WM, fsh: double; begin mvalue := TcxTextEdit(Sender).EditingText; @@ -1447,6 +1677,15 @@ begin GS := FieldByName('YarnQty').Value; // end; + if FieldByName('Y_loss').Value = null then + begin + fsh := 0; // + end + else + begin + fsh := FieldByName('Y_loss').Value; // + end; + if FieldByName('CycleYarnQty').Value = null then begin ZGS := 0; //ѭ @@ -1458,23 +1697,23 @@ begin MF := strtofloatdef(C_ReedWidth.text, 0); //ط - if FieldByName('TestDenier').Value = null then + if FieldByName('Z_Number').Value = null then begin - DS := 0; //D + DS := 0; //֧ end else begin - DS := FieldByName('TestDenier').Value; //D + DS := FieldByName('Z_Number').Value; //֧ end; WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ end; - if ZGS <> 0 then + if (ZGS <> 0) and (DS <> 0) then begin with CDS_2 do begin Edit; - FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2); + FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2); Post; end; end; @@ -1533,8 +1772,12 @@ begin Self.C_YarnQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').AsString); Self.C_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString); Self.C_ReedWidth.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString); + DCRQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('DCRQTY').AsString); + C_KCQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('C_KCQTY').AsString); + WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString); + BSQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BSQTY').AsString); + GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString); - Self.Y_Note_PLJ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString); with ADOQuery1 do begin Close; @@ -1566,8 +1809,11 @@ begin FieldByName('TestDenier').Value := ADOQuery1.fieldbyname('Denier').Value; - FieldByName('FF').Value := ADOQuery1.fieldbyname('FF').Value; - FieldByName('ND').Value := ADOQuery1.fieldbyname('ND').Value; + FieldByName('Z_Number').Value := ADOQuery1.fieldbyname('ZS').Value; + + FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value; + FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value; + Post; end; diff --git a/A02基础产品管理/U_TatClothInfo_CB.dfm b/A02基础产品管理/U_TatClothInfo_CB.dfm index 4c48f78..2d80876 100644 --- a/A02基础产品管理/U_TatClothInfo_CB.dfm +++ b/A02基础产品管理/U_TatClothInfo_CB.dfm @@ -777,6 +777,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB object cxTabSheet1: TcxTabSheet Caption = #32463#19997#32452#21512 ImageIndex = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object Panel6: TPanel Left = 0 Top = 0 @@ -1016,6 +1019,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB object cxTabSheet2: TcxTabSheet Caption = #32428#19997#32452#21512 ImageIndex = 1 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object cxGrid4: TcxGrid Left = 0 Top = 0 @@ -1208,6 +1214,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB object cxTabSheet3: TcxTabSheet Caption = #26679#21697#22270#29255 ImageIndex = 2 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object GroupBox1: TGroupBox Left = 0 Top = 0 @@ -1231,6 +1240,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB object cxTabSheet4: TcxTabSheet Caption = #36215#32508#27861 ImageIndex = 3 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object QZF: TMemo Tag = 2 Left = 0 @@ -1282,6 +1294,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB object cxTabSheet5: TcxTabSheet Caption = #31359#32508#27861 ImageIndex = 3 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object CZF: TMemo Tag = 2 Left = 0 @@ -1303,6 +1318,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB object cxTabSheet6: TcxTabSheet Caption = #31359#31576#27861 ImageIndex = 3 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object CKF: TMemo Tag = 2 Left = 0 diff --git a/A02基础产品管理/U_TatClothInfo_CB.pas b/A02基础产品管理/U_TatClothInfo_CB.pas index 12eee0d..7bd9a2b 100644 --- a/A02基础产品管理/U_TatClothInfo_CB.pas +++ b/A02基础产品管理/U_TatClothInfo_CB.pas @@ -24,23 +24,8 @@ uses dxSpreadSheetFunctions, dxSpreadSheetStyles, dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, dxSkinsCore, - dxSkinsDefaultPainters, cxProgressBar, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinWXI; type FdDy = record 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基础资料管理/U_GKInput.dfm b/A05基础资料管理/U_GKInput.dfm index 12d50b8..bfca5f9 100644 --- a/A05基础资料管理/U_GKInput.dfm +++ b/A05基础资料管理/U_GKInput.dfm @@ -86,7 +86,7 @@ inherited frmGKInput: TfrmGKInput end object Label7: TLabel Left = 48 - Top = 182 + Top = 230 Width = 57 Height = 21 Caption = #22791' '#27880 @@ -100,17 +100,39 @@ inherited frmGKInput: TfrmGKInput end object Label1: TLabel Left = 399 - Top = 109 + Top = 108 Width = 64 Height = 21 Caption = #26550#23376#23618#21495 end + object Label4: TLabel + Left = 48 + Top = 186 + Width = 48 + Height = 21 + Caption = #31576#40831#25968 + end + object Label5: TLabel + Left = 399 + Top = 143 + Width = 32 + Height = 21 + Caption = #31576#24133 + end + object Label8: TLabel + Left = 647 + Top = 139 + Width = 16 + Height = 21 + Caption = #8220 + end object GKKH: TcxTextEdit Tag = 2 Left = 159 Top = 105 Properties.OnChange = JZBHPropertiesChange TabOrder = 1 + OnExit = GKKHExit Width = 200 end object GKBH: TcxTextEdit @@ -141,7 +163,7 @@ inherited frmGKInput: TfrmGKInput object Note: TcxMemo Tag = 2 Left = 159 - Top = 182 + Top = 230 TabOrder = 4 Height = 77 Width = 518 @@ -149,11 +171,28 @@ inherited frmGKInput: TfrmGKInput object JZCH: TcxTextEdit Tag = 2 Left = 469 - Top = 105 + Top = 104 Properties.OnChange = JZBHPropertiesChange TabOrder = 5 Width = 200 end + object GKCS: TcxTextEdit + Tag = 2 + Left = 159 + Top = 183 + Properties.OnChange = JZBHPropertiesChange + TabOrder = 6 + OnExit = GKKHExit + Width = 200 + end + object GKwidth: TcxTextEdit + Tag = 2 + Left = 469 + Top = 140 + Properties.OnChange = JZBHPropertiesChange + TabOrder = 7 + Width = 172 + end end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_BaseInfo.ADOLink diff --git a/A05基础资料管理/U_GKInput.pas b/A05基础资料管理/U_GKInput.pas index 0a9b786..9c83b54 100644 --- a/A05基础资料管理/U_GKInput.pas +++ b/A05基础资料管理/U_GKInput.pas @@ -39,6 +39,11 @@ type Note: TcxMemo; Label1: TLabel; JZCH: TcxTextEdit; + Label4: TLabel; + GKCS: TcxTextEdit; + Label5: TLabel; + GKwidth: TcxTextEdit; + Label8: TLabel; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -47,6 +52,7 @@ type procedure TbSaveClick(Sender: TObject); procedure CoareaBtnDnClick(Sender: TObject); procedure JZBHPropertiesChange(Sender: TObject); + procedure GKKHExit(Sender: TObject); private { Private declarations } procedure InitGrid(); @@ -118,7 +124,18 @@ begin end; +procedure TfrmGKInput.GKKHExit(Sender: TObject); +var + FKCS, FKOUHAO: double; +begin + FKCS := StrToFloatDef(GKCS.Text, 0); + FKOUHAO := StrToFloatDef(GKKH.Text, 0); + if FKOUHAO <> 0 then + begin + GKwidth.Text := FloatToStr(RoundFloat(FKCS / FKOUHAO * 2, 2)); + end; +end; procedure TfrmGKInput.TBRafreshClick(Sender: TObject); begin diff --git a/A05基础资料管理/U_GKManage.dfm b/A05基础资料管理/U_GKManage.dfm index 3395e6a..fd56c4b 100644 --- a/A05基础资料管理/U_GKManage.dfm +++ b/A05基础资料管理/U_GKManage.dfm @@ -100,8 +100,6 @@ inherited frmGKManage: TfrmGKManage Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitLeft = 8 - ExplicitTop = 95 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -174,6 +172,20 @@ inherited frmGKManage: TfrmGKManage HeaderAlignmentHorz = taCenter Width = 100 end + object Tv2Column2: TcxGridDBColumn + Caption = #31576#40831#25968 + DataBinding.FieldName = 'GKCS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv2Column8: TcxGridDBColumn + Caption = #31576#24133 + DataBinding.FieldName = 'GKwidth' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end object Tv2Column10: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' @@ -205,7 +217,6 @@ inherited frmGKManage: TfrmGKManage Color = clWhite ParentBackground = False TabOrder = 4 - ExplicitTop = 36 object Label1: TLabel Left = 30 Top = 19 diff --git a/A05基础资料管理/U_GKManage.pas b/A05基础资料管理/U_GKManage.pas index 2764af5..2a210f5 100644 --- a/A05基础资料管理/U_GKManage.pas +++ b/A05基础资料管理/U_GKManage.pas @@ -50,6 +50,8 @@ type Tv2Column5: TcxGridDBColumn; Tv2Column6: TcxGridDBColumn; Tv2Column7: TcxGridDBColumn; + Tv2Column2: TcxGridDBColumn; + Tv2Column8: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/B01基础合同管理/Contract.dproj.local b/B01基础合同管理/Contract.dproj.local index 8202953..6006c2a 100644 --- a/B01基础合同管理/Contract.dproj.local +++ b/B01基础合同管理/Contract.dproj.local @@ -1,85 +1,85 @@  - 1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas - 1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= - 1899/12/30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas= - 1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas - 1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas - 1899/12/30 00:00:00.000.325,=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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm - 1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.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.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas - 1899/12/30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas= - 1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas - 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas - 1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas - 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm - 1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas - 1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas= - 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.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.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas= - 1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas - 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= - 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas= - 1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas - 1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas - 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas - 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm - 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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm - 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm - 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas - 1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899-12-30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas + 1899-12-30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas + 1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas= + 1899-12-30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas + 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas + 1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas= + 1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas + 1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas + 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas + 1899-12-30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm + 1899-12-30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas + 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas + 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas + 1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.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.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas= + 1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= + 1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm + 1899-12-30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas= + 1899-12-30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm + 1899-12-30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm + 1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= + 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm + 1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.325,=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.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm + 1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm + 1899-12-30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas= + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas diff --git a/B01基础合同管理/ProjectGroup1.groupproj.local b/B01基础合同管理/ProjectGroup1.groupproj.local index 2cf24e3..3e8695f 100644 --- a/B01基础合同管理/ProjectGroup1.groupproj.local +++ b/B01基础合同管理/ProjectGroup1.groupproj.local @@ -1,6 +1,6 @@  - + diff --git a/B02基础纱线仓库/U_CJDJ.dfm b/B02基础纱线仓库/U_CJDJ.dfm index f2dc3a1..636aa0a 100644 --- a/B02基础纱线仓库/U_CJDJ.dfm +++ b/B02基础纱线仓库/U_CJDJ.dfm @@ -166,8 +166,9 @@ object frmCJDJ: TfrmCJDJ Top = 87 Width = 216 Height = 28 - EditLabel.Width = 4 + EditLabel.Width = 81 EditLabel.Height = 20 + EditLabel.Caption = 'CJQuantitly' TabOrder = 4 end object CJJL: TcxComboBox diff --git a/B02基础纱线仓库/U_CJDJ.pas b/B02基础纱线仓库/U_CJDJ.pas index d0a5721..5b6ae3a 100644 --- a/B02基础纱线仓库/U_CJDJ.pas +++ b/B02基础纱线仓库/U_CJDJ.pas @@ -7,23 +7,7 @@ uses Dialogs, StdCtrls, ExtCtrls, DB, ADODB, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, Vcl.ComCtrls, dxCore, cxDateUtils, dxSkinsCore, dxSkinsDefaultPainters, cxTextEdit, cxMaskEdit, cxDropDownEdit, - cxCalendar, cxButtonEdit, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + cxCalendar, cxButtonEdit, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmCJDJ = class(TForm) @@ -93,7 +77,7 @@ end; procedure TfrmCJDJ.Button1Click(Sender: TObject); begin -if (Trim(CJJL.Text) = 'ϸ') and (not SZ.Checked and not QL.Checked and not TG.Checked and not MJ.Checked) then + if (Trim(CJJL.Text) = 'ϸ') and (not SZ.Checked and not QL.Checked and not TG.Checked and not MJ.Checked) then begin Application.MessageBox('дݣ', 'ʾ', MB_ICONWARNING); Exit; @@ -147,14 +131,10 @@ begin CJer.text := ADOQueryCmd.fieldbyname('CJer').asstring; CJQuantitly.text := ADOQueryCmd.fieldbyname('CJQuantitly').asstring; CJJL.text := ADOQueryCmd.fieldbyname('CJJL').asstring; - SZ.Checked := (ADOQueryCmd.fieldbyname('SZ').AsString = '1') or - (ADOQueryCmd.fieldbyname('SZ').AsBoolean); - QL.Checked := (ADOQueryCmd.fieldbyname('QL').AsString = '1') or - (ADOQueryCmd.fieldbyname('QL').AsBoolean); - TG.Checked := (ADOQueryCmd.fieldbyname('TG').AsString = '1') or - (ADOQueryCmd.fieldbyname('TG').AsBoolean); - MJ.Checked := (ADOQueryCmd.fieldbyname('MJ').AsString = '1') or - (ADOQueryCmd.fieldbyname('MJ').AsBoolean); + SZ.Checked := (ADOQueryCmd.fieldbyname('SZ').AsString = '1') or (ADOQueryCmd.fieldbyname('SZ').AsBoolean); + QL.Checked := (ADOQueryCmd.fieldbyname('QL').AsString = '1') or (ADOQueryCmd.fieldbyname('QL').AsBoolean); + TG.Checked := (ADOQueryCmd.fieldbyname('TG').AsString = '1') or (ADOQueryCmd.fieldbyname('TG').AsBoolean); + MJ.Checked := (ADOQueryCmd.fieldbyname('MJ').AsString = '1') or (ADOQueryCmd.fieldbyname('MJ').AsBoolean); end; end; diff --git a/B02基础纱线仓库/U_DataLink.pas b/B02基础纱线仓库/U_DataLink.pas index ffe9941..ba00914 100644 --- a/B02基础纱线仓库/U_DataLink.pas +++ b/B02基础纱线仓库/U_DataLink.pas @@ -7,23 +7,8 @@ uses Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, System.ImageList, U_BaseDataLink, dxCore, cxLocalization, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxLayoutLookAndFeels, - dxSkinsCore, dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinWXI; type TMyThread = class(TThread) diff --git a/B02基础纱线仓库/U_YarnInEdit.pas b/B02基础纱线仓库/U_YarnInEdit.pas index 9e97eb9..94be0ac 100644 --- a/B02基础纱线仓库/U_YarnInEdit.pas +++ b/B02基础纱线仓库/U_YarnInEdit.pas @@ -12,22 +12,7 @@ uses cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, ComObj, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmYarnInEdit = class(TfrmBaseInput) diff --git a/B02基础纱线仓库/U_YarnInList.dfm b/B02基础纱线仓库/U_YarnInList.dfm index 860aaa6..f04b976 100644 --- a/B02基础纱线仓库/U_YarnInList.dfm +++ b/B02基础纱线仓库/U_YarnInList.dfm @@ -158,6 +158,7 @@ inherited frmYarnInList: TfrmYarnInList Color = clWhite ParentBackground = False TabOrder = 4 + ExplicitWidth = 304 object Label3: TLabel Left = 248 Top = 46 @@ -282,7 +283,7 @@ inherited frmYarnInList: TfrmYarnInList TabOrder = 6 ExplicitLeft = 2 ExplicitTop = 2 - ExplicitWidth = 1536 + ExplicitWidth = 300 ExplicitHeight = 37 inherited lbl2: TLabel Width = 16 diff --git a/B02基础纱线仓库/U_YarnInList.pas b/B02基础纱线仓库/U_YarnInList.pas index ab853ab..fde9c5a 100644 --- a/B02基础纱线仓库/U_YarnInList.pas +++ b/B02基础纱线仓库/U_YarnInList.pas @@ -14,23 +14,8 @@ uses cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, cxMaskEdit, FrameDateSel, U_InputBoxSingleNumber, dxSkinsCore, - dxSkinsDefaultPainters, cxProgressBar, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinWXI; type TfrmYarnInList = class(TfrmBaseList) diff --git a/B02基础纱线仓库/U_YarnInfoInPut.dfm b/B02基础纱线仓库/U_YarnInfoInPut.dfm index c8718b7..82a1d22 100644 --- a/B02基础纱线仓库/U_YarnInfoInPut.dfm +++ b/B02基础纱线仓库/U_YarnInfoInPut.dfm @@ -77,6 +77,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut ParentCtl3D = False ParentFont = False TabOrder = 1 + ExplicitTop = 36 object Label2: TLabel Left = 16 Top = 159 @@ -272,6 +273,19 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut Font.Style = [] ParentFont = False end + object Label16: TLabel + Left = 796 + Top = 34 + Width = 240 + Height = 21 + Caption = #27880#65306#21697#21517'='#25104#20998'+'#25903#25968'+'#39068#33394'+'#32442#27861 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end object Brand: TcxTextEdit Tag = 2 Left = 68 diff --git a/B02基础纱线仓库/U_YarnInfoInPut.pas b/B02基础纱线仓库/U_YarnInfoInPut.pas index eca9993..307e29b 100644 --- a/B02基础纱线仓库/U_YarnInfoInPut.pas +++ b/B02基础纱线仓库/U_YarnInfoInPut.pas @@ -56,6 +56,7 @@ type CJ: TcxButtonEdit; Label15: TLabel; LLSH: TcxTextEdit; + Label16: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); diff --git a/B02基础纱线仓库/U_YarnInfoList.pas b/B02基础纱线仓库/U_YarnInfoList.pas index 54c5bfb..82c8b7b 100644 --- a/B02基础纱线仓库/U_YarnInfoList.pas +++ b/B02基础纱线仓库/U_YarnInfoList.pas @@ -13,23 +13,8 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, dxScrollbarAnnotations, cxContainer, cxMaskEdit, - dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI; type TfrmYarnInfoList = class(TfrmBaseList) diff --git a/B02基础纱线仓库/U_YarnOutEdit.dfm b/B02基础纱线仓库/U_YarnOutEdit.dfm index 15f9c30..da3ab87 100644 --- a/B02基础纱线仓库/U_YarnOutEdit.dfm +++ b/B02基础纱线仓库/U_YarnOutEdit.dfm @@ -9,7 +9,6 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit Font.Height = -16 Position = poMainFormCenter OnClose = FormClose - ExplicitLeft = -197 ExplicitWidth = 1422 ExplicitHeight = 486 PixelsPerInch = 96 diff --git a/B02基础纱线仓库/U_YarnOutEdit.pas b/B02基础纱线仓库/U_YarnOutEdit.pas index 54dd5a5..a34f780 100644 --- a/B02基础纱线仓库/U_YarnOutEdit.pas +++ b/B02基础纱线仓库/U_YarnOutEdit.pas @@ -12,22 +12,7 @@ uses StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmYarnOutEdit = class(TfrmBaseInput) @@ -81,8 +66,7 @@ type procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ToolButton1Click(Sender: TObject); procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); - procedure Tv1Column7PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure Tv1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); private { Private declarations } function SaveCKData(): Boolean; @@ -445,8 +429,7 @@ begin end; -procedure TfrmYarnOutEdit.Tv1Column7PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmYarnOutEdit.Tv1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmTatPlanSel := TfrmTatPlanSel.Create(Application); diff --git a/B02基础纱线仓库/U_YarnOutList.dfm b/B02基础纱线仓库/U_YarnOutList.dfm index cbf3781..08251b2 100644 --- a/B02基础纱线仓库/U_YarnOutList.dfm +++ b/B02基础纱线仓库/U_YarnOutList.dfm @@ -112,7 +112,7 @@ inherited frmYarnOutList: TfrmYarnOutList Color = clWhite ParentBackground = False TabOrder = 4 - ExplicitTop = 24 + ExplicitWidth = 304 object Label3: TLabel Left = 251 Top = 86 @@ -205,7 +205,7 @@ inherited frmYarnOutList: TfrmYarnOutList TabOrder = 3 ExplicitLeft = 2 ExplicitTop = 2 - ExplicitWidth = 1475 + ExplicitWidth = 300 ExplicitHeight = 37 inherited lbl2: TLabel Width = 16 diff --git a/B02基础纱线仓库/U_YarnOutList.pas b/B02基础纱线仓库/U_YarnOutList.pas index 58ced1e..e6de03b 100644 --- a/B02基础纱线仓库/U_YarnOutList.pas +++ b/B02基础纱线仓库/U_YarnOutList.pas @@ -13,23 +13,8 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxScrollbarAnnotations, cxMaskEdit, - FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, + dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmYarnOutList = class(TfrmBaseList) diff --git a/B02基础纱线仓库/U_YarnOutReturnList.dfm b/B02基础纱线仓库/U_YarnOutReturnList.dfm index 7f760c2..beb9faa 100644 --- a/B02基础纱线仓库/U_YarnOutReturnList.dfm +++ b/B02基础纱线仓库/U_YarnOutReturnList.dfm @@ -97,6 +97,7 @@ inherited frmYarnOutReturnList: TfrmYarnOutReturnList Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitWidth = 304 object Label3: TLabel Left = 469 Top = 47 @@ -171,8 +172,14 @@ inherited frmYarnOutReturnList: TfrmYarnOutReturnList TabOrder = 3 ExplicitLeft = 2 ExplicitTop = 2 - ExplicitWidth = 1676 + ExplicitWidth = 300 ExplicitHeight = 37 + inherited lbl2: TLabel + Width = 16 + Height = 21 + ExplicitWidth = 16 + ExplicitHeight = 21 + end end object IOType: TcxComboBox Left = 315 diff --git a/B02基础纱线仓库/U_YarnOutReturnList.pas b/B02基础纱线仓库/U_YarnOutReturnList.pas index 67f6967..25610ba 100644 --- a/B02基础纱线仓库/U_YarnOutReturnList.pas +++ b/B02基础纱线仓库/U_YarnOutReturnList.pas @@ -14,23 +14,7 @@ uses cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, cxContainer, dxScrollbarAnnotations, cxMaskEdit, FrameDateSel, U_BaseList, System.ImageList, Vcl.ImgList, dxSkinsCore, - dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmYarnOutReturnList = class(TfrmBaseHelp) diff --git a/B02基础纱线仓库/U_YarnPurOutReturn.dfm b/B02基础纱线仓库/U_YarnPurOutReturn.dfm index d771a68..02aa23c 100644 --- a/B02基础纱线仓库/U_YarnPurOutReturn.dfm +++ b/B02基础纱线仓库/U_YarnPurOutReturn.dfm @@ -13,7 +13,7 @@ inherited frmYarnPurOutReturn: TfrmYarnPurOutReturn ExplicitWidth = 911 ExplicitHeight = 238 PixelsPerInch = 96 - TextHeight = 19 + TextHeight = 21 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 @@ -66,84 +66,84 @@ inherited frmYarnPurOutReturn: TfrmYarnPurOutReturn Left = 39 Top = 51 Width = 32 - Height = 19 + Height = 21 Caption = #32534#21495 end object Label8: TLabel Left = 583 Top = 12 Width = 64 - Height = 19 + Height = 21 Caption = #23384#25918#21333#20301 end object lbl5: TLabel Left = 39 Top = 12 Width = 32 - Height = 19 + Height = 21 Caption = #26085#26399 end object Label10: TLabel Left = 583 Top = 51 Width = 32 - Height = 19 + Height = 21 Caption = #20214#25968 end object Label11: TLabel Left = 583 Top = 90 Width = 32 - Height = 19 + Height = 21 Caption = #25968#37327 end object Label6: TLabel Left = 311 Top = 51 Width = 32 - Height = 19 + Height = 21 Caption = #21697#21517 end object Label9: TLabel Left = 311 Top = 12 Width = 48 - Height = 19 + Height = 21 Caption = #21152#24037#21378 end object Label4: TLabel Left = 39 Top = 90 Width = 32 - Height = 19 + Height = 21 Caption = #39068#33394 end object Label5: TLabel Left = 311 Top = 90 Width = 48 - Height = 19 + Height = 21 Caption = #28504#36890#21495 end object Label1: TLabel Left = 39 Top = 135 Width = 64 - Height = 19 + Height = 21 Caption = #21152#24037#21333#20215 end object Label3: TLabel Left = 311 Top = 135 Width = 64 - Height = 19 + Height = 21 Caption = #21407#26009#21333#20215 end object Label7: TLabel Left = 583 Top = 135 Width = 64 - Height = 19 + Height = 21 Caption = #33394#32433#21333#20215 end object Y_Code: TcxTextEdit @@ -267,6 +267,9 @@ inherited frmYarnPurOutReturn: TfrmYarnPurOutReturn Left = 551 Top = 433 end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + end object ADOQueryTemp: TADOQuery Connection = DataLink_YarnStk.ADOLink LockType = ltReadOnly diff --git a/B02基础纱线仓库/U_YarnPurOutReturn.pas b/B02基础纱线仓库/U_YarnPurOutReturn.pas index 0954525..6a4ba5c 100644 --- a/B02基础纱线仓库/U_YarnPurOutReturn.pas +++ b/B02基础纱线仓库/U_YarnPurOutReturn.pas @@ -13,25 +13,9 @@ uses RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator, U_BaseInput, cxContainer, - dxCore, cxDateUtils, cxCurrencyEdit, cxMemo, System.ImageList, - Vcl.ImgList, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + cxNavigator, U_BaseInput, cxContainer, dxCore, cxDateUtils, cxCurrencyEdit, + cxMemo, System.ImageList, Vcl.ImgList, dxSkinsCore, dxSkinsDefaultPainters, + cxImageList, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmYarnPurOutReturn = class(TfrmBaseInput) diff --git a/B02基础纱线仓库/YarnStk.dproj.local b/B02基础纱线仓库/YarnStk.dproj.local index f66b681..7d2fb73 100644 --- a/B02基础纱线仓库/YarnStk.dproj.local +++ b/B02基础纱线仓库/YarnStk.dproj.local @@ -1,98 +1,98 @@  - 1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas - 1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas - 1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.147,=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.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm - 1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas - 1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm - 1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm - 1899/12/30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas - 1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas - 1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas= - 1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas - 1899/12/30 00:00:00.000.878,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.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas - 1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas - 1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas - 1899/12/30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas - 1899/12/30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas - 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas - 1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas - 1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm - 1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.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.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas - 1899/12/30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas - 1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas= - 1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas - 1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj - 1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm - 1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas= - 1899/12/30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas - 1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm - 1899/12/30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas - 1899/12/30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm - 1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm - 1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm - 1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas - 1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas - 1899/12/30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas - 1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas - 1899/12/30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas - 1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas - 1899/12/30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas - 1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas - 1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm - 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.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm - 1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas - 1899/12/30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 2025/06/07 16:01:49.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.687,=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.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas + 1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas + 1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm + 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm + 1899-12-30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas + 1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas= + 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas + 1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.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.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.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas + 1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas + 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm + 1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas + 1899-12-30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas + 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas + 1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas + 1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm + 1899-12-30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899-12-30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas + 1899-12-30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas + 1899-12-30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas + 1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm + 1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas= + 1899-12-30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm + 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas + 1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas + 1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas + 1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas= + 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas + 1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm + 1899-12-30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas + 1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas + 1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas + 1899-12-30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas + 1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.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.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas= + 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm + 1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas + 1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.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.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm + 1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas + 1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas + 1899-12-30 00:00:00.000.425,=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.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899-12-30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas + 1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas + 2025-06-07 16:01:49.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas diff --git a/B02基础纱线仓库/YarnStk.identcache b/B02基础纱线仓库/YarnStk.identcache index f13bbb284d7ad68b797038f0e0693ea09473c05b..0ec69bc2733721d4d94302fe80d4c7940f48b1d6 100644 GIT binary patch delta 119 zcmca5drNl0(#?#F2bm_%WHg@az|1lE0H4%k2~O?FZ<)_duHn|4ypB(3avrPfZwnV(B@@&Zm%Alr3vE}z8Yv%IdGW!R&cCQo43oWw3Mc|V)P - 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.422,=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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 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.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas - 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.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.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.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.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas= - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.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.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj - 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.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.422,=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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 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.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.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.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.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas= + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.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.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas + 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 diff --git a/B04采购计划管理/U_DataLink.pas b/B04采购计划管理/U_DataLink.pas index 1a0d923..91b9a07 100644 --- a/B04采购计划管理/U_DataLink.pas +++ b/B04采购计划管理/U_DataLink.pas @@ -7,23 +7,7 @@ uses Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, System.ImageList, U_BaseDataLink, cxLocalization, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxCore, dxLayoutLookAndFeels, dxSkinsCore, - dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TMyThread = class(TThread) diff --git a/B04采购计划管理/U_YarnPurchasePlanList.pas b/B04采购计划管理/U_YarnPurchasePlanList.pas index c59b0fe..814ece9 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList.pas +++ b/B04采购计划管理/U_YarnPurchasePlanList.pas @@ -13,23 +13,8 @@ uses cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, dxScrollbarAnnotations, FrameDateSel, cxContainer, - cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI; type TfrmYarnPurchasePlanList = class(TfrmBaseList) diff --git a/B04采购计划管理/U_YarnPurchasePlanList_ZZD.dfm b/B04采购计划管理/U_YarnPurchasePlanList_ZZD.dfm index ee3c0d9..f93bd90 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList_ZZD.dfm +++ b/B04采购计划管理/U_YarnPurchasePlanList_ZZD.dfm @@ -310,6 +310,7 @@ inherited frmYarnPurchasePlanList_ZZD: TfrmYarnPurchasePlanList_ZZD Color = clWhite ParentBackground = False TabOrder = 5 + ExplicitWidth = 304 object Label4: TLabel Left = 532 Top = 45 @@ -374,7 +375,7 @@ inherited frmYarnPurchasePlanList_ZZD: TfrmYarnPurchasePlanList_ZZD TabOrder = 3 ExplicitLeft = 2 ExplicitTop = 2 - ExplicitWidth = 1360 + ExplicitWidth = 300 ExplicitHeight = 37 inherited lbl2: TLabel Width = 16 @@ -420,6 +421,7 @@ inherited frmYarnPurchasePlanList_ZZD: TfrmYarnPurchasePlanList_ZZD Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom + ExplicitWidth = 8 end inherited loadProcess: TPanel Left = 454 diff --git a/B04采购计划管理/U_YarnPurchasePlanList_ZZD.pas b/B04采购计划管理/U_YarnPurchasePlanList_ZZD.pas index f5479fb..f9dfb5e 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList_ZZD.pas +++ b/B04采购计划管理/U_YarnPurchasePlanList_ZZD.pas @@ -13,23 +13,8 @@ uses cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, dxScrollbarAnnotations, FrameDateSel, cxContainer, - cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI; type TfrmYarnPurchasePlanList_ZZD = class(TfrmBaseList) diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.dfm b/B04采购计划管理/U_YarnPurchasePlanPut.dfm index 9ee567e..fb5f4ea 100644 --- a/B04采购计划管理/U_YarnPurchasePlanPut.dfm +++ b/B04采购计划管理/U_YarnPurchasePlanPut.dfm @@ -2,7 +2,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Left = 219 Top = 76 Caption = #37319#36141#35745#21010#24405#20837 - ClientHeight = 651 + ClientHeight = 718 ClientWidth = 1524 Color = clWhite Font.Charset = GB2312_CHARSET @@ -11,7 +11,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Position = poScreenCenter WindowState = wsMaximized ExplicitWidth = 1540 - ExplicitHeight = 690 + ExplicitHeight = 757 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -119,10 +119,11 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Left = 0 Top = 186 Width = 1479 - Height = 465 + Height = 532 Align = alClient BorderStyle = cxcbsNone TabOrder = 2 + ExplicitHeight = 465 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -623,12 +624,14 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Left = 1479 Top = 186 Width = 45 - Height = 465 + Height = 532 Align = alRight BorderStyle = cxcbsNone PopupMenu = pm_sub TabOrder = 4 Visible = False + ExplicitLeft = 1485 + ExplicitTop = 192 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.pas b/B04采购计划管理/U_YarnPurchasePlanPut.pas index e806b0b..3e3b143 100644 --- a/B04采购计划管理/U_YarnPurchasePlanPut.pas +++ b/B04采购计划管理/U_YarnPurchasePlanPut.pas @@ -15,23 +15,8 @@ uses cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, System.ImageList, Vcl.ImgList, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, dxScrollbarAnnotations, dxCore, - cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters, + dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmYarnPurchasePlanPut = class(TfrmBaseInput) @@ -189,12 +174,12 @@ begin while not eof do begin FPiece := Fieldbyname('Piece').AsFloat; - FPieceKG := Fieldbyname('PieceKG').AsFloat; +// FPieceKG := Fieldbyname('PieceKG').AsFloat; FPrice := Fieldbyname('Price').AsFloat; //˰ FSL := StrToFloatdef(ShuiLv.text, 0); with Order_Sub do begin - FQty := RoundFloat(FPieceKG * FPiece, 2); + FQty := Fieldbyname('Qty').AsFloat; FAmount := RoundFloat(FQty * FPrice, 2); //˰ FAmount2 := RoundFloat(FQty * FPrice2 * FSL, 2); //˰ @@ -805,8 +790,7 @@ begin with Order_Sub do begin Edit; - FieldByName('Qty').Value := FQty; - FieldByName('Price').Value := FPrice; + FieldByName('Amount').Value := FAmount; Post; end; diff --git a/B04采购计划管理/U_YarnPurchasePlanPut_ZZD.pas b/B04采购计划管理/U_YarnPurchasePlanPut_ZZD.pas index a786f52..c42a1b5 100644 --- a/B04采购计划管理/U_YarnPurchasePlanPut_ZZD.pas +++ b/B04采购计划管理/U_YarnPurchasePlanPut_ZZD.pas @@ -15,23 +15,8 @@ uses cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, System.ImageList, Vcl.ImgList, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, dxScrollbarAnnotations, dxCore, - cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters, + dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmYarnPurchasePlanPut_ZZD = class(TfrmBaseInput) diff --git a/E01梭织生产计划/TatPlan.dpr b/E01梭织生产计划/TatPlan.dpr index cb8a4e7..2b983b7 100644 --- a/E01梭织生产计划/TatPlan.dpr +++ b/E01梭织生产计划/TatPlan.dpr @@ -43,7 +43,8 @@ uses U_TatGYList in 'U_TatGYList.pas' {frmTatGYList}, U_TatGYInPut in 'U_TatGYInPut.pas' {frmTatGYInPut}, U_TatGYSel in '..\E00֯ͨô\U_TatGYSel.pas' {frmTatGYSel}, - U_TatPlanSel in '..\E00֯ͨô\U_TatPlanSel.pas' {frmTatPlanSel}; + U_TatPlanSel in '..\E00֯ͨô\U_TatPlanSel.pas' {frmTatPlanSel}, + U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload}; {$R *.res} diff --git a/E01梭织生产计划/TatPlan.dproj b/E01梭织生产计划/TatPlan.dproj index ae55119..92ff511 100644 --- a/E01梭织生产计划/TatPlan.dproj +++ b/E01梭织生产计划/TatPlan.dproj @@ -206,6 +206,10 @@
frmTatPlanSel
dfm + +
frmPictureUpload
+ dfm + Cfg_2 Base diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index 66121b4..8085fd5 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,76 +1,77 @@  - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 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.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas - 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm - 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas - 1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj + 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas 1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas= + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm + 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm + 1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas + 1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.555,=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.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas - 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas - 1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas - 1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas - 1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas + 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm + 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas + 1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm + 1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas + 1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm + 1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm + 1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas + 1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas 1899-12-30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas - 1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm - 1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas - 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas - 1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas + 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas 1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas - 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm + 1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm + 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas 1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm + 1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas + 1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas 1899-12-30 00:00:00.000.297,=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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas + 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm 1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas - 1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas - 1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm + 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas 1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas + 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm + 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 2025-08-11 11:19:55.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas @@ -93,6 +94,8 @@ + + diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache index 83807dd3285afd0ade96688ace98c08871937c7f..1b8b8d34443a64fabb9c91cc338af62243b2fd10 100644 GIT binary patch delta 46 zcmaDQen^5*eIw&V7Dn&M7n$Xlf}k@k*RgZ6o7Fmd#qM66^pgw*-p- diff --git a/E01梭织生产计划/U_TatPlanInPut.dfm b/E01梭织生产计划/U_TatPlanInPut.dfm index 6981acb..331eaab 100644 --- a/E01梭织生产计划/U_TatPlanInPut.dfm +++ b/E01梭织生产计划/U_TatPlanInPut.dfm @@ -2,7 +2,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 212 Top = 14 Caption = #36710#38388#29983#20135#35745#21010#21333#24405#20837 - ClientHeight = 766 + ClientHeight = 860 ClientWidth = 1540 Color = clWhite Font.Charset = GB2312_CHARSET @@ -10,7 +10,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Position = poScreenCenter WindowState = wsMaximized ExplicitWidth = 1556 - ExplicitHeight = 805 + ExplicitHeight = 899 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -65,96 +65,55 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 0 Top = 30 Width = 1540 - Height = 363 + Height = 499 Align = alTop BevelInner = bvNone BevelOuter = bvNone Ctl3D = False ParentCtl3D = False TabOrder = 1 + ExplicitTop = 36 object Label2: TLabel - Left = 857 - Top = 9 - Width = 80 - Height = 21 - Caption = #19979#21333#26085#26399#65306 - end - object Label3: TLabel - Left = 294 - Top = 81 - Width = 80 - Height = 21 - Caption = #22383#24067#21517#31216#65306 - end - object Label14: TLabel - Left = 857 - Top = 44 - Width = 80 - Height = 21 - Caption = #20844#21496#25260#22836#65306 - end - object Label5: TLabel - Left = 582 - Top = 9 - Width = 80 - Height = 21 - Caption = #20132#36135#26085#26399#65306 - end - object Label8: TLabel - Left = 294 - Top = 155 - Width = 48 - Height = 21 - Caption = #21305#25968#65306 - end - object Label12: TLabel - Left = 857 - Top = 155 - Width = 73 - Height = 21 - Caption = #21305' '#38271#65306 - end - object Label13: TLabel - Left = 582 - Top = 155 - Width = 74 - Height = 21 - Caption = #24635' '#25968' '#37327#65306 - end - object Label26: TLabel - Left = 9 - Top = 81 - Width = 80 - Height = 21 - Caption = #22383#24067#32534#21495#65306 - end - object Label31: TLabel - Left = 857 - Top = 242 - Width = 73 - Height = 21 - Caption = #35268' '#26684#65306 - end - object Label47: TLabel - Left = 582 - Top = 44 - Width = 48 - Height = 21 - Caption = #23458#25143#65306 - end - object Label43: TLabel - Left = 294 - Top = 44 + Left = 922 + Top = 5 Width = 64 Height = 21 - Caption = #19994#21153#21592#65306 + Caption = #19979#21333#26085#26399 + end + object Label5: TLabel + Left = 689 + Top = 11 + Width = 64 + Height = 21 + Caption = #20132#36135#26085#26399 + end + object Label8: TLabel + Left = 689 + Top = 45 + Width = 32 + Height = 21 + Caption = #21305#25968 + end + object Label13: TLabel + Left = 922 + Top = 42 + Width = 58 + Height = 21 + Caption = #24635' '#25968' '#37327 + end + object Label47: TLabel + Left = 336 + Top = 45 + Width = 32 + Height = 21 + Caption = #23458#25143 end object lbl2: TLabel - Left = 294 + Left = 336 Top = 9 - Width = 80 + Width = 64 Height = 21 - Caption = #29983#20135#31867#22411#65306 + Caption = #29983#20135#31867#22411 end object Label7: TLabel Left = 9 @@ -163,13 +122,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Height = 21 Caption = #32455#36896#21333#21495#65306 end - object Label4: TLabel - Left = 1126 - Top = 44 - Width = 80 - Height = 21 - Caption = #21152#24037#21333#20301#65306 - end object Label35: TLabel Left = 9 Top = 44 @@ -177,200 +129,320 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Height = 21 Caption = #21512#21516#21495#65306 end - object Label10: TLabel - Left = 1126 - Top = 9 - Width = 78 + object Label3: TLabel + Left = 11 + Top = 82 + Width = 71 Height = 21 - Caption = #26426' '#22411#65306 - end - object Label9: TLabel - Left = 9 - Top = 188 - Width = 48 - Height = 21 - Caption = #31576#24133#65306 + Caption = #20135#21697#32534#21495'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label6: TLabel - Left = 582 - Top = 81 - Width = 112 + Left = 336 + Top = 82 + Width = 71 Height = 21 - Caption = #29702#35770#24179#26041#20811#37325#65306 - end - object Label11: TLabel - Left = 582 - Top = 188 - Width = 64 - Height = 21 - Caption = #24635#22836#32441#65306 - end - object Label15: TLabel - Left = 582 - Top = 117 - Width = 48 - Height = 21 - Caption = #32428#23494#65306 - end - object Label16: TLabel - Left = 857 - Top = 81 - Width = 112 - Height = 21 - Caption = #23454#27979#24179#26041#20811#37325#65306 - end - object Label17: TLabel - Left = 294 - Top = 188 - Width = 48 - Height = 21 - Caption = #31576#21495#65306 + Caption = #20135#21697#21517#31216'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label55: TLabel - Left = 65 - Top = 409 - Width = 80 - Height = 21 - Caption = #31359#32508#39034#24207#65306 - Visible = False - end - object Label18: TLabel - Left = 9 - Top = 242 + Left = 11 + Top = 364 Width = 48 Height = 21 - Caption = #22791#27880#65306 + Caption = #31359#32508#27861 end - object Label1: TLabel - Left = 1314 - Top = 347 - Width = 96 + object Label9: TLabel + Left = 336 + Top = 232 + Width = 39 Height = 21 - Caption = #19979#25512#22383#24067#25968#65306 - Visible = False + Caption = #31576#21495'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end - object Label19: TLabel - Left = 1314 - Top = 382 - Width = 80 + object Label11: TLabel + Left = 922 + Top = 156 + Width = 39 Height = 21 - Caption = #35746#21333#25968#37327#65306 - Visible = False + Caption = #32428#23494'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 689 + Top = 195 + Width = 55 + Height = 21 + Caption = #24635#22836#32441'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 336 + Top = 157 + Width = 32 + Height = 21 + Caption = #20811#37325 + end + object Label16: TLabel + Left = 11 + Top = 157 + Width = 39 + Height = 21 + Caption = #38376#24133'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object lbl1: TLabel + Left = 11 + Top = 195 + Width = 103 + Height = 21 + Caption = #25972#32463#24037#33402#32534#21495'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label17: TLabel + Left = 336 + Top = 195 + Width = 103 + Height = 21 + Caption = #25972#32463#24037#33402#21517#31216'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label18: TLabel + Left = 922 + Top = 119 + Width = 32 + Height = 21 + Caption = #33394#21495 end object Label20: TLabel - Left = 857 - Top = 188 - Width = 80 + Left = 689 + Top = 119 + Width = 32 Height = 21 - Caption = #19978#26426#38376#24133#65306 + Caption = #39068#33394 end object Label21: TLabel - Left = 1126 - Top = 188 - Width = 80 + Left = 11 + Top = 119 + Width = 32 Height = 21 - Caption = #25104#21697#38376#24133#65306 + Caption = #33457#22411 end object Label22: TLabel - Left = 1126 - Top = 81 - Width = 80 + Left = 336 + Top = 119 + Width = 32 Height = 21 - Caption = #29256#26412#32534#21495#65306 + Caption = #27454#21495 end object Label23: TLabel - Left = 857 - Top = 117 - Width = 78 + Left = 922 + Top = 81 + Width = 32 Height = 21 - Caption = #39068' '#33394#65306 + Caption = #35268#26684 end object Label24: TLabel - Left = 294 - Top = 117 - Width = 112 + Left = 689 + Top = 82 + Width = 32 Height = 21 - Caption = #25972#32463#24037#33402#21517#31216#65306 + Caption = #25104#20998 end object Label25: TLabel - Left = 9 - Top = 117 - Width = 112 + Left = 689 + Top = 157 + Width = 39 Height = 21 - Caption = #25972#32463#24037#33402#32534#21495#65306 + Caption = #32463#23494'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 11 + Top = 232 + Width = 71 + Height = 21 + Caption = #38050#31576#32534#21495'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label27: TLabel - Left = 9 - Top = 155 - Width = 112 + Left = 689 + Top = 232 + Width = 39 Height = 21 - Caption = #32455#36896#24037#33402#21333#21495#65306 - end - object Label28: TLabel - Left = 8 - Top = 291 - Width = 431 - Height = 63 - Caption = #32463#32433#31859#24212#29992#37327'='#26681#25968'/'#24635#26681#25968'*'#22836#32441'*'#20998#29305'(Dtex)*(1+'#25439#32791')/9000'#10#13#10 - Font.Charset = GB2312_CHARSET + Caption = #31576#24133'*' + Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False end + object Label30: TLabel + Left = 922 + Top = 233 + Width = 48 + Height = 21 + Caption = #31576#40831#25968 + end + object Label31: TLabel + Left = 11 + Top = 269 + Width = 48 + Height = 21 + Caption = #36793#32433#25968 + end + object Label32: TLabel + Left = 336 + Top = 269 + Width = 71 + Height = 21 + Caption = #22320#20256#20837#25968'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 689 + Top = 269 + Width = 64 + Height = 21 + Caption = #36793#31359#20837#27861 + end + object Label34: TLabel + Left = 11 + Top = 307 + Width = 48 + Height = 21 + Caption = #32508#39029#25968 + end + object Label36: TLabel + Left = 336 + Top = 307 + Width = 48 + Height = 21 + Caption = #32428#29273#23494 + end + object Label37: TLabel + Left = 689 + Top = 307 + Width = 55 + Height = 21 + Caption = #26085#20135#37327'*' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label38: TLabel + Left = 922 + Top = 306 + Width = 64 + Height = 21 + Caption = #33853#24067#31859#25968 + end + object Label39: TLabel + Left = 1146 + Top = 121 + Width = 32 + Height = 21 + Caption = #26426#22411 + end + object Label1: TLabel + Left = 11 + Top = 457 + Width = 615 + Height = 21 + Caption = #27880' '#32428#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#32428#23494'*'#65288#31576#24133'+'#25439#32791#65289'*0.059 / '#25903#25968' *'#26681#25968'/'#24490#29615#26681#25968'* 1.08' + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end object Label29: TLabel - Left = 7 - Top = 317 - Width = 454 + Left = 11 + Top = 430 + Width = 392 Height = 21 - Caption = #32428#32433#31859#24212#29992#37327'='#26681#25968'/'#24635#26681#25968'*('#38376#24133'+'#25439#32791')*'#20998#29305'(Dtex)*'#32428#23494'/9000' - Font.Charset = GB2312_CHARSET - Font.Color = clRed + Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#20840#24133#26681#25968'*0.059/'#25903#25968'*1.08' + Font.Charset = ANSI_CHARSET + Font.Color = clBlue Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False end - object OrdPieceLen: TcxTextEdit - Tag = 2 - Left = 963 - Top = 149 - Properties.OnChange = OrdPieceLenPropertiesChange - TabOrder = 2 - OnKeyPress = ConNoKeyPress - Width = 150 - end object OrdPiece: TcxTextEdit Tag = 2 - Left = 409 - Top = 152 - Properties.OnChange = OrdPiecePropertiesChange - TabOrder = 3 + Left = 766 + Top = 42 + TabOrder = 1 OnKeyPress = ConNoKeyPress Width = 150 end object OrdQty: TcxTextEdit Tag = 2 - Left = 688 - Top = 149 - Properties.OnChange = OrdQtyPropertiesChange - TabOrder = 1 - OnKeyPress = ConNoKeyPress - Width = 150 - end - object C_Name: TcxTextEdit - Tag = 2 - Left = 409 - Top = 77 - TabOrder = 0 - OnKeyPress = ConNoKeyPress - Width = 150 - end - object Saleser: TcxTextEdit - Left = 409 + Left = 986 Top = 40 - TabOrder = 4 + Properties.OnChange = OrdQtyPropertiesChange + TabOrder = 0 OnKeyPress = ConNoKeyPress Width = 150 end @@ -378,159 +450,51 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 117 Top = 5 Enabled = False - TabOrder = 5 + TabOrder = 2 OnKeyPress = ConNoKeyPress Width = 150 end object ConMId: TcxTextEdit Tag = 2 - Left = 1025 - Top = 356 + Left = 1257 + Top = 252 Enabled = False - TabOrder = 6 + TabOrder = 3 Visible = False OnKeyPress = ConNoKeyPress Width = 120 end object ConSId: TcxTextEdit Tag = 2 - Left = 1169 - Top = 355 + Left = 1329 + Top = 193 Enabled = False - TabOrder = 7 + TabOrder = 4 Visible = False OnKeyPress = ConNoKeyPress Width = 120 end - object ThroughHealdOrder: TcxMemo - Tag = 2 - Left = 139 - Top = 389 - ParentColor = True - ParentFont = False - TabOrder = 8 - Visible = False - Height = 57 - Width = 589 - end - object C_FinishLatitudeDensity: TcxTextEdit - Tag = 2 - Left = 688 - Top = 113 - ParentColor = True - Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged - TabOrder = 9 - Width = 150 - end - object C_TestGramWeight: TcxTextEdit - Tag = 2 - Left = 963 - Top = 77 - ParentColor = True - TabOrder = 10 - Width = 150 - end - object C_GramWeight: TcxTextEdit - Tag = 2 - Left = 688 - Top = 77 - ParentColor = True - TabOrder = 11 - Width = 150 - end - object C_ReedNo: TcxTextEdit - Tag = 2 - Left = 409 - Top = 184 - ParentColor = True - TabOrder = 12 - Width = 150 - end - object C_ReedWidth: TcxTextEdit - Tag = 2 - Left = 117 - Top = 184 - ParentColor = True - Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged - TabOrder = 13 - Width = 150 - end - object C_YarnQty: TcxTextEdit - Tag = 2 - Left = 688 - Top = 184 - ParentColor = True - Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged - TabOrder = 14 - Width = 150 - end - object LoomType: TcxTextEdit - Tag = 2 - Left = 1208 - Top = 5 - ParentColor = True - TabOrder = 15 - Width = 150 - end - object OrdNote: TcxMemo - Left = 117 - Top = 224 - ParentColor = True - TabOrder = 16 - Height = 57 - Width = 721 - end - object OurCoName: TcxButtonEdit - Left = 963 - Top = 40 - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - Properties.OnButtonClick = OurCoNamePropertiesButtonClick - Style.ButtonStyle = btsDefault - TabOrder = 17 - OnDblClick = OurCoNameDblClick - Width = 150 - end - object FtyCoName: TcxButtonEdit - Left = 1208 - Top = 40 - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - Properties.OnButtonClick = FtyCoNamePropertiesButtonClick - Style.ButtonStyle = btsDefault - TabOrder = 18 - OnDblClick = OurCoNameDblClick - Width = 150 - end object OrdType: TcxComboBox - Left = 409 + Left = 444 Top = 5 Properties.Items.Strings = ( #22823#36135#21333 #35797#26679#21333) - TabOrder = 19 + TabOrder = 5 Width = 150 end object DlyDate: TcxDateEdit - Left = 688 - Top = 5 + Left = 766 + Top = 7 Properties.ShowTime = False - TabOrder = 20 + TabOrder = 6 Width = 150 end object OrdDate: TcxDateEdit - Left = 963 + Left = 986 Top = 5 Properties.ShowTime = False - TabOrder = 21 + TabOrder = 7 Width = 150 end object ConNo: TcxButtonEdit @@ -545,12 +509,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Properties.ReadOnly = True Properties.OnButtonClick = ConNoPropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 22 + TabOrder = 8 OnDblClick = OurCoNameDblClick Width = 150 end object CustName: TcxButtonEdit - Left = 688 + Left = 444 Top = 40 Properties.Buttons = < item @@ -560,98 +524,80 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Properties.ReadOnly = True Properties.OnButtonClick = CustNamePropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 23 + TabOrder = 9 OnDblClick = OurCoNameDblClick Width = 150 end - object C_Spec: TcxMemo - Tag = 2 - Left = 963 - Top = 237 - TabOrder = 24 - Height = 32 - Width = 396 - end - object C_Code: TcxButtonEdit + object ThroughHealdOrder: TcxMemo Tag = 2 Left = 117 - Top = 77 - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - Properties.OnButtonClick = C_CodePropertiesButtonClick - Style.ButtonStyle = btsDefault - TabOrder = 25 - OnDblClick = OurCoNameDblClick + Top = 346 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 10 + Height = 63 + Width = 1061 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 445 + Top = 78 + ParentColor = True + TabOrder = 11 Width = 150 end - object PBQty: TcxTextEdit + object C_YarnQty: TcxTextEdit Tag = 2 - Left = 1406 - Top = 341 - Properties.ReadOnly = True - TabOrder = 26 - Visible = False - OnKeyPress = ConNoKeyPress - Width = 150 - end - object DDQty: TcxTextEdit - Tag = 2 - Left = 1406 - Top = 376 - Properties.ReadOnly = True - TabOrder = 27 - Visible = False - OnKeyPress = ConNoKeyPress + Left = 766 + Top = 191 + ParentColor = True + TabOrder = 12 Width = 150 end object C_Width: TcxTextEdit Tag = 2 - Left = 963 - Top = 184 + Left = 117 + Top = 153 ParentColor = True - TabOrder = 28 + TabOrder = 13 Width = 150 end - object C_FinishWidth: TcxTextEdit + object C_ReedNo: TcxTextEdit Tag = 2 - Left = 1208 - Top = 184 + Left = 445 + Top = 228 ParentColor = True - TabOrder = 29 + TabOrder = 14 Width = 150 end - object BBNo: TcxTextEdit + object C_GramWeight: TcxTextEdit Tag = 2 - Left = 1208 - Top = 77 + Left = 445 + Top = 153 ParentColor = True - TabOrder = 30 + TabOrder = 15 Width = 150 end - object C_Color: TcxTextEdit + object C_FinishLatitudeDensity: TcxTextEdit Tag = 2 - Left = 963 - Top = 113 + Left = 986 + Top = 153 ParentColor = True - TabOrder = 31 - Width = 150 - end - object WB_Name: TcxTextEdit - Tag = 2 - Left = 409 - Top = 113 - Properties.ReadOnly = True - TabOrder = 32 + TabOrder = 16 + OnExit = C_ReedWidthExit Width = 150 end object WB_Code: TcxButtonEdit Tag = 2 Left = 117 - Top = 116 + Top = 191 + ParentColor = True Properties.Buttons = < item Default = True @@ -660,51 +606,237 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Properties.ReadOnly = True Properties.OnButtonClick = WB_CodePropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 33 - OnDblClick = OurCoNameDblClick + TabOrder = 17 Width = 150 end - object GYNo: TcxButtonEdit + object WB_Name: TcxTextEdit + Tag = 2 + Left = 445 + Top = 191 + Enabled = False + ParentColor = True + TabOrder = 18 + Width = 150 + end + object C_Color: TcxTextEdit + Tag = 2 + Left = 766 + Top = 115 + ParentColor = True + TabOrder = 19 + Width = 150 + end + object C_ColorNo: TcxTextEdit + Tag = 2 + Left = 986 + Top = 115 + ParentColor = True + TabOrder = 20 + Width = 150 + end + object C_Pattern: TcxTextEdit Tag = 2 Left = 117 - Top = 144 + Top = 115 + ParentColor = True + TabOrder = 21 + Width = 150 + end + object C_StyleNo: TcxTextEdit + Tag = 2 + Left = 445 + Top = 115 + ParentColor = True + TabOrder = 22 + Width = 150 + end + object C_Spec: TcxTextEdit + Tag = 2 + Left = 986 + Top = 78 + ParentColor = True + TabOrder = 23 + Width = 150 + end + object C_Composition: TcxTextEdit + Tag = 2 + Left = 766 + Top = 78 + ParentColor = True + TabOrder = 24 + Width = 150 + end + object MFDW: TcxComboBox + Tag = 2 + Left = 268 + Top = 153 + Properties.Items.Strings = ( + #8220 + 'CM') + TabOrder = 25 + Text = #8220 + Width = 63 + end + object C_FinishLongitudeDensity: TcxTextEdit + Tag = 2 + Left = 766 + Top = 153 + ParentColor = True + TabOrder = 26 + Width = 150 + end + object LPDW: TcxComboBox + Tag = 2 + Left = 601 + Top = 153 + Properties.Items.Strings = ( + 'GSM' + 'MM') + TabOrder = 27 + Width = 63 + end + object GKBH: TcxTextEdit + Tag = 2 + Left = 117 + Top = 228 + ParentColor = True + TabOrder = 28 + Width = 150 + end + object C_ReedWidth: TcxTextEdit + Tag = 2 + Left = 766 + Top = 228 + ParentColor = True + TabOrder = 29 + OnExit = C_ReedWidthExit + Width = 76 + end + object C_KCQTY: TcxTextEdit + Tag = 2 + Left = 986 + Top = 229 + ParentColor = True + TabOrder = 30 + Width = 150 + end + object BSQTY: TcxTextEdit + Tag = 2 + Left = 117 + Top = 265 + ParentColor = True + TabOrder = 31 + Width = 150 + end + object DCRQTY: TcxTextEdit + Tag = 2 + Left = 445 + Top = 265 + ParentColor = True + TabOrder = 32 + Width = 150 + end + object WB_ReedNote: TcxTextEdit + Tag = 2 + Left = 766 + Top = 265 + ParentColor = True + TabOrder = 33 + Width = 371 + end + object ZYQTY: TcxTextEdit + Tag = 2 + Left = 117 + Top = 303 + ParentColor = True + TabOrder = 34 + Width = 150 + end + object WYAMI: TcxTextEdit + Tag = 2 + Left = 445 + Top = 303 + ParentColor = True + TabOrder = 35 + Width = 150 + end + object DAYQTY: TcxTextEdit + Tag = 2 + Left = 766 + Top = 303 + ParentColor = True + TabOrder = 36 + Width = 150 + end + object LBQTY: TcxTextEdit + Tag = 2 + Left = 987 + Top = 300 + ParentColor = True + TabOrder = 37 + Width = 150 + end + object GKDW: TcxComboBox + Tag = 2 + Left = 848 + Top = 226 + Properties.Items.Strings = ( + #8220 + 'CM') + TabOrder = 38 + Text = #8220 + Width = 63 + end + object LoomType: TcxComboBox + Tag = 2 + Left = 1191 + Top = 118 + Properties.Items.Strings = ( + 'GSM' + 'MM') + TabOrder = 39 + Width = 99 + end + object C_CODE: TcxButtonEdit + Tag = 2 + Left = 117 + Top = 75 Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True - Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Properties.OnButtonClick = C_CODEPropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 34 - OnDblClick = OurCoNameDblClick + TabOrder = 40 + OnDblClick = C_CODEDblClick Width = 150 end end object cxPageControl3: TcxPageControl [2] Left = 0 - Top = 393 + Top = 529 Width = 1540 - Height = 373 + Height = 331 Align = alClient TabOrder = 2 - Properties.ActivePage = cxTabSheet2 + Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> Properties.Style = 9 - ClientRectBottom = 373 + ExplicitHeight = 237 + ClientRectBottom = 331 ClientRectRight = 1540 ClientRectTop = 28 object cxTabSheet1: TcxTabSheet Caption = #32463#19997#32452#21512 ImageIndex = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 + ExplicitHeight = 209 object GroupBox1: TGroupBox Left = 931 Top = 0 Width = 609 - Height = 345 + Height = 303 Align = alClient Caption = #32463#25490#21015 Font.Charset = GB2312_CHARSET @@ -714,12 +846,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Font.Style = [fsBold] ParentFont = False TabOrder = 0 + ExplicitHeight = 209 object Y_Note_PLJ: TMemo Tag = 2 Left = 2 Top = 31 Width = 605 - Height = 312 + Height = 270 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -728,20 +861,22 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Font.Style = [fsBold] ParentFont = False TabOrder = 0 + ExplicitHeight = 176 end end object Panel1: TPanel Left = 0 Top = 0 Width = 931 - Height = 345 + Height = 303 Align = alLeft TabOrder = 1 + ExplicitHeight = 209 object cxPageControl2: TcxPageControl Left = 1 Top = 1 Width = 929 - Height = 343 + Height = 301 Align = alClient Color = clWhite Font.Charset = GB2312_CHARSET @@ -756,7 +891,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Visible = False Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ClientRectBottom = 343 + ExplicitHeight = 207 + ClientRectBottom = 301 ClientRectRight = 929 ClientRectTop = 0 end @@ -764,13 +900,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 1 Top = 1 Width = 929 - Height = 343 + Height = 301 Align = alClient TabOrder = 1 + ExplicitHeight = 207 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> - OnCellClick = TV1CellClick DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -799,7 +935,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Width = 66 end object cxGridDBColumn3: TcxGridDBColumn - Caption = #21407#26009#20195#21495 + Caption = #32534#21495 DataBinding.FieldName = 'Y_Code' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' @@ -811,33 +947,48 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Properties.ReadOnly = True Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick HeaderAlignmentHorz = taCenter - Width = 131 + Width = 100 end object cxGridDBColumn4: TcxGridDBColumn - Caption = #21407#26009#21517#31216 + Caption = #21697#21517 DataBinding.FieldName = 'Y_Name' DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - Properties.OnButtonClick = cxGridDBColumn4PropertiesButtonClick HeaderAlignmentHorz = taCenter Options.Moving = False Options.Sorting = False - Width = 138 + Width = 100 + end + object TV1Column13: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 end object TV1Column6: TcxGridDBColumn - Caption = #29702#35770'D'#25968 + Caption = #20998#29305'(Dtex)' DataBinding.FieldName = 'TestDenier' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter - Width = 80 + Width = 96 + end + object TV1Column14: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'Z_Number' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 end object TV1Column1: TcxGridDBColumn Caption = #26681#25968 @@ -846,7 +997,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter - Width = 60 + Width = 80 end object TV1Column2: TcxGridDBColumn Caption = #24490#29615#26681#25968 @@ -855,102 +1006,31 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter - Width = 96 - end - object TV1Column8: TcxGridDBColumn - Caption = #31859'/'#24212#29992#37327 - DataBinding.FieldName = 'MeterQty' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - HeaderAlignmentHorz = taCenter - Width = 114 + Width = 80 end object TV1Column10: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 100 - end - object TV1Column9: TcxGridDBColumn - Caption = #25104#20998 - DataBinding.FieldName = 'Y_Composition' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column14: TcxGridDBColumn - Caption = #25439#32791'%' - DataBinding.FieldName = 'SH' + Caption = #20840#24133#26681#25968 + DataBinding.FieldName = 'QFYARNQTY' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged + Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged HeaderAlignmentHorz = taCenter - Width = 79 + Width = 80 end - object TV1Column13: TcxGridDBColumn - Caption = #30424#22836#21495 - DataBinding.FieldName = 'PTNo' + object TV1Column8: TcxGridDBColumn + Caption = #30334#31859#32463#38271#37325#37327'KG' + DataBinding.FieldName = 'MeterQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 163 + end + object TV1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NOTE' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 100 end - object cxGridDBColumn8: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'Y_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 99 - end - object cxGridDBColumn5: TcxGridDBColumn - Caption = #32433#32447#21697#29260 - DataBinding.FieldName = 'Brand' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Moving = False - Options.Sorting = False - Width = 111 - end - object TV1Column11: TcxGridDBColumn - Caption = #32442#27861 - DataBinding.FieldName = 'FF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column12: TcxGridDBColumn - Caption = #25467#24230 - DataBinding.FieldName = 'ND' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column3: TcxGridDBColumn - Caption = #28068 - DataBinding.FieldName = 'Dacron' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column4: TcxGridDBColumn - Caption = #26825 - DataBinding.FieldName = 'Cotton' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column5: TcxGridDBColumn - Caption = #40635 - DataBinding.FieldName = 'Linen' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end end object cxGridLevel2: TcxGridLevel GridView = TV1 @@ -961,14 +1041,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet2: TcxTabSheet Caption = #32428#19997#32452#21512 ImageIndex = 1 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 + ExplicitHeight = 209 object GroupBox2: TGroupBox Left = 863 Top = 0 Width = 677 - Height = 345 + Height = 303 Align = alClient Caption = #32428#25490#21015 Font.Charset = GB2312_CHARSET @@ -978,12 +1056,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Font.Style = [fsBold] ParentFont = False TabOrder = 0 + ExplicitHeight = 209 object Y_Note_PLW: TMemo Tag = 2 Left = 2 Top = 31 Width = 673 - Height = 312 + Height = 270 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -992,20 +1071,22 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Font.Style = [fsBold] ParentFont = False TabOrder = 0 + ExplicitHeight = 176 end end object Panel2: TPanel Left = 0 Top = 0 Width = 863 - Height = 345 + Height = 303 Align = alLeft TabOrder = 1 + ExplicitHeight = 209 object cxPageControl1: TcxPageControl Left = 1 Top = 1 Width = 861 - Height = 343 + Height = 301 Align = alClient Color = clWhite Font.Charset = GB2312_CHARSET @@ -1020,7 +1101,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Visible = False Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ClientRectBottom = 343 + ExplicitHeight = 207 + ClientRectBottom = 301 ClientRectRight = 861 ClientRectTop = 0 end @@ -1028,13 +1110,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 1 Top = 1 Width = 861 - Height = 343 + Height = 301 Align = alClient TabOrder = 1 + ExplicitHeight = 207 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> - OnCellClick = Tv2CellClick DataController.DataSource = DS_2 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -1063,7 +1145,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Width = 66 end object v2Column10: TcxGridDBColumn - Caption = #21407#26009#20195#21495 + Caption = #32534#21495 DataBinding.FieldName = 'Y_Code' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' @@ -1075,33 +1157,47 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Properties.ReadOnly = True Properties.OnButtonClick = v2Column10PropertiesButtonClick HeaderAlignmentHorz = taCenter - Width = 131 + Width = 100 end object cxGridDBColumn1: TcxGridDBColumn - Caption = #21407#26009#21517#31216 + Caption = #21697#21517 DataBinding.FieldName = 'Y_Name' DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick HeaderAlignmentHorz = taCenter Options.Moving = False Options.Sorting = False - Width = 138 + Width = 100 + end + object Tv2Column13: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 end object Tv2Column6: TcxGridDBColumn - Caption = #29702#35770'D'#25968 + Caption = #20998#29305'(Dtex)' DataBinding.FieldName = 'TestDenier' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 91 + end + object Tv2Column14: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'Z_Number' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter - Width = 80 + Width = 88 end object Tv2Column1: TcxGridDBColumn Caption = #26681#25968 @@ -1121,92 +1217,25 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut HeaderAlignmentHorz = taCenter Width = 80 end - object Tv2Column8: TcxGridDBColumn - Caption = #31859'/'#24212#29992#37327 - DataBinding.FieldName = 'MeterQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 120 - end - object Tv2Column9: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column10: TcxGridDBColumn - Caption = #25104#20998 - DataBinding.FieldName = 'Y_Composition' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 100 - end - object Tv2Column14: TcxGridDBColumn - Caption = #25439#32791'CM' - DataBinding.FieldName = 'SH' + object Tv2Column11: TcxGridDBColumn + Caption = #25439#32791 + DataBinding.FieldName = 'Y_Loss' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged - FooterAlignmentHorz = taCenter - GroupSummaryAlignment = taCenter HeaderAlignmentHorz = taCenter - Width = 94 + Width = 80 end - object Tv2Column13: TcxGridDBColumn - Caption = #28504#36890#21495 - DataBinding.FieldName = 'PTNo' + object Tv2Column8: TcxGridDBColumn + Caption = #30334#31859#32463#38271#29992#37327'KG' + DataBinding.FieldName = 'MeterQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 100 - end - object v2Column6: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'Y_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 99 - end - object v2Column2: TcxGridDBColumn - Caption = #32433#32447#21697#29260 - DataBinding.FieldName = 'Brand' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Moving = False - Options.Sorting = False - Width = 111 + Width = 151 end object Tv2Column12: TcxGridDBColumn - Caption = #25467#24230 - DataBinding.FieldName = 'ND' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column11: TcxGridDBColumn - Caption = #32442#27861 - DataBinding.FieldName = 'FF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column3: TcxGridDBColumn - Caption = #28068 - DataBinding.FieldName = 'Dacron' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column4: TcxGridDBColumn - Caption = #26825 - DataBinding.FieldName = 'Cotton' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column5: TcxGridDBColumn - Caption = #40635 - DataBinding.FieldName = 'Linen' + Caption = #22791#27880 + DataBinding.FieldName = 'note' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 @@ -1221,96 +1250,128 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet3: TcxTabSheet Caption = #36215#32508#27861 ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 - object cxGrid4: TcxGrid + ExplicitHeight = 209 + object Panel5: TPanel Left = 0 - Top = 303 + Top = 0 Width = 1540 - Height = 42 - Align = alBottom + Height = 41 + Align = alTop + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False TabOrder = 0 - Visible = False - object TV4: TcxGridDBTableView - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_QZ - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = '0' - Position = spFooter - end - item - Format = '0' - Position = spFooter - end - item - Format = '0' - Position = spFooter - end> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end> - DataController.Summary.SummaryGroups = <> - OptionsBehavior.FocusCellOnTab = True - OptionsBehavior.GoToNextCellOnEnter = True - OptionsBehavior.FocusCellOnCycle = True - OptionsCustomize.ColumnFiltering = False - OptionsView.GroupByBox = False - object TV4Column1: TcxGridDBColumn - Tag = 2 - Caption = #36873#25321 - DataBinding.FieldName = 'ssel' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - HeaderAlignmentHorz = taCenter - Options.Sorting = False - Width = 63 - end - object cxGridDBColumn16: TcxGridDBColumn - Caption = #39034#24207 - DataBinding.FieldName = 'XuNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Focusing = False - Options.Sorting = False - Width = 146 - end - object cxGridDBColumn17: TcxGridDBColumn - Caption = #22320#32452#32455#36215#32508#35268#24459 - DataBinding.FieldName = 'DZZQZGL' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - HeaderAlignmentHorz = taCenter - Options.Sorting = False - Width = 499 - end + ExplicitTop = -6 + object Label28: TLabel + Left = 18 + Top = 4 + Width = 96 + Height = 31 + Caption = #22270#29255#36873#25321 end - object cxGridLevel5: TcxGridLevel - GridView = TV4 + object attname2: TcxButtonEdit + Tag = 2 + Left = 120 + Top = -4 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = attname2PropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 0 + Width = 150 end end - object QZF: TMemo + object cxDBImage2: TcxDBImage + Left = 0 + Top = 41 + Hint = 'FileName' + Align = alClient + DataBinding.DataField = 'FilesOther' + DataBinding.DataSource = DS_ImgHX2 + Properties.GraphicClassName = 'TdxSmartImage' + Properties.GraphicTransparency = gtTransparent + Properties.ReadOnly = True + Properties.ShowFocusRect = False + Style.BorderStyle = ebsSingle + TabOrder = 1 + Height = 262 + Width = 1540 + end + end + object cxTabSheet4: TcxTabSheet + Caption = #31359#32508#27861 + ImageIndex = 3 + ExplicitHeight = 209 + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1540 + Height = 41 + Align = alTop + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 0 + ExplicitTop = -6 + object Label4: TLabel + Left = 18 + Top = 4 + Width = 96 + Height = 31 + Caption = #22270#29255#36873#25321 + end + object ATTNAME1: TcxButtonEdit + Tag = 2 + Left = 120 + Top = -4 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = ATTNAME1PropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 0 + Width = 150 + end + end + object cxDBImage1: TcxDBImage + Left = 0 + Top = 41 + Hint = 'FileName' + Align = alClient + DataBinding.DataField = 'FilesOther' + DataBinding.DataSource = DS_ImgHX + Properties.GraphicClassName = 'TdxSmartImage' + Properties.GraphicTransparency = gtTransparent + Properties.ReadOnly = True + Properties.ShowFocusRect = False + Style.BorderStyle = ebsSingle + TabOrder = 1 + ExplicitLeft = 2 + ExplicitTop = 42 + Height = 262 + Width = 1540 + end + end + object cxTabSheet5: TcxTabSheet + Caption = #31359#31576#27861 + ImageIndex = 3 + ExplicitHeight = 209 + object CKF: TMemo Tag = 2 Left = 0 Top = 0 @@ -1324,92 +1385,47 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Font.Style = [fsBold] ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ParentFont = False - TabOrder = 1 - end - end - object cxTabSheet4: TcxTabSheet - Caption = #31359#32508#27861 - ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 - object CZF: TMemo - Tag = 2 - Left = 0 - Top = 0 - Width = 1540 - Height = 345 - Align = alClient - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - ParentFont = False - TabOrder = 0 - end - end - object cxTabSheet5: TcxTabSheet - Caption = #31359#31576#27861 - ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 - object CKF: TMemo - Tag = 2 - Left = 0 - Top = 0 - Width = 1540 - Height = 345 - Align = alClient - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - ParentFont = False TabOrder = 0 + ExplicitHeight = 209 end end end inherited ADOQueryBaseCmd: TADOQuery - Left = 558 - Top = 323 + Left = 1214 + Top = 403 end inherited ADOQueryBaseTemp: TADOQuery - Left = 631 + Left = 1231 Top = 305 end inherited ImageList_new32: TImageList - Left = 703 - Top = 384 + Left = 1183 + Top = 352 end inherited cxImageList_bar: TcxImageList FormatVersion = 1 - Left = 968 - Top = 319 - DesignInfo = 20906952 + Left = 1304 + Top = 439 + DesignInfo = 28771608 end object ADOQueryTemp: TADOQuery Connection = DataLink_TatPlan.ADOLink LockType = ltReadOnly Parameters = <> - Left = 961 - Top = 282 + Left = 1257 + Top = 386 end object ADOQueryCmd: TADOQuery Connection = DataLink_TatPlan.ADOLink Parameters = <> - Left = 703 - Top = 329 + Left = 1271 + Top = 345 end object CDS_2: TClientDataSet Aggregates = <> Params = <> - Left = 791 - Top = 313 + Left = 1255 + Top = 249 end object DS_1: TDataSource DataSet = CDS_1 @@ -1419,43 +1435,41 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object CDS_1: TClientDataSet Aggregates = <> Params = <> - Left = 759 + Left = 1175 Top = 313 end object DS_2: TDataSource DataSet = CDS_2 - Left = 554 - Top = 405 + Left = 1226 + Top = 397 end object DS_QZ: TDataSource DataSet = CDS_QZ - Left = 608 + Left = 1184 Top = 421 end object CDS_QZ: TClientDataSet Aggregates = <> Params = <> - Left = 823 - Top = 313 + Left = 1183 + Top = 289 end object GPM_1: TcxGridPopupMenu - Grid = cxGrid1 PopupMenus = <> - Left = 855 - Top = 313 + Left = 1143 + Top = 369 end object GPM_2: TcxGridPopupMenu - Grid = cxGrid2 PopupMenus = <> - Left = 887 + Left = 1159 Top = 313 end object ADOQuery1: TADOQuery Connection = DataLink_TatPlan.ADOLink LockType = ltReadOnly Parameters = <> - Left = 1043 - Top = 312 + Left = 1291 + Top = 408 end object ADOQueryMain: TADOQuery Connection = DataLink_TatPlan.ADOLink @@ -1464,4 +1478,26 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 713 Top = 514 end + object Qry_ImgHX: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Parameters = <> + Left = 610 + Top = 304 + end + object DS_ImgHX: TDataSource + DataSet = Qry_ImgHX + Left = 519 + Top = 408 + end + object DS_ImgHX2: TDataSource + DataSet = Qry_ImgHX2 + Left = 599 + Top = 416 + end + object Qry_ImgHX2: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Parameters = <> + Left = 674 + Top = 352 + end end diff --git a/E01梭织生产计划/U_TatPlanInPut.pas b/E01梭织生产计划/U_TatPlanInPut.pas index 273aa25..d4d86ca 100644 --- a/E01梭织生产计划/U_TatPlanInPut.pas +++ b/E01梭织生产计划/U_TatPlanInPut.pas @@ -21,7 +21,7 @@ uses dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, - dxSkinSharpPlus, dxSkinWXI; + dxSkinSharpPlus, dxSkinWXI, cxImage, cxDBEdit; type TfrmTatPlanInPut = class(TfrmBaseInput) @@ -30,14 +30,10 @@ type TBClose: TToolButton; ScrollBox1: TScrollBox; Label2: TLabel; - Label3: TLabel; - Label14: TLabel; ADOQueryTemp: TADOQuery; ADOQueryCmd: TADOQuery; Label5: TLabel; Label8: TLabel; - Label12: TLabel; - OrdPieceLen: TcxTextEdit; OrdPiece: TcxTextEdit; Label13: TLabel; OrdQty: TcxTextEdit; @@ -45,16 +41,10 @@ type DS_1: TDataSource; CDS_1: TClientDataSet; DS_2: TDataSource; - Label26: TLabel; - Label31: TLabel; Label47: TLabel; - C_Name: TcxTextEdit; - Label43: TLabel; lbl2: TLabel; - Saleser: TcxTextEdit; Label7: TLabel; OrderNo: TcxTextEdit; - Label4: TLabel; ToolButton8: TToolButton; Label35: TLabel; ConMId: TcxTextEdit; @@ -67,116 +57,127 @@ type GroupBox2: TGroupBox; Y_Note_PLW: TMemo; cxTabSheet3: TcxTabSheet; - cxGrid4: TcxGrid; - TV4: TcxGridDBTableView; - TV4Column1: TcxGridDBColumn; - cxGridDBColumn16: TcxGridDBColumn; - cxGridDBColumn17: TcxGridDBColumn; - cxGridLevel5: TcxGridLevel; Panel1: TPanel; cxPageControl2: TcxPageControl; Panel2: TPanel; cxPageControl1: TcxPageControl; DS_QZ: TDataSource; CDS_QZ: TClientDataSet; - ThroughHealdOrder: TcxMemo; - C_FinishLatitudeDensity: TcxTextEdit; - C_TestGramWeight: TcxTextEdit; - C_GramWeight: TcxTextEdit; - C_ReedNo: TcxTextEdit; - C_ReedWidth: TcxTextEdit; - C_YarnQty: TcxTextEdit; - LoomType: TcxTextEdit; - OrdNote: TcxMemo; - Label10: TLabel; - Label9: TLabel; - Label6: TLabel; - Label11: TLabel; - Label15: TLabel; - Label16: TLabel; - Label17: TLabel; - Label55: TLabel; - Label18: TLabel; - OurCoName: TcxButtonEdit; - FtyCoName: TcxButtonEdit; OrdType: TcxComboBox; DlyDate: TcxDateEdit; OrdDate: TcxDateEdit; ConNo: TcxButtonEdit; CustName: TcxButtonEdit; - C_Spec: TcxMemo; - C_Code: TcxButtonEdit; + GPM_1: TcxGridPopupMenu; + GPM_2: TcxGridPopupMenu; + cxTabSheet4: TcxTabSheet; + cxTabSheet5: TcxTabSheet; + CKF: TMemo; + ADOQuery1: TADOQuery; + ADOQueryMain: TADOQuery; + Label3: TLabel; + Label6: TLabel; + Label55: TLabel; + Label9: TLabel; + Label11: TLabel; + Label12: TLabel; + Label15: TLabel; + Label16: TLabel; + lbl1: TLabel; + Label17: TLabel; + Label18: TLabel; + Label20: TLabel; + Label21: TLabel; + Label22: TLabel; + Label23: TLabel; + Label24: TLabel; + Label25: TLabel; + Label26: TLabel; + Label27: TLabel; + Label30: TLabel; + Label31: TLabel; + Label32: TLabel; + Label33: TLabel; + Label34: TLabel; + Label36: TLabel; + Label37: TLabel; + Label38: TLabel; + ThroughHealdOrder: TcxMemo; + C_Name: TcxTextEdit; + C_YarnQty: TcxTextEdit; + C_Width: TcxTextEdit; + C_ReedNo: TcxTextEdit; + C_GramWeight: TcxTextEdit; + C_FinishLatitudeDensity: TcxTextEdit; + WB_Code: TcxButtonEdit; + WB_Name: TcxTextEdit; + C_Color: TcxTextEdit; + C_ColorNo: TcxTextEdit; + C_Pattern: TcxTextEdit; + C_StyleNo: TcxTextEdit; + C_Spec: TcxTextEdit; + C_Composition: TcxTextEdit; + MFDW: TcxComboBox; + C_FinishLongitudeDensity: TcxTextEdit; + LPDW: TcxComboBox; + GKBH: TcxTextEdit; + C_ReedWidth: TcxTextEdit; + C_KCQTY: TcxTextEdit; + BSQTY: TcxTextEdit; + DCRQTY: TcxTextEdit; + WB_ReedNote: TcxTextEdit; + ZYQTY: TcxTextEdit; + WYAMI: TcxTextEdit; + DAYQTY: TcxTextEdit; + LBQTY: TcxTextEdit; + GKDW: TcxComboBox; + LoomType: TcxComboBox; + Label39: TLabel; cxGrid1: TcxGrid; TV1: TcxGridDBTableView; TV1Column7: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn; - cxGridDBColumn5: TcxGridDBColumn; + TV1Column13: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn; + TV1Column6: TcxGridDBColumn; + TV1Column14: TcxGridDBColumn; TV1Column1: TcxGridDBColumn; TV1Column2: TcxGridDBColumn; - TV1Column3: TcxGridDBColumn; - TV1Column4: TcxGridDBColumn; - TV1Column5: TcxGridDBColumn; - TV1Column6: TcxGridDBColumn; + TV1Column10: TcxGridDBColumn; TV1Column8: TcxGridDBColumn; - TV1Column9: TcxGridDBColumn; + TV1Column11: TcxGridDBColumn; cxGridLevel2: TcxGridLevel; cxGrid2: TcxGrid; Tv2: TcxGridDBTableView; Tv2Column7: TcxGridDBColumn; v2Column10: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn; - v2Column2: TcxGridDBColumn; + Tv2Column13: TcxGridDBColumn; v2Column6: TcxGridDBColumn; + Tv2Column6: TcxGridDBColumn; + Tv2Column14: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn; Tv2Column2: TcxGridDBColumn; - Tv2Column3: TcxGridDBColumn; - Tv2Column4: TcxGridDBColumn; - Tv2Column5: TcxGridDBColumn; - Tv2Column6: TcxGridDBColumn; - Tv2Column8: TcxGridDBColumn; - Tv2Column9: TcxGridDBColumn; - cxGridLevel1: TcxGridLevel; - GPM_1: TcxGridPopupMenu; - GPM_2: TcxGridPopupMenu; - cxTabSheet4: TcxTabSheet; - CZF: TMemo; - cxTabSheet5: TcxTabSheet; - CKF: TMemo; - TV1Column11: TcxGridDBColumn; - TV1Column12: TcxGridDBColumn; Tv2Column11: TcxGridDBColumn; + Tv2Column8: TcxGridDBColumn; Tv2Column12: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; Label1: TLabel; - PBQty: TcxTextEdit; - Label19: TLabel; - DDQty: TcxTextEdit; - Label20: TLabel; - C_Width: TcxTextEdit; - Label21: TLabel; - C_FinishWidth: TcxTextEdit; - Label22: TLabel; - BBNo: TcxTextEdit; - Label23: TLabel; - C_Color: TcxTextEdit; - QZF: TMemo; - Tv2Column10: TcxGridDBColumn; - Tv2Column13: TcxGridDBColumn; - TV1Column10: TcxGridDBColumn; - TV1Column13: TcxGridDBColumn; - Label24: TLabel; - Label25: TLabel; - WB_Name: TcxTextEdit; - WB_Code: TcxButtonEdit; - ADOQuery1: TADOQuery; - Label27: TLabel; - GYNo: TcxButtonEdit; - ADOQueryMain: TADOQuery; - TV1Column14: TcxGridDBColumn; - Tv2Column14: TcxGridDBColumn; - Label28: TLabel; Label29: TLabel; + Panel5: TPanel; + Label28: TLabel; + attname2: TcxButtonEdit; + cxDBImage2: TcxDBImage; + Panel4: TPanel; + Label4: TLabel; + ATTNAME1: TcxButtonEdit; + cxDBImage1: TcxDBImage; + Qry_ImgHX: TADOQuery; + DS_ImgHX: TDataSource; + DS_ImgHX2: TDataSource; + Qry_ImgHX2: TADOQuery; + C_CODE: TcxButtonEdit; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -192,9 +193,9 @@ type procedure ToolButton7Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject); procedure FormCreate(Sender: TObject); - procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +// procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure OurCoNameDblClick(Sender: TObject); - procedure FtyCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +// procedure FtyCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); @@ -209,15 +210,20 @@ type procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); - procedure OrdPiecePropertiesChange(Sender: TObject); + procedure OrdQtyPropertiesChange(Sender: TObject); - procedure OrdPieceLenPropertiesChange(Sender: TObject); - procedure UpdateCalculations(Sender: TObject); + procedure TV1Column14PropertiesEditValueChanged(Sender: TObject); + procedure C_ReedWidthExit(Sender: TObject); + procedure ATTNAME1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure C_CODEDblClick(Sender: TObject); + private FXS, FGridFlag: Integer; FUpdating: Boolean; FLastChanged: TObject; procedure InitData(); + procedure InitImage(); procedure Initexcel(); procedure CALCYarnQty(); procedure JSJS(); //㾭˿ @@ -241,9 +247,41 @@ implementation uses U_DataLink, U_ZDYHelp, U_RTFun, U_TatClothInfoSel, U_CompanySel, U_YarnInfoSel, - U_TradeSalesContractSel, U_WBSpecSel, U_TatGYSel; + U_TradeSalesContractSel, U_WBSpecSel, U_TatGYSel, U_PictureUpload; {$R *.dfm} +procedure TfrmTatPlanInPut.InitImage(); +begin + if attname1.Text <> '' then + begin + with Qry_ImgHX do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(attname1.Text))); + SQL.Add('AND TFTYPE=''ZC'' '); +// ShowMessage(SQL.Text); + open; + end; + + end; + if attname2.Text <> '' then + begin + with Qry_ImgHX2 do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(attname2.Text))); + SQL.Add('AND TFTYPE=''qC'' '); +// ShowMessage(SQL.Text); + open; + end; + + end; +end; + procedure TfrmTatPlanInPut.InitClothYarn(MC_Code: string); begin @@ -255,19 +293,33 @@ begin sql.Add(' where A.C_Code=''' + Trim(MC_Code) + ''''); Open; end; - Self.C_Code.Text := ADOQueryTemp.fieldbyname('C_Code').AsString; - Self.C_Name.Text := ADOQueryTemp.fieldbyname('C_Name').AsString; - Self.C_Spec.Text := ADOQueryTemp.fieldbyname('C_Spec').AsString; - Self.C_FinishLatitudeDensity.Text := ADOQueryTemp.fieldbyname('C_FinishLatitudeDensity').AsString; + ConNo.tag := 9; + OrdPiece.tag := 9; + OrdQty.tag := 9; + ConMId.tag := 9; + ConSId.tag := 9; + SCSHData(ADOQueryTemp, ScrollBox1, 2); - Self.C_GramWeight.Text := ADOQueryTemp.fieldbyname('C_GramWeight').AsString; - Self.C_ReedNo.Text := ADOQueryTemp.fieldbyname('C_ReedNo').AsString; - Self.C_YarnQty.Text := ADOQueryTemp.fieldbyname('C_YarnQty').AsString; - Self.C_TestGramWeight.Text := ADOQueryTemp.fieldbyname('C_TestGramWeight').AsString; - Self.LoomType.Text := ADOQueryTemp.fieldbyname('LoomType').AsString; - Self.C_ReedWidth.Text := ADOQueryTemp.fieldbyname('C_ReedWidth').AsString; - Self.BBNO.Text := ADOQueryTemp.fieldbyname('BBNO').AsString; - Self.C_Color.Text := ADOQueryTemp.fieldbyname('C_Color').AsString; + attname1.Text := ADOQueryTemp.fieldbyname('attname1').AsString; + attname2.Text := ADOQueryTemp.fieldbyname('attname2').AsString; + ConNo.tag := 2; + OrdPiece.tag := 2; + OrdQty.tag := 2; + ConMId.tag := 2; + ConSId.tag := 2; +// Self.C_Code.Text := ADOQueryTemp.fieldbyname('C_Code').AsString; +// Self.C_Name.Text := ADOQueryTemp.fieldbyname('C_Name').AsString; +// Self.C_Spec.Text := ADOQueryTemp.fieldbyname('C_Spec').AsString; +// Self.C_FinishLatitudeDensity.Text := ADOQueryTemp.fieldbyname('C_FinishLatitudeDensity').AsString; +// +// Self.C_GramWeight.Text := ADOQueryTemp.fieldbyname('C_GramWeight').AsString; +// Self.C_ReedNo.Text := ADOQueryTemp.fieldbyname('C_ReedNo').AsString; +// Self.C_YarnQty.Text := ADOQueryTemp.fieldbyname('C_YarnQty').AsString; +// +// Self.LoomType.Text := ADOQueryTemp.fieldbyname('LoomType').AsString; +// Self.C_ReedWidth.Text := ADOQueryTemp.fieldbyname('C_ReedWidth').AsString; +// +// Self.C_Color.Text := ADOQueryTemp.fieldbyname('C_Color').AsString; // Self.QZF.Text := ADOQueryTemp.fieldbyname('QZF').AsString; // Self.CZF.Text := ADOQueryTemp.fieldbyname('CZF').AsString; @@ -275,42 +327,88 @@ begin // Self.Y_Note_PLJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PLJ').AsString; // Self.Y_Note_PLW.Text := ADOQueryTemp.fieldbyname('Y_Note_PLW').AsString; // -// with ADOQueryTemp do -// begin -// Close; -// sql.Clear; -// sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); -// sql.Add(' where A.YRType=''˿'' and B.C_Code=''' + Trim(MC_Code) + ''''); -// Open; -// end; -// SCreateCDS(ADOQueryTemp, CDS_1); -// SInitCDSData(ADOQueryTemp, CDS_1); -// ClearCDSColumn(CDS_1, ['YRId', 'SubId', 'MainId']); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); + sql.Add(' where A.YRType=''˿'' and B.C_Code=''' + Trim(MC_Code) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_1); + SInitCDSData(ADOQueryTemp, CDS_1); + ClearCDSColumn(CDS_1, ['YRId', 'SubId', 'MainId']); // -// with ADOQueryTemp do -// begin -// Close; -// sql.Clear; -// sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); -// sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + ''''); -// Open; -// end; -// SCreateCDS(ADOQueryTemp, CDS_2); -// SInitCDSData(ADOQueryTemp, CDS_2); -// ClearCDSColumn(CDS_2, ['YRId', 'SubId', 'MainId']); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); + sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_2); + SInitCDSData(ADOQueryTemp, CDS_2); + ClearCDSColumn(CDS_2, ['YRId', 'SubId', 'MainId']); // -// with ADOQueryTemp do -// begin -// Close; -// sql.Clear; -// sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_QZ A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); -// sql.Add(' where B.C_Code=''' + Trim(MC_Code) + ''''); -// Open; -// end; -// SCreateCDS(ADOQueryTemp, CDS_QZ); -// SInitCDSData(ADOQueryTemp, CDS_QZ); -// ClearCDSColumn(CDS_QZ, ['QZID', 'SubId', 'MainId']); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_QZ A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); + sql.Add(' where B.C_Code=''' + Trim(MC_Code) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_QZ); + SInitCDSData(ADOQueryTemp, CDS_QZ); + ClearCDSColumn(CDS_QZ, ['QZID', 'SubId', 'MainId']); + InitImage(); +end; +procedure TfrmTatPlanInPut.ATTNAME1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmPictureUpload := TfrmPictureUpload.create(self); + with frmPictureUpload do + begin + fFlileFlag := UserDataFlag + 'HX'; + FDataId := AttName1.Text; + FPictureName := AttName1.Text; + FWidth := 600; + FHeight := 600; + FTFType := 'ZC'; + if showmodal = 1 then + begin + AttName1.Text := frmPictureUpload.FPictureName; + end; + end; + finally + frmPictureUpload.free; + end; + initimage(); +end; + +procedure TfrmTatPlanInPut.attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmPictureUpload := TfrmPictureUpload.create(self); + with frmPictureUpload do + begin + fFlileFlag := UserDataFlag + 'HX'; + FDataId := AttName1.Text; + FPictureName := AttName1.Text; + FWidth := 600; + FHeight := 600; + FTFType := 'ZC'; + if showmodal = 1 then + begin + AttName2.Text := frmPictureUpload.FPictureName; + end; + end; + finally + frmPictureUpload.free; + end; + initimage(); end; procedure TfrmTatPlanInPut.CALCYarnQty(); @@ -368,8 +466,8 @@ begin end; SCSHData(ADOQueryMain, ScrollBox1, 0); - QZF.Text := Trim(ADOQueryMain.FieldByName('QZF').AsString); - CZF.Text := Trim(ADOQueryMain.FieldByName('CZF').AsString); + attname1.Text := Trim(ADOQueryMain.FieldByName('attname1').AsString); + attname2.Text := Trim(ADOQueryMain.FieldByName('attname2').AsString); CKF.Text := Trim(ADOQueryMain.FieldByName('CKF').AsString); with ADOQueryMain do @@ -508,6 +606,7 @@ begin ConNo.enabled := false; // ScrollBox1.Enabled := False; end; + InitImage(); end; procedure TfrmTatPlanInPut.Initexcel(); @@ -551,35 +650,22 @@ begin end; procedure TfrmTatPlanInPut.FormShow(Sender: TObject); +var + mSql: string; begin ReadCxGrid('ƻ¼11', Tv1, ''); ReadCxGrid('ƻ¼22', Tv2, ''); + mSql := 'select distinct name=A.mctype from Bs_Machine A '; + SInitTcxComBoxBySql(ADOQueryTemp, LoomType, false, mSql); InitData(); + InitImage(); JSJS(); //㾭˿ JSWS(); //γ˿ JSKZ(); // Initexcel(); end; -procedure TfrmTatPlanInPut.FtyCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); -begin - try - frmCompanySel := TfrmCompanySel.Create(Application); - with frmCompanySel do - begin - FCoType := 'Ӧ'; - if ShowModal = 1 then - begin - FtyCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); - FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); - end; - end; - finally - frmCompanySel.Free; - end; -end; - function TfrmTatPlanInPut.SaveData(): Boolean; var maxno, maxsubno, maxpbno, maxpzno, maxsjno, maxQZID: string; @@ -619,8 +705,8 @@ begin FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); end; FieldByName('MainId').Value := Trim(maxno); - FieldByName('QZF').Value := Trim(QZF.text); - FieldByName('CZF').Value := Trim(CZF.text); + FieldByName('attname1').Value := Trim(attname1.text); + FieldByName('attname2').Value := Trim(attname2.text); FieldByName('CKF').Value := Trim(CKF.text); RTSetsavedata(ADOQueryCmd, 'Tat_Plan_Main', ScrollBox1, 0); Post; @@ -772,60 +858,7 @@ begin end; end; ////////////////////////// γ˿ȱ ////////////////////////// - ////////////////////// -////////////////////////// ////////////////////////// - with CDS_QZ do - begin - First; - while not Eof do - begin - if Trim(CDS_QZ.fieldbyname('QZID').AsString) = '' then - begin - if GetLSNo(ADOQueryTemp, maxQZID, 'QZ', 'Tat_Plan_QZ', 4, 1) = False then - raise Exception.Create('ȡˮʧܣ'); - - end - else - begin - maxQZID := Trim(CDS_QZ.fieldbyname('QZID').AsString); - end; - with ADOQueryCmd do - begin - Close; - SQL.Clear; - sql.Add('select * from Tat_Plan_QZ where '); - sql.Add(' QZID=''' + Trim(maxQZID) + ''''); - Open; - end; - with ADOQueryCmd do - begin - if Trim(CDS_QZ.fieldbyname('QZID').AsString) = '' then - begin - Append; -// FieldByName('Filler').Value := Trim(DName); -// FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp); - end - else - begin - Edit; -// FieldByName('Editer').Value := Trim(DName); -// FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); - end; - FieldByName('MainId').Value := Trim(maxno); - FieldByName('SubId').Value := Trim(maxsubno); - FieldByName('QZID').Value := Trim(maxQZID); - RTSetSaveDataCDS(ADOQueryCmd, Tv4, CDS_QZ, 'Tat_Plan_QZ', 0); - Post; - end; - CDS_QZ.Edit; - CDS_QZ.FieldByName('SubId').Value := Trim(maxsubno); - CDS_QZ.FieldByName('MainId').Value := Trim(maxno); - CDS_QZ.FieldByName('QZID').Value := Trim(maxQZID); - - Next; - end; - end; -////////////////////////// ////////////////////////// + ////////////////////////// ADOQueryCmd.Connection.CommitTrans; FMainId := Trim(maxno); FSubId := Trim(maxsubno); @@ -882,11 +915,7 @@ begin Application.MessageBox('Ϊ!', 'ʾ', 0); Exit; end; - if Trim(OrdPieceLen.Text) = '' then - begin - Application.MessageBox('ƥΪ!', 'ʾ', 0); - Exit; - end; + if Trim(OrdPiece.Text) = '' then begin Application.MessageBox('ƥΪ!', 'ʾ', 0); @@ -898,16 +927,73 @@ begin Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; - if TryStrToFloat(OrdPiecelen.Text, FReal) = False then - begin - Application.MessageBox('ƥǷ!', 'ʾ', 0); - Exit; - end; + if TryStrToFloat(OrdPiece.Text, FReal) = False then begin Application.MessageBox('ƥǷ!', 'ʾ', 0); Exit; end; + if MFDW.Text = '' then + begin + Application.MessageBox('ŷλΪգ', 'ʾ', 0); + Exit; + end; + if C_Width.Text = '' then + begin + Application.MessageBox('ŷΪգ', 'ʾ', 0); + Exit; + end; + + if C_FinishLongitudeDensity.Text = '' then + begin + Application.MessageBox('ܲΪգ', 'ʾ', 0); + Exit; + end; + if C_FinishLatitudeDensity.Text = '' then + begin + Application.MessageBox('γܲΪգ', 'ʾ', 0); + Exit; + end; + if WB_Code.Text = '' then + begin + Application.MessageBox('ձŲΪգ', 'ʾ', 0); + Exit; + end; + if WB_Name.Text = '' then + begin + Application.MessageBox('ƲΪգ', 'ʾ', 0); + Exit; + end; + if C_YarnQty.Text = '' then + begin + Application.MessageBox('ͷƲΪգ', 'ʾ', 0); + Exit; + end; + if GKBH.Text = '' then + begin + Application.MessageBox('رŲΪգ', 'ʾ', 0); + Exit; + end; + if C_ReedNo.Text = '' then + begin + Application.MessageBox('غŲΪգ', 'ʾ', 0); + Exit; + end; + if C_ReedWidth.Text = '' then + begin + Application.MessageBox('طΪգ', 'ʾ', 0); + Exit; + end; + if DCRQTY.Text = '' then + begin + Application.MessageBox('شΪգ', 'ʾ', 0); + Exit; + end; + if DAYQTY.Text = '' then + begin + Application.MessageBox('ղΪգ', 'ʾ', 0); + Exit; + end; // with ADOQueryTemp do // begin // close; @@ -1017,6 +1103,51 @@ begin end; end; +procedure TfrmTatPlanInPut.TV1Column14PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + ZS, ZGS: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + + with CDS_1 do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + + if FieldByName('QFYARNQTY').Value = null then + begin + ZGS := 0; //QUANFU + end + else + begin + ZGS := FieldByName('QFYARNQTY').Value; //ȫ + end; + + if FieldByName('Z_Number').Value = null then + begin + ZS := 0; //ѭ + end + else + begin + ZS := FieldByName('Z_Number').Value; //ѭ + end; + + end; + if ZS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2); + Post; + end; + end; +end; + procedure TfrmTatPlanInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; @@ -1119,7 +1250,7 @@ end; procedure TfrmTatPlanInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; - GS, ZGS, MF, DS, WM, sunhao: double; + GS, ZGS, MF, DS, WM, fsh: double; begin mvalue := TcxTextEdit(Sender).EditingText; @@ -1140,6 +1271,15 @@ begin GS := FieldByName('YarnQty').Value; // end; + if FieldByName('Y_loss').Value = null then + begin + fsh := 0; // + end + else + begin + fsh := FieldByName('Y_loss').Value; // + end; + if FieldByName('CycleYarnQty').Value = null then begin ZGS := 0; //ѭ @@ -1148,33 +1288,26 @@ begin begin ZGS := FieldByName('CycleYarnQty').Value; //ѭ end; - if FieldByName('SH').Value = null then - begin - sunhao := 0; // - end - else - begin - sunhao := FieldByName('SH').Value; // - end; + MF := strtofloatdef(C_ReedWidth.text, 0); //ط - if FieldByName('TestDenier').Value = null then + if FieldByName('Z_Number').Value = null then begin - DS := 0; //D + DS := 0; //֧ end else begin - DS := FieldByName('TestDenier').Value; //D + DS := FieldByName('Z_Number').Value; //֧ end; WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ end; - if ZGS <> 0 then + if (ZGS <> 0) and (DS <> 0) then begin with CDS_2 do begin Edit; - FieldByName('MeterQty').Value := roundfloat(GS / ZGS * (MF + sunhao) * DS * WM / 9000, 2); + FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2); Post; end; end; @@ -1197,67 +1330,59 @@ begin if ShowModal = 1 then begin - Self.GYNo.text := Trim(CDS_1.FieldByName('MainID').AsString); - if Self.OurCoName.Text <> '' then - Self.OurCoName.Tag := 99; - if Self.FtyCoName.Text <> '' then - Self.FtyCoName.Tag := 99; Self.orderno.Tag := 99; Self.conno.Tag := 99; - with ADOQueryTemp do - begin - Close; - SQL.Clear; - sql.Add('select * from Tat_Plan_Main A where A.MainId=''' + Trim(Self.GYNo.text) + ''''); - Open; - end; +// with ADOQueryTemp do +// begin +// Close; +// SQL.Clear; +// sql.Add('select * from Tat_Plan_Main A where A.MainId=''' + Trim(Self.GYNo.text) + ''''); +// Open; +// end; SCSHData(ADOQueryTemp, ScrollBox1, 0); - Self.QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString); - Self.CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString); +// Self.attname1.Text := Trim(ADOQueryTemp.FieldByName('attname1').AsString); +// Self.attname2.Text := Trim(ADOQueryTemp.FieldByName('attname2').AsString); Self.CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString); - with ADOQueryTemp do - begin - Close; - SQL.Clear; - sql.Add('select * from Tat_Plan_Sub A where A.MainId=''' + Trim(Self.GYNo.text) + ''''); - Open; - end; +// with ADOQueryTemp do +// begin +// Close; +// SQL.Clear; +// sql.Add('select * from Tat_Plan_Sub A where A.MainId=''' + Trim(Self.GYNo.text) + ''''); +// Open; +// end; SCSHData(ADOQueryTemp, ScrollBox1, 2); Self.OrdQty.Text := Trim(ADOQueryTemp.FieldByName('OrdQty').AsString); Self.OrdPiece.Text := Trim(ADOQueryTemp.FieldByName('OrdPiece').AsString); - Self.OrdPiecelen.Text := Trim(ADOQueryTemp.FieldByName('OrdPiecelen').AsString); Self.Y_Note_PLJ.Text := ADOQueryTemp.FieldByName('Y_Note_PLJ').AsString; Self.Y_Note_PLW.Text := ADOQueryTemp.FieldByName('Y_Note_PLW').AsString; - Self.GYNo.text := Trim(CDS_1.FieldByName('MainID').AsString); - - with ADOQueryTemp do - begin - Close; - sql.Clear; - sql.Add('select A.* from Tat_Plan_Yarn A '); - sql.Add(' where YRType=''˿'' and A.MainId=''' + Trim(Self.GYNo.text) + ''''); - Open; - end; - SCreateCDS(ADOQueryTemp, self.CDS_1); - SInitCDSData(ADOQueryTemp, self.CDS_1); - - with ADOQueryTemp do - begin - Close; - sql.Clear; - sql.Add('select A.* from Tat_Plan_Yarn A '); - sql.Add(' where YRType=''γ˿'' and A.MainId=''' + Trim(Self.GYNo.text) + ''''); - Open; - end; - SCreateCDS(ADOQueryTemp, self.CDS_2); - SInitCDSData(ADOQueryTemp, self.CDS_2); +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add('select A.* from Tat_Plan_Yarn A '); +// sql.Add(' where YRType=''˿'' and A.MainId=''' + Trim(Self.GYNo.text) + ''''); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, self.CDS_1); +// SInitCDSData(ADOQueryTemp, self.CDS_1); +// +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add('select A.* from Tat_Plan_Yarn A '); +// sql.Add(' where YRType=''γ˿'' and A.MainId=''' + Trim(Self.GYNo.text) + ''''); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, self.CDS_2); +// SInitCDSData(ADOQueryTemp, self.CDS_2); // Self.OrderNo.text := ''; @@ -1293,8 +1418,7 @@ begin end; finally frmTatGYSel.Free; - Self.OurCoName.Tag := 0; - Self.FtyCoName.Tag := 0; + Self.orderno.Tag := 0; Self.conno.Tag := 2; end; @@ -1368,65 +1492,65 @@ procedure TfrmTatPlanInPut.JSJS(); var GS, ZGS, MF, DS, WM, TW: double; begin - if CDS_1.IsEmpty then - exit; - with CDS_1 do - begin - DisableControls; - first; - while not eof do - begin - - with CDS_1 do - begin - - if FieldByName('YarnQty').Value = null then - begin - GS := 0; // - end - else - begin - GS := FieldByName('YarnQty').Value; // - end; - - if FieldByName('CycleYarnQty').Value = null then - begin - ZGS := 0; //ѭ - end - else - begin - ZGS := FieldByName('CycleYarnQty').Value; //ѭ - end; - - MF := strtofloatdef(C_ReedWidth.text, 0); //ط - - TW := strtofloatdef(C_YarnQty.text, 0); //ͷ - - if FieldByName('TestDenier').Value = null then - begin - DS := 0; //D - end - else - begin - DS := FieldByName('TestDenier').Value; //D - end; - - WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ - end; - if ZGS <> 0 then - begin - with CDS_1 do - begin - Edit; - FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); - Post; - end; - end; - next; - end; - First; - EnableControls; - end; +// if CDS_1.IsEmpty then +// exit; +// with CDS_1 do +// begin +// DisableControls; +// first; +// while not eof do +// begin +// +// with CDS_1 do +// begin +// +// if FieldByName('YarnQty').Value = null then +// begin +// GS := 0; // +// end +// else +// begin +// GS := FieldByName('YarnQty').Value; // +// end; +// +// if FieldByName('CycleYarnQty').Value = null then +// begin +// ZGS := 0; //ѭ +// end +// else +// begin +// ZGS := FieldByName('CycleYarnQty').Value; //ѭ +// end; +// +// MF := strtofloatdef(C_ReedWidth.text, 0); //ط +// +// TW := strtofloatdef(C_YarnQty.text, 0); //ͷ +// +// if FieldByName('TestDenier').Value = null then +// begin +// DS := 0; //D +// end +// else +// begin +// DS := FieldByName('TestDenier').Value; //D +// end; +// +// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ +// end; +// if ZGS <> 0 then +// begin +// with CDS_1 do +// begin +// Edit; +// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); +// Post; +// end; +// end; +// next; +// end; +// First; +// EnableControls; +// end; end; procedure TfrmTatPlanInPut.JSWS(); @@ -1435,61 +1559,61 @@ var begin if CDS_2.IsEmpty then exit; - with CDS_2 do - begin - DisableControls; - first; - while not eof do - begin - - with CDS_2 do - begin - - if FieldByName('YarnQty').Value = null then - begin - GS := 0; // - end - else - begin - GS := FieldByName('YarnQty').Value; // - end; - - if FieldByName('CycleYarnQty').Value = null then - begin - ZGS := 0; //ѭ - end - else - begin - ZGS := FieldByName('CycleYarnQty').Value; //ѭ - end; - - MF := strtofloatdef(C_ReedWidth.text, 0); //ط - - if FieldByName('TestDenier').Value = null then - begin - DS := 0; //D - end - else - begin - DS := FieldByName('TestDenier').Value; //D - end; - - WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ - end; - if ZGS <> 0 then - begin - with CDS_2 do - begin - Edit; - FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2); - Post; - end; - end; - next; - end; - First; - EnableControls; - end; +// with CDS_2 do +// begin +// DisableControls; +// first; +// while not eof do +// begin +// +// with CDS_2 do +// begin +// +// if FieldByName('YarnQty').Value = null then +// begin +// GS := 0; // +// end +// else +// begin +// GS := FieldByName('YarnQty').Value; // +// end; +// +// if FieldByName('CycleYarnQty').Value = null then +// begin +// ZGS := 0; //ѭ +// end +// else +// begin +// ZGS := FieldByName('CycleYarnQty').Value; //ѭ +// end; +// +// MF := strtofloatdef(C_ReedWidth.text, 0); //ط +// +// if FieldByName('TestDenier').Value = null then +// begin +// DS := 0; //D +// end +// else +// begin +// DS := FieldByName('TestDenier').Value; //D +// end; +// +// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ +// end; +// if ZGS <> 0 then +// begin +// with CDS_2 do +// begin +// Edit; +// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2); +// Post; +// end; +// end; +// next; +// end; +// First; +// EnableControls; +// end; end; //procedure TfrmTatPlanInPut.JSKZ(); @@ -1673,8 +1797,14 @@ begin Self.C_YarnQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').AsString); Self.C_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString); Self.C_ReedWidth.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString); + DCRQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('DCRQTY').AsString); + C_KCQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('C_KCQTY').AsString); + WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString); + BSQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BSQTY').AsString); + GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString); Self.Y_Note_PLJ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString); + with ADOQuery1 do begin Close; @@ -1750,81 +1880,6 @@ end; // OrdQty.text := floattostr(strtofloatdef(OrdPiece.text, 0) * strtofloatdef(OrdPieceLen.text, 0)); //end; -procedure TfrmTatPlanInPut.UpdateCalculations(Sender: TObject); -//var -// dQty, dPiece, dPieceLen: Double; -//begin -// if FUpdating then Exit; -// FUpdating := True; -// try -// FLastChanged := Sender; -// dQty := StrToFloatDef(OrdQty.Text, 0); -// dPiece := StrToFloatDef(OrdPiece.Text, 0); -// dPieceLen := StrToFloatDef(OrdPieceLen.Text, 0); -// if Sender = OrdQty then -// begin -// if dPiece > 0 then -// OrdPieceLen.Text := FormatFloat('0.##', dQty / dPiece) -// else if dPieceLen > 0 then -// OrdPiece.Text := FormatFloat('0.##', dQty / dPieceLen); -// end -// else if Sender = OrdPiece then -// begin -// if dPieceLen > 0 then -// OrdQty.Text := FormatFloat('0.##', dPiece * dPieceLen) -// else if dQty > 0 then -// OrdPieceLen.Text := FormatFloat('0.##', dQty / dPiece); -// end -// else if Sender = OrdPieceLen then -// begin -// if dPiece > 0 then -// OrdQty.Text := FormatFloat('0.##', dPiece * dPieceLen) -// else if dQty > 0 then -// OrdPiece.Text := FormatFloat('0.##', dQty / dPieceLen); -// end; -// finally -// FUpdating := False; -// end; -//end; -var - dQty, dPiece, dPieceLen: Double; -begin - if FUpdating then - Exit; - FUpdating := True; - try - dQty := StrToFloatDef(OrdQty.Text, 0); - dPiece := StrToFloatDef(OrdPiece.Text, 0); - dPieceLen := StrToFloatDef(OrdPieceLen.Text, 0); - if Sender = OrdPiece then - begin - if dPiece > 0 then - OrdPieceLen.Text := FormatFloat('0.##', dQty / dPiece) - else - OrdPieceLen.Text := '0'; - end - else if Sender = OrdPieceLen then - begin - if dPieceLen > 0 then - OrdPiece.Text := FormatFloat('0.##', dQty / dPieceLen) - else - OrdPiece.Text := '0'; - end; - finally - FUpdating := False; - end; -end; - -procedure TfrmTatPlanInPut.OrdPieceLenPropertiesChange(Sender: TObject); //pi chang -begin - UpdateCalculations(Sender); -end; - -procedure TfrmTatPlanInPut.OrdPiecePropertiesChange(Sender: TObject); //pi shu -begin - UpdateCalculations(Sender); -end; - procedure TfrmTatPlanInPut.OrdQtyPropertiesChange(Sender: TObject); //zong shu liang begin //UpdateCalculations(Sender); @@ -1836,24 +1891,9 @@ begin TcxButtonEdit(Sender).Text := ''; end; -procedure TfrmTatPlanInPut.OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +procedure TfrmTatPlanInPut.C_CODEDblClick(Sender: TObject); begin - try - frmCompanySel := TfrmCompanySel.Create(Application); - with frmCompanySel do - begin - FCoType := '˾'; - if ShowModal = 1 then - begin - OurCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); - OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); - FtyCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); - FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); - end; - end; - finally - frmCompanySel.Free; - end; + C_CODE.Text := ''; end; procedure TfrmTatPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char); @@ -1882,6 +1922,74 @@ begin end; end; +procedure TfrmTatPlanInPut.C_ReedWidthExit(Sender: TObject); +var + mvalue, FFieldName: string; + GS, ZGS, MF, DS, WM, fsh: double; +begin + with CDS_2 do + begin + first; + while not eof do + begin + with CDS_2 do + begin + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('Y_loss').Value = null then + begin + fsh := 0; // + end + else + begin + fsh := FieldByName('Y_loss').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(C_ReedWidth.text, 0); //ط + + if FieldByName('Z_Number').Value = null then + begin + DS := 0; //֧ + end + else + begin + DS := FieldByName('Z_Number').Value; //֧ + end; + + WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ + end; + if (ZGS <> 0) and (DS <> 0) then + begin + with CDS_2 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2); + Post; + end; + end; + next; + end; + + end; +end; + procedure TfrmTatPlanInPut.C_YarnQtyPropertiesEditValueChanged(Sender: TObject); begin JSJS(); @@ -1967,22 +2075,16 @@ begin self.CustName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyNo').AsString); self.CustName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyName').AsString); - self.OurCoName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellno').AsString); - self.OurCoName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellname').AsString); - - self.FtyCoName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellno').AsString); - self.FtyCoName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellname').AsString); - self.ConNo.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString); self.ConMId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConMId').AsString); self.ConSId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConSId').AsString); - self.Saleser.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Saleser').AsString); + self.C_Code.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').AsString); self.C_Width.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Width').AsString); self.C_GramWeight.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_GramWeight').AsString); - self.BBNO.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BBNO').AsString); + self.C_Color.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Color').AsString); self.OrdQty.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConQty').AsString); InitClothYarn(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').AsString); diff --git a/E02梭织经轴仓库/U_GKManageSel.dfm b/E02梭织经轴仓库/U_GKManageSel.dfm index adfab4e..ad834cb 100644 --- a/E02梭织经轴仓库/U_GKManageSel.dfm +++ b/E02梭织经轴仓库/U_GKManageSel.dfm @@ -66,7 +66,7 @@ inherited frmGKManageSel: TfrmGKManageSel Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitTop = 76 + ExplicitTop = 87 object Tv2: TcxGridDBTableView OnDblClick = Tv2DblClick Navigator.Buttons.CustomButtons = <> @@ -141,6 +141,20 @@ inherited frmGKManageSel: TfrmGKManageSel HeaderAlignmentHorz = taCenter Width = 100 end + object Tv2Column2: TcxGridDBColumn + Caption = #31576#40831#25968 + DataBinding.FieldName = 'GKCS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object Tv2Column8: TcxGridDBColumn + Caption = #31576#24133 + DataBinding.FieldName = 'GKwidth' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 72 + end object Tv2Column10: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' @@ -172,7 +186,6 @@ inherited frmGKManageSel: TfrmGKManageSel Color = clWhite ParentBackground = False TabOrder = 4 - ExplicitTop = 32 object Label1: TLabel Left = 13 Top = 11 diff --git a/E02梭织经轴仓库/U_GKManageSel.pas b/E02梭织经轴仓库/U_GKManageSel.pas index e376e15..e0cbf18 100644 --- a/E02梭织经轴仓库/U_GKManageSel.pas +++ b/E02梭织经轴仓库/U_GKManageSel.pas @@ -46,6 +46,8 @@ type Tv2Column6: TcxGridDBColumn; Tv2Column7: TcxGridDBColumn; ToolButton1: TToolButton; + Tv2Column2: TcxGridDBColumn; + Tv2Column8: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/E02梭织经轴仓库/U_TatWBCardInPut.dfm b/E02梭织经轴仓库/U_TatWBCardInPut.dfm index 25ea7a0..0e1f94d 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut.dfm +++ b/E02梭织经轴仓库/U_TatWBCardInPut.dfm @@ -9,6 +9,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Font.Height = -16 Position = poMainFormCenter OnClose = FormClose + ExplicitLeft = -636 ExplicitWidth = 1833 ExplicitHeight = 811 PixelsPerInch = 96 @@ -21,19 +22,22 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Align = alClient TabOrder = 0 object Panel4: TPanel - Left = 547 + Left = 521 Top = 1 - Width = 1269 + Width = 1295 Height = 770 Align = alClient TabOrder = 0 + ExplicitLeft = 547 + ExplicitWidth = 1269 object cxGrid2: TcxGrid Left = 1 Top = 251 - Width = 1267 + Width = 1293 Height = 518 Align = alClient TabOrder = 0 + ExplicitWidth = 1267 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -222,7 +226,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Tag = 1 Left = 1 Top = 1 - Width = 1267 + Width = 1293 Height = 30 AutoSize = True ButtonHeight = 30 @@ -287,10 +291,11 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut object Panel3: TPanel Left = 1 Top = 31 - Width = 1267 + Width = 1293 Height = 220 Align = alTop TabOrder = 2 + ExplicitWidth = 1267 object Label2: TLabel Left = 263 Top = 102 @@ -539,13 +544,12 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut end object WB_ProcessType: TcxComboBox Tag = 2 - Left = 100 + Left = 98 Top = 6 Properties.Items.Strings = ( #26412#21378#25972#32463 #22806#21378#25972#32463 - #25972#32463#37319#36141 - #22806#21378#27974#32433) + #25972#32463#37319#36141) TabOrder = 10 Text = #26412#21378#25972#32463 Width = 150 @@ -694,7 +698,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Tag = 2 Left = 1 Top = 1 - Width = 546 + Width = 520 Height = 770 Align = alLeft BevelInner = bvRaised @@ -703,148 +707,184 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut ParentBackground = False TabOrder = 1 ExplicitLeft = -4 - object Label15: TLabel - Left = 237 - Top = 18 - Width = 64 - Height = 21 - Caption = #29983#20135#31867#22411 - end object Label7: TLabel - Left = 7 - Top = 57 + Left = 12 + Top = 140 Width = 96 Height = 21 Caption = #25972#32463#24037#33402#32534#21495 end object Label1: TLabel - Left = 7 + Left = 12 Top = 18 Width = 96 Height = 21 Caption = #25972#32463#20219#21153#21333#21495 end - object Label16: TLabel - Left = 7 - Top = 408 - Width = 64 - Height = 21 - Caption = #29301#32463#25490#21015 - Color = clWhite - ParentColor = False - end object Label5: TLabel Left = 237 - Top = 57 + Top = 138 Width = 96 Height = 21 Caption = #25972#32463#24037#33402#21517#31216 end - object Label8: TLabel - Left = 7 - Top = 332 - Width = 48 - Height = 21 - Caption = #20301#31227#37327 - end object Label11: TLabel - Left = 7 - Top = 137 - Width = 48 - Height = 21 - Caption = #24635#22836#20221 - end - object Label12: TLabel - Left = 7 - Top = 254 + Left = 12 + Top = 181 Width = 64 Height = 21 - Caption = #31576#31359#20837#27861 - end - object Label13: TLabel - Left = 7 - Top = 176 - Width = 32 - Height = 21 - Caption = #21514#25968 - end - object Label14: TLabel - Left = 7 - Top = 215 - Width = 64 - Height = 21 - Caption = #32463#36724#38376#24133 - end - object Label17: TLabel - Left = 7 - Top = 293 - Width = 64 - Height = 21 - Caption = #22987#21514#20301#32622 - end - object Label18: TLabel - Left = 237 - Top = 136 - Width = 64 - Height = 21 - Caption = #19978#25490#39063#25968 - end - object Label19: TLabel - Left = 237 - Top = 175 - Width = 32 - Height = 21 - Caption = #38646#22836 - end - object Label22: TLabel - Left = 237 - Top = 253 - Width = 64 - Height = 21 - Caption = #22369#26012#24230#25968 - end - object Label23: TLabel - Left = 237 - Top = 293 - Width = 96 - Height = 21 - Caption = #29301#32463#24352#21147#21442#25968 - end - object Label37: TLabel - Left = 237 - Top = 332 - Width = 32 - Height = 21 - Caption = #32463#23494 + Caption = #24635#32463#26681#25968 end object Label38: TLabel - Left = 7 - Top = 96 + Left = 12 + Top = 59 Width = 64 Height = 21 Caption = #32455#36896#21333#21495 end object Label47: TLabel Left = 237 - Top = 97 + Top = 56 Width = 32 Height = 21 Caption = #23458#25143 end - object Label20: TLabel - Left = 403 - Top = 209 - Width = 64 + object Label8: TLabel + Left = 12 + Top = 100 + Width = 48 Height = 21 - Caption = #29301#32463#31576#21495 + Caption = #35746#21333#21495 + end + object Label14: TLabel + Left = 237 + Top = 385 + Width = 32 + Height = 21 + Caption = #31576#24133 + end + object Label20: TLabel + Left = 237 + Top = 303 + Width = 32 + Height = 21 + Caption = #31576#21495 end object Label39: TLabel - Left = 237 - Top = 214 + Left = 12 + Top = 304 Width = 64 Height = 21 Caption = #38050#31576#32534#21495 end + object Label22: TLabel + Left = 12 + Top = 344 + Width = 48 + Height = 21 + Caption = #36793#32433#25968 + end + object Label23: TLabel + Left = 237 + Top = 344 + Width = 64 + Height = 21 + Caption = #22320#31359#20837#25968 + end + object Label37: TLabel + Left = 12 + Top = 385 + Width = 48 + Height = 21 + Caption = #31576#40831#25968 + end + object Label41: TLabel + Left = 12 + Top = 426 + Width = 64 + Height = 21 + Caption = #36793#31359#20837#27861 + end + object Label12: TLabel + Left = 12 + Top = 222 + Width = 96 + Height = 21 + Caption = #32433#39550#26368#22823#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 12 + Top = 263 + Width = 32 + Height = 21 + Caption = #26465#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 237 + Top = 221 + Width = 64 + Height = 21 + Caption = #19978#26550#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label16: TLabel + Left = 237 + Top = 262 + Width = 32 + Height = 21 + Caption = #20313#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label17: TLabel + Left = 237 + Top = 97 + Width = 64 + Height = 21 + Caption = #20135#21697#32534#21495 + end + object Label19: TLabel + Left = 237 + Top = 179 + Width = 64 + Height = 21 + Caption = #29983#20135#31867#22411 + end + object Label18: TLabel + Left = 237 + Top = 15 + Width = 64 + Height = 21 + Caption = #25490#21333#26085#26399 + end + object Label40: TLabel + Left = 12 + Top = 461 + Width = 96 + Height = 21 + Caption = #35746#21333#32463#32433#38271#24230 + end object WBCNO: TcxTextEdit Tag = 1 Left = 106 @@ -854,20 +894,10 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut TabOrder = 0 Width = 120 end - object WB_Type: TcxComboBox - Tag = 1 - Left = 338 - Top = 12 - Properties.Items.Strings = ( - #22823#36135 - #35797#26679) - TabOrder = 1 - Width = 150 - end object WB_Code: TcxButtonEdit Tag = 1 Left = 106 - Top = 51 + Top = 134 ParentColor = True Properties.Buttons = < item @@ -877,112 +907,32 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Properties.ReadOnly = True Properties.OnButtonClick = WB_CodePropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 2 + TabOrder = 1 Width = 120 end object WB_Name: TcxTextEdit Tag = 1 Left = 338 - Top = 51 + Top = 135 ParentColor = True - TabOrder = 3 - Width = 150 + TabOrder = 2 + Width = 120 end object WB_YarnQty: TcxTextEdit Tag = 1 Left = 106 - Top = 131 + Top = 175 ParentColor = True - TabOrder = 4 + TabOrder = 3 Width = 120 end - object WB_Move: TcxTextEdit - Tag = 1 - Left = 106 - Top = 326 - ParentColor = True - TabOrder = 5 - Width = 120 - end - object WB_ReedNote: TcxTextEdit - Tag = 1 - Left = 106 - Top = 248 - ParentColor = True - TabOrder = 6 - Width = 120 - end - object WB_YarnStripQty: TcxTextEdit - Tag = 1 - Left = 106 - Top = 170 - ParentColor = True - TabOrder = 7 - Width = 120 - end - object WB_Width: TcxTextEdit - Tag = 1 - Left = 106 - Top = 209 - ParentColor = True - TabOrder = 8 - Width = 120 - end - object WB_Arg_SDWZ: TcxTextEdit - Tag = 1 - Left = 106 - Top = 287 - ParentColor = True - TabOrder = 9 - Width = 120 - end - object WB_YarnArr: TcxTextEdit - Tag = 1 - Left = 338 - Top = 131 - ParentColor = True - TabOrder = 10 - Width = 150 - end - object WB_YarnStripRemainder: TcxTextEdit - Tag = 1 - Left = 338 - Top = 170 - ParentColor = True - TabOrder = 11 - Width = 150 - end - object WB_Arg_PXDS: TcxTextEdit - Tag = 1 - Left = 337 - Top = 248 - ParentColor = True - TabOrder = 12 - Width = 150 - end - object WB_Arg_QJZL: TcxTextEdit - Tag = 1 - Left = 337 - Top = 287 - ParentColor = True - TabOrder = 13 - Width = 150 - end - object WB_YarnArrNote: TcxMemo - Tag = 1 - Left = 106 - Top = 363 - TabOrder = 14 - Height = 111 - Width = 423 - end object cxGrid3: TcxGrid Left = 2 Top = 528 - Width = 542 + Width = 516 Height = 240 Align = alBottom - TabOrder = 15 + TabOrder = 4 ExplicitLeft = -1 ExplicitTop = 529 object TV3: TcxGridDBTableView @@ -1170,18 +1120,10 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut GridView = TV3 end end - object WB_YarnDensity: TcxTextEdit - Tag = 1 - Left = 337 - Top = 326 - ParentColor = True - TabOrder = 16 - Width = 150 - end object GYNo: TcxButtonEdit Tag = 1 Left = 106 - Top = 90 + Top = 53 Properties.Buttons = < item Default = True @@ -1190,14 +1132,14 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Properties.ReadOnly = True Properties.OnButtonClick = GYNoPropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 17 + TabOrder = 5 OnDblClick = GYNoDblClick Width = 120 end object CustName: TcxButtonEdit Tag = 1 Left = 338 - Top = 92 + Top = 54 Properties.Buttons = < item Default = True @@ -1206,31 +1148,150 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Properties.ReadOnly = True Properties.OnButtonClick = CustNamePropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 18 + TabOrder = 6 OnDblClick = GYNoDblClick - Width = 150 + Width = 120 + end + object CONNO: TcxTextEdit + Tag = 1 + Left = 106 + Top = 94 + ParentColor = True + TabOrder = 7 + Width = 120 + end + object WB_Width: TcxTextEdit + Tag = 1 + Left = 338 + Top = 378 + ParentColor = True + TabOrder = 8 + Width = 120 end object WB_ReedNo: TcxTextEdit - Tag = 2 - Left = 473 - Top = 206 + Tag = 1 + Left = 338 + Top = 297 ParentColor = True Properties.ReadOnly = True - TabOrder = 19 - Width = 65 + TabOrder = 9 + Width = 120 end object GKBH: TcxButtonEdit - Tag = 2 - Left = 308 - Top = 206 + Tag = 1 + Left = 106 + Top = 298 Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = GKBHPropertiesButtonClick + TabOrder = 10 + Width = 120 + end + object BSQTY: TcxTextEdit + Tag = 1 + Left = 106 + Top = 338 + ParentColor = True + TabOrder = 11 + Width = 120 + end + object DCRQTY: TcxTextEdit + Tag = 1 + Left = 338 + Top = 338 + ParentColor = True + TabOrder = 12 + Width = 120 + end + object C_KCQTY: TcxTextEdit + Tag = 1 + Left = 106 + Top = 379 + ParentColor = True + TabOrder = 13 + Width = 120 + end + object WB_ReedNote: TcxTextEdit + Tag = 1 + Left = 106 + Top = 420 + ParentColor = True + TabOrder = 14 + Width = 352 + end + object F_MAXKESHU: TcxTextEdit + Tag = 2 + Left = 106 + Top = 216 + ParentColor = True + TabOrder = 15 + Text = '640' + Width = 120 + end + object F_YarnStripQty: TcxTextEdit + Tag = 2 + Left = 106 + Top = 257 + ParentColor = True + TabOrder = 16 + Width = 120 + end + object F_SJKESHU: TcxTextEdit + Tag = 2 + Left = 338 + Top = 216 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 17 + Width = 120 + end + object F_YUSHU: TcxTextEdit + Tag = 2 + Left = 338 + Top = 257 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 18 + Width = 120 + end + object C_CODE: TcxTextEdit + Tag = 1 + Left = 338 + Top = 95 + ParentColor = True + TabOrder = 19 + Width = 120 + end + object WB_TYPE: TcxTextEdit + Tag = 8 + Left = 338 + Top = 176 + ParentColor = True + Properties.ReadOnly = True TabOrder = 20 - Width = 89 + Text = #32463#36724 + Width = 120 + end + object BegDate: TcxDateEdit + Left = 338 + Top = 10 + AutoSize = False + Properties.ImmediatePost = True + Properties.ShowTime = False + TabOrder = 21 + Height = 33 + Width = 120 + end + object ordqty: TcxTextEdit + Tag = 1 + Left = 106 + Top = 455 + ParentColor = True + TabOrder = 22 + Width = 120 end end end diff --git a/E02梭织经轴仓库/U_TatWBCardInPut.pas b/E02梭织经轴仓库/U_TatWBCardInPut.pas index e79dc58..91f1b92 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut.pas +++ b/E02梭织经轴仓库/U_TatWBCardInPut.pas @@ -14,7 +14,7 @@ uses dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer, cxMaskEdit, cxDropDownEdit, cxRichEdit, cxMemo, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, - dxSkinSharpPlus, dxSkinWXI; + dxSkinSharpPlus, dxSkinWXI, dxCore, cxDateUtils; type TfrmTatWBCardInPut = class(TfrmBaseInput) @@ -46,39 +46,17 @@ type ToolButton2: TToolButton; TBClose: TToolButton; Panel1: TPanel; - Label15: TLabel; GPM_2: TcxGridPopupMenu; Label7: TLabel; Label1: TLabel; PM_1: TPopupMenu; N1: TMenuItem; - Label16: TLabel; WBCNO: TcxTextEdit; - WB_Type: TcxComboBox; WB_Code: TcxButtonEdit; Label5: TLabel; WB_Name: TcxTextEdit; - Label8: TLabel; Label11: TLabel; - Label12: TLabel; - Label13: TLabel; - Label14: TLabel; WB_YarnQty: TcxTextEdit; - WB_Move: TcxTextEdit; - WB_ReedNote: TcxTextEdit; - WB_YarnStripQty: TcxTextEdit; - WB_Width: TcxTextEdit; - Label17: TLabel; - WB_Arg_SDWZ: TcxTextEdit; - Label18: TLabel; - Label19: TLabel; - Label22: TLabel; - Label23: TLabel; - WB_YarnArr: TcxTextEdit; - WB_YarnStripRemainder: TcxTextEdit; - WB_Arg_PXDS: TcxTextEdit; - WB_Arg_QJZL: TcxTextEdit; - WB_YarnArrNote: TcxMemo; TV2Column2: TcxGridDBColumn; DS_3: TDataSource; GPM_3: TcxGridPopupMenu; @@ -147,8 +125,6 @@ type TV2Column7: TcxGridDBColumn; TV2Column8: TcxGridDBColumn; TV2Column9: TcxGridDBColumn; - Label37: TLabel; - WB_YarnDensity: TcxTextEdit; TV3Column1: TcxGridDBColumn; TV3Column2: TcxGridDBColumn; TV3Column3: TcxGridDBColumn; @@ -157,10 +133,38 @@ type GYNo: TcxButtonEdit; Label47: TLabel; CustName: TcxButtonEdit; + Label8: TLabel; + CONNO: TcxTextEdit; + Label14: TLabel; Label20: TLabel; Label39: TLabel; + WB_Width: TcxTextEdit; WB_ReedNo: TcxTextEdit; GKBH: TcxButtonEdit; + Label22: TLabel; + Label23: TLabel; + BSQTY: TcxTextEdit; + DCRQTY: TcxTextEdit; + Label37: TLabel; + C_KCQTY: TcxTextEdit; + Label41: TLabel; + WB_ReedNote: TcxTextEdit; + Label12: TLabel; + Label13: TLabel; + Label15: TLabel; + Label16: TLabel; + F_MAXKESHU: TcxTextEdit; + F_YarnStripQty: TcxTextEdit; + F_SJKESHU: TcxTextEdit; + F_YUSHU: TcxTextEdit; + Label17: TLabel; + C_CODE: TcxTextEdit; + Label19: TLabel; + WB_TYPE: TcxTextEdit; + BegDate: TcxDateEdit; + Label18: TLabel; + Label40: TLabel; + ordqty: TcxTextEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); procedure N2Click(Sender: TObject); @@ -277,8 +281,6 @@ begin if Trim(WB_MachNo.Text) = '' then raise Exception.Create('ǨΪգ'); end; - if Trim(WB_YarnDensity.Text) = '' then - raise Exception.Create('ܲΪգ'); // if StrToIntDef(WB_ClothPiece.Text, 0) = 0 then // WB_ClothPiece.Text := '0'; @@ -406,19 +408,6 @@ begin Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString); Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString); Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value; - Self.WB_YarnArr.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArr').AsString); - Self.WB_YarnStripQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnStripQty').AsString); - Self.WB_YarnStripRemainder.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnStripRemainder').AsString); - Self.WB_Width.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString); - Self.WB_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString); - Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString); - Self.WB_Arg_PXDS.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Arg_PXDS').AsString); - Self.WB_Arg_SDWZ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Arg_SDWZ').AsString); - Self.WB_Arg_QJZL.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Arg_QJZL').AsString); - Self.WB_Move.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Move').AsString); - Self.WB_YarnArrNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString); - Self.WB_YarnDensity.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnDensity').AsString); - Self.Note.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString); Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString); Self.InitCard3(); @@ -548,7 +537,10 @@ begin Self.CustName.Text := CDS_1.FieldByName('CustName').asstring; Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring; - + Self.CONNO.Text := Trim(CDS_1.fieldbyname('CONNO').AsString); + Self.C_CODE.Text := Trim(CDS_1.fieldbyname('C_CODE').AsString); + Self.BegDate.Date := CDS_1.fieldbyname('ORDDATE').AsDateTime; + Self.ordqty.Text := Trim(CDS_1.fieldbyname('ordqty').AsString); with ADOQueryTemp do begin close; @@ -562,18 +554,20 @@ begin Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString); Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString); Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring; - Self.WB_YarnArr.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnArr').AsString); - Self.WB_YarnStripQty.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnStripQty').AsString); - Self.WB_YarnStripRemainder.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnStripRemainder').AsString); + + Self.F_MAXKESHU.Text := ADOQueryTemp.fieldbyname('F_MAXKESHU').asstring; + Self.F_SJKESHU.Text := ADOQueryTemp.fieldbyname('F_SJKESHU').asstring; + Self.F_YarnStripQty.Text := ADOQueryTemp.fieldbyname('F_YarnStripQty').asstring; + Self.F_YUSHU.Text := ADOQueryTemp.fieldbyname('F_YUSHU').asstring; + Self.GKBH.Text := ADOQueryTemp.fieldbyname('GKBH').asstring; + Self.BSQTY.Text := ADOQueryTemp.fieldbyname('BSQTY').asstring; + Self.DCRQTY.Text := ADOQueryTemp.fieldbyname('DCRQTY').asstring; + Self.C_KCQTY.Text := ADOQueryTemp.fieldbyname('C_KCQTY').asstring; + Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString); Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString); Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString); - Self.WB_Arg_PXDS.Text := Trim(ADOQueryTemp.fieldbyname('WB_Arg_PXDS').AsString); - Self.WB_Arg_SDWZ.Text := Trim(ADOQueryTemp.fieldbyname('WB_Arg_SDWZ').AsString); - Self.WB_Arg_QJZL.Text := Trim(ADOQueryTemp.fieldbyname('WB_Arg_QJZL').AsString); - Self.WB_Move.Text := Trim(ADOQueryTemp.fieldbyname('WB_Move').AsString); - Self.WB_YarnArrNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnArrNote').AsString); - Self.WB_YarnDensity.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnDensity').AsString); + Self.Note.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString); Self.InitCard3(); @@ -628,27 +622,29 @@ begin Close; sql.Clear; ////////////////// Ῠ ////////////////////// - sql.Add(' insert into Tat_WB_Card(WBCNO,WBCID,WBType,WB_ProcessType,WB_Code,WB_Name,WB_YarnQty,WB_YarnArr,WB_YarnLen,WB_Macher,WB_MachNo,WB_Type,Note,FillId,Filler,WB_YarnDensity'); - sql.Add(' ,WB_YarnStripQty,WB_YarnStripRemainder,WB_Width,WB_ReedNo,WB_ReedNote,WB_Arg_PXDS,WB_Arg_SDWZ,WB_Arg_QJZL,WB_Move,WB_YarnArrNote,WBFtyNo,WBFtyName,WBBelong,WBBelongCoNo,WBBelongCoName '); - sql.Add(' ,GYSubid,GYNo,CustNo,CustName,GKBH'); + sql.Add(' insert into Tat_WB_Card(WBCNO,TWPId,WBCID,WBType,WB_ProcessType,WB_Code,WB_Name,WB_YarnQty,WB_YARNARR,WB_YarnLen,WB_Macher,WB_MachNo,WB_Type,Note,FillId,Filler'); + sql.Add(' ,WB_Width,WB_ReedNo,WB_ReedNote,WBFtyNo,WBFtyName,WBBelong,WBBelongCoNo,WBBelongCoName '); + sql.Add(' ,GYSubid,GYNo,CustNo,CustName,GKBH,C_CODE'); + SQL.Add(' ,BSQTY,DCRQTY,C_KCQTY'); sql.Add(' ) values'); for i := 1 to MCardQty do begin - if GetLSNo(ADOQueryTemp, MWBCID, fDate + trim(WB_MachNo.Text), 'Tat_WB_Card', 4, 0) = False then + if GetLSNo(ADOQueryTemp, MWBCID, 'JZ' + fDate, 'Tat_WB_Card', 2, 0) = False then begin raise Exception.Create('ȡƱˮʧ!'); end; if i > 1 then sql.Add(','); - sql.Add(' (' + Quotedstr(Trim(FWBCNO))); + sql.Add(' (' + Quotedstr(Trim(WBCNO.Text))); + sql.Add(',' + Quotedstr(Trim(WBCNO.Text))); sql.Add(',' + Quotedstr(Trim(MWBCID))); sql.Add(',' + Quotedstr(Trim(MWBType))); sql.Add(',' + Quotedstr(Trim(WB_ProcessType.Text))); sql.Add(',' + Quotedstr(Trim(WB_Code.Text))); sql.Add(',' + Quotedstr(Trim(WB_Name.Text))); sql.Add(',' + (Trim(WB_YarnQty.Text))); - sql.Add(',' + Quotedstr(Trim(WB_YarnArr.Text))); + sql.Add(',' + (Trim(F_SJKESHU.Text))); sql.Add(',' + FloatToStr(MWB_YarnLen)); sql.Add(',' + Quotedstr(Trim(WB_Macher.Text))); sql.Add(',' + Quotedstr(Trim(WB_MachNo.Text))); @@ -656,54 +652,29 @@ begin sql.Add(',' + Quotedstr(Trim(Note.Text))); sql.Add(',' + Quotedstr(Trim(DCode))); sql.Add(',' + Quotedstr(Trim(DName))); - - sql.Add(',' + Quotedstr(Trim(WB_YarnDensity.Text))); - - sql.Add(',' + Quotedstr(Trim(WB_YarnStripQty.Text))); - sql.Add(',' + Quotedstr(Trim(WB_YarnStripRemainder.Text))); sql.Add(',' + Quotedstr(Trim(WB_Width.Text))); sql.Add(',' + Quotedstr(Trim(WB_ReedNo.Text))); sql.Add(',' + Quotedstr(Trim(WB_ReedNote.Text))); - sql.Add(',' + Quotedstr(Trim(WB_Arg_PXDS.Text))); - sql.Add(',' + Quotedstr(Trim(WB_Arg_SDWZ.Text))); - sql.Add(',' + Quotedstr(Trim(WB_Arg_QJZL.Text))); - sql.Add(',' + Quotedstr(Trim(WB_Move.Text))); - sql.Add(',' + Quotedstr(Trim(WB_YarnArrNote.Text))); sql.Add(',' + Quotedstr(Trim(WBFtyName.Properties.LookupItems.Text))); sql.Add(',' + Quotedstr(Trim(WBFtyName.Text))); sql.Add(',' + Quotedstr(Trim(MWBBelong))); sql.Add(',' + Quotedstr(Trim(MWBBelongCoNo))); sql.Add(',' + Quotedstr(Trim(MWBBelongCoName))); - sql.Add(',' + Quotedstr(Trim(GYNo.Properties.LookupItems.Text))); sql.Add(',' + Quotedstr(Trim(GYNo.Text))); sql.Add(',' + Quotedstr(Trim(CustName.Properties.LookupItems.Text))); sql.Add(',' + Quotedstr(Trim(CustName.Text))); sql.Add(',' + Quotedstr(Trim(GKBH.Text))); + + sql.Add(',' + Quotedstr(Trim(C_CODE.Text))); + + sql.Add(',' + (Trim(BSQTY.Text))); + sql.Add(',' + (Trim(DCRQTY.Text))); + sql.Add(',' + Quotedstr(Trim(C_KCQTY.Text))); + sql.Add(' )'); end; - ////////////////// Ῠ ////////////////////// - /// - ////////////////// Ῠƻ ////////////////////// -// if not CDS_1.IsEmpty then -// begin -// with CDS_1 do -// begin -// First; -// sql.Add(' delete Tat_WB_Card_Link where WBCNO=' + Quotedstr(Trim(FWBCNO))); -// -// while not Eof do -// begin -// sql.Add(' insert into Tat_WB_Card_Link(MainId,SubID,WBCNO) values'); -// sql.Add(' (' + Quotedstr(Trim(CDS_1.FieldByName('MainId').AsString))); -// sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('SubID').AsString))); -// sql.Add(',' + Quotedstr(Trim(FWBCNO))); -// sql.Add(' )'); -// Next; -// end; -// end; -// end; - ////////////////// Ῠƻ ////////////////////// + ExecSQL; end; with ADOQueryTemp do diff --git a/E02梭织经轴仓库/U_TatWBCardInPut2.dfm b/E02梭织经轴仓库/U_TatWBCardInPut2.dfm new file mode 100644 index 0000000..6598bbb --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBCardInPut2.dfm @@ -0,0 +1,1275 @@ +inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 + Left = -35 + Top = 98 + Caption = #32463#36724#35745#21010 + ClientHeight = 772 + ClientWidth = 1817 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Height = -16 + Position = poMainFormCenter + OnClose = FormClose + ExplicitWidth = 1833 + ExplicitHeight = 811 + PixelsPerInch = 96 + TextHeight = 21 + object Panel2: TPanel [0] + Left = 0 + Top = 0 + Width = 1817 + Height = 772 + Align = alClient + TabOrder = 0 + object Panel4: TPanel + Left = 547 + Top = 1 + Width = 1269 + Height = 770 + Align = alClient + TabOrder = 0 + object cxGrid2: TcxGrid + Left = 1 + Top = 168 + Width = 1267 + Height = 601 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_Card + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Tag = 9 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object TV2Column18: TcxGridDBColumn + Caption = #32463#36724#31867#22411 + DataBinding.FieldName = 'WB_ProcessType' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #26412#21378#25972#32463 + #22806#21378#25972#32463 + #25972#32463#37319#36141) + HeaderAlignmentHorz = taCenter + Width = 122 + end + object V2Column3: TcxGridDBColumn + Caption = #25972#32463#26426#21495 + DataBinding.FieldName = 'WB_MachNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object TV2Column9: TcxGridDBColumn + Caption = #36724#21345#21495 + DataBinding.FieldName = 'WBCID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 114 + end + object TV2Column4: TcxGridDBColumn + Caption = #25972#32463#38271#24230 + DataBinding.FieldName = 'WB_YarnLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 122 + end + object TV2Column2: TcxGridDBColumn + Caption = #30424#22836#31867#22411 + DataBinding.FieldName = 'WBType' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = TV2Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 114 + end + object TV2Column1: TcxGridDBColumn + Caption = #25972#32463#21152#24037#37319#36141#32534#21495 + DataBinding.FieldName = 'WBFtyNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 118 + end + object TV2Column5: TcxGridDBColumn + Caption = #25972#32463#21152#24037#37319#36141#21333#20301 + DataBinding.FieldName = 'WBFtyName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = TV2Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 153 + end + object TV2Column3: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV2Column6: TcxGridDBColumn + Caption = #30424#22836#25152#23646 + DataBinding.FieldName = 'WBBelong' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #26412#21378 + #21152#24037#25143) + HeaderAlignmentHorz = taCenter + Width = 66 + end + object TV2Column7: TcxGridDBColumn + Caption = #25152#23646#21333#20301#32534#21495 + DataBinding.FieldName = 'WBBelongCoNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV2Column8: TcxGridDBColumn + Caption = #25152#23646#21333#20301#21517#31216 + DataBinding.FieldName = 'WBBelongCoName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = TV2Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 66 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object ToolBar1: TToolBar + Tag = 1 + Left = 1 + Top = 1 + Width = 1267 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 99 + Caption = 'ToolBar1' + DisabledImages = DataLink_WarpBeamStk.cxImageList_bar + EdgeInner = esNone + EdgeOuter = esNone + Images = DataLink_WarpBeamStk.cxImageList_bar + List = True + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #24320#21345 + ImageIndex = 16 + OnClick = TBSaveClick + end + object ToolButton1: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#20462#25913 + ImageIndex = 16 + OnClick = ToolButton3Click + end + object ToolButton8: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = ToolButton8Click + end + object ToolButton2: TToolButton + Left = 316 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 419 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel3: TPanel + Left = 1 + Top = 31 + Width = 1267 + Height = 137 + Align = alTop + TabOrder = 2 + object Label2: TLabel + Left = 263 + Top = 102 + Width = 41 + Height = 21 + Caption = #36724#25968'1' + end + object Label6: TLabel + Left = 384 + Top = 102 + Width = 41 + Height = 21 + Caption = #38271#24230'1' + end + object Label10: TLabel + Left = 32 + Top = 102 + Width = 73 + Height = 21 + Caption = #30424#22836#31867#22411'1' + end + object Label24: TLabel + Left = 263 + Top = 142 + Width = 41 + Height = 21 + Caption = #36724#25968'2' + Visible = False + end + object Label25: TLabel + Left = 32 + Top = 142 + Width = 73 + Height = 21 + Caption = #30424#22836#31867#22411'2' + Visible = False + end + object Label26: TLabel + Left = 263 + Top = 182 + Width = 41 + Height = 21 + Caption = #36724#25968'3' + Visible = False + end + object Label27: TLabel + Left = 32 + Top = 182 + Width = 73 + Height = 21 + Caption = #30424#22836#31867#22411'3' + Visible = False + end + object Label28: TLabel + Left = 384 + Top = 142 + Width = 41 + Height = 21 + Caption = #38271#24230'2' + Visible = False + end + object Label29: TLabel + Left = 384 + Top = 182 + Width = 41 + Height = 21 + Caption = #38271#24230'3' + Visible = False + end + object Label4: TLabel + Left = 32 + Top = 56 + Width = 32 + Height = 21 + Caption = #22791#27880 + Color = clWhite + ParentColor = False + end + object Label21: TLabel + Left = 32 + Top = 12 + Width = 64 + Height = 21 + Caption = #32463#36724#31867#22411 + end + object Label30: TLabel + Left = 254 + Top = 12 + Width = 128 + Height = 21 + Caption = #25972#32463#21152#24037#37319#36141#21333#20301 + end + object Label9: TLabel + Left = 762 + Top = 12 + Width = 48 + Height = 21 + Caption = #25972#32463#24037 + end + object Label3: TLabel + Left = 540 + Top = 12 + Width = 64 + Height = 21 + Caption = #25972#32463#26426#21495 + end + object Label31: TLabel + Left = 524 + Top = 102 + Width = 41 + Height = 21 + Caption = #30424#22836'1' + end + object Label32: TLabel + Left = 661 + Top = 102 + Width = 41 + Height = 21 + Caption = #25152#23646'1' + end + object Label33: TLabel + Left = 524 + Top = 142 + Width = 41 + Height = 21 + Caption = #30424#22836'1' + Visible = False + end + object Label34: TLabel + Left = 661 + Top = 142 + Width = 41 + Height = 21 + Caption = #25152#23646'1' + Visible = False + end + object Label35: TLabel + Left = 524 + Top = 182 + Width = 41 + Height = 21 + Caption = #30424#22836'1' + Visible = False + end + object Label36: TLabel + Left = 661 + Top = 182 + Width = 41 + Height = 21 + Caption = #25152#23646'1' + Visible = False + end + object WBType1: TcxButtonEdit + Tag = 2 + Left = 109 + Top = 96 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = WBNoPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 0 + Width = 150 + end + object WB_YarnLen1: TcxTextEdit + Tag = 99 + Left = 429 + Top = 96 + ParentColor = True + TabOrder = 1 + Width = 91 + end + object edtCardQty1: TcxTextEdit + Tag = 99 + Left = 308 + Top = 96 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 2 + Width = 72 + end + object WBType2: TcxButtonEdit + Tag = 2 + Left = 109 + Top = 136 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = WBNoPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 3 + Visible = False + Width = 150 + end + object edtCardQty2: TcxTextEdit + Tag = 99 + Left = 308 + Top = 136 + ParentColor = True + TabOrder = 4 + Visible = False + Width = 72 + end + object WBType3: TcxButtonEdit + Tag = 2 + Left = 109 + Top = 176 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = WBNoPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 5 + Visible = False + Width = 150 + end + object edtCardQty3: TcxTextEdit + Tag = 99 + Left = 308 + Top = 176 + ParentColor = True + TabOrder = 6 + Visible = False + Width = 72 + end + object WB_YarnLen2: TcxTextEdit + Tag = 99 + Left = 429 + Top = 136 + ParentColor = True + TabOrder = 7 + Visible = False + Width = 91 + end + object WB_YarnLen3: TcxTextEdit + Tag = 99 + Left = 429 + Top = 176 + ParentColor = True + TabOrder = 8 + Visible = False + Width = 91 + end + object Note: TcxMemo + Tag = 2 + Left = 109 + Top = 48 + TabOrder = 9 + Height = 37 + Width = 830 + end + object WB_ProcessType: TcxComboBox + Tag = 2 + Left = 98 + Top = 6 + Properties.Items.Strings = ( + #26412#21378#25972#32463 + #22806#21378#25972#32463) + TabOrder = 10 + Text = #26412#21378#25972#32463 + Width = 150 + end + object WBFtyName: TcxButtonEdit + Tag = 2 + Left = 386 + Top = 6 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 11 + OnDblClick = WBFtyNameDblClick + Width = 150 + end + object WB_MachNo: TcxButtonEdit + Tag = 2 + Left = 608 + Top = 6 + Hint = 'WB_MachNo/'#25972#32463#26426 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = WB_MachNoPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 12 + Width = 150 + end + object WB_Macher: TcxButtonEdit + Tag = 2 + Left = 814 + Top = 6 + Hint = 'WB_Macher/'#25190#32463#24037 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = WB_MachNoPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 13 + Width = 150 + end + object WBBelong1: TcxComboBox + Tag = 2 + Left = 569 + Top = 96 + Properties.Items.Strings = ( + #26412#21378 + #21152#24037#25143) + TabOrder = 14 + Text = #26412#21378 + Width = 88 + end + object WBBelongCoName1: TcxButtonEdit + Tag = 2 + Left = 706 + Top = 96 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 15 + Text = #26412#21378 + OnDblClick = WBFtyNameDblClick + Width = 150 + end + object WBBelong2: TcxComboBox + Tag = 2 + Left = 569 + Top = 136 + Properties.Items.Strings = ( + #26412#21378 + #21152#24037#25143) + TabOrder = 16 + Text = #26412#21378 + Visible = False + Width = 88 + end + object WBBelongCoName2: TcxButtonEdit + Tag = 2 + Left = 706 + Top = 136 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 17 + Text = #26412#21378 + Visible = False + OnDblClick = WBFtyNameDblClick + Width = 150 + end + object WBBelong3: TcxComboBox + Tag = 2 + Left = 569 + Top = 176 + Properties.Items.Strings = ( + #26412#21378 + #21152#24037#25143) + TabOrder = 18 + Text = #26412#21378 + Visible = False + Width = 88 + end + object WBBelongCoName3: TcxButtonEdit + Tag = 2 + Left = 706 + Top = 176 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 19 + Text = #26412#21378 + Visible = False + OnDblClick = WBFtyNameDblClick + Width = 150 + end + end + end + object Panel1: TPanel + Tag = 2 + Left = 1 + Top = 1 + Width = 546 + Height = 770 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label15: TLabel + Left = 237 + Top = 18 + Width = 64 + Height = 21 + Caption = #29983#20135#31867#22411 + end + object Label7: TLabel + Left = 7 + Top = 60 + Width = 96 + Height = 21 + Caption = #25972#32463#24037#33402#32534#21495 + end + object Label1: TLabel + Left = 7 + Top = 18 + Width = 96 + Height = 21 + Caption = #27974#32433#20219#21153#21333#21495 + end + object Label5: TLabel + Left = 237 + Top = 60 + Width = 96 + Height = 21 + Caption = #25972#32463#24037#33402#21517#31216 + end + object Label11: TLabel + Left = 7 + Top = 187 + Width = 64 + Height = 21 + Caption = #24635#32463#26681#25968 + end + object Label13: TLabel + Left = 7 + Top = 229 + Width = 64 + Height = 21 + Caption = #20998#32478#26681#25968 + end + object Label14: TLabel + Left = 237 + Top = 441 + Width = 32 + Height = 21 + Caption = #31576#24133 + end + object Label18: TLabel + Left = 237 + Top = 187 + Width = 32 + Height = 21 + Caption = #20998#32478 + end + object Label19: TLabel + Left = 237 + Top = 230 + Width = 32 + Height = 21 + Caption = #24182#25968 + end + object Label38: TLabel + Left = 7 + Top = 102 + Width = 64 + Height = 21 + Caption = #32455#36896#21333#21495 + end + object Label47: TLabel + Left = 237 + Top = 103 + Width = 32 + Height = 21 + Caption = #23458#25143 + end + object Label20: TLabel + Left = 237 + Top = 356 + Width = 32 + Height = 21 + Caption = #31576#21495 + end + object Label39: TLabel + Left = 7 + Top = 355 + Width = 64 + Height = 21 + Caption = #38050#31576#32534#21495 + end + object Label40: TLabel + Left = 7 + Top = 145 + Width = 64 + Height = 21 + Caption = #20135#21697#21517#31216 + end + object Label8: TLabel + Left = 7 + Top = 271 + Width = 96 + Height = 21 + Caption = #32433#26550#25346#32433#39063#25968 + end + object Label12: TLabel + Left = 7 + Top = 313 + Width = 96 + Height = 21 + Caption = #32433#26550#25346#32433#39063#25968 + end + object Label16: TLabel + Left = 237 + Top = 272 + Width = 48 + Height = 21 + Caption = #31232#36724#25968 + end + object Label17: TLabel + Left = 237 + Top = 314 + Width = 48 + Height = 21 + Caption = #31232#36724#25968 + end + object Label22: TLabel + Left = 7 + Top = 398 + Width = 48 + Height = 21 + Caption = #36793#32433#25968 + end + object Label23: TLabel + Left = 237 + Top = 399 + Width = 64 + Height = 21 + Caption = #22320#31359#20837#25968 + end + object Label37: TLabel + Left = 7 + Top = 440 + Width = 48 + Height = 21 + Caption = #31576#40831#25968 + end + object Label41: TLabel + Left = 7 + Top = 482 + Width = 64 + Height = 21 + Caption = #36793#31359#20837#27861 + end + object Label42: TLabel + Left = 237 + Top = 145 + Width = 64 + Height = 21 + Caption = #20135#21697#32534#21495 + end + object Label43: TLabel + Left = 237 + Top = 529 + Width = 96 + Height = 21 + Caption = #35745#21010#31232#36724#20010#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label44: TLabel + Left = 7 + Top = 528 + Width = 96 + Height = 21 + Caption = #35745#21010#31232#36724#32463#38271 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object TWPId: TcxTextEdit + Tag = 1 + Left = 106 + Top = 12 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 0 + Width = 120 + end + object WB_Code: TcxButtonEdit + Tag = 1 + Left = 106 + Top = 54 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = WB_CodePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 1 + Width = 120 + end + object WB_Name: TcxTextEdit + Tag = 1 + Left = 345 + Top = 54 + ParentColor = True + TabOrder = 2 + Width = 120 + end + object WB_YarnQty: TcxTextEdit + Tag = 1 + Left = 106 + Top = 181 + ParentColor = True + TabOrder = 3 + Width = 120 + end + object Z_FJGENSHU: TcxTextEdit + Tag = 1 + Left = 106 + Top = 223 + ParentColor = True + TabOrder = 4 + Width = 120 + end + object WB_Width: TcxTextEdit + Tag = 1 + Left = 345 + Top = 434 + ParentColor = True + TabOrder = 5 + Width = 120 + end + object Z_FENJIAO: TcxTextEdit + Tag = 1 + Left = 345 + Top = 181 + ParentColor = True + TabOrder = 6 + Width = 120 + end + object Z_BINGSHU: TcxTextEdit + Tag = 1 + Left = 345 + Top = 223 + ParentColor = True + TabOrder = 7 + Width = 120 + end + object GYNo: TcxButtonEdit + Tag = 1 + Left = 105 + Top = 96 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = GYNoPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 8 + OnDblClick = GYNoDblClick + Width = 120 + end + object CustName: TcxButtonEdit + Tag = 1 + Left = 345 + Top = 96 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = CustNamePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 9 + OnDblClick = GYNoDblClick + Width = 120 + end + object WB_ReedNo: TcxTextEdit + Tag = 1 + Left = 345 + Top = 350 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 10 + Width = 120 + end + object GKBH: TcxButtonEdit + Tag = 1 + Left = 103 + Top = 349 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = GKBHPropertiesButtonClick + TabOrder = 11 + Width = 120 + end + object WB_TYPE: TcxTextEdit + Tag = 8 + Left = 345 + Top = 12 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 12 + Width = 120 + end + object C_NAME: TcxTextEdit + Tag = 1 + Left = 106 + Top = 139 + ParentColor = True + TabOrder = 13 + Width = 120 + end + object Z_SJKESHU1: TcxTextEdit + Tag = 1 + Left = 106 + Top = 265 + ParentColor = True + TabOrder = 14 + Width = 120 + end + object Z_SJKESHU2: TcxTextEdit + Tag = 1 + Left = 106 + Top = 307 + ParentColor = True + TabOrder = 15 + Width = 120 + end + object Z_ZHOUSHU1: TcxTextEdit + Tag = 1 + Left = 345 + Top = 265 + ParentColor = True + TabOrder = 16 + Width = 120 + end + object Z_ZHOUSHU2: TcxTextEdit + Tag = 1 + Left = 345 + Top = 307 + ParentColor = True + TabOrder = 17 + Width = 120 + end + object BSQTY: TcxTextEdit + Tag = 1 + Left = 106 + Top = 392 + ParentColor = True + TabOrder = 18 + Width = 120 + end + object DCRQTY: TcxTextEdit + Tag = 1 + Left = 345 + Top = 392 + ParentColor = True + TabOrder = 19 + Width = 120 + end + object C_KCQTY: TcxTextEdit + Tag = 1 + Left = 106 + Top = 434 + ParentColor = True + TabOrder = 20 + Width = 120 + end + object WB_ReedNote: TcxTextEdit + Tag = 1 + Left = 105 + Top = 476 + ParentColor = True + TabOrder = 21 + Width = 382 + end + object C_CODE: TcxTextEdit + Tag = 1 + Left = 345 + Top = 139 + ParentColor = True + TabOrder = 22 + Width = 120 + end + object XZ_GS: TcxTextEdit + Left = 345 + Top = 522 + ParentColor = True + TabOrder = 23 + Width = 120 + end + object XZ_YarnQty: TcxTextEdit + Left = 106 + Top = 522 + ParentColor = True + TabOrder = 24 + Width = 120 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 777 + Top = 355 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 945 + Top = 474 + end + inherited ImageList_new32: TImageList + Left = 1352 + Top = 308 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + Left = 628 + Top = 330 + DesignInfo = 21627508 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Parameters = <> + Left = 1015 + Top = 363 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1091 + Top = 446 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 584 + Top = 395 + ReportData = {} + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 669 + Top = 390 + end + object RMDB_1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 1023 + Top = 529 + end + object DS_Card: TDataSource + DataSet = CDS_Card + Left = 623 + Top = 507 + end + object CDS_Card: TClientDataSet + Aggregates = <> + Params = <> + Left = 658 + Top = 476 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1175 + Top = 278 + end + object PopupMenu1: TPopupMenu + Left = 854 + Top = 426 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #20840#24323 + OnClick = N3Click + end + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 845 + Top = 472 + end + object PM_1: TPopupMenu + Left = 772 + Top = 508 + object N1: TMenuItem + Caption = #21024#38500 + end + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 910 + Top = 616 + end + object GPM_3: TcxGridPopupMenu + PopupMenus = <> + Left = 844 + Top = 620 + end + object CDS_3: TClientDataSet + Aggregates = <> + Params = <> + Left = 767 + Top = 622 + end + object ADO_3: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 702 + Top = 621 + end +end diff --git a/E02梭织经轴仓库/U_TatWBCardInPut2.pas b/E02梭织经轴仓库/U_TatWBCardInPut2.pas new file mode 100644 index 0000000..e85bddb --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBCardInPut2.pas @@ -0,0 +1,1012 @@ +unit U_TatWBCardInPut2; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, + RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC, + Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, + dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer, + cxMaskEdit, cxDropDownEdit, cxRichEdit, cxMemo, dxScrollbarAnnotations, + dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI; + +type + TfrmTatWBCardInPut2 = class(TfrmBaseInput) + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + RM1: TRMGridReport; + RMXLSExport1: TRMXLSExport; + RMDB_1: TRMDBDataSet; + Panel2: TPanel; + DS_Card: TDataSource; + CDS_Card: TClientDataSet; + ADOQueryPrint: TADOQuery; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + N3: TMenuItem; + Panel4: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + TV2Column4: TcxGridDBColumn; + TV2Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ToolBar1: TToolBar; + TBSave: TToolButton; + ToolButton1: TToolButton; + ToolButton8: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label15: TLabel; + GPM_2: TcxGridPopupMenu; + Label7: TLabel; + Label1: TLabel; + PM_1: TPopupMenu; + N1: TMenuItem; + TWPId: TcxTextEdit; + WB_Code: TcxButtonEdit; + Label5: TLabel; + WB_Name: TcxTextEdit; + Label11: TLabel; + Label13: TLabel; + Label14: TLabel; + WB_YarnQty: TcxTextEdit; + Z_FJGENSHU: TcxTextEdit; + WB_Width: TcxTextEdit; + Label18: TLabel; + Label19: TLabel; + Z_FENJIAO: TcxTextEdit; + Z_BINGSHU: TcxTextEdit; + TV2Column2: TcxGridDBColumn; + DS_3: TDataSource; + GPM_3: TcxGridPopupMenu; + CDS_3: TClientDataSet; + ADO_3: TADOQuery; + TV2Column18: TcxGridDBColumn; + ToolButton3: TToolButton; + TV2Column1: TcxGridDBColumn; + TV2Column5: TcxGridDBColumn; + Panel3: TPanel; + Label2: TLabel; + Label6: TLabel; + Label10: TLabel; + Label24: TLabel; + Label25: TLabel; + Label26: TLabel; + Label27: TLabel; + Label28: TLabel; + Label29: TLabel; + WBType1: TcxButtonEdit; + WB_YarnLen1: TcxTextEdit; + edtCardQty1: TcxTextEdit; + WBType2: TcxButtonEdit; + edtCardQty2: TcxTextEdit; + WBType3: TcxButtonEdit; + edtCardQty3: TcxTextEdit; + WB_YarnLen2: TcxTextEdit; + WB_YarnLen3: TcxTextEdit; + Label4: TLabel; + Note: TcxMemo; + Label21: TLabel; + Label30: TLabel; + WB_ProcessType: TcxComboBox; + WBFtyName: TcxButtonEdit; + Label9: TLabel; + Label3: TLabel; + WB_MachNo: TcxButtonEdit; + WB_Macher: TcxButtonEdit; + Label31: TLabel; + WBBelong1: TcxComboBox; + Label32: TLabel; + WBBelongCoName1: TcxButtonEdit; + Label33: TLabel; + WBBelong2: TcxComboBox; + Label34: TLabel; + WBBelongCoName2: TcxButtonEdit; + Label35: TLabel; + WBBelong3: TcxComboBox; + Label36: TLabel; + WBBelongCoName3: TcxButtonEdit; + TV2Column6: TcxGridDBColumn; + TV2Column7: TcxGridDBColumn; + TV2Column8: TcxGridDBColumn; + TV2Column9: TcxGridDBColumn; + Label38: TLabel; + GYNo: TcxButtonEdit; + Label47: TLabel; + CustName: TcxButtonEdit; + Label20: TLabel; + Label39: TLabel; + WB_ReedNo: TcxTextEdit; + GKBH: TcxButtonEdit; + WB_TYPE: TcxTextEdit; + Label40: TLabel; + C_NAME: TcxTextEdit; + Label8: TLabel; + Label12: TLabel; + Label16: TLabel; + Label17: TLabel; + Z_SJKESHU1: TcxTextEdit; + Z_SJKESHU2: TcxTextEdit; + Z_ZHOUSHU1: TcxTextEdit; + Z_ZHOUSHU2: TcxTextEdit; + Label22: TLabel; + Label23: TLabel; + BSQTY: TcxTextEdit; + DCRQTY: TcxTextEdit; + Label37: TLabel; + C_KCQTY: TcxTextEdit; + Label41: TLabel; + WB_ReedNote: TcxTextEdit; + Label42: TLabel; + C_CODE: TcxTextEdit; + Label43: TLabel; + XZ_GS: TcxTextEdit; + Label44: TLabel; + XZ_YarnQty: TcxTextEdit; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure WBNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure WB_MachNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TBSaveClick(Sender: TObject); + procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure WBFtyNameDblClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TV2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TV2Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure GYNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure GYNoDblClick(Sender: TObject); + procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + private + function TestData(): Boolean; + procedure PrtDate(MWBCID: string); + procedure InitCard(); + procedure InitCardGrop(); + procedure InitCard3(); + procedure KaiKa(MWBType, MWBBelong, MWBBelongCoNo, MWBBelongCoName: string; MCardQty: Integer; MWB_YarnLen: Double); + { Private declarations } + public + FWBCNO, FTWPId, FWB_Type: string; + + { Public declarations } + end; + +var + frmTatWBCardInPut2: TfrmTatWBCardInPut2; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_WBTatPlanSel, U_WBSpecSel, + U_WarpBeamInfoSel, U_WBTypeSel, U_CompanySel, U_TatGYSel, U_GKManageSel, + U_TatPlanSel2; + +{$R *.dfm} procedure TfrmTatWBCardInPut2.InitCard3(); +begin + with ADO_3 do + begin + Close; + sql.Clear; + sql.Add(' select A.* from Tat_WB_Formula A inner join Tat_WB_Spec B on A.WBSID=B.WBSID '); + sql.Add(' where WB_Code=''' + Trim(WB_Code.Text) + ''''); + Open; + end; + SCreateCDS(ADO_3, CDS_3); + SInitCDSData(ADO_3, CDS_3); +end; + +procedure TfrmTatWBCardInPut2.InitCardGrop(); +begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_WB_Plan A where A.TWPId=''' + Trim(FTWPId) + ''''); + Open; + end; + SCSHData(ADOQueryTemp, Panel1, 1); + if FWB_Type = 'ϡ' then + begin + edtCardQty1.Text := Trim(ADOQueryTemp.fieldbyname('Z_BINGSHU').AsString); + WB_YarnLen1.Text := Trim(ADOQueryTemp.fieldbyname('WB_Qty_YJMJZMS').AsString); + XZ_YarnQty.Text := Trim(ADOQueryTemp.fieldbyname('WB_Qty_YJMJZMS').AsString); + XZ_GS.Text := Trim(ADOQueryTemp.fieldbyname('WB_Qty_YJJZZS').AsString); + edtCardQty1.Properties.ReadOnly := true; + Label44.Caption := 'ƻϡᾭ'; + Label43.Caption := 'ƻϡ'; + WB_ProcessType.Properties.Items.Clear; + WB_ProcessType.Properties.Items.Add(''); + WB_ProcessType.Properties.Items.Add('⳧'); + WB_ProcessType.ItemIndex := 0; + end + else + begin + edtCardQty1.Properties.ReadOnly := false; + Label44.Caption := 'ƻ֯ᾭ'; + Label43.Caption := 'ƻ֯'; + + WB_ProcessType.Properties.Items.Clear; + WB_ProcessType.Properties.Items.Add('ɴ'); + WB_ProcessType.Properties.Items.Add('ɴɹ'); + WB_ProcessType.Properties.Items.Add('⳧ɴ'); + WB_ProcessType.ItemIndex := 0; + end; + + GYNo.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('GYSubid').AsString); + CustName.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('CustNo').AsString); +end; + +function TfrmTatWBCardInPut2.TestData(): Boolean; +begin + try + + if Trim(FTWPId) = '' then + begin + if GetLSNo(ADOQueryTemp, FTWPId, 'QJ', 'Tat_WB_Card', 3, 1) = False then + begin + raise Exception.Create('Ǩʧ!'); + end; + TWPId.Text := FTWPId; + end; +// if Trim(WB_ProcessType.Text) = '' then +// begin +// if Trim(WB_Macher.Text) = '' then +// raise Exception.Create('ǤλΪգ'); +// end; + if trim(WB_Code.Text) = '' then + raise Exception.Create('ŲΪգ'); +// if StrToIntDef(edtCardQty.Text, 0) = 0 then +// raise Exception.Create('Ϊգ'); + + + if StrToIntDef(WB_YarnQty.Text, 0) = 0 then + raise Exception.Create('ͷƲΪգ'); +// if Trim(WB_YarnArr.Text) = '' then +// raise Exception.Create('ŲΪգ'); +// if Trim(WB_Len.Text) = '' then +// raise Exception.Create('᳤Ϊգ'); +// if StrToIntDef(WB_YarnLen.Text, 0) = 0 then +// raise Exception.Create('ȲΪգ'); +// if Trim(WB_ProcessType.Text) = '' then +// begin +// if Trim(WB_MachNo.Text) = '' then +// raise Exception.Create('ǨΪգ'); +// end; + +// if StrToIntDef(WB_ClothPiece.Text, 0) = 0 then +// WB_ClothPiece.Text := '0'; + if Trim(WB_Type.Text) = '' then + raise Exception.Create('ͲΪգ'); + Result := True; + except + Result := false; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBCardInPut2.InitCard(); +begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add('from Tat_WB_Card A '); + sql.Add('where isnull(Status,''0'')<>''-1'' and TWPId=' + quotedstr(Trim(FTWPId))); + SQL.Add('AND WB_TYPE=' + quotedstr(Trim(FWB_Type))); + + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_Card); + SInitCDSData(ADOQueryTemp, CDS_Card); +end; + +procedure TfrmTatWBCardInPut2.PrtDate(MWBCID: string); +var + fPrintFile, FFCYID: string; + DPS, i, j: Integer; +begin + + ExportFtErpFile('Ῠǩ.rmf', ADOQueryTemp); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\Ῠǩ.rmf'; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update Tat_WB_Card set PrtFlag=PrtFlag+1 '); + sql.Add(' where WBCID=' + quotedstr(MWBCID)); + ExecSQL; + end; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,D.* '); + sql.Add(' from PD_Plan_Main A inner join PD_Plan_Sub B on A.Mainid=B.MainId'); + sql.Add(' inner join Tat_WB_Card_MS C on C.Subid=B.Subid '); + sql.Add(' inner join Tat_WB_Card D on C.WBCID=D.WBCID '); + sql.Add(' where D.WBCID=' + quotedstr(MWBCID)); +// ShowMessage(SQL.Text); + Open; + end; + +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add('select Y.* from PD_Plan_Yarn Y INNER JOIN Tat_WB_Card_MS M ON M.MainId=Y.MainId where Y.PYType=''˿'' and M.WBCID=' + Quotedstr(Trim(MWBCID))); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, CDS_PJS); +// SInitCDSData(ADOQueryTemp, CDS_PJS); +// +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add('select Y.* from PD_Plan_Yarn Y INNER JOIN Tat_WB_Card_MS M ON M.MainId=Y.MainId where Y.PYType=''γ˿'' and M.WBCID=' + Quotedstr(Trim(MWBCID))); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, CDS_PWS); +// SInitCDSData(ADOQueryTemp, CDS_PWS); + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.DefaultCopies := 1; + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + Exit; + end; + +end; + +procedure TfrmTatWBCardInPut2.WBFtyNameDblClick(Sender: TObject); +begin + self.WBFtyName.Properties.LookupItems.Text := ''; + self.WBFtyName.Text := ''; +end; + +procedure TfrmTatWBCardInPut2.WBNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmWBTypeSel := TfrmWBTypeSel.Create(Application); + with frmWBTypeSel do + begin + if ShowModal = 1 then + begin + TcxTextEdit(Sender).Text := Trim(frmWBTypeSel.CDS_Main.fieldbyname('WBType').AsString); + end; + end; + finally + frmWBTypeSel.Free; + end; +end; + +procedure TfrmTatWBCardInPut2.WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmWBSpecSel := TfrmWBSpecSel.Create(Application); + with frmWBSpecSel do + begin + + if ShowModal = 1 then + begin + Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString); + Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString); + Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value; + + Self.WB_Width.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString); + Self.WB_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString); + Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString); + + Self.Note.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString); + + Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString); + Self.InitCard3(); + end; + end; + finally + frmWBSpecSel.Free; + end; +end; + +procedure TfrmTatWBCardInPut2.WB_MachNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TcxButtonEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin +// MainType := 'SalesCon'; + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTatWBCardInPut2.CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + inherited; + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'ͻ'; + if ShowModal = 1 then + begin + CustName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); + CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTatWBCardInPut2.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + tcxbuttonedit(Sender).Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + tcxbuttonedit(Sender).Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTatWBCardInPut2.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTatWBCardInPut2.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(Trim(self.Caption) + 'Tv2', Tv2, 'Ῠ'); + InitCardGrop(); + InitCard(); + + InitCard3(); + WB_TYPE.Text := FWB_Type; +end; + +procedure TfrmTatWBCardInPut2.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmGKManageSel := tfrmGKManageSel.Create(Application); + with frmGKManageSel do + begin + + if ShowModal = 1 then + begin + SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString; + SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString; + end; + end; + finally + frmGKManageSel.Free; + end; +end; + +procedure TfrmTatWBCardInPut2.GYNoDblClick(Sender: TObject); +begin + inherited; + TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; + TcxButtonEdit(Sender).Text := ''; +end; + +procedure TfrmTatWBCardInPut2.GYNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + inherited; + try + frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application); + with frmTatPlanSel2 do + begin + FISSJ := ''; + if ShowModal = 1 then + begin + Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring; + Self.GYNo.Properties.LookupItems.Text := CDS_1.FieldByName('Subid').asstring; + Self.CustName.Text := CDS_1.FieldByName('CustName').asstring; + + Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from Tat_WB_Spec A'); + sql.Add(' where WB_Code=''' + trim(WB_Code.Text) + ''' '); + Open; + end; + + Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString); + Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString); + Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring; + + Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString); + Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString); + Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString); + + Self.Note.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString); + Self.InitCard3(); + + end; + end; + finally + frmTatPlanSel2.Free; + end; +end; + +procedure TfrmTatWBCardInPut2.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Card, True); +end; + +procedure TfrmTatWBCardInPut2.N3Click(Sender: TObject); +begin + SelOKNo(CDS_Card, False); +end; + +procedure TfrmTatWBCardInPut2.TBCloseClick(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmTatWBCardInPut2.TBSaveClick(Sender: TObject); +begin + if TestData() = false then + exit; + + KaiKa(WBType1.Text, WBBelong1.Text, WBBelongCoName1.Properties.LookupItems.Text, WBBelongCoName1.Text, StrToIntdef(edtCardQty1.Text, 0), StrToFloatdef(WB_YarnLen1.Text, 0)); +// KaiKa(WBType2.Text, WBBelong2.Text, WBBelongCoName2.Properties.LookupItems.Text, WBBelongCoName2.Text, StrToIntdef(edtCardQty2.Text, 0), StrToFloatdef(WB_YarnLen2.Text, 0)); +// KaiKa(WBType3.Text, WBBelong3.Text, WBBelongCoName3.Properties.LookupItems.Text, WBBelongCoName3.Text, StrToIntdef(edtCardQty3.Text, 0), StrToFloatdef(WB_YarnLen3.Text, 0)); +end; + +procedure TfrmTatWBCardInPut2.KaiKa(MWBType, MWBBelong, MWBBelongCoNo, MWBBelongCoName: string; MCardQty: Integer; MWB_YarnLen: Double); +var + MWBCID: string; + i, j: integer; + fDate: string; +begin + if MCardQty = 0 then + EXIT; + if (WB_ProcessType.Text = 'ɹ') or (WB_ProcessType.Text = '⳧ɴ') then + begin + if WBFtyName.Text = '' then + begin + Application.MessageBox('дӹλ', 'ʾ', 0); + Exit; + end; + + end; + + try + ADOQueryCmd.Connection.BeginTrans; + + fDate := FormatDateTime('yyMM', SGetServerDate(ADOQueryTemp)); + + with ADOQueryCmd do + begin + Close; + sql.Clear; + ////////////////// Ῠ ////////////////////// + sql.Add(' insert into Tat_WB_Card(WBCNO,TWPId,WBCID,WBType,WB_ProcessType,WB_Code,WB_Name,WB_YarnQty,WB_YARNARR,WB_YarnLen,WB_Macher,WB_MachNo,WB_Type,Note,FillId,Filler'); + sql.Add(' ,WB_Width,WB_ReedNo,WB_ReedNote,WBFtyNo,WBFtyName,WBBelong,WBBelongCoNo,WBBelongCoName '); + sql.Add(' ,GYSubid,GYNo,CustNo,CustName,GKBH,C_NAME,C_CODE,Z_FENJIAO,Z_FJGENSHU,Z_BINGSHU'); + SQL.Add(' ,BSQTY,DCRQTY,C_KCQTY,XZ_GS,XZ_YarnQty'); + sql.Add(' ) values'); + for i := 1 to MCardQty do + begin + if GetLSNo(ADOQueryTemp, MWBCID, 'XZK' + fDate, 'Tat_WB_Card', 2, 0) = False then + begin + raise Exception.Create('ȡƱˮʧ!'); + end; + + if i > 1 then + sql.Add(','); + sql.Add(' (' + Quotedstr(Trim(FTWPId))); + sql.Add(',' + Quotedstr(Trim(FTWPId))); + sql.Add(',' + Quotedstr(Trim(MWBCID))); + sql.Add(',' + Quotedstr(Trim(MWBType))); + sql.Add(',' + Quotedstr(Trim(WB_ProcessType.Text))); + sql.Add(',' + Quotedstr(Trim(WB_Code.Text))); + sql.Add(',' + Quotedstr(Trim(WB_Name.Text))); + if FWB_Type = 'ϡ' then + begin + if (i = MCardQty) and (Z_ZHOUSHU2.Text <> '') then + begin + sql.Add(',' + (Trim(Z_FJGENSHU.Text))); + sql.Add(',' + (Trim(Z_SJKESHU2.Text))); + end + else + begin + sql.Add(',' + (Trim(Z_FJGENSHU.Text))); + sql.Add(',' + (Trim(Z_SJKESHU1.Text))); + end; + end + else + begin + sql.Add(',' + (Trim(WB_YarnQty.Text))); + sql.Add(',' + (Trim(Z_SJKESHU1.Text))); + end; + + sql.Add(',' + FloatToStr(MWB_YarnLen)); + sql.Add(',' + Quotedstr(Trim(WB_Macher.Text))); + sql.Add(',' + Quotedstr(Trim(WB_MachNo.Text))); + sql.Add(',' + Quotedstr(Trim(WB_Type.Text))); + sql.Add(',' + Quotedstr(Trim(Note.Text))); + sql.Add(',' + Quotedstr(Trim(DCode))); + sql.Add(',' + Quotedstr(Trim(DName))); + sql.Add(',' + Quotedstr(Trim(WB_Width.Text))); + sql.Add(',' + Quotedstr(Trim(WB_ReedNo.Text))); + sql.Add(',' + Quotedstr(Trim(WB_ReedNote.Text))); + sql.Add(',' + Quotedstr(Trim(WBFtyName.Properties.LookupItems.Text))); + sql.Add(',' + Quotedstr(Trim(WBFtyName.Text))); + sql.Add(',' + Quotedstr(Trim(MWBBelong))); + sql.Add(',' + Quotedstr(Trim(MWBBelongCoNo))); + sql.Add(',' + Quotedstr(Trim(MWBBelongCoName))); + sql.Add(',' + Quotedstr(Trim(GYNo.Properties.LookupItems.Text))); + sql.Add(',' + Quotedstr(Trim(GYNo.Text))); + sql.Add(',' + Quotedstr(Trim(CustName.Properties.LookupItems.Text))); + sql.Add(',' + Quotedstr(Trim(CustName.Text))); + sql.Add(',' + Quotedstr(Trim(GKBH.Text))); + sql.Add(',' + Quotedstr(Trim(C_NAME.Text))); + sql.Add(',' + Quotedstr(Trim(C_CODE.Text))); + sql.Add(',' + (Trim(Z_FENJIAO.Text))); + sql.Add(',' + (Trim(Z_FJGENSHU.Text))); + sql.Add(',' + (Trim(Z_BINGSHU.Text))); + + sql.Add(',' + (Trim(BSQTY.Text))); + sql.Add(',' + (Trim(DCRQTY.Text))); + sql.Add(',' + Quotedstr(Trim(C_KCQTY.Text))); + if XZ_GS.Text <> '' then + begin + sql.Add(',' + (Trim(XZ_GS.Text))); + end + else + begin + sql.Add(',0'); + end; + if XZ_YarnQty.Text <> '' then + begin + sql.Add(',' + (Trim(XZ_YarnQty.Text))); + end + else + begin + sql.Add(',0'); + end; + + sql.Add(' )'); + end; + ////////////////// Ῠ ////////////////////// + /// + ////////////////// Ῠƻ ////////////////////// +// if not CDS_1.IsEmpty then +// begin +// with CDS_1 do +// begin +// First; +// sql.Add(' delete Tat_WB_Card_Link where WBCNO=' + Quotedstr(Trim(FWBCNO))); +// +// while not Eof do +// begin +// sql.Add(' insert into Tat_WB_Card_Link(MainId,SubID,WBCNO) values'); +// sql.Add(' (' + Quotedstr(Trim(CDS_1.FieldByName('MainId').AsString))); +// sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('SubID').AsString))); +// sql.Add(',' + Quotedstr(Trim(FWBCNO))); +// sql.Add(' )'); +// Next; +// end; +// end; +// end; + ////////////////// Ῠƻ ////////////////////// + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from V_Tat_WB_CardGrop A where A.WBCNO=''' + Trim(FWBCNO) + ''''); + Open; + end; + if ADOQueryTemp.RecordCount > 1 then + raise Exception.Create('ƻϢܱ!'); + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; + InitCard(); +end; + +procedure TfrmTatWBCardInPut2.ToolButton1Click(Sender: TObject); +var + WSql: string; +begin + + if CDS_Card.IsEmpty then + Exit; + if CDS_Card.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + + WSql := ''; + CDS_Card.DisableControls; + + with CDS_Card do + begin + First; + while not Eof do + begin + if CDS_Card.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_Card.fieldbyname('WBCID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_Card.fieldbyname('WBCID').AsString)); + end; + end; + Next; + end; + end; + + CDS_Card.Locate('SSel', True, []); + CDS_Card.EnableControls; + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FPreviewPrint := False; + FLMType := 'TatWBCard'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update Tat_WB_Card '); + sql.Add(' set PRTer=' + quotedstr(DName)); + sql.Add(', PRTCount=PRTCount+1'); + sql.Add(', PRTDate=getdate()'); + sql.Add(' where WBCID in (' + WSql + ')'); + ExecSQL; + end; + end; + end; + finally + frmLabelPrint.Free; + end; + +end; + +procedure TfrmTatWBCardInPut2.ToolButton2Click(Sender: TObject); +begin + + WriteCxGrid(Trim(self.Caption) + 'Tv2', Tv2, 'Ῠ'); +end; + +procedure TfrmTatWBCardInPut2.ToolButton3Click(Sender: TObject); +begin + Note.SetFocus; + try + CDS_Card.DisableControls; + CDS_Card.First; + while not CDS_Card.Eof do + begin + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from Tat_WB_Card A'); + sql.Add('where WBCID=''' + trim(CDS_Card.fieldbyname('WBCID').AsString) + ''''); + open; + edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + RTSetsavedata(ADOQueryCmd, 'Tat_WB_Card', Panel1, 1); + RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_Card, 'Tat_WB_Card', 0); + post; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + raise Exception.Create(PChar(Exception(ExceptObject).Message)); + end; + CDS_Card.Next; + end; + CDS_Card.EnableControls; + except + CDS_Card.EnableControls; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBCardInPut2.ToolButton8Click(Sender: TObject); +var + WSql: string; +begin + if CDS_Card.IsEmpty then + Exit; + if CDS_Card.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + + WSql := ''; + CDS_Card.DisableControls; + + while CDS_Card.Locate('SSel', True, []) do + begin + if CDS_Card.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + (Trim(CDS_Card.fieldbyname('WBCID').AsString)); + end + else + begin + WSql := (Trim(CDS_Card.fieldbyname('WBCID').AsString)); + end; + end; + CDS_Card.Delete; + end; + CDS_Card.EnableControls; + + try + ADOQueryCmd.Connection.BeginTrans; +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('insert into Knit_Need_Up(UOperation,UType,UDataId) values('''',''ɾ'',' + quotedstr(MCIIDS) + ') '); +// ExecSQL; +// end; + with ADOQueryCmd do + begin + Close; + Sql.Clear; + Sql.Add('exec P_TatWB_Card_Del '); + Sql.Add('@WBCIDS=' + quotedstr(Trim(WSql))); + Sql.Add(',@DCode=' + Quotedstr(DCode)); + Sql.Add(',@DName=' + Quotedstr(DName)); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + begin + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + end; + ADOQueryCmd.Connection.CommitTrans; + + application.MessageBox('ɾɹ', 'ʾϢ'); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBCardInPut2.TV2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmWBTypeSel := TfrmWBTypeSel.Create(Application); + with frmWBTypeSel do + begin + if ShowModal = 1 then + begin + with CDS_Card do + begin + Edit; + FieldByName('WBType').Value := Trim(frmWBTypeSel.CDS_Main.fieldbyname('WBType').AsString); + Post; + end; + end; + end; + finally + frmWBTypeSel.Free; + end; +end; + +procedure TfrmTatWBCardInPut2.TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + with CDS_Card do + begin + Edit; + FieldByName('WBFtyNo').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + FieldByName('WBFtyName').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + Post; + end; + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTatWBCardInPut2.TV2Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + with CDS_Card do + begin + Edit; + FieldByName('WBBelongCoNo').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + FieldByName('WBBelongCoName').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + Post; + end; + end; + end; + finally + frmCompanySel.Free; + end; +end; + +end. + diff --git a/E02梭织经轴仓库/U_TatWBNeedList.dfm b/E02梭织经轴仓库/U_TatWBNeedList.dfm index 6057cc0..42bc66a 100644 --- a/E02梭织经轴仓库/U_TatWBNeedList.dfm +++ b/E02梭织经轴仓库/U_TatWBNeedList.dfm @@ -3,8 +3,8 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList ClientHeight = 792 ClientWidth = 1540 Font.Height = -16 + FormStyle = fsMDIChild Visible = True - WindowState = wsMaximized ExplicitWidth = 1556 ExplicitHeight = 831 PixelsPerInch = 96 @@ -31,7 +31,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList ParentColor = False ParentFont = False ShowCaptions = True - TabOrder = 5 + TabOrder = 4 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -48,49 +48,16 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList ImageIndex = 0 OnClick = TBFindClick end - object ToolButton2: TToolButton - Left = 126 - Top = 0 - AutoSize = True - Caption = #21333#20215#20462#25913 - ImageIndex = 3 - Visible = False - OnClick = ToolButton2Click - end object TbLook: TToolButton - Left = 213 + Left = 126 Top = 0 AutoSize = True Caption = #26597#30475 ImageIndex = 8 OnClick = TbLookClick end - object ToolButton3: TToolButton - Left = 276 - Top = 0 - AutoSize = True - Caption = #23545#36134 - ImageIndex = 19 - OnClick = ToolButton3Click - end - object ToolButton4: TToolButton - Left = 339 - Top = 0 - AutoSize = True - Caption = #25764#38144#23545#36134 - ImageIndex = 11 - OnClick = ToolButton4Click - end - object TBdel: TToolButton - Left = 426 - Top = 0 - AutoSize = True - Caption = #21024#38500 - ImageIndex = 5 - OnClick = TBdelClick - end object TBPrint: TToolButton - Left = 489 + Left = 189 Top = 0 AutoSize = True Caption = #25171#21360 @@ -98,7 +65,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList Visible = False end object TBExport: TToolButton - Left = 552 + Left = 252 Top = 0 AutoSize = True Caption = #23548#20986'Excel' @@ -106,7 +73,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList OnClick = TBExportClick end object ToolButton1: TToolButton - Left = 645 + Left = 345 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -114,7 +81,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 732 + Left = 432 Top = 0 AutoSize = True Caption = #20851#38381 @@ -132,7 +99,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList BevelOuter = bvLowered Color = clWhite ParentBackground = False - TabOrder = 6 + TabOrder = 5 object Label2: TLabel Left = 300 Top = 46 @@ -189,13 +156,13 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList end object cxGrid1: TcxGrid [2] Left = 0 - Top = 138 + Top = 109 Width = 1540 - Height = 654 + Height = 683 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitTop = 144 + ExplicitTop = 115 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -323,26 +290,11 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList TabOrder = 3 Visible = False end - object cxTabControl1: TcxTabControl [4] - Left = 0 - Top = 109 - Width = 1540 - Height = 29 - Align = alTop - TabOrder = 4 - Properties.CustomButtons.Buttons = <> - Properties.Style = 9 - Properties.TabIndex = 0 - Properties.Tabs.Strings = ( - #26410#23545#36134 - #24050#23545#36134 - #20840#37096) - OnChange = cxTabControl1Change - ExplicitTop = 115 - ClientRectRight = 0 - ClientRectTop = 0 - end inherited cxProgressBar2: TcxProgressBar + Left = 300 + Top = 264 + ExplicitLeft = 300 + ExplicitTop = 264 ExplicitHeight = 29 end inherited ADOQueryBaseCmd: TADOQuery diff --git a/E02梭织经轴仓库/U_TatWBNeedList.pas b/E02梭织经轴仓库/U_TatWBNeedList.pas index 453a822..0b849c3 100644 --- a/E02梭织经轴仓库/U_TatWBNeedList.pas +++ b/E02梭织经轴仓库/U_TatWBNeedList.pas @@ -36,7 +36,6 @@ type cxGrid1: TcxGrid; MovePanel2: TMovePanel; RMGridReport1: TRMGridReport; - TBdel: TToolButton; ToolButton1: TToolButton; Tv1Column14: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; @@ -52,10 +51,6 @@ type Tv1Column27: TcxGridDBColumn; Tv1Column28: TcxGridDBColumn; frmFrameDateSel1: TfrmFrameDateSel; - ToolButton2: TToolButton; - cxTabControl1: TcxTabControl; - ToolButton3: TToolButton; - ToolButton4: TToolButton; Label2: TLabel; WB_Name: TcxTextEdit; Tv1Column1: TcxGridDBColumn; @@ -81,7 +76,7 @@ type procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure pcidPropertiesChange(Sender: TObject); - procedure cxTabControl1Change(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); procedure TbLookClick(Sender: TObject); @@ -102,42 +97,17 @@ var implementation uses - U_DataLink, U_RTFun, U_ZDYHelp, U_OutPutHelp,U_WBNeedLook; + U_DataLink, U_RTFun, U_ZDYHelp, U_OutPutHelp, U_WBNeedLook; {$R *.dfm} procedure TfrmTatWBNeedList.setstatus(); begin - ToolButton3.Enabled := False; - ToolButton4.Enabled := False; - TBdel.Enabled := False; Label1.Visible := false; - - case cxTabControl1.TabIndex of - 0: - begin - ToolButton3.Enabled := true; - TBdel.Enabled := true; - - Label1.Visible := true; - - end; - 1: - begin - ToolButton4.Enabled := true; - end; - 2: - begin - - end; - end; - end; - - procedure TfrmTatWBNeedList.FormDestroy(Sender: TObject); begin inherited; @@ -375,7 +345,7 @@ begin frmWBNeedLook := TfrmWBNeedLook.Create(Application); with frmWBNeedLook do begin - + FWB_Code := SELF.CDS_Main.FieldByName('WB_Code').ASSTRING; if ShowModal = 1 then begin Self.InitGrid(); diff --git a/E02梭织经轴仓库/U_TatWBPlan.dfm b/E02梭织经轴仓库/U_TatWBPlan.dfm index b68fef9..1a66399 100644 --- a/E02梭织经轴仓库/U_TatWBPlan.dfm +++ b/E02梭织经轴仓库/U_TatWBPlan.dfm @@ -6,6 +6,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan ClientWidth = 1540 Font.Height = -16 Position = poScreenCenter + ExplicitLeft = -17 ExplicitWidth = 1556 ExplicitHeight = 691 PixelsPerInch = 96 @@ -202,7 +203,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan Height = 29 Date = 40675.000000000000000000 Format = 'yyyy-MM-dd' - Time = 0.464761099538009200 + Time = 0.464761099538009100 TabOrder = 1 end object CustName: TEdit @@ -331,13 +332,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan HeaderAlignmentHorz = taCenter Width = 71 end - object Tv1Column1: TcxGridDBColumn - Caption = #20844#21496#25260#22836 - DataBinding.FieldName = 'OurCoName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 82 - end object v1Column19: TcxGridDBColumn Caption = #20132#36135#26085#26399 DataBinding.FieldName = 'DlyDate' @@ -350,7 +344,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan end object v1Column21: TcxGridDBColumn Caption = #21697#21517 - DataBinding.FieldName = 'WB_Spec' + DataBinding.FieldName = 'C_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 92 @@ -438,6 +432,8 @@ inherited frmTatWBPlan: TfrmTatWBPlan Align = alClient PopupMenu = PM_1 TabOrder = 0 + ExplicitLeft = 6 + ExplicitTop = 61 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -603,9 +599,11 @@ inherited frmTatWBPlan: TfrmTatWBPlan Properties.Style = 6 Properties.TabIndex = 0 Properties.Tabs.Strings = ( - #32463#36724 + #31232#36724 #27974#36724) OnChange = cxTabControl2Change + ExplicitLeft = 6 + ExplicitTop = 45 ClientRectBottom = 30 ClientRectRight = 564 ClientRectTop = 30 diff --git a/E02梭织经轴仓库/U_TatWBPlan.pas b/E02梭织经轴仓库/U_TatWBPlan.pas index 6d596f1..38fa114 100644 --- a/E02梭织经轴仓库/U_TatWBPlan.pas +++ b/E02梭织经轴仓库/U_TatWBPlan.pas @@ -53,7 +53,6 @@ type CustName: TEdit; Label7: TLabel; cxTabControl1: TcxTabControl; - Tv1Column1: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; TBEnd: TToolButton; TBNoEnd: TToolButton; @@ -146,9 +145,10 @@ implementation uses U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut, - U_TatWBPlanCardInPut; + U_TatWBCardInPut2; //U_TatWBPlanCardInPut {$R *.dfm} + procedure TfrmTatWBPlan.InitCard(); begin with ADO_2 do @@ -161,7 +161,7 @@ begin case cxTabControl2.TabIndex of 0: begin - sql.Add('and WB_Type ='''' '); + sql.Add('and WB_Type =''ϡ'' '); end; 1: begin @@ -440,8 +440,8 @@ begin Close; sql.Clear; SQL.Add('select A.*'); - sql.Add('from Tat_WB_Plan A'); - sql.Add(' where A.TWPId=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + ''''); + sql.Add('from Tat_WB_CARD A'); + sql.Add(' where A.WBCNO=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty = False then @@ -594,14 +594,14 @@ end; procedure TfrmTatWBPlan.ToolButton2Click(Sender: TObject); begin try - frmTatWBPlanCardInPut := TfrmTatWBPlanCardInPut.Create(Application); - with frmTatWBPlanCardInPut do + frmTatWBCardInPut2 := TfrmTatWBCardInPut2.Create(Application); + with frmTatWBCardInPut2 do begin FTWPId := Trim(self.CDS_1.fieldbyname('TWPId').AsString); case cxTabControl2.TabIndex of 0: begin - FWB_Type := ''; + FWB_Type := 'ϡ'; end; 1: begin @@ -615,7 +615,7 @@ begin end; end; finally - frmTatWBPlanCardInPut.Free; + frmTatWBCardInPut2.Free; end; end; diff --git a/E02梭织经轴仓库/U_TatWBPlanCard.pas b/E02梭织经轴仓库/U_TatWBPlanCard.pas index 9c2872b..b8dd74e 100644 --- a/E02梭织经轴仓库/U_TatWBPlanCard.pas +++ b/E02梭织经轴仓库/U_TatWBPlanCard.pas @@ -219,7 +219,7 @@ begin sql.Add(' where 1=1'); sql.add(' and A.WB_Date>=''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.BegDate.Date)) + ''''); sql.Add(' and A.WB_Date<''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.enddate.Date + 1)) + ''''); - sql.Add(' and WB_Type not in ('''')'); + sql.Add(' and WB_Type not in ('''',''ϡ'')'); // showmessage(Sql.text); // ShowMessage(sql.text); diff --git a/E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm index 085eaf7..b8b75bf 100644 --- a/E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm +++ b/E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm @@ -2,7 +2,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut Left = -35 Top = 98 Caption = #32463#36724#35745#21010 - ClientHeight = 667 + ClientHeight = 734 ClientWidth = 1540 Color = clWhite Font.Charset = GB2312_CHARSET @@ -10,27 +10,32 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut Position = poMainFormCenter OnClose = FormClose ExplicitWidth = 1556 - ExplicitHeight = 706 + ExplicitHeight = 773 PixelsPerInch = 96 TextHeight = 12 object Panel2: TPanel [0] - Left = 0 + Left = 546 Top = 0 - Width = 1540 - Height = 667 + Width = 994 + Height = 734 Align = alClient TabOrder = 0 + ExplicitLeft = 0 + ExplicitWidth = 1540 + ExplicitHeight = 667 object Panel1: TPanel Left = 1 Top = 1 - Width = 1538 - Height = 83 + Width = 992 + Height = 168 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitTop = 5 + ExplicitWidth = 1538 object Label8: TLabel Left = 377 Top = 50 @@ -124,7 +129,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut end object Label19: TLabel Left = 17 - Top = 50 + Top = 53 Width = 54 Height = 12 Caption = #21697' '#21517 @@ -149,6 +154,45 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut ParentFont = False Visible = False end + object Label1: TLabel + Left = 17 + Top = 86 + Width = 52 + Height = 12 + Caption = #32463#36724#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label30: TLabel + Left = 230 + Top = 100 + Width = 104 + Height = 12 + Caption = #25972#32463#21152#24037#37319#36141#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 542 + Top = 98 + Width = 59 + Height = 12 + Caption = #30424#22836#31867#22411'1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object WB_YarnQty: TEdit Tag = 1 Left = 436 @@ -168,7 +212,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut object WB_Spec: TEdit Tag = 1 Left = 76 - Top = 46 + Top = 50 Width = 282 Height = 20 TabOrder = 2 @@ -236,27 +280,96 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut OnBtnUpClick = WBNoBtnUpClick OnBtnDnClick = FtyCoNameBtnDnClick end + object WB_ProcessType: TcxComboBox + Tag = 2 + Left = 76 + Top = 83 + ParentFont = False + Properties.Items.Strings = ( + #26412#21378#25972#32463 + #22806#21378#25972#32463 + #25972#32463#37319#36141 + #22806#21378#27974#32433) + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 9 + Text = #26412#21378#25972#32463 + Width = 150 + end + object WBFtyName: TcxButtonEdit + Tag = 2 + Left = 362 + Top = 94 + ParentColor = True + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.ButtonStyle = btsDefault + Style.IsFontAssigned = True + TabOrder = 10 + Width = 150 + end + object WBType1: TcxButtonEdit + Tag = 2 + Left = 619 + Top = 94 + ParentColor = True + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.ButtonStyle = btsDefault + Style.IsFontAssigned = True + TabOrder = 11 + Width = 150 + end end object Panel4: TPanel Left = 1 - Top = 84 - Width = 1538 - Height = 582 + Top = 169 + Width = 992 + Height = 564 Align = alClient Caption = 'Panel4' TabOrder = 0 + ExplicitTop = 84 + ExplicitWidth = 1538 + ExplicitHeight = 582 object Panel3: TPanel Left = 1 Top = 1 - Width = 1536 - Height = 580 + Width = 990 + Height = 562 Align = alClient TabOrder = 0 + ExplicitWidth = 1536 + ExplicitHeight = 580 object cxPageControl1: TcxPageControl Left = 1 - Top = 282 - Width = 1534 - Height = 297 + Top = 42 + Width = 988 + Height = 519 Align = alClient Color = clWhite Font.Charset = GB2312_CHARSET @@ -271,16 +384,18 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut Visible = False Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ClientRectBottom = 297 - ClientRectRight = 1534 + ExplicitTop = 282 + ExplicitWidth = 1534 + ExplicitHeight = 297 + ClientRectBottom = 519 + ClientRectRight = 988 ClientRectTop = 0 end object cxGrid1: TcxGrid Left = 1 - Top = 42 + Top = 47 Width = 1534 - Height = 240 - Align = alTop + Height = 179 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 @@ -288,6 +403,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut Font.Style = [] ParentFont = False TabOrder = 1 + Visible = False object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -381,34 +497,14 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut object Panel5: TPanel Left = 1 Top = 1 - Width = 1534 + Width = 988 Height = 41 Align = alTop TabOrder = 2 - object Panel6: TPanel - Left = 1 - Top = 1 - Width = 184 - Height = 39 - Align = alLeft - TabOrder = 0 - object Label21: TLabel - Left = 37 - Top = 7 - Width = 84 - Height = 20 - Caption = #32463#32433#37197#27604 - Font.Charset = GB2312_CHARSET - Font.Color = clRed - Font.Height = -20 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - end + ExplicitLeft = -4 object ToolBar1: TToolBar Tag = 1 - Left = 185 + Left = 1 Top = 1 Width = 308 Height = 39 @@ -429,7 +525,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut List = True ParentFont = False ShowCaptions = True - TabOrder = 1 + TabOrder = 0 object TBSave: TToolButton Left = 0 Top = 0 @@ -444,6 +540,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut AutoSize = True Caption = #21024#34892 ImageIndex = 5 + Visible = False OnClick = ToolButton1Click end object ToolButton2: TToolButton @@ -465,10 +562,9 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut end object cxGrid2: TcxGrid Left = 1 - Top = 282 + Top = 288 Width = 1534 - Height = 297 - Align = alClient + Height = 212 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 @@ -476,6 +572,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut Font.Style = [] ParentFont = False TabOrder = 3 + Visible = False object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -566,9 +663,580 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut GridView = TV2 end end + object cxGrid3: TcxGrid + Left = 1 + Top = 42 + Width = 988 + Height = 519 + Align = alClient + TabOrder = 4 + ExplicitLeft = 4 + ExplicitTop = 47 + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn6: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 42 + end + object V2Column4: TcxGridDBColumn + Caption = #36724#21345#21495 + DataBinding.FieldName = 'WBCID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object TV1Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'WB_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object V2Column3: TcxGridDBColumn + Caption = #25972#32463#38271#24230 + DataBinding.FieldName = 'WB_YarnLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #22836#32441 + DataBinding.FieldName = 'WB_YarnQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object TV1Column3: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 146 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TV3 + end + end end end end + object Panel6: TPanel [1] + Tag = 2 + Left = 0 + Top = 0 + Width = 546 + Height = 734 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + ExplicitLeft = -2 + object Label15: TLabel + Left = 237 + Top = 18 + Width = 52 + Height = 12 + Caption = #29983#20135#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 7 + Top = 57 + Width = 78 + Height = 12 + Caption = #25972#32463#24037#33402#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 7 + Top = 18 + Width = 78 + Height = 12 + Caption = #25972#32463#20219#21153#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 7 + Top = 408 + Width = 52 + Height = 12 + Caption = #29301#32463#25490#21015 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object Label11: TLabel + Left = 237 + Top = 57 + Width = 78 + Height = 12 + Caption = #25972#32463#24037#33402#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 7 + Top = 332 + Width = 39 + Height = 12 + Caption = #20301#31227#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 7 + Top = 137 + Width = 39 + Height = 12 + Caption = #24635#22836#20221 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 7 + Top = 254 + Width = 52 + Height = 12 + Caption = #31576#31359#20837#27861 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 7 + Top = 176 + Width = 26 + Height = 12 + Caption = #21514#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 7 + Top = 215 + Width = 52 + Height = 12 + Caption = #32463#36724#38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label22: TLabel + Left = 7 + Top = 293 + Width = 52 + Height = 12 + Caption = #22987#21514#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 237 + Top = 136 + Width = 52 + Height = 12 + Caption = #19978#25490#39063#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 237 + Top = 175 + Width = 26 + Height = 12 + Caption = #38646#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 237 + Top = 253 + Width = 52 + Height = 12 + Caption = #22369#26012#24230#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 237 + Top = 293 + Width = 78 + Height = 12 + Caption = #29301#32463#24352#21147#21442#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label37: TLabel + Left = 237 + Top = 332 + Width = 26 + Height = 12 + Caption = #32463#23494 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label38: TLabel + Left = 7 + Top = 96 + Width = 52 + Height = 12 + Caption = #32455#36896#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label47: TLabel + Left = 237 + Top = 97 + Width = 26 + Height = 12 + Caption = #23458#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 403 + Top = 209 + Width = 52 + Height = 12 + Caption = #29301#32463#31576#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label39: TLabel + Left = 237 + Top = 214 + Width = 52 + Height = 12 + Caption = #38050#31576#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object WBCNO: TcxTextEdit + Tag = 1 + Left = 106 + Top = 12 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 0 + Width = 120 + end + object WB_Type: TcxComboBox + Tag = 1 + Left = 338 + Top = 12 + Properties.Items.Strings = ( + #22823#36135 + #35797#26679) + TabOrder = 1 + Width = 150 + end + object WB_Code: TcxButtonEdit + Tag = 1 + Left = 106 + Top = 51 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Style.ButtonStyle = btsDefault + TabOrder = 2 + Width = 120 + end + object WB_Name: TcxTextEdit + Tag = 1 + Left = 338 + Top = 51 + ParentColor = True + TabOrder = 3 + Width = 150 + end + object cxTextEdit1: TcxTextEdit + Tag = 1 + Left = 106 + Top = 131 + ParentColor = True + TabOrder = 4 + Width = 120 + end + object WB_Move: TcxTextEdit + Tag = 1 + Left = 106 + Top = 326 + ParentColor = True + TabOrder = 5 + Width = 120 + end + object WB_ReedNote: TcxTextEdit + Tag = 1 + Left = 106 + Top = 248 + ParentColor = True + TabOrder = 6 + Width = 120 + end + object WB_YarnStripQty: TcxTextEdit + Tag = 1 + Left = 106 + Top = 170 + ParentColor = True + TabOrder = 7 + Width = 120 + end + object WB_Width: TcxTextEdit + Tag = 1 + Left = 106 + Top = 209 + ParentColor = True + TabOrder = 8 + Width = 120 + end + object WB_Arg_SDWZ: TcxTextEdit + Tag = 1 + Left = 106 + Top = 287 + ParentColor = True + TabOrder = 9 + Width = 120 + end + object WB_YarnArr: TcxTextEdit + Tag = 1 + Left = 338 + Top = 131 + ParentColor = True + TabOrder = 10 + Width = 150 + end + object WB_YarnStripRemainder: TcxTextEdit + Tag = 1 + Left = 338 + Top = 170 + ParentColor = True + TabOrder = 11 + Width = 150 + end + object WB_Arg_PXDS: TcxTextEdit + Tag = 1 + Left = 337 + Top = 248 + ParentColor = True + TabOrder = 12 + Width = 150 + end + object WB_Arg_QJZL: TcxTextEdit + Tag = 1 + Left = 337 + Top = 287 + ParentColor = True + TabOrder = 13 + Width = 150 + end + object WB_YarnArrNote: TcxMemo + Tag = 1 + Left = 106 + Top = 363 + TabOrder = 14 + Height = 111 + Width = 423 + end + object WB_YarnDensity: TcxTextEdit + Tag = 1 + Left = 337 + Top = 326 + ParentColor = True + TabOrder = 15 + Width = 150 + end + object GYNo: TcxButtonEdit + Tag = 1 + Left = 106 + Top = 90 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Style.ButtonStyle = btsDefault + TabOrder = 16 + Width = 120 + end + object CustName: TcxButtonEdit + Tag = 1 + Left = 338 + Top = 92 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Style.ButtonStyle = btsDefault + TabOrder = 17 + Width = 150 + end + object WB_ReedNo: TcxTextEdit + Tag = 2 + Left = 473 + Top = 206 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 18 + Width = 65 + end + object GKBH: TcxButtonEdit + Tag = 2 + Left = 308 + Top = 206 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + TabOrder = 19 + Width = 89 + end + end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_WarpBeamStk.ADOLink Left = 722 @@ -585,6 +1253,9 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut end inherited cxImageList_bar: TcxImageList FormatVersion = 1 + Left = 336 + Top = 385 + DesignInfo = 25231696 end object ADOQueryCmd: TADOQuery Connection = DataLink_WarpBeamStk.ADOLink @@ -616,7 +1287,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut object DS_1: TDataSource DataSet = CDS_1 Left = 614 - Top = 183 + Top = 295 end object CDS_1: TClientDataSet Aggregates = <> @@ -625,8 +1296,8 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut Top = 181 end object PopupMenu1: TPopupMenu - Left = 553 - Top = 412 + Left = 609 + Top = 492 object N2: TMenuItem Caption = #20840#36873 end @@ -657,4 +1328,21 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut Left = 481 Top = 186 end + object GPM_3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 412 + Top = 490 + end + object CDS_3: TClientDataSet + Aggregates = <> + Params = <> + Left = 474 + Top = 487 + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 550 + Top = 488 + end end diff --git a/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas b/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas index 34b8a6a..e8a9885 100644 --- a/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas +++ b/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas @@ -13,7 +13,8 @@ uses Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinOffice2013White, - dxSkinSharpPlus, dxSkinsDefaultPainters, dxSkinWXI; + dxSkinSharpPlus, dxSkinsDefaultPainters, dxSkinWXI, cxContainer, cxMaskEdit, + cxDropDownEdit, cxMemo; type TfrmTatWBPlanCardInPut = class(TfrmBaseInput) @@ -58,8 +59,6 @@ type TV1Column2: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; Panel5: TPanel; - Panel6: TPanel; - Label21: TLabel; cxGrid2: TcxGrid; TV2: TcxGridDBTableView; cxGridDBColumn2: TcxGridDBColumn; @@ -76,6 +75,65 @@ type DS_2: TDataSource; GPM_1: TcxGridPopupMenu; ToolButton1: TToolButton; + Label1: TLabel; + Label30: TLabel; + WB_ProcessType: TcxComboBox; + WBFtyName: TcxButtonEdit; + Label3: TLabel; + WBType1: TcxButtonEdit; + cxGrid3: TcxGrid; + TV3: TcxGridDBTableView; + cxGridDBColumn6: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + TV1Column5: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + TV1Column3: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + GPM_3: TcxGridPopupMenu; + CDS_3: TClientDataSet; + DS_3: TDataSource; + Panel6: TPanel; + Label15: TLabel; + Label5: TLabel; + Label9: TLabel; + Label16: TLabel; + Label11: TLabel; + Label13: TLabel; + Label14: TLabel; + Label17: TLabel; + Label20: TLabel; + Label21: TLabel; + Label22: TLabel; + Label23: TLabel; + Label24: TLabel; + Label25: TLabel; + Label26: TLabel; + Label37: TLabel; + Label38: TLabel; + Label47: TLabel; + Label27: TLabel; + Label39: TLabel; + WBCNO: TcxTextEdit; + WB_Type: TcxComboBox; + WB_Code: TcxButtonEdit; + WB_Name: TcxTextEdit; + cxTextEdit1: TcxTextEdit; + WB_Move: TcxTextEdit; + WB_ReedNote: TcxTextEdit; + WB_YarnStripQty: TcxTextEdit; + WB_Width: TcxTextEdit; + WB_Arg_SDWZ: TcxTextEdit; + WB_YarnArr: TcxTextEdit; + WB_YarnStripRemainder: TcxTextEdit; + WB_Arg_PXDS: TcxTextEdit; + WB_Arg_QJZL: TcxTextEdit; + WB_YarnArrNote: TcxMemo; + WB_YarnDensity: TcxTextEdit; + GYNo: TcxButtonEdit; + CustName: TcxButtonEdit; + WB_ReedNo: TcxTextEdit; + GKBH: TcxButtonEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -123,6 +181,7 @@ begin edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty').AsString; WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_YarnLen').AsString; WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_YarnQty').AsString; + end else begin @@ -130,6 +189,7 @@ begin WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZGS').AsString; edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJJZZS').AsString; WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZMS').AsString; + end; with ADOQueryTemp do begin @@ -144,6 +204,19 @@ begin SInitCDSData(ADOQueryTemp, CDS_1); SCreateCDS(ADOQueryTemp, CDS_2); SInitCDSData(ADOQueryTemp, CDS_2); + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from Tat_WB_Card A'); + sql.Add(' where TWPId=''' + Trim(FTWPId) + ''''); + SQL.Add('and WB_Type = ' + QUOTEDSTR(FWB_Type)); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_3); + SInitCDSData(ADOQueryTemp, CDS_3); end; function TfrmTatWBPlanCardInPut.TestData(): Boolean; @@ -250,7 +323,7 @@ begin sql.Clear; sql.Add(' insert into Tat_WB_Card(WBCID,WBNo,TWPId,WB_Spec,WB_YarnQty,WB_YarnLen '); sql.Add(' ,WBData,FtyCoNo,FtyCoName'); - sql.Add(' ,WB_Type,Note,FillId,Filler) values'); + sql.Add(' ,WB_Type,Note,FillId,Filler,WBType,WB_ProcessType,WBFtyName) values'); for i := 1 to StrToIntdef(edtCardQty.Text, 1) do begin @@ -269,6 +342,9 @@ begin sql.Add(',' + Quotedstr(Trim(Note.Text))); sql.Add(',' + Quotedstr(Trim(DCode))); sql.Add(',' + Quotedstr(Trim(DName))); + sql.Add(',' + Quotedstr(Trim(WBType1.Text))); + sql.Add(',' + Quotedstr(Trim(WB_ProcessType.Text))); + sql.Add(',' + Quotedstr(Trim(WBFtyName.Text))); sql.Add(' )'); end; diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm index 1898d07..2935bbb 100644 --- a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm @@ -2,15 +2,14 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Left = 212 Top = 14 Caption = #27974#32433#35745#21010#24405#20837 - ClientHeight = 616 + ClientHeight = 763 ClientWidth = 1429 Color = clWhite Font.Charset = GB2312_CHARSET Font.Name = #23435#20307 Position = poScreenCenter - ExplicitTop = -30 ExplicitWidth = 1445 - ExplicitHeight = 655 + ExplicitHeight = 802 PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar [0] @@ -36,7 +35,6 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitWidth = 1124 object TBSave: TToolButton Left = 0 Top = 0 @@ -63,17 +61,18 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut end object Panel2: TPanel [1] Left = 0 - Top = 353 + Top = 433 Width = 1429 - Height = 263 + Height = 330 Align = alClient TabOrder = 1 - ExplicitWidth = 1124 + ExplicitTop = 353 + ExplicitHeight = 263 object cxPageControl1: TcxPageControl Left = 1 Top = 42 Width = 1427 - Height = 220 + Height = 287 Align = alClient Color = clWhite Font.Charset = GB2312_CHARSET @@ -88,8 +87,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Visible = False Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ExplicitWidth = 1122 - ClientRectBottom = 220 + ExplicitHeight = 220 + ClientRectBottom = 287 ClientRectRight = 1427 ClientRectTop = 0 end @@ -100,6 +99,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Height = 41 Align = alTop TabOrder = 1 + Visible = False ExplicitLeft = 2 ExplicitTop = 6 object Panel6: TPanel @@ -171,10 +171,10 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Left = 1 Top = 42 Width = 1427 - Height = 220 + Height = 287 Align = alClient TabOrder = 2 - ExplicitWidth = 1122 + ExplicitTop = 47 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -292,6 +292,15 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut HeaderAlignmentHorz = taCenter Width = 70 end + object Tv1Column8: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'ZS' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 100 + end object Tv1Column7: TcxGridDBColumn Caption = #20998#29305'(Dtex)' DataBinding.FieldName = 'Denier' @@ -301,52 +310,35 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut HeaderAlignmentHorz = taCenter Width = 100 end - object Tv1Column8: TcxGridDBColumn - Caption = #25903#25968 - DataBinding.FieldName = 'ZS' + object Tv1Column6: TcxGridDBColumn + Caption = #20840#24133#26681#25968 + DataBinding.FieldName = 'QFYARNQTY' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column9: TcxGridDBColumn + Caption = #30334#31859#32463#38271#29992#37327'KG' + DataBinding.FieldName = 'MeterQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 100 end - object v1Column3: TcxGridDBColumn - Caption = #26681#25968 - DataBinding.FieldName = 'YarnQty' + object Tv1Column3: TcxGridDBColumn + Caption = #31570#37325'KG' + DataBinding.FieldName = 'TZQTY' DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged HeaderAlignmentHorz = taCenter - Width = 72 + Width = 79 end object Tv1Column4: TcxGridDBColumn - Caption = #24490#29615#26681#25968 - DataBinding.FieldName = 'CycleYarnQty' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged - GroupSummaryAlignment = taCenter - HeaderAlignmentHorz = taCenter - Width = 102 - end - object Tv1Column9: TcxGridDBColumn - Caption = #31859#29992#37327 - DataBinding.FieldName = 'MeterQty' + Caption = #35745#21010#24635#29992#37327'KG' + DataBinding.FieldName = 'JHYLQTY' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 70 - end - object Tv1Column6: TcxGridDBColumn - Caption = #32442#27861 - DataBinding.FieldName = 'FF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column5: TcxGridDBColumn - Caption = #25467#24230 - DataBinding.FieldName = 'ND' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 + Width = 95 end object v1Column12: TcxGridDBColumn Caption = #22791#27880 @@ -365,456 +357,812 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Left = 0 Top = 38 Width = 1429 - Height = 315 + Height = 395 Align = alTop BevelInner = bvNone BevelOuter = bvNone Ctl3D = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 2 OnDblClick = gynoDblClick - ExplicitLeft = 1 ExplicitTop = 41 object Label3: TLabel - Left = 639 - Top = 7 - Width = 39 - Height = 12 + Left = 715 + Top = 14 + Width = 48 + Height = 21 Caption = #21697#21517#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False end object Label14: TLabel Left = 1 - Top = 83 - Width = 91 - Height = 12 - Caption = #25972#32463#24037#33402#21333#21495#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label16: TLabel - Left = 1 - Top = 232 - Width = 39 - Height = 12 - Caption = #22791#27880#65306 + Top = 153 + Width = 112 + Height = 21 + Caption = #32463#36724#24037#33402#21333#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False end object Label47: TLabel - Left = 435 - Top = 9 - Width = 39 - Height = 12 + Left = 480 + Top = 16 + Width = 48 + Height = 21 Caption = #23458#25143#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False end object Label2: TLabel Left = 1 - Top = 46 - Width = 78 - Height = 12 - Caption = #35746#21333#24635#31859#25968#65306 + Top = 44 + Width = 112 + Height = 21 + Caption = #35746#21333#32463#32433#38271#24230#65306 Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False end object Label4: TLabel - Left = 219 - Top = 162 - Width = 65 - Height = 12 - Caption = #35745#21010#36724#25968#65306 + Left = 236 + Top = 117 + Width = 96 + Height = 21 + Caption = #35745#21010#32455#36724#25968#65306 Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False end object Label6: TLabel Left = 1 - Top = 158 - Width = 91 - Height = 12 - Caption = #35745#21010#32463#36724#31859#25968#65306 + Top = 117 + Width = 112 + Height = 21 + Caption = #35745#21010#32455#36724#32463#38271#65306 Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False end object Label9: TLabel - Left = 435 - Top = 195 - Width = 78 - Height = 12 - Caption = #35745#21010#27974#36724#25968#65306 + Left = 236 + Top = 81 + Width = 112 + Height = 21 + Caption = #35745#21010#31232#36724#20010#25968#65306 Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label10: TLabel - Left = 1 - Top = 196 - Width = 78 - Height = 12 - Caption = #27974#36724#32433#26681#25968#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False end object Label11: TLabel - Left = 219 - Top = 196 - Width = 91 - Height = 12 - Caption = #35745#21010#27974#36724#31859#25968#65306 + Left = 1 + Top = 81 + Width = 112 + Height = 21 + Caption = #35745#21010#31232#36724#32463#38271#65306 Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False end object Label13: TLabel Left = 1 Top = 8 - Width = 65 - Height = 12 + Width = 80 + Height = 21 Caption = #27974#32433#21333#21495#65306 Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False end object Label15: TLabel - Left = 219 + Left = 236 Top = 8 - Width = 65 - Height = 12 + Width = 80 + Height = 21 Caption = #32455#36896#21333#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False end object Label17: TLabel - Left = 219 - Top = 85 - Width = 91 - Height = 12 - Caption = #25972#32463#24037#33402#21517#31216#65306 + Left = 236 + Top = 154 + Width = 112 + Height = 21 + Caption = #32463#36724#24037#33402#21517#31216#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False end object Label18: TLabel - Left = 435 - Top = 85 - Width = 52 - Height = 12 - Caption = #24635#22836#20221#65306 + Left = 480 + Top = 146 + Width = 80 + Height = 21 + Caption = #24635#32463#26681#25968#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label19: TLabel - Left = 639 - Top = 85 - Width = 65 - Height = 12 - Caption = #19978#26426#38376#24133#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False end object Label20: TLabel Left = 1 - Top = 121 - Width = 65 - Height = 12 + Top = 299 + Width = 80 + Height = 21 Caption = #38050#31576#32534#21495#65306 Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False end object Label22: TLabel - Left = 219 - Top = 125 - Width = 39 - Height = 12 + Left = 236 + Top = 299 + Width = 48 + Height = 21 Caption = #31576#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label23: TLabel - Left = 435 - Top = 125 - Width = 65 - Height = 12 - Caption = #31359#31576#20837#27861#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label24: TLabel - Left = 639 - Top = 125 - Width = 39 - Height = 12 - Caption = #32463#23494#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object OrdNote: TRichEdit - Left = 90 - Top = 230 - Width = 571 - Height = 66 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False - TabOrder = 1 - Zoom = 100 - OnDblClick = gynoDblClick - OnKeyPress = ConNoKeyPress end - object WB_Spec: TEdit - Left = 712 - Top = 5 + object Label1: TLabel + Left = 236 + Top = 190 + Width = 80 + Height = 21 + Caption = #20998#32478#26681#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 1 + Top = 190 + Width = 48 + Height = 21 + Caption = #20998#32478#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 1 + Top = 226 + Width = 112 + Height = 21 + Caption = #32433#39550#25346#32433#39063#25968#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label8: TLabel + Left = 236 + Top = 226 + Width = 64 + Height = 21 + Caption = #31232#36724#25968#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 1 + Top = 262 + Width = 112 + Height = 21 + Caption = #32433#39550#25346#32433#39063#25968#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label25: TLabel + Left = 236 + Top = 262 + Width = 64 + Height = 21 + Caption = #31232#36724#25968#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 480 + Top = 187 + Width = 112 + Height = 21 + Caption = #32433#26550#26368#22823#39063#25968#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 714 + Top = 146 + Width = 48 + Height = 21 + Caption = #24182#25968#65306 + end + object Label28: TLabel + Left = 480 + Top = 293 + Width = 64 + Height = 21 + Caption = #31576#40831#25968#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label29: TLabel + Left = 715 + Top = 293 + Width = 48 + Height = 21 + Caption = #31576#24133#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label30: TLabel + Left = 480 + Top = 329 + Width = 80 + Height = 21 + Caption = #36793#31359#20837#27861#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label31: TLabel + Left = 1 + Top = 335 + Width = 64 + Height = 21 + Caption = #36793#32433#25968#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label32: TLabel + Left = 236 + Top = 335 + Width = 80 + Height = 21 + Caption = #22320#31359#20837#27861#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 899 + Top = 14 + Width = 48 + Height = 21 + Caption = #32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object C_NAME: TEdit + Left = 766 + Top = 8 Width = 120 - Height = 18 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False TabOrder = 0 OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end - object CustName: TBtnEditC - Left = 508 - Top = 3 - Width = 120 - Height = 20 - ReadOnly = True - TabOrder = 2 - OnDblClick = gynoDblClick - OnBtnUpClick = CustNameBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end object WB_Code: TBtnEditC - Left = 90 - Top = 79 + Left = 104 + Top = 146 Width = 120 - Height = 20 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False ReadOnly = True - TabOrder = 3 + TabOrder = 1 OnDblClick = gynoDblClick OnBtnUpClick = WB_CodeBtnUpClick OnBtnDnClick = CustNameBtnDnClick end object WB_YarnTotalLen: TEdit - Left = 90 - Top = 42 + Left = 104 + Top = 40 Width = 120 - Height = 18 - TabOrder = 4 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 2 OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object WB_Qty: TEdit - Left = 305 - Top = 156 + Left = 346 + Top = 112 Width = 120 - Height = 18 - TabOrder = 5 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 3 OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object WB_YarnLen: TEdit - Left = 90 - Top = 156 + Left = 104 + Top = 111 Width = 120 - Height = 18 - TabOrder = 6 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 4 OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object WB_Qty_YJJZZS: TEdit - Left = 508 - Top = 191 + Left = 346 + Top = 76 Width = 120 - Height = 18 - TabOrder = 7 - OnKeyPress = ConNoKeyPress - end - object WB_Qty_YJMJZGS: TEdit - Left = 90 - Top = 193 - Width = 120 - Height = 18 - TabOrder = 8 - OnDblClick = gynoDblClick + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 5 OnKeyPress = ConNoKeyPress end object WB_Qty_YJMJZMS: TEdit - Left = 305 - Top = 193 + Left = 104 + Top = 76 Width = 120 - Height = 18 - TabOrder = 9 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 6 OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object TWPId: TEdit - Left = 90 + Left = 104 Top = 5 Width = 120 - Height = 18 - TabOrder = 10 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 7 OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object WB_Name: TEdit - Left = 305 - Top = 82 + Left = 346 + Top = 148 Width = 120 - Height = 18 - TabOrder = 11 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 8 OnDblClick = gynoDblClick OnKeyPress = ConNoKeyPress end object WB_YarnQty: TEdit - Left = 508 - Top = 82 + Left = 586 + Top = 147 Width = 120 - Height = 18 - TabOrder = 12 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 9 + OnExit = WB_YarnQtyExit OnKeyPress = ConNoKeyPress end - object WB_Width: TEdit - Left = 712 - Top = 82 - Width = 120 - Height = 18 - TabOrder = 13 - OnDblClick = gynoDblClick - OnKeyPress = ConNoKeyPress - end - object gkbh: TBtnEditC - Left = 90 - Top = 117 - Width = 120 - Height = 20 - ReadOnly = True - TabOrder = 14 - OnDblClick = gynoDblClick - OnBtnUpClick = gkbhBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end object WB_ReedNo: TEdit - Left = 305 - Top = 119 + Left = 346 + Top = 291 Width = 120 - Height = 18 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 10 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object Z_FJGENSHU: TEdit + Left = 346 + Top = 184 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 11 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object Z_FENJIAO: TEdit + Left = 104 + Top = 185 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 12 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object C_KCQTY: TcxTextEdit + Left = 586 + Top = 289 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 13 + Width = 120 + end + object WB_Width: TcxTextEdit + Left = 766 + Top = 289 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 14 + Width = 120 + end + object WB_ReedNote: TcxTextEdit + Left = 586 + Top = 324 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True TabOrder = 15 - OnDblClick = gynoDblClick - OnKeyPress = ConNoKeyPress + Width = 373 end - object WB_ReedNote: TEdit - Left = 508 - Top = 119 - Width = 120 - Height = 18 + object BSQTY: TcxTextEdit + Left = 104 + Top = 329 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True TabOrder = 16 - OnKeyPress = ConNoKeyPress - end - object WB_YarnDensity: TEdit - Left = 712 - Top = 122 Width = 120 - Height = 18 + end + object DCRQTY: TcxTextEdit + Left = 346 + Top = 327 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True TabOrder = 17 - OnDblClick = gynoDblClick - OnKeyPress = ConNoKeyPress - end - object gyno: TBtnEditC - Left = 305 - Top = 3 Width = 120 - Height = 20 - ReadOnly = True + end + object Z_ZHOUSHU1: TEdit + Left = 346 + Top = 219 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False TabOrder = 18 OnDblClick = gynoDblClick - OnBtnUpClick = gynoBtnUpClick - OnBtnDnClick = CustNameBtnDnClick + OnKeyPress = ConNoKeyPress + end + object Z_ZHOUSHU2: TEdit + Left = 346 + Top = 255 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 19 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object Z_SJKESHU1: TEdit + Left = 104 + Top = 220 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 20 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object Z_SJKESHU2: TEdit + Left = 104 + Top = 255 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 21 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object Z_BINGSHU: TEdit + Left = 766 + Top = 144 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 22 + OnExit = WB_YarnQtyExit + OnKeyPress = ConNoKeyPress + end + object Z_MAXKESHU: TEdit + Left = 586 + Top = 184 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 23 + Text = '480' + OnExit = WB_YarnQtyExit + OnKeyPress = ConNoKeyPress + end + object GKBH: TcxButtonEdit + Left = 104 + Top = 289 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 24 + Width = 120 + end + object CustName: TcxButtonEdit + Left = 586 + Top = 5 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 25 + Width = 120 + end + object gyno: TcxButtonEdit + Left = 346 + Top = 5 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = gynoPropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 26 + Width = 120 + end + object C_CODE: TEdit + Left = 950 + Top = 8 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 27 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress end end inherited ADOQueryBaseCmd: TADOQuery - Left = 1185 - Top = 88 + Left = 969 + Top = 56 end inherited ADOQueryBaseTemp: TADOQuery Left = 1225 @@ -826,16 +1174,16 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut end inherited cxImageList_bar: TcxImageList FormatVersion = 1 - Left = 760 - Top = 249 - DesignInfo = 16319224 + Left = 856 + Top = 201 + DesignInfo = 13173592 end object ADOQueryTemp: TADOQuery Connection = DataLink_WarpBeamStk.ADOLink LockType = ltReadOnly Parameters = <> - Left = 930 - Top = 89 + Left = 1218 + Top = 337 end object ADOQueryCmd: TADOQuery Connection = DataLink_WarpBeamStk.ADOLink @@ -846,12 +1194,19 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut object CDS_1: TClientDataSet Aggregates = <> Params = <> - Left = 363 - Top = 394 + Left = 1259 + Top = 330 end object DS_1: TDataSource DataSet = CDS_1 - Left = 476 - Top = 401 + Left = 1260 + Top = 297 + end + object ADOQuery1: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1227 + Top = 296 end end diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.pas b/E02梭织经轴仓库/U_TatWBPlanInPut.pas index 6a70ab6..d488808 100644 --- a/E02梭织经轴仓库/U_TatWBPlanInPut.pas +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.pas @@ -36,23 +36,18 @@ type ScrollBox1: TScrollBox; Label3: TLabel; Label14: TLabel; - Label16: TLabel; Label47: TLabel; Label2: TLabel; Label4: TLabel; Label6: TLabel; Label9: TLabel; - Label10: TLabel; Label11: TLabel; - OrdNote: TRichEdit; - WB_Spec: TEdit; - CustName: TBtnEditC; + C_NAME: TEdit; WB_Code: TBtnEditC; WB_YarnTotalLen: TEdit; WB_Qty: TEdit; WB_YarnLen: TEdit; WB_Qty_YJJZZS: TEdit; - WB_Qty_YJMJZGS: TEdit; WB_Qty_YJMJZMS: TEdit; Label13: TLabel; TWPId: TEdit; @@ -61,17 +56,9 @@ type WB_Name: TEdit; Label18: TLabel; WB_YarnQty: TEdit; - Label19: TLabel; - WB_Width: TEdit; Label20: TLabel; - gkbh: TBtnEditC; Label22: TLabel; WB_ReedNo: TEdit; - Label23: TLabel; - WB_ReedNote: TEdit; - Label24: TLabel; - WB_YarnDensity: TEdit; - gyno: TBtnEditC; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; v1Column18: TcxGridDBColumn; @@ -84,13 +71,44 @@ type Tv1Column1: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; - v1Column3: TcxGridDBColumn; - Tv1Column4: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; - Tv1Column5: TcxGridDBColumn; v1Column12: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; + ADOQuery1: TADOQuery; + Label1: TLabel; + Label5: TLabel; + Z_FJGENSHU: TEdit; + Z_FENJIAO: TEdit; + Label7: TLabel; + Label8: TLabel; + Label12: TLabel; + Label25: TLabel; + Label26: TLabel; + Label27: TLabel; + Label28: TLabel; + Label29: TLabel; + C_KCQTY: TcxTextEdit; + WB_Width: TcxTextEdit; + Label30: TLabel; + Label31: TLabel; + Label32: TLabel; + WB_ReedNote: TcxTextEdit; + BSQTY: TcxTextEdit; + DCRQTY: TcxTextEdit; + Z_ZHOUSHU1: TEdit; + Z_ZHOUSHU2: TEdit; + Z_SJKESHU1: TEdit; + Z_SJKESHU2: TEdit; + Z_BINGSHU: TEdit; + Z_MAXKESHU: TEdit; + GKBH: TcxButtonEdit; + CustName: TcxButtonEdit; + gyno: TcxButtonEdit; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Label10: TLabel; + C_CODE: TEdit; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -102,11 +120,15 @@ type procedure ToolButton3Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); - procedure gynoBtnUpClick(Sender: TObject); procedure WB_CodeBtnUpClick(Sender: TObject); procedure gkbhBtnUpClick(Sender: TObject); procedure gynoDblClick(Sender: TObject); procedure Tv1Column7PropertiesEditValueChanged(Sender: TObject); + procedure WB_YarnQtyExit(Sender: TObject); + procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + + procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject); private procedure InitData(); function SaveData(): Boolean; @@ -195,14 +217,19 @@ begin end; end; -procedure TfrmTatWBPlanInPut.gynoBtnUpClick(Sender: TObject); +procedure TfrmTatWBPlanInPut.gynoDblClick(Sender: TObject); begin inherited; + TcxButtonEdit(Sender).Text := ''; +end; + +procedure TfrmTatWBPlanInPut.gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin try frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application); with frmTatPlanSel2 do begin - FISSJ := ''; +// FISSJ := ''; if ShowModal = 1 then begin Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring; @@ -210,6 +237,9 @@ begin Self.CustName.Text := CDS_1.FieldByName('CustName').asstring; Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring; + Self.C_NAME.Text := CDS_1.FieldByName('C_NAME').asstring; + + Self.C_CODE.Text := CDS_1.FieldByName('C_CODE').asstring; with ADOQueryTemp do begin @@ -221,17 +251,71 @@ begin Open; end; + Self.WB_YarnTotalLen.Text := Trim(CDS_1.fieldbyname('ORDQTY').AsString); + Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString); Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString); - Self.WB_Spec.Text := Trim(ADOQueryTemp.fieldbyname('WB_Spec').AsString); + Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring; + Self.Z_BINGSHU.Text := ADOQueryTemp.fieldbyname('Z_BINGSHU').asstring; + Self.Z_FENJIAO.Text := ADOQueryTemp.fieldbyname('Z_FENJIAO').asstring; + Self.Z_FJGENSHU.Text := ADOQueryTemp.fieldbyname('Z_FJGENSHU').asstring; + Self.Z_MAXKESHU.Text := ADOQueryTemp.fieldbyname('Z_MAXKESHU').asstring; + Self.Z_SJKESHU1.Text := ADOQueryTemp.fieldbyname('Z_SJKESHU1').asstring; + Self.Z_ZHOUSHU1.Text := ADOQueryTemp.fieldbyname('Z_ZHOUSHU1').asstring; + Self.Z_SJKESHU2.Text := ADOQueryTemp.fieldbyname('Z_SJKESHU2').asstring; + Self.Z_ZHOUSHU2.Text := ADOQueryTemp.fieldbyname('Z_ZHOUSHU2').asstring; + Self.gkbh.Text := Trim(ADOQueryTemp.fieldbyname('gkbh').AsString); Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString); + Self.C_KCQTY.Text := Trim(ADOQueryTemp.fieldbyname('C_KCQTY').AsString); Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString); Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString); + Self.BSQTY.Text := Trim(ADOQueryTemp.fieldbyname('BSQTY').AsString); + Self.DCRQTY.Text := Trim(ADOQueryTemp.fieldbyname('DCRQTY').AsString); - Self.WB_YarnDensity.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnDensity').AsString); - Self.OrdNote.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' select A.* from Tat_Plan_Yarn A '); + sql.Add(' where YRType=''˿'' AND ISNULL(Y_CODE,'''')<>'''' and A.MainId=''' + Trim(CDS_1.fieldbyname('MAINID').AsString) + ''''); + sql.Add(' Order by RowNo '); + Open; + end; + self.CDS_1.EmptyDataSet; + self.ADOQuery1.First; + while not ADOQuery1.eof do + begin + with self.CDS_1 do + begin + APpend; + FieldByName('RowNo').Value := ADOQuery1.fieldbyname('RowNo').Value; + + FieldByName('Y_Code').Value := ADOQuery1.fieldbyname('Y_Code').Value; + FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value; + + FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value; + FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value; + + FieldByName('ZS').Value := ADOQuery1.fieldbyname('Z_Number').Value; + FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value; + FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value; + +// FieldByName('TZQTY').Value := ADOQuery1.fieldbyname('TZQTY').Value; +// FieldByName('JHYLQTY').Value := ADOQuery1.fieldbyname('JHYLQTY').Value; + + FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value; + + FieldByName('Denier').Value := ADOQuery1.fieldbyname('Denier').Value; + +// FieldByName('NOTE').Value := ADOQuery1.fieldbyname('NOTE').Value; + + Post; + end; + + ADOQuery1.next; + end; end; end; finally @@ -239,12 +323,6 @@ begin end; end; -procedure TfrmTatWBPlanInPut.gynoDblClick(Sender: TObject); -begin - inherited; - TcxButtonEdit(Sender).Text := ''; -end; - function TfrmTatWBPlanInPut.SaveData(): Boolean; var maxno, maxsubno, maxpbno, maxpzno, maxsjno: string; @@ -253,9 +331,9 @@ begin ADOQueryCmd.Connection.BeginTrans; if Trim(FTWPId) = '' then begin - if GetLSNo(ADOQueryCmd, maxno, 'SZ', 'Tat_WB_Plan', 4, 1) = False then + if GetLSNo(ADOQueryCmd, maxno, 'JS', 'Tat_WB_Plan', 4, 1) = False then raise Exception.Create('ˮ쳣'); - + TWPId.Text := maxno; end else begin @@ -358,7 +436,7 @@ var FReal: Double; maxConNo: string; begin - + ToolBar1.SetFocus(); if Trim(CustName.Text) = '' then begin Application.MessageBox('ͻΪ!', 'ʾ', 0); @@ -422,8 +500,52 @@ begin CDS_1.Delete; end; -procedure TfrmTatWBPlanInPut.Tv1Column7PropertiesEditValueChanged( - Sender: TObject); +procedure TfrmTatWBPlanInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + ZS, ZGS: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + + with CDS_1 do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + + if FieldByName('QFYARNQTY').Value = null then + begin + ZGS := 0; //QUANFU + end + else + begin + ZGS := FieldByName('QFYARNQTY').Value; //ȫ + end; + + if FieldByName('ZS').Value = null then + begin + ZS := 0; //ѭ + end + else + begin + ZS := FieldByName('ZS').Value; //ѭ + end; + + end; + if ZS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2); + Post; + end; + end; +end; + +procedure TfrmTatWBPlanInPut.Tv1Column7PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; GS, ZGS, MF, DS, WM, TW, SUNHAO: double; @@ -496,15 +618,27 @@ begin if ShowModal = 1 then begin - Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString); - Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString); - Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value; - Self.WB_Width.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString); - Self.WB_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString); - Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString); - Self.WB_YarnDensity.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnDensity').AsString); - Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString); - Self.OrdNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString); + + Self.WB_Code.Text := Trim(CDS_1.fieldbyname('WB_Code').AsString); + Self.WB_Name.Text := Trim(CDS_1.fieldbyname('WB_Name').AsString); + + Self.WB_YarnQty.Text := CDS_1.fieldbyname('WB_YarnQty').asstring; + Self.Z_BINGSHU.Text := CDS_1.fieldbyname('Z_BINGSHU').asstring; + Self.Z_FENJIAO.Text := CDS_1.fieldbyname('Z_FENJIAO').asstring; + Self.Z_FJGENSHU.Text := CDS_1.fieldbyname('Z_FJGENSHU').asstring; + Self.Z_MAXKESHU.Text := CDS_1.fieldbyname('Z_MAXKESHU').asstring; + Self.Z_SJKESHU1.Text := CDS_1.fieldbyname('Z_SJKESHU1').asstring; + Self.Z_ZHOUSHU1.Text := CDS_1.fieldbyname('Z_ZHOUSHU1').asstring; + Self.Z_SJKESHU2.Text := CDS_1.fieldbyname('Z_SJKESHU2').asstring; + Self.Z_ZHOUSHU2.Text := CDS_1.fieldbyname('Z_ZHOUSHU2').asstring; + Self.gkbh.Text := Trim(CDS_1.fieldbyname('gkbh').AsString); + Self.WB_Width.Text := Trim(CDS_1.fieldbyname('WB_Width').AsString); + Self.C_KCQTY.Text := Trim(CDS_1.fieldbyname('C_KCQTY').AsString); + Self.WB_ReedNo.Text := Trim(CDS_1.fieldbyname('WB_ReedNo').AsString); + Self.WB_ReedNote.Text := Trim(CDS_1.fieldbyname('WB_ReedNote').AsString); + Self.BSQTY.Text := Trim(CDS_1.fieldbyname('BSQTY').AsString); + Self.DCRQTY.Text := Trim(CDS_1.fieldbyname('DCRQTY').AsString); + end; end; finally @@ -512,6 +646,71 @@ begin end; end; +procedure TfrmTatWBPlanInPut.WB_YarnQtyExit(Sender: TObject); +var + GS, ZGS, MF, DS, WM, TW: double; +begin + if CDS_1.IsEmpty then + exit; + with CDS_1 do + begin + DisableControls; + first; + while not eof do + begin + + with CDS_1 do + begin + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(WB_Width.text, 0); //ط + + TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ + + if FieldByName('Denier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('Denier').Value; //D + end; + + // WM := strtofloatdef(WB_YarnDensity.text, 0); //γ + end; + if ZGS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + Post; + end; + end; + next; + end; + First; + EnableControls; + end; +end; + procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then @@ -547,7 +746,6 @@ begin end; - procedure TfrmTatWBPlanInPut.JSJS(); var GS, ZGS, MF, DS, WM, TW: double; @@ -595,7 +793,7 @@ begin DS := FieldByName('TestDenier').Value; //D end; - WM := strtofloatdef(WB_YarnDensity.text, 0); //γ +// WM := strtofloatdef(WB_YarnDensity.text, 0); //γ end; if ZGS <> 0 then begin @@ -638,7 +836,7 @@ begin FCoType := 'ͻ'; if ShowModal = 1 then begin - CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); +// CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); end; end; @@ -648,5 +846,24 @@ begin end; +procedure TfrmTatWBPlanInPut.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'ͻ'; + if ShowModal = 1 then + begin +// CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + end. diff --git a/E02梭织经轴仓库/U_WBNeedLook.dfm b/E02梭织经轴仓库/U_WBNeedLook.dfm index 249267e..4741b8c 100644 --- a/E02梭织经轴仓库/U_WBNeedLook.dfm +++ b/E02梭织经轴仓库/U_WBNeedLook.dfm @@ -1,7 +1,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook Left = 105 Top = 131 - Caption = #22806#27424#30424#22836#21015#34920 + Caption = #32463#36724#38656#27714#26126#32454 ClientHeight = 667 ClientWidth = 1540 Font.Height = -16 @@ -74,18 +74,18 @@ inherited frmWBNeedLook: TfrmWBNeedLook object Label3: TLabel Left = 268 Top = 10 - Width = 48 + Width = 32 Height = 21 - Caption = #30424#22836#21495 + Caption = #23458#25143 end object Label4: TLabel Left = 46 Top = 10 Width = 64 Height = 21 - Caption = #20986#21040#21333#20301 + Caption = #32455#36896#21333#21495 end - object WBNO: TcxTextEdit + object CustName: TcxTextEdit Tag = 2 Left = 320 Top = 6 @@ -93,7 +93,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook TabOrder = 0 Width = 150 end - object ToCoName: TcxTextEdit + object OrderNo: TcxTextEdit Tag = 2 Left = 114 Top = 6 @@ -119,7 +119,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook Height = 592 Align = alClient TabOrder = 0 - ExplicitLeft = 71 + ExplicitLeft = -3 ExplicitTop = 6 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> @@ -131,41 +131,49 @@ inherited frmWBNeedLook: TfrmWBNeedLook OptionsView.GroupByBox = False object TV1Column1: TcxGridDBColumn Caption = #32455#36896#21333#21495 + DataBinding.FieldName = 'OrderNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 83 end object TV1Column2: TcxGridDBColumn Caption = #23458#25143 + DataBinding.FieldName = 'CustName' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Width = 66 end object TV1Column3: TcxGridDBColumn Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 84 end object TV1Column4: TcxGridDBColumn Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 85 end object TV1Column5: TcxGridDBColumn Caption = #25972#32463#24037#33402#32534#21495 + DataBinding.FieldName = 'WB_Code' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 121 end object TV1Column6: TcxGridDBColumn Caption = #25972#32463#24037#33402#21517#31216 + DataBinding.FieldName = 'WB_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 109 end object TV1Column7: TcxGridDBColumn Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Styles.Header = cxStyle1 @@ -208,42 +216,49 @@ inherited frmWBNeedLook: TfrmWBNeedLook OptionsView.GroupByBox = False object TV2Column1: TcxGridDBColumn Caption = #25972#32463#24037#33402#32534#21495 + DataBinding.FieldName = 'WB_Code' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 124 end object TV2Column2: TcxGridDBColumn Caption = #25972#32463#24037#33402#21517#31216 + DataBinding.FieldName = 'WB_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 124 end object TV2Column3: TcxGridDBColumn Caption = #36724#21345#21495 + DataBinding.FieldName = 'WBCID' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 71 end object TV2Column4: TcxGridDBColumn Caption = #36801#32463#26426#21488 + DataBinding.FieldName = 'WB_MachNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 86 end object TV2Column5: TcxGridDBColumn Caption = #25972#32463#24037 + DataBinding.FieldName = 'WB_Macher' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 70 end object TV2Column6: TcxGridDBColumn Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'Qty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 85 end object TV2Column7: TcxGridDBColumn Caption = #24211#20301 + DataBinding.FieldName = 'StkPosition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 54 @@ -270,36 +285,42 @@ inherited frmWBNeedLook: TfrmWBNeedLook OptionsView.GroupByBox = False object TV3Column1: TcxGridDBColumn Caption = #25972#32463#35745#21010#21333#21495 + DataBinding.FieldName = 'WBCNO' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 131 end object TV3Column2: TcxGridDBColumn Caption = #36724#21345#21495 + DataBinding.FieldName = 'WBCID' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 90 end object TV3Column3: TcxGridDBColumn Caption = #24320#21345#26102#38388 + DataBinding.FieldName = 'filltime' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 90 end object TV3Column4: TcxGridDBColumn Caption = #36801#32463#26426#21488 + DataBinding.FieldName = 'WB_MachNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 90 end object TV3Column5: TcxGridDBColumn Caption = #32463#36724#31867#22411 + DataBinding.FieldName = 'WB_ProcessType' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 90 end object TV3Column6: TcxGridDBColumn Caption = #24320#21345#25968#37327 + DataBinding.FieldName = 'WB_YarnLen' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 90 @@ -321,7 +342,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook Top = 129 end object ADOQueryCmd: TADOQuery - ConnectionString = 'BS_Cloth_IO' + Connection = DataLink_WarpBeamStk.ADOLink Parameters = <> Left = 480 Top = 128 @@ -334,7 +355,6 @@ inherited frmWBNeedLook: TfrmWBNeedLook Top = 128 end object ADOQueryTemp: TADOQuery - ConnectionString = 'BS_Cloth_IO' LockType = ltReadOnly Parameters = <> Left = 408 @@ -346,6 +366,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook Top = 280 end object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 PopupMenus = <> Left = 536 Top = 240 @@ -389,8 +410,20 @@ inherited frmWBNeedLook: TfrmWBNeedLook Top = 208 end object DS_3: TDataSource - DataSet = CDS_2 + DataSet = CDS_3 Left = 256 Top = 280 end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 560 + Top = 304 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 560 + Top = 360 + end end diff --git a/E02梭织经轴仓库/U_WBNeedLook.pas b/E02梭织经轴仓库/U_WBNeedLook.pas index 6335afa..2779a07 100644 --- a/E02梭织经轴仓库/U_WBNeedLook.pas +++ b/E02梭织经轴仓库/U_WBNeedLook.pas @@ -12,8 +12,8 @@ uses cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, - dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, - dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar; + dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore, + dxSkinsDefaultPainters, cxProgressBar; type TfrmWBNeedLook = class(TfrmBaseList) @@ -30,8 +30,8 @@ type PopupMenu1: TPopupMenu; Label3: TLabel; Label4: TLabel; - WBNO: TcxTextEdit; - ToCoName: TcxTextEdit; + CustName: TcxTextEdit; + OrderNo: TcxTextEdit; ToolButton2: TToolButton; Panel2: TPanel; Panel3: TPanel; @@ -73,6 +73,8 @@ type CDS_1: TClientDataSet; CDS_2: TClientDataSet; DS_3: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBRafreshClick(Sender: TObject); @@ -90,10 +92,10 @@ type private canshu1, FStkName, canshu3: string; procedure InitGrid(); - + procedure InitSUB(); { Private declarations } public - + FWB_Code: string; { Public declarations } end; @@ -136,22 +138,11 @@ begin Filtered := False; Close; sql.Clear; - sql.Add(' EXEC P_TatWB_StkALL '); + sql.Add(' select A.*,B.* from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.Mainid=B.MainId'); + SQL.Add('WHERE WB_Code=' + QuotedStr(FWB_Code)); - sql.Add(' select A.WBNo ORGWBNo,B.*,C.* from Tat_WB_Stk A inner join Tat_WB_IO B on A.STKTWIOID=B.TWIOID '); - sql.Add(' left join Tat_WB_Card C on C.WBCID=B.WBCID '); - sql.Add(' where B.IOFlag ='''' and B.IOType = ''ӹ'' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 '); + SQL.Add('ORDER BY FILLTIME DESC'); - -// sql.Add(' select A.* '); -// sql.Add(' from Tat_WB_IO A '); -// sql.Add(' where A.STKName ='''' and A.IOFlag ='''' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 '); -// sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName ='''' and X.IOFlag ='''' and A.WBNO =X.WBNO) '); -// -// sql.Add(' UNION ALL '); -// -// sql.Add(' select A.* '); -// sql.Add(' from Tat_WB_IO A '); // sql.Add(' where A.STKName ='''' and A.IOFlag ='''' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 '); // sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName ='''' and X.IOFlag ='''' and A.WBNO =X.WBNO) '); // ShowMessage(Sql.text); @@ -165,9 +156,61 @@ begin end; end; +procedure TfrmWBNeedLook.InitSUB(); +begin + try + ADOQueryCmd.DisableControls; + with ADOQueryCmd do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' EXEC P_TatWB_StkALL '); + + sql.Add(' select A.WBNo ORGWBNo,B.*,C.*,WB_YarnQty2= cast (WB_YarnQty AS Varchar) '); + sql.Add(' ,JSName=cast((SELECT Y_Name +'';'' from Tat_WB_Formula X inner join Tat_WB_Spec Y on X.WBSID=Y.WBSID where C.WB_Code=Y.WB_Code FOR XML PATH(''''))as VARCHAR(6000) )'); + sql.Add(' from Tat_WB_Stk A inner join Tat_WB_IO B on A.STKTWIOID=B.TWIOID '); + sql.Add(' inner join Tat_WB_Card C on C.WBCID=B.WBCID '); + sql.Add(' where B.IOFlag ='''' and isnull(B.stkName,'''')=''' + Trim('') + ''''); + sql.Add('and WB_Code=''' + Trim(FWB_Code) + ''''); +// sql.Add(' where A.STKName ='''' and A.IOFlag ='''' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 '); +// sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName ='''' and X.IOFlag ='''' and A.WBNO =X.WBNO) '); + + Open; + end; + + SCreateCDS(ADOQueryCmd, CDS_2); + SInitCDSData(ADOQueryCmd, CDS_2); + finally + ADOQueryCmd.EnableControls; + end; + try + ADOQueryCmd.DisableControls; + with ADOQueryCmd do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.add(' ,jgType=(SELECT top 1 jgType from Tat_Wb_IO X where X.WBCID=A.WBCID and X.IOFlag ='''' and X.STKName ='''' )'); + sql.add(' from Tat_WB_Card A '); + sql.Add(' where 1=1'); + sql.Add('and WB_Code=''' + Trim(FWB_Code) + ''''); + Open; + end; + + SCreateCDS(ADOQueryCmd, CDS_3); + SInitCDSData(ADOQueryCmd, CDS_3); + finally + ADOQueryCmd.EnableControls; + end; + +end; + procedure TfrmWBNeedLook.TBRafreshClick(Sender: TObject); begin InitGrid(); + INITSUB(); end; procedure TfrmWBNeedLook.ConNoMChange(Sender: TObject); @@ -187,8 +230,11 @@ end; procedure TfrmWBNeedLook.FormShow(Sender: TObject); begin inherited; - ReadCxGrid(trim(Self.Caption), Tv1, 'Ⱦɫֿ'); + ReadCxGrid(trim(Self.Caption), Tv1, 'ϸ'); + ReadCxGrid(trim(Self.Caption), Tv2, 'ϸ'); + ReadCxGrid(trim(Self.Caption), Tv3, 'ϸ'); InitGrid(); + Initsub(); end; procedure TfrmWBNeedLook.TBFindClick(Sender: TObject); @@ -223,7 +269,10 @@ end; procedure TfrmWBNeedLook.ToolButton2Click(Sender: TObject); begin - WriteCxGrid(trim(Self.Caption), Tv1, 'Ⱦɫֿ'); + + WriteCxGrid(trim(Self.Caption), Tv1, 'ϸ'); + WriteCxGrid(trim(Self.Caption), Tv2, 'ϸ'); + WriteCxGrid(trim(Self.Caption), Tv3, 'ϸ'); end; procedure TfrmWBNeedLook.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); diff --git a/E02梭织经轴仓库/U_WBSpecInPut.dfm b/E02梭织经轴仓库/U_WBSpecInPut.dfm index 8981b68..274f7b0 100644 --- a/E02梭织经轴仓库/U_WBSpecInPut.dfm +++ b/E02梭织经轴仓库/U_WBSpecInPut.dfm @@ -3,22 +3,24 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Top = 141 Caption = #25972#32463#24037#33402#24405#20837 ClientHeight = 845 - ClientWidth = 1115 + ClientWidth = 1174 Color = clWhite - Font.Height = -16 + Font.Charset = DEFAULT_CHARSET + Font.Height = -11 + Font.Name = 'Tahoma' Position = poMainFormCenter - ExplicitWidth = 1131 + ExplicitWidth = 1190 ExplicitHeight = 884 PixelsPerInch = 96 - TextHeight = 21 + TextHeight = 13 object cxGrid1: TcxGrid [0] Left = 0 - Top = 455 - Width = 1115 - Height = 390 + Top = 439 + Width = 1174 + Height = 406 Align = alClient + PopupMenu = PopupMenu1 TabOrder = 0 - ExplicitTop = 461 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -159,6 +161,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Caption = #25903#25968 DataBinding.FieldName = 'ZS' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 100 end @@ -182,23 +186,18 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Width = 102 end object Tv1Column9: TcxGridDBColumn - Caption = #31859#29992#37327 + Caption = #30334#31859#32463#38271#29992#37327'KG' DataBinding.FieldName = 'MeterQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 70 + Width = 116 end object Tv1Column6: TcxGridDBColumn - Caption = #32442#27861 - DataBinding.FieldName = 'FF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column5: TcxGridDBColumn - Caption = #25467#24230 - DataBinding.FieldName = 'ND' + Caption = #20840#24133#26681#25968 + DataBinding.FieldName = 'QFYARNQTY' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 80 end @@ -218,11 +217,11 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Tag = 1 Left = 0 Top = 0 - Width = 1115 + Width = 1174 Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 99 + ButtonWidth = 83 Caption = 'ToolBar1' DisabledImages = DataLink_WarpBeamStk.cxImageList_bar Images = DataLink_WarpBeamStk.cxImageList_bar @@ -238,7 +237,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut OnClick = TBSaveClick end object btn1: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #22383#24067#20449#24687 @@ -247,7 +246,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut OnClick = btn1Click end object ToolButton1: TToolButton - Left = 174 + Left = 150 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -255,7 +254,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 277 + Left = 237 Top = 0 AutoSize = True Caption = #20851#38381 @@ -266,8 +265,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut object ScrollBox1: TScrollBox [2] Left = 0 Top = 30 - Width = 1115 - Height = 395 + Width = 1174 + Height = 379 Align = alTop BevelInner = bvNone BevelOuter = bvNone @@ -275,138 +274,156 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Ctl3D = False ParentCtl3D = False TabOrder = 2 - object Label7: TLabel - Left = 75 - Top = 342 - Width = 32 - Height = 21 - Caption = #22791#27880 - end object Label3: TLabel Left = 11 Top = 11 Width = 96 Height = 21 Caption = #25972#32463#24037#33402#32534#21495 - end - object Label4: TLabel - Left = 59 - Top = 248 - Width = 48 - Height = 21 - Caption = #20301#31227#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label8: TLabel - Left = 59 - Top = 50 - Width = 48 + Left = 568 + Top = 8 + Width = 64 Height = 21 - Caption = #24635#22836#20221 + Caption = #24635#32463#26681#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label1: TLabel - Left = 329 - Top = 11 + Left = 287 + Top = 6 Width = 96 Height = 21 Caption = #25972#32463#24037#33402#21517#31216 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label2: TLabel - Left = 43 - Top = 167 + Left = 560 + Top = 312 Width = 64 Height = 21 - Caption = #31576#31359#20837#27861 + Caption = #36793#31359#20837#27861 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label5: TLabel - Left = 361 - Top = 50 - Width = 64 + Left = 6 + Top = 315 + Width = 48 Height = 21 - Caption = #19978#25490#39063#25968 - end - object Label6: TLabel - Left = 393 - Top = 88 - Width = 32 - Height = 21 - Caption = #38646#22836 - end - object Label9: TLabel - Left = 75 - Top = 88 - Width = 32 - Height = 21 - Caption = #21514#25968 + Caption = #36793#32433#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label10: TLabel - Left = 569 - Top = 127 - Width = 64 - Height = 21 - Caption = #29301#32463#31576#21495 - end - object Label11: TLabel - Left = 43 - Top = 127 - Width = 64 - Height = 21 - Caption = #32463#36724#38376#24133 - end - object Label12: TLabel - Left = 361 - Top = 167 - Width = 64 - Height = 21 - Caption = #32463#36724#31859#25968 - end - object Label13: TLabel - Left = 694 - Top = 11 - Width = 64 - Height = 21 - Caption = #29301#32463#25490#21015 - end - object Label14: TLabel - Left = 43 - Top = 206 - Width = 64 - Height = 21 - Caption = #22987#21514#20301#32622 - end - object Label15: TLabel - Left = 361 - Top = 206 - Width = 64 - Height = 21 - Caption = #22369#26012#24230#25968 - end - object Label16: TLabel - Left = 329 - Top = 248 - Width = 96 - Height = 21 - Caption = #29301#32463#24352#21147#21442#25968 - end - object Label17: TLabel - Left = 75 - Top = 287 + Left = 803 + Top = 274 Width = 32 Height = 21 - Caption = #32463#23494 + Caption = #31576#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 284 + Top = 274 + Width = 48 + Height = 21 + Caption = #31576#40831#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label18: TLabel - Left = 361 - Top = 285 - Width = 64 - Height = 21 + Left = 1038 + Top = 125 + Width = 48 + Height = 13 Caption = #26159#21542#19978#27974 + Visible = False end object Label19: TLabel - Left = 361 - Top = 126 + Left = 6 + Top = 271 Width = 64 Height = 21 Caption = #38050#31576#32534#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 806 + Top = 9 + Width = 64 + Height = 21 + Caption = #25972#32463#31867#22411 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 560 + Top = 274 + Width = 32 + Height = 21 + Caption = #31576#24133 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label24: TLabel + Left = 284 + Top = 309 + Width = 64 + Height = 21 + Caption = #22320#31359#20837#27861 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object WB_Code: TcxTextEdit Tag = 2 @@ -414,175 +431,493 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Top = 5 Enabled = False ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True TabOrder = 0 - Width = 200 + Width = 150 end object WB_YarnQty: TcxTextEdit Tag = 2 - Left = 113 - Top = 44 + Left = 633 + Top = 5 ParentColor = True + ParentFont = False Properties.OnEditValueChanged = WB_YarnQtyPropertiesEditValueChanged + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True TabOrder = 1 - Width = 200 - end - object WB_Move: TcxTextEdit - Tag = 2 - Left = 113 - Top = 242 - ParentColor = True - TabOrder = 2 - Width = 200 + OnExit = WB_YarnQtyExit + Width = 150 end object WB_Name: TcxTextEdit Tag = 2 - Left = 431 + Left = 400 Top = 5 ParentColor = True - TabOrder = 3 - Width = 200 + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 2 + Width = 150 end object WB_ReedNote: TcxTextEdit Tag = 2 - Left = 113 - Top = 161 + Left = 630 + Top = 309 ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 3 + Width = 373 + end + object BSQTY: TcxTextEdit + Tag = 2 + Left = 110 + Top = 309 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True TabOrder = 4 - Width = 200 - end - object WB_YarnArr: TcxTextEdit - Tag = 2 - Left = 431 - Top = 44 - ParentColor = True - TabOrder = 5 - Width = 200 - end - object WB_YarnStripRemainder: TcxTextEdit - Tag = 2 - Left = 431 - Top = 84 - ParentColor = True - TabOrder = 6 - Width = 200 - end - object WB_YarnStripQty: TcxTextEdit - Tag = 2 - Left = 113 - Top = 82 - ParentColor = True - TabOrder = 7 - Width = 200 + Width = 150 end object WB_ReedNo: TcxTextEdit Tag = 2 - Left = 639 - Top = 123 + Left = 873 + Top = 270 ParentColor = True - Properties.ReadOnly = True - TabOrder = 8 - Width = 90 - end - object WB_Width: TcxTextEdit - Tag = 2 - Left = 113 - Top = 121 - ParentColor = True - TabOrder = 9 - Width = 200 - end - object WB_YarnLen: TcxTextEdit - Tag = 2 - Left = 431 - Top = 163 - ParentColor = True - TabOrder = 10 - Width = 200 - end - object WB_Arg_SDWZ: TcxTextEdit - Tag = 2 - Left = 113 - Top = 200 - ParentColor = True - TabOrder = 11 - Width = 200 - end - object WB_Arg_PXDS: TcxTextEdit - Tag = 2 - Left = 431 - Top = 202 - ParentColor = True - TabOrder = 12 - Width = 200 - end - object WB_Arg_QJZL: TcxTextEdit - Tag = 2 - Left = 431 - Top = 242 - ParentColor = True - TabOrder = 13 - Width = 200 - end - object WB_YarnArrNote: TcxMemo - Tag = 2 - Left = 764 - Top = 6 ParentFont = False - TabOrder = 14 - Height = 264 - Width = 317 + Properties.ReadOnly = True + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 5 + Width = 130 end - object Note: TcxMemo + object C_KCQTY: TcxTextEdit Tag = 2 - Left = 113 - Top = 320 - TabOrder = 15 - Height = 65 - Width = 550 - end - object WB_YarnDensity: TcxTextEdit - Tag = 2 - Left = 113 - Top = 281 + Left = 397 + Top = 270 ParentColor = True - TabOrder = 16 - Width = 200 + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 6 + Width = 150 end object ISSizing: TcxComboBox Tag = 2 - Left = 431 - Top = 281 + Left = 1038 + Top = 103 Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( #21542 #26159) - TabOrder = 17 + TabOrder = 7 Text = #21542 - Width = 200 + Visible = False + Width = 99 end object GKBH: TcxButtonEdit Tag = 2 - Left = 431 - Top = 124 + Left = 110 + Top = 270 + ParentFont = False Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = GKBHPropertiesButtonClick - TabOrder = 18 - Width = 132 + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 8 + Width = 150 + end + object WB_TYPE: TcxComboBox + Tag = 2 + Left = 876 + Top = 5 + ParentFont = False + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #20998#26465 + #25972#27974#24182) + Properties.OnChange = WB_TYPEPropertiesChange + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 9 + Width = 130 + end + object WB_Width: TcxTextEdit + Tag = 2 + Left = 630 + Top = 270 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 10 + Width = 150 + end + object cxGroupBox1: TcxGroupBox + Left = 3 + Top = 52 + Caption = #20998#26465 + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clBlack + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 11 + Height = 125 + Width = 1003 + object Label6: TLabel + Left = 8 + Top = 28 + Width = 96 + Height = 21 + Caption = #32433#39550#26368#22823#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 8 + Top = 74 + Width = 32 + Height = 21 + Caption = #26465#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label9: TLabel + Left = 286 + Top = 74 + Width = 64 + Height = 21 + Caption = #19978#26550#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 565 + Top = 74 + Width = 32 + Height = 21 + Caption = #20313#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object F_MAXKESHU: TcxTextEdit + Tag = 2 + Left = 110 + Top = 27 + ParentColor = True + TabOrder = 0 + Text = '640' + OnExit = WB_YarnQtyExit + Width = 150 + end + object F_YarnStripQty: TcxTextEdit + Tag = 2 + Left = 110 + Top = 74 + ParentColor = True + TabOrder = 1 + OnExit = WB_YarnQtyExit + Width = 150 + end + object F_SJKESHU: TcxTextEdit + Tag = 2 + Left = 397 + Top = 74 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 2 + OnExit = WB_YarnQtyExit + Width = 150 + end + object F_YUSHU: TcxTextEdit + Tag = 2 + Left = 630 + Top = 74 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 3 + OnExit = WB_YarnQtyExit + Width = 150 + end + end + object cxGroupBox2: TcxGroupBox + Left = 3 + Top = 52 + Caption = #25972#27974#24182 + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clBlack + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 12 + Height = 194 + Width = 1003 + object Label13: TLabel + Left = 8 + Top = 30 + Width = 96 + Height = 21 + Caption = #32433#39550#26368#22823#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 8 + Top = 68 + Width = 32 + Height = 21 + Caption = #20998#32478 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 286 + Top = 67 + Width = 64 + Height = 21 + Caption = #20998#32478#26681#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label16: TLabel + Left = 565 + Top = 67 + Width = 32 + Height = 21 + Caption = #24182#25968 + end + object Label17: TLabel + Left = 8 + Top = 105 + Width = 96 + Height = 21 + Caption = #32433#26550#25346#32433#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label21: TLabel + Left = 286 + Top = 105 + Width = 48 + Height = 21 + Caption = #31232#36724#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label22: TLabel + Left = 8 + Top = 143 + Width = 96 + Height = 21 + Caption = #32433#26550#25346#32433#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 286 + Top = 143 + Width = 48 + Height = 21 + Caption = #31232#36724#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Z_MAXKESHU: TcxTextEdit + Tag = 2 + Left = 110 + Top = 29 + ParentColor = True + TabOrder = 0 + Text = '480' + OnExit = WB_YarnQtyExit + Width = 150 + end + object Z_FENJIAO: TcxTextEdit + Tag = 2 + Left = 110 + Top = 67 + ParentColor = True + TabOrder = 1 + OnExit = WB_YarnQtyExit + Width = 150 + end + object Z_FJGENSHU: TcxTextEdit + Tag = 2 + Left = 397 + Top = 67 + ParentColor = True + Properties.ReadOnly = False + TabOrder = 2 + Width = 150 + end + object Z_BINGSHU: TcxTextEdit + Tag = 2 + Left = 630 + Top = 67 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 3 + Width = 150 + end + object Z_SJKESHU1: TcxTextEdit + Tag = 2 + Left = 110 + Top = 105 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 4 + Width = 150 + end + object Z_ZHOUSHU1: TcxTextEdit + Tag = 2 + Left = 397 + Top = 105 + ParentColor = True + Properties.ReadOnly = False + TabOrder = 5 + Width = 150 + end + object Z_SJKESHU2: TcxTextEdit + Tag = 2 + Left = 110 + Top = 143 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 6 + Width = 150 + end + object Z_ZHOUSHU2: TcxTextEdit + Tag = 2 + Left = 397 + Top = 143 + ParentColor = True + Properties.ReadOnly = False + TabOrder = 7 + Width = 150 + end + end + object DCRQTY: TcxTextEdit + Tag = 2 + Left = 397 + Top = 305 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 13 + Width = 150 end end object ToolBar2: TToolBar [3] Tag = 1 Left = 0 - Top = 425 - Width = 1115 + Top = 409 + Width = 1174 Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 67 + ButtonWidth = 95 Caption = 'ToolBar1' DisabledImages = DataLink_WarpBeamStk.cxImageList_bar Images = DataLink_WarpBeamStk.cxImageList_bar @@ -599,13 +934,21 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut OnClick = TBAddClick end object ToolButton4: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #21024#38500 ImageIndex = 6 OnClick = TBDelClick end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #28165#31354#24403#21069#21015 + ImageIndex = 3 + OnClick = ToolButton2Click + end end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_WarpBeamStk.ADOLink @@ -661,4 +1004,12 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 216 Top = 584 end + object PopupMenu1: TPopupMenu + Left = 536 + Top = 512 + object N1: TMenuItem + Caption = #28165#31354#24403#21069#21015 + OnClick = N1Click + end + end end diff --git a/E02梭织经轴仓库/U_WBSpecInPut.pas b/E02梭织经轴仓库/U_WBSpecInPut.pas index 62889a6..698e7a1 100644 --- a/E02梭织经轴仓库/U_WBSpecInPut.pas +++ b/E02梭织经轴仓库/U_WBSpecInPut.pas @@ -13,7 +13,7 @@ uses dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList, cxMemo, dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, dxSkinSharpPlus, - dxSkinWXI, cxMaskEdit; + dxSkinWXI, cxMaskEdit, cxGroupBox, MATH, Vcl.Menus; type TfrmWBSpecInPut = class(TfrmBaseInput) @@ -40,48 +40,27 @@ type ToolButton1: TToolButton; Tv1Column1: TcxGridDBColumn; ScrollBox1: TScrollBox; - Label7: TLabel; Label3: TLabel; WB_Code: TcxTextEdit; ToolBar2: TToolBar; ToolButton3: TToolButton; ToolButton4: TToolButton; - Label4: TLabel; Label8: TLabel; WB_YarnQty: TcxTextEdit; - WB_Move: TcxTextEdit; Tv1Column2: TcxGridDBColumn; Label1: TLabel; Label2: TLabel; WB_Name: TcxTextEdit; WB_ReedNote: TcxTextEdit; Label5: TLabel; - WB_YarnArr: TcxTextEdit; - Label6: TLabel; - WB_YarnStripRemainder: TcxTextEdit; - Label9: TLabel; - WB_YarnStripQty: TcxTextEdit; + BSQTY: TcxTextEdit; Label10: TLabel; WB_ReedNo: TcxTextEdit; - Label11: TLabel; - WB_Width: TcxTextEdit; Label12: TLabel; - WB_YarnLen: TcxTextEdit; - Label13: TLabel; - Label14: TLabel; - Label15: TLabel; - WB_Arg_SDWZ: TcxTextEdit; - WB_Arg_PXDS: TcxTextEdit; - Label16: TLabel; - WB_Arg_QJZL: TcxTextEdit; + C_KCQTY: TcxTextEdit; Tv1Column3: TcxGridDBColumn; - WB_YarnArrNote: TcxMemo; - Note: TcxMemo; btn1: TToolButton; Tv1Column4: TcxGridDBColumn; - Label17: TLabel; - WB_YarnDensity: TcxTextEdit; - Tv1Column5: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; Label18: TLabel; @@ -90,6 +69,41 @@ type Label19: TLabel; GKBH: TcxButtonEdit; Tv1Column9: TcxGridDBColumn; + Label20: TLabel; + WB_TYPE: TcxComboBox; + Label4: TLabel; + WB_Width: TcxTextEdit; + cxGroupBox1: TcxGroupBox; + Label6: TLabel; + F_MAXKESHU: TcxTextEdit; + Label7: TLabel; + F_YarnStripQty: TcxTextEdit; + Label9: TLabel; + F_SJKESHU: TcxTextEdit; + Label11: TLabel; + F_YUSHU: TcxTextEdit; + cxGroupBox2: TcxGroupBox; + Label13: TLabel; + Label14: TLabel; + Label15: TLabel; + Label16: TLabel; + Z_MAXKESHU: TcxTextEdit; + Z_FENJIAO: TcxTextEdit; + Z_FJGENSHU: TcxTextEdit; + Z_BINGSHU: TcxTextEdit; + Label17: TLabel; + Label21: TLabel; + Z_SJKESHU1: TcxTextEdit; + Z_ZHOUSHU1: TcxTextEdit; + Label22: TLabel; + Label23: TLabel; + Z_SJKESHU2: TcxTextEdit; + Z_ZHOUSHU2: TcxTextEdit; + ToolButton2: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + Label24: TLabel; + DCRQTY: TcxTextEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -103,10 +117,18 @@ type procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column3PropertiesEditValueChanged(Sender: TObject); procedure WB_YarnQtyPropertiesEditValueChanged(Sender: TObject); + procedure WB_YarnQtyExit(Sender: TObject); + + procedure Tv1Column8PropertiesEditValueChanged(Sender: TObject); + procedure WB_TYPEPropertiesChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure N1Click(Sender: TObject); private { Private declarations } function SaveData(): Boolean; procedure JSJS(); //㾭˿ + + procedure JS(); //㾭˿ public { Public declarations } FWBSID, FSTKName: string; @@ -122,6 +144,58 @@ uses U_CompanySel, U_GKManageSel; {$R *.dfm} + +procedure TfrmWBSpecInPut.JS(); +var + FZGS, FF_MAXKESHU: double; + fTS, FSJKS, FFJ, FF_MAXKESHU2, ffjgs, fbs: Integer; + FSJKS1, FSJKZ2, FXZS1, FXZS2: Integer; +begin +//ܾ/ɴɴ ȡ= +// ܾ/ ȡ= +// ܾ-* ȡ= + FZGS := STRTOFLOATDEF(WB_YarnQty.Text, 0); + FF_MAXKESHU := STRTOFLOATDEF(F_MAXKESHU.Text, 0); + if FF_MAXKESHU <> 0 then + begin + fTS := Ceil(FZGS / FF_MAXKESHU); + F_YarnStripQty.Text := INTTOSTR(fTS); + FSJKS := Floor(FZGS / fTS); + F_SJKESHU.Text := INTTOSTR(FSJKS); + F_YUSHU.Text := FLOATTOSTR(FZGS - FSJKS * fTS); + end; + + // ܾ/ֽ ȡ=ֽʸ + // ֽ/ ɴɴ ȡ= + // ֽ/ ȡ=ϡ + // ֽ- ֽ/ ȡ*6=ϡ + FFJ := StrToIntdef(Z_FENJIAO.Text, 0); + FF_MAXKESHU2 := STRTOintDEF(Z_MAXKESHU.Text, 0); + if (FFJ <> 0) and (FF_MAXKESHU2 <> 0) then + begin + ffjgs := Ceil(FZGS / FFJ); + Z_FJGENSHU.Text := inttostr(ffjgs); + fbs := Ceil(ffjgs / FF_MAXKESHU2); + Z_BINGSHU.Text := inttostr(fbs); + FSJKS1 := Floor(ffjgs / fbs); + if FSJKS1 * fbs = ffjgs then + begin + Z_SJKESHU1.Text := inttostr(FSJKS1); + Z_ZHOUSHU1.Text := inttostr(fbs); + Z_SJKESHU2.Text := '0'; + Z_ZHOUSHU2.Text := '0'; + end + else + begin + Z_SJKESHU1.Text := inttostr(FSJKS1); + Z_ZHOUSHU1.Text := inttostr(fbs - 1); + Z_SJKESHU2.Text := inttostr(ffjgs - (FSJKS1 * (fbs - 1))); + Z_ZHOUSHU2.Text := '1'; + end; + + end; +end; + procedure TfrmWBSpecInPut.JSJS(); var GS, ZGS, MF, DS, WM, TW: double; @@ -169,7 +243,6 @@ begin DS := FieldByName('TestDenier').Value; //D end; - WM := strtofloatdef(WB_YarnDensity.text, 0); //γ end; if ZGS <> 0 then begin @@ -187,6 +260,35 @@ begin end; end; +procedure TfrmWBSpecInPut.N1Click(Sender: TObject); +var + I, J: Integer; + AField: TField; +begin + with tv1 do + begin + // ѡ + + DataController.DataSource.Dataset.Edit; // ༭ģʽ + + // ֶ + for J := 0 to ColumnCount - 1 do + begin + // ȡǰеֶ + AField := Columns[J].DataBinding.Field; + + // ֶδҲ RowNo + if (AField <> nil) and (CompareText(AField.FieldName, 'RowNo') <> 0) and (CompareText(Columns[J].Name, 'RowNo') <> 0) then // ˫ؼȷų + begin + AField.Clear; // ֵֶ + end; + end; + + DataController.DataSource.Dataset.Post; // ύ޸ + + end; +end; + procedure TfrmWBSpecInPut.btn1Click(Sender: TObject); begin try @@ -310,6 +412,8 @@ begin end; FieldByName('WBSID').Value := Trim(MaxNo); RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', ScrollBox1, 2); + RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', cxGroupBox1, 2); + RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', cxGroupBox2, 2); Post; end; @@ -426,7 +530,19 @@ begin Open; end; SCSHData(ADOQueryTemp, ScrollBox1, 2); + SCSHData(ADOQueryTemp, cxGroupBox1, 2); + SCSHData(ADOQueryTemp, cxGroupBox2, 2); + if WB_TYPE.Text = '' then + begin + cxGroupBox2.Visible := True; + cxGroupBox1.Visible := false; + end + else + begin + cxGroupBox2.Visible := false; + cxGroupBox1.Visible := True; + end; with ADOQueryTemp do begin Close; @@ -474,21 +590,7 @@ begin FieldByName('RowNo').Value := 'H'; Post; - Append; - FieldByName('RowNo').Value := 'I'; - Post; - Append; - FieldByName('RowNo').Value := 'J'; - Post; - - Append; - FieldByName('RowNo').Value := 'K'; - Post; - - Append; - FieldByName('RowNo').Value := 'L'; - Post; end; end; @@ -505,6 +607,8 @@ begin begin SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString; SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString; + SELF.C_KCQTY.Text := CDS_HZ.FieldByName('GKCS').AsString; + SELF.WB_Width.Text := CDS_HZ.FieldByName('GKwidth').AsString; end; end; finally @@ -556,43 +660,33 @@ end; procedure TfrmWBSpecInPut.TBSaveClick(Sender: TObject); begin ToolBar1.SetFocus; - if StrToFloatDef(WB_YarnDensity.Text, 0) = 0 then - begin - Application.MessageBox('дȷľ!', 'ʾ', 0); - Exit; - end; - if StrToFloatDef(WB_Width.Text, 0) = 0 then - begin - Application.MessageBox('дȷľŷ!', 'ʾ', 0); - Exit; - end; - with CDS_Sub do - begin - CDS_Sub.First; - while not Eof do - begin - if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then - begin - if StrToFloatDef(Trim(CDS_Sub.fieldbyname('YarnQty').AsString), 0) = 0 then - begin - Application.MessageBox('Ϊ!', 'ʾ', 0); - Exit; - end; - end; - - if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then - begin - if StrToFloatDef(Trim(CDS_Sub.fieldbyname('CycleYarnQty').AsString), 0) = 0 then - begin - Application.MessageBox('ѭΪ!', 'ʾ', 0); - Exit; - end; - end; - - CDS_Sub.Next; - end; - end; +// with CDS_Sub do +// begin +// CDS_Sub.First; +// while not Eof do +// begin +// if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then +// begin +// if StrToFloatDef(Trim(CDS_Sub.fieldbyname('YarnQty').AsString), 0) = 0 then +// begin +// Application.MessageBox('Ϊ!', 'ʾ', 0); +// Exit; +// end; +// end; +// +// if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then +// begin +// if StrToFloatDef(Trim(CDS_Sub.fieldbyname('CycleYarnQty').AsString), 0) = 0 then +// begin +// Application.MessageBox('ѭΪ!', 'ʾ', 0); +// Exit; +// end; +// end; +// +// CDS_Sub.Next; +// end; +// end; if SaveData() then begin @@ -607,6 +701,31 @@ begin WriteCxGrid(trim(self.Caption), Tv1, 'ֿ'); end; +procedure TfrmWBSpecInPut.ToolButton2Click(Sender: TObject); +var + I, J: Integer; +begin + // ȷõȷͼ TcxGridDBTableView + with TV1 do + begin + // ѡ +// for I := 0 to SelectedRowCount - 1 do +// begin + // ȡݼ¼ + DataController.DataSource.Dataset.Edit; // ༭ģʽ + // ֶ + for J := 0 to ColumnCount - 1 do + begin + // ֵֶֻ/ؼֶΣ + if Columns[J].DataBinding.Field <> nil then + Columns[J].DataBinding.Field.Clear; + end; + DataController.DataSource.Dataset.Post; // ύ޸ +// end; + end; + +end; + procedure TfrmWBSpecInPut.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try @@ -637,10 +756,10 @@ begin end; end; -procedure TfrmWBSpecInPut.v1Column3PropertiesEditValueChanged(Sender: TObject); +procedure TfrmWBSpecInPut.Tv1Column8PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; - GS, ZGS, MF, DS, WM, TW, SUNHAO: double; + ZS, ZGS: double; begin mvalue := TcxTextEdit(Sender).EditingText; @@ -652,55 +771,111 @@ begin FieldByName(FFieldName).Value := mvalue; Post; - if FieldByName('YarnQty').Value = null then + if FieldByName('QFYARNQTY').Value = null then begin - GS := 0; // + ZGS := 0; //QUANFU end else begin - GS := FieldByName('YarnQty').Value; // + ZGS := FieldByName('QFYARNQTY').Value; //ȫ end; - if FieldByName('CycleYarnQty').Value = null then + if FieldByName('ZS').Value = null then begin - ZGS := 0; //ѭ + ZS := 0; //ѭ end else begin - ZGS := FieldByName('CycleYarnQty').Value; //ѭ + ZS := FieldByName('ZS').Value; //ѭ end; -// if FieldByName('SH').Value = null then -// begin -// SUNHAO := 0; // -// end -// else -// begin -// SUNHAO := FieldByName('SH').Value; // -// end; - - if FieldByName('Denier').Value = null then - begin - DS := 0; //D - end - else - begin - DS := FieldByName('Denier').Value; //D - end; - - TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ end; - if ZGS <> 0 then + if ZS <> 0 then begin with CDS_SUB do begin Edit; - FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2); Post; end; end; end; +procedure TfrmWBSpecInPut.v1Column3PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + GS, ZGS, MF, DS, WM, TW, SUNHAO: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + +// with CDS_SUB do +// begin +// Edit; +// FieldByName(FFieldName).Value := mvalue; +// Post; +// +// if FieldByName('YarnQty').Value = null then +// begin +// GS := 0; // +// end +// else +// begin +// GS := FieldByName('YarnQty').Value; // +// end; +// +// if FieldByName('CycleYarnQty').Value = null then +// begin +// ZGS := 0; //ѭ +// end +// else +// begin +// ZGS := FieldByName('CycleYarnQty').Value; //ѭ +// end; +// +// if FieldByName('Denier').Value = null then +// begin +// DS := 0; //D +// end +// else +// begin +// DS := FieldByName('Denier').Value; //D +// end; +// +// TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ +// end; +// if ZGS <> 0 then +// begin +// with CDS_SUB do +// begin +// Edit; +// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); +// Post; +// end; +// end; +end; + +procedure TfrmWBSpecInPut.WB_TYPEPropertiesChange(Sender: TObject); +begin + if WB_TYPE.Text = '' then + begin + cxGroupBox2.Visible := True; + cxGroupBox1.Visible := false; + end + else + begin + cxGroupBox2.Visible := false; + cxGroupBox1.Visible := True; + end; + +end; + +procedure TfrmWBSpecInPut.WB_YarnQtyExit(Sender: TObject); +begin + JS(); +end; + procedure TfrmWBSpecInPut.WB_YarnQtyPropertiesEditValueChanged(Sender: TObject); begin JSJS(); diff --git a/E02梭织经轴仓库/U_WBSpecList.dfm b/E02梭织经轴仓库/U_WBSpecList.dfm index 3c0a228..18d620e 100644 --- a/E02梭织经轴仓库/U_WBSpecList.dfm +++ b/E02梭织经轴仓库/U_WBSpecList.dfm @@ -160,7 +160,6 @@ inherited frmWBSpecList: TfrmWBSpecList item Kind = skSum Position = spFooter - Column = v1Column17 end item Kind = skSum @@ -190,48 +189,24 @@ inherited frmWBSpecList: TfrmWBSpecList Options.Editing = False Width = 196 end + object Tv1Column7: TcxGridDBColumn + Caption = #25972#32463#31867#22411 + DataBinding.FieldName = 'WB_TYPE' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end object v1Column9: TcxGridDBColumn - Caption = #24635#22836#20221 + Caption = #24635#32463#26681#25968 DataBinding.FieldName = 'WB_YarnQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 end - object Tv1Column10: TcxGridDBColumn - Caption = #19978#25490#39063#25968 - DataBinding.FieldName = 'WB_YarnArr' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 - end - object Tv1Column4: TcxGridDBColumn - Caption = #21514#25968 - DataBinding.FieldName = 'WB_YarnStripQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column2: TcxGridDBColumn - Caption = #38646#22836 - DataBinding.FieldName = 'WB_YarnStripRemainder' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column9: TcxGridDBColumn - Caption = #32463#36724#38376#24133 - DataBinding.FieldName = 'WB_Width' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 92 - end object Tv1Column12: TcxGridDBColumn - Caption = #29301#32463#31576#21495 + Caption = #31576#21495 DataBinding.FieldName = 'WB_ReedNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter @@ -245,78 +220,30 @@ inherited frmWBSpecList: TfrmWBSpecList HeaderAlignmentHorz = taCenter Width = 95 end - object Tv1Column7: TcxGridDBColumn - Caption = #32463#23494 - DataBinding.FieldName = 'WB_YarnDensity' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 94 - end - object v1Column8: TcxGridDBColumn + object v1Column12: TcxGridDBColumn Tag = 2 - Caption = #31576#31359#20837#27861 - DataBinding.FieldName = 'WB_ReedNote' + Caption = #31576#24133 + DataBinding.FieldName = 'WB_Width' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - HeaderGlyphAlignmentHorz = taCenter Options.Editing = False Width = 66 end object Tv1Column6: TcxGridDBColumn - Caption = #32463#36724#31859#25968 - DataBinding.FieldName = 'WB_YarnLen' + Caption = #22320#31359#20837#27861 + DataBinding.FieldName = 'DCRQTY' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 end - object v1Column10: TcxGridDBColumn - Caption = #22987#21514#20301#32622 - DataBinding.FieldName = 'WB_Arg_SDWZ' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column17: TcxGridDBColumn - Caption = #22369#26012#24230#25968 - DataBinding.FieldName = 'WB_Arg_PXDS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column5: TcxGridDBColumn - Caption = #20301#31227#37327 - DataBinding.FieldName = 'WB_Move' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column3: TcxGridDBColumn - Caption = #29301#32463#24352#21147#21442#25968 - DataBinding.FieldName = 'WB_Arg_QJZL' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column12: TcxGridDBColumn + object v1Column8: TcxGridDBColumn Tag = 2 - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column8: TcxGridDBColumn - Caption = #32463#25490#21015 - DataBinding.FieldName = 'WB_YarnArrNote' + Caption = #36793#31359#20837#27861 + DataBinding.FieldName = 'WB_ReedNote' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter Options.Editing = False Width = 66 end @@ -505,16 +432,16 @@ inherited frmWBSpecList: TfrmWBSpecList Width = 82 end object TV2Column2: TcxGridDBColumn - Caption = #32442#27861 - DataBinding.FieldName = 'FF' + Caption = #30334#31859#32463#38271#29992#37327'KG' + DataBinding.FieldName = 'MeterQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 end object TV2Column3: TcxGridDBColumn - Caption = #25467#24230 - DataBinding.FieldName = 'ND' + Caption = #20840#24133#26681#25968 + DataBinding.FieldName = 'QFYARNQTY' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False diff --git a/E02梭织经轴仓库/U_WBSpecList.pas b/E02梭织经轴仓库/U_WBSpecList.pas index 2de64dd..5118f44 100644 --- a/E02梭织经轴仓库/U_WBSpecList.pas +++ b/E02梭织经轴仓库/U_WBSpecList.pas @@ -38,8 +38,6 @@ type v1Column8: TcxGridDBColumn; v1Column12: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; - v1Column10: TcxGridDBColumn; - v1Column17: TcxGridDBColumn; v1Column9: TcxGridDBColumn; Label2: TLabel; Label4: TLabel; @@ -47,14 +45,7 @@ type WB_Name: TcxTextEdit; ToolButton1: TToolButton; Tv1Column1: TcxGridDBColumn; - Tv1Column2: TcxGridDBColumn; - Tv1Column3: TcxGridDBColumn; - Tv1Column4: TcxGridDBColumn; - Tv1Column5: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; - Tv1Column8: TcxGridDBColumn; - Tv1Column9: TcxGridDBColumn; - Tv1Column10: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn; Panel2: TPanel; diff --git a/E02梭织经轴仓库/WarpBeamStk.dproj.local b/E02梭织经轴仓库/WarpBeamStk.dproj.local index 428f11e..342e9a0 100644 --- a/E02梭织经轴仓库/WarpBeamStk.dproj.local +++ b/E02梭织经轴仓库/WarpBeamStk.dproj.local @@ -125,19 +125,19 @@ - 1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas - 1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas= - 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas - 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm - 1899/12/30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas - 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas - 1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas - 1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas - 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm - 1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm - 1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas - 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas - 1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas + 1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas= + 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas + 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm + 1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas + 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas + 1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas + 1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas + 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm + 1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm + 1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas + 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas + 1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas diff --git a/E02梭织经轴仓库/WarpBeamStk.identcache b/E02梭织经轴仓库/WarpBeamStk.identcache index 8edfcbeb556db8d3acd187963edcc02c1314e50d..cd40129695eb782281d7278bdac68f508c036325 100644 GIT binary patch delta 198 zcmdm^xkq!ucE-u;g&ZeK3d(PmVhUoM>?0I7*^^6X@+s!D$?pX>GbZbDs!s0a6q(G+YdtxQO&TaJKZ%=bvIDc^WC0QJ$&G9_o8{TvnI`8j$AQh_ zU=o^az!JJSnu~*ZGQTj`z|FsT`4}gwi#R}ZD^2#|FPoexoVxh{zXaoCDJIRy6GVh2 p%d#p={3AbkAE)Z(8o{@WllQVEO-|+w2iq(FwAp~gdh#L>DFAXEJ+}Y= delta 202 zcmdm^xkq!ucE-upLV=TKaSBa7BcQq2fk~5b@@tN`$!D0;Ca>WPoqSJFbFu@I)Z|hY zDWHPr$uC%DOy0?AJ=sS@8c2st&S0~d93h;vc?p|4)8qzL%gG8n@{`xGSb 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\E03梭织坯布检验\testDll.exe + D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E03梭织坯布检验\testDll.exe diff --git a/E03梭织坯布检验/TatInsp.dproj.local b/E03梭织坯布检验/TatInsp.dproj.local index a571a3b..bde9198 100644 --- a/E03梭织坯布检验/TatInsp.dproj.local +++ b/E03梭织坯布检验/TatInsp.dproj.local @@ -1,56 +1,56 @@  - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas - 1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj - 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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas + 1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj + 1899-12-30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.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.935,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj - 1899-12-30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm - 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm + 1899-12-30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm + 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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas - 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas - 1899-12-30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas - 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas - 1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj - 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm + 1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas + 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm - 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.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas + 1899-12-30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas + 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj + 1899-12-30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas + 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas + 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm 1899-12-30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm 1899-12-30 00:00:00.000.734,=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.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm + 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.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj + 1899-12-30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas @@ -81,7 +81,7 @@ - + diff --git a/E03梭织坯布检验/TatInsp.identcache b/E03梭织坯布检验/TatInsp.identcache index ce6820c6a27f903cb82f8893d1c87a2f0195aba2..900ed84d92befd32d2dbd0c526aee05ea88d26fd 100644 GIT binary patch delta 134 zcmey(|C^stdU64y%j5?v5)&hBC&#gcPc~w7oP3@&bh0j!>*PJ`N|RqQt)D!V)oSw$ zW_CuPq~c^DMg^b(&58RZCc27D{=qVL@_ZJ@$y*pDfXWmnyRu16KEs$eahm32eP*G_ kAJ`Otrr1vwU=N!(EgDE^PVQ&d1?o4RT+6~Sc`cI^0C5E_V*mgE delta 142 zcmey(|C^stda^#F&SW`uiOC5pA`@e6Cx2y&o_vql5r`Eh3o$B8WO1Av#40g)32Wly zc1G99@+_K@&$H`HPGD1-{El(`P$8Xmx|3A9ga@;x^3$=poVle^iafu`9506hFIKmY&$ diff --git a/E03梭织坯布检验/TatInspLogin.dproj.local b/E03梭织坯布检验/TatInspLogin.dproj.local index e194202..80c3023 100644 --- a/E03梭织坯布检验/TatInspLogin.dproj.local +++ b/E03梭织坯布检验/TatInspLogin.dproj.local @@ -49,7 +49,7 @@ - 1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj - 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj + 1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj + 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj diff --git a/E03梭织坯布检验/TatInspLogin.identcache b/E03梭织坯布检验/TatInspLogin.identcache index 45d279a739dac4228973af5a9c99294dd1670230..aa63f48091ccde98e2697f0195b5ee0848035f85 100644 GIT binary patch delta 53 zcmZ3)xrlQ@)?_oL$c#ej@~?(nV%5=m~{}Z diff --git a/E03梭织坯布检验/U_GetDllForm.pas b/E03梭织坯布检验/U_GetDllForm.pas index c4abd07..c790b79 100644 --- a/E03梭织坯布检验/U_GetDllForm.pas +++ b/E03梭织坯布检验/U_GetDllForm.pas @@ -71,10 +71,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 := ''; end diff --git a/E03梭织坯布检验/U_TatMachInsp.dfm b/E03梭织坯布检验/U_TatMachInsp.dfm index 8be1bba..9d6243c 100644 --- a/E03梭织坯布检验/U_TatMachInsp.dfm +++ b/E03梭织坯布检验/U_TatMachInsp.dfm @@ -54,7 +54,7 @@ object Label5: TLabel Left = 27 Top = 14 - Width = 62 + Width = 60 Height = 34 Caption = #38271#24230 Font.Charset = ANSI_CHARSET @@ -94,7 +94,7 @@ object Label12: TLabel Left = 37 Top = 212 - Width = 52 + Width = 48 Height = 23 Caption = #25377#36710'2' Font.Charset = ANSI_CHARSET @@ -108,7 +108,7 @@ object Label34: TLabel Left = 37 Top = 177 - Width = 52 + Width = 48 Height = 23 Caption = #25377#36710'1' Font.Charset = ANSI_CHARSET @@ -135,7 +135,7 @@ object Label36: TLabel Left = 250 Top = 177 - Width = 42 + Width = 38 Height = 23 Caption = #31859#25968 Font.Charset = ANSI_CHARSET @@ -149,7 +149,7 @@ object Label38: TLabel Left = 250 Top = 212 - Width = 42 + Width = 38 Height = 23 Caption = #31859#25968 Font.Charset = ANSI_CHARSET @@ -177,7 +177,7 @@ object Label11: TLabel Left = 15 Top = 504 - Width = 62 + Width = 60 Height = 34 Caption = #37325#37327 Font.Charset = ANSI_CHARSET @@ -191,7 +191,7 @@ object Label3: TLabel Left = 39 Top = 563 - Width = 62 + Width = 58 Height = 23 Caption = #31995' '#25968 Font.Charset = ANSI_CHARSET @@ -205,7 +205,7 @@ object lblRuleConversion: TLabel Left = 190 Top = 562 - Width = 84 + Width = 80 Height = 24 Caption = #31859#36716#20844#26020 Font.Charset = ANSI_CHARSET @@ -219,7 +219,7 @@ object Label30: TLabel Left = 37 Top = 246 - Width = 52 + Width = 48 Height = 23 Caption = #25377#36710'3' Font.Charset = ANSI_CHARSET @@ -233,7 +233,7 @@ object Label31: TLabel Left = 250 Top = 246 - Width = 42 + Width = 38 Height = 23 Caption = #31859#25968 Font.Charset = ANSI_CHARSET @@ -319,9 +319,8 @@ ParentFont = False TabOrder = 4 Items.Strings = ( - 'A'#21697 - 'B'#21697 - 'C'#21697) + #21512#26684 + #19981#21512#26684) end object C_ColorDepth: TComboBox Left = 176 @@ -529,7 +528,7 @@ object Label14: TLabel Left = 20 Top = 40 - Width = 34 + Width = 32 Height = 19 Caption = #21333#21495 Font.Charset = ANSI_CHARSET @@ -542,7 +541,7 @@ object Label23: TLabel Left = 220 Top = 132 - Width = 34 + Width = 32 Height = 19 Caption = #36710#21495 Font.Charset = ANSI_CHARSET @@ -555,7 +554,7 @@ object Label24: TLabel Left = 20 Top = 132 - Width = 34 + Width = 32 Height = 19 Caption = #26426#20462 Font.Charset = ANSI_CHARSET @@ -568,7 +567,7 @@ object Label25: TLabel Left = 20 Top = 68 - Width = 34 + Width = 32 Height = 19 Caption = #21697#21517 Font.Charset = ANSI_CHARSET @@ -581,7 +580,7 @@ object Label1: TLabel Left = 18 Top = 7 - Width = 84 + Width = 80 Height = 24 Caption = #25195#25551#20837#21475 Font.Charset = ANSI_CHARSET @@ -594,7 +593,7 @@ object Label13: TLabel Left = 20 Top = 90 - Width = 34 + Width = 32 Height = 38 Caption = #24067#21305#13#10#25209#21495 Font.Charset = ANSI_CHARSET @@ -607,7 +606,7 @@ object Label29: TLabel Left = 217 Top = 90 - Width = 34 + Width = 32 Height = 38 Caption = #32463#19997#13#10#25209#21495 Font.Charset = ANSI_CHARSET @@ -620,7 +619,7 @@ object Label32: TLabel Left = 267 Top = 158 - Width = 34 + Width = 32 Height = 38 Caption = #19979#24067#13#10#31859#25968 Font.Charset = ANSI_CHARSET @@ -2286,6 +2285,10 @@ object 查看: TcxTabSheet Caption = #26597#30475 ImageIndex = 1 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object cxGrid1: TcxGrid Left = 0 Top = 0 @@ -2667,7 +2670,7 @@ object Label35: TLabel Left = 27 Top = 55 - Width = 21 + Width = 19 Height = 23 Caption = #31204 Font.Charset = ANSI_CHARSET @@ -2680,7 +2683,7 @@ object Label16: TLabel Left = 6 Top = 15 - Width = 42 + Width = 38 Height = 23 Caption = #30721#34920 Font.Charset = ANSI_CHARSET @@ -2693,7 +2696,7 @@ object Label26: TLabel Left = 6 Top = 94 - Width = 42 + Width = 38 Height = 23 Caption = #20986#32440 Font.Charset = ANSI_CHARSET @@ -2706,7 +2709,7 @@ object Label6: TLabel Left = 90 Top = 94 - Width = 42 + Width = 38 Height = 23 Caption = #20221#25968 Font.Charset = ANSI_CHARSET @@ -2719,7 +2722,7 @@ object Label7: TLabel Left = 90 Top = 15 - Width = 42 + Width = 38 Height = 23 Caption = #21333#20301 Font.Charset = ANSI_CHARSET @@ -2732,7 +2735,7 @@ object Label9: TLabel Left = 6 Top = 136 - Width = 42 + Width = 38 Height = 23 Caption = #38271#24230 Font.Charset = ANSI_CHARSET @@ -2745,7 +2748,7 @@ object Label15: TLabel Left = 6 Top = 178 - Width = 42 + Width = 38 Height = 23 Caption = #37325#37327 Font.Charset = ANSI_CHARSET @@ -2759,7 +2762,7 @@ object Label19: TLabel Left = 6 Top = 224 - Width = 84 + Width = 76 Height = 23 Caption = #31859#25968#20445#30041 Font.Charset = ANSI_CHARSET @@ -2772,7 +2775,7 @@ object Label20: TLabel Left = 161 Top = 224 - Width = 21 + Width = 19 Height = 23 Caption = #20301 Font.Charset = ANSI_CHARSET @@ -2785,7 +2788,7 @@ object Label21: TLabel Left = 6 Top = 255 - Width = 84 + Width = 76 Height = 23 Caption = #30721#25968#20445#30041 Font.Charset = ANSI_CHARSET @@ -2798,7 +2801,7 @@ object Label27: TLabel Left = 161 Top = 255 - Width = 21 + Width = 19 Height = 23 Caption = #20301 Font.Charset = ANSI_CHARSET @@ -2811,7 +2814,7 @@ object Label28: TLabel Left = 161 Top = 286 - Width = 21 + Width = 19 Height = 23 Caption = #20301 Font.Charset = ANSI_CHARSET @@ -2825,7 +2828,7 @@ object Label33: TLabel Left = 6 Top = 286 - Width = 84 + Width = 76 Height = 23 Caption = #37325#37327#20445#30041 Font.Charset = ANSI_CHARSET