You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
89 lines
2.6 KiB
Plaintext
89 lines
2.6 KiB
Plaintext
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.
|