prsentfindunit.pas

人事管理系统帮助人们管理复杂的关系

unit PrsentFindUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TPrsentFindForm = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    edtNo: TEdit;
    edtName: TEdit;
    Label2: TLabel;
    BTfind: TButton;
    BTexit: TButton;
    Label4: TLabel;
    CBMonth: TComboBox;
    Label5: TLabel;
    procedure BTexitClick(Sender: TObject);
    procedure BTfindClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PrsentFindForm: TPrsentFindForm;

implementation

uses DataMUnit, PrsentFindUpUnit, LoginFormUnit;

{$R *.dfm}

procedure TPrsentFindForm.BTexitClick(Sender: TObject);
begin
  PrsentFindForm.Close;
end;

procedure TPrsentFindForm.BTfindClick(Sender: TObject);
begin
  if DataM.ADOPrsent.Active = true then
     DataM.ADOPrsent.Close;

  if CBmonth.Text = '所有月份' then
    DataM.ADOPrsent.SQL.Text:= 'select * from Prsent Where 员工编号 = ''' + edtNo.Text
                              + ''''+ 'and 员工姓名 = ''' + edtName.Text + ''''
  else
    DataM.ADOPrsent.SQL.Text:= 'select * from Prsent Where 员工编号 = ''' + edtNo.Text
                              + ''''+ 'and 员工姓名 = ''' + edtName.Text + ''''
                              + 'and 缺勤月份 = '''+ Cbmonth.Text+'''';

  DataM.ADOPrsent.Prepared;
  DataM.ADOPrsent.Open;
  PrsentFindUp.Show;

end;

procedure TPrsentFindForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if LoginForm.CBPurview.Text <> '普通员工' then
  begin
    edtno.Text:='';
    edtname.Text:='';
    Cbmonth.Text:='';
  end;
end;

end.