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.
|
|
|
|
|
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('<27><><EFBFBD>ݷ<EFBFBD>Χ').AsString:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
frmMessageSet.t_sys_awoke_emp.FieldByName('<27><>Ա').AsString:=RxDBLookupCombo4.DisplayValues[0];
|
|
|
|
|
|
frmMessageSet.t_sys_awoke_emp['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
|
|
|
frmMessageSet.t_sys_awoke_emp.Post;
|
|
|
|
|
|
Close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrmaddemp.bsSkinButton2Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
Close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end.
|
