unit U_DyeSimpleTechnicsList; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Menus, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxScrollbarAnnotations, cxContainer, cxDropDownEdit, cxLabel, cxButtons, cxMemo; type TfrmDyeSimpleTechnicsList = class(TfrmBaseList) ToolBar1: TToolBar; TBRafresh: TToolButton; TBDel: TToolButton; TBClose: TToolButton; ADOQueryTemp: TADOQuery; ADOQueryCmd: TADOQuery; Panel1: TPanel; ToolButton2: TToolButton; Label1: TLabel; DTMName: TEdit; ADOQueryMain: TADOQuery; Label3: TLabel; DTMNo: TEdit; GPM_2: TcxGridPopupMenu; DS_2: TDataSource; CDS_2: TClientDataSet; cxTabControl1: TcxTabControl; Tchk: TToolButton; TNochk: TToolButton; DS_PsType: TDataSource; CDS_PSType: TClientDataSet; ADOQuery1: TADOQuery; GPM_1: TcxGridPopupMenu; ToolButton3: TToolButton; ToolButton1: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; Panel2: TPanel; cxGrid2: TcxGrid; Tv2: TcxGridDBTableView; v2Ssel: TcxGridDBColumn; v2GYNO: TcxGridDBColumn; v2GYName: TcxGridDBColumn; v2GYGX: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; Splitter1: TSplitter; ScrollBox1: TScrollBox; Panel_GJ: TPanel; Label9: TLabel; cxLabel240: TcxLabel; gj_speed: TcxTextEdit; cxLabel278: TcxLabel; gj_number: TcxTextEdit; TbGJReplace2: TcxButton; TbGJClear2: TcxButton; cxLabel234: TcxLabel; cxLabel236: TcxLabel; cxLabel237: TcxLabel; cxLabel238: TcxLabel; cxLabel247: TcxLabel; cxLabel249: TcxLabel; cxLabel250: TcxLabel; cxLabel251: TcxLabel; cxLabel252: TcxLabel; cxLabel253: TcxLabel; cxLabel273: TcxLabel; gj_temperature1: TcxTextEdit; gj_temperature10: TcxTextEdit; gj_temperature11: TcxTextEdit; gj_temperature2: TcxTextEdit; gj_temperature3: TcxTextEdit; gj_temperature4: TcxTextEdit; gj_temperature5: TcxTextEdit; gj_temperature6: TcxTextEdit; gj_temperature7: TcxTextEdit; gj_temperature8: TcxTextEdit; gj_temperature9: TcxTextEdit; cxGrid8: TcxGrid; TvGJ: TcxGridDBTableView; cxGridDBColumn24: TcxGridDBColumn; cxGridDBColumn25: TcxGridDBColumn; cxGridDBColumn26: TcxGridDBColumn; cxGridDBColumn27: TcxGridDBColumn; cxGridDBColumn28: TcxGridDBColumn; cxGridLevel7: TcxGridLevel; cxLabel9: TcxLabel; Panel_FP: TPanel; Label10: TLabel; cxLabel290: TcxLabel; fp_speed: TcxTextEdit; fp_gjNumber: TcxTextEdit; cxLabel279: TcxLabel; TbFPReplace2: TcxButton; TbFPClear2: TcxButton; cxLabel284: TcxLabel; cxLabel286: TcxLabel; cxLabel287: TcxLabel; cxLabel288: TcxLabel; cxLabel297: TcxLabel; cxLabel299: TcxLabel; cxLabel300: TcxLabel; cxLabel301: TcxLabel; cxLabel302: TcxLabel; cxLabel303: TcxLabel; cxLabel323: TcxLabel; fp_temperature1: TcxTextEdit; fp_temperature10: TcxTextEdit; fp_temperature11: TcxTextEdit; fp_temperature2: TcxTextEdit; fp_temperature3: TcxTextEdit; fp_temperature4: TcxTextEdit; fp_temperature5: TcxTextEdit; fp_temperature6: TcxTextEdit; fp_temperature7: TcxTextEdit; fp_temperature8: TcxTextEdit; fp_temperature9: TcxTextEdit; cxGrid6: TcxGrid; TvFP: TcxGridDBTableView; cxGridDBColumn14: TcxGridDBColumn; cxGridDBColumn15: TcxGridDBColumn; cxGridDBColumn16: TcxGridDBColumn; cxGridDBColumn17: TcxGridDBColumn; cxGridDBColumn18: TcxGridDBColumn; cxGridLevel5: TcxGridLevel; cxLabel8: TcxLabel; Panel_zm: TPanel; Label2: TLabel; Label11: TLabel; zm_inout: TcxTextEdit; zm_style: TcxComboBox; cxLabel336: TcxLabel; zm_mainElec: TcxTextEdit; cxLabel344: TcxLabel; zm_needleHigh: TcxTextEdit; cxLabel342: TcxLabel; Panel_ccqx: TPanel; Label4: TLabel; cxLabel113: TcxLabel; ccqx_speed: TcxTextEdit; ccqx_temperature1: TcxTextEdit; ccqx_temperature2: TcxTextEdit; ccqx_temperature3: TcxTextEdit; ccqx_temperature4: TcxTextEdit; ccqx_temperature5: TcxTextEdit; ccqx_temperature6: TcxTextEdit; TbCCQXReplace: TcxButton; TbccqxClear: TcxButton; cxLabel41: TcxLabel; cxLabel42: TcxLabel; cxLabel45: TcxLabel; cxLabel46: TcxLabel; cxLabel47: TcxLabel; cxLabel48: TcxLabel; cxGrid4: TcxGrid; TvCCQX: TcxGridDBTableView; cxGridDBColumn2: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn; Tv1ccqx_use: TcxGridDBColumn; Tv1ccqx_rate: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn; cxGridLevel4: TcxGridLevel; cxLabel1: TcxLabel; Panel_rgqx: TPanel; Label5: TLabel; cxLabel114: TcxLabel; cxLabel150: TcxLabel; cxLabel165: TcxLabel; rgqx_daoSet: TcxTextEdit; rgqx_speed: TcxTextEdit; rgqx_waterTemper: TcxTextEdit; cxGrid3: TcxGrid; TvRG: TcxGridDBTableView; cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn7: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn; cxGridLevel2: TcxGridLevel; cxLabel2: TcxLabel; Panel_jgqx: TPanel; Label6: TLabel; cxLabel340: TcxLabel; jgqx_keepTemper: TcxTextEdit; jgqx_keepTime: TcxTextEdit; cxLabel347: TcxLabel; cxLabel173: TcxLabel; cxLabel334: TcxLabel; jgqx_upperSpeed: TcxTextEdit; jgqx_downSpeed: TcxTextEdit; cxGrid5: TcxGrid; TvJG: TcxGridDBTableView; cxGridDBColumn9: TcxGridDBColumn; cxGridDBColumn10: TcxGridDBColumn; cxGridDBColumn11: TcxGridDBColumn; cxGridDBColumn12: TcxGridDBColumn; cxGridDBColumn13: TcxGridDBColumn; cxGridLevel3: TcxGridLevel; cxLabel3: TcxLabel; Panel_dx: TPanel; Label7: TLabel; cxLabel4: TcxLabel; dx_speed: TcxTextEdit; cxLabel21: TcxLabel; cxLabel23: TcxLabel; cxLabel24: TcxLabel; cxLabel25: TcxLabel; cxLabel6: TcxLabel; cxLabel61: TcxLabel; cxLabel62: TcxLabel; cxLabel63: TcxLabel; cxLabel64: TcxLabel; cxLabel65: TcxLabel; dx_temperature1: TcxTextEdit; dx_temperature5: TcxTextEdit; dx_temperature9: TcxTextEdit; dx_temperature6: TcxTextEdit; dx_temperature3: TcxTextEdit; dx_temperature4: TcxTextEdit; dx_temperature7: TcxTextEdit; dx_temperature8: TcxTextEdit; dx_temperature10: TcxTextEdit; dx_temperature2: TcxTextEdit; TbDXReplace2: TcxButton; TbDXClear2: TcxButton; cxLabel189: TcxLabel; dx_temperature11: TcxTextEdit; cxLabel5: TcxLabel; Panel_FS: TPanel; Label8: TLabel; cxLabel198: TcxLabel; fs_speed: TcxTextEdit; FS_Style: TcxComboBox; fs_isVacuun: TcxComboBox; TbFSReplace2: TcxButton; TBFScLEAR2: TcxButton; cxLabel192: TcxLabel; cxLabel194: TcxLabel; cxLabel195: TcxLabel; cxLabel196: TcxLabel; cxLabel205: TcxLabel; cxLabel207: TcxLabel; cxLabel208: TcxLabel; cxLabel209: TcxLabel; cxLabel210: TcxLabel; cxLabel211: TcxLabel; cxLabel231: TcxLabel; fs_temperature1: TcxTextEdit; fs_temperature10: TcxTextEdit; fs_temperature11: TcxTextEdit; fs_temperature2: TcxTextEdit; fs_temperature3: TcxTextEdit; fs_temperature4: TcxTextEdit; fs_temperature5: TcxTextEdit; fs_temperature6: TcxTextEdit; fs_temperature7: TcxTextEdit; fs_temperature8: TcxTextEdit; fs_temperature9: TcxTextEdit; cxGrid7: TcxGrid; TvFS: TcxGridDBTableView; cxGridDBColumn19: TcxGridDBColumn; cxGridDBColumn20: TcxGridDBColumn; cxGridDBColumn21: TcxGridDBColumn; cxGridDBColumn22: TcxGridDBColumn; cxGridDBColumn23: TcxGridDBColumn; cxGridLevel6: TcxGridLevel; cxLabel7: TcxLabel; Splitter2: TSplitter; Panel3: TPanel; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; cxGrid1Level1: TcxGridLevel; cxGrid9: TcxGrid; Tv3: TcxGridDBTableView; cxGridLevel8: TcxGridLevel; cxButton1: TcxButton; cxButton2: TcxButton; cxButton3: TcxButton; cxButton4: TcxButton; cxButton5: TcxButton; cxButton6: TcxButton; cxButton7: TcxButton; cxButton8: TcxButton; cxButton9: TcxButton; cxButton10: TcxButton; cxButton11: TcxButton; cxButton12: TcxButton; Tv1PSType: TcxGridDBColumn; CDS_GX: TClientDataSet; DS_GX: TDataSource; Tv3PSNO: TcxGridDBColumn; Tv3PSType: TcxGridDBColumn; Tv3PSName: TcxGridDBColumn; Tv3PSID: TcxGridDBColumn; CDS_CCQX: TClientDataSet; DS_CCQX: TDataSource; CDS_RGQX: TClientDataSet; DS_rgqx: TDataSource; CDS_JGQX: TClientDataSet; CDS_fS: TClientDataSet; CDS_gj: TClientDataSet; CDS_FP: TClientDataSet; DS_jgqx: TDataSource; DS_FS: TDataSource; DS_gj: TDataSource; DS_FP: TDataSource; zm_Precautions: TcxMemo; ccqx_note: TcxMemo; rgqx_note: TcxMemo; jgqx_note: TcxMemo; dx_Precautions: TcxMemo; fs_Precautions: TcxMemo; gj_Precautions: TcxMemo; fp_Precautions: TcxMemo; Tv2DTMID: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBDelClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBRafreshClick(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure DTMNoChange(Sender: TObject); procedure TchkClick(Sender: TObject); procedure TNochkClick(Sender: TObject); procedure cxTabControl1Change(Sender: TObject); procedure FormCreate(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject); procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer); procedure Tv1DblClick(Sender: TObject); private { Private declarations } procedure InitGrid(); procedure SetStatus(); procedure InitPSTypeGrid(); procedure InitGlide(); procedure InitGXDetails(); public fmanage: string; end; var frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList; implementation uses U_DataLink, U_RTFun, U_ZDYHelp, U_DyeTechnicsinput, U_DyeProcessDefin; {$R *.dfm} procedure TfrmDyeSimpleTechnicsList.SetStatus(); var i: integer; begin Tchk.Visible := false; TNochk.Visible := false; TBDel.Visible := false; Panel_zm.Visible := False; Panel_ccqx.Visible := False; Panel_rgqx.Visible := False; Panel_jgqx.Visible := False; Panel_dx.Visible := False; Panel_FS.Visible := False; Panel_GJ.Visible := False; Panel_FP.Visible := False; // for i := 0 to tv2.ColumnCount - 1 do // begin // if uppercase(tv2.Columns[i].DataBinding.FieldName) <> 'SSEL' then // tv2.Columns[i].Options.Editing := false; // end; if cxTabControl1.TabIndex = 0 then begin Tchk.Visible := true; TBDel.Visible := true; end; if cxTabControl1.TabIndex = 1 then begin TNochk.Visible := true; end; if cxTabControl1.TabIndex = 2 then begin end; end; procedure TfrmDyeSimpleTechnicsList.InitGrid(); begin try ADOQueryMain.DisableControls; with ADOQueryMain do begin Close; SQL.Clear; sql.Add(' select * FROM Dye_Technics_Main'); if cxTabControl1.TabIndex < 2 then sql.Add(' where isnull(status,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''' '); ShowMessage(SQL.Text); Open; end; SCreateCDS(ADOQueryMain, CDS_2); SInitCDSData(ADOQueryMain, CDS_2); ShowMessage(ADOQueryMain.FieldByName('DTMID').AsString); // ShowMessage(CDS_2.FieldByName('DTMID').AsString); finally ADOQueryMain.EnableControls; //CDS_1.EmptyDataSet; end; end; procedure TfrmDyeSimpleTechnicsList.InitPSTypeGrid(); begin try ADOQueryCMD.DisableControls; with ADOQueryCMD do begin // Filtered := False; Close; SQL.Clear; sql.Add(' select *,PSXH=0 from Dye_Technics '); Open; end; // SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS(ADOQueryCMD, CDS_PSType); SInitCDSData(ADOQueryCMD, CDS_PSType); finally ADOQueryCMD.EnableControls; end; end; procedure TfrmDyeSimpleTechnicsList.InitGlide(); begin try ADOQueryTemp.DisableControls; with ADOQueryTemp do begin Close; SQL.Clear; sql.Add(' select A.* FROM V_Dye_Technics_Details A'); sql.Add(' Where A.DTMID=''' + trim(CDS_2.fieldbyname('DTMID').AsString) + ''''); SQL.Add(' ORDER BY A.PSNO'); Open; end; SCreateCDS(ADOQueryTemp, CDS_GX); SInitCDSData(ADOQueryTemp, CDS_GX); finally ADOQueryTemp.EnableControls; end; end; procedure TfrmDyeSimpleTechnicsList.InitGXDetails(); begin try ADOQueryTemp.DisableControls; CDS_GX.First; while not CDS_GX.eof do begin with ADOQueryTemp do begin Close; SQL.Clear; sql.Add(' select A.* FROM V_Dye_Technics_Details A'); sql.Add(' Where A.PSID=''' + trim(CDS_GX.fieldbyname('PSID').AsString) + ''''); // SQL.Add(' and A.PSID = ''' + trim(CDS_2.fieldbyname('PSID').AsString) + ''''); Open; end; with ADOQueryCmd do begin Close; SQL.Clear; sql.Add(' select A.* FROM BS_Cloth_GY_Sub A'); sql.Add(' Where A.PSID=''' + trim(CDS_GX.fieldbyname('PSID').AsString) + ''''); // SQL.Add(' and A.PSID = ''' + trim(CDS_2.fieldbyname('PSID').AsString) + ''''); Open; end; // ShowMessage(IntToStr(ADOQueryCmd.RecordCount)); if CDS_GX.FieldByName('PSType').AsString = '长车清洗' then begin Panel_ccqx.Visible := True; SCSHData(ADOQueryTemp, Panel_ccqx, 2); ccqx_note.Lines.Text := ADOQueryTemp.FieldByName('ccqx_note').AsString; SCreateCDS(ADOQueryCmd, CDS_CCQX); SInitCDSData(ADOQueryCmd, CDS_CCQX); end else if CDS_GX.FieldByName('PSType').AsString = '卷染缸清洗' then begin Panel_rgqx.Visible := True; SCSHData(ADOQueryTemp, Panel_rgqx, 2); rgqx_note.Lines.Text := ADOQueryTemp.FieldByName('rgqx_note').AsString; SCreateCDS(ADOQueryCmd, CDS_rgQX); SInitCDSData(ADOQueryCmd, CDS_RGQX); end else if CDS_GX.FieldByName('PSType').AsString = '机缸清洗' then begin Panel_jgqx.Visible := True; SCSHData(ADOQueryTemp, Panel_jgqx, 2); jgqx_note.Lines.Text := ADOQueryTemp.FieldByName('jgqx_note').AsString; SCreateCDS(ADOQueryCmd, CDS_JGQX); SInitCDSData(ADOQueryCmd, CDS_JGQX); end else if CDS_GX.FieldByName('PSType').AsString = '干定型' then begin Panel_dx.Visible := True; SCSHData(ADOQueryTemp, Panel_dx, 2); dx_Precautions.Lines.Text := ADOQueryTemp.FieldByName('dx_Precautions').AsString; end else if CDS_GX.FieldByName('PSType').AsString = '下水定型' then begin Panel_fs.Visible := True; SCSHData(ADOQueryTemp, Panel_fs, 2); fs_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fs_Precautions').AsString; SCreateCDS(ADOQueryCmd, CDS_fS); SInitCDSData(ADOQueryCmd, CDS_fS); end else if CDS_GX.FieldByName('PSType').AsString = '发泡' then begin Panel_fp.Visible := True; SCSHData(ADOQueryTemp, Panel_fp, 2); fp_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fp_Precautions').AsString; SCreateCDS(ADOQueryCmd, CDS_FP); SInitCDSData(ADOQueryCmd, CDS_FP); end else if CDS_GX.FieldByName('PSType').AsString = '刮胶' then begin Panel_gj.Visible := True; SCSHData(ADOQueryTemp, Panel_gj, 2); gj_Precautions.Lines.Text := ADOQueryTemp.FieldByName('gj_Precautions').AsString; SCreateCDS(ADOQueryCmd, CDS_GJ); SInitCDSData(ADOQueryCmd, CDS_GJ); end else if CDS_GX.FieldByName('PSType').AsString = '轧毛' then begin Panel_zm.Visible := True; SCSHData(ADOQueryTemp, Panel_zm, 2); zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString; end; CDS_GX.Next; end; finally ADOQueryTemp.EnableControls; end; end; procedure TfrmDyeSimpleTechnicsList.FormDestroy(Sender: TObject); begin inherited; frmDyeSimpleTechnicsList := nil; end; procedure TfrmDyeSimpleTechnicsList.FormClose(Sender: TObject; var Action: TCloseAction); begin inherited; Action := caFree; end; procedure TfrmDyeSimpleTechnicsList.TBCloseClick(Sender: TObject); begin Close; end; procedure TfrmDyeSimpleTechnicsList.TBDelClick(Sender: TObject); begin if CDS_2.IsEmpty then Exit; if CDS_2.Locate('ssel', true, []) = false then begin Application.MessageBox('没有选择数据!', '提示', 0); Exit; end; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then Exit; try ADOQueryCmd.Connection.BeginTrans; with CDS_2 do begin DisableControls; First; while not eof do begin if Fieldbyname('ssel').AsBoolean then begin with ADOQueryCmd do begin close; sql.Clear; sql.Add('delete Dye_Technics_Main where DTMID=''' + Trim(CDS_2.fieldbyname('DTMID').AsString) + ''''); sql.Add('delete Dye_Technics_Sub where DTMID=''' + Trim(CDS_2.fieldbyname('DTMID').AsString) + ''''); execsql; end; // CDS_1.First; // while not CDS_1.Eof do // begin // with ADOQueryCmd do // begin // close; // sql.Clear; // sql.Add('delete Dye_Process where PSID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + ''''); // sql.Add('delete BS_Cloth_GY_Sub where PSID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + ''''); // sql.Add('delete BS_Cloth_GY_Main where PSID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + ''''); // // execsql; // end; // CDS_1.Next; // end; end; next; end; First; EnableControls; end; InitGrid(); ADOQueryCmd.Connection.CommitTrans; except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox('操作失败！', '提示信息', 0); end; end; procedure TfrmDyeSimpleTechnicsList.FormShow(Sender: TObject); begin inherited; ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '工艺管理'); ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '工艺管理'); SetStatus(); InitGrid(); end; procedure TfrmDyeSimpleTechnicsList.TBRafreshClick(Sender: TObject); begin InitGrid(); end; procedure TfrmDyeSimpleTechnicsList.ToolButton1Click(Sender: TObject); var maxno: string; begin CDS_2.Append; tv2.Columns[1].Options.Editing := true; tv2.Columns[2].Options.Editing := true; end; procedure TfrmDyeSimpleTechnicsList.ToolButton2Click(Sender: TObject); begin if ADOQueryMain.Active then begin SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS(ADOQueryMain, CDS_2); SInitCDSData(ADOQueryMain, CDS_2); end; end; procedure TfrmDyeSimpleTechnicsList.ToolButton3Click(Sender: TObject); begin WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '工艺管理'); WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '工艺管理'); end; procedure TfrmDyeSimpleTechnicsList.ToolButton4Click(Sender: TObject); begin try frmDyeTechnicsinput := TfrmDyeTechnicsinput.Create(Application); with frmDyeTechnicsinput do begin PState := '修改'; FDTMID := Trim(self.CDS_2.fieldbyname('DTMID').AsString); if ShowModal = 1 then begin TBRafresh.Click; end; end; finally frmDyeTechnicsinput.Free; end; end; procedure TfrmDyeSimpleTechnicsList.ToolButton5Click(Sender: TObject); begin try frmDyeTechnicsinput := TfrmDyeTechnicsinput.Create(Application); with frmDyeTechnicsinput do begin PState := '复制'; FDTMID := Trim(self.CDS_2.fieldbyname('DTMID').AsString); if ShowModal = 1 then begin TBRafresh.Click; end; end; finally frmDyeTechnicsinput.Free; end; end; procedure TfrmDyeSimpleTechnicsList.Tv1DblClick(Sender: TObject); begin with CDS_GX do begin Append; FieldByName('PSNO').Value := CDS_GX.RecordCount + 1; FieldByName('PSType').Value := CDS_PSType.fieldbyname('PSType').AsString; FieldByName('PSId').Value := ''; post; end; end; procedure TfrmDyeSimpleTechnicsList.Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin SetStatus(); InitGlide(); InitGXDetails(); // ShowMessage(CDS_2.FieldByName('DTMID').AsString); if (CDS_2.FieldByName('DTMID').AsString = '') or (CDS_2.FieldByName('DTMID').AsString = null) then begin InitPSTypeGrid(); end else begin ADOQueryCMD.DisableControls; with ADOQueryCMD do begin // Filtered := False; Close; SQL.Clear; sql.Add(' select *,PSXH=0 from Dye_Technics where 1 = 2 '); Open; end; // SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS(ADOQueryCMD, CDS_PSType); SInitCDSData(ADOQueryCMD, CDS_PSType); end; end; procedure TfrmDyeSimpleTechnicsList.ButtonEdit(Sender: TObject; AButtonIndex: Integer); begin try frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application); with frmDyeProcessDefin do begin FPSType := self.CDS_GX.FieldByName('PSType').Value; FPSID := Self.CDS_GX.FieldByName('PSID').Value; BtnInt := 3;//查看 TbSave.visible := false; TbUpFile.Visible := False; if ShowModal = 1 then begin end; end; finally frmDyeProcessDefin.Free; end; end; procedure TfrmDyeSimpleTechnicsList.DTMNoChange(Sender: TObject); begin ToolButton2.Click; end; procedure TfrmDyeSimpleTechnicsList.TchkClick(Sender: TObject); begin if CDS_2.IsEmpty then exit; if CDS_2.Locate('ssel', true, []) = false then begin Application.MessageBox('没有选择数据!', '提示', 0); Exit; end; try ADOQueryCmd.Connection.BeginTrans; with CDS_2 do begin DisableControls; First; while not eof do begin if Fieldbyname('ssel').AsBoolean then begin with ADOQueryCmd do begin close; sql.Clear; sql.Add('update Dye_Technics_Main SET status=''1'' '); sql.Add('where DTMID =' + quotedstr(trim(CDS_2.fieldbyname('DTMID').AsString))); execsql; end; end; next; end; First; EnableControls; end; InitGrid(); ADOQueryCmd.Connection.CommitTrans; except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox('操作失败！', '提示信息', 0); end; end; procedure TfrmDyeSimpleTechnicsList.TNochkClick(Sender: TObject); begin if CDS_2.IsEmpty then exit; if CDS_2.Locate('ssel', true, []) = false then begin Application.MessageBox('没有选择数据!', '提示', 0); Exit; end; try ADOQueryCmd.Connection.BeginTrans; with CDS_2 do begin DisableControls; First; while not eof do begin if Fieldbyname('ssel').AsBoolean then begin with ADOQueryCmd do begin close; sql.Clear; sql.Add('update Dye_Technics_Main SET status=''0'' '); sql.Add('where DTMID =' + quotedstr(trim(CDS_2.fieldbyname('DTMID').AsString))); execsql; end; end; next; end; First; EnableControls; end; InitGrid(); ADOQueryCmd.Connection.CommitTrans; except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox('操作失败！', '提示信息', 0); end; end; procedure TfrmDyeSimpleTechnicsList.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application); with frmDyeProcessDefin do begin // FPSType := self.CDS_1.FieldByName('PSType').Value; // FPSID := Self.CDS_1.FieldByName('PSID').Value; BtnInt := 3;//查看 TbSave.visible := false; TbUpFile.Visible := False; if ShowModal = 1 then begin end; end; finally frmDyeProcessDefin.Free; end; end; procedure TfrmDyeSimpleTechnicsList.cxTabControl1Change(Sender: TObject); begin SetStatus(); InitGrid(); end; procedure TfrmDyeSimpleTechnicsList.FormCreate(Sender: TObject); begin inherited; fmanage := Trim(DParameters1); end; end.