D6HECHUAN/业务模块/u_op_close_select.pas

unit u_op_close_select;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm,ADODB, bsSkinCtrls, DB;

type
  Tfrm_op_close_select = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    yewu: TDataSource;
    accept: TDataSource;
    pay: TDataSource;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure select_feng_all();
    procedure select_feng_op();
    procedure select_feng_fee();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_close_select: Tfrm_op_close_select;
  close_select_num:integer;

implementation

uses u_main, u_op_seae_close, u_op_seai_close, u_op_aire_close,
  u_op_airi_close, my_sys_chat, u_sys_progress,my_sys_function;

{$R *.dfm}

procedure Tfrm_op_close_select.select_feng_all();
var
  i:integer;
  can_do:boolean;
  p_accmonth:TADOQuery;
    dsstr,PostUrl,str:string;  
begin
  case close_select_num of
    1:
      begin
        if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then begin
          if not ASSIGNED(frm_sys_progress) then
            frm_sys_progress:=tfrm_sys_progress.Create(self);
          frm_sys_progress.bsSkinGauge1.ProgressText:='ÕýÔÚ·âÕÊÇëµÈºò¡£¡£¡£';
          frm_sys_progress.Show;
          frm_sys_progress.bsSkinGauge1.MaxValue:=frm_op_seae_close.dxdbgrid1.SelectedCount;
          frm_sys_progress.bsSkinGauge1.MinValue:=0;
          frm_sys_progress.bsSkinGauge1.Value:=0;
          frm_sys_progress.Update;
        end;
      end;
    2:
      begin
        if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then begin
          if not ASSIGNED(frm_sys_progress) then
            frm_sys_progress:=tfrm_sys_progress.Create(self);
          frm_sys_progress.bsSkinGauge1.ProgressText:='ÕýÔÚ·âÕÊÇëµÈºò¡£¡£¡£';
          frm_sys_progress.Show;
          frm_sys_progress.bsSkinGauge1.MaxValue:=frm_op_seae_close.dxdbgrid1.SelectedCount;
          frm_sys_progress.bsSkinGauge1.MinValue:=0;
          frm_sys_progress.bsSkinGauge1.Value:=0;
          frm_sys_progress.Update;
        end;
      end;
    3:
      begin
        if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then begin
          if not ASSIGNED(frm_sys_progress) then
            frm_sys_progress:=tfrm_sys_progress.Create(self);
          frm_sys_progress.bsSkinGauge1.ProgressText:='ÕýÔÚ·âÕÊÇëµÈºò¡£¡£¡£';
          frm_sys_progress.Show;
          frm_sys_progress.bsSkinGauge1.MaxValue:=frm_op_seae_close.dxdbgrid1.SelectedCount;
          frm_sys_progress.bsSkinGauge1.MinValue:=0;
          frm_sys_progress.bsSkinGauge1.Value:=0;
          frm_sys_progress.Update;
        end;
      end;
    4:
      begin
        if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then begin
          if not ASSIGNED(frm_sys_progress) then
            frm_sys_progress:=tfrm_sys_progress.Create(self);
          frm_sys_progress.bsSkinGauge1.ProgressText:='ÕýÔÚ·âÕÊÇëµÈºò¡£¡£¡£';
          frm_sys_progress.Show;
          frm_sys_progress.bsSkinGauge1.MaxValue:=frm_op_seae_close.dxdbgrid1.SelectedCount;
          frm_sys_progress.bsSkinGauge1.MinValue:=0;
          frm_sys_progress.bsSkinGauge1.Value:=0;
          frm_sys_progress.Update;
        end;
      end;
  end;
 p_accmonth:=createAdoQuery;
  case close_select_num of
    1:
    begin
      if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
        begin
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
          if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
            yewu.DataSet.post;
{
            Send_op_do('º£Ô˳ö¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
 }
          end;
          if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
          begin
            can_do:=true;
            accept.DataSet.first;
            while not accept.DataSet.eof do
            begin
              if can_do then
              begin
                if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              accept.DataSet.next;
            end;
            if can_do then
            begin
              pay.DataSet.first;
              while not pay.DataSet.eof do
              begin
                if can_do then
                begin
                  if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                  begin
                    can_do:=false;
                  end;
                end;
                pay.DataSet.next;
              end;
            end;
            if can_do then
            begin
              yewu.DataSet.edit;
              yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
              yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=now;
              yewu.DataSet.post;
//          p_accmonth.Close;
//          p_accmonth.SQL.Text:='exec p_exec_accmonth '''+yewu.DataSet.fieldbyname('񅧏').AsString+'''';
//          p_accmonth.ExecSQL;
          if (dsstr='') then
             dsstr:=dsstr+'{'
           else dsstr:=dsstr+',{';
          dsstr:=dsstr+'"bookingId":'+ yewu.DataSet.FieldByName('DJYID').asstring;
          dsstr:=dsstr+',"lockStatus":true';
          dsstr:=dsstr+'}';
              {
              Send_op_do('º£Ô˳ö¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
 }
            end;
          end;
        end;


      end
      else
      begin
        if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
          yewu.DataSet.post;
{
          Send_op_do('º£Ô˳ö¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
        end;
        if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
        begin
          can_do:=true;
          accept.DataSet.first;
          while not accept.DataSet.eof do
          begin
            if can_do then
            begin
              if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä') then
              begin
                can_do:=false;
              end;
            end;
            accept.DataSet.next;
          end;
          if can_do then
          begin
            pay.DataSet.first;
            while not pay.DataSet.eof do
            begin
              if can_do then
              begin
                if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä') then
                begin
                  can_do:=false;
                end;
              end;
              pay.DataSet.next;
            end;
          end;
          if can_do then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
            yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=now;
            yewu.DataSet.post;
          p_accmonth.Close;
          p_accmonth.SQL.Text:='exec p_exec_accmonth '''+yewu.DataSet.fieldbyname('񅧏').AsString+'''';
          p_accmonth.ExecSQL;
          if (dsstr='') then
             dsstr:=dsstr+'{'
           else dsstr:=dsstr+',{';
          dsstr:=dsstr+'"bookingId":'+ yewu.DataSet.FieldByName('DJYID').asstring;
          dsstr:=dsstr+',"lockStatus":true';
          dsstr:=dsstr+'}';          
{
            Send_op_do('º£Ô˳ö¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
          end;
        end;
      end;
        if (dsstr<>'') then begin
         str:=str+'[';
         str:=str+dsstr;
          str:=str+']';
         PostUrl:='http://47.104.85.216:13579/DataSync/SaveBookingOrderLock';
         TDsDjyThread.create(PostUrl,str,'','1bccf850845542f89057007e51f78f13','2af5ed1f0cc124bcfc4ba05e4a24eac77f2f582c25737477633a1c0303ac3b8ed647e810880dac58');
         InsertSysLog('ÉÏ´«´ó¼òÔÆ·âÕË',yewu.DataSet.FieldByName('ÒµÎñ±àºÅ').asstring);
        end;      
    end;
    2:
    begin
      if frm_op_seai_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
            yewu.DataSet.post;
{
            Send_op_do('º£Ô˽ø¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
          end;
          if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
          begin
            can_do:=true;
            accept.DataSet.first;
            while not accept.DataSet.eof do
            begin
              if can_do then
              begin
                if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              accept.DataSet.next;
            end;
            if can_do then
            begin
              pay.DataSet.first;
              while not pay.DataSet.eof do
              begin
                if can_do then
                begin
                  if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                  begin
                    can_do:=false;
                  end;
                end;
                pay.DataSet.next;
              end;
            end;
            if can_do then
            begin
              yewu.DataSet.edit;
              yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
              yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
              yewu.DataSet.post;
{
              Send_op_do('º£Ô˽ø¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
            end;
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
          yewu.DataSet.post;
{
          Send_op_do('º£Ô˽ø¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
        end;
        if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
        begin
          can_do:=true;
          accept.DataSet.first;
          while not accept.DataSet.eof do
          begin
            if can_do then
            begin
              if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
              begin
                can_do:=false;
              end;
            end;
            accept.DataSet.next;
          end;
          if can_do then
          begin
            pay.DataSet.first;
            while not pay.DataSet.eof do
            begin
              if can_do then
              begin
                if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              pay.DataSet.next;
            end;
          end;
          if can_do then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
            yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
            yewu.DataSet.post;
{
            Send_op_do('º£Ô˽ø¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
          end;
        end;
      end;
    end;
    3:
    begin
      if frm_op_aire_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
            yewu.DataSet.post;
{
            Send_op_do('¿ÕÔ˳ö¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
          end;
          if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
          begin
            can_do:=true;
            accept.DataSet.first;
            while not accept.DataSet.eof do
            begin
              if can_do then
              begin
                if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              accept.DataSet.next;
            end;
            if can_do then
            begin
              pay.DataSet.first;
              while not pay.DataSet.eof do
              begin
                if can_do then
                begin
                  if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                  begin
                    can_do:=false;
                  end;
                end;
                pay.DataSet.next;
              end;
            end;
            if can_do then
            begin
              yewu.DataSet.edit;
              yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
              yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
              yewu.DataSet.post;
{
              Send_op_do('¿ÕÔ˳ö¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
            end;
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
          yewu.DataSet.post;
{
          Send_op_do('¿ÕÔ˳ö¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
        end;
        if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
        begin
          can_do:=true;
          accept.DataSet.first;
          while not accept.DataSet.eof do
          begin
            if can_do then
            begin
              if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
              begin
                can_do:=false;
              end;
            end;
            accept.DataSet.next;
          end;
          if can_do then
          begin
            pay.DataSet.first;
            while not pay.DataSet.eof do
            begin
              if can_do then
              begin
                if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              pay.DataSet.next;
            end;
          end;
          if can_do then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
            yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
            yewu.DataSet.post;
{
            Send_op_do('¿ÕÔ˳ö¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
          end;
        end;
      end;
    end;
    4:
    begin
      if frm_op_airi_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
            yewu.DataSet.post;
{
            Send_op_do('¿ÕÔ˽ø¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
          end;
          if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
          begin
            can_do:=true;
            accept.DataSet.first;
            while not accept.DataSet.eof do
            begin
              if can_do then
              begin
                if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              accept.DataSet.next;
            end;
            if can_do then
            begin
              pay.DataSet.first;
              while not pay.DataSet.eof do
              begin
                if can_do then
                begin
                  if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                  begin
                    can_do:=false;
                  end;
                end;
                pay.DataSet.next;
              end;
            end;
            if can_do then
            begin
              yewu.DataSet.edit;
              yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
              yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
              yewu.DataSet.post;
{
              Send_op_do('¿ÕÔ˽ø¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
            end;
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
          yewu.DataSet.post;
{
          Send_op_do('¿ÕÔ˽ø¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
        end;
        if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
        begin
          can_do:=true;
          accept.DataSet.first;
          while not accept.DataSet.eof do
          begin
            if can_do then
            begin
              if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
              begin
                can_do:=false;
              end;
            end;
            accept.DataSet.next;
          end;
          if can_do then
          begin
            pay.DataSet.first;
            while not pay.DataSet.eof do
            begin
              if can_do then
              begin
                if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              pay.DataSet.next;
            end;
          end;
          if can_do then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
            yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
            yewu.DataSet.post;
{
            Send_op_do('¿ÕÔ˽ø¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
 }
          end;
        end;
      end;
    end;
  end;
  FreeAndNil(p_accmonth);
  if frm_sys_progress.showing then begin
    frm_sys_progress.close;
    frm_sys_progress:=nil;

  end;
end;

procedure Tfrm_op_close_select.select_feng_op();
var
  i:integer;
begin

  case close_select_num of
    1:
      begin
        if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then begin
          if not ASSIGNED(frm_sys_progress) then
            frm_sys_progress:=tfrm_sys_progress.Create(self);
          frm_sys_progress.bsSkinGauge1.ProgressText:='ÕýÔÚ·âÕÊÇëµÈºò¡£¡£¡£';
          frm_sys_progress.Show;
          frm_sys_progress.bsSkinGauge1.MaxValue:=frm_op_seae_close.dxdbgrid1.SelectedCount;
          frm_sys_progress.bsSkinGauge1.MinValue:=0;
          frm_sys_progress.bsSkinGauge1.Value:=0;
          frm_sys_progress.Update;
        end;
      end;
    2:
      begin
        if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then begin
          if not ASSIGNED(frm_sys_progress) then
            frm_sys_progress:=tfrm_sys_progress.Create(self);
          frm_sys_progress.bsSkinGauge1.ProgressText:='ÕýÔÚ·âÕÊÇëµÈºò¡£¡£¡£';
          frm_sys_progress.Show;
          frm_sys_progress.bsSkinGauge1.MaxValue:=frm_op_seae_close.dxdbgrid1.SelectedCount;
          frm_sys_progress.bsSkinGauge1.MinValue:=0;
          frm_sys_progress.bsSkinGauge1.Value:=0;
          frm_sys_progress.Update;
        end;
      end;
    3:
      begin
        if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then begin
          if not ASSIGNED(frm_sys_progress) then
            frm_sys_progress:=tfrm_sys_progress.Create(self);
          frm_sys_progress.bsSkinGauge1.ProgressText:='ÕýÔÚ·âÕÊÇëµÈºò¡£¡£¡£';
          frm_sys_progress.Show;
          frm_sys_progress.bsSkinGauge1.MaxValue:=frm_op_seae_close.dxdbgrid1.SelectedCount;
          frm_sys_progress.bsSkinGauge1.MinValue:=0;
          frm_sys_progress.bsSkinGauge1.Value:=0;
          frm_sys_progress.Update;
        end;
      end;
    4:
      begin
        if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then begin
          if not ASSIGNED(frm_sys_progress) then
            frm_sys_progress:=tfrm_sys_progress.Create(self);
          frm_sys_progress.bsSkinGauge1.ProgressText:='ÕýÔÚ·âÕÊÇëµÈºò¡£¡£¡£';
          frm_sys_progress.Show;
          frm_sys_progress.bsSkinGauge1.MaxValue:=frm_op_seae_close.dxdbgrid1.SelectedCount;
          frm_sys_progress.bsSkinGauge1.MinValue:=0;
          frm_sys_progress.bsSkinGauge1.Value:=0;
          frm_sys_progress.Update;
        end;
      end;
  end;


  case close_select_num of
    1:
    begin
      if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
            yewu.DataSet.post;
{
            Send_op_do('º£Ô˳ö¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
          yewu.DataSet.post;
{
          Send_op_do('º£Ô˳ö¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
        end;
      end;
    end;
    2:
    begin
      if frm_op_seai_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
            yewu.DataSet.post;
{
            Send_op_do('º£Ô˽ø¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
          yewu.DataSet.post;
{
          Send_op_do('º£Ô˽ø¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
        end;
      end;
    end;
    3:
    begin
      if frm_op_aire_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
            yewu.DataSet.post;
{
            Send_op_do('¿ÕÔ˳ö¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
          yewu.DataSet.post;
{
          Send_op_do('¿ÕÔ˳ö¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
        end;
      end;
    end;
    4:
    begin
      if frm_op_airi_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
            yewu.DataSet.post;
{
            Send_op_do('¿ÕÔ˽ø¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('ÒµÎñ״̬').asstring<>'ÒµÎñ·âÕÊ' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['ÒµÎñ״̬']:='ÒµÎñ·âÕÊ';
          yewu.DataSet.post;
{
          Send_op_do('¿ÕÔ˽ø¿ÚÒµÎñ·âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
            +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'41',
            yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
            yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
            yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
        end;
      end;
    end;
  end;
  if frm_sys_progress.showing then begin
    frm_sys_progress.close;
    frm_sys_progress:=nil;
  end;

end;

procedure Tfrm_op_close_select.select_feng_fee();
var
  i:integer;
  can_do:boolean;
  p_accmonth:TADOQuery;
    dsstr,PostUrl,str:string;      
begin
  case close_select_num of
    1:
      begin
        if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then begin
          if not ASSIGNED(frm_sys_progress) then
            frm_sys_progress:=tfrm_sys_progress.Create(self);
          frm_sys_progress.bsSkinGauge1.ProgressText:='ÕýÔÚ·âÕÊÇëµÈºò¡£¡£¡£';
          frm_sys_progress.Show;
          frm_sys_progress.bsSkinGauge1.MaxValue:=frm_op_seae_close.dxdbgrid1.SelectedCount;
          frm_sys_progress.bsSkinGauge1.MinValue:=0;
          frm_sys_progress.bsSkinGauge1.Value:=0;
          frm_sys_progress.Update;
        end;
      end;
    2:
      begin
        if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then begin
          if not ASSIGNED(frm_sys_progress) then
            frm_sys_progress:=tfrm_sys_progress.Create(self);
          frm_sys_progress.bsSkinGauge1.ProgressText:='ÕýÔÚ·âÕÊÇëµÈºò¡£¡£¡£';
          frm_sys_progress.Show;
          frm_sys_progress.bsSkinGauge1.MaxValue:=frm_op_seae_close.dxdbgrid1.SelectedCount;
          frm_sys_progress.bsSkinGauge1.MinValue:=0;
          frm_sys_progress.bsSkinGauge1.Value:=0;
          frm_sys_progress.Update;
        end;
      end;
    3:
      begin
        if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then begin
          if not ASSIGNED(frm_sys_progress) then
            frm_sys_progress:=tfrm_sys_progress.Create(self);
          frm_sys_progress.bsSkinGauge1.ProgressText:='ÕýÔÚ·âÕÊÇëµÈºò¡£¡£¡£';
          frm_sys_progress.Show;
          frm_sys_progress.bsSkinGauge1.MaxValue:=frm_op_seae_close.dxdbgrid1.SelectedCount;
          frm_sys_progress.bsSkinGauge1.MinValue:=0;
          frm_sys_progress.bsSkinGauge1.Value:=0;
          frm_sys_progress.Update;
        end;
      end;
    4:
      begin
        if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then begin
          if not ASSIGNED(frm_sys_progress) then
            frm_sys_progress:=tfrm_sys_progress.Create(self);
          frm_sys_progress.bsSkinGauge1.ProgressText:='ÕýÔÚ·âÕÊÇëµÈºò¡£¡£¡£';
          frm_sys_progress.Show;
          frm_sys_progress.bsSkinGauge1.MaxValue:=frm_op_seae_close.dxdbgrid1.SelectedCount;
          frm_sys_progress.bsSkinGauge1.MinValue:=0;
          frm_sys_progress.bsSkinGauge1.Value:=0;
          frm_sys_progress.Update;
        end;
      end;
  end;
   p_accmonth:=createAdoQuery;

  case close_select_num of
    1:
    begin
      if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
          begin
            can_do:=true;
            accept.DataSet.first;
            while not accept.DataSet.eof do
            begin
              if can_do then
              begin
                if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              accept.DataSet.next;
            end;
            if can_do then
            begin
              pay.DataSet.first;
              while not pay.DataSet.eof do
              begin
                if can_do then
                begin
                  if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                     (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                     (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                  begin
                    can_do:=false;
                  end;
                end;
                pay.DataSet.next;
              end;
            end;
            if can_do then
            begin
              yewu.DataSet.edit;
              yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
              yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
              yewu.DataSet.post;
          p_accmonth.Close;
          p_accmonth.SQL.Text:='exec p_exec_accmonth '''+yewu.DataSet.fieldbyname('񅧏').AsString+'''';
          p_accmonth.ExecSQL;
          if (dsstr='') then
             dsstr:=dsstr+'{'
           else dsstr:=dsstr+',{';
          dsstr:=dsstr+'"bookingId":'+ yewu.DataSet.FieldByName('DJYID').asstring;
          dsstr:=dsstr+',"lockStatus":true';
          dsstr:=dsstr+'}';          
{
              Send_op_do('º£Ô˳ö¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
            end;
          end;
        end;

      end
      else
      begin
        if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
        begin
          can_do:=true;
          accept.DataSet.first;
          while not accept.DataSet.eof do
          begin
            if can_do then
            begin
              if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
              begin
                can_do:=false;
              end;
            end;
            accept.DataSet.next;
          end;
          if can_do then
          begin
            pay.DataSet.first;
            while not pay.DataSet.eof do
            begin
              if can_do then
              begin
                if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              pay.DataSet.next;
            end;
          end;
          if can_do then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
            yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
            yewu.DataSet.post;
          p_accmonth.Close;
          p_accmonth.SQL.Text:='exec p_exec_accmonth '''+yewu.DataSet.fieldbyname('񅧏').AsString+'''';
          p_accmonth.ExecSQL;
          if (dsstr='') then
             dsstr:=dsstr+'{'
           else dsstr:=dsstr+',{';
          dsstr:=dsstr+'"bookingId":'+ yewu.DataSet.FieldByName('DJYID').asstring;
          dsstr:=dsstr+',"lockStatus":true';
          dsstr:=dsstr+'}';
{
            Send_op_do('º£Ô˳ö¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
          end;
        end;
      end;
        if (dsstr<>'') then begin
         str:=str+'[';
         str:=str+dsstr;
          str:=str+']';
         PostUrl:='http://47.104.85.216:13579/DataSync/SaveBookingOrderLock';
         TDsDjyThread.create(PostUrl,str,'','1bccf850845542f89057007e51f78f13','2af5ed1f0cc124bcfc4ba05e4a24eac77f2f582c25737477633a1c0303ac3b8ed647e810880dac58');
         InsertSysLog('ÉÏ´«´ó¼òÔÆ·âÕË',yewu.DataSet.FieldByName('ÒµÎñ±àºÅ').asstring);
        end;      
    end;
    2:
    begin
      if frm_op_seai_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
          begin
            can_do:=true;
            accept.DataSet.first;
            while not accept.DataSet.eof do
            begin
              if can_do then
              begin
                if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              accept.DataSet.next;
            end;
            if can_do then
            begin
              pay.DataSet.first;
              while not pay.DataSet.eof do
              begin
                if can_do then
                begin
                  if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                  begin
                    can_do:=false;
                  end;
                end;
                pay.DataSet.next;
              end;
            end;
            if can_do then
            begin
              yewu.DataSet.edit;
              yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
              yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
              yewu.DataSet.post;
{
              Send_op_do('º£Ô˽ø¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
            end;
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
        begin
          can_do:=true;
          accept.DataSet.first;
          while not accept.DataSet.eof do
          begin
            if can_do then
            begin
              if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
              begin
                can_do:=false;
              end;
            end;
            accept.DataSet.next;
          end;
          if can_do then
          begin
            pay.DataSet.first;
            while not pay.DataSet.eof do
            begin
              if can_do then
              begin
                if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              pay.DataSet.next;
            end;
          end;
          if can_do then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
            yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
            yewu.DataSet.post;
{
            Send_op_do('º£Ô˽ø¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ìáµ¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ìáµ¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
          end;
        end;
      end;
    end;
    3:
    begin
      if frm_op_aire_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
          begin
            can_do:=true;
            accept.DataSet.first;
            while not accept.DataSet.eof do
            begin
              if can_do then
              begin
                if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              accept.DataSet.next;
            end;
            if can_do then
            begin
              pay.DataSet.first;
              while not pay.DataSet.eof do
              begin
                if can_do then
                begin
                  if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                  begin
                    can_do:=false;
                  end;
                end;
                pay.DataSet.next;
              end;
            end;
            if can_do then
            begin
              yewu.DataSet.edit;
              yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
              yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
              yewu.DataSet.post;
{
              Send_op_do('¿ÕÔ˳ö¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
            end;
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
        begin
          can_do:=true;
          accept.DataSet.first;
          while not accept.DataSet.eof do
          begin
            if can_do then
            begin
              if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
              begin
                can_do:=false;
              end;
            end;
            accept.DataSet.next;
          end;
          if can_do then
          begin
            pay.DataSet.first;
            while not pay.DataSet.eof do
            begin
              if can_do then
              begin
                if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              pay.DataSet.next;
            end;
          end;
          if can_do then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
            yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
            yewu.DataSet.post;
{
            Send_op_do('¿ÕÔ˳ö¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
          end;
        end;
      end;
    end;
    4:
    begin
      if frm_op_airi_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
          begin
            can_do:=true;
            accept.DataSet.first;
            while not accept.DataSet.eof do
            begin
              if can_do then
              begin
                if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              accept.DataSet.next;
            end;
            if can_do then
            begin
              pay.DataSet.first;
              while not pay.DataSet.eof do
              begin
                if can_do then
                begin
                  if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                     (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                  begin
                    can_do:=false;
                  end;
                end;
                pay.DataSet.next;
              end;
            end;
            if can_do then
            begin
              yewu.DataSet.edit;
              yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
              yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
              yewu.DataSet.post;
{
              Send_op_do('¿ÕÔ˽ø¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}
            end;
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('·ÑÓÃ״̬').asstring<>'·ÑÓ÷âÕÊ' then
        begin
          can_do:=true;
          accept.DataSet.first;
          while not accept.DataSet.eof do
          begin
            if can_do then
            begin
              if (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                 (accept.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
              begin
                can_do:=false;
              end;
            end;
            accept.DataSet.next;
          end;
          if can_do then
          begin
            pay.DataSet.first;
            while not pay.DataSet.eof do
            begin
              if can_do then
              begin
                if (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'ÉóºËͨ¹ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'²¿·Ö½áËã') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½áËãÍê±Ï') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûֹɾ³ý') and
                   (pay.DataSet.FieldByName('·ÑÓÃ״̬').asstring<>'½ûÖ¹ÐÞ¸Ä')then
                begin
                  can_do:=false;
                end;
              end;
              pay.DataSet.next;
            end;
          end;
          if can_do then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['·ÑÓÃ״̬']:='·ÑÓ÷âÕÊ';
            yewu.DataSet['·ÑÓ÷âÕÊÈÕÆÚ']:=date;
            yewu.DataSet.post;
{
            Send_op_do('¿ÕÔ˽ø¿Ú·ÑÓ÷âÕÊ,ÒµÎñ±àºÅ:'+yewu.DataSet.fieldbyname('ÒµÎñ±àºÅ').AsString
              +',Ö÷Ô˵¥ºÅ:'+yewu.DataSet.fieldbyname('Ö÷Ô˵¥ºÅ').AsString,'42',
              yewu.DataSet.fieldbyname('²Ù×÷Ô±').AsString,
              yewu.DataSet.fieldbyname('¿Í·þÔ±').AsString,
              yewu.DataSet.fieldbyname('À¿»õÈË').AsString);
}              
          end;
        end;
      end;
    end;
  end;
  FreeAndNil(p_accmonth);
  if frm_sys_progress.showing then begin
    frm_sys_progress.close;
    frm_sys_progress:=nil;
  end;
end;

procedure Tfrm_op_close_select.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_op_close_select.bsSkinButton1Click(Sender: TObject);
begin
  if bsSkinCheckRadioBox3.Checked then
  begin
    frm_op_close_select.select_feng_all();
    close;
    exit;
  end;
  if bsSkinCheckRadioBox1.Checked then
  begin
    frm_op_close_select.select_feng_op();
    close;
    exit;
  end;
  if bsSkinCheckRadioBox2.Checked then
  begin
    frm_op_close_select.select_feng_fee();
    close;
    exit;
  end;
end;

end.