unit U_ClothInfoInput; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit, cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, cxCheckBox, cxDropDownEdit, 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, cxContainer, cxLabel, cxPC, dxScrollbarAnnotations, cxMaskEdit, Vcl.Menus, cxButtons; type TfrmClothInfoInput = class(TForm) ToolBar1: TToolBar; TbSave: TToolButton; TBClose: TToolButton; ADOQueryCmd: TADOQuery; ADOQueryTemp: TADOQuery; TbUpFile: TToolButton; CDS_1: TClientDataSet; DS_1: TDataSource; GPM_1: TcxGridPopupMenu; cxPageControl1: TcxPageControl; cxTabSheet1: TcxTabSheet; cxTabSheet2: TcxTabSheet; cxTabSheet3: TcxTabSheet; cxTabSheet4: TcxTabSheet; cxGrid2: TcxGrid; Tv1: TcxGridDBTableView; Tv11fs_Name: TcxGridDBColumn; Tv11fs_spel: TcxGridDBColumn; Tv1fs_unit: TcxGridDBColumn; Tv11fs_rate: TcxGridDBColumn; Tv11fs_precautions: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; cxTabSheet5: TcxTabSheet; cxGrid1: TcxGrid; Tv2: TcxGridDBTableView; Tv2fp_Name: TcxGridDBColumn; Tv2fp_spel: TcxGridDBColumn; Tv2fp_unit: TcxGridDBColumn; Tv2fp_rate: TcxGridDBColumn; Tv2fp_precautions: TcxGridDBColumn; cxGridDBColumn16: TcxGridDBColumn; cxGridDBColumn17: TcxGridDBColumn; cxGridDBColumn18: TcxGridDBColumn; cxGridLevel2: TcxGridLevel; cxTabSheet6: TcxTabSheet; cxGrid3: TcxGrid; Tv3: TcxGridDBTableView; Tv3gj_Name: TcxGridDBColumn; Tv3gj_spel: TcxGridDBColumn; Tv3gj_unit: TcxGridDBColumn; TV3gj_rate: TcxGridDBColumn; Tv3gj_precautions: TcxGridDBColumn; cxGridDBColumn26: TcxGridDBColumn; cxGridDBColumn27: TcxGridDBColumn; cxGridDBColumn28: TcxGridDBColumn; cxGridLevel3: TcxGridLevel; Panel1: TPanel; C_GramWeight: TcxTextEdit; F_Width: TcxTextEdit; cxLabel37: TcxLabel; cxLabel38: TcxLabel; cxLabel39: TcxLabel; cxLabel40: TcxLabel; cxLabel41: TcxLabel; cxLabel42: TcxLabel; cxLabel43: TcxLabel; cxLabel44: TcxLabel; cxLabel45: TcxLabel; cxLabel46: TcxLabel; cxLabel47: TcxLabel; cxLabel48: TcxLabel; Material: TcxTextEdit; LatitudeSlope: TcxTextEdit; FinishingStandards: TcxTextEdit; F_Name: TcxTextEdit; C_FinishLongitudeDensity: TcxTextEdit; C_Width: TcxTextEdit; F_GramWeight: TcxTextEdit; C_FinishLatitudeDensity: TcxTextEdit; Finishingtype: TcxTextEdit; Panel2: TPanel; cxLabel10: TcxLabel; cxLabel11: TcxLabel; cxLabel12: TcxLabel; cxLabel13: TcxLabel; cxLabel14: TcxLabel; cxLabel15: TcxLabel; cxLabel16: TcxLabel; cxLabel17: TcxLabel; cxLabel18: TcxLabel; cxLabel19: TcxLabel; cxLabel20: TcxLabel; cxLabel7: TcxLabel; cxLabel8: TcxLabel; cxLabel9: TcxLabel; qx_WaterContent: TcxTextEdit; qx_Add_Name: TcxTextEdit; qx_Precautions: TcxTextEdit; qx_temperature4: TcxTextEdit; qx_temperature2: TcxTextEdit; qx_temperature1: TcxTextEdit; qx_temperature3: TcxTextEdit; qx_temperature5: TcxTextEdit; qx_speed: TcxTextEdit; qx_ReduceAmplitude: TcxTextEdit; Panel3: TPanel; cxLabel1: TcxLabel; cxLabel2: TcxLabel; cxLabel21: TcxLabel; cxLabel22: TcxLabel; cxLabel23: TcxLabel; cxLabel24: TcxLabel; cxLabel25: TcxLabel; cxLabel26: TcxLabel; cxLabel27: TcxLabel; cxLabel28: TcxLabel; cxLabel3: TcxLabel; cxLabel4: TcxLabel; cxLabel5: TcxLabel; cxLabel55: TcxLabel; cxLabel56: TcxLabel; cxLabel57: TcxLabel; cxLabel58: TcxLabel; cxLabel59: TcxLabel; cxLabel6: TcxLabel; cxLabel60: TcxLabel; cxLabel61: TcxLabel; cxLabel62: TcxLabel; cxLabel63: TcxLabel; cxLabel64: TcxLabel; cxLabel65: TcxLabel; dx_OutFanSpeed: TcxTextEdit; dx_temperature1: TcxTextEdit; dx_WidthAmplitude: TcxTextEdit; dx_temperature5: TcxTextEdit; dx_temperature9: TcxTextEdit; dx_RosePower: TcxTextEdit; dx_BrushSuperRate: TcxTextEdit; dx_Precautions: TcxTextEdit; dx_UpSuperRate: TcxTextEdit; dx_speed: TcxTextEdit; dx_TubePress: TcxTextEdit; dx_temperature6: TcxTextEdit; dx_CycleFanSpeed: TcxTextEdit; dx_DownSuperRate: TcxTextEdit; dx_temperature3: TcxTextEdit; dx_temperature4: TcxTextEdit; dx_temperature7: TcxTextEdit; dx_temperature8: TcxTextEdit; dx_temperature10: TcxTextEdit; dx_temperature2: TcxTextEdit; Panel4: TPanel; cxLabel100: TcxLabel; cxLabel101: TcxLabel; cxLabel102: TcxLabel; cxLabel103: TcxLabel; cxLabel104: TcxLabel; cxLabel105: TcxLabel; cxLabel106: TcxLabel; cxLabel109: TcxLabel; cxLabel110: TcxLabel; cxLabel111: TcxLabel; cxLabel82: TcxLabel; cxLabel83: TcxLabel; cxLabel84: TcxLabel; cxLabel85: TcxLabel; cxLabel86: TcxLabel; cxLabel87: TcxLabel; cxLabel88: TcxLabel; cxLabel89: TcxLabel; cxLabel90: TcxLabel; cxLabel91: TcxLabel; cxLabel92: TcxLabel; cxLabel93: TcxLabel; cxLabel94: TcxLabel; cxLabel95: TcxLabel; cxLabel96: TcxLabel; cxLabel97: TcxLabel; cxLabel98: TcxLabel; cxLabel99: TcxLabel; fs_OutFanSpeed: TcxTextEdit; fs_temperature1: TcxTextEdit; fs_WidthAmplitude: TcxTextEdit; fs_temperature5: TcxTextEdit; fs_temperature9: TcxTextEdit; fs_RosePower: TcxTextEdit; fs_BrushSuperRate: TcxTextEdit; fs_Precautions: TcxTextEdit; fs_UpSuperRate: TcxTextEdit; fs_speed: TcxTextEdit; fs_TubePress: TcxTextEdit; fs_temperature6: TcxTextEdit; fs_CycleFanSpeed: TcxTextEdit; fs_DownSuperRate: TcxTextEdit; fs_temperature3: TcxTextEdit; fs_temperature4: TcxTextEdit; fs_temperature7: TcxTextEdit; fs_temperature8: TcxTextEdit; fs_temperature10: TcxTextEdit; fs_temperature2: TcxTextEdit; fs_CarPress: TcxTextEdit; fs_PressWaterContent: TcxTextEdit; Panel5: TPanel; cxLabel107: TcxLabel; cxLabel108: TcxLabel; cxLabel112: TcxLabel; cxLabel29: TcxLabel; cxLabel30: TcxLabel; cxLabel31: TcxLabel; cxLabel32: TcxLabel; cxLabel33: TcxLabel; cxLabel34: TcxLabel; cxLabel35: TcxLabel; cxLabel36: TcxLabel; cxLabel49: TcxLabel; cxLabel50: TcxLabel; cxLabel51: TcxLabel; cxLabel52: TcxLabel; cxLabel53: TcxLabel; cxLabel54: TcxLabel; cxLabel66: TcxLabel; cxLabel67: TcxLabel; cxLabel68: TcxLabel; cxLabel69: TcxLabel; cxLabel70: TcxLabel; cxLabel71: TcxLabel; cxLabel72: TcxLabel; cxLabel73: TcxLabel; cxLabel74: TcxLabel; cxLabel75: TcxLabel; cxLabel76: TcxLabel; cxLabel77: TcxLabel; cxLabel78: TcxLabel; cxLabel79: TcxLabel; cxLabel80: TcxLabel; cxLabel81: TcxLabel; fp_OutFanSpeed: TcxTextEdit; fp_temperature1: TcxTextEdit; fp_WidthAmplitude: TcxTextEdit; fp_temperature5: TcxTextEdit; fp_temperature9: TcxTextEdit; fp_RosePower: TcxTextEdit; fp_BrushSuperRate: TcxTextEdit; fp_Precautions: TcxTextEdit; fp_UpSuperRate: TcxTextEdit; fp_speed: TcxTextEdit; fp_TubePress: TcxTextEdit; fp_temperature6: TcxTextEdit; fp_CycleFanSpeed: TcxTextEdit; fp_DownSuperRate: TcxTextEdit; fp_temperature3: TcxTextEdit; fp_temperature4: TcxTextEdit; fp_temperature7: TcxTextEdit; fp_temperature8: TcxTextEdit; fp_temperature10: TcxTextEdit; fp_temperature2: TcxTextEdit; fp_LeftHeight: TcxTextEdit; fp_RightHeight: TcxTextEdit; fp_PumbMixElectricFrequency: TcxTextEdit; fp_SystemPress: TcxTextEdit; fp_MixElectricFrequency: TcxTextEdit; fp_GasFlow: TcxTextEdit; Panel6: TPanel; cxLabel116: TcxLabel; cxLabel117: TcxLabel; cxLabel118: TcxLabel; cxLabel119: TcxLabel; cxLabel120: TcxLabel; cxLabel121: TcxLabel; cxLabel122: TcxLabel; cxLabel123: TcxLabel; cxLabel124: TcxLabel; cxLabel125: TcxLabel; cxLabel126: TcxLabel; cxLabel127: TcxLabel; cxLabel128: TcxLabel; cxLabel129: TcxLabel; cxLabel130: TcxLabel; cxLabel131: TcxLabel; cxLabel132: TcxLabel; cxLabel133: TcxLabel; cxLabel134: TcxLabel; cxLabel135: TcxLabel; cxLabel136: TcxLabel; cxLabel137: TcxLabel; cxLabel138: TcxLabel; cxLabel139: TcxLabel; cxLabel140: TcxLabel; cxLabel141: TcxLabel; cxLabel142: TcxLabel; cxLabel143: TcxLabel; gj_temperature1: TcxTextEdit; gj_WidthAmplitude: TcxTextEdit; gj_temperature5: TcxTextEdit; gj_temperature9: TcxTextEdit; gj_RosePower: TcxTextEdit; gj_BrushSuperRate: TcxTextEdit; gj_Precautions: TcxTextEdit; gj_UpSuperRate: TcxTextEdit; gj_speed: TcxTextEdit; gj_TubePress: TcxTextEdit; gj_temperature6: TcxTextEdit; gj_CycleFanSpeed: TcxTextEdit; gj_DownSuperRate: TcxTextEdit; gj_temperature3: TcxTextEdit; gj_temperature4: TcxTextEdit; gj_temperature7: TcxTextEdit; gj_temperature8: TcxTextEdit; gj_temperature10: TcxTextEdit; gj_temperature2: TcxTextEdit; gj_LeftHeight: TcxTextEdit; gj_RightHeight: TcxTextEdit; gj_OutFanSpeed: TcxTextEdit; cxtabsheet7: TcxTabSheet; cxLabel113: TcxLabel; cxLabel114: TcxLabel; F_FinishLongitudeDensity: TcxTextEdit; F_FinishLatitudeDensity: TcxTextEdit; panel7: TPanel; cxLabel115: TcxLabel; cxLabel144: TcxLabel; cxLabel145: TcxLabel; cxLabel146: TcxLabel; cxLabel147: TcxLabel; cxLabel154: TcxLabel; cxLabel155: TcxLabel; cxLabel156: TcxLabel; zm_inoutSpeed: TcxTextEdit; zm_needle: TcxTextEdit; zm_Precautions: TcxTextEdit; zm_frequency: TcxTextEdit; zm_WidthAmplitude: TcxTextEdit; cxLabel148: TcxLabel; qx_Add_Number: TcxTextEdit; cxLabel149: TcxLabel; cxLabel150: TcxLabel; C_Code: TcxTextEdit; GPM_2: TcxGridPopupMenu; DS_2: TDataSource; cds_2: TClientDataSet; GPM_3: TcxGridPopupMenu; DS_3: TDataSource; CDS_3: TClientDataSet; Tv3Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn; cxGrid4: TcxGrid; TV4: TcxGridDBTableView; cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn2: TcxGridDBColumn; cxGridDBColumn11: TcxGridDBColumn; cxGridLevel4: TcxGridLevel; Panel8: TPanel; Panel9: TPanel; Label20: TLabel; cxGridPopupMenu1: TcxGridPopupMenu; DS_GX: TDataSource; cds_gx: TClientDataSet; Panel10: TPanel; Panel11: TPanel; Label1: TLabel; ToolBar2: TToolBar; TbQX: TToolButton; TbDX: TToolButton; TbFS: TToolButton; TbFP: TToolButton; TbGJ: TToolButton; TbZM: TToolButton; TbDelete: TToolButton; C_Name: TcxTextEdit; dx_UnpackingMethod: TcxComboBox; dx_OpenAmplitude: TcxComboBox; dx_RollMethod: TcxComboBox; fs_UnpackingMethod: TcxComboBox; fs_OpenAmplitude: TcxComboBox; fs_RollMethod: TcxComboBox; zm_UnpackingMethod: TcxComboBox; zm_RollMethod: TcxComboBox; cxLabel151: TcxLabel; cxLabel152: TcxLabel; cxLabel153: TcxLabel; cxLabel157: TcxLabel; cxLabel158: TcxLabel; fs_meter: TcxTextEdit; fs_useGlub: TcxTextEdit; fs_waterDistribution: TcxTextEdit; fs_useOneGlub: TcxTextEdit; fs_useOneMeter: TcxTextEdit; cxLabel159: TcxLabel; fp_useOneMeter: TcxTextEdit; cxLabel160: TcxLabel; fp_useOneGlub: TcxTextEdit; cxLabel161: TcxLabel; gj_useOneMeter: TcxTextEdit; cxLabel162: TcxLabel; gj_useOneGlub: TcxTextEdit; qx_UnpackingMethod: TcxComboBox; qx_RollMethod: TcxComboBox; zm_wagCloth: TcxTextEdit; fp_RollMethod: TcxComboBox; fp_UnpackingMethod: TcxComboBox; gj_RollMethod: TcxComboBox; gj_UnpackingMethod: TcxComboBox; fp_OpenAmplitude: TcxComboBox; gj_OpenAmplitude: TcxComboBox; ToolBar3: TToolBar; TbAdd21: TToolButton; TbDel21: TToolButton; ToolBar4: TToolBar; TbAdd1: TToolButton; TbDel1: TToolButton; ToolBar5: TToolBar; TbAdd3: TToolButton; TbDel3: TToolButton; TbCPReplace: TcxButton; TbDXReplace: TcxButton; TbFSReplace: TcxButton; TbFPReplace: TcxButton; TbGJReplace: TcxButton; cxButton1: TcxButton; cxButton2: TcxButton; cxButton3: TcxButton; cxButton4: TcxButton; cxButton5: TcxButton; cxTabSheet8: TcxTabSheet; cxTabSheet9: TcxTabSheet; cxTabSheet10: TcxTabSheet; cxTabSheet11: TcxTabSheet; Panel12: TPanel; cxLabel163: TcxLabel; cxLabel164: TcxLabel; cxLabel165: TcxLabel; cxLabel166: TcxLabel; cxLabel167: TcxLabel; cxLabel168: TcxLabel; cxLabel169: TcxLabel; cxLabel170: TcxLabel; cxLabel171: TcxLabel; cxLabel172: TcxLabel; cxLabel173: TcxLabel; cxLabel174: TcxLabel; cxLabel175: TcxLabel; cxLabel176: TcxLabel; cxLabel177: TcxLabel; cxLabel178: TcxLabel; cxLabel179: TcxLabel; cxLabel180: TcxLabel; cxLabel181: TcxLabel; cxLabel182: TcxLabel; cxLabel183: TcxLabel; cxLabel184: TcxLabel; cxLabel185: TcxLabel; cxLabel186: TcxLabel; cxLabel187: TcxLabel; dx_OutFanSpeed2: TcxTextEdit; dx_temperature12: TcxTextEdit; dx_WidthAmplitude2: TcxTextEdit; dx_temperature52: TcxTextEdit; dx_temperature92: TcxTextEdit; dx_RosePower2: TcxTextEdit; dx_BrushSuperRate2: TcxTextEdit; dx_Precautions2: TcxTextEdit; dx_UpSuperRate2: TcxTextEdit; dx_speed2: TcxTextEdit; dx_TubePress2: TcxTextEdit; dx_temperature62: TcxTextEdit; dx_CycleFanSpeed2: TcxTextEdit; dx_DownSuperRate2: TcxTextEdit; dx_temperature32: TcxTextEdit; dx_temperature42: TcxTextEdit; dx_temperature72: TcxTextEdit; dx_temperature82: TcxTextEdit; dx_temperature102: TcxTextEdit; dx_temperature22: TcxTextEdit; dx_UnpackingMethod2: TcxComboBox; dx_OpenAmplitude2: TcxComboBox; dx_RollMethod2: TcxComboBox; cxButton6: TcxButton; cxButton7: TcxButton; Panel13: TPanel; cxLabel188: TcxLabel; cxLabel189: TcxLabel; cxLabel190: TcxLabel; cxLabel191: TcxLabel; cxLabel192: TcxLabel; cxLabel193: TcxLabel; cxLabel194: TcxLabel; cxLabel195: TcxLabel; cxLabel196: TcxLabel; cxLabel197: TcxLabel; cxLabel198: TcxLabel; cxLabel199: TcxLabel; cxLabel200: TcxLabel; cxLabel201: TcxLabel; cxLabel202: TcxLabel; cxLabel203: TcxLabel; cxLabel204: TcxLabel; cxLabel205: TcxLabel; cxLabel206: TcxLabel; cxLabel207: TcxLabel; cxLabel208: TcxLabel; cxLabel209: TcxLabel; cxLabel210: TcxLabel; cxLabel211: TcxLabel; cxLabel212: TcxLabel; dx_OutFanSpeed3: TcxTextEdit; dx_temperature13: TcxTextEdit; dx_WidthAmplitude3: TcxTextEdit; dx_temperature53: TcxTextEdit; dx_temperature93: TcxTextEdit; dx_RosePower3: TcxTextEdit; dx_BrushSuperRate3: TcxTextEdit; dx_Precautions3: TcxTextEdit; dx_UpSuperRate3: TcxTextEdit; dx_speed3: TcxTextEdit; dx_TubePress3: TcxTextEdit; dx_temperature63: TcxTextEdit; dx_CycleFanSpeed3: TcxTextEdit; dx_DownSuperRate3: TcxTextEdit; dx_temperature33: TcxTextEdit; dx_temperature43: TcxTextEdit; dx_temperature73: TcxTextEdit; dx_temperature83: TcxTextEdit; dx_temperature103: TcxTextEdit; dx_temperature23: TcxTextEdit; dx_UnpackingMethod3: TcxComboBox; dx_OpenAmplitude3: TcxComboBox; dx_RollMethod3: TcxComboBox; cxButton8: TcxButton; cxButton9: TcxButton; Panel14: TPanel; cxLabel213: TcxLabel; cxLabel214: TcxLabel; cxLabel215: TcxLabel; cxLabel216: TcxLabel; cxLabel217: TcxLabel; cxLabel218: TcxLabel; cxLabel219: TcxLabel; cxLabel220: TcxLabel; cxLabel221: TcxLabel; cxLabel222: TcxLabel; cxLabel223: TcxLabel; cxLabel224: TcxLabel; cxLabel225: TcxLabel; cxLabel226: TcxLabel; cxLabel227: TcxLabel; cxLabel228: TcxLabel; cxLabel229: TcxLabel; cxLabel230: TcxLabel; cxLabel231: TcxLabel; cxLabel232: TcxLabel; cxLabel233: TcxLabel; cxLabel234: TcxLabel; cxLabel235: TcxLabel; cxLabel236: TcxLabel; cxLabel237: TcxLabel; cxLabel238: TcxLabel; cxLabel239: TcxLabel; cxLabel240: TcxLabel; gj_temperature12: TcxTextEdit; gj_WidthAmplitude2: TcxTextEdit; gj_temperature52: TcxTextEdit; gj_temperature92: TcxTextEdit; gj_RosePower2: TcxTextEdit; gj_BrushSuperRate2: TcxTextEdit; gj_Precautions2: TcxTextEdit; gj_UpSuperRate2: TcxTextEdit; gj_speed2: TcxTextEdit; gj_TubePress2: TcxTextEdit; gj_temperature62: TcxTextEdit; gj_CycleFanSpeed2: TcxTextEdit; gj_DownSuperRate2: TcxTextEdit; gj_temperature32: TcxTextEdit; gj_temperature42: TcxTextEdit; gj_temperature72: TcxTextEdit; gj_temperature82: TcxTextEdit; gj_temperature102: TcxTextEdit; gj_temperature22: TcxTextEdit; gj_LeftHeight2: TcxTextEdit; gj_RightHeight2: TcxTextEdit; gj_OutFanSpeed2: TcxTextEdit; cxLabel241: TcxLabel; gj_useOneMeter2: TcxTextEdit; cxLabel242: TcxLabel; gj_useOneGlub2: TcxTextEdit; gj_RollMethod2: TcxComboBox; gj_UnpackingMethod2: TcxComboBox; gj_OpenAmplitude2: TcxComboBox; cxButton10: TcxButton; cxButton11: TcxButton; ToolBar6: TToolBar; ToolButton1: TToolButton; ToolButton2: TToolButton; cxGrid5: TcxGrid; cxGridDBTableView1: TcxGridDBTableView; cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn; cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn; cxGridDBColumn7: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn; cxGridDBColumn9: TcxGridDBColumn; cxGridDBColumn10: TcxGridDBColumn; cxGridDBColumn12: TcxGridDBColumn; cxGridLevel5: TcxGridLevel; Panel15: TPanel; cxLabel243: TcxLabel; cxLabel244: TcxLabel; cxLabel245: TcxLabel; cxLabel246: TcxLabel; cxLabel247: TcxLabel; cxLabel248: TcxLabel; cxLabel249: TcxLabel; cxLabel250: TcxLabel; cxLabel251: TcxLabel; cxLabel252: TcxLabel; cxLabel253: TcxLabel; cxLabel254: TcxLabel; cxLabel255: TcxLabel; cxLabel256: TcxLabel; cxLabel257: TcxLabel; cxLabel258: TcxLabel; cxLabel259: TcxLabel; cxLabel260: TcxLabel; cxLabel261: TcxLabel; cxLabel262: TcxLabel; cxLabel263: TcxLabel; cxLabel264: TcxLabel; cxLabel265: TcxLabel; cxLabel266: TcxLabel; cxLabel267: TcxLabel; cxLabel268: TcxLabel; cxLabel269: TcxLabel; cxLabel270: TcxLabel; gj_temperature13: TcxTextEdit; gj_WidthAmplitude3: TcxTextEdit; gj_temperature53: TcxTextEdit; gj_temperature93: TcxTextEdit; gj_RosePower3: TcxTextEdit; gj_BrushSuperRate3: TcxTextEdit; gj_Precautions3: TcxTextEdit; gj_UpSuperRate3: TcxTextEdit; gj_speed3: TcxTextEdit; gj_TubePress3: TcxTextEdit; gj_temperature63: TcxTextEdit; gj_CycleFanSpeed3: TcxTextEdit; gj_DownSuperRate3: TcxTextEdit; gj_temperature33: TcxTextEdit; gj_temperature43: TcxTextEdit; gj_temperature73: TcxTextEdit; gj_temperature83: TcxTextEdit; gj_temperature103: TcxTextEdit; gj_temperature23: TcxTextEdit; gj_LeftHeight3: TcxTextEdit; gj_RightHeight3: TcxTextEdit; gj_OutFanSpeed3: TcxTextEdit; cxLabel271: TcxLabel; gj_useOneMeter3: TcxTextEdit; cxLabel272: TcxLabel; gj_useOneGlub3: TcxTextEdit; gj_RollMethod3: TcxComboBox; gj_UnpackingMethod3: TcxComboBox; gj_OpenAmplitude3: TcxComboBox; cxButton12: TcxButton; cxButton13: TcxButton; ToolBar7: TToolBar; ToolButton3: TToolButton; ToolButton4: TToolButton; cxGrid6: TcxGrid; cxGridDBTableView2: TcxGridDBTableView; cxGridDBColumn13: TcxGridDBColumn; cxGridDBColumn14: TcxGridDBColumn; cxGridDBColumn15: TcxGridDBColumn; cxGridDBColumn19: TcxGridDBColumn; cxGridDBColumn20: TcxGridDBColumn; cxGridDBColumn21: TcxGridDBColumn; cxGridDBColumn22: TcxGridDBColumn; cxGridDBColumn23: TcxGridDBColumn; cxGridDBColumn24: TcxGridDBColumn; cxGridLevel6: TcxGridLevel; procedure FormShow(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure TbSaveClick(Sender: TObject); procedure CYColorKeyPress(Sender: TObject; var Key: Char); procedure CYJGGYBtnDnClick(Sender: TObject); procedure C_WidthBtnDnClick(Sender: TObject); procedure C_WidthBtnUpClick(Sender: TObject); procedure TbUpFileClick(Sender: TObject); procedure C_FromNameBtnUpClick(Sender: TObject); procedure TbQXClick(Sender: TObject); procedure SetXH(); procedure TbDXClick(Sender: TObject); procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TbDeleteClick(Sender: TObject); procedure TbFSClick(Sender: TObject); procedure TbFPClick(Sender: TObject); procedure TbGJClick(Sender: TObject); procedure TbZMClick(Sender: TObject); procedure Tv11fs_unitPropertiesEditValueChanged(Sender: TObject); procedure Tv2fp_unitPropertiesEditValueChanged(Sender: TObject); procedure Tv3gj_unitPropertiesEditValueChanged(Sender: TObject); procedure fs_meterPropertiesChange(Sender: TObject); procedure TbAdd2Click(Sender: TObject); procedure TbDel2Click(Sender: TObject); procedure Tv2fp_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TbAdd1Click(Sender: TObject); procedure TbDel1Click(Sender: TObject); procedure TbAdd3Click(Sender: TObject); procedure TbDel3Click(Sender: TObject); procedure Tv11fs_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv3gj_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TbCPReplaceClick(Sender: TObject); procedure TbDXReplaceClick(Sender: TObject); procedure TbFSReplaceClick(Sender: TObject); procedure TbFPReplaceClick(Sender: TObject); procedure TbGJReplaceClick(Sender: TObject); procedure cxButton1Click(Sender: TObject); procedure cxButton2Click(Sender: TObject); procedure cxButton3Click(Sender: TObject); procedure cxButton4Click(Sender: TObject); procedure cxButton5Click(Sender: TObject); private canshu1: string; Fint: Integer; procedure InitGrid(); procedure ArrangeTabsByDataset; function SaveData(): Boolean; function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string; procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); procedure ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil); { Private declarations } public FBCIID, FCTID, FProcessID: string; CopyInt: Integer; { Public declarations } end; var frmClothInfoInput: TfrmClothInfoInput; implementation uses U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel, U_ProductInfoSel; {$R *.dfm} procedure TfrmClothInfoInput.SetXH(); var i: Integer; begin with CDS_GX do begin First; i := 1; while not Eof do begin with CDS_GX do begin Edit; FieldByName('XHNoTemp').Value := i; Post; end; i := i + 1; Next; end; end; with CDS_GX do begin CDS_GX.IndexFieldNames := ''; First; i := 1; while not Eof do begin with CDS_GX do begin Edit; FieldByName('SerialNo').Value := FieldByName('XHNoTemp').AsInteger; Post; end; i := i + 1; Next; end; CDS_GX.IndexFieldNames := 'SerialNo'; end; end; procedure TfrmClothInfoInput.ArrangeTabsByDataset; var I: Integer; TabSheet: TcxTabSheet; CurrentIndex: Integer; begin // 固定第一个页面 A cxTabSheet1.PageIndex := 0; cxTabSheet1.Visible := True; // 初始化隐藏所有其他页面 for I := 1 to cxPageControl1.PageCount - 1 do cxPageControl1.Pages[I].TabVisible := False; // 检查数据集是否激活 if not (CDS_GX.Active and (CDS_GX.RecordCount > 0)) then Exit; // 设置当前索引（从1开始，0已被A占用） CurrentIndex := 1; // 按序号排序数据集 CDS_GX.IndexFieldNames := 'serialno'; CDS_GX.First; // 遍历数据集并设置页面 while not CDS_GX.Eof do begin // 根据工序名查找对应的页面 for I := 0 to cxPageControl1.PageCount - 1 do begin TabSheet := cxPageControl1.Pages[I] as TcxTabSheet; // 匹配工序名且不是第一个固定页面 if (Trim(TabSheet.Caption) = CDS_GX.FieldByName('gxname').AsString) and (TabSheet <> cxTabSheet1) then begin TabSheet.PageIndex := CurrentIndex; TabSheet.TabVisible := True; Inc(CurrentIndex); Break; end; end; CDS_GX.Next; end; // 刷新页面控件 cxPageControl1.Invalidate; end; procedure TfrmClothInfoInput.InitGrid(); var i: integer; begin with ADOQueryTemp do begin Close; SQL.Clear; SQL.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + ''''); Open; end; SCSHData(ADOQueryTemp, panel1, 2); SCSHData(ADOQueryTemp, Panel1, 0); with ADOQueryTemp do begin Close; SQL.Clear; SQL.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(FBCIID) + ''''); Open; end; SCSHData(ADOQueryTemp, Panel2, 2); SCSHData(ADOQueryTemp, Panel3, 2); SCSHData(ADOQueryTemp, Panel4, 2); SCSHData(ADOQueryTemp, Panel5, 2); SCSHData(ADOQueryTemp, Panel6, 2); SCSHData(ADOQueryTemp, Panel7, 2); with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select A.* from Bs_Cloth_GY_sub A '); sql.Add(' where gytype=''防水'' and A.BCIID=''' + Trim(FBCIID) + ''''); Open; end; SCreateCDS(ADOQueryTemp, CDS_1); SInitCDSData(ADOQueryTemp, CDS_1); with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select A.* from Bs_Cloth_GY_sub A '); sql.Add(' where gytype=''发泡'' and A.BCIID=''' + Trim(FBCIID) + ''''); Open; end; SCreateCDS(ADOQueryTemp, CDS_2); SInitCDSData(ADOQueryTemp, CDS_2); with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select A.* from Bs_Cloth_GY_sub A '); sql.Add(' where gytype=''刮胶'' and A.BCIID=''' + Trim(FBCIID) + ''''); Open; end; SCreateCDS(ADOQueryTemp, CDS_3); SInitCDSData(ADOQueryTemp, CDS_3); with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select A.* from Bs_Cloth_GX A '); sql.Add(' where A.BCIID=''' + Trim(FBCIID) + ''''); Open; end; SCreateCDS(ADOQueryTemp, CDS_GX); SInitCDSData(ADOQueryTemp, CDS_GX); // C_FromName.TxtCode := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString); // C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString); end; procedure TfrmClothInfoInput.FormShow(Sender: TObject); var MaxBCIID, MaxProcessID, MaxBCPID: string; Maxid1, maxid2, maxid3, maxgx: string; begin InitGrid(); ArrangeTabsByDataset; if CopyInt = 3 then begin FBCIID := ''; C_Code.text := '自动生成'; end; if CopyInt = 1 then //查看 begin TbSave.Enabled := False; TbUpFile.Enabled := False; TbQX.Enabled := False; TbDX.Enabled := False; TbFS.Enabled := False; TbFP.Enabled := False; TbGJ.Enabled := False; TbZM.Enabled := False; TbDelete.Enabled := False; end; with CDS_GX do begin First; while not Eof do begin Edit; CDS_GX.fieldbyname('GXID').AsString := ''; Post; Next; end; end; with CDS_1 do begin First; while not Eof do begin Edit; CDS_1.fieldbyname('BCPID').AsString := ''; Post; Next; end; end; with CDS_2 do begin First; while not Eof do begin Edit; CDS_2.fieldbyname('BCPID').AsString := ''; Post; Next; end; end; with CDS_3 do begin First; while not Eof do begin Edit; CDS_3.fieldbyname('BCPID').AsString := ''; Post; Next; end; end; end; procedure TfrmClothInfoInput.fs_meterPropertiesChange(Sender: TObject); var mfs_meter, mfs_useOneMeter, mfs_useGlub: Double; begin if fs_meter.Text <> '' then begin mfs_meter := StrToFloat(fs_meter.Text); end else begin fs_meter.Text := '0'; mfs_meter := 0; end; if fs_useOneMeter.Text <> '' then begin mfs_useOneMeter := StrToFloat(fs_useOneMeter.Text); end else begin fs_useOneMeter.Text := '0'; mfs_useOneMeter := 0; end; ///计算部分 mfs_useGlub := mfs_meter * mfs_useOneMeter / 1000; fs_useGlub.Text := FloatToStr(mfs_useGlub); end; procedure TfrmClothInfoInput.TBCloseClick(Sender: TObject); begin Close; end; function TfrmClothInfoInput.SaveData(): Boolean; var MaxBCIID, MaxProcessID, MaxBCPID: string; Maxid1, maxid2, maxid3, maxgx: string; begin try ADOQueryCmd.Connection.BeginTrans; //////////////// 保存主表 ////////////////////// if Trim(FBCIID) = '' then begin if GetLSNo(ADOQueryCmd, MaxBCIID, 'Y', 'BS_Cloth_Info', 4, 1) = False then begin Result := False; ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('取最大号失败！', '提示', 0); Exit; end; end else begin MaxBCIID := Trim(FBCIID); end; with ADOQueryCmd do begin Close; SQL.Clear; sql.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + ''''); Open; end; with ADOQueryCmd do begin if Trim(FBCIID) = '' then begin Append; FieldByName('CTID').Value := Trim(FCTID); FieldByName('FILLID').Value := Trim(DCode); FieldByName('FILLER').Value := Trim(DName); FieldByName('FILLTIME').Value := SGetServerDateTime(ADOQueryTemp); end else begin Edit; FieldByName('EDITER').Value := Trim(DName); FieldByName('EDITTIME').Value := SGetServerDateTime(ADOQueryTemp); end; FieldByName('BCIID').Value := Trim(MaxBCIID); if trim(C_Code.Text) = '自动生成' then C_Code.Text := Trim(MaxBCIID); RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel1, 2); Post; end; // with ADOQueryCmd do // begin // Close; // SQL.Clear; // sql.Add('delete BS_Cloth_Info_Link where ToID=''' + Trim(MaxBCIID) + ''''); // ExecSQL; // end; // with ADOQueryCmd do // begin // Close; // SQL.Clear; // sql.Add('select * from BS_Cloth_Info_Link where 1=2'); // Open; // end; // with ADOQueryCmd do // begin // Append; // FieldByName('ToID').Value := Trim(MaxBCIID); // FieldByName('FromID').Value := Trim(C_FromName.TxtCode); // Post; // end; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select count(*) as AA from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + ''''); Open; if FieldByName('AA').AsInteger > 1 then begin ADOQueryCmd.Connection.RollbackTrans; Result := False; Application.MessageBox('编号重复！', '提示', 0); Exit; end; end; with ADOQueryCmd do begin Close; SQL.Clear; sql.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(FBCIID) + ''''); Open; end; with ADOQueryCmd do begin if Trim(FBCIID) = '' then begin Append; end else begin Edit; end; FieldByName('BCIID').Value := Trim(MaxBCIID); RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel2, 2); RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel3, 2); RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel4, 2); RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel5, 2); RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel6, 2); RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel7, 2); Post; end; //////////////// 保存主表 ////////////////////// /// /// /// /// /// ///////////////// 保存工序子表 ////////////////////// with CDS_GX do begin First; while not Eof do begin if Trim(CDS_GX.fieldbyname('GXID').AsString) = '' then begin if GetLSNo(ADOQueryTemp, maxgx, 'GX', 'Bs_Cloth_GX', 5, 1) = False then begin ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('取配比子流水号失败！', '提示', 0); Exit; end; end else begin maxgx := Trim(CDS_GX.fieldbyname('GXID').AsString); end; with ADOQueryCmd do begin Close; SQL.Clear; sql.Add('select * from Bs_Cloth_GX where '); sql.Add(' GXID=''' + Trim(maxgx) + ''''); Open; end; with ADOQueryCmd do begin if Trim(CDS_GX.fieldbyname('GXID').AsString) = '' then begin Append; end else begin Edit; end; FieldByName('BCIID').Value := Trim(MaxBCIID); FieldByName('GXID').Value := Trim(maxgx); RTSetSaveDataCDS(ADOQueryCmd, Tv4, CDS_GX, 'Bs_Cloth_GX', 0); Post; end; CDS_GX.Edit; CDS_GX.FieldByName('BCIID').Value := Trim(MaxBCIID); CDS_GX.FieldByName('GXID').Value := Trim(maxgx); Next; end; end; //////////////// 保存工序子表 ////////////////////// ////////////////// 保存防水子表 ////////////////////// with CDS_1 do begin First; while not Eof do begin if Trim(CDS_1.fieldbyname('BCPID').AsString) = '' then begin if GetLSNo(ADOQueryTemp, Maxid1, 'FS', 'Bs_Cloth_GY_Sub', 5, 1) = False then begin ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('取配比子流水号失败！', '提示', 0); Exit; end; end else begin Maxid1 := Trim(CDS_1.fieldbyname('BCPID').AsString); end; with ADOQueryCmd do begin Close; SQL.Clear; sql.Add('select * from Bs_Cloth_GY_Sub where '); sql.Add(' BCPID=''' + Trim(Maxid1) + ''''); Open; end; with ADOQueryCmd do begin if Trim(CDS_1.fieldbyname('BCPID').AsString) = '' then begin Append; end else begin Edit; end; FieldByName('GYType').Value := '防水'; FieldByName('BCIID').Value := Trim(MaxBCIID); FieldByName('BCPID').Value := Trim(Maxid1); RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_GY_Sub', 0); Post; end; CDS_1.Edit; CDS_1.FieldByName('BCIID').Value := Trim(MaxBCIID); CDS_1.FieldByName('BCPID').Value := Trim(Maxid1); Next; end; end; //////////////// 保存子表 ////////////////////// ////////////////// 保存发泡子表 ////////////////////// with CDS_2 do begin First; while not Eof do begin if Trim(CDS_2.fieldbyname('BCPID').AsString) = '' then begin if GetLSNo(ADOQueryTemp, maxid2, 'FP', 'Bs_Cloth_GY_Sub', 5, 1) = False then begin ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('取配比子流水号失败！', '提示', 0); Exit; end; end else begin maxid2 := Trim(CDS_2.fieldbyname('BCPID').AsString); end; with ADOQueryCmd do begin Close; SQL.Clear; sql.Add('select * from Bs_Cloth_GY_Sub where '); sql.Add(' BCPID=''' + Trim(maxid2) + ''''); Open; end; with ADOQueryCmd do begin if Trim(CDS_2.fieldbyname('BCPID').AsString) = '' then begin Append; end else begin Edit; end; FieldByName('GYType').Value := '发泡'; FieldByName('BCIID').Value := Trim(MaxBCIID); FieldByName('BCPID').Value := Trim(maxid2); RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_2, 'Bs_Cloth_GY_Sub', 0); Post; end; CDS_2.Edit; CDS_2.FieldByName('BCIID').Value := Trim(MaxBCIID); CDS_2.FieldByName('BCPID').Value := Trim(maxid2); Next; end; end; //////////////// 保存发泡子表 ////////////////////// /// /// ////////////////// 保存刮胶子表 ////////////////////// with CDS_3 do begin First; while not Eof do begin if copyInt = 1 then begin CDS_3.Edit; // CDS_GX.fieldbyname('GXID').AsString := ''; // CDS_1.fieldbyname('BCPID').AsString := ''; // CDS_2.fieldbyname('BCPID').AsString := ''; CDS_3.fieldbyname('BCPID').AsString := ''; end; if Trim(CDS_3.fieldbyname('BCPID').AsString) = '' then begin if GetLSNo(ADOQueryTemp, maxid3, 'GJ', 'Bs_Cloth_GY_Sub', 5, 1) = False then begin ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('取配比子流水号失败！', '提示', 0); Exit; end; end else begin maxid3 := Trim(CDS_3.fieldbyname('BCPID').AsString); end; with ADOQueryCmd do begin Close; SQL.Clear; sql.Add('select * from Bs_Cloth_GY_Sub where '); sql.Add(' BCPID=''' + Trim(maxid3) + ''''); Open; end; with ADOQueryCmd do begin if Trim(CDS_3.fieldbyname('BCPID').AsString) = '' then begin Append; end else begin Edit; end; FieldByName('GYType').Value := '刮胶'; FieldByName('BCIID').Value := Trim(MaxBCIID); FieldByName('BCPID').Value := Trim(maxid3); RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Bs_Cloth_GY_Sub', 0); Post; end; CDS_3.Edit; CDS_3.FieldByName('BCIID').Value := Trim(MaxBCIID); CDS_3.FieldByName('BCPID').Value := Trim(maxid3); Next; end; end; //////////////// 保存刮胶子表 ////////////////////// ADOQueryCmd.Connection.CommitTrans; FBCIID := MaxBCIID; Result := True; except Result := False; ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('保存失败!', '提示', 0); end; end; procedure TfrmClothInfoInput.CYJGGYBtnDnClick(Sender: TObject); begin TBtnEditC(Sender).Text := ''; end; procedure TfrmClothInfoInput.TbSaveClick(Sender: TObject); var MC_Code: string; begin if C_Name.Text = '' then begin Application.MessageBox('产品名称不能为空！', '提示', 0); Exit; end; // if trim(C_Code.Text) = '' then // begin // // if GetLSNo(ADOQueryCmd, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then // begin // Application.MessageBox('取最成品编号失败!', '提示', 0); // Exit; // end; // C_Code.Text := MC_Code; // // end; // SetXH(); if SaveData() then begin Application.MessageBox('保存成功！', '提示', 0); ModalResult := 1; end; end; procedure TfrmClothInfoInput.TbFSClick(Sender: TObject); var i: Integer; begin i := CDS_GX.RecordCount; //当前的dataset有多少行记录 i := i + 1; if i > 6 then begin Application.MessageBox('已增至最大行数！', '提示信息', MB_OK); exit; end; if CDS_GX.Locate('GXName', '防水', []) = True then begin Application.MessageBox('已存在防水工序!', '提示', 0); Exit; end; // CopyAddRow(Tv1, CDS_1); with CDS_GX do begin Append; FieldByName('SerialNo').Value := i; FieldByName('GXName').Value := '防水'; Post; end; SetXH(); ArrangeTabsByDataset; end; procedure TfrmClothInfoInput.TbQXClick(Sender: TObject); var i: Integer; begin i := CDS_GX.RecordCount; //当前的dataset有多少行记录 i := i + 1; if i > 6 then begin Application.MessageBox('已增至最大行数！', '提示信息', MB_OK); exit; end; if CDS_GX.Locate('GXName', '清洗', []) = True then begin Application.MessageBox('已存在清洗工序!', '提示', 0); Exit; end; // CopyAddRow(Tv1, CDS_1); with CDS_GX do begin Append; FieldByName('SerialNo').Value := i; FieldByName('GXName').Value := '清洗'; Post; end; SetXH(); ArrangeTabsByDataset; end; procedure TfrmClothInfoInput.TbDXClick(Sender: TObject); var i: Integer; begin i := CDS_GX.RecordCount; //当前的dataset有多少行记录 i := i + 1; if i > 6 then begin Application.MessageBox('已增至最大行数！', '提示信息', MB_OK); exit; end; if CDS_GX.Locate('GXName', '定型', []) = True then begin Application.MessageBox('已存在定型洗工序!', '提示', 0); Exit; end; // CopyAddRow(Tv1, CDS_1); with CDS_GX do begin Append; FieldByName('SerialNo').Value := i; FieldByName('GXName').Value := '定型'; Post; end; SetXH(); ArrangeTabsByDataset; end; procedure TfrmClothInfoInput.TbDXReplaceClick(Sender: TObject); begin FillAllTextEditsWithValue(panel3, '定型烘箱温度', FindLastEditedTextEdit(panel3, '定型烘箱温度')); end; procedure TfrmClothInfoInput.TbFPClick(Sender: TObject); var i: Integer; begin i := CDS_GX.RecordCount; //当前的dataset有多少行记录 i := i + 1; if i > 6 then begin Application.MessageBox('已增至最大行数！', '提示信息', MB_OK); exit; end; if CDS_GX.Locate('GXName', '发泡', []) = True then begin Application.MessageBox('已存在发泡工序!', '提示', 0); Exit; end; // CopyAddRow(Tv1, CDS_1); with CDS_GX do begin Append; FieldByName('SerialNo').Value := i; FieldByName('GXName').Value := '发泡'; Post; end; SetXH(); ArrangeTabsByDataset; end; procedure TfrmClothInfoInput.TbFPReplaceClick(Sender: TObject); begin FillAllTextEditsWithValue(panel5, '发泡烘箱温度', FindLastEditedTextEdit(panel5, '发泡烘箱温度')); end; procedure TfrmClothInfoInput.TbGJClick(Sender: TObject); var i: Integer; begin i := CDS_GX.RecordCount; //当前的dataset有多少行记录 i := i + 1; if i > 6 then begin Application.MessageBox('已增至最大行数！', '提示信息', MB_OK); exit; end; if CDS_GX.Locate('GXName', '刮胶', []) = True then begin Application.MessageBox('已存在刮胶工序!', '提示', 0); Exit; end; // CopyAddRow(Tv1, CDS_1); with CDS_GX do begin Append; FieldByName('SerialNo').Value := i; FieldByName('GXName').Value := '刮胶'; Post; end; SetXH(); ArrangeTabsByDataset; end; procedure TfrmClothInfoInput.TbGJReplaceClick(Sender: TObject); begin FillAllTextEditsWithValue(panel6, '刮胶烘箱温度', FindLastEditedTextEdit(panel6, '刮胶烘箱温度')); end; procedure TfrmClothInfoInput.TbZMClick(Sender: TObject); var i: Integer; begin i := CDS_GX.RecordCount; //当前的dataset有多少行记录 i := i + 1; if i > 6 then begin Application.MessageBox('已增至最大行数！', '提示信息', MB_OK); exit; end; if CDS_GX.Locate('GXName', '轧毛', []) = True then begin Application.MessageBox('已存在轧毛工序!', '提示', 0); Exit; end; // CopyAddRow(Tv1, CDS_1); with CDS_GX do begin Append; FieldByName('SerialNo').Value := i; FieldByName('GXName').Value := '轧毛'; Post; end; SetXH(); ArrangeTabsByDataset; end; procedure TfrmClothInfoInput.TbDeleteClick(Sender: TObject); begin if CDS_GX.IsEmpty then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then Exit; ////////////////////////////////////// 子表更新开始////////////////////// // if Trim(CDS_GX.fieldbyname('GXID').AsString) <> '' then // begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete Bs_Cloth_GY_Sub where BCIID=''' + Trim(CDS_GX.fieldbyname('BCIID').AsString) + ''''); sql.Add('and gyType=''' + Trim(CDS_GX.fieldbyname('gxName').AsString) + ''''); ExecSQL; end; if CDS_gx.fieldByName('gxname').Value = '清洗' then begin //防水子表更新 with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select A.* from Bs_Cloth_GY_sub A '); sql.Add(' where gytype=''防水'' and A.BCIID=''' + Trim(FBCIID) + ''''); Open; end; SCreateCDS(ADOQueryTemp, CDS_1); SInitCDSData(ADOQueryTemp, CDS_1); end else if CDS_gx.fieldByName('gxname').Value = '发泡' then begin //发泡子表更新 with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select A.* from Bs_Cloth_GY_sub A '); sql.Add(' where gytype=''发泡'' and A.BCIID=''' + Trim(FBCIID) + ''''); Open; end; SCreateCDS(ADOQueryTemp, CDS_2); SInitCDSData(ADOQueryTemp, CDS_2); end else if CDS_gx.fieldByName('gxname').Value = '刮胶' then begin //刮胶子表更新 with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select A.* from Bs_Cloth_GY_sub A '); sql.Add(' where gytype=''刮胶'' and A.BCIID=''' + Trim(FBCIID) + ''''); Open; end; SCreateCDS(ADOQueryTemp, CDS_3); SInitCDSData(ADOQueryTemp, CDS_3); // end; end; // else // begin // CDS_GX.Delete; // end; ////////////////////////////////////// 子表更新结束////////////////////// /////////////////////////主表更新开始///////////////////////////////// with ADOQueryCmd do begin Close; sql.Clear; sql.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(CDS_GX.fieldbyname('BCIID').AsString) + ''''); open; end; if CDS_gx.fieldByName('gxname').Value = '清洗' then begin SClearData(panel2, 2); qx_UnpackingMethod.Text := ''; qx_RollMethod.Text := ''; end else if CDS_gx.fieldByName('gxname').Value = '定型' then begin SClearData(panel3, 2); dx_UnpackingMethod.Text := ''; dx_RollMethod.Text := ''; dx_OpenAmplitude.Text := ''; end else if CDS_gx.fieldByName('gxname').Value = '防水' then begin SClearData(panel4, 2); fs_UnpackingMethod.Text := ''; fs_RollMethod.Text := ''; fs_OpenAmplitude.Text := ''; end else if CDS_gx.fieldByName('gxname').Value = '发泡' then begin SClearData(panel5, 2); fp_UnpackingMethod.Text := ''; fp_RollMethod.Text := ''; fp_OpenAmplitude.Text := ''; end else if CDS_gx.fieldByName('gxname').Value = '刮胶' then begin SClearData(panel6, 2); gj_UnpackingMethod.Text := ''; gj_RollMethod.Text := ''; gj_OpenAmplitude.Text := ''; end else if CDS_gx.fieldByName('gxname').Value = '轧毛' then begin SClearData(panel7, 2); zm_UnpackingMethod.Text := ''; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete Bs_Cloth_GX where GXID=''' + Trim(CDS_GX.fieldbyname('GXID').AsString) + ''''); ExecSQL; end; // showMessage(); CDS_GX.Delete; SetXH(); if Trim(CDS_GX.fieldbyname('GXID').AsString) <> '' then begin SaveData(); end; /////////////////////////////////主表更新结束////////////////////////////////// ArrangeTabsByDataset; end; procedure TfrmClothInfoInput.TbAdd1Click(Sender: TObject); begin with CDS_1 do begin Append; CDS_1.FieldByName('serialno').Value := CDS_1.RecordCount + 1; CDS_1.FieldByName('fs_unit').Value := '%'; Post; end; end; procedure TfrmClothInfoInput.TbAdd2Click(Sender: TObject); begin with CDS_2 do begin Append; CDS_2.FieldByName('serialno').Value := CDS_2.RecordCount + 1; CDS_2.FieldByName('fp_unit').Value := '%'; Post; end; end; procedure TfrmClothInfoInput.TbAdd3Click(Sender: TObject); begin with CDS_3 do begin Append; CDS_3.FieldByName('serialno').Value := CDS_3.RecordCount + 1; CDS_3.FieldByName('gj_unit').Value := '%'; Post; end; end; procedure TfrmClothInfoInput.TbDel1Click(Sender: TObject); var i: Integer; begin if not CDS_1.IsEmpty then begin if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) = IDYES then begin if Trim(CDS_1.fieldbyname('BCPID').AsString) <> '' then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete BS_Cloth_GY_Sub where BCPID=''' + Trim(CDS_1.fieldbyname('BCPID').AsString)); ExecSQL; end; end; CDS_1.Delete; end else exit; i := 0; CDS_1.First; while not CDS_1.Eof do begin i := i + 1; CDS_1.Edit; CDS_1.fieldByName('serialno').value := i; CDS_1.Post; CDS_1.Next; end; end else begin Application.MessageBox('无可删除数据!', '提示', 0); Exit; end; end; procedure TfrmClothInfoInput.TbDel2Click(Sender: TObject); var i: Integer; begin if not CDS_3.IsEmpty then begin if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) = IDYES then begin if Trim(CDS_3.fieldbyname('BCPID').AsString) <> '' then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete BS_Cloth_GY_Sub where BCPID=''' + Trim(CDS_3.fieldbyname('BCPID').AsString) + ''''); ExecSQL; end; end; CDS_3.Delete; end else exit; i := 0; CDS_3.First; while not CDS_3.Eof do begin i := i + 1; CDS_3.Edit; CDS_3.fieldByName('serialno').value := i; CDS_3.Post; CDS_3.Next; end; end else begin Application.MessageBox('无可删除数据!', '提示', 0); Exit; end; end; procedure TfrmClothInfoInput.TbDel3Click(Sender: TObject); var i: Integer; begin if not CDS_3.IsEmpty then begin if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) = IDYES then begin if Trim(CDS_3.fieldbyname('BCPID').AsString) <> '' then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete BS_Cloth_GY_Sub where BCPID=''' + Trim(CDS_3.fieldbyname('BCPID').AsString) + ''''); ExecSQL; end; end; CDS_3.Delete; end else exit; i := 0; CDS_3.First; while not CDS_3.Eof do begin i := i + 1; CDS_3.Edit; CDS_3.fieldByName('serialno').value := i; CDS_3.Post; CDS_3.Next; end; end else begin Application.MessageBox('无可删除数据!', '提示', 0); Exit; end; end; procedure TfrmClothInfoInput.C_FromNameBtnUpClick(Sender: TObject); begin // try // frmClothInfoSel := TfrmClothInfoSel.Create(Application); // with frmClothInfoSel do // begin // FCTType := '坯布'; // if ShowModal = 1 then // begin // C_FromName.TxtCode := Trim(CDS_1.fieldbyname('BCIID').AsString); // C_FromName.Text := Trim(CDS_1.fieldbyname('C_Name').AsString); // end; // end; // finally // frmClothInfoSel.Free; // end; end; procedure TfrmClothInfoInput.TbCPReplaceClick(Sender: TObject); begin FillAllTextEditsWithValue(panel2, '清洗水温', FindLastEditedTextEdit(panel2, '清洗水温')); end; //function TfrmClothInfoInput.FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string; //var // i: Integer; // AControl: TControl; //begin // Result := ''; // for i := 0 to AParent.ControlCount - 1 do // begin // AControl := AParent.Controls[i]; // if (AControl is TcxTextEdit) and ((AControl as TcxTextEdit).Hint = AHint) and ((AControl as TcxTextEdit).Text <> '') then // 仅检查非空输入框 // begin // Result := (AControl as TcxTextEdit).text; // 返回最后一个非空控件（简单实现） // end; // end; //end; function TfrmClothInfoInput.FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string; var i, j: Integer; AControl: TControl; SortedControls: TList; TempControl: TControl; begin Result := ''; // 如果没有子控件，直接返回空 if AParent.ControlCount = 0 then Exit; // 使用 TList 存储控件（兼容旧版 Delphi） SortedControls := TList.Create; try // 将所有子控件添加到列表 for i := 0 to AParent.ControlCount - 1 do SortedControls.Add(AParent.Controls[i]); // 手动排序：按 Top（Y坐标）和 Left（X坐标）升序排列 for i := 0 to SortedControls.Count - 1 do begin for j := i + 1 to SortedControls.Count - 1 do begin // 比较两个控件的 Top 和 Left if (TControl(SortedControls[i]).Top > TControl(SortedControls[j]).Top) or ((TControl(SortedControls[i]).Top = TControl(SortedControls[j]).Top) and (TControl(SortedControls[i]).Left > TControl(SortedControls[j]).Left)) then begin // 交换位置 TempControl := TControl(SortedControls[i]); SortedControls[i] := SortedControls[j]; SortedControls[j] := TempControl; end; end; end; // 遍历排序后的控件 for i := 0 to SortedControls.Count - 1 do begin AControl := TControl(SortedControls[i]); if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl).Text <> '') then begin Result := TcxTextEdit(AControl).Text; // 最后一个符合条件的会被保留 end; end; finally SortedControls.Free; end; end; procedure TfrmClothInfoInput.FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); // 可选：排除特定控件 var i: Integer; AControl: TControl; ATextEdit: TcxTextEdit; begin for i := 0 to AParent.ControlCount - 1 do begin AControl := AParent.Controls[i]; if (AControl is TcxTextEdit) and ((AControl as TcxTextEdit).Text = '') then begin ATextEdit := AControl as TcxTextEdit; if (ATextEdit.Hint = AHint) and (ATextEdit <> AExclude) then ATextEdit.Text := AValue; end; end; end; procedure TfrmClothInfoInput.ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil); var i: Integer; AControl: TControl; begin for i := 0 to AParent.ControlCount - 1 do begin AControl := AParent.Controls[i]; // 检查是否是 TcxTextEdit，并且 Hint 匹配，且不是排除的控件 if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl) <> AExclude) then begin TcxTextEdit(AControl).Text := ''; // 直接清空 end; end; end; procedure TfrmClothInfoInput.cxButton1Click(Sender: TObject); begin ClearAllTextEditsByHint(panel4, '防水烘箱温度'); end; procedure TfrmClothInfoInput.cxButton2Click(Sender: TObject); begin ClearAllTextEditsByHint(panel2, '清洗水温'); end; procedure TfrmClothInfoInput.cxButton3Click(Sender: TObject); begin ClearAllTextEditsByHint(panel3, '定型烘箱温度'); end; procedure TfrmClothInfoInput.cxButton4Click(Sender: TObject); begin ClearAllTextEditsByHint(panel5, '发泡烘箱温度'); end; procedure TfrmClothInfoInput.cxButton5Click(Sender: TObject); begin ClearAllTextEditsByHint(panel6, '刮胶烘箱温度'); end; procedure TfrmClothInfoInput.TbFSReplaceClick(Sender: TObject); begin FillAllTextEditsWithValue(panel4, '防水烘箱温度', FindLastEditedTextEdit(panel4, '防水烘箱温度')); end; procedure TfrmClothInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; SelectNext(ActiveControl as TWinControl, True, True); end; end; procedure TfrmClothInfoInput.C_WidthBtnDnClick(Sender: TObject); begin TBtnEditC(Sender).Text := ''; TBtnEditC(Sender).TxtCode := ''; end; procedure TfrmClothInfoInput.C_WidthBtnUpClick(Sender: TObject); var fsj: string; FWZ: Integer; begin fsj := Trim(TEdit(Sender).Hint); FWZ := Pos('/', fsj); try frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin flag := Copy(fsj, 1, FWZ - 1); flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); if ShowModal = 1 then begin TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally frmZDYHelp.Free; end; end; procedure TfrmClothInfoInput.TbUpFileClick(Sender: TObject); begin // if trim(C_Code.Text) = '' then // Exit; // try // frmAttachmentUpload := TfrmAttachmentUpload.Create(Application); // with frmAttachmentUpload do // begin // FEditAuthority := True; // fkeyNO := trim(C_Code.Text); // fType := '产品品档案'; // if ShowModal = 1 then // begin // // end; // end; // finally // frmAttachmentUpload.Free; // end; end; procedure TfrmClothInfoInput.Tv11fs_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmProductInfoSel := TfrmProductInfoSel.Create(Application); with frmProductInfoSel do begin FSTKName := '助剂'; if ShowModal = 1 then begin with Self.CDS_1 do begin Edit; FieldByName('fs_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value; FieldByName('fs_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value; end; end; end; finally frmProductInfoSel.Free; end; end; procedure TfrmClothInfoInput.Tv11fs_unitPropertiesEditValueChanged(Sender: TObject); var s: string; begin s := TcxTextEdit(Sender).EditingText; if (s <> '') and (s[Length(s)] <> '%') then begin Tv1.Controller.FocusedColumn.EditValue := s + '%'; end; end; procedure TfrmClothInfoInput.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin // try // frmZDYHelp := TfrmZDYHelp.Create(Application); // with frmZDYHelp do // begin // flag := 'FtyType'; // flagname := '类型'; // if ShowModal = 1 then // begin // CDS_1.Edit; // CDS_1.fieldbyname('FtyType').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); // CDS_1.Post; // end; // end; // finally // frmZDYHelp.Free; // end; // tv1.Controller.EditingController.ShowEdit(); end; procedure TfrmClothInfoInput.Tv2fp_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmProductInfoSel := TfrmProductInfoSel.Create(Application); with frmProductInfoSel do begin FSTKName := '助剂'; if ShowModal = 1 then begin with Self.CDS_2 do begin Edit; FieldByName('fp_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value; FieldByName('fp_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value; end; end; end; finally frmProductInfoSel.Free; end; end; procedure TfrmClothInfoInput.Tv2fp_unitPropertiesEditValueChanged(Sender: TObject); var s: string; begin s := TcxTextEdit(Sender).EditingText; if (s <> '') and (s[Length(s)] <> '%') then begin Tv2.Controller.FocusedColumn.EditValue := s + '%'; end; end; procedure TfrmClothInfoInput.Tv3gj_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmProductInfoSel := TfrmProductInfoSel.Create(Application); with frmProductInfoSel do begin FSTKName := '助剂'; if ShowModal = 1 then begin with Self.CDS_3 do begin Edit; FieldByName('gj_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value; FieldByName('gj_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value; end; end; end; finally frmProductInfoSel.Free; end; end; procedure TfrmClothInfoInput.Tv3gj_unitPropertiesEditValueChanged(Sender: TObject); var s: string; begin s := TcxTextEdit(Sender).EditingText; if (s <> '') and (s[Length(s)] <> '%') then begin Tv3.Controller.FocusedColumn.EditValue := s + '%'; end; end; end.