u_employ_room.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_Employ_Room;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_Form_base, ExtCtrls, DB, ADODB, StdCtrls, Buttons, Grids,
  DBGridEh;

type
  TF_Employ_Room = class(TF_Form_base)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Splitter1: TSplitter;
    GroupBox2: TGroupBox;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    Label1: TLabel;
    Q_mainEmp_id: TStringField;
    Q_mainEmp_name: TStringField;
    Q_mainEmp_sex: TStringField;
    Q_mainEmp_bmname: TStringField;
    Q_mainEmp_Gz: TStringField;
    Q_mainEmp_ZW: TStringField;
    Q_mainEmp_ISRoom: TBooleanField;
    Q_detailBedid: TStringField;
    Q_detailRooMid: TStringField;
    Q_detailEmp_id: TStringField;
    Q_detailEmp_name: TStringField;
    Q_detailUsed: TBooleanField;
    Q_detailBoxid: TStringField;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGridEh2DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Employ_Room: TF_Employ_Room;

implementation

uses U_data;

{$R *.dfm}

procedure TF_Employ_Room.BitBtn2Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TF_Employ_Room.FormShow(Sender: TObject);
begin
  inherited;
  Q_main.Open;
  Q_Detail.Open;
end;

procedure TF_Employ_Room.BitBtn1Click(Sender: TObject);
begin
  inherited;

  if Q_main.RecordCount=0 then
  begin
    MessageDlg('没有要分配的人员！', mtWarning, [mbOK], 0);
    abort;
  end;
  if Q_main.RecordCount=0 then
  begin
    MessageDlg('没有可以分配的宿舍!', mtWarning, [mbOK], 0);
    Abort;
  end;
  if MessageDlg('确认将 ' + Q_detail.Fieldbyname('bedid').AsString + ' 宿舍分配给 ' + Q_main.fieldbyname('Emp_id').AsString + ' 员工吗?', mtCustom, [mbOK, mbCancel], 0) = mrok then
  begin
    Sql_s := 'Update TB_Room_bed set Emp_id=''' + Q_main.fieldbyname('Emp_id').AsString + ''',emp_name='''
      + Q_main.fieldbyname('Emp_name').AsString + ''',used=1 where Bedid=''' + Q_detail.fieldbyname('Bedid').AsString + '''';
    Sql_exec(sql_s);
    Sql_S := 'Update TB_Room_base set usedbed=Usedbed+1,Bedsetted=1 where Roomid=''' + Q_Detail.fieldbyname('Roomid').AsString + '''';
    Sql_exec(sql_s);
  end;

    Q_main.Close;
    Q_main.Open;
    Q_Detail.Close;
    Q_Detail.Open;
end;

procedure TF_Employ_Room.DBGridEh2DblClick(Sender: TObject);
begin
  inherited;
  bitbtn1.Click;

end;

initialization
  RegisterClass(TF_Employ_Room);

end.