D7szChenfeng/应收应付/U_XXPRICE.pas

unit U_XXPRICE;

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, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, 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, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
  dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
  dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
  dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
  dxSkinscxPCPainter, cxNavigator;

type
  TfrmXXPRICE = class(TForm)
    ToolBar1: TToolBar;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Panel1: TPanel;
    RM1: TRMGridReport;
    RMDB_Main: TRMDBDataSet;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DS_HZ: TDataSource;
    CDS_HZ: TClientDataSet;
    Label4: TLabel;
    price: TEdit;
    ADOQueryMain: TADOQuery;
    TBClose: TToolButton;
    ToolButton3: TToolButton;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    RKFlag, FCYID, FFFID: string;
    FFromNo, FTONO: string;
  end;

var
  frmXXPRICE: TfrmXXPRICE;

implementation

uses
  U_DataLink, U_Fun10, U_ZDYHelp;

{$R *.dfm}

procedure TfrmXXPRICE.FormDestroy(Sender: TObject);
begin
  frmXXPRICE := nil;
end;

procedure TfrmXXPRICE.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

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

//procedure TfrmXXPRICE.ToolButton3Click(Sender: TObject);
//begin
//  if StrToFloatDef(Price.Text, 0) = 0 then
//    Price.Text := '0';
//  try
//    with ADOQueryCmd do
//    begin
//      Close;
//      sql.Clear;
//      sql.Add(' update YF_Money_CR_Sub   ');
//      sql.Add(' set Price = ' + Price.Text);
//        // ʹ<><CAB9>IN<49>Ӿ<EFBFBD><D3BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//      sql.Add(' where YF_Money_CR_Sub.yfsid in (' + FFFID + ')');
//
//
//      ExecSQL;
//    end;
//    ModalResult := 1;
//  except
//    application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
//  end;
//end;
procedure TfrmXXPRICE.ToolButton3Click(Sender: TObject);
var
  IDList: TStringList;
  i: Integer;
  QuotedIDs: string;
begin
  // <20><><EFBFBD><EFBFBD><EFBFBD>۸<EFBFBD><DBB8><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>ջ<EFBFBD><D5BB><EFBFBD>Ч<EFBFBD><D0A7><EFBFBD><EFBFBD>Ϊ0
  if StrToFloatDef(Price.Text, 0) = 0 then
    Price.Text := '0';

  // <20><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD>ѡ<EFBFBD>е<EFBFBD>ID
  if Trim(FFFID) = '' then
  begin
    Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA><EFBFBD>µļ<C2B5>¼<EFBFBD><C2BC>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
    Exit;
  end;

  try
    // <20><>ÿ<EFBFBD><C3BF>ID<49><44><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    IDList := TStringList.Create;
    try
      IDList.CommaText := FFFID;  // <20><><EFBFBD><EFBFBD><EFBFBD>ŷָ<C5B7><D6B8><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>ֽ<EFBFBD>
      QuotedIDs := '';
      for i := 0 to IDList.Count - 1 do
      begin
        if QuotedIDs = '' then
          QuotedIDs := QuotedStr(IDList[i])
        else
          QuotedIDs := QuotedIDs + ',' + QuotedStr(IDList[i]);
      end;

      with ADOQueryCmd do
      begin
        Close;
        sql.Clear;
        sql.Add(' update YF_Money_CR_Sub   ');
        sql.Add(' set Price = ' + Price.Text);
        
        // ʹ<><CAB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ŵ<EFBFBD>ID<49>б<EFBFBD>
        sql.Add(' where YF_Money_CR_Sub.yfsid in (' + QuotedIDs + ')');
        
        ExecSQL;
      end;
    finally
      IDList.Free;
    end;
    
    // <20><><EFBFBD>³ɹ<C2B3><C9B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1<EFBFBD><31><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>־<EFBFBD><D6BE>
    ModalResult := 1;
  except
    on E: Exception do
      Application.MessageBox(PChar(E.Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
  end;
end;

end.



//with ADOQueryCmd do
//    begin
//      Close;
//      sql.Clear;
//      sql.Add(' update YF_Money_CR_Sub   ');
//      sql.Add(' set Price = ' + Price.Text);
//      sql.Add(' where exists(select 1 from YF_Money_CR ');
//      sql.Add(' where YF_Money_CR.yfid = YF_Money_CR_Sub.yfid ');
//      sql.Add(' and YF_Money_CR.yfid in (select X.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(FFFID) + ','','') X)) ');
////      showmessage(sql.text);
//      ExecSQL;
//    end;