From 5406694c0e043f2bf6574bf9f5902d51f067eced Mon Sep 17 00:00:00 2001 From: "LAPTOP-8NOV8MVQ\\cai" Date: Sat, 2 Aug 2025 11:12:55 +0800 Subject: [PATCH] 11 --- A02基础产品管理/ClothInfo.identcache | Bin 1987 -> 1987 bytes E01梭织生产计划/ProjectGroup1.groupproj.local | 2 +- E01梭织生产计划/TatPlan.dproj | 2 +- E01梭织生产计划/TatPlan.dproj.local | 48 +- E01梭织生产计划/TatPlan.identcache | Bin 2347 -> 2540 bytes E01梭织生产计划/TatPlan.skincfg | 5 + E01梭织生产计划/U_GetDllForm.pas | 2 +- E01梭织生产计划/U_TatPlanCard.dfm | 17 + E01梭织生产计划/U_TatPlanCard.pas | 2 +- E01梭织生产计划/U_TatPlanInPut.dfm | 8 - E01梭织生产计划/testDll.identcache | Bin 162 -> 174 bytes E03梭织坯布检验/TatInsp.dproj.local | 86 +- E03梭织坯布检验/TatInsp.identcache | Bin 1785 -> 1785 bytes E03梭织坯布检验/TatInspLogin.dproj.local | 52 +- E03梭织坯布检验/U_TatClothInspList.dfm | 85 +- E03梭织坯布检验/U_TatClothInspList.pas | 49 +- E03梭织坯布检验/U_TatInspEdit.dfm | 309 +++++++- E03梭织坯布检验/U_TatInspEdit.pas | 145 +++- E03梭织坯布检验/U_TatMachInsp.dfm | 741 ++++++++---------- E03梭织坯布检验/U_TatMachInsp.pas | 156 ++-- E04梭织坯布仓库/TatClothStk.dproj.local | 128 +-- E04梭织坯布仓库/TatClothStk.identcache | Bin 2107 -> 2107 bytes E04梭织坯布仓库/U_TatClothInList.dfm | 29 +- E04梭织坯布仓库/U_TatClothInList.pas | 3 + E04梭织坯布仓库/U_TatClothOutList.dfm | 37 +- E04梭织坯布仓库/U_TatClothOutList.pas | 2 - 26 files changed, 1148 insertions(+), 760 deletions(-) create mode 100644 E01梭织生产计划/TatPlan.skincfg diff --git a/A02基础产品管理/ClothInfo.identcache b/A02基础产品管理/ClothInfo.identcache index 3ec63f670e4df18b9868bac36ba15d61a9fc7a95..25c27658c867153492324d2b6c7a5c28bfb61a76 100644 GIT binary patch delta 84 zcmX@if0%#5hRMu~R+DeC*-ie$Xg_%-W8}mb%gKSvR+9smiY6aq37wq7{0}6Q%qBhA omN8~>7EAbMF;)@A$#rbelMC2`CucHQP7YvKn0$ySY~qGs04X^g@&Et; delta 104 zcmV-u0GI#655o_Tu#;{EIg_ae8j-L%lS~9$lS~3BlaK*0lPCc{lllT5li&jclQ#lx zlNtwBkz6^G`2jkU83W&wyahj#=L8s&r2 - + diff --git a/E01梭织生产计划/TatPlan.dproj b/E01梭织生产计划/TatPlan.dproj index ad1f0aa..52cb8ca 100644 --- a/E01梭织生产计划/TatPlan.dproj +++ b/E01梭织生产计划/TatPlan.dproj @@ -124,7 +124,7 @@ 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:\Dp10Repo\项目代码\D10szHengYan\E01梭织生产计划\testDll.exe + D:\Dp10Repo\项目代码\D10szXingjie\E01梭织生产计划\testDll.exe diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index d25d7cb..16efd0a 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,51 +1,51 @@  - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj + 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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas 1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= + 1899-12-30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.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.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas 1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899-12-30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas 1899-12-30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas 1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.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.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm + 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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 2025-04-12 17:22:33.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas @@ -76,7 +76,7 @@ - + diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache index 0aaa1cfdcc74355f474accb3a32744586db788a0..c9d5532947d88234a5982a06c39e45ca4538b40a 100644 GIT binary patch literal 2540 zcmcIm%Wl&^6wRlw22t58Sg>pCyhP6@3nRg-u~hK^@Op0S{;$_my{2?-WZSb&h| z9xDDOVEPw~o63yracgYhl{feJ+40Vnwy5_Lyi_iPI7_i4B-19%+}qyyl#q!Pah{ATtj8c@2chh;u5#)dnbQWT)LR4xk`QJ!lL3;#Bq_uA4Z>p?{8XHeE{Z!t`^XPO!L~_~o2Vb?; A_y7O^ delta 458 zcmaDOyjqA=o`HeEWwIcnB-^vbNzdD-PM*LhIXQ`0VzL#J6td7q7Wv6sEXYC=XGl+; z$%!Ol%;<=0kO7MxqXV+QeokFR46B;hB_^+7vzz>yNq+JpMoC5|BpnmA^e3WNIa!xO zW^xuIlAV&1IXD$2D>EYtP5dMWG|mFmagviiFiTDLjpPp$FLYCRZ_=qYCcl zl$bn+MU2rC$vxn(@ds+h6l7$ZypdHL*-8O+V`T0QCS$blo9xdhjT%7OY`T-%IGj-( eQpW~zo$_RFP7y{|WXB{h8BPApXg@ig(+U9YH>>^t diff --git a/E01梭织生产计划/TatPlan.skincfg b/E01梭织生产计划/TatPlan.skincfg new file mode 100644 index 0000000..c0891d9 --- /dev/null +++ b/E01梭织生产计划/TatPlan.skincfg @@ -0,0 +1,5 @@ +[ExpressSkins] +Default=1 +ShowNotifications=1 +Enabled=1 +dxSkinsDefaultPainters=1 diff --git a/E01梭织生产计划/U_GetDllForm.pas b/E01梭织生产计划/U_GetDllForm.pas index 49ca929..233fdd6 100644 --- a/E01梭织生产计划/U_GetDllForm.pas +++ b/E01梭织生产计划/U_GetDllForm.pas @@ -72,7 +72,7 @@ begin begin server := '101.132.143.144,7781'; - dtbase := 'hengyanData'; + dtbase := 'xingjieData'; user := 'rtsa'; pswd := 'rightsoft@5740'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; diff --git a/E01梭织生产计划/U_TatPlanCard.dfm b/E01梭织生产计划/U_TatPlanCard.dfm index c72c311..9739d87 100644 --- a/E01梭织生产计划/U_TatPlanCard.dfm +++ b/E01梭织生产计划/U_TatPlanCard.dfm @@ -278,6 +278,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard TabOrder = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -313,6 +314,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object v3Column8: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -323,6 +325,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object v3Column1: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False @@ -331,6 +334,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object Tv1Column9: TcxGridDBColumn Caption = #29983#20135#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -338,6 +342,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object v3Column6: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False @@ -346,6 +351,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object v3Column2: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False @@ -354,6 +360,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object v3Column14: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -361,6 +368,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object v3Column15: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -368,6 +376,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object v3Column16: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -375,6 +384,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object Tv1Column1: TcxGridDBColumn Caption = #26426#21488#21495 DataBinding.FieldName = 'Loom' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -382,6 +392,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object Tv1Column8: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -389,6 +400,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object Tv1Column2: TcxGridDBColumn Caption = #26426#20462 DataBinding.FieldName = 'Repairer' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -396,6 +408,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object Tv1Column7: TcxGridDBColumn Caption = #24207#21495 DataBinding.FieldName = 'PCNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -403,6 +416,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object Tv1Column3: TcxGridDBColumn Caption = #26465#30721 DataBinding.FieldName = 'PCID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -410,6 +424,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object Tv1Column4: TcxGridDBColumn Caption = #25171#21360#27425#25968 DataBinding.FieldName = 'PRTCount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -417,6 +432,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object Tv1Column5: TcxGridDBColumn Caption = #25171#21360#26102#38388 DataBinding.FieldName = 'PRTDate' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 @@ -424,6 +440,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard object Tv1Column6: TcxGridDBColumn Caption = #25171#21360#20154 DataBinding.FieldName = 'PRTer' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 diff --git a/E01梭织生产计划/U_TatPlanCard.pas b/E01梭织生产计划/U_TatPlanCard.pas index 4fd94b5..c2fecf7 100644 --- a/E01梭织生产计划/U_TatPlanCard.pas +++ b/E01梭织生产计划/U_TatPlanCard.pas @@ -12,7 +12,7 @@ uses RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, - U_BaseList, Vcl.Menus; + U_BaseList, Vcl.Menus, dxScrollbarAnnotations; type TfrmTatPlanCard = class(TfrmBaseList) diff --git a/E01梭织生产计划/U_TatPlanInPut.dfm b/E01梭织生产计划/U_TatPlanInPut.dfm index b7baf32..4e8a310 100644 --- a/E01梭织生产计划/U_TatPlanInPut.dfm +++ b/E01梭织生产计划/U_TatPlanInPut.dfm @@ -909,10 +909,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet1: TcxTabSheet Caption = ' '#32441#29256#22270' ' ImageIndex = 1 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Panel7: TPanel Left = 0 Top = 0 @@ -2547,10 +2543,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet2: TcxTabSheet Caption = #36215#32508#24037#33402#21333 ImageIndex = 3 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Panel8: TPanel Left = 0 Top = 0 diff --git a/E01梭织生产计划/testDll.identcache b/E01梭织生产计划/testDll.identcache index 161b26ea40f47a0c63f75fb22955192910c34608..7f467325e762c28297f3effe1d9270532b97fd08 100644 GIT binary patch literal 174 zcmZQ#U|?`}v5IjiFf<5CEy#~~xp3$6+3TL{Ui^GPV~mTTL2*??W?p($W@?P9f#I`7 zYoG6Ke?DdYlU>VStXufBV^T~>YH^86PL5tmK@rd>IPj#z%+Pp{sVP8H3lfXrMgkcC D=!HpJ delta 83 zcmZ3-xQJ1OiGhK^*~KcxrNGc2D77Fz=H - 1899/12/30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.060,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= - 1899/12/30 00:00:00.000.044,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm - 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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas - 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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm - 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.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.060,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= + 1899-12-30 00:00:00.000.044,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm + 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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.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.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas + 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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm + 1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj diff --git a/E03梭织坯布检验/TatInsp.identcache b/E03梭织坯布检验/TatInsp.identcache index 71286b3339c8978ae925351dbe4b8ee14bf68f86..ee75b1c2276022305d408cf5ed6dc0ff967ad575 100644 GIT binary patch delta 80 zcmey#`;&J<%*Oc?a>!m6$BXrat*Kvk{Pf3;@9>9C-i$ diff --git a/E03梭织坯布检验/TatInspLogin.dproj.local b/E03梭织坯布检验/TatInspLogin.dproj.local index e379b49..e194202 100644 --- a/E03梭织坯布检验/TatInspLogin.dproj.local +++ b/E03梭织坯布检验/TatInspLogin.dproj.local @@ -1,27 +1,55 @@  - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - + + + + + + - - + + - 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 + 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 diff --git a/E03梭织坯布检验/U_TatClothInspList.dfm b/E03梭织坯布检验/U_TatClothInspList.dfm index 9d9f0e6..aa98f47 100644 --- a/E03梭织坯布检验/U_TatClothInspList.dfm +++ b/E03梭织坯布检验/U_TatClothInspList.dfm @@ -7,8 +7,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitLeft = -556 - ExplicitTop = -46 ExplicitWidth = 1483 ExplicitHeight = 621 PixelsPerInch = 96 @@ -129,6 +127,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList ParentFont = False PopupMenu = PM_1 TabOrder = 2 + ExplicitTop = 136 object Tv1: TcxGridDBTableView OnMouseUp = Tv1MouseUp Navigator.Buttons.CustomButtons = <> @@ -394,12 +393,34 @@ inherited frmTatClothInspList: TfrmTatClothInspList Width = 66 end object Tv1Column7: TcxGridDBColumn - Caption = #23458#25143#33457#22411 - DataBinding.FieldName = 'C_CustPattern' + Caption = #19979#24067#26102#38388'1' + DataBinding.FieldName = 'xbdate' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 76 + end + object Tv1Column11: TcxGridDBColumn + Caption = #19979#24067#26102#38388'2' + DataBinding.FieldName = 'xbdate2' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 69 + end + object Tv1Column12: TcxGridDBColumn + Caption = #19979#24067#26102#38388'3' + DataBinding.FieldName = 'xbdate3' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 79 + end + object Tv1Column13: TcxGridDBColumn + Caption = #19979#24067#26102#38388'4' + DataBinding.FieldName = 'xbdate4' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 end object v1Column3: TcxGridDBColumn Caption = #38376#24133 @@ -456,14 +477,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList HeaderAlignmentHorz = taCenter Width = 70 end - object Tv1Column5: TcxGridDBColumn - Caption = #21253#21495 - DataBinding.FieldName = 'BAONO' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end object Tv1Column8: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' @@ -472,22 +485,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList Options.Editing = False Width = 66 end - object Tv1Column3: TcxGridDBColumn - Caption = #33394#21495 - DataBinding.FieldName = 'C_ColorNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column1: TcxGridDBColumn - Caption = #27454#21495 - DataBinding.FieldName = 'C_StyleNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end object Tv1Column9: TcxGridDBColumn Caption = #24067#31867#21035 DataBinding.FieldName = 'btype' @@ -495,13 +492,33 @@ inherited frmTatClothInspList: TfrmTatClothInspList HeaderAlignmentHorz = taCenter Width = 65 end - object Tv1Column2: TcxGridDBColumn - Caption = #33521#25991#39068#33394 - DataBinding.FieldName = 'C_EColor' + object Tv1Column14: TcxGridDBColumn + Caption = #25377#36710#24037'1' + DataBinding.FieldName = 'SCPerson' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 + Width = 70 + end + object Tv1Column15: TcxGridDBColumn + Caption = #25377#36710#24037'2' + DataBinding.FieldName = 'JBSCPerson' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column16: TcxGridDBColumn + Caption = #25377#36710#24037'3' + DataBinding.FieldName = 'JBSCPerson3' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column17: TcxGridDBColumn + Caption = #25377#36710#24037'4' + DataBinding.FieldName = 'JBSCPerson4' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 end end object cxGrid1Level1: TcxGridLevel diff --git a/E03梭织坯布检验/U_TatClothInspList.pas b/E03梭织坯布检验/U_TatClothInspList.pas index f848dcf..9cbc26c 100644 --- a/E03梭织坯布检验/U_TatClothInspList.pas +++ b/E03梭织坯布检验/U_TatClothInspList.pas @@ -14,23 +14,23 @@ uses RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker, - Vcl.Buttons, System.StrUtils, dxScrollbarAnnotations, dxSkinBasic, - dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, - dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, - dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, - dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, - dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, - dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, - dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, - dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, - dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful, - dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful, - dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, - dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, - dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, - dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, - dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, - dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue; + Vcl.Buttons, System.StrUtils, dxScrollbarAnnotations, dxSkinBasic, dxSkinBlack, + dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue; type TfrmTatClothInspList = class(TfrmBaseList) @@ -85,9 +85,7 @@ type v1Column34: TcxGridDBColumn; v1Column40: TcxGridDBColumn; v1Column46: TcxGridDBColumn; - Tv1Column5: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; - Tv1Column3: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; Panel6: TPanel; Label31: TLabel; @@ -96,8 +94,6 @@ type BTNP: TButton; TCBNOR: TComboBox; Tv1Column10: TcxGridDBColumn; - Tv1Column1: TcxGridDBColumn; - Tv1Column2: TcxGridDBColumn; Panel1: TPanel; Label3: TLabel; Label7: TLabel; @@ -138,6 +134,13 @@ type carno: TEdit; Label9: TLabel; Tv1carno: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; + Tv1Column16: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -349,13 +352,13 @@ begin begin Close; sql.Clear; - sql.Add('select * from Tat_Cloth_IO where IOFlag='''' and StkId=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); + sql.Add('select * from Tat_Cloth_IO where IOFlag='''' and StkId=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty = False then begin Order_Main.EnableControls; - Application.MessageBox('Ѳݲܱ༭!', 'ʾ', 0); + Application.MessageBox('Ѳݲܱ༭!', 'ʾ', 0); Exit; end; try diff --git a/E03梭织坯布检验/U_TatInspEdit.dfm b/E03梭织坯布检验/U_TatInspEdit.dfm index de49e4b..e9fe332 100644 --- a/E03梭织坯布检验/U_TatInspEdit.dfm +++ b/E03梭织坯布检验/U_TatInspEdit.dfm @@ -2,7 +2,7 @@ object frmTatInspEdit: TfrmTatInspEdit Left = 285 Top = 179 Caption = #24067#21305#31649#29702 - ClientHeight = 461 + ClientHeight = 590 ClientWidth = 913 Color = clWhite Font.Charset = GB2312_CHARSET @@ -84,17 +84,17 @@ object frmTatInspEdit: TfrmTatInspEdit Left = 0 Top = 38 Width = 913 - Height = 79 + Height = 179 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitTop = 18 + ExplicitTop = 32 object Label1: TLabel - Left = 745 - Top = 55 + Left = 18 + Top = 14 Width = 52 Height = 12 Caption = #24067#21305#26465#30721 @@ -134,22 +134,22 @@ object frmTatInspEdit: TfrmTatInspEdit Caption = #31859#25968 end object Ma: TLabel - Left = 296 - Top = 100 + Left = 313 + Top = 252 Width = 6 Height = 12 Caption = 'M' end object Label7: TLabel - Left = 211 - Top = 100 + Left = 228 + Top = 252 Width = 24 Height = 12 Caption = #21407#30721 end object Label5: TLabel - Left = 332 - Top = 104 + Left = 349 + Top = 256 Width = 6 Height = 12 Caption = 'M' @@ -189,9 +189,120 @@ object frmTatInspEdit: TfrmTatInspEdit Height = 12 Caption = #30721#25968 end + object Label3: TLabel + Left = 220 + Top = 77 + Width = 48 + Height = 23 + Caption = #25377#36710'2' + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 27 + Top = 78 + Width = 48 + Height = 23 + Caption = #25377#36710'1' + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label37: TLabel + Left = 595 + Top = 77 + Width = 48 + Height = 23 + Caption = #25377#36710'4' + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label39: TLabel + Left = 404 + Top = 77 + Width = 48 + Height = 23 + Caption = #25377#36710'3' + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label36: TLabel + Left = 37 + Top = 112 + Width = 38 + Height = 23 + Caption = #31859#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label38: TLabel + Left = 230 + Top = 112 + Width = 38 + Height = 23 + Caption = #31859#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label40: TLabel + Left = 414 + Top = 112 + Width = 38 + Height = 23 + Caption = #31859#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label41: TLabel + Left = 604 + Top = 112 + Width = 38 + Height = 23 + Caption = #31859#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 207 + Top = 47 + Width = 48 + Height = 12 + Caption = #30721#34920#31859#25968 + end object CIID: TEdit - Left = 803 - Top = 49 + Left = 76 + Top = 8 Width = 110 Height = 24 Font.Charset = GB2312_CHARSET @@ -218,8 +329,8 @@ object frmTatInspEdit: TfrmTatInspEdit TabOrder = 3 end object RadioGroup1: TRadioGroup - Left = 590 - Top = 6 + Left = 760 + Top = 115 Width = 153 Height = 58 Columns = 3 @@ -228,10 +339,11 @@ object frmTatInspEdit: TfrmTatInspEdit #27491#21697 #27425#21697) TabOrder = 0 + Visible = False end object MJQty1: TEdit - Left = 236 - Top = 100 + Left = 253 + Top = 252 Width = 54 Height = 20 TabOrder = 6 @@ -257,18 +369,152 @@ object frmTatInspEdit: TfrmTatInspEdit Height = 20 TabOrder = 7 end + object SCPerson: TcxButtonEdit + Left = 83 + Top = 74 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = SCPersonPropertiesButtonClick + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -21 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 8 + Width = 102 + end + object JBSCPerson: TcxButtonEdit + Left = 277 + Top = 74 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JBSCPersonPropertiesButtonClick + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -21 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 9 + Width = 102 + end + object JBSCPerson3: TcxButtonEdit + Left = 461 + Top = 74 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JBSCPerson3PropertiesButtonClick + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -21 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 10 + Width = 102 + end + object JBSCPerson4: TcxButtonEdit + Left = 652 + Top = 74 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JBSCPerson4PropertiesButtonClick + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -21 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 11 + Width = 102 + end + object OutPutQty1: TEdit + Left = 83 + Top = 109 + Width = 72 + Height = 29 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + end + object OutPutQty2: TEdit + Left = 277 + Top = 109 + Width = 72 + Height = 29 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 13 + end + object OutPutQty3: TEdit + Left = 459 + Top = 109 + Width = 72 + Height = 29 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + end + object OutPutQty4: TEdit + Left = 652 + Top = 109 + Width = 72 + Height = 29 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 15 + end + object InputLen: TEdit + Left = 261 + Top = 43 + Width = 54 + Height = 20 + TabOrder = 16 + end end object cxGrid1: TcxGrid Left = 0 - Top = 117 + Top = 217 Width = 913 - Height = 344 + Height = 373 Align = alClient TabOrder = 2 - ExplicitTop = 97 - ExplicitHeight = 364 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -295,6 +541,7 @@ object frmTatInspEdit: TfrmTatInspEdit object TV1Column1: TcxGridDBColumn Caption = #30133#28857 DataBinding.FieldName = 'CIFName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -308,6 +555,7 @@ object frmTatInspEdit: TfrmTatInspEdit object cxGridDBColumn2: TcxGridDBColumn Caption = #30133#28857#21517#31216 DataBinding.FieldName = 'CIFName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False @@ -316,6 +564,7 @@ object frmTatInspEdit: TfrmTatInspEdit object cxGridDBColumn3: TcxGridDBColumn Caption = #20301#32622#36215 DataBinding.FieldName = 'CIFbeg' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -326,6 +575,7 @@ object frmTatInspEdit: TfrmTatInspEdit object cxGridDBColumn4: TcxGridDBColumn Caption = #20301#32622#27490 DataBinding.FieldName = 'CIFend' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 79 @@ -333,6 +583,7 @@ object frmTatInspEdit: TfrmTatInspEdit object cxGridDBColumn5: TcxGridDBColumn Caption = #38271#24230 DataBinding.FieldName = 'CIFQty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Sorting = False @@ -341,6 +592,7 @@ object frmTatInspEdit: TfrmTatInspEdit object cxGridDBColumn6: TcxGridDBColumn Caption = #21407#22240 DataBinding.FieldName = 'CDReason' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Sorting = False @@ -348,12 +600,14 @@ object frmTatInspEdit: TfrmTatInspEdit end object cxGridDBColumn7: TcxGridDBColumn DataBinding.FieldName = 'CDQty' + DataBinding.IsNullValueType = True Visible = False Width = 60 end object cxGridDBColumn8: TcxGridDBColumn Caption = #25187#20998 DataBinding.FieldName = 'CIFPoints' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -361,6 +615,7 @@ object frmTatInspEdit: TfrmTatInspEdit object cxGridDBColumn9: TcxGridDBColumn Caption = #20010#25968 DataBinding.FieldName = 'CIFNumber' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 @@ -381,8 +636,8 @@ object frmTatInspEdit: TfrmTatInspEdit Connection = DataLink_TatInsp.ADOLink LockType = ltReadOnly Parameters = <> - Left = 336 - Top = 200 + Left = 488 + Top = 344 end object ADOCmd: TADOQuery Connection = DataLink_TatInsp.ADOLink @@ -392,13 +647,13 @@ object frmTatInspEdit: TfrmTatInspEdit end object DataSource1: TDataSource DataSet = Order_MJ - Left = 528 - Top = 200 + Left = 712 + Top = 320 end object Order_MJ: TClientDataSet Aggregates = <> Params = <> - Left = 424 - Top = 200 + Left = 632 + Top = 336 end end diff --git a/E03梭织坯布检验/U_TatInspEdit.pas b/E03梭织坯布检验/U_TatInspEdit.pas index 57edac6..1832996 100644 --- a/E03梭织坯布检验/U_TatInspEdit.pas +++ b/E03梭织坯布检验/U_TatInspEdit.pas @@ -9,7 +9,8 @@ uses cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, - dxSkinsDefaultPainters, dxDateRanges; + dxSkinsDefaultPainters, dxDateRanges, dxScrollbarAnnotations, cxContainer, + cxMaskEdit; type TfrmTatInspEdit = class(TForm) @@ -57,6 +58,24 @@ type cxGridDBColumn9: TcxGridDBColumn; cxGridLevel3: TcxGridLevel; TV1Column1: TcxGridDBColumn; + Label3: TLabel; + Label34: TLabel; + Label37: TLabel; + Label39: TLabel; + SCPerson: TcxButtonEdit; + JBSCPerson: TcxButtonEdit; + JBSCPerson3: TcxButtonEdit; + JBSCPerson4: TcxButtonEdit; + Label36: TLabel; + Label38: TLabel; + Label40: TLabel; + Label41: TLabel; + OutPutQty1: TEdit; + OutPutQty2: TEdit; + OutPutQty3: TEdit; + OutPutQty4: TEdit; + Label8: TLabel; + InputLen: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDestroy(Sender: TObject); procedure tv2CDWZPropertiesEditValueChanged(Sender: TObject); @@ -68,6 +87,10 @@ type procedure ToolButton4Click(Sender: TObject); procedure cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject); procedure TV1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure SCPersonPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure JBSCPersonPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure JBSCPerson3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure JBSCPerson4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); private { Private declarations } function SaveData(): Boolean; @@ -82,7 +105,7 @@ var implementation uses - U_RTFun, U_ZDYHelp, U_DataLink; + U_RTFun, U_ZDYHelp, U_DataLink, U_EmployeeSel; {$R *.dfm} procedure TfrmTatInspEdit.GetJYXK(FJYIP: string); @@ -109,6 +132,16 @@ begin NetWeight.Text := Trim(ADOTmp.fieldbyname('NetWeight').AsString); Meter.Text := Trim(ADOTmp.fieldbyname('Meter').AsString); Yardage.Text := Trim(ADOTmp.fieldbyname('Yardage').AsString); + InputLen.Text := Trim(ADOTmp.fieldbyname('InputLen').AsString); + SCPerson.Text := Trim(ADOTmp.fieldbyname('SCPerson').AsString); + JBSCPerson.Text := Trim(ADOTmp.fieldbyname('JBSCPerson').AsString); + JBSCPerson3.Text := Trim(ADOTmp.fieldbyname('JBSCPerson3').AsString); + JBSCPerson4.Text := Trim(ADOTmp.fieldbyname('JBSCPerson4').AsString); + + OutPutQty1.Text := Trim(ADOTmp.fieldbyname('OutPutQty1').AsString); + OutPutQty2.Text := Trim(ADOTmp.fieldbyname('OutPutQty2').AsString); + OutPutQty3.Text := Trim(ADOTmp.fieldbyname('OutPutQty3').AsString); + OutPutQty4.Text := Trim(ADOTmp.fieldbyname('OutPutQty4').AsString); if Trim(Trim(ADOTmp.fieldbyname('Grade').AsString)) = 'Ʒ' then begin @@ -133,6 +166,60 @@ begin end; +procedure TfrmTatInspEdit.JBSCPerson3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmEmployeeSel := TfrmEmployeeSel.Create(self); + with frmEmployeeSel do + begin + FPost := ''; + if ShowModal = 1 then + begin + JBSCPerson3.Text := frmEmployeeSel.FRName; + JBSCPerson3.Hint := frmEmployeeSel.FRCode; + end; + end; + finally + frmEmployeeSel.Free; + end; +end; + +procedure TfrmTatInspEdit.JBSCPerson4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmEmployeeSel := TfrmEmployeeSel.Create(self); + with frmEmployeeSel do + begin + FPost := ''; + if ShowModal = 1 then + begin + JBSCPerson4.Text := frmEmployeeSel.FRName; + JBSCPerson4.Hint := frmEmployeeSel.FRCode; + end; + end; + finally + frmEmployeeSel.Free; + end; +end; + +procedure TfrmTatInspEdit.JBSCPersonPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmEmployeeSel := TfrmEmployeeSel.Create(self); + with frmEmployeeSel do + begin + FPost := ''; + if ShowModal = 1 then + begin + JBSCPerson.Text := frmEmployeeSel.FRName; + JBSCPerson.Hint := frmEmployeeSel.FRCode; + end; + end; + finally + frmEmployeeSel.Free; + end; +end; + procedure TfrmTatInspEdit.cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject); var mvalue, CIFbeg, CIFEnd: string; @@ -330,31 +417,33 @@ begin sql.Clear; sql.Add(' UPdate Tat_Cloth_Inspect Set '); sql.Add(' PieceNo=''' + Trim(PieceNo.Text) + ''' '); + sql.Add(' ,SCPerson=''' + Trim(SCPerson.Text) + ''' '); + sql.Add(' ,JBSCPerson=''' + Trim(JBSCPerson.Text) + ''' '); + sql.Add(' ,JBSCPerson3=''' + Trim(JBSCPerson3.Text) + ''' '); + sql.Add(' ,JBSCPerson4=''' + Trim(JBSCPerson4.Text) + ''' '); sql.Add(',GrossWeight=' + FloatToStr(Strtofloatdef(GrossWeight.Text, 0))); sql.Add(',NetWeight=' + FloatToStr(Strtofloatdef(NetWeight.Text, 0))); sql.Add(',Meter=' + FloatToStr(Strtofloatdef(Meter.Text, 0))); sql.Add(',Yardage=' + FloatToStr(Strtofloatdef(Yardage.Text, 0))); + sql.Add(',InputLen=' + FloatToStr(Strtofloatdef(InputLen.Text, 0))); - if RadioGroup1.ItemIndex = 0 then - begin - sql.Add(',Grade=''Ʒ'' '); - end - else if RadioGroup1.ItemIndex = 1 then - begin - sql.Add(',Grade=''Ʒ'' '); - end; + sql.Add(',OutPutQty1=' + FloatToStr(Strtofloatdef(OutPutQty1.Text, 0))); + sql.Add(',OutPutQty2=' + FloatToStr(Strtofloatdef(OutPutQty2.Text, 0))); + sql.Add(',OutPutQty3=' + FloatToStr(Strtofloatdef(OutPutQty3.Text, 0))); + sql.Add(',OutPutQty4=' + FloatToStr(Strtofloatdef(OutPutQty4.Text, 0))); + +// if RadioGroup1.ItemIndex = 0 then +// begin +// sql.Add(',Grade=''Ʒ'' '); +// end +// else if RadioGroup1.ItemIndex = 1 then +// begin +// sql.Add(',Grade=''Ʒ'' '); +// end; sql.Add(' where CIID=''' + Trim(Label2.Caption) + ''''); ExecSQL; end; - ////////////////// ¾ŴõϢ ////////////////// - with ADOCmd do - begin - Close; - sql.Clear; - sql.Add('exec P_Tat_Insp_Up @CIID=''' + Trim(Label2.Caption) + ''''); - sql.Add(',@InspType=' + QuotedStr('޸')); - execsql; - end; + ////////////////// ¾ŴõϢ ////////////////// /// ////////////////// ⼰ ////////////////// @@ -386,6 +475,24 @@ begin end; end; +procedure TfrmTatInspEdit.SCPersonPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmEmployeeSel := TfrmEmployeeSel.Create(self); + with frmEmployeeSel do + begin + FPost := ''; + if ShowModal = 1 then + begin + SCPerson.Text := frmEmployeeSel.FRName; + SCPerson.Hint := frmEmployeeSel.FRCode; + end; + end; + finally + frmEmployeeSel.Free; + end; +end; + procedure TfrmTatInspEdit.ToolButton2Click(Sender: TObject); begin if Trim(Label2.Caption) = '' then diff --git a/E03梭织坯布检验/U_TatMachInsp.dfm b/E03梭织坯布检验/U_TatMachInsp.dfm index 72fcef3..d08774d 100644 --- a/E03梭织坯布检验/U_TatMachInsp.dfm +++ b/E03梭织坯布检验/U_TatMachInsp.dfm @@ -7,6 +7,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp FormStyle = fsMDIChild Position = poScreenCenter Visible = True + ExplicitLeft = -376 ExplicitWidth = 1556 ExplicitHeight = 811 PixelsPerInch = 96 @@ -14,7 +15,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Panel9: TPanel [0] Left = 0 Top = 0 - Width = 491 + Width = 573 Height = 772 Align = alLeft Color = clWhite @@ -23,7 +24,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Panel2: TPanel Left = 1 Top = 129 - Width = 489 + Width = 571 Height = 642 Align = alClient BevelInner = bvRaised @@ -37,6 +38,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp ParentBackground = False ParentFont = False TabOrder = 0 + ExplicitLeft = 2 object lblLenUnit: TLabel Left = 251 Top = 9 @@ -54,7 +56,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label5: TLabel Left = 2 Top = 9 - Width = 124 + Width = 120 Height = 34 Caption = #30721#34920#38271#24230 Font.Charset = ANSI_CHARSET @@ -94,8 +96,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Label12: TLabel Left = 9 - Top = 223 - Width = 52 + Top = 200 + Width = 48 Height = 23 Caption = #25377#36710'2' Font.Charset = ANSI_CHARSET @@ -107,8 +109,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Label34: TLabel Left = 9 - Top = 181 - Width = 52 + Top = 158 + Width = 48 Height = 23 Caption = #25377#36710'1' Font.Charset = ANSI_CHARSET @@ -134,8 +136,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Label36: TLabel Left = 188 - Top = 180 - Width = 42 + Top = 157 + Width = 38 Height = 23 Caption = #31859#25968 Font.Charset = ANSI_CHARSET @@ -147,8 +149,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Label38: TLabel Left = 188 - Top = 222 - Width = 42 + Top = 199 + Width = 38 Height = 23 Caption = #31859#25968 Font.Charset = ANSI_CHARSET @@ -160,7 +162,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Label4: TLabel Left = 191 - Top = 106 + Top = 101 Width = 44 Height = 34 Caption = 'KG' @@ -173,8 +175,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Label11: TLabel Left = 3 - Top = 106 - Width = 62 + Top = 101 + Width = 60 Height = 34 Caption = #37325#37327 Font.Charset = ANSI_CHARSET @@ -187,7 +189,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object lblRuleConversion: TLabel Left = 190 Top = 562 - Width = 84 + Width = 80 Height = 24 Caption = #31859#36716#20844#26020 Font.Charset = ANSI_CHARSET @@ -200,8 +202,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Label37: TLabel Left = 9 - Top = 308 - Width = 52 + Top = 285 + Width = 48 Height = 23 Caption = #25377#36710'4' Font.Charset = ANSI_CHARSET @@ -213,8 +215,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Label39: TLabel Left = 9 - Top = 265 - Width = 52 + Top = 242 + Width = 48 Height = 23 Caption = #25377#36710'3' Font.Charset = ANSI_CHARSET @@ -226,8 +228,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Label40: TLabel Left = 188 - Top = 264 - Width = 42 + Top = 241 + Width = 38 Height = 23 Caption = #31859#25968 Font.Charset = ANSI_CHARSET @@ -239,8 +241,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Label41: TLabel Left = 188 - Top = 307 - Width = 42 + Top = 284 + Width = 38 Height = 23 Caption = #31859#25968 Font.Charset = ANSI_CHARSET @@ -253,7 +255,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label42: TLabel Left = 14 Top = 388 - Width = 52 + Width = 48 Height = 23 Caption = #25377#36710'5' Font.Charset = ANSI_CHARSET @@ -267,7 +269,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label43: TLabel Left = 193 Top = 387 - Width = 42 + Width = 38 Height = 23 Caption = #31859#25968 Font.Charset = ANSI_CHARSET @@ -281,7 +283,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label46: TLabel Left = 14 Top = 430 - Width = 52 + Width = 48 Height = 23 Caption = #25377#36710'6' Font.Charset = ANSI_CHARSET @@ -295,7 +297,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label47: TLabel Left = 193 Top = 429 - Width = 42 + Width = 38 Height = 23 Caption = #31859#25968 Font.Charset = ANSI_CHARSET @@ -309,7 +311,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label48: TLabel Left = 15 Top = 472 - Width = 52 + Width = 48 Height = 23 Caption = #25377#36710'7' Font.Charset = ANSI_CHARSET @@ -323,7 +325,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label51: TLabel Left = 193 Top = 471 - Width = 42 + Width = 38 Height = 23 Caption = #31859#25968 Font.Charset = ANSI_CHARSET @@ -337,7 +339,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label3: TLabel Left = 315 Top = 17 - Width = 62 + Width = 58 Height = 23 Caption = #31995' '#25968 Font.Charset = ANSI_CHARSET @@ -364,7 +366,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label53: TLabel Left = 1 Top = 56 - Width = 124 + Width = 120 Height = 34 Caption = #20986#36135#38271#24230 Font.Charset = ANSI_CHARSET @@ -375,9 +377,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp ParentFont = False end object Label54: TLabel - Left = 355 - Top = 65 - Width = 63 + Left = 345 + Top = 58 + Width = 57 Height = 23 Caption = #24320#26426#24067 Font.Charset = ANSI_CHARSET @@ -388,9 +390,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp ParentFont = False end object Label55: TLabel - Left = 355 - Top = 122 - Width = 63 + Left = 345 + Top = 107 + Width = 57 Height = 23 Caption = #20102#26426#24067 Font.Charset = ANSI_CHARSET @@ -400,7 +402,60 @@ inherited frmTatMachInsp: TfrmTatMachInsp Font.Style = [fsBold] ParentFont = False end + object Label56: TLabel + Left = 313 + Top = 157 + Width = 76 + Height = 23 + Caption = #19979#24067#26102#38388 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label57: TLabel + Left = 313 + Top = 200 + Width = 76 + Height = 23 + Caption = #19979#24067#26102#38388 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label58: TLabel + Left = 313 + Top = 242 + Width = 76 + Height = 23 + Caption = #19979#24067#26102#38388 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label59: TLabel + Left = 313 + Top = 285 + Width = 76 + Height = 23 + Caption = #19979#24067#26102#38388 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end object InputLen: TEdit + Tag = 1 Left = 131 Top = 6 Width = 102 @@ -416,11 +471,11 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnKeyPress = MJstr3KeyPress end object BTPrint: TButton - Left = 334 - Top = 185 - Width = 136 - Height = 90 - Caption = #30830' '#35748 + Left = 89 + Top = 313 + Width = 120 + Height = 76 + Caption = #30830' '#35748 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 @@ -431,7 +486,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnClick = BTPrintClick end object Button6: TButton - Left = 251 + Left = 244 Top = 95 Width = 80 Height = 45 @@ -504,8 +559,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp #22812#29677) end object SCPerson: TcxButtonEdit + Tag = 1 Left = 66 - Top = 178 + Top = 155 ParentFont = False Properties.Buttons = < item @@ -524,8 +580,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp Width = 102 end object JBSCPerson: TcxButtonEdit + Tag = 1 Left = 66 - Top = 220 + Top = 197 ParentFont = False Properties.Buttons = < item @@ -544,8 +601,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp Width = 102 end object OutPutQty1: TEdit + Tag = 1 Left = 236 - Top = 177 + Top = 154 Width = 72 Height = 29 Font.Charset = ANSI_CHARSET @@ -560,8 +618,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnMouseDown = OutPutQty1MouseDown end object OutPutQty2: TEdit + Tag = 1 Left = 236 - Top = 219 + Top = 196 Width = 72 Height = 29 Font.Charset = ANSI_CHARSET @@ -576,8 +635,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnMouseDown = OutPutQty2MouseDown end object InputWeight: TEdit + Tag = 1 Left = 71 - Top = 103 + Top = 98 Width = 100 Height = 41 Font.Charset = GB2312_CHARSET @@ -608,15 +668,16 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnKeyPress = MJstr3KeyPress end object JBSCPerson3: TcxButtonEdit + Tag = 1 Left = 66 - Top = 262 + Top = 239 ParentFont = False Properties.Buttons = < item Default = True Kind = bkEllipsis end> - Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Properties.OnButtonClick = JBSCPerson3PropertiesButtonClick Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -21 @@ -628,15 +689,16 @@ inherited frmTatMachInsp: TfrmTatMachInsp Width = 102 end object JBSCPerson4: TcxButtonEdit + Tag = 1 Left = 66 - Top = 305 + Top = 282 ParentFont = False Properties.Buttons = < item Default = True Kind = bkEllipsis end> - Properties.OnButtonClick = JBSCPersonPropertiesButtonClick + Properties.OnButtonClick = JBSCPerson4PropertiesButtonClick Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -21 @@ -648,8 +710,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp Width = 102 end object OutPutQty3: TEdit + Tag = 1 Left = 236 - Top = 261 + Top = 238 Width = 72 Height = 29 Font.Charset = ANSI_CHARSET @@ -664,8 +727,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnMouseDown = OutPutQty3MouseDown end object OutPutQty4: TEdit + Tag = 1 Left = 236 - Top = 304 + Top = 281 Width = 72 Height = 29 Font.Charset = ANSI_CHARSET @@ -718,8 +782,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnMouseDown = OutPutQty5MouseDown end object Button7: TButton - Left = 335 - Top = 291 + Left = 291 + Top = 312 Width = 136 Height = 76 Caption = #26242' '#23384 @@ -809,6 +873,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnMouseDown = OutPutQty7MouseDown end object Coefficient: TEdit + Tag = 1 Left = 380 Top = 14 Width = 80 @@ -819,11 +884,12 @@ inherited frmTatMachInsp: TfrmTatMachInsp Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + ReadOnly = True TabOrder = 23 - OnClick = CIFBegClick OnKeyPress = MJstr3KeyPress end object meter: TEdit + Tag = 1 Left = 131 Top = 53 Width = 102 @@ -839,8 +905,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnKeyPress = MJstr3KeyPress end object Edit1: TEdit - Left = 426 - Top = 59 + Left = 416 + Top = 48 Width = 40 Height = 41 Font.Charset = ANSI_CHARSET @@ -854,8 +920,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnClick = Edit1Click end object Edit2: TEdit - Left = 426 - Top = 110 + Left = 416 + Top = 95 Width = 40 Height = 41 Font.Charset = ANSI_CHARSET @@ -868,11 +934,75 @@ inherited frmTatMachInsp: TfrmTatMachInsp TabOrder = 26 OnClick = Edit2Click end + object BegDate: TDateTimePicker + Left = 403 + Top = 154 + Width = 144 + Height = 29 + Date = 44774.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464742650459811600 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 27 + end + object BegDate2: TDateTimePicker + Left = 403 + Top = 197 + Width = 144 + Height = 29 + Date = 44774.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464742650459811600 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 28 + end + object BegDate3: TDateTimePicker + Left = 403 + Top = 239 + Width = 144 + Height = 29 + Date = 44774.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464742650459811600 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 29 + end + object BegDate4: TDateTimePicker + Left = 403 + Top = 282 + Width = 144 + Height = 29 + Date = 44774.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464742650459811600 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 30 + end end object Panel10: TPanel Left = 1 Top = 1 - Width = 489 + Width = 571 Height = 128 Align = alTop Color = clWhite @@ -881,7 +1011,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label14: TLabel Left = 480 Top = 189 - Width = 51 + Width = 48 Height = 19 Caption = #35746#21333#21495 Font.Charset = ANSI_CHARSET @@ -895,7 +1025,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label23: TLabel Left = 613 Top = 210 - Width = 51 + Width = 48 Height = 19 Caption = #36710#21495#65306 Font.Charset = ANSI_CHARSET @@ -909,7 +1039,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label24: TLabel Left = 413 Top = 210 - Width = 51 + Width = 48 Height = 19 Caption = #26426#20462#65306 Font.Charset = ANSI_CHARSET @@ -936,7 +1066,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label1: TLabel Left = 203 Top = 192 - Width = 84 + Width = 80 Height = 24 Caption = #25195#25551#20837#21475 Font.Charset = ANSI_CHARSET @@ -950,7 +1080,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label13: TLabel Left = 413 Top = 179 - Width = 51 + Width = 48 Height = 19 Caption = #25209#21495#65306 Font.Charset = ANSI_CHARSET @@ -964,7 +1094,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label29: TLabel Left = 187 Top = 206 - Width = 51 + Width = 48 Height = 19 Caption = #35268#26684#65306 Font.Charset = ANSI_CHARSET @@ -978,7 +1108,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label30: TLabel Left = -13 Top = 204 - Width = 51 + Width = 48 Height = 19 Caption = #38376#24133#65306 Font.Charset = ANSI_CHARSET @@ -992,7 +1122,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label32: TLabel Left = 187 Top = 177 - Width = 51 + Width = 48 Height = 19 Caption = #20811#37325#65306 Font.Charset = ANSI_CHARSET @@ -1006,7 +1136,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label31: TLabel Left = -13 Top = 176 - Width = 51 + Width = 48 Height = 19 Caption = #32534#21495#65306 Font.Charset = ANSI_CHARSET @@ -1020,7 +1150,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label50: TLabel Left = 5 Top = 88 - Width = 75 + Width = 72 Height = 29 Caption = #26426#21488#21495 Font.Charset = ANSI_CHARSET @@ -1244,9 +1374,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp end end object ScrollBox1: TScrollBox [1] - Left = 691 + Left = 773 Top = 0 - Width = 408 + Width = 286 Height = 772 Align = alLeft TabOrder = 0 @@ -1322,34 +1452,6 @@ inherited frmTatMachInsp: TfrmTatMachInsp Visible = False OnClick = SpeedButton13Click end - object SpeedButton18: TSpeedButton - Left = 287 - Top = 3 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton21: TSpeedButton - Left = 343 - Top = 3 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end object SpeedButton22: TSpeedButton Left = 7 Top = 61 @@ -1420,34 +1522,6 @@ inherited frmTatMachInsp: TfrmTatMachInsp Visible = False OnClick = SpeedButton13Click end - object SpeedButton29: TSpeedButton - Left = 287 - Top = 61 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton30: TSpeedButton - Left = 343 - Top = 61 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end object SpeedButton31: TSpeedButton Left = 7 Top = 119 @@ -1518,34 +1592,6 @@ inherited frmTatMachInsp: TfrmTatMachInsp Visible = False OnClick = SpeedButton13Click end - object SpeedButton38: TSpeedButton - Left = 287 - Top = 119 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton39: TSpeedButton - Left = 343 - Top = 119 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end object SpeedButton40: TSpeedButton Left = 7 Top = 177 @@ -1616,34 +1662,6 @@ inherited frmTatMachInsp: TfrmTatMachInsp Visible = False OnClick = SpeedButton13Click end - object SpeedButton47: TSpeedButton - Left = 287 - Top = 177 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton48: TSpeedButton - Left = 343 - Top = 177 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end object SpeedButton50: TSpeedButton Left = 7 Top = 235 @@ -1714,34 +1732,6 @@ inherited frmTatMachInsp: TfrmTatMachInsp Visible = False OnClick = SpeedButton13Click end - object SpeedButton57: TSpeedButton - Left = 287 - Top = 235 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton58: TSpeedButton - Left = 343 - Top = 235 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end object SpeedButton59: TSpeedButton Left = 7 Top = 291 @@ -1812,34 +1802,6 @@ inherited frmTatMachInsp: TfrmTatMachInsp Visible = False OnClick = SpeedButton13Click end - object SpeedButton66: TSpeedButton - Left = 287 - Top = 291 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton67: TSpeedButton - Left = 343 - Top = 291 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end object SpeedButton70: TSpeedButton Left = 7 Top = 347 @@ -1910,34 +1872,6 @@ inherited frmTatMachInsp: TfrmTatMachInsp Visible = False OnClick = SpeedButton13Click end - object SpeedButton75: TSpeedButton - Left = 287 - Top = 347 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton19: TSpeedButton - Left = 343 - Top = 347 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end object SpeedButton20: TSpeedButton Left = 7 Top = 403 @@ -2008,34 +1942,6 @@ inherited frmTatMachInsp: TfrmTatMachInsp Visible = False OnClick = SpeedButton13Click end - object SpeedButton43: TSpeedButton - Left = 287 - Top = 403 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton44: TSpeedButton - Left = 343 - Top = 403 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end object SpeedButton52: TSpeedButton Left = 7 Top = 459 @@ -2106,34 +2012,6 @@ inherited frmTatMachInsp: TfrmTatMachInsp Visible = False OnClick = SpeedButton13Click end - object SpeedButton69: TSpeedButton - Left = 287 - Top = 459 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton76: TSpeedButton - Left = 343 - Top = 459 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end object SpeedButton77: TSpeedButton Left = 7 Top = 515 @@ -2204,38 +2082,10 @@ inherited frmTatMachInsp: TfrmTatMachInsp Visible = False OnClick = SpeedButton13Click end - object SpeedButton82: TSpeedButton - Left = 287 - Top = 515 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton83: TSpeedButton - Left = 343 - Top = 515 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end object MovePanel1: TMovePanel - Left = 4 - Top = 256 - Width = 391 + Left = -14 + Top = 206 + Width = 303 Height = 337 BevelInner = bvLowered Color = clWhite @@ -2269,8 +2119,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp ParentFont = False end object lblLenUnit1: TLabel - Left = 343 - Top = 59 + Left = 236 + Top = 20 Width = 11 Height = 19 Caption = 'M' @@ -2282,7 +2132,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp ParentFont = False end object lblCIFName: TLabel - Left = 22 + Left = 19 Top = 14 Width = 40 Height = 19 @@ -2295,8 +2145,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp ParentFont = False end object Label2: TLabel - Left = 238 - Top = 59 + Left = 236 + Top = 58 Width = 20 Height = 19 Caption = #20849 @@ -2308,8 +2158,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp ParentFont = False end object Label8: TLabel - Left = 343 - Top = 21 + Left = 138 + Top = 18 Width = 20 Height = 19 Caption = #20010 @@ -2336,7 +2186,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnClick = CIFBegClick end object Button1: TButton - Left = 166 + Left = 115 Top = 272 Width = 66 Height = 43 @@ -2351,8 +2201,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnClick = Button1Click end object Button4: TButton - Left = 278 - Top = 277 + Left = 197 + Top = 272 Width = 64 Height = 42 Caption = #20851#38381 @@ -2381,8 +2231,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnClick = CIFBegClick end object CIFQty: TEdit - Left = 264 - Top = 52 + Left = 159 + Top = 14 Width = 73 Height = 32 Font.Charset = GB2312_CHARSET @@ -2395,9 +2245,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnClick = CIFBegClick end object RadioGroup1: TRadioGroup - Left = 0 + Left = -8 Top = 90 - Width = 389 + Width = 265 Height = 176 Color = clWhite Columns = 2 @@ -2434,8 +2284,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnClick = Button2Click end object CIFNumber: TEdit - Left = 264 - Top = 14 + Left = 65 + Top = 11 Width = 73 Height = 32 Font.Charset = GB2312_CHARSET @@ -2450,20 +2300,22 @@ inherited frmTatMachInsp: TfrmTatMachInsp end end object Panel4: TPanel [2] - Left = 1099 + Left = 1059 Top = 0 - Width = 441 + Width = 481 Height = 772 Align = alClient Caption = 'Panel4' TabOrder = 1 object cxGrid3: TcxGrid Left = 1 - Top = 129 - Width = 439 - Height = 449 + Top = 91 + Width = 479 + Height = 487 Align = alClient TabOrder = 0 + ExplicitLeft = 3 + ExplicitTop = 97 object Tv3: TcxGridDBTableView OnMouseDown = Tv3MouseDown Navigator.Buttons.CustomButtons = <> @@ -2588,6 +2440,69 @@ inherited frmTatMachInsp: TfrmTatMachInsp Options.Sorting = False Width = 113 end + object Tv3Column4: TcxGridDBColumn + Caption = #19979#24067#26102#38388 + DataBinding.FieldName = 'xbdate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv3Column6: TcxGridDBColumn + Caption = #25377#36710'1' + DataBinding.FieldName = 'SCPerson' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv3Column7: TcxGridDBColumn + Caption = #31859#25968'1' + DataBinding.FieldName = 'OutPutQty1' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv3Column8: TcxGridDBColumn + Caption = #25377#36710'2' + DataBinding.FieldName = 'JBSCPerson' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv3Column9: TcxGridDBColumn + Caption = #31859#25968'2' + DataBinding.FieldName = 'OutPutQty2' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv3Column10: TcxGridDBColumn + Caption = #25377#36710'3' + DataBinding.FieldName = 'JBSCPerson3' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv3Column11: TcxGridDBColumn + Caption = #31859#25968'3' + DataBinding.FieldName = 'OutPutQty3' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv3Column12: TcxGridDBColumn + Caption = #25377#36710'4' + DataBinding.FieldName = 'JBSCPerson4' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv3Column13: TcxGridDBColumn + Caption = #31859#25968'4' + DataBinding.FieldName = 'OutPutQty4' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end end object cxGridLevel2: TcxGridLevel GridView = Tv3 @@ -2596,7 +2511,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object cxPageControl1: TcxPageControl Left = 1 Top = 578 - Width = 439 + Width = 479 Height = 193 Align = alBottom TabOrder = 1 @@ -2604,7 +2519,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp Properties.CustomButtons.Buttons = <> ClientRectBottom = 191 ClientRectLeft = 2 - ClientRectRight = 437 + ClientRectRight = 477 ClientRectTop = 22 object cxTabSheet1: TcxTabSheet Caption = #24405#20837 @@ -2612,7 +2527,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object cxGrid2: TcxGrid Left = 0 Top = 0 - Width = 435 + Width = 475 Height = 169 Align = alClient TabOrder = 0 @@ -2728,7 +2643,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object cxGrid1: TcxGrid Left = 0 Top = 0 - Width = 435 + Width = 475 Height = 169 Align = alClient TabOrder = 0 @@ -2843,8 +2758,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp Tag = 1 Left = 1 Top = 1 - Width = 439 - Height = 76 + Width = 479 + Height = 38 AutoSize = True ButtonHeight = 38 ButtonWidth = 91 @@ -2885,29 +2800,27 @@ inherited frmTatMachInsp: TfrmTatMachInsp AutoSize = True Caption = #20462#25913 ImageIndex = 3 - Wrap = True - Visible = False OnClick = ToolButton6Click end object ToolButton4: TToolButton - Left = 0 - Top = 38 + Left = 213 + Top = 0 AutoSize = True Caption = #30133#28857#31649#29702 ImageIndex = 2 OnClick = ToolButton4Click end object ToolButton7: TToolButton - Left = 95 - Top = 38 + Left = 308 + Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 OnClick = ToolButton7Click end object ToolButton8: TToolButton - Left = 190 - Top = 38 + Left = 403 + Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 7 @@ -2916,15 +2829,17 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Panel1: TPanel Left = 1 - Top = 77 - Width = 439 + Top = 39 + Width = 479 Height = 52 Align = alTop TabOrder = 3 + ExplicitLeft = 3 + ExplicitTop = 45 object Label44: TLabel Left = 22 Top = 30 - Width = 126 + Width = 114 Height = 23 Caption = #20170#26085#24050#25171#38271#24230 Font.Charset = ANSI_CHARSET @@ -2937,7 +2852,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label45: TLabel Left = 22 Top = 2 - Width = 126 + Width = 114 Height = 23 Caption = #20170#26085#24050#25171#21305#25968 Font.Charset = ANSI_CHARSET @@ -2950,7 +2865,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp end end object Panel6: TPanel [3] - Left = 491 + Left = 573 Top = 0 Width = 200 Height = 772 @@ -2964,7 +2879,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label35: TLabel Left = 27 Top = 55 - Width = 21 + Width = 19 Height = 23 Caption = #31204 Font.Charset = ANSI_CHARSET @@ -2977,7 +2892,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label16: TLabel Left = 6 Top = 15 - Width = 42 + Width = 38 Height = 23 Caption = #30721#34920 Font.Charset = ANSI_CHARSET @@ -2990,7 +2905,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label26: TLabel Left = 6 Top = 94 - Width = 42 + Width = 38 Height = 23 Caption = #20986#32440 Font.Charset = ANSI_CHARSET @@ -3003,7 +2918,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label6: TLabel Left = 90 Top = 94 - Width = 42 + Width = 38 Height = 23 Caption = #20221#25968 Font.Charset = ANSI_CHARSET @@ -3016,7 +2931,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label7: TLabel Left = 90 Top = 15 - Width = 42 + Width = 38 Height = 23 Caption = #21333#20301 Font.Charset = ANSI_CHARSET @@ -3029,7 +2944,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label9: TLabel Left = 6 Top = 136 - Width = 42 + Width = 38 Height = 23 Caption = #38271#24230 Font.Charset = ANSI_CHARSET @@ -3042,7 +2957,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label15: TLabel Left = 6 Top = 178 - Width = 42 + Width = 38 Height = 23 Caption = #37325#37327 Font.Charset = ANSI_CHARSET @@ -3055,7 +2970,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label19: TLabel Left = 6 Top = 224 - Width = 84 + Width = 76 Height = 23 Caption = #31859#25968#20445#30041 Font.Charset = ANSI_CHARSET @@ -3068,7 +2983,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label20: TLabel Left = 161 Top = 224 - Width = 21 + Width = 19 Height = 23 Caption = #20301 Font.Charset = ANSI_CHARSET @@ -3081,7 +2996,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label21: TLabel Left = 6 Top = 255 - Width = 84 + Width = 76 Height = 23 Caption = #30721#25968#20445#30041 Font.Charset = ANSI_CHARSET @@ -3094,7 +3009,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label27: TLabel Left = 161 Top = 255 - Width = 21 + Width = 19 Height = 23 Caption = #20301 Font.Charset = ANSI_CHARSET @@ -3107,7 +3022,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label28: TLabel Left = 161 Top = 286 - Width = 21 + Width = 19 Height = 23 Caption = #20301 Font.Charset = ANSI_CHARSET @@ -3120,7 +3035,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp object Label33: TLabel Left = 6 Top = 286 - Width = 84 + Width = 76 Height = 23 Caption = #37325#37327#20445#30041 Font.Charset = ANSI_CHARSET @@ -3332,7 +3247,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Panel3: TPanel [4] Left = 8 - Top = 508 + Top = 517 Width = 1001 Height = 209 BevelInner = bvRaised @@ -4019,8 +3934,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp ' ' 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' '') - Left = 880 - Top = 208 + Left = 1000 + Top = 296 end object RM1: TRMGridReport ThreadPrepareReport = True diff --git a/E03梭织坯布检验/U_TatMachInsp.pas b/E03梭织坯布检验/U_TatMachInsp.pas index 07c14a0..c10135a 100644 --- a/E03梭织坯布检验/U_TatMachInsp.pas +++ b/E03梭织坯布检验/U_TatMachInsp.pas @@ -55,71 +55,51 @@ type SpeedButton15: TSpeedButton; SpeedButton16: TSpeedButton; SpeedButton17: TSpeedButton; - SpeedButton18: TSpeedButton; - SpeedButton21: TSpeedButton; SpeedButton22: TSpeedButton; SpeedButton23: TSpeedButton; SpeedButton24: TSpeedButton; SpeedButton25: TSpeedButton; SpeedButton26: TSpeedButton; - SpeedButton29: TSpeedButton; - SpeedButton30: TSpeedButton; SpeedButton31: TSpeedButton; SpeedButton32: TSpeedButton; SpeedButton33: TSpeedButton; SpeedButton34: TSpeedButton; SpeedButton37: TSpeedButton; - SpeedButton38: TSpeedButton; - SpeedButton39: TSpeedButton; SpeedButton40: TSpeedButton; SpeedButton41: TSpeedButton; SpeedButton42: TSpeedButton; SpeedButton45: TSpeedButton; SpeedButton46: TSpeedButton; - SpeedButton47: TSpeedButton; - SpeedButton48: TSpeedButton; SpeedButton50: TSpeedButton; SpeedButton51: TSpeedButton; SpeedButton54: TSpeedButton; SpeedButton55: TSpeedButton; SpeedButton56: TSpeedButton; - SpeedButton57: TSpeedButton; - SpeedButton58: TSpeedButton; SpeedButton59: TSpeedButton; SpeedButton62: TSpeedButton; SpeedButton63: TSpeedButton; SpeedButton64: TSpeedButton; SpeedButton65: TSpeedButton; - SpeedButton66: TSpeedButton; - SpeedButton67: TSpeedButton; SpeedButton70: TSpeedButton; SpeedButton71: TSpeedButton; SpeedButton72: TSpeedButton; SpeedButton73: TSpeedButton; SpeedButton74: TSpeedButton; - SpeedButton75: TSpeedButton; - SpeedButton19: TSpeedButton; SpeedButton20: TSpeedButton; SpeedButton27: TSpeedButton; SpeedButton28: TSpeedButton; SpeedButton35: TSpeedButton; SpeedButton36: TSpeedButton; - SpeedButton43: TSpeedButton; - SpeedButton44: TSpeedButton; SpeedButton52: TSpeedButton; SpeedButton53: TSpeedButton; SpeedButton60: TSpeedButton; SpeedButton61: TSpeedButton; SpeedButton68: TSpeedButton; - SpeedButton69: TSpeedButton; - SpeedButton76: TSpeedButton; SpeedButton77: TSpeedButton; SpeedButton78: TSpeedButton; SpeedButton79: TSpeedButton; SpeedButton80: TSpeedButton; SpeedButton81: TSpeedButton; - SpeedButton82: TSpeedButton; - SpeedButton83: TSpeedButton; CDS_3: TClientDataSet; DS_3: TDataSource; ADOQueryImage: TADOQuery; @@ -341,6 +321,23 @@ type Edit2: TEdit; Tv3Column5: TcxGridDBColumn; Tv3CARNO: TcxGridDBColumn; + BegDate: TDateTimePicker; + Label56: TLabel; + Tv3Column4: TcxGridDBColumn; + Label57: TLabel; + BegDate2: TDateTimePicker; + Label58: TLabel; + BegDate3: TDateTimePicker; + Label59: TLabel; + BegDate4: TDateTimePicker; + Tv3Column6: TcxGridDBColumn; + Tv3Column7: TcxGridDBColumn; + Tv3Column8: TcxGridDBColumn; + Tv3Column9: TcxGridDBColumn; + Tv3Column10: TcxGridDBColumn; + Tv3Column11: TcxGridDBColumn; + Tv3Column12: TcxGridDBColumn; + Tv3Column13: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); @@ -403,6 +400,8 @@ type procedure InputWeightChange(Sender: TObject); procedure Edit1Click(Sender: TObject); procedure Edit2Click(Sender: TObject); + procedure JBSCPerson3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure JBSCPerson4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); private { Private declarations } FCIID, FOperationStatus, FCIFName, FWorkshop: string; @@ -855,6 +854,24 @@ begin end; end; +procedure TfrmTatMachInsp.JBSCPerson3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmEmployeeSel := TfrmEmployeeSel.Create(self); + with frmEmployeeSel do + begin + FPost := ''; + if ShowModal = 1 then + begin + JBSCPerson3.Text := frmEmployeeSel.FRName; + JBSCPerson3.Hint := frmEmployeeSel.FRCode; + end; + end; + finally + frmEmployeeSel.Free; + end; +end; + procedure TfrmTatMachInsp.JBSCPerson4Click(Sender: TObject); begin inherited; @@ -874,6 +891,24 @@ begin end; end; +procedure TfrmTatMachInsp.JBSCPerson4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmEmployeeSel := TfrmEmployeeSel.Create(self); + with frmEmployeeSel do + begin + FPost := ''; + if ShowModal = 1 then + begin + JBSCPerson4.Text := frmEmployeeSel.FRName; + JBSCPerson4.Hint := frmEmployeeSel.FRCode; + end; + end; + finally + frmEmployeeSel.Free; + end; +end; + procedure TfrmTatMachInsp.JBSCPerson5Click(Sender: TObject); begin inherited; @@ -968,18 +1003,7 @@ end; procedure TfrmTatMachInsp.InitJTM(MCIID: string); begin - with ADOTmp do - begin - Close; - sql.Clear; - sql.Add('select * from Tat_Cloth_IO where StkId=''' + Trim(MCIID) + ''' and IOFlag='''''); - Open; - end; - if not ADOTmp.IsEmpty then - begin - Application.MessageBox('Ѳݲܲ!', 'ʾ', 0); - Exit; - end; + with ADOTmp do begin Close; @@ -1003,6 +1027,36 @@ begin begin FOperationStatus := ''; FCIID := MCIID; + + SCSHData(ADOTmp, Panel2, 1); + if ADOTmp.FieldByName('XBDATE').IsNull = false then + begin + BegDate.DateTime := ADOTmp.FieldByName('XBDATE').Value; + end; + if ADOTmp.FieldByName('XBDATE2').IsNull = false then + begin + BegDate2.DateTime := ADOTmp.FieldByName('XBDATE2').Value; + end; + if ADOTmp.FieldByName('XBDATE3').IsNull = false then + begin + BegDate2.DateTime := ADOTmp.FieldByName('XBDATE3').Value; + end; + if ADOTmp.FieldByName('XBDATE4').IsNull = false then + begin + BegDate2.DateTime := ADOTmp.FieldByName('XBDATE4').Value; + end; + + if ADOTmp.FieldByName('BTYPE').AsString = '' then + begin + + Edit1.Text := ''; + end; + if ADOTmp.FieldByName('BTYPE').AsString = '˻' then + begin + Edit2.Text := ''; + end; + CodeName.Text := ADOTmp.FieldByName('C_NAME').AsString; + carno.Text := ADOTmp.FieldByName('carno').AsString; InitCDGrid(MCIID); end; @@ -1053,7 +1107,7 @@ begin end; // if ADOTmp.IsEmpty = FALSE then // begin - Coefficient.Text := ADOTmp.FieldByName('XS').AsString; + Coefficient.Text := ADOTmp.FieldByName('XS').AsString; // end; end; @@ -1321,6 +1375,10 @@ begin ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'ó׼'); ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'ó׼'); ReadCxGrid(trim(Self.Caption) + 'Tv31', Tv3, 'ó׼'); + BegDate.DateTime := SGetServerDate(ADOTmp) - 1; + BegDate2.DateTime := SGetServerDate(ADOTmp) - 1; + BegDate3.DateTime := SGetServerDate(ADOTmp) - 1; + BegDate4.DateTime := SGetServerDate(ADOTmp) - 1; fFlileFlag := UserDataFlag + 'HX'; InitCDPanel(); InitCDGrid(FCIID); @@ -1371,9 +1429,9 @@ begin end; end; i := i - 1; - if i > 69 then + if i > 49 then begin - i := 69; + i := 49; end; for j := 0 to i do begin @@ -1459,6 +1517,21 @@ begin FieldByName('GrossWeight').Value := MGrossWeight; FieldByName('NetWeight').Value := MNetWeight; FieldByName('Tare').Value := MTare; + FieldByName('XBDATE').Value := BegDate.DateTime; + if JBSCPerson.Text <> '' then + begin + FieldByName('XBDATE2').Value := BegDate2.DateTime; + end; + if JBSCPerson3.Text <> '' then + begin + FieldByName('XBDATE3').Value := BegDate3.DateTime; + end; + if JBSCPerson4.Text <> '' then + begin + FieldByName('XBDATE4').Value := BegDate4.DateTime; + end; + + ///////////////////////// ///////////////////////// /// ///////////////////////// 泤 ///////////////////////// @@ -2218,18 +2291,7 @@ procedure TfrmTatMachInsp.ToolButton6Click(Sender: TObject); begin if CDS_3.IsEmpty then Exit; - with ADOTmp do - begin - Close; - sql.Clear; - sql.Add('select * from Tat_Cloth_IO where StkId=''' + Trim(CDS_3.fieldbyname('CIID').AsString) + ''' and IOFlag='''''); - Open; - end; - if not ADOTmp.IsEmpty then - begin - Application.MessageBox('Ѳݲɾ!', 'ʾ', 0); - Exit; - end; + with ADOTmp do begin Close; diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local index b86d2a7..2ce8a22 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj.local +++ b/E04梭织坯布仓库/TatClothStk.dproj.local @@ -1,70 +1,70 @@  - 1899/12/30 00:00:00.000.029,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas - 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas= - 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm - 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj - 1899/12/30 00:00:00.000.506,=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.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.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.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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm - 1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas - 1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas - 1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas= - 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas - 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas - 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm - 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm - 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.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas - 1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas= - 1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm - 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas - 1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas - 1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas - 1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj - 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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas - 1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas - 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= - 1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas= - 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.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.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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas + 1899-12-30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.029,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas + 1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas + 1899-12-30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm + 1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm + 1899-12-30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas + 1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas + 1899-12-30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas + 1899-12-30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas= + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm + 1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm + 1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas + 1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm + 1899-12-30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas + 1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas= + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas= + 1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas + 1899-12-30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas + 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas + 1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm + 1899-12-30 00:00:00.000.442,=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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.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.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm + 1899-12-30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas= + 1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas + 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm + 1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= + 1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas + 1899-12-30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas + 1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas + 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas diff --git a/E04梭织坯布仓库/TatClothStk.identcache b/E04梭织坯布仓库/TatClothStk.identcache index 0b2ad6c77f3735b1c1e45bda5fd65e86a6e664fe..5e5489529204531f5a8f74dae6d839a077022fa5 100644 GIT binary patch delta 41 xcmdljuv=imW5&sr?CO*GIfOPBFzsiW?8Ra^S%yh^at>?qWPMiK&F5Kjm;fP(4GjPQ delta 37 vcmV+=0NVe%5W5ht;{lV~1XPnb2Pc!i0ur+v0>1*2k_A1JF9l<>&joA(5vC1k diff --git a/E04梭织坯布仓库/U_TatClothInList.dfm b/E04梭织坯布仓库/U_TatClothInList.dfm index 51325b5..9e3267a 100644 --- a/E04梭织坯布仓库/U_TatClothInList.dfm +++ b/E04梭织坯布仓库/U_TatClothInList.dfm @@ -7,8 +7,7 @@ inherited frmTatClothInList: TfrmTatClothInList FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitLeft = -286 - ExplicitTop = -60 + ExplicitLeft = -359 ExplicitWidth = 1556 ExplicitHeight = 635 PixelsPerInch = 96 @@ -393,6 +392,7 @@ inherited frmTatClothInList: TfrmTatClothInList AutoSize = True BorderStyle = bsSingle TabOrder = 2 + ExplicitTop = 111 DesignSize = ( 1536 23) @@ -840,13 +840,34 @@ inherited frmTatClothInList: TfrmTatClothInList Width = 66 end object Tv1Column2: TcxGridDBColumn - Caption = #33521#25991#39068#33394 - DataBinding.FieldName = 'C_EColor' + Caption = #19979#24067#26102#38388 + DataBinding.FieldName = 'xbdate' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 end + object Tv1Column23: TcxGridDBColumn + Caption = #19979#24067#26102#38388'2' + DataBinding.FieldName = 'xbdate2' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column24: TcxGridDBColumn + Caption = #19979#24067#26102#38388'3' + DataBinding.FieldName = 'xbdate3' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object Tv1Column25: TcxGridDBColumn + Caption = #19979#24067#26102#38388'4' + DataBinding.FieldName = 'xbdate4' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 75 + end object Tv1Column15: TcxGridDBColumn Caption = #25377#36710#24037'1' DataBinding.FieldName = 'SCPerson' diff --git a/E04梭织坯布仓库/U_TatClothInList.pas b/E04梭织坯布仓库/U_TatClothInList.pas index 65274fa..afb767d 100644 --- a/E04梭织坯布仓库/U_TatClothInList.pas +++ b/E04梭织坯布仓库/U_TatClothInList.pas @@ -129,6 +129,9 @@ type Tv1Column22: TcxGridDBColumn; Tv1InputLen: TcxGridDBColumn; Tv1C_MachLatitudeDensity: TcxGridDBColumn; + Tv1Column23: TcxGridDBColumn; + Tv1Column24: TcxGridDBColumn; + Tv1Column25: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); diff --git a/E04梭织坯布仓库/U_TatClothOutList.dfm b/E04梭织坯布仓库/U_TatClothOutList.dfm index 9b6ca1c..3247730 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.dfm +++ b/E04梭织坯布仓库/U_TatClothOutList.dfm @@ -63,7 +63,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList AutoSize = True Caption = #21246#36873#25171#21360 ImageIndex = 21 - Visible = False OnClick = ToolButton2Click end object TBExport: TToolButton @@ -102,7 +101,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitTop = 39 object Label2: TLabel Left = 70 Top = 36 @@ -236,20 +234,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList Font.Style = [fsBold] ParentFont = False end - object Label6: TLabel - Left = 831 - Top = 36 - Width = 52 - Height = 12 - Hint = '0' - Caption = #23458#25143#21517#31216 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end object BegDate: TDateTimePicker Left = 88 Top = 6 @@ -324,7 +308,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '0' TabOrder = 6 - OnKeyPress = orderNoKeyPress end object STKID: TEdit Tag = 2 @@ -334,7 +317,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '1' TabOrder = 7 - OnKeyPress = orderNoKeyPress end object C_Name: TEdit Tag = 2 @@ -344,7 +326,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '0' TabOrder = 8 - OnKeyPress = orderNoKeyPress end object C_Color: TEdit Tag = 2 @@ -354,7 +335,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '0' TabOrder = 9 - OnKeyPress = orderNoKeyPress end object C_Pattern: TEdit Tag = 2 @@ -364,7 +344,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '0' TabOrder = 10 - OnKeyPress = orderNoKeyPress end object C_Code: TEdit Tag = 2 @@ -374,7 +353,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '0' TabOrder = 11 - OnKeyPress = orderNoKeyPress end object jyg: TEdit Tag = 2 @@ -384,27 +362,15 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '0' TabOrder = 12 - OnKeyPress = orderNoKeyPress end object carno: TEdit Tag = 1 - Left = 885 + Left = 871 Top = 6 Width = 100 Height = 20 Hint = '0' TabOrder = 13 - OnKeyPress = orderNoKeyPress - end - object ToCoName: TEdit - Tag = 2 - Left = 885 - Top = 32 - Width = 100 - Height = 20 - Hint = '1' - TabOrder = 14 - OnKeyPress = orderNoKeyPress end end object Panel6: TPanel [2] @@ -524,7 +490,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList ParentFont = False PopupMenu = PM_1 TabOrder = 3 - ExplicitTop = 131 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E04梭织坯布仓库/U_TatClothOutList.pas b/E04梭织坯布仓库/U_TatClothOutList.pas index 2192392..2649347 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.pas +++ b/E04梭织坯布仓库/U_TatClothOutList.pas @@ -128,8 +128,6 @@ type Tv1Column23: TcxGridDBColumn; Tv1InputLen: TcxGridDBColumn; Tv1C_MachLatitudeDensity: TcxGridDBColumn; - ToCoName: TEdit; - Label6: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject);