DONGSHENG6/业务模块/u_op_open_all.~pas

unit u_op_open_all;

interface

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

type
  Tfrm_op_open_all = 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_open_all();
    procedure select_open_op();
    procedure select_open_fee();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_open_all: Tfrm_op_open_all;

implementation

uses my_sys_chat, my_sys_function;

{$R *.dfm}
procedure Tfrm_op_open_all.select_open_all();
var
  bookmark:tbookmark;
begin
  bookmark:=yewu.dataset.GetBookmark;
  try
  yewu.DataSet.First;
  while not yewu.DataSet.eof do
  begin
    if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
    begin
      yewu.DataSet.edit;
      yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
      yewu.DataSet.post;

      CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
    end;
    if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
    and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
    begin
      if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
        MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
      end else begin
        yewu.DataSet.edit;

        if Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').asstring)<>'' then
          yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').asstring
        else yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
        yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
        yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
        yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;

        yewu.DataSet.post;
        CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
      end;
    end;
    yewu.DataSet.next;
  end;
  finally
    TAdoQuery(yewu.DataSet).requery;
    yewu.DataSet.GotoBookmark(bookmark);
  end;
end;

procedure Tfrm_op_open_all.select_open_op();
var
  bookmark:tbookmark;
begin
  bookmark:=yewu.dataset.GetBookmark;
  try
  yewu.DataSet.First;
  while not yewu.DataSet.eof do
  begin
    if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
    begin
      yewu.DataSet.edit;
      yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
      yewu.DataSet.post;
      CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
    end;
    yewu.DataSet.next;
  end;
  finally
    TAdoQuery(yewu.DataSet).requery;
    yewu.DataSet.GotoBookmark(bookmark);
  end;
end;

procedure Tfrm_op_open_all.select_open_fee();
var
  i:integer;
  bookmark:tbookmark;
begin
  bookmark:=yewu.dataset.GetBookmark;
  try
  yewu.DataSet.First;
  while not yewu.DataSet.eof do
  begin
    if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
    and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
    begin
      if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
        MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
      end else begin
        yewu.DataSet.edit;
        if Trim(yewu.DataSet.FieldByName('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').asstring)<>'' then
          yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:=yewu.DataSet.FieldByName('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').asstring
        else
        yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
        yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
        yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
        yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
        yewu.DataSet.post;
        CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
      end;
    end;
    yewu.DataSet.next;
  end;
  finally
    TAdoQuery(yewu.DataSet).requery;
    yewu.DataSet.GotoBookmark(bookmark);
  end;

end;

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

procedure Tfrm_op_open_all.bsSkinButton1Click(Sender: TObject);
begin
  if bsSkinCheckRadioBox3.Checked then
  begin
    frm_op_open_all.select_open_all();
    close;
    exit;
  end;
  if bsSkinCheckRadioBox1.Checked then
  begin
    frm_op_open_all.select_open_op();
    close;
    exit;
  end;
  if bsSkinCheckRadioBox2.Checked then
  begin
    frm_op_open_all.select_open_fee();
    close;
    exit;
  end;
end;

end.