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.
49 lines
1.2 KiB
Plaintext
49 lines
1.2 KiB
Plaintext
unit u_addemp;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, bsSkinCtrls, RxLookup;
|
|
|
|
type
|
|
Tfrmaddemp = class(TForm)
|
|
bsSkinGroupBox1: TbsSkinGroupBox;
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
bsSkinButton1: TbsSkinButton;
|
|
bsSkinButton2: TbsSkinButton;
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmaddemp: Tfrmaddemp;
|
|
|
|
implementation
|
|
|
|
uses u_main, U_SetMessage;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrmaddemp.bsSkinButton1Click(Sender: TObject);
|
|
begin
|
|
frmMessageSet.t_sys_awoke_emp.Insert;
|
|
frmMessageSet.t_sys_awoke_emp.FieldByName('awoke_id').AsInteger:=frmMessageSet.t_sys_awoke.fieldByName('awoke_id').AsInteger;
|
|
frmMessageSet.t_sys_awoke_emp.FieldByName('数据范围').AsString:='个人数据';
|
|
frmMessageSet.t_sys_awoke_emp.FieldByName('人员').AsString:=RxDBLookupCombo4.DisplayValues[0];
|
|
frmMessageSet.t_sys_awoke_emp['是否提醒']:=1;
|
|
frmMessageSet.t_sys_awoke_emp.Post;
|
|
Close;
|
|
end;
|
|
|
|
procedure Tfrmaddemp.bsSkinButton2Click(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
end.
|