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   //崗位編號(hào)不為空，則按崗位編號(hào)查詢
  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 := '工號(hào)';
    DBGrid1.Columns[0].Width := 50;
    DBGrid1.Columns[1].Title.Caption := '姓名';
    DBGrid1.Columns[1].Width := 50;

  end
  else      //崗位編號(hào)為空，則按部門代碼和崗位代碼查詢
  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 := '工號(hào)';
      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,[]);  //將基本資料數(shù)據(jù)集定位到相應(yīng)的員工
  frmGrzl := TfrmGrzl.Create(nil);
  frmGrzl.FormStyle := fsNormal ;
  frmGrzl.Visible := False ; 
  frmGrzl.ShowModal ; 
end;

end.