unit U_ClothContractList_CP; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC, cxCheckBox, cxCurrencyEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu; type TfrmClothContractList_CP = class(TForm) ToolBar1: TToolBar; TBRafresh: TToolButton; TBFind: TToolButton; TBAdd: TToolButton; TBEdit: TToolButton; TBDel: TToolButton; TBPrint: TToolButton; TBClose: TToolButton; Panel1: TPanel; BegDate: TDateTimePicker; EndDate: TDateTimePicker; Label1: TLabel; Label2: TLabel; cxGridPopupMenu1: TcxGridPopupMenu; ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; ADOQueryTemp: TADOQuery; DataSource1: TDataSource; Label3: TLabel; ConNo: TEdit; Label5: TLabel; C_CodeName: TEdit; TBExport: TToolButton; Order_Main: TClientDataSet; Label4: TLabel; C_Spec: TEdit; ScrollBox1: TScrollBox; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; v1OrderNo: TcxGridDBColumn; v1Column2: TcxGridDBColumn; v1DeliveryDate: TcxGridDBColumn; v1FactoryNo1Name: TcxGridDBColumn; v1PRTSpec: TcxGridDBColumn; v1PRTMF: TcxGridDBColumn; v1PRTKZ: TcxGridDBColumn; v1PRTOrderQty: TcxGridDBColumn; v1OrderUnit: TcxGridDBColumn; v1Price: TcxGridDBColumn; v1Money: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; ClientDataSet3: TClientDataSet; DataSource2: TDataSource; DataSource3: TDataSource; ClientDataSet2: TClientDataSet; v1Qty1: TcxGridDBColumn; RM1: TRMGridReport; RMDBMain: TRMDBDataSet; RMXLSExport1: TRMXLSExport; v1Column4: TcxGridDBColumn; v1Column5: TcxGridDBColumn; v1Column3: TcxGridDBColumn; v1Column6: TcxGridDBColumn; v1Column7: TcxGridDBColumn; CDS_PRT: TClientDataSet; Label6: TLabel; FactoryNoName: TEdit; v1Column8: TcxGridDBColumn; v1Column9: TcxGridDBColumn; v1T_money: TcxGridDBColumn; v1Column11: TcxGridDBColumn; cxStyleRepository1: TcxStyleRepository; cxStyle1: TcxStyle; cxStyle2: TcxStyle; cxStyle_gridRow: TcxStyle; cxStyle_gridFoot: TcxStyle; cxStyle_gridHead: TcxStyle; cxStyle_gridGroupBox: TcxStyle; cxStyle_yellow: TcxStyle; cxStyle_Red: TcxStyle; cxStyle_fontBlack: TcxStyle; cxStyle_fontclFuchsia: TcxStyle; cxStyle_fontclPurple: TcxStyle; cxStyle_fontclGreen: TcxStyle; cxStyle_fontclBlue: TcxStyle; cxStyle_fontclTeal: TcxStyle; cxStyle_fontclOlive: TcxStyle; ToolButton1: TToolButton; Tth: TToolButton; cxTabControl1: TcxTabControl; tchk: TToolButton; Tnochk: TToolButton; v1Column12: TcxGridDBColumn; v1Column13: TcxGridDBColumn; v1Column16: TcxGridDBColumn; v1Column17: TcxGridDBColumn; v1Column14: TcxGridDBColumn; v1Column15: TcxGridDBColumn; Label7: TLabel; JHPlace: TEdit; v1Column18: TcxGridDBColumn; v1Column19: TcxGridDBColumn; v1Column20: TcxGridDBColumn; v1Column21: TcxGridDBColumn; v1Column22: TcxGridDBColumn; v1Column23: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure TBFindClick(Sender: TObject); procedure TBEditClick(Sender: TObject); procedure TBDelClick(Sender: TObject); procedure TBExportClick(Sender: TObject); procedure TBPrintClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject); procedure TBAddClick(Sender: TObject); procedure ConNoChange(Sender: TObject); procedure FormShow(Sender: TObject); procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ToolButton5Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure conPress(Sender: TObject; var Key: Char); procedure ToolButton1Click(Sender: TObject); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TthClick(Sender: TObject); procedure tchkClick(Sender: TObject); procedure TnochkClick(Sender: TObject); procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure cxTabControl1Change(Sender: TObject); private FInt, PFInt: Integer; procedure InitGrid(); procedure InitForm(); function DelData(): Boolean; { Private declarations } public fDParameters1: string; { Public declarations } end; var frmClothContractList_CP: TfrmClothContractList_CP; implementation uses U_DataLink, U_ClothContractInPut, U_Fun, U_ProductOrderList, U_ZDYHelp; {$R *.dfm} procedure TfrmClothContractList_CP.FormDestroy(Sender: TObject); begin frmClothContractList_CP := nil; end; procedure TfrmClothContractList_CP.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; procedure TfrmClothContractList_CP.FormCreate(Sender: TObject); begin ScrollBox1.Align := alClient; end; procedure TfrmClothContractList_CP.TBCloseClick(Sender: TObject); begin Close; WriteCxGrid(self.Caption, Tv1, '指示单管理'); end; procedure TfrmClothContractList_CP.InitGrid(); begin try ADOQueryMain.DisableControls; with ADOQueryMain do begin Filtered := False; Close; sql.Clear; sql.Add('exec P_Get_Contract_CP'); sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' '); sql.Add(',@conType=''成品发货'' '); sql.Add(',@status=''' + inttostr(cxTabControl1.TabIndex) + ''' '); { sql.Add('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); sql.Add('from Contract_Main A'); sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); sql.Add('where A.FillTime>= '''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' '); sql.Add('and A.FillTime< '''+Trim(FormatDateTime('yyyy-MM-dd',endDate.DateTime+1))+''' '); sql.Add('and A.conType=''坯布到货'' '); IF cxTabControl1.TabIndex<2 then sql.Add('and isnull(B.C_status,''0'')='''+inttostr(cxTabControl1.TabIndex)+''' '); } Open; end; SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; TBFind.Click; end; end; procedure TfrmClothContractList_CP.InitForm(); begin if fDParameters1 = '查询' then begin TBADD.Visible := false; // TBEdit.Visible:=false; TBDel.Visible := false; // Tchk.Visible:=false; // TNochk.Visible:=false; Tth.Visible := false; v1Price.Visible := false; v1Price.Hidden := true; v1money.Visible := false; v1money.Hidden := true; v1T_money.Visible := false; v1T_money.Hidden := true; ToolButton1.Visible := false; end; TBEdit.Enabled := false; TBDel.Enabled := false; Tchk.Enabled := false; TNochk.Enabled := false; Tth.Enabled := false; if cxTabControl1.TabIndex = 0 then begin TBEdit.Enabled := true; TBDel.Enabled := true; Tchk.Enabled := true; Tth.Enabled := true; end; if cxTabControl1.TabIndex = 1 then begin TNochk.Enabled := true; end; InitGrid(); end; procedure TfrmClothContractList_CP.TBFindClick(Sender: TObject); begin if ADOQueryMain.Active = False then Exit; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmClothContractList_CP.TBEditClick(Sender: TObject); var i: integer; begin if Order_Main.IsEmpty then Exit; with ADOQueryTemp do begin close; sql.Clear; sql.Add('select YFID from YF_money_CR '); sql.Add('where mainID=''' + trim(Order_Main.FieldByName('mainID').AsString) + ''' '); sql.Add('and status>0 '); open; if not IsEmpty then begin application.MessageBox('财务数据已审核，不能修改！', '提示信息', MB_ICONERROR); exit; end; end; // with ADOQueryTemp do // begin // close; // sql.Clear; // sql.Add('select * from contract_sub '); // sql.Add('where kcsubid=''' + trim(Order_Main.FieldByName('subid').AsString) + ''' '); //// sql.Add(' '); // open; // if not IsEmpty then // begin // application.MessageBox('已出库不能修改！', '提示信息', MB_ICONERROR); // exit; // end; // end; try frmClothContractInPut := TfrmClothContractInPut.Create(Application); with frmClothContractInPut do begin if trim(fDParameters1) = '查询' then begin frmClothContractInPut.Caption := '到货信息查询'; v1Money.Visible := false; v1Price.Visible := false; v1Money.Hidden := true; v1Price.Hidden := true; v1T_money.Visible := false; v1T_money.Hidden := true; v1T_price.Visible := false; v1T_price.Hidden := true; ScrollBox1.Enabled := false; for i := 0 to tv1.ColumnCount - 1 do begin tv1.Columns[i].Options.Editing := false; end; v1Mrate.Options.Editing := true; ToolBar2.Enabled := false; end; PState := 1; FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); if ShowModal = 1 then begin // TBRafresh.Click; end; end; finally frmClothContractInPut.Free; TBRafresh.Click; end; end; procedure TfrmClothContractList_CP.TBDelClick(Sender: TObject); begin if Order_Main.IsEmpty then Exit; with ADOQueryTemp do begin close; sql.Clear; sql.Add('select YFID from YF_money_CR '); sql.Add('where mainID=''' + trim(Order_Main.FieldByName('mainID').AsString) + ''' '); sql.Add('and status>0 '); open; if not IsEmpty then begin application.MessageBox('财务数据已审核，不能删除！', '提示信息', MB_ICONERROR); exit; end; end; with ADOQueryTemp do begin close; sql.Clear; sql.Add('select * from contract_sub '); sql.Add('where kcsubid=''' + trim(Order_Main.FieldByName('subid').AsString) + ''' '); open; if not IsEmpty then begin application.MessageBox('已出库不能修改！', '提示信息', MB_ICONERROR); exit; end; end; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then Exit; if trim(Order_Main.FieldByName('mainID').AsString) = 'CM001' then exit; if DelData() then begin Order_Main.Delete; end; end; function TfrmClothContractList_CP.DelData(): Boolean; begin try Result := false; ADOQueryCmd.Connection.BeginTrans; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete YF_Money_CR where MainID=''' + Trim(Order_Main.fieldbyname('MainID').AsString) + ''''); ExecSQL; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); // sql.Add(' where CRID='+CRID); ExecSQL; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete Contract_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); ExecSQL; end; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from Contract_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete Contract_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; end; if Trim(Order_Main.fieldbyname('SubId').AsString) = '' then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete Contract_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; end; ADOQueryCmd.Connection.CommitTrans; Result := True; except ADOQueryCmd.Connection.RollbackTrans; Result := False; Application.MessageBox('数据删除异常！', '提示', 0); end; end; procedure TfrmClothContractList_CP.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then Exit; TcxGridToExcel('坯布合同订单列表', cxGrid1); end; procedure TfrmClothContractList_CP.TBPrintClick(Sender: TObject); var fPrintFile, FConNoM: string; begin if Order_Main.IsEmpty then Exit; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\坯布到货单.rmf'; with ADOQueryTemp do begin Filtered := False; Close; sql.Clear; sql.Add('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); sql.Add('from Contract_Main A'); sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); sql.Add('where A.FillTime>= ''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); sql.Add('and A.FillTime< ''' + Trim(FormatDateTime('yyyy-MM-dd', endDate.DateTime + 1)) + ''' '); sql.Add('and A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); Open; end; SCreateCDS20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT); if FileExists(fPrintFile) then begin RMVariables['dtxz'] := formatdateTime('yyyy-MM-dd', Now); RMVariables['zdr'] := Trim(dName); RM1.LoadFromFile(fPrintFile); RM1.ShowReport; end else begin Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\坯布到货单.rmf'), '提示', 0); end; end; procedure TfrmClothContractList_CP.TBRafreshClick(Sender: TObject); begin InitGrid(); end; procedure TfrmClothContractList_CP.TBAddClick(Sender: TObject); var i: integer; begin try frmClothContractInPut := TfrmClothContractInPut.Create(Application); with frmClothContractInPut do begin if trim(fDParameters1) = '查询' then begin frmClothContractInPut.Caption := '到货信息查询'; v1Money.Visible := false; v1Price.Visible := false; v1Money.Hidden := true; v1Price.Hidden := true; v1T_money.Visible := false; v1T_money.Hidden := true; ScrollBox1.Enabled := false; for i := 0 to tv1.ColumnCount - 2 do begin tv1.Columns[i].Options.Editing := false; end; v1Mrate.Options.Editing := true; ToolBar2.Enabled := false; end; PState := 0; FMainId := ''; if ShowModal = 1 then begin end; end; finally frmClothContractInPut.Free; TBRafresh.Click; end; end; procedure TfrmClothContractList_CP.ConNoChange(Sender: TObject); begin if ADOQueryMain.Active = False then Exit; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmClothContractList_CP.FormShow(Sender: TObject); begin ReadCxGrid(self.Caption, Tv1, '指示单管理'); BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7; EndDate.DateTime := SGetServerDate10(ADOQueryTemp); initForm(); end; procedure TfrmClothContractList_CP.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FInt := 2; end; procedure TfrmClothContractList_CP.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FInt := 1; end; procedure TfrmClothContractList_CP.ToolButton5Click(Sender: TObject); var maxno: string; begin if ClientDataSet3.IsEmpty then Exit; if ClientDataSet2.IsEmpty then Exit; if Trim(ClientDataSet2.fieldbyname('MXId').AsString) = '' then begin Application.MessageBox('到货数量未确定！', '提示', 0); Exit; end; if ClientDataSet3.Locate('OrderNo', null, []) then begin Application.MessageBox('指定订单编号不能为空！', '提示', 0); Exit; end; BegDate.SetFocus; try ADOQueryCmd.Connection.BeginTrans; //保存去向表 with ClientDataSet3 do begin First; while not eof do begin if Trim(ClientDataSet3.fieldbyname('ToId').AsString) = '' then begin if GetLSNo(ADOQueryCmd, maxno, 'To', 'Contract_Sub_MxTo', 4, 1) = False then begin ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('取去向流水号失败！', '提示', 0); Exit; end; end else begin maxno := Trim(ClientDataSet3.fieldbyname('ToId').AsString); end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('select * from Contract_Sub_MxTo where ToId=''' + Trim(ClientDataSet3.fieldbyname('ToId').AsString) + ''''); Open; end; with ADOQueryCmd do begin if Trim(ClientDataSet3.fieldbyname('ToId').AsString) = '' then Append else Edit; FieldByName('MxId').Value := Trim(ClientDataSet2.fieldbyname('MxId').AsString); FieldByName('ToId').Value := Trim(maxno); FieldByName('OrdSubId').Value := Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); FieldByName('TPDate').Value := ClientDataSet3.fieldbyname('TPDate').Value; FieldByName('TPPerson').Value := ClientDataSet3.fieldbyname('TPPerson').Value; FieldByName('TPNote').Value := ClientDataSet3.fieldbyname('TPNote').Value; if Trim(ClientDataSet3.fieldbyname('TPQty').AsString) <> '' then FieldByName('TPQty').Value := ClientDataSet3.fieldbyname('TPQty').Value else FieldByName('TPQty').Value := 0; if Trim(ClientDataSet3.fieldbyname('Qty1').AsString) <> '' then FieldByName('Qty1').Value := ClientDataSet3.fieldbyname('Qty1').Value else FieldByName('Qty1').Value := 0; if Trim(ClientDataSet3.fieldbyname('Qty2').AsString) <> '' then FieldByName('Qty2').Value := ClientDataSet3.fieldbyname('Qty2').Value else FieldByName('Qty2').Value := 0; if Trim(ClientDataSet3.fieldbyname('Qty3').AsString) <> '' then FieldByName('Qty3').Value := ClientDataSet3.fieldbyname('Qty3').Value else FieldByName('Qty3').Value := 0; Post; end; with ClientDataSet3 do begin Edit; FieldByName('ToId').Value := Trim(maxno); Post; end; Next; end; end; ADOQueryCmd.Connection.CommitTrans; Application.MessageBox('操作成功！', '提示', 0); except ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('操作异常！', '提示', 0); end; end; procedure TfrmClothContractList_CP.ToolButton3Click(Sender: TObject); begin if FInt = 2 then begin if ClientDataSet2.IsEmpty then Exit; if ClientDataSet3.IsEmpty = false then begin Application.MessageBox('已产生坯布领料数据，不能删除到坯记录！', '提示', 0); Exit; end; if Trim(ClientDataSet2.fieldbyname('MxId').AsString) <> '' then begin if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then Exit; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete Contract_Sub_Mx where MxId=''' + Trim(ClientDataSet2.fieldbyname('MxId').AsString) + ''''); ExecSQL; end; ClientDataSet2.Delete; end else if FInt = 3 then begin if ClientDataSet3.IsEmpty then Exit; if Trim(ClientDataSet3.fieldbyname('ToId').AsString) <> '' then begin if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then Exit; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete Contract_Sub_MxTo where ToId=''' + Trim(ClientDataSet3.fieldbyname('ToId').AsString) + ''''); ExecSQL; end; ClientDataSet3.Delete; with ClientDataSet2 do begin Edit; if ClientDataSet3.IsEmpty = False then // FieldByName('KCSL').Value:=ClientDataSet2.fieldbyname('MxQty').Value-tv3.DataController.Summary.FooterSummaryValues[0] else FieldByName('KCSL').Value := ClientDataSet2.fieldbyname('MxQty').Value; Post; end; end; end; procedure TfrmClothContractList_CP.v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin flag := 'RKPlace'; flagname := '入库地点'; if ShowModal = 1 then begin with ClientDataSet2 do begin Edit; FieldByName('RKPlace').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; end; finally frmZDYHelp.Free; end; end; procedure TfrmClothContractList_CP.conPress(Sender: TObject; var Key: Char); begin { if Key=#13 then begin if Length(Trim(ConNoM.Text))<4 then Exit; try ADOQueryMain.DisableControls; with ADOQueryMain do begin Filtered:=False; Close; sql.Clear; sql.Add('exec ClothContract_QryList :MainId,:WSql'); Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''; Open; end; SCreateCDS20(ADOQueryMain,Order_Main); SInitCDSData20(ADOQueryMain,Order_Main); finally ADOQueryMain.EnableControls; end; end; } end; procedure TfrmClothContractList_CP.ToolButton1Click(Sender: TObject); begin if Order_Main.IsEmpty then Exit; try frmClothContractInPut := TfrmClothContractInPut.Create(Application); with frmClothContractInPut do begin PState := 3; TBSave.Enabled := false; FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); if ShowModal = 1 then begin end; end; finally frmClothContractInPut.Free; end; end; procedure TfrmClothContractList_CP.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin ToolButton1.Click; end; procedure TfrmClothContractList_CP.TthClick(Sender: TObject); begin if Order_Main.IsEmpty then Exit; try frmClothContractInPut := TfrmClothContractInPut.Create(Application); with frmClothContractInPut do begin Caption := '坯布退货'; PState := 1; v1T_money.Visible := true; v1T_ps.Visible := true; v1T_Qty.Visible := true; v1T_Price.Visible := true; FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); if ShowModal = 1 then begin TBRafresh.Click; end; end; finally frmClothContractInPut.Free; TBRafresh.Click; end; end; procedure TfrmClothContractList_CP.tchkClick(Sender: TObject); begin if Order_Main.IsEmpty then exit; try frmClothContractInPut := TfrmClothContractInPut.Create(Application); with frmClothContractInPut do begin PState := 1; FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); if ShowModal = 1 then begin with self.ADOQueryCmd do begin close; sql.Clear; sql.Add('update Contract_sub SET C_status=''1'' '); sql.Add('where mainID =' + quotedstr(trim(self.Order_Main.fieldbyname('mainID').AsString))); sql.Add('and subID =' + quotedstr(trim(self.Order_Main.fieldbyname('subID').AsString))); execsql; end; self.InitGrid(); end else begin end; end; finally frmClothContractInPut.Free; // TBRafresh.Click; end; { if Order_Main.Locate('ssel',true,[])=false then begin Application.MessageBox('没有选择数据!','提示',0); Exit; end; try ADOQueryCmd.Connection.BeginTrans; { with Order_Main 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 Contract_sub SET C_status=''1'' '); sql.Add('where mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); execsql; end; end; next; end; First; EnableControls; end; InitGrid(); ADOQueryCmd.Connection.CommitTrans; except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox('操作失败！','提示信息',0); end; } end; procedure TfrmClothContractList_CP.TnochkClick(Sender: TObject); begin if Order_Main.IsEmpty then exit; { if Order_Main.Locate('ssel',true,[])=false then begin Application.MessageBox('没有选择数据!','提示',0); Exit; end; } try ADOQueryCmd.Connection.BeginTrans; with ADOQueryCmd do begin close; sql.Clear; sql.Add('update Contract_sub SET C_status=''0'' '); sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); execsql; end; { with Order_Main 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 Contract_sub SET C_status=''0'' '); sql.Add('where mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); execsql; end; end; next; end; First; EnableControls; end; } InitGrid(); ADOQueryCmd.Connection.CommitTrans; except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox('操作失败！', '提示信息', 0); end; end; procedure TfrmClothContractList_CP.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); var FValue: string; FBounds: TRect; begin FBounds := AViewInfo.Bounds; if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then begin ACanvas.FillRect(FBounds); ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1); FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1); InflateRect(FBounds, -1, -1); ACanvas.Font.Color := clBlack; ACanvas.Brush.Style := bsClear; ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop); ADone := True; end; end; procedure TfrmClothContractList_CP.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('H_PS').Index] >= AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Qty1').Index] then begin ACanvas.Brush.Color := clSkyBlue; end; end; procedure TfrmClothContractList_CP.cxTabControl1Change(Sender: TObject); begin initForm(); end; end.