unit u_sys_dep_emp_department;

interface

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

type
  Tfrm_sys_dep_emp_department = class(TForm)
    Label15: TLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    RxDBLookupCombo12: TRxDBLookupCombo;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sys_dep_emp_department: Tfrm_sys_dep_emp_department;

implementation

uses u_data_share, u_sys_dep_emp;

{$R *.dfm}

procedure Tfrm_sys_dep_emp_department.FormShow(Sender: TObject);
begin
  frm_data_share.t_sys_department.requery;
end;

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

procedure Tfrm_sys_dep_emp_department.bsSkinButton1Click(Sender: TObject);
begin
  if RxDBLookupCombo12.DisplayValue='' then
  begin
    showmessage('请输入新的部门！');
    exit;
  end;
  frm_sys_dep_emp.t_sys_employee.edit;
  frm_sys_dep_emp.t_sys_employee['部门名称']:=RxDBLookupCombo12.DisplayValue;
  frm_sys_dep_emp.t_sys_employee.post;
  frm_sys_dep_emp.t_sys_employee.requery;
  close;
end;

end.