gwcxrylb.pas

酒店资源管理的软件

unit gwcxrylb;

interface

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

type
  TfrmGwcxrylb = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FGwbh:string;
    FBmdm:string;
    FGwdm:string;
    procedure setGwbh(value:string);
    procedure setBmdm(value:string);
    procedure setGwdm(value:string);
    procedure czry;
  public
    { Public declarations }
    property Gwbh:string read FGwbh write setGwbh ;
    property bmdm:string read FBmdm write setBmdm ;
    property gwdm:string read Fgwdm write setGwdm ;
  end;

var
  frmGwcxrylb: TfrmGwcxrylb;

implementation

uses DM, grzl;

{$R *.dfm}

procedure TfrmGwcxrylb.setGwbh(value:string);
begin
  FGwbh := value ;
  czry ;
end;

procedure TfrmGwcxrylb.setBmdm(value:string);
begin
  FBmdm := value ;
  czry ;
end;

procedure TfrmGwcxrylb.setGwdm(value:string);
begin
  FGwdm := value ;
  czry ;
end;

//查找人员
procedure TfrmGwcxrylb.czry;
var
  strSQL:string;
begin
  ADODataSet1.Active := False ;
  if trim(FGwbh) <>'' then   //岗位编号不为空，则按岗位编号查询
  begin
    strSQL := 'select a.gh ,b.jbzl_xb from gwbzry as a ,jbzl as b'
        +' where a.gwbh = ''' + trim(FGwbh) + ''' and  a.gh = b.jbzl_gh';
    ADODataSet1.CommandText := strSQL ;
    ADODataSet1.Active := true;
    if ADODataSet1.IsEmpty then
    begin
      ADODataSet1.Active := False ;
      exit;
    end;
    DBGrid1.Columns[0].Title.Caption := '工号';
    DBGrid1.Columns[0].Width := 50;
    DBGrid1.Columns[1].Title.Caption := '姓名';
    DBGrid1.Columns[1].Width := 50;

  end
  else      //岗位编号为空，则按部门代码和岗位代码查询
  begin
    if (trim(FBmdm)<>'') and (trim(FGwdm)<>'') then
    begin
      strSQL := 'select a.gh ,b.jbzl_xm from gwbzry as a ,jbzl as b'
        +' where a.bmdm = ''' + trim(FBmdm) + ''' and  a.gwdm = '''
        + trim(FGwdm) +  ''' and a.gh = b.jbzl_gh';
      ADODataSet1.CommandText := strSQL ;
      ADODataSet1.Active := true;
      if ADODataSet1.IsEmpty then
      begin
        ADODataSet1.Active := False ;
        exit;
      end;
      DBGrid1.Columns[0].Title.Caption := '工号';
      DBGrid1.Columns[0].Width := 50;
      DBGrid1.Columns[1].Title.Caption := '姓名';
      DBGrid1.Columns[1].Width := 50;
    end;
  end;
end;

procedure TfrmGwcxrylb.Button1Click(Sender: TObject);
begin
  DataModule1.ADODataSetJbzl.Locate('jbzl_gh',ADODataSet1.
      fieldByName('gh').Value,[]);  //将基本资料数据集定位到相应的员工
  frmGrzl := TfrmGrzl.Create(nil);
  frmGrzl.FormStyle := fsNormal ;
  frmGrzl.Visible := False ; 
  frmGrzl.ShowModal ; 
end;

end.