hanxuntao
/
D6HECHUAN
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
D6HECHUAN/信息资源/u_info_render_check.pas

89 lines
2.6 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
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['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=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('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
begin
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Memo1.Lines.Text;
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Memo1.Lines.Text;
end;
if (frm_info_render_manager.t_info_render.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') then
begin
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
frm_info_render_manager.t_info_render['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=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.