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;

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;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton1: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: 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;
    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 ToolButton2Click(Sender: TObject);
    procedure SetXH();
    procedure ToolButton3Click(Sender: TObject);
    procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(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);
  private
    canshu1: string;
    Fint: Integer;
    procedure InitGrid();
    procedure ArrangeTabsByDataset;
    function SaveData(): Boolean;
    { 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);
begin
  
  InitGrid();
  ArrangeTabsByDataset;
  if CopyInt = 1 then
  begin
    FBCIID := '';
    C_Code.text := '';
    C_Name.text := '';
  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 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.ToolButton1Click(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.ToolButton2Click(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.ToolButton3Click(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.ToolButton4Click(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.ToolButton5Click(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.ToolButton6Click(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.ToolButton7Click(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;
  //防水子表更新
  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);
//  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;
  if Trim(CDS_GX.fieldbyname('GXID').AsString) <> '' then
  begin
    SaveData();
  end;
/////////////////////////////////主表更新结束//////////////////////////////////
  with ADOQueryCmd do
  begin
    Close;
    sql.Clear;
    sql.Add('delete Bs_Cloth_GX where GXID=''' + Trim(CDS_GX.fieldbyname('GXID').AsString) + '''');
    ExecSQL;
  end;
  CDS_GX.Delete;
  SetXH();
  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.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.