cxgwpz.pas

酒店资源管理的软件

unit cxgwpz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB;

type
  TfrmCxgwpz = class(TForm)
    RadioGroup1: TRadioGroup;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    procedure cxgwpz;
  public
    { Public declarations }
  end;

var
  frmCxgwpz: TfrmCxgwpz;

implementation

uses DM, gwcxrylb, szgwbz;

{$R *.dfm}

procedure TfrmCxgwpz.cxgwpz;
var
  strSQL : string;
begin
  case RadioGroup1.ItemIndex of
    0:      //  查询人员不足的岗位
    begin
      strSQL := 'select a.gwbh,b.bmdm_mc,c.gwdm_mc ,a.bzrs1,a.zzrs1, '
            + ' a.jzrs1,a.bmdm,a.gwdm '
            + ' from gwbzrsdb as a ,bmdm as b,gwdm as c '
            + ' where a.bmdm =b.bmdm_dm and a.gwdm =c.gwdm_dm '
            + ' and a.zzrs1+ a.jzrs1 < a.bzrs1 ';
      ADODataSet1.Active := false;
      ADODataSet1.CommandText := strSQL ;
      ADODataSet1.Active := true;
      DBGrid1.Columns[0].Title.Caption := '岗位编号';
      DBGrid1.Columns[0].Width := 80;
      DBGrid1.Columns[1].Title.Caption := '部门';
      DBGrid1.Columns[1].Width := 80;
      DBGrid1.Columns[2].Title.Caption := '岗位';
      DBGrid1.Columns[2].Width := 80;
      DBGrid1.Columns[3].Title.Caption := '编制人数';
      DBGrid1.Columns[3].Width := 80;
      DBGrid1.Columns[4].Title.Caption := '专职人数';
      DBGrid1.Columns[4].Width := 80;
      DBGrid1.Columns[5].Title.Caption := '兼职人数';
      DBGrid1.Columns[5].Width := 80;
      DBGrid1.Columns[6].Visible := false;
      DBGrid1.Columns[7].Visible := false;
    end;
    1:    //  查询人员富余的岗位
    begin
      strSQL := 'select a.gwbh,b.bmdm_mc,c.gwdm_mc ,a.bzrs1,'
            + ' a.zzrs1,a.jzrs1,a.bmdm,a.gwdm  '
            + ' from gwbzrsdb as a ,bmdm as b,gwdm as c '
            + ' where a.bmdm =b.bmdm_dm and a.gwdm =c.gwdm_dm '
            + ' and a.zzrs1+ a.jzrs1 > a.bzrs1 ';
      ADODataSet1.Active := false;
      ADODataSet1.CommandText := strSQL ;
      ADODataSet1.Active := true;
      DBGrid1.Columns[0].Title.Caption := '岗位编号';
      DBGrid1.Columns[0].Width := 80;
      DBGrid1.Columns[1].Title.Caption := '部门';
      DBGrid1.Columns[1].Width := 80;
      DBGrid1.Columns[2].Title.Caption := '岗位';
      DBGrid1.Columns[2].Width := 80;
      DBGrid1.Columns[3].Title.Caption := '编制人数';
      DBGrid1.Columns[3].Width := 80;
      DBGrid1.Columns[4].Title.Caption := '专职人数';
      DBGrid1.Columns[4].Width := 80;
      DBGrid1.Columns[5].Title.Caption := '兼职人数';
      DBGrid1.Columns[5].Width := 80;
      DBGrid1.Columns[6].Visible := false;
      DBGrid1.Columns[7].Visible := false;
    end;
    2://查询不符合条件的在岗人员
    begin
      strSQL := 'select a.gwbh,b.bmdm_mc,c.gwdm_mc,a.jbzl_gh,'
        + ' a.jbzl_xm,a.bmdm,a.gwdm  '
        + ' from gwbfyqry as a , bmdm as b ,gwdm as c '
        + 'where a.bmdm = b.bmdm_dm and a.gwdm = c.gwdm_dm';
      ADODataSet1.Active := false;
      ADODataSet1.CommandText := strSQL ;
      ADODataSet1.Active := true;
      DBGrid1.Columns[0].Title.Caption := '岗位编号';
      DBGrid1.Columns[0].Width := 80;
      DBGrid1.Columns[1].Title.Caption := '部门';
      DBGrid1.Columns[1].Width := 80;
      DBGrid1.Columns[2].Title.Caption := '岗位';
      DBGrid1.Columns[2].Width := 80;
      DBGrid1.Columns[3].Title.Caption := '工号';
      DBGrid1.Columns[3].Width := 80;
      DBGrid1.Columns[4].Title.Caption := '姓名';
      DBGrid1.Columns[4].Width := 80;
      DBGrid1.Columns[5].Visible := false;
      DBGrid1.Columns[6].Visible := false;
    end;
    3:    //  查询全部岗位配置
    begin
      strSQL := 'select a.gwbh,b.bmdm_mc,c.gwdm_mc ,'
            + ' a.bzrs1,a.zzrs1,a.jzrs1,a.bmdm,a.gwdm  '
            + ' from gwbzrsdb as a ,bmdm as b,gwdm as c '
            + ' where a.bmdm =b.bmdm_dm and a.gwdm =c.gwdm_dm ';
      ADODataSet1.Active := false;
      ADODataSet1.CommandText := strSQL ;
      ADODataSet1.Active := true;
      DBGrid1.Columns[0].Title.Caption := '岗位编号';
      DBGrid1.Columns[0].Width := 80;
      DBGrid1.Columns[1].Title.Caption := '部门';
      DBGrid1.Columns[1].Width := 80;
      DBGrid1.Columns[2].Title.Caption := '岗位';
      DBGrid1.Columns[2].Width := 80;
      DBGrid1.Columns[3].Title.Caption := '编制人数';
      DBGrid1.Columns[3].Width := 80;
      DBGrid1.Columns[4].Title.Caption := '专职人数';
      DBGrid1.Columns[4].Width := 80;
      DBGrid1.Columns[5].Title.Caption := '兼职人数';
      DBGrid1.Columns[5].Width := 80;
      DBGrid1.Columns[6].Visible := false;
      DBGrid1.Columns[7].Visible := false;
    end;
  end;
end;

procedure TfrmCxgwpz.FormCreate(Sender: TObject);
begin
  cxgwpz ;
end;

procedure TfrmCxgwpz.RadioGroup1Click(Sender: TObject);
begin
  cxgwpz ;
end;

procedure TfrmCxgwpz.Button1Click(Sender: TObject);
begin
  frmGwcxrylb := TfrmGwcxrylb.Create(nil);
  if ADODataSet1.fieldByName('gwbh').Value = null then
  begin
    frmGwcxrylb.bmdm := ADODataSet1.fieldByName('bmdm').Value ;
    frmGwcxrylb.gwdm := ADODataSet1.fieldByName('gwdm').Value ;
  end
  else
  begin
    frmGwcxrylb.Gwbh := ADODataSet1.fieldByName('gwbh').Value ;
  end;
  frmGwcxrylb.ShowModal ;
end;

procedure TfrmCxgwpz.Button2Click(Sender: TObject);
begin
  frmSzgwbz := TfrmSzgwbz.Create(nil);
  DataModule1.ADODataSetGwBz.Locate('gwbz_bh',ADODataSet1.
      fieldByName('gwbh').Value,[]); //基本资料数据集跳到指定的记录
  frmSzgwbz.ShowModal ;
end;

procedure TfrmCxgwpz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree ;
end;

procedure TfrmCxgwpz.Button3Click(Sender: TObject);
begin
  close;
end;

end.