unit u_info_render_check;

interface

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

type
  Tfrm_info_render_check = class(TForm)
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    Memo1: TMemo;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_info_render_check: Tfrm_info_render_check;

implementation

uses u_main, u_info_render_manager;

{$R *.dfm}

procedure Tfrm_info_render_check.bsSkinButton1Click(Sender: TObject);
begin
  if Memo1.Lines.Text=''then
  begin
    showmessage('请输入审核意见！！');
    exit;
  end;
  IF frm_info_render_check.Hint='1' then
  begin
    try
      frm_info_render_manager.t_info_render.Edit;
      frm_info_render_manager.t_info_render['审核状态']:='审核通过';
      frm_info_render_manager.t_info_render['审核人']:=employee;
      frm_info_render_manager.t_info_render['审核日期']:=date;
      frm_info_render_manager.t_info_render['审核意见']:=Memo1.Lines.Text;
      frm_info_render_manager.t_info_render.post;
    finally
      ;
    end;
  end;
  
  IF frm_info_render_check.Hint='2' then
  begin
    try
      frm_info_render_manager.t_info_render.Edit;
      if (frm_info_render_manager.t_info_render.FieldByName('审核状态').asstring='提交审核') then
      begin
        frm_info_render_manager.t_info_render['审核状态']:='复核通过';
        frm_info_render_manager.t_info_render['审核人']:=employee;
        frm_info_render_manager.t_info_render['审核日期']:=date;
        frm_info_render_manager.t_info_render['复核人']:=employee;
        frm_info_render_manager.t_info_render['复核日期']:=date;
        frm_info_render_manager.t_info_render['审核意见']:=Memo1.Lines.Text;
        frm_info_render_manager.t_info_render['复核意见']:=Memo1.Lines.Text;
      end;
      if (frm_info_render_manager.t_info_render.FieldByName('审核状态').asstring='审核通过') then
      begin
        frm_info_render_manager.t_info_render['审核状态']:='复核通过';
        frm_info_render_manager.t_info_render['复核人']:=employee;
        frm_info_render_manager.t_info_render['复核日期']:=date;
        frm_info_render_manager.t_info_render['复核意见']:=Memo1.Lines.Text;
      end;
      frm_info_render_manager.t_info_render.post;
    finally
      ;
    end;
  end;
  close;
end;

procedure Tfrm_info_render_check.bsSkinButton2Click(Sender: TObject);
begin
  close;
end;

end.