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; 轧毛工艺: 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; //////////////// 保存主表 ////////////////////// 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; 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('取最大号失败！', '提示', 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; //////////////// 保存主表 ////////////////////// /// ////////////////// 保存子表 ////////////////////// 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('取最大号失败！', '提示', 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; //////////////// 保存子表 ////////////////////// /// /// /// 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.ToolButton2Click(Sender: TObject); var i: Integer; begin i := CDS_1.RecordCount; //当前的dataset有多少行记录 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('确定要删除数据吗？', '提示', 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 := '坯布'; // 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.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; end.