From cccfd92ae0c1b6b5135cd063f4fb852842ab2b47 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E2=80=9Cusername=E2=80=9D?= <“email”> Date: Thu, 15 May 2025 15:55:06 +0800 Subject: [PATCH] 11 --- A01基础公司管理/Company.identcache | Bin 2121 -> 2031 bytes D01针织生产计划/KnitPlan.dproj.local | 62 +- D01针织生产计划/U_KnitPlanCard.dfm | 17 +- D01针织生产计划/U_KnitPlanCard.pas | 7 +- D01针织生产计划/U_KnitPlanImport.dfm | 47 +- D01针织生产计划/U_KnitPlanImport.pas | 210 +++-- D01针织生产计划/U_KnitPlanInPut.dfm | 779 +++++++++++------- D01针织生产计划/U_KnitPlanInPut.pas | 112 ++- D01针织生产计划/U_KnitPlanList.dfm | 119 ++- D01针织生产计划/U_KnitPlanList.pas | 58 +- D01针织生产计划/U_LCKQuery.dfm | 30 +- D01针织生产计划/U_LCKQuery.pas | 3 +- D02针织坯布检验/KnitInsp.identcache | Bin 1676 -> 1676 bytes D02针织坯布检验/KnitInspLogin.identcache | Bin 1135 -> 1135 bytes D03针织坯布仓库/KnitClothStk.identcache | Bin 2264 -> 2264 bytes D03针织坯布仓库/testDll.identcache | Bin 170 -> 170 bytes F04染色刷卡/DyeProcess.identcache | Bin 1161 -> 1161 bytes T03贸易布匹检验/U_DataLink.dfm | 10 +- T03贸易布匹检验/U_DataLink.pas | 1 + T03贸易布匹检验/U_TradeClothInspList.dfm | 20 +- T03贸易布匹检验/U_TradeClothInspList.pas | 4 +- T03贸易布匹检验/U_TradeMachInsp.dfm | 180 ++-- T03贸易布匹检验/U_TradeMachInsp.pas | 48 +- .../Statistics.identcache | Bin 1672 -> 1672 bytes 24 files changed, 1101 insertions(+), 606 deletions(-) diff --git a/A01基础公司管理/Company.identcache b/A01基础公司管理/Company.identcache index 8ae52311e755b64f96c070b1ba590f6f9a713ba9..4aaef396869c64bf3481aa0a6685796d86345419 100644 GIT binary patch delta 44 ycmX>p@SdMhdL!dc#>vtwwwv>qCNOP|U=0BCCU0Yxn!JMT;^be9=94e5R{{V~*$=n? delta 102 zcmV-s0Ga>q56KV#9I*lU0h2ofBa>nW6tnsP%>n^UlTZO3D?({>VQ*YSFfr+pi08Y9 z=air1x~J%_q2-8@TvcCGa$#g;Np5p+Q)P5Alb8WFlRyO!v;G7b0h4Y9(UbZCJ(E-h I8k2Shc~qP!lmGw# diff --git a/D01针织生产计划/KnitPlan.dproj.local b/D01针织生产计划/KnitPlan.dproj.local index cfc6834..dcf059d 100644 --- a/D01针织生产计划/KnitPlan.dproj.local +++ b/D01针织生产计划/KnitPlan.dproj.local @@ -1,57 +1,57 @@  - 1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.938,=D:\Dp10Repo\项目代码\D10gmXinHua\D01针织生产计划\U_LCKInput.pas 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.pas 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.496,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.dfm=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.dfm + 1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.898,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_LCKQuery.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\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.913,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_TradeInspSet.pas - 1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.dfm=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.dfm + 1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas= + 1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas=D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.pas 1899-12-30 00:00:00.000.756,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas - 1899-12-30 00:00:00.000.830,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_PlanCardOFF.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.227,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelAdd.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.128,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.dfm=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.dfm + 1899-12-30 00:00:00.000.914,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_testdll.pas + 1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.pas=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.pas 1899-12-30 00:00:00.000.175,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_KnitPlanCard.pas - 1899-12-30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas= + 1899-12-30 00:00:00.000.830,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_PlanCardOFF.pas 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899-12-30 00:00:00.000.383,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.914,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_testdll.pas - 1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.913,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_TradeInspSet.pas 1899-12-30 00:00:00.000.089,=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet2.pas - 1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.pas - 1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.pas=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.496,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.pas=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.pas + 1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.dfm=D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.dfm + 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.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas - 1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.dfm=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.dfm - 1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.dfm=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.dfm + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.734,=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.496,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.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.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.pas=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899-12-30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.dfm=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.dfm + 1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.pas=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.pas + 1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.496,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.dfm=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.dfm + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= diff --git a/D01针织生产计划/U_KnitPlanCard.dfm b/D01针织生产计划/U_KnitPlanCard.dfm index 7383e2a..c5e095b 100644 --- a/D01针织生产计划/U_KnitPlanCard.dfm +++ b/D01针织生产计划/U_KnitPlanCard.dfm @@ -3,9 +3,9 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard Top = 76 Caption = #26631#31614#25171#21360 ClientHeight = 637 - ClientWidth = 1397 + ClientWidth = 1448 Position = poScreenCenter - ExplicitWidth = 1413 + ExplicitWidth = 1464 ExplicitHeight = 676 PixelsPerInch = 96 TextHeight = 12 @@ -13,7 +13,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard Tag = 1 Left = 0 Top = 0 - Width = 1397 + Width = 1448 Height = 38 AutoSize = True ButtonHeight = 38 @@ -32,8 +32,6 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitLeft = 1 - ExplicitTop = 1 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -86,7 +84,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard object Panel1: TPanel [1] Left = 0 Top = 38 - Width = 1397 + Width = 1448 Height = 99 Align = alTop BevelInner = bvRaised @@ -214,12 +212,11 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard object cxGrid1: TcxGrid [2] Left = 0 Top = 164 - Width = 1397 + Width = 1448 Height = 473 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitLeft = 1 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -486,7 +483,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard object cxTabControl1: TcxTabControl [3] Left = 0 Top = 137 - Width = 1397 + Width = 1448 Height = 27 Align = alTop Font.Charset = GB2312_CHARSET @@ -505,7 +502,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 29 - ClientRectRight = 1397 + ClientRectRight = 1448 ClientRectTop = 29 end object Panel3: TPanel [4] diff --git a/D01针织生产计划/U_KnitPlanCard.pas b/D01针织生产计划/U_KnitPlanCard.pas index 76c4af0..002328c 100644 --- a/D01针织生产计划/U_KnitPlanCard.pas +++ b/D01针织生产计划/U_KnitPlanCard.pas @@ -163,12 +163,12 @@ begin case cxTabControl1.TabIndex of 0: begin - sql.Add(' and PRTCount=0'); + sql.Add(' and A.PRTCount=0'); sql.Add(' Order by A.Filltime Desc'); end; 1: begin - sql.Add(' and PRTCount>0'); + sql.Add(' and A.PRTCount>0'); sql.Add(' Order by A.PRTDate Desc'); end; 2: @@ -176,7 +176,7 @@ begin sql.Add(' Order by A.PRTDate Desc,A.Filltime Desc'); end; end; -// ShowMessage(sql.text); + //ShowMessage(sql.text); Open; end; SCreateCDS(ADOQueryMain, CDS_1); @@ -307,6 +307,7 @@ begin sql.Add(' ,Deltime =getdate() '); sql.Add(' where PCID=''' + Trim(CDS_1.fieldbyname('PCID').AsString) + ''''); sql.Add(' and Status =''0'' '); + // showmessage(sql.Text); ExecSQL; end; end; diff --git a/D01针织生产计划/U_KnitPlanImport.dfm b/D01针织生产计划/U_KnitPlanImport.dfm index 75fdc4a..b1b1f6f 100644 --- a/D01针织生产计划/U_KnitPlanImport.dfm +++ b/D01针织生产计划/U_KnitPlanImport.dfm @@ -1,7 +1,7 @@ inherited frmknitplanImport: TfrmknitplanImport Left = 189 Top = 138 - Caption = #26679#21697#23548#20837 + Caption = #35745#21010#21333#23548#20837 ClientHeight = 562 ClientWidth = 1484 Color = clWhite @@ -86,7 +86,6 @@ inherited frmknitplanImport: TfrmknitplanImport Height = 532 Align = alClient TabOrder = 1 - ExplicitTop = 36 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -234,6 +233,32 @@ inherited frmknitplanImport: TfrmknitplanImport HeaderAlignmentHorz = taCenter Width = 83 end + object cxgrdbclmnTv1Column2: TcxGridDBColumn + Caption = #34892#21495 + DataBinding.FieldName = 'LineNumber' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1PRTKZ: TcxGridDBColumn + Tag = 1 + Caption = #29289#26009#21495 + DataBinding.FieldName = 'C_Material_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KnitPlan.Default + Width = 76 + end + object v1Column7: TcxGridDBColumn + Tag = 1 + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'C_Material' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KnitPlan.Default + Width = 72 + end object cxgrdbclmnTv1Column15: TcxGridDBColumn Caption = #19994#21153#21592 DataBinding.FieldName = 'Saleser' @@ -377,24 +402,6 @@ inherited frmknitplanImport: TfrmknitplanImport Options.Editing = False Width = 80 end - object v1PRTKZ: TcxGridDBColumn - Tag = 1 - Caption = #29289#26009#21495 - DataBinding.FieldName = 'C_Material_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Styles.Header = DataLink_KnitPlan.Default - Width = 76 - end - object v1Column7: TcxGridDBColumn - Tag = 1 - Caption = #29289#26009#21517#31216 - DataBinding.FieldName = 'C_Material' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Styles.Header = DataLink_KnitPlan.Default - Width = 72 - end object cxgrdbclmnTv1Column17: TcxGridDBColumn Caption = #21097#20313#20132#26399 DataBinding.FieldName = 'IFJQ' diff --git a/D01针织生产计划/U_KnitPlanImport.pas b/D01针织生产计划/U_KnitPlanImport.pas index ff77940..e160b83 100644 --- a/D01针织生产计划/U_KnitPlanImport.pas +++ b/D01针织生产计划/U_KnitPlanImport.pas @@ -65,6 +65,7 @@ type cxgrdbclmnTv1Column16: TcxGridDBColumn; cxgrdbclmnTv1Column17: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; + cxgrdbclmnTv1Column2: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -126,7 +127,6 @@ end; procedure TfrmknitplanImport.TBCloseClick(Sender: TObject); begin - Close; end; @@ -162,108 +162,139 @@ var begin try ADOQueryCmd.Connection.BeginTrans; - if Trim(CDS_1.FieldByName('mainid').AsString) = '' then + with CDS_1 do begin - if CDS_1.FieldByName('OrdType').AsString = '' then + First; + while not Eof do begin - if GetLSNo(ADOQueryCmd, maxno, 'DH', 'knit_Plan_Main', 4, 1) = False then + if Trim(CDS_1.FieldByName('mainid').AsString) = '' then begin - ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ˮ쳣', 'ʾ', 0); - exit; - end; - end; - if CDS_1.FieldByName('OrdType').AsString = '' then - begin - if GetLSNo(ADOQueryCmd, maxno, 'SY', 'knit_Plan_Main', 4, 1) = False then - begin - ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ˮ쳣', 'ʾ', 0); - exit; - end; - end; - if CDS_1.FieldByName('OrdType').AsString = 'ⷢ' then - begin - if GetLSNo(ADOQueryCmd, maxno, 'KM', 'knit_Plan_Main', 4, 1) = False then - begin - ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ˮ쳣', 'ʾ', 0); - exit; - end; - end; + if CDS_1.FieldByName('OrdType').AsString = '' then + begin + if GetLSNo(ADOQueryCmd, maxno, 'DH', 'knit_Plan_Main', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + end; + if CDS_1.FieldByName('OrdType').AsString = '' then + begin + if GetLSNo(ADOQueryCmd, maxno, 'SY', 'knit_Plan_Main', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + end; + if CDS_1.FieldByName('OrdType').AsString = 'ⷢ' then + begin + if GetLSNo(ADOQueryCmd, maxno, 'KM', 'knit_Plan_Main', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + end; - end - else - begin + end + else + begin - end; + end; + + //ѯͻϢ + with ADOQueryBaseCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from BS_Company where CoType = ''ͻ'' and CoName=''' + Trim(CDS_1.FieldByName('CustName').AsString) + ''''); + Open; + end; ////////////////////////// ////////////////////////// - with ADOQueryCmd do - begin - Close; - sql.Clear; - SQL.Add('select * from knit_Plan_Main where MainId=''' + Trim(maxno) + ''''); - Open; - end; - with ADOQueryCmd do - begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from knit_Plan_Main where MainId=''' + Trim(maxno) + ''''); + Open; + end; + with ADOQueryCmd do + begin - Append; + Append; + FieldByName('MainId').Value := Trim(maxno); + FieldByName('orderno').Value := Trim(maxno); + FieldByName('LabPackage').Value := Trim(CDS_1.FieldByName('LabPackage').AsString); + FieldByName('RuleBeforeTare').Value := Trim(CDS_1.FieldByName('RuleBeforeTare').AsString); + FieldByName('CustNo').Value := Trim(ADOQueryBaseCmd.FieldByName('CoCode').AsString); + FieldByName('Filler').Value := Trim(DName); - FieldByName('MainId').Value := Trim(maxno); - FieldByName('orderno').Value := Trim(maxno); - FieldByName('Filler').Value := Trim(DName); - - RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_main', 0); - Post; - end; + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_main', 0); + Post; + end; ////////////////////////// ////////////////////////// /// ////////////////////////// ӱ ////////////////////////// + //ѯƷϢ + if Trim(CDS_1.FieldByName('C_Code').AsString) <> '' then + begin + with ADOQueryBaseCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from BS_Cloth_Info where C_Code=''' + Trim(CDS_1.FieldByName('C_Code').AsString) + ''''); + Open; + end; + end; - with ADOQueryCmd do - begin - Close; - SQL.Clear; - sql.Add('select * from knit_Plan_Sub where '); - sql.Add(' SubId=''' + Trim(maxno) + ''''); - Open; - end; - with ADOQueryCmd do - begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from knit_Plan_Sub where '); + sql.Add(' SubId=''' + Trim(maxno) + ''''); + Open; + end; + with ADOQueryCmd do + begin - Append; + Append; - FieldByName('MainId').Value := Trim(maxno); - FieldByName('SubId').Value := Trim(maxno); + FieldByName('MainId').Value := Trim(maxno); + FieldByName('SubId').Value := Trim(maxno); - RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_sub', 1); - Post; - end; + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_sub', 1); + Post; + end; ////////////////////////// ӱ ////////////////////////// /// ////////////////////////// ǩ ////////////////////////// - with ADOQueryCmd do - begin - Close; - SQL.Clear; - sql.Add('select * from Trade_Cloth_Inspect_Rule where '); - sql.Add(' RuleID=''' + Trim(maxno) + ''''); - Open; - end; - with ADOQueryCmd do - begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Trade_Cloth_Inspect_Rule where '); + sql.Add(' RuleID=''' + Trim(maxno) + ''''); + Open; + end; + with ADOQueryCmd do + begin - Append; - FieldByName('Filler').Value := Trim(DName); + Append; + FieldByName('Filler').Value := Trim(DName); - FieldByName('RuleID').Value := Trim(maxno); - RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Cloth_Inspect_Rule', 2); - Post; - end; + FieldByName('RuleID').Value := Trim(maxno); + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Cloth_Inspect_Rule', 2); + Post; + end; ////////////////////////// ǩ ////////////////////////// /// + next; + + end; + end; ADOQueryCmd.Connection.CommitTrans; Application.MessageBox('ɹ', 'ʾ', 0); @@ -347,9 +378,28 @@ begin begin if CDS_LM.FieldByName('LXH').AsInteger > 0 then CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value; + CDS_LM.Next; end; Post; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from bs_cloth_info where '); + sql.Add(' C_Code=''' + Trim(cds_1.FieldByName('c_Code').AsString) + ''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + with cds_1 do + begin + edit; + cds_1.Fieldbyname('C_Yarn').AsString := ADOQueryTemp.FieldByName('C_Yarn').AsString; + cds_1.Fieldbyname('C_jiaceng').AsString := ADOQueryTemp.FieldByName('C_jiaceng').AsString; + cds_1.FieldByName('C_DYARN').AsString := ADOQueryTemp.FieldByName('C_DYARN').AsString; + end; + end; end; end; WorkBook.Close; diff --git a/D01针织生产计划/U_KnitPlanInPut.dfm b/D01针织生产计划/U_KnitPlanInPut.dfm index 8d91d9d..d238b02 100644 --- a/D01针织生产计划/U_KnitPlanInPut.dfm +++ b/D01针织生产计划/U_KnitPlanInPut.dfm @@ -2,7 +2,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Left = 212 Top = 14 Caption = #36710#38388#29983#20135#35745#21010#21333#24405#20837 - ClientHeight = 634 + ClientHeight = 580 ClientWidth = 1363 Color = clWhite Font.Charset = GB2312_CHARSET @@ -10,7 +10,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Position = poScreenCenter ExplicitWidth = 1379 - ExplicitHeight = 673 + ExplicitHeight = 619 PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar [0] @@ -71,7 +71,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Left = 0 Top = 38 Width = 1363 - Height = 610 + Height = 627 Align = alTop BevelInner = bvNone BevelOuter = bvNone @@ -84,10 +84,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentCtl3D = False ParentFont = False TabOrder = 1 - ExplicitTop = 36 object Label1: TLabel - Left = 11 - Top = 102 + Left = 371 + Top = 544 Width = 112 Height = 21 Caption = #21512' '#21516' '#21495#65306 @@ -97,10 +96,11 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + Visible = False end object Label2: TLabel - Left = 555 - Top = 9 + Left = 565 + Top = 8 Width = 110 Height = 21 Caption = #19979#21333#26085#26399#65306 @@ -112,13 +112,13 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label3: TLabel - Left = 275 - Top = 152 + Left = 286 + Top = 125 Width = 110 Height = 21 Caption = #20135#21697#21517#31216#65306 Font.Charset = GB2312_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] @@ -126,7 +126,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end object Label14: TLabel Left = 13 - Top = 54 + Top = 45 Width = 110 Height = 21 Caption = #20844#21496#25260#22836#65306 @@ -138,34 +138,34 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label18: TLabel - Left = 555 - Top = 152 + Left = 565 + Top = 125 Width = 114 Height = 21 Caption = #38376' '#24133#65306 Font.Charset = GB2312_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label22: TLabel - Left = 851 - Top = 152 + Left = 893 + Top = 125 Width = 110 Height = 21 Caption = #25104#21697#20811#37325#65306 Font.Charset = GB2312_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel - Left = 848 - Top = 9 + Left = 893 + Top = 8 Width = 110 Height = 21 Caption = #20132#36135#26085#26399#65306 @@ -177,8 +177,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label8: TLabel - Left = 9 - Top = 195 + Left = 13 + Top = 166 Width = 114 Height = 21 Caption = #21305' '#25968#65306 @@ -190,8 +190,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label12: TLabel - Left = 934 - Top = 628 + Left = 941 + Top = 542 Width = 114 Height = 21 Caption = #21305' '#38271#65306 @@ -204,8 +204,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Visible = False end object Label13: TLabel - Left = 273 - Top = 195 + Left = 286 + Top = 166 Width = 112 Height = 21 Caption = #24635' '#25968' '#37327#65306 @@ -217,8 +217,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label16: TLabel - Left = 9 - Top = 409 + Left = 14 + Top = 366 Width = 114 Height = 21 Caption = #22791' '#27880#65306 @@ -231,7 +231,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end object Label26: TLabel Left = 13 - Top = 152 + Top = 125 Width = 110 Height = 21 Caption = #20135#21697#32534#21495#65306 @@ -243,8 +243,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label27: TLabel - Left = 1033 - Top = 448 + Left = 1078 + Top = 45 Width = 24 Height = 21 Caption = 'KG' @@ -256,8 +256,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label28: TLabel - Left = 874 - Top = 448 + Left = 893 + Top = 45 Width = 66 Height = 21 Caption = #30382#37325#65306 @@ -269,8 +269,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label31: TLabel - Left = 91 - Top = 655 + Left = 51 + Top = 506 Width = 114 Height = 21 Caption = #32433' '#32447#65306 @@ -283,11 +283,11 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Visible = False end object Label47: TLabel - Left = 273 - Top = 54 - Width = 114 + Left = 286 + Top = 45 + Width = 102 Height = 21 - Caption = #23458' '#25143#65306 + Caption = #23458' '#25143#65306 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -21 @@ -296,21 +296,21 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label54: TLabel - Left = 562 - Top = 241 + Left = 565 + Top = 207 Width = 112 Height = 21 Caption = #21518' '#22788' '#29702#65306 Font.Charset = GB2312_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label43: TLabel - Left = 274 - Top = 102 + Left = 286 + Top = 86 Width = 112 Height = 21 Caption = #19994' '#21153' '#21592#65306 @@ -322,7 +322,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object lbl2: TLabel - Left = 275 + Left = 286 Top = 8 Width = 110 Height = 21 @@ -348,8 +348,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label4: TLabel - Left = 557 - Top = 54 + Left = 565 + Top = 45 Width = 110 Height = 21 Caption = #21152#24037#21333#20301#65306 @@ -361,8 +361,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label6: TLabel - Left = 851 - Top = 240 + Left = 892 + Top = 249 Width = 110 Height = 21 Caption = #33853#24067#36716#25968#65306 @@ -374,8 +374,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label9: TLabel - Left = 9 - Top = 241 + Left = 565 + Top = 249 Width = 114 Height = 21 Caption = #39068' '#33394#65306 @@ -387,8 +387,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label10: TLabel - Left = 874 - Top = 408 + Left = 716 + Top = 508 Width = 110 Height = 21 Caption = #32986#24067#35201#27714#65306 @@ -398,10 +398,11 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + Visible = False end object Label11: TLabel - Left = 270 - Top = 239 + Left = 565 + Top = 290 Width = 114 Height = 21 Caption = #25104' '#20998#65306 @@ -413,8 +414,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label15: TLabel - Left = 848 - Top = 104 + Left = 638 + Top = 543 Width = 110 Height = 21 Caption = #22383#24067#20811#37325#65306 @@ -424,10 +425,11 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + Visible = False end object Label17: TLabel - Left = 9 - Top = 286 + Left = 47 + Top = 582 Width = 114 Height = 21 Caption = #25552' '#33457#65306 @@ -437,23 +439,24 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + Visible = False end object Label19: TLabel - Left = 9 - Top = 331 + Left = 13 + Top = 207 Width = 114 Height = 21 Caption = #38754' '#32433#65306 Font.Charset = GB2312_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label20: TLabel - Left = 564 - Top = 286 + Left = 45 + Top = 543 Width = 112 Height = 21 Caption = #20844' '#26020' '#25968#65306 @@ -463,10 +466,11 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + Visible = False end object lbl1: TLabel - Left = 557 - Top = 102 + Left = 13 + Top = 86 Width = 110 Height = 21 Caption = #20869#37096#22411#21495#65306 @@ -478,8 +482,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object lbl3: TLabel - Left = 851 - Top = 284 + Left = 1027 + Top = 508 Width = 110 Height = 21 Caption = #33394#19997#27604#20363#65306 @@ -489,23 +493,24 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + Visible = False end object Label21: TLabel - Left = 9 - Top = 369 + Left = 13 + Top = 290 Width = 114 Height = 21 Caption = #24213' '#32433#65306 Font.Charset = GB2312_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label23: TLabel - Left = 562 - Top = 331 + Left = 13 + Top = 249 Width = 114 Height = 21 Caption = #22841' '#23618#65306 @@ -517,8 +522,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label24: TLabel - Left = 846 - Top = 56 + Left = 565 + Top = 86 Width = 132 Height = 21 Caption = #23458#25143#35746#21333#21495#65306 @@ -530,8 +535,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object lbl5: TLabel - Left = 562 - Top = 195 + Left = 565 + Top = 166 Width = 112 Height = 21 Caption = #29289' '#26009' '#21495#65306 @@ -543,8 +548,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object lbl4: TLabel - Left = 562 - Top = 369 + Left = 13 + Top = 331 Width = 110 Height = 21 Caption = #20027#35201#32433#32447#65306 @@ -556,8 +561,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object lbl6: TLabel - Left = 871 - Top = 486 + Left = 893 + Top = 86 Width = 88 Height = 21 Caption = #21253#26631#31614#65306 @@ -569,8 +574,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object lbl7: TLabel - Left = 851 - Top = 195 + Left = 893 + Top = 166 Width = 110 Height = 21 Caption = #29289#26009#21517#31216#65306 @@ -581,10 +586,62 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Style = [fsBold] ParentFont = False end + object lbl8: TLabel + Left = 894 + Top = 207 + Width = 110 + Height = 21 + Caption = #29305#27530#21161#21058#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object lbl9: TLabel + Left = 565 + Top = 331 + Width = 176 + Height = 21 + Caption = #26159#21542#26159#37325#25171#35746#21333#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object lbl10: TLabel + Left = 564 + Top = 366 + Width = 110 + Height = 21 + Caption = #37325#25171#29702#30001#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object lbl11: TLabel + Left = 893 + Top = 290 + Width = 134 + Height = 21 + Caption = #34892#21495'('#24658#24247')'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object OrdDate: TDateTimePicker - Left = 665 - Top = 5 - Width = 172 + Left = 669 + Top = 4 + Width = 200 Height = 29 BevelInner = bvNone Date = 40916.000000000000000000 @@ -600,9 +657,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut TabOrder = 0 end object DlyDate: TDateTimePicker - Left = 957 - Top = 5 - Width = 182 + Left = 992 + Top = 4 + Width = 180 Height = 29 BevelInner = bvNone Date = 40916.000000000000000000 @@ -619,8 +676,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end object OrdPieceWeight: TEdit Tag = 2 - Left = 945 - Top = 644 + Left = 1045 + Top = 540 Width = 180 Height = 27 Font.Charset = GB2312_CHARSET @@ -636,8 +693,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end object OrdPiece: TEdit Tag = 2 - Left = 114 - Top = 192 + Left = 119 + Top = 163 Width = 150 Height = 27 Font.Charset = GB2312_CHARSET @@ -652,9 +709,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end object OrdQty: TEdit Tag = 2 - Left = 389 - Top = 192 - Width = 101 + Left = 387 + Top = 163 + Width = 90 Height = 27 Font.Charset = GB2312_CHARSET Font.Color = clBlack @@ -668,8 +725,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end object C_GramWeight: TEdit Tag = 2 - Left = 957 - Top = 149 + Left = 992 + Top = 123 Width = 180 Height = 27 Font.Charset = GB2312_CHARSET @@ -683,9 +740,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end object C_Width: TEdit Tag = 2 - Left = 659 - Top = 149 - Width = 180 + Left = 669 + Top = 123 + Width = 200 Height = 27 Font.Charset = GB2312_CHARSET Font.Color = clBlack @@ -699,7 +756,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut object C_Name: TEdit Tag = 2 Left = 387 - Top = 149 + Top = 123 Width = 150 Height = 27 Font.Charset = GB2312_CHARSET @@ -713,7 +770,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end object CustName: TBtnEditC Left = 387 - Top = 50 + Top = 41 Width = 150 Height = 30 Font.Charset = GB2312_CHARSET @@ -729,8 +786,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end object C_Code: TBtnEditC Tag = 2 - Left = 114 - Top = 149 + Left = 119 + Top = 122 Width = 150 Height = 30 Font.Charset = GB2312_CHARSET @@ -746,8 +803,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end object ConNo: TBtnEditC Tag = 2 - Left = 114 - Top = 98 + Left = 474 + Top = 540 Width = 150 Height = 30 Font.Charset = GB2312_CHARSET @@ -758,12 +815,13 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False ReadOnly = True TabOrder = 10 + Visible = False OnBtnUpClick = ConNoBtnUpClick OnBtnDnClick = CustNameBtnDnClick end object Saleser: TEdit Left = 387 - Top = 99 + Top = 82 Width = 150 Height = 27 Font.Charset = GB2312_CHARSET @@ -776,8 +834,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut OnKeyPress = ConNoKeyPress end object OurCoName: TBtnEditC - Left = 114 - Top = 50 + Left = 119 + Top = 41 Width = 150 Height = 30 Font.Charset = GB2312_CHARSET @@ -791,25 +849,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut OnBtnUpClick = OurCoNameBtnUpClick OnBtnDnClick = CustNameBtnDnClick end - object C_Deal: TBtnEditC - Tag = 2 - Left = 665 - Top = 237 - Width = 180 - Height = 30 - Hint = 'C_Deal/'#21518#22788#29702 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -21 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 13 - OnBtnUpClick = MCTypeBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end object OrderNo: TEdit - Left = 114 + Left = 119 Top = 5 Width = 150 Height = 27 @@ -820,7 +861,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 14 + TabOrder = 13 OnKeyPress = ConNoKeyPress end object OrdType: TComboBox @@ -837,7 +878,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ItemHeight = 20 ItemIndex = 0 ParentFont = False - TabOrder = 15 + TabOrder = 14 Text = #22823#36135#21333 Items.Strings = ( #22823#36135#21333 @@ -845,9 +886,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut #35797#26679#21333) end object FtyCoName: TBtnEditC - Left = 659 - Top = 50 - Width = 180 + Left = 669 + Top = 41 + Width = 200 Height = 30 Font.Charset = GB2312_CHARSET Font.Color = clBlack @@ -856,14 +897,14 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Style = [fsBold] ParentFont = False ReadOnly = True - TabOrder = 16 + TabOrder = 15 OnBtnUpClick = FtyCoNameBtnUpClick OnBtnDnClick = CustNameBtnDnClick end object C_revolution: TEdit Tag = 2 - Left = 957 - Top = 237 + Left = 992 + Top = 246 Width = 180 Height = 27 Font.Charset = GB2312_CHARSET @@ -872,15 +913,15 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 17 + TabOrder = 16 OnChange = OrdPieceWeightChange OnKeyPress = ConNoKeyPress end object C_Color: TBtnEditC Tag = 2 - Left = 114 - Top = 237 - Width = 150 + Left = 669 + Top = 245 + Width = 200 Height = 30 Hint = 'CYYS/'#39068#33394 Font.Charset = GB2312_CHARSET @@ -889,14 +930,14 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 18 + TabOrder = 17 OnBtnUpClick = MCTypeBtnUpClick OnBtnDnClick = CustNameBtnDnClick end object C_KnitNote: TBtnEditC Tag = 2 - Left = 982 - Top = 404 + Left = 822 + Top = 506 Width = 180 Height = 30 Hint = 'C_KnitNote/'#32986#24067#35201#27714 @@ -906,32 +947,33 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + TabOrder = 18 + Visible = False + OnBtnUpClick = MCTypeBtnUpClick + OnBtnDnClick = CustNameBtnDnClick + end + object C_Composition: TBtnEditC + Tag = 2 + Left = 669 + Top = 287 + Width = 200 + Height = 30 + Hint = 'CYCF/'#25104#20998 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False TabOrder = 19 OnBtnUpClick = MCTypeBtnUpClick OnBtnDnClick = CustNameBtnDnClick end - object C_Composition: TBtnEditC - Tag = 2 - Left = 390 - Top = 237 - Width = 150 - Height = 30 - Hint = 'CYCF/'#25104#20998 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -21 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 20 - OnBtnUpClick = MCTypeBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end object C_KnitGramWeight: TEdit Tag = 2 - Left = 957 - Top = 101 - Width = 180 + Left = 747 + Top = 540 + Width = 174 Height = 27 Font.Charset = GB2312_CHARSET Font.Color = clBlack @@ -939,13 +981,14 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 21 + TabOrder = 20 + Visible = False OnKeyPress = ConNoKeyPress end object C_Figure: TBtnEditC Tag = 2 - Left = 114 - Top = 282 + Left = 149 + Top = 576 Width = 426 Height = 30 Hint = 'C_Figure/'#25552#33457 @@ -955,17 +998,34 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + TabOrder = 21 + Visible = False + OnBtnUpClick = MCTypeBtnUpClick + OnBtnDnClick = CustNameBtnDnClick + end + object C_Yarn: TBtnEditC + Tag = 2 + Left = 119 + Top = 203 + Width = 426 + Height = 30 + Hint = 'C_Yarn/'#38754#32433 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False TabOrder = 22 OnBtnUpClick = MCTypeBtnUpClick OnBtnDnClick = CustNameBtnDnClick end - object C_Yarn: TBtnEditC + object KGQty: TEdit Tag = 2 - Left = 114 - Top = 327 - Width = 426 - Height = 30 - Hint = 'C_Yarn/'#38754#32433 + Left = 149 + Top = 540 + Width = 200 + Height = 27 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 @@ -973,14 +1033,15 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Style = [fsBold] ParentFont = False TabOrder = 23 - OnBtnUpClick = MCTypeBtnUpClick - OnBtnDnClick = CustNameBtnDnClick + Visible = False + OnChange = OrdPieceWeightChange + OnKeyPress = ConNoKeyPress end - object KGQty: TEdit + object C_I_Name: TEdit Tag = 2 - Left = 665 - Top = 283 - Width = 180 + Left = 119 + Top = 82 + Width = 149 Height = 27 Font.Charset = GB2312_CHARSET Font.Color = clBlack @@ -989,29 +1050,13 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Style = [fsBold] ParentFont = False TabOrder = 24 - OnChange = OrdPieceWeightChange - OnKeyPress = ConNoKeyPress - end - object C_I_Name: TEdit - Tag = 2 - Left = 657 - Top = 99 - Width = 180 - Height = 27 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -21 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 25 OnKeyPress = ConNoKeyPress end object C_Spec: TEdit Tag = 2 - Left = 196 - Top = 648 - Width = 1023 + Left = 155 + Top = 506 + Width = 250 Height = 46 Font.Charset = GB2312_CHARSET Font.Color = clBlack @@ -1019,31 +1064,30 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 26 + TabOrder = 25 Visible = False OnKeyPress = ConNoKeyPress end object OrdSNote: TRichEdit Tag = 2 - Left = 114 - Top = 406 - Width = 731 - Height = 101 + Left = 119 + Top = 363 + Width = 426 + Height = 124 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 27 + TabOrder = 26 Zoom = 100 - OnKeyPress = ConNoKeyPress end object SSBL: TBtnEditC Tag = 2 - Left = 959 - Top = 280 - Width = 180 + Left = 1135 + Top = 504 + Width = 174 Height = 30 Hint = 'SSBL/'#33394#19997#27604#20363 Font.Charset = GB2312_CHARSET @@ -1052,15 +1096,16 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 28 + TabOrder = 27 + Visible = False OnBtnUpClick = MCTypeBtnUpClick OnBtnDnClick = CustNameBtnDnClick end object OrdUnit: TComboBox Tag = 2 - Left = 492 - Top = 191 - Width = 61 + Left = 479 + Top = 161 + Width = 64 Height = 29 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1069,7 +1114,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Style = [] ItemIndex = 0 ParentFont = False - TabOrder = 29 + TabOrder = 28 Text = #20844#26020 Items.Strings = ( #20844#26020 @@ -1079,8 +1124,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end object C_DYARN: TBtnEditC Tag = 2 - Left = 114 - Top = 365 + Left = 119 + Top = 287 Width = 426 Height = 30 Hint = 'C_DYARN/'#24213#32433 @@ -1090,31 +1135,31 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + TabOrder = 29 + OnBtnUpClick = MCTypeBtnUpClick + OnBtnDnClick = CustNameBtnDnClick + end + object C_jiaceng: TBtnEditC + Tag = 2 + Left = 119 + Top = 245 + Width = 426 + Height = 30 + Hint = 'C_jiaceng/'#22841#23618 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False TabOrder = 30 OnBtnUpClick = MCTypeBtnUpClick OnBtnDnClick = CustNameBtnDnClick end - object C_jiaceng: TBtnEditC - Tag = 2 - Left = 665 - Top = 327 - Width = 474 - Height = 30 - Hint = 'C_jiaceng/'#22841#23618 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -21 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 31 - OnBtnUpClick = MCTypeBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end object khconno: TEdit - Left = 968 - Top = 54 - Width = 180 + Left = 692 + Top = 82 + Width = 177 Height = 27 Font.Charset = GB2312_CHARSET Font.Color = clBlack @@ -1122,14 +1167,14 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 32 + TabOrder = 31 OnKeyPress = ConNoKeyPress end object C_Material_Name: TBtnEditC Tag = 2 - Left = 665 - Top = 192 - Width = 180 + Left = 669 + Top = 163 + Width = 200 Height = 30 Hint = 'C_Material_Name/'#29289#26009#21495 Font.Charset = GB2312_CHARSET @@ -1138,17 +1183,32 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 33 + TabOrder = 32 OnBtnUpClick = MCTypeBtnUpClick OnBtnDnClick = CustNameBtnDnClick end - object C_MainYarn: TBtnEditC - Tag = 2 - Left = 665 - Top = 365 - Width = 474 + object LabPackage: TBtnEditC + Left = 992 + Top = 81 + Width = 180 Height = 30 - Hint = 'C_MainYarn/'#20027#35201#32433#32447 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 33 + OnBtnUpClick = LabPackageBtnUpClick + OnBtnDnClick = CustNameBtnDnClick + end + object C_Material: TBtnEditC + Tag = 2 + Left = 992 + Top = 163 + Width = 180 + Height = 30 + Hint = 'C_Material/'#29289#26009#21517#31216 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 @@ -1159,25 +1219,10 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut OnBtnUpClick = MCTypeBtnUpClick OnBtnDnClick = CustNameBtnDnClick end - object LabPackage: TBtnEditC - Left = 959 - Top = 482 - Width = 180 - Height = 30 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -21 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 35 - OnBtnUpClick = LabPackageBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end - object RuleBeforeTare: TComboBox - Left = 958 - Top = 447 - Width = 65 + object ISChongDa: TComboBox + Left = 740 + Top = 328 + Width = 129 Height = 26 Style = csOwnerDrawFixed Font.Charset = GB2312_CHARSET @@ -1186,35 +1231,151 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ItemHeight = 20 + ItemIndex = 1 ParentFont = False - TabOrder = 36 + TabOrder = 35 + Text = #21542 Items.Strings = ( - '0.5' - '1') + #26159 + #21542) end - object C_Material: TBtnEditC - Tag = 2 - Left = 957 - Top = 192 - Width = 180 - Height = 30 - Hint = 'C_Material/'#29289#26009#21517#31216 + object ChongDaNote: TRichEdit + Left = 669 + Top = 363 + Width = 503 + Height = 129 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + TabOrder = 36 + Zoom = 100 + end + object RuleBeforeTare: TComboBox + Left = 992 + Top = 41 + Width = 78 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False TabOrder = 37 - OnBtnUpClick = MCTypeBtnUpClick - OnBtnDnClick = CustNameBtnDnClick + Items.Strings = ( + '0.5' + '1') + end + object C_Deal: TComboBox + Tag = 2 + Left = 669 + Top = 204 + Width = 200 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 38 + Items.Strings = ( + #26222#36890#19979#27700 + #26222#36890#24178#23450 + #27688#32438#19979#27700 + #27688#32438#24178#23450 + #20013#20998#23376#19979#27700 + #20013#20998#23376#24178#23450 + #39640#20998#23376#19979#27700 + #39640#20998#23376#24178#23450 + #39640#20998#23376#19979#27700'('#20108#27425#23450#22411')' + #23612#40857#19979#27700 + #23612#40857#24178#23450 + #19979#27700#23450#22411#65292#23458#20154#35206#33180 + #27735#24067#19981#27974#36793 + #27735#24067#19979#27700#27974#36793' ' + #27735#24067#19979#27700'+'#25972#38754#19978#27974) + end + object C_ZhuJi: TComboBox + Tag = 2 + Left = 992 + Top = 204 + Width = 180 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 39 + Items.Strings = ( + #26080#21161#21058 + #26825#38459#29123 + #28068#38459#29123 + #25239#33740 + #38450#34728 + #25239#33740#38450#34728 + #25239#36215#27611#36215#29699 + #33446#33631 + #21560#28287#25490#27735 + #21161#21058#33258#24102 + #25239#38745#30005 + #25239#40644#21464 + #38450#38024#27934 + #33459#39321#22788#29702 + #19977#38450 + #38450#27700 + #20937#24863#21161#21058) + end + object C_MainYarn: TComboBox + Tag = 2 + Left = 119 + Top = 328 + Width = 426 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 40 + Items.Strings = ( + #26222#36890 + #20912#19997 + #20013#20998#23376 + #27688#32438 + #23612#40857 + #30844#31163#23376 + #38134#19997 + #22825#19997 + #20154#26825 + #28068#32433) + end + object LineNumber: TEdit + Left = 1013 + Top = 287 + Width = 159 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 41 + OnKeyPress = ConNoKeyPress end end object Panel2: TPanel [2] Left = 0 - Top = 648 + Top = 665 Width = 1363 - Height = 3 + Height = 0 Align = alClient TabOrder = 2 Visible = False @@ -1222,7 +1383,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Left = 1 Top = 1 Width = 1361 - Height = 1 + Height = 6 Align = alClient Color = clWhite Font.Charset = GB2312_CHARSET @@ -1237,9 +1398,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ClientRectBottom = 3 + ClientRectBottom = 8 ClientRectRight = 1361 - ClientRectTop = 3 + ClientRectTop = 8 object cxTabSheet1: TcxTabSheet Caption = ' '#37197' '#27604' ' Color = clWhite @@ -1249,7 +1410,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Left = 0 Top = 38 Width = 1361 - Height = 0 + Height = 4 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1538,7 +1699,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Left = 0 Top = 208 Width = 1361 - Height = 165 + Height = 1 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -3947,68 +4108,68 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end inherited ADOQueryBaseTemp: TADOQuery Connection = DataLink_KnitPlan.ADOLink - Left = 733 - Top = 552 + Left = 790 + Top = 452 end inherited ImageList_new32: TImageList - Left = 663 - Top = 541 + Left = 720 + Top = 441 end object ADOQuery1: TADOQuery Connection = DataLink_KnitPlan.ADOLink Parameters = <> - Left = 600 - Top = 529 + Left = 682 + Top = 420 end object ADOQueryTemp: TADOQuery Connection = DataLink_KnitPlan.ADOLink LockType = ltReadOnly Parameters = <> - Left = 437 - Top = 544 + Left = 494 + Top = 444 end object DataSource2: TDataSource DataSet = CDS_YuanLiao - Left = 342 - Top = 524 + Left = 399 + Top = 424 end object CDS_YuanLiao: TClientDataSet Aggregates = <> Params = <> - Left = 509 - Top = 547 + Left = 566 + Top = 447 end object ADOQueryCmd: TADOQuery Connection = DataLink_KnitPlan.ADOLink Parameters = <> - Left = 568 - Top = 584 + Left = 625 + Top = 484 end object ClientDataSet5: TClientDataSet Aggregates = <> Params = <> - Left = 218 - Top = 523 + Left = 275 + Top = 423 end object DataSource3: TDataSource DataSet = ClientDataSet3 - Left = 383 - Top = 523 + Left = 440 + Top = 423 end object ClientDataSet3: TClientDataSet Aggregates = <> Params = <> - Left = 76 - Top = 530 + Left = 133 + Top = 430 end object DataSource5: TDataSource DataSet = ClientDataSet5 - Left = 280 - Top = 520 + Left = 337 + Top = 420 end object PM_3: TPopupMenu - Left = 129 - Top = 533 + Left = 186 + Top = 433 object N1: TMenuItem Caption = #22686#34892 OnClick = N1Click @@ -4019,8 +4180,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end end object PM_5: TPopupMenu - Left = 168 - Top = 528 + Left = 225 + Top = 428 object MenuItem1: TMenuItem Caption = #22686#34892 OnClick = MenuItem1Click diff --git a/D01针织生产计划/U_KnitPlanInPut.pas b/D01针织生产计划/U_KnitPlanInPut.pas index 0d87403..e422888 100644 --- a/D01针织生产计划/U_KnitPlanInPut.pas +++ b/D01针织生产计划/U_KnitPlanInPut.pas @@ -337,7 +337,6 @@ type ConNo: TBtnEditC; Saleser: TEdit; OurCoName: TBtnEditC; - C_Deal: TBtnEditC; Label7: TLabel; OrderNo: TEdit; ToolBar3: TToolBar; @@ -387,12 +386,21 @@ type lbl5: TLabel; C_Material_Name: TBtnEditC; lbl4: TLabel; - C_MainYarn: TBtnEditC; lbl6: TLabel; LabPackage: TBtnEditC; - RuleBeforeTare: TComboBox; lbl7: TLabel; C_Material: TBtnEditC; + lbl8: TLabel; + lbl9: TLabel; + ISChongDa: TComboBox; + lbl10: TLabel; + ChongDaNote: TRichEdit; + RuleBeforeTare: TComboBox; + C_Deal: TComboBox; + C_ZhuJi: TComboBox; + C_MainYarn: TComboBox; + lbl11: TLabel; + LineNumber: TEdit; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -442,7 +450,7 @@ implementation uses U_DataLink, U_ZDYHelp, U_RTFun, U_ClothInfoSel, U_CompanySel, U_YarnInfoSel, - U_TradeSalesContractSel,U_TradeInspSet2; + U_TradeSalesContractSel, U_TradeInspSet2; {$R *.dfm} @@ -479,33 +487,34 @@ begin CustName.Enabled := false; FtyCoName.Enabled := false; Saleser.Enabled := false; - C_KnitGramWeight.Enabled := false; + //C_KnitGramWeight.Enabled := false; C_Code.Enabled := false; - C_Name.Enabled := false; - C_Width.Enabled := false; - C_GramWeight.Enabled := false; - C_Spec.Enabled := false; - OrdPieceWeight.Enabled := false; - C_Color.Enabled := false; - C_Composition.Enabled := false; - C_Deal.Enabled := false; - C_KnitNote.Enabled := false; - C_Figure.Enabled := false; - C_Yarn.Enabled := false; + //C_Name.Enabled := false; + //C_Width.Enabled := false; + //C_GramWeight.Enabled := false; + //C_Spec.Enabled := false; + //OrdPieceWeight.Enabled := false; + //C_Color.Enabled := false; + //C_Composition.Enabled := false; + //C_Deal.Enabled := false; + //C_KnitNote.Enabled := false; + //C_Figure.Enabled := false; + //C_Yarn.Enabled := false; KGQty.Enabled := false; SSBL.Enabled := false; - OrdSNote.Enabled := false; + //OrdSNote.Enabled := false; end; end; with ADOQuery1 do begin Close; SQL.Clear; - sql.Add('select * from knit_Plan_Main A where A.MainId=''' + Trim(FMainId) + ''''); + sql.Add('select isnull(ISChongDa,'''') ISChongDa,* from knit_Plan_Main A where A.MainId=''' + Trim(FMainId) + ''''); Open; end; SCSHData(ADOQuery1, ScrollBox1, 0); CustName.TxtCode := ADOQuery1.FieldByName('CustNo').AsString; + ISChongDa.Text:= ADOQuery1.fieldbyname('ISChongDa').AsString; with ADOQuery1 do begin @@ -515,7 +524,8 @@ begin Open; end; SCSHData(ADOQuery1, ScrollBox1, 2); - + C_Deal.Text:= ADOQuery1.fieldbyname('C_Deal').AsString; + C_ZhuJi.Text:= ADOQuery1.fieldbyname('C_ZhuJi').AsString; FConMId := ADOQuery1.fieldbyname('ConMID').AsString; FConSId := ADOQuery1.fieldbyname('ConSId').AsString; @@ -647,7 +657,7 @@ begin begin if ShowModal = 1 then begin - self.LabPackage.Text := Trim(frmTradeInspSet2.CDS_Label.fieldbyname('LabelCaption').AsString); + self.LabPackage.Text := Trim(frmTradeInspSet2.CDS_Label.fieldbyname('LabelCaption').AsString); end; end; finally @@ -1038,15 +1048,19 @@ begin Application.MessageBox('ƷƲΪ!', 'ʾ', 0); Exit; end; - if Trim(C_Code.Text) = '' then +// if Trim(C_Code.Text) = '' then +// begin +// Application.MessageBox('ƷŲΪ!', 'ʾ', 0); +// Exit; +// end; + if Trim(C_Width.Text) = '' then begin - Application.MessageBox('ƷŲΪ!', 'ʾ', 0); + Application.MessageBox('ŷΪ!', 'ʾ', 0); Exit; end; - if Trim(C_MainYarn.Text) = '' then + if Trim(C_GramWeight.Text) = '' then begin - Application.MessageBox('Ҫɴ߲Ϊ!', 'ʾ', 0); - C_MainYarn.SetFocus; + Application.MessageBox('زΪ!', 'ʾ', 0); Exit; end; if Trim(OrdQty.Text) = '' then @@ -1064,24 +1078,47 @@ begin Application.MessageBox('ƥΪ!', 'ʾ', 0); Exit; end; - - if Trim(LabPackage.Text) = '' then begin Application.MessageBox('ǩΪ!', 'ʾ', 0); Exit; end; - + if Trim(C_Yarn.Text) = '' then + begin + Application.MessageBox('ɴΪ!', 'ʾ', 0); + Exit; + end; +// if Trim(C_jiaceng.Text) = '' then +// begin +// Application.MessageBox('в㲻Ϊ!', 'ʾ', 0); +// Exit; +// end; + if Trim(C_DYARN.Text) = '' then + begin + Application.MessageBox('ɴΪ!', 'ʾ', 0); + Exit; + end; + if Trim(C_Deal.Text) = '' then + begin + Application.MessageBox('Ϊ!', 'ʾ', 0); + Exit; + end; + if Trim(C_ZhuJi.Text) = '' then + begin + Application.MessageBox('Ϊ!', 'ʾ', 0); + Exit; + end; + if Trim(C_MainYarn.Text) = '' then + begin + Application.MessageBox('Ҫɴ߲Ϊ!', 'ʾ', 0); + C_MainYarn.SetFocus; + Exit; + end; if TryStrToFloat(OrdQty.Text, FReal) = False then begin Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; -// if TryStrToFloat(OrdPieceWeight.Text, FReal) = False then -// begin -// Application.MessageBox('ƥطǷ!', 'ʾ', 0); -// Exit; -// end; if TryStrToFloat(OrdPiece.Text, FReal) = False then begin Application.MessageBox('ƥǷ!', 'ʾ', 0); @@ -1092,6 +1129,15 @@ begin Application.MessageBox('ƤطǷ!', 'ʾ', 0); Exit; end; + if Trim(ISChongDa.Text) = '' then + begin + if Trim(ChongDaNote.Text) = '' then + begin + Application.MessageBox('ش򶩵شԭд!', 'ʾ', 0); + Exit; + end; + end; + // if Trim(C_Spec.Text) = '' then // begin // Application.MessageBox('Ϊ!', 'ʾ', 0); diff --git a/D01针织生产计划/U_KnitPlanList.dfm b/D01针织生产计划/U_KnitPlanList.dfm index 10d1b63..57cf332 100644 --- a/D01针织生产计划/U_KnitPlanList.dfm +++ b/D01针织生产计划/U_KnitPlanList.dfm @@ -92,13 +92,13 @@ inherited frmKnitPlanList: TfrmKnitPlanList Left = 533 Top = 0 AutoSize = True - Caption = #25171#21360#35745#21010#21333 + Caption = #25171#21360#35745#21010#21333'1' ImageIndex = 21 Visible = False OnClick = TBPrintClick end object DYPrint: TToolButton - Left = 640 + Left = 646 Top = 0 AutoSize = True Caption = #25171#21360#25171#26679#21333 @@ -106,7 +106,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList OnClick = DYPrintClick end object TBView: TToolButton - Left = 747 + Left = 753 Top = 0 AutoSize = True Caption = #26597#30475 @@ -114,7 +114,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList OnClick = TBViewClick end object TBDel: TToolButton - Left = 818 + Left = 824 Top = 0 AutoSize = True Caption = #21024#38500 @@ -122,7 +122,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList OnClick = TBDelClick end object TBSCAP: TToolButton - Left = 889 + Left = 895 Top = 0 AutoSize = True Caption = #29983#20135#23433#25490 @@ -130,7 +130,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList OnClick = TBSCAPClick end object ToolButton2: TToolButton - Left = 984 + Left = 990 Top = 0 AutoSize = True Caption = #25171#21367#35774#32622 @@ -138,7 +138,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList OnClick = ToolButton2Click end object btn1: TToolButton - Left = 1079 + Left = 1085 Top = 0 AutoSize = True Caption = #25171#21360#27969#31243#21345 @@ -317,6 +317,13 @@ inherited frmKnitPlanList: TfrmKnitPlanList Height = 12 Caption = #26426#21488 end + object lbl2: TLabel + Left = 879 + Top = 41 + Width = 24 + Height = 12 + Caption = #34892#21495 + end object BegDate: TDateTimePicker Left = 100 Top = 9 @@ -350,7 +357,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList Font.Style = [] ParentFont = False TabOrder = 2 - OnChange = ConNoChange OnKeyPress = conPress end object C_Name: TEdit @@ -360,8 +366,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Width = 100 Height = 20 TabOrder = 3 - OnChange = ConNoChange - OnKeyPress = C_NameKeyPress + OnKeyPress = conPress end object C_Code: TEdit Tag = 2 @@ -370,8 +375,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Width = 100 Height = 20 TabOrder = 4 - OnChange = ConNoChange - OnKeyPress = C_CodeKeyPress + OnKeyPress = conPress end object CustName: TEdit Tag = 2 @@ -380,8 +384,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Width = 110 Height = 20 TabOrder = 5 - OnChange = ConNoChange - OnKeyPress = CustNameKeyPress + OnKeyPress = conPress end object OrderNo: TEdit Tag = 2 @@ -390,7 +393,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList Width = 81 Height = 20 TabOrder = 6 - OnChange = ConNoChange OnKeyPress = conPress end object FtyCoName: TEdit @@ -400,8 +402,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Width = 110 Height = 20 TabOrder = 7 - OnChange = ConNoChange - OnKeyPress = CustNameKeyPress + OnKeyPress = conPress end object CarHZ: TEdit Tag = 2 @@ -410,8 +411,16 @@ inherited frmKnitPlanList: TfrmKnitPlanList Width = 100 Height = 20 TabOrder = 8 - OnChange = ConNoChange - OnKeyPress = C_CodeKeyPress + OnKeyPress = conPress + end + object LineNumber: TEdit + Tag = 2 + Left = 918 + Top = 36 + Width = 100 + Height = 20 + TabOrder = 9 + OnKeyPress = conPress end end object cxGrid1: TcxGrid [2] @@ -421,7 +430,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList Height = 374 Align = alClient TabOrder = 2 - ExplicitTop = 165 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -530,6 +538,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Caption = #21512#21516#21495 DataBinding.FieldName = 'ConNo' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Styles.Header = DataLink_KnitPlan.Default Width = 100 @@ -546,6 +555,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.FieldName = 'OrdType' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 71 end object Tv1Column16: TcxGridDBColumn @@ -575,6 +585,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.FieldName = 'OrdDate' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_KnitPlan.Default Width = 71 end @@ -583,6 +594,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.FieldName = 'FtyCoName' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 82 end object v1Column19: TcxGridDBColumn @@ -593,6 +605,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Properties.SaveTime = False Properties.ShowTime = False HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_KnitPlan.Default Width = 82 end @@ -601,6 +614,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.FieldName = 'C_Code' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_KnitPlan.Default Width = 92 end @@ -609,6 +623,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.FieldName = 'C_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_KnitPlan.Default Width = 73 end @@ -624,6 +639,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -632,6 +648,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Caption = #32433#32447 DataBinding.FieldName = 'C_Spec' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 120 @@ -658,6 +675,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.FieldName = 'C_Width' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_KnitPlan.Default Width = 69 end @@ -665,6 +683,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Caption = #22383#24067#20811#37325 DataBinding.FieldName = 'C_KnitGramWeight' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 100 @@ -674,20 +693,29 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.FieldName = 'C_GramWeight' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_KnitPlan.Default Width = 76 end - object Tv1Column10: TcxGridDBColumn - Caption = #25552#33457 - DataBinding.FieldName = 'C_Figure' + object Tv1Column11: TcxGridDBColumn + Caption = #38754#32433 + DataBinding.FieldName = 'C_Yarn' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 end - object Tv1Column11: TcxGridDBColumn - Caption = #38754#32433 - DataBinding.FieldName = 'C_Yarn' + object cxgrdbclmnTv1Column10: TcxGridDBColumn + Caption = #22841#23618 + DataBinding.FieldName = 'C_jiaceng' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxgrdbclmnTv1Column11: TcxGridDBColumn + Caption = #24213#32433 + DataBinding.FieldName = 'C_DYARN' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False @@ -698,6 +726,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.FieldName = 'OrdPiece' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_KnitPlan.Default Width = 59 end @@ -705,6 +734,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Caption = #21305#38271 DataBinding.FieldName = 'OrdPieceWeight' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Styles.Header = DataLink_KnitPlan.Default Width = 72 @@ -714,6 +744,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.FieldName = 'OrdQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_KnitPlan.Default Width = 92 end @@ -731,6 +762,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.FieldName = 'OrdSNote' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_KnitPlan.Default Width = 68 end @@ -739,6 +771,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.FieldName = 'filler' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 68 end object Tv1Column3: TcxGridDBColumn @@ -762,6 +795,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.FieldName = 'wXJPS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 89 end object Tv1Column4: TcxGridDBColumn @@ -815,6 +849,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Caption = #33394#19997#27604#20363 DataBinding.FieldName = 'SSBL' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -835,6 +870,38 @@ inherited frmKnitPlanList: TfrmKnitPlanList Options.Editing = False Width = 90 end + object cxgrdbclmnTv1Column12: TcxGridDBColumn + Caption = #29305#27530#21161#21058 + DataBinding.FieldName = 'C_ZhuJi' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxgrdbclmnTv1Column13: TcxGridDBColumn + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'C_Material' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxgrdbclmnTv1Column14: TcxGridDBColumn + Caption = #34892#21495 + DataBinding.FieldName = 'LineNumber' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxgrdbclmnTv1Column22: TcxGridDBColumn + Caption = #25171#21360#27425#25968 + DataBinding.FieldName = 'PrtCount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/D01针织生产计划/U_KnitPlanList.pas b/D01针织生产计划/U_KnitPlanList.pas index df1b6e0..05e830a 100644 --- a/D01针织生产计划/U_KnitPlanList.pas +++ b/D01针织生产计划/U_KnitPlanList.pas @@ -100,7 +100,6 @@ type ToolButton4: TToolButton; Tv1Column8: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; - Tv1Column10: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn; Panel2: TPanel; @@ -159,6 +158,14 @@ type cxgrdbclmnTv1Column21: TcxGridDBColumn; DYPrint: TToolButton; ToolButton11: TToolButton; + cxgrdbclmnTv1Column10: TcxGridDBColumn; + cxgrdbclmnTv1Column11: TcxGridDBColumn; + cxgrdbclmnTv1Column12: TcxGridDBColumn; + cxgrdbclmnTv1Column13: TcxGridDBColumn; + cxgrdbclmnTv1Column14: TcxGridDBColumn; + lbl2: TLabel; + LineNumber: TEdit; + cxgrdbclmnTv1Column22: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBFindClick(Sender: TObject); @@ -598,7 +605,16 @@ begin FFiltration1 := WSql; if ShowModal = 1 then begin - + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update Knit_Plan_Main'); + sql.Add('set PRTCount=PRTCount+1'); + sql.Add(' where MainId in(' + WSql + ')'); + ExecSQL; + end; + InitGrid(); end; end; finally @@ -824,25 +840,7 @@ procedure TfrmKnitPlanList.conPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin - if Length(Trim(ConNo.Text)) < 4 then - Exit; - try - ADOQueryMain.DisableControls; - with ADOQueryMain do - begin - Filtered := False; - Close; - sql.Clear; - sql.Add('select * from knit_Plan_Main A inner join knit_Plan_Sub B on A.Mainid=B.MainId'); - sql.Add(' where A.ConNo like ''' + '%' + Trim(ConNo.Text) + '%' + ''''); - - Open; - end; - SCreateCDS(ADOQueryMain, CDS_1); - SInitCDSData(ADOQueryMain, CDS_1); - finally - ADOQueryMain.EnableControls; - end; + InitGrid(); end; end; @@ -1114,7 +1112,17 @@ begin FFiltration1 := CDS_1.FieldByName('MAINID').AsString; if ShowModal = 1 then begin -// Self.InitGrid(); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update Knit_Plan_Main'); + sql.Add('set PRTCount=PRTCount+1'); + sql.Add(' where MainId = ''' + Trim(self.CDS_1.fieldbyname('MainId').AsString) + ''''); + //showmessage(sql.Text); + ExecSQL; + end; + InitGrid(); end; end; finally @@ -1291,7 +1299,11 @@ end; procedure TfrmKnitPlanList.CustNameKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then - TBRafresh.Click(); + if Key = #13 then + begin + InitGrid(); + end; + TBRafresh.Click(); if ADOQueryMain.Active = False then Exit; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); diff --git a/D01针织生产计划/U_LCKQuery.dfm b/D01针织生产计划/U_LCKQuery.dfm index 7f8a3d3..e70eee1 100644 --- a/D01针织生产计划/U_LCKQuery.dfm +++ b/D01针织生产计划/U_LCKQuery.dfm @@ -125,6 +125,13 @@ inherited frmLCKQuery: TfrmLCKQuery Height = 12 Caption = #24320#21345#26085#26399 end + object lbl4: TLabel + Left = 637 + Top = 16 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end object LCKID: TEdit Tag = 2 Left = 327 @@ -163,6 +170,15 @@ inherited frmLCKQuery: TfrmLCKQuery Time = 0.464761099538009100 TabOrder = 3 end + object C_Name: TEdit + Tag = 2 + Left = 706 + Top = 12 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = LCKIDChange + end end object cxGrid1: TcxGrid [2] Left = 0 @@ -237,14 +253,6 @@ inherited frmLCKQuery: TfrmLCKQuery Options.Editing = False Width = 92 end - object cxgrdbclmnTv3Column9: TcxGridDBColumn - Caption = #24037#33402 - DataBinding.FieldName = 'Craft' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end object cxgrdbclmnTv3Column4: TcxGridDBColumn Caption = #21518#22788#29702#31867#22411 DataBinding.FieldName = 'HCLType' @@ -278,15 +286,15 @@ inherited frmLCKQuery: TfrmLCKQuery Width = 80 end object cxgrdbclmnTv3Column6: TcxGridDBColumn - Caption = #29305#27530#35201#27714'('#21161#21058')' - DataBinding.FieldName = 'Note' + Caption = #29305#27530#21161#21058 + DataBinding.FieldName = 'Craft' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 119 end object cxgrdbclmnTv1Column2: TcxGridDBColumn - Caption = #22411#21495 + Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter diff --git a/D01针织生产计划/U_LCKQuery.pas b/D01针织生产计划/U_LCKQuery.pas index a9e61ea..9438d93 100644 --- a/D01针织生产计划/U_LCKQuery.pas +++ b/D01针织生产计划/U_LCKQuery.pas @@ -57,7 +57,6 @@ type cxgrdbclmnTv3Column8: TcxGridDBColumn; cxgrdbclmnTv3Column1: TcxGridDBColumn; cxgrdbclmnTv3Column2: TcxGridDBColumn; - cxgrdbclmnTv3Column9: TcxGridDBColumn; cxgrdbclmnTv3Column4: TcxGridDBColumn; cxgrdbclmnTv3Column5: TcxGridDBColumn; cxgrdbclmnTv3Column3: TcxGridDBColumn; @@ -84,6 +83,8 @@ type cxgrdbclmnTv1Column8: TcxGridDBColumn; cxgrdbclmnTv1Column9: TcxGridDBColumn; btn5: TToolButton; + lbl4: TLabel; + C_Name: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject); diff --git a/D02针织坯布检验/KnitInsp.identcache b/D02针织坯布检验/KnitInsp.identcache index 733a8f0c296fb313883296cc1dfdcbcfe610fb62..cd4d22ca357f7bd1cf8524557268e827fd318d8d 100644 GIT binary patch delta 39 vcmeC-?crq8mZZrsjA5JknEo?P-ozLK0CDjMtpET3 delta 28 kcmaFQ@t$Kt4CCZ|jA4_vGh0vgV^Q2J!t|eUatvb<0Hg5=O#lD@ diff --git a/D03针织坯布仓库/KnitClothStk.identcache b/D03针织坯布仓库/KnitClothStk.identcache index 14cc24a6f4e6bf5e238a3c0163f4c9806671d6f6..5e6bbd4507bfb9747ef2ac5e1d833c926d0c4e20 100644 GIT binary patch delta 122 zcmca1ctdbP^yC?=X_MbEn@@ZxHTfT_`Q(X=Qzq9k?V4=J9y^(X!+!E>7Td|!m?b8g zGbc^{$tFMf13Sy)Yb>IZ?O94DMypO1U=^Ee$0!3~N=)9zAq7-r0o1h?XxeX}!GV+e W*sCTxusTjoV-lb2&JjPc!3Y3uJuWQ( delta 119 zcmca1ctdbP^yIfJs*@M62~FO?p)gs6-F$Ka8|%csqCjEm$ro8 @@ -2292,6 +2365,12 @@ Width = 289 Height = 169 Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -25 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False TabOrder = 0 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> @@ -2319,8 +2398,8 @@ OptionsSelection.CellSelect = False OptionsView.Footer = True OptionsView.GroupByBox = False - Styles.Footer = DataLink_TradeInsp.Default Styles.Header = DataLink_TradeInsp.Default + Styles.Selection = DataLink_TradeInsp.cxStyle1 object tv2CDType: TcxGridDBColumn Caption = #30133#28857#21517#31216 DataBinding.FieldName = 'CIFName' @@ -2328,7 +2407,8 @@ HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False - Width = 75 + Styles.Content = DataLink_TradeInsp.cxStyle1 + Width = 99 end object tv2CDWZ: TcxGridDBColumn Caption = #20301#32622#36215 @@ -2338,14 +2418,14 @@ HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Sorting = False - Styles.Content = cxStyle1 - Styles.Header = cxStyle1 - Width = 52 + Styles.Content = DataLink_TradeInsp.cxStyle1 + Width = 87 end object v2Column2: TcxGridDBColumn Caption = #20301#32622#27490 DataBinding.FieldName = 'CIFend' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Styles.Content = cxStyle1 @@ -2357,6 +2437,7 @@ DataBinding.FieldName = 'CIFQty' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' + Visible = False HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 46 @@ -2382,6 +2463,7 @@ Caption = #25187#20998 DataBinding.FieldName = 'CIFPoints' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 54 @@ -2392,7 +2474,8 @@ DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 36 + Styles.Content = DataLink_TradeInsp.cxStyle1 + Width = 70 end end object cxGridLevel1: TcxGridLevel @@ -2435,8 +2518,6 @@ OptionsSelection.CellSelect = False OptionsView.Footer = True OptionsView.GroupByBox = False - Styles.Footer = DataLink_TradeInsp.Default - Styles.Header = DataLink_TradeInsp.Default object cxGridDBColumn2: TcxGridDBColumn Caption = #30133#28857#21517#31216 DataBinding.FieldName = 'CIFName' @@ -2444,7 +2525,7 @@ HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False - Width = 75 + Width = 104 end object cxGridDBColumn3: TcxGridDBColumn Caption = #20301#32622#36215 @@ -2454,14 +2535,13 @@ HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Sorting = False - Styles.Content = cxStyle1 - Styles.Header = cxStyle1 - Width = 52 + Width = 91 end object cxGridDBColumn4: TcxGridDBColumn Caption = #20301#32622#27490 DataBinding.FieldName = 'CIFend' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Styles.Content = cxStyle1 @@ -2473,6 +2553,7 @@ DataBinding.FieldName = 'CIFQty' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' + Visible = False HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 46 @@ -2498,6 +2579,7 @@ Caption = #25187#20998 DataBinding.FieldName = 'CIFPoints' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 54 @@ -2508,7 +2590,7 @@ DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 36 + Width = 60 end end object cxGridLevel3: TcxGridLevel @@ -2595,7 +2677,7 @@ end object Panel3: TPanel [4] Left = 3 - Top = 474 + Top = 479 Width = 413 Height = 207 BevelInner = bvRaised diff --git a/T03贸易布匹检验/U_TradeMachInsp.pas b/T03贸易布匹检验/U_TradeMachInsp.pas index ad2a1f4..b7569de 100644 --- a/T03贸易布匹检验/U_TradeMachInsp.pas +++ b/T03贸易布匹检验/U_TradeMachInsp.pas @@ -307,6 +307,11 @@ type lbl4: TLabel; edtKJ: TEdit; btn1: TButton; + lbl5: TLabel; + Edit7: TEdit; + lbl6: TLabel; + Edit8: TEdit; + cxgrdbclmnTv3Column6: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); @@ -426,12 +431,9 @@ begin AOrdDefNote1.Text := AOrdDefNote1.Text + '̿:' + FBCIOID + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + 'Ʒ:' + FC_Name + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + 'ŷ:' + FC_Width + #13; - AOrdDefNote1.Text := AOrdDefNote1.Text + ':' + FC_KnitGramWeight + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + 'Ʒ:' + FC_GramWeight + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + 'ɫ:' + FC_Color + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + 'ɷ:' + FC_Composition + #13; - AOrdDefNote1.Text := AOrdDefNote1.Text + 'Ứ:' + FC_Figure + #13; - AOrdDefNote1.Text := AOrdDefNote1.Text + 'ɴ:' + FC_Yarn + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + 'ϳë:' + FRuleBeforeTare + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + 'ϳƤ:' + FRuleLaterTare + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + 'ҵԱ:' + FYWY + #13; @@ -572,7 +574,6 @@ end; procedure TfrmTradeMachInsp.QuantityConversion(); begin - if lblRuleConversion.Caption = 'ת' then begin InputWeight.Text := floattostr(StrToFloatdef(trim(InputLen.Text), 0) * StrToFloatdef(trim(Coefficient.Text), 0) + StrToFloatdef(FRuleBeforeTare, 0)); @@ -591,6 +592,15 @@ begin MaxQty.Caption := InputLen.text; end; + if (StrToFloatdef(inputWeight.Text, 0) > 0) and (StrToFloatdef(MaxQty.Caption, 0) > 0) and (Width.text <> '') and (GramWeight.Text <> '') then + begin + Edit7.Text := FormatFloat('0.0', (((StrToFloatdef(inputWeight.Text, 0) - StrToFloatdef(FRuleBeforeTare, 0)) * 1000) / ((StrToFloatdef(copy(Width.Text, 1, 3), 0) / 100) * (StrToFloatdef(MaxQty.Caption, 0) - StrToFloatDef(DelQty.Text, 0))))); + end + else + begin + Edit7.Text := ''; + end; + end; function TfrmTradeMachInsp.CheckData(CKType: string): Boolean; @@ -1014,6 +1024,7 @@ begin FC_Composition := Trim(ADOTmp.fieldbyname('C_Composition').AsString); FLoom := Trim(ADOTmp.fieldbyname('Loom').AsString); FC_Width := Trim(ADOTmp.fieldbyname('C_Width').AsString); + Edit8.Text := copy(Trim(ADOTmp.fieldbyname('C_Width').AsString), 1, 3); FC_GramWeight := Trim(ADOTmp.fieldbyname('C_GramWeight').AsString); FRulePieceNo := Trim(ADOTmp.fieldbyname('RulePieceNo').AsString); //ɹ FYWY := Trim(ADOTmp.fieldbyname('Saleser').AsString); //ҵԱ @@ -1303,7 +1314,7 @@ begin begin Close; SQL.Clear; - sql.Add('select A.*'); + sql.Add('select GrossMeter=DelQty+Meter,A.*'); sql.Add('from Trade_Cloth_Inspect A where Filler=''' + Trim(DName) + ''''); sql.Add('and CONVERT(VARCHAR(10),A.FillTime,120) =CONVERT(VARCHAR(10),getdate(),120) '); // sql.Add('from Trade_Cloth_Inspect A where BCIOID=''' + Trim(FBCIOID) + ''''); @@ -1316,11 +1327,35 @@ begin end; procedure TfrmTradeMachInsp.FormShow(Sender: TObject); +var + I: INTEGER; begin inherited; ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'ó׼'); ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'ó׼'); ReadCxGrid(trim(Self.Caption) + 'Tv3', Tv3, 'ó׼'); + // Ĭ +// cxGrid1.Font.Size := 19; +// cxGrid2.Font.Size := 19; +// cxGrid3.Font.Size := 19; + // 2. ǿм̳ȫʽжã + for I := 0 to TV2.ColumnCount - 1 do + begin + TV2.Columns[I].Styles.Content := DataLink_TradeInsp.cxStyle1; + TV2.Columns[I].Styles.Header := DataLink_TradeInsp.cxStyle1; + end; + TV2.Styles.selection := DataLink_TradeInsp.cxStyle1; +// for i := 0 to TV2.ColumnCount - 1 do +// begin +// // +// TV2.Columns[i].Styles.Content.Font.Size := 10; +// TV2.Columns[i].Styles.Content.Font.Name := '΢ź'; +// +// // бͷ +// TV2.Columns[i].Styles.Header.Font.Size := 12; +// TV2.Columns[i].Styles.Header.Font.Name := ''; +// end; + fFlileFlag := UserDataFlag + 'HX'; InitCDPanel(); InitCDGrid(FCIID); @@ -2079,7 +2114,7 @@ begin // else FieldByName('CIFName').Value := Trim(TSpeedButton(Sender).Hint); FieldByName('CIFbeg').Value := Trim(InputLen.Text); - FieldByName('CIFEnd').Value := Trim(InputLen.Text); + FieldByName('CIFEnd').Value := 0; FieldByName('CIFNumber').Value := 1; FieldByName('CIFPoints').Value := 0; @@ -2098,6 +2133,7 @@ begin Post; end; + EDTSCAN.SetFocus(); end; procedure TfrmTradeMachInsp.cxDBImage1DblClick(Sender: TObject); diff --git a/进度统计查询(Statistics.dll)/Statistics.identcache b/进度统计查询(Statistics.dll)/Statistics.identcache index d4f7d0b0b9857f07846d2b6666919124be541490..4614703d46e21274890353262a48084595195cf6 100644 GIT binary patch delta 51 zcmeC+?cm)Yz%;pnseG~;tM%mVO!AXUnO{#n%IYY>zmXB- delta 47 zcmeC+?cm)Yz%=Y> DmH`oH