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; 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_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; 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; 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); 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; {$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); if ADOQueryTemp.IsEmpty then begin for i := 0 to 3 do begin CDS_1.Append; CDS_1.FieldByName('serialno').Value := i + 1; CDS_1.posT; end; 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_2); SInitCDSData(ADOQueryTemp, CDS_2); if ADOQueryTemp.IsEmpty then begin for i := 0 to 7 do begin CDS_2.Append; CDS_2.FieldByName('serialno').Value := i + 1; CDS_2.posT; end; 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_3); SInitCDSData(ADOQueryTemp, CDS_3); if ADOQueryTemp.IsEmpty then begin for i := 0 to 7 do begin CDS_3.Append; CDS_3.FieldByName('serialno').Value := i + 1; CDS_3.posT; end; end; 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 := ''; // BCIID.text := ''; // C_Code.text := ''; // end; 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; // 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; // 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; // 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; // 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; // 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; // 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_GX where GXID=''' + Trim(CDS_GX.fieldbyname('GXID').AsString) + ''''); ExecSQL; end; end; CDS_GX.Delete; SetXH(); ArrangeTabsByDataset; 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.