D10sxYilanbuyi/A02基础产品管理/U_ClothInfoInput.pas

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;

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;
    Tv11fs_unit: TcxGridDBColumn;
    Tv11fs_rate: TcxGridDBColumn;
    Tv11fs_precautions: TcxGridDBColumn;
    Tv11fs_meter: TcxGridDBColumn;
    Tv11fs_useGlub: TcxGridDBColumn;
    Tv11fs_waterDistribution: TcxGridDBColumn;
    Tv11fs_useOneMeter: TcxGridDBColumn;
    Tv11fs_useOneGlub: 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;
    Tv2fp_useOneMeter: TcxGridDBColumn;
    Tv2fp_useOneGlub: 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;
    Tv3gj_useOneMeter: TcxGridDBColumn;
    Tv3gj_useOneGlub: TcxGridDBColumn;
    cxGridLevel3: TcxGridLevel;
    Panel1: TPanel;
    C_GramWeight: TcxTextEdit;
    C_Name: 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_RollMethod: TcxTextEdit;
    qx_Add_Name: TcxTextEdit;
    qx_Precautions: TcxTextEdit;
    qx_temperature4: TcxTextEdit;
    qx_temperature2: TcxTextEdit;
    qx_temperature1: TcxTextEdit;
    qx_temperature3: TcxTextEdit;
    qx_temperature5: TcxTextEdit;
    qx_UnpackingMethod: 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_UnpackingMethod: TcxTextEdit;
    dx_OpenAmplitude: TcxTextEdit;
    dx_RosePower: TcxTextEdit;
    dx_RollMethod: 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_UnpackingMethod: TcxTextEdit;
    fs_OpenAmplitude: TcxTextEdit;
    fs_RosePower: TcxTextEdit;
    fs_RollMethod: 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_UnpackingMethod: TcxTextEdit;
    fp_OpenAmplitude: TcxTextEdit;
    fp_RosePower: TcxTextEdit;
    fp_RollMethod: 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_UnpackingMethod: TcxTextEdit;
    gj_OpenAmplitude: TcxTextEdit;
    gj_RosePower: TcxTextEdit;
    gj_RollMethod: 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;
    <EFBFBD><EFBFBD>ë<EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 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_RollMethod: TcxTextEdit;
    zm_inoutSpeed: TcxTextEdit;
    zm_needle: TcxTextEdit;
    zm_Precautions: TcxTextEdit;
    zm_UnpackingMethod: TcxTextEdit;
    zm_frequency: TcxTextEdit;
    zm_wagCloth: TcxTextEdit;
    zm_WidthAmplitude: TcxTextEdit;
    cxLabel148: TcxLabel;
    qx_Add_Number: TcxTextEdit;
    cxLabel149: TcxLabel;
    cxLabel150: TcxLabel;
    C_Code: TcxTextEdit;
    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);
  private
    canshu1: string;
    Fint: Integer;
    procedure InitGrid();
    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;

{$R *.dfm}
procedure TfrmClothInfoInput.SetXH();
var
  i: Integer;
begin
  with CDS_1 do
  begin
    First;
    i := 1;
    while not Eof do
    begin
      with CDS_1 do
      begin
        Edit;
        FieldByName('XHNoTemp').Value := i;
        Post;
      end;
      i := i + 1;
      Next;
    end;
  end;

  with CDS_1 do
  begin
    CDS_1.IndexFieldNames := '';
    First;
    i := 1;
    while not Eof do
    begin
      with CDS_1 do
      begin
        Edit;
        FieldByName('SerialNo').Value := FieldByName('XHNoTemp').AsInteger;
        Post;
      end;
      i := i + 1;
      Next;
    end;
    CDS_1.IndexFieldNames := 'SerialNo';
  end;
end;

procedure TfrmClothInfoInput.InitGrid();
begin

  with ADOQueryTemp do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from V_BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
    Open;
  end;

  SCSHData(ADOQueryTemp, panel1, 2);
  SCSHData(ADOQueryTemp, Panel1, 0);
//  C_FromName.TxtCode := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString);
//  C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString);

  with ADOQueryTemp do
  begin
    Close;
    SQL.Clear;
    sql.Add(' select * from Bs_Cloth_Process ');
    sql.Add(' where BCIID=''' + Trim(FBCIID) + '''');
    sql.Add(' order by SerialNo ');
    Open;
  end;
  SCreateCDS(ADOQueryTemp, CDS_1);
  SInitCDSData(ADOQueryTemp, CDS_1);

end;

procedure TfrmClothInfoInput.FormShow(Sender: TObject);
begin
  InitGrid();
//  if CopyInt = 1 then
//  begin
//    FBCIID := '';
//    BCIID.text := '';
//    C_Code.text := '';
//  end;
end;

procedure TfrmClothInfoInput.TBCloseClick(Sender: TObject);
begin
  Close;
end;

function TfrmClothInfoInput.SaveData(): Boolean;
var
  MaxBCIID, MaxProcessID, MaxBCPID: string;
begin
  try
    ADOQueryCmd.Connection.BeginTrans;
////////////////       <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>          //////////////////////
    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('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 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('<27><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>', '<27><>ʾ', 0);
        Exit;
      end;
    end;





    if Trim(FProcessID) = '' then
    begin
      if GetLSNo(ADOQueryCmd, MaxProcessID, 'GY', 'Bs_Cloth_GY_Main', 4, 1) = False then
      begin
        Result := False;
        ADOQueryCmd.Connection.RollbackTrans;
        Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
        Exit;
      end;
    end
    else
    begin
      MaxProcessID := Trim(FProcessID);
    end;
    with ADOQueryCmd do
    begin
      Close;
      SQL.Clear;
      sql.Add('select * from Bs_Cloth_GY_Main where ProcessID=''' + Trim(FProcessID) + '''');
      Open;
    end;
    with ADOQueryCmd do
    begin

      FieldByName('ProcessID').Value := Trim(MaxProcessID);

      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;

////////////////       <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>          //////////////////////
///
//////////////////       <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>          //////////////////////
    with CDS_1 do
    begin
      First;
      while not Eof do
      begin
        if Trim(CDS_1.fieldbyname('BCPID').AsString) = '' then
        begin
          if GetLSNo(ADOQueryCmd, MaxBCPID, 'P', 'Bs_Cloth_GY_Sub', 4, 1) = False then
          begin
            Result := False;
            ADOQueryCmd.Connection.RollbackTrans;
            Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
            Exit;
          end;
        end
        else
        begin
          MaxBCPID := Trim(CDS_1.fieldbyname('BCPID').AsString);
        end;
        with ADOQueryCmd do
        begin
          Close;
          SQL.Clear;
          sql.Add('select * from Bs_Cloth_GY_Sub where BCPID=''' + Trim(MaxBCPID) + '''');
          Open;
        end;
        with ADOQueryCmd do
        begin
          if ADOQueryCmd.IsEmpty then
            Append
          else
            Edit;
          RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_GY_Sub', 0);
          RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_1, 'Bs_Cloth_GY_Sub', 0);
          RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_1, 'Bs_Cloth_GY_Sub', 0);
          FieldByName('BCPID').Value := Trim(MaxBCPID);
          FieldByName('BCIID').Value := Trim(MaxBCIID);

          Post;
        end;
        with CDS_1 do
        begin
          Edit;
          FieldByName('BCPID').Value := Trim(MaxBCPID);
          Post;
        end;
        Next;
      end;
    end;
////////////////       <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>          //////////////////////
///
///
///
    ADOQueryCmd.Connection.CommitTrans;
    FBCIID := MaxBCIID;
    Result := True;
  except
    Result := False;
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 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('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 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('ȡ<><C8A1><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
//      Exit;
//    end;
//    C_Code.Text := MC_Code;
//
//  end;
  SetXH();
  if SaveData() then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
    ModalResult := 1;
  end;
end;

procedure TfrmClothInfoInput.ToolButton2Click(Sender: TObject);
var
  i: Integer;
begin

  i := CDS_1.RecordCount;      //<2F><>ǰ<EFBFBD><C7B0>dataset<65>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>м<EFBFBD>¼
  i := i + 1;
//  CopyAddRow(Tv1, CDS_1);
  with CDS_1 do
  begin
    Edit;
    FieldByName('SerialNo').Value := i;
    FieldByName('FtyWastage').Value := 0;
    Post;
  end;
  SetXH();
end;

procedure TfrmClothInfoInput.ToolButton3Click(Sender: TObject);
begin
  if CDS_1.IsEmpty then
    Exit;
  if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
    Exit;

  if Trim(CDS_1.fieldbyname('BCPID').AsString) <> '' then
  begin
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('delete Bs_Cloth_Process where BCPID=''' + Trim(CDS_1.fieldbyname('BCPID').AsString) + '''');
      ExecSQL;
    end;
  end;
  CDS_1.Delete;

  SetXH();
end;

procedure TfrmClothInfoInput.C_FromNameBtnUpClick(Sender: TObject);
begin
//  try
//    frmClothInfoSel := TfrmClothInfoSel.Create(Application);
//    with frmClothInfoSel do
//    begin
//      FCTType := '<27><><EFBFBD><EFBFBD>';
//      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 := '<27><>ƷƷ<C6B7><C6B7><EFBFBD><EFBFBD>';
//      if ShowModal = 1 then
//      begin
//
//      end;
//    end;
//  finally
//    frmAttachmentUpload.Free;
//  end;
end;

procedure TfrmClothInfoInput.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
//  try
//    frmZDYHelp := TfrmZDYHelp.Create(Application);
//    with frmZDYHelp do
//    begin
//      flag := 'FtyType';
//      flagname := '<27><><EFBFBD><EFBFBD>';
//      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;

end.