queryattendanceinformation.pas

本系统是一个基于delphi7环境开发的人事管理系统

unit QueryAttendanceInformation;

interface

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

type
  TForm16 = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    ComboBox2: TComboBox;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Label2: TLabel;
    StatusBar1: TStatusBar;
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
  FindData:String;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form16: TForm16;

implementation
 uses WelcomePicture, MainMenu, LoginDailog;
{$R *.dfm}

procedure TForm16.ComboBox2Change(Sender: TObject);
//var
//inputString:String;
begin

if combobox2.Text='员工编号'  then
   begin
       FindData:=inputbox('查询数据','请输入员工的编号','');
   if FindData<>'' then begin
                   self.Button4.Enabled:=true;
                   //self.Label5.Caption:='你所输入的是：'+FindData+',请按查询键！';   end;
                    statusbar1.Panels[0].Text:='你所输入的是：'+FindData+',请按查询键！';   end;
       //zxcv('员工编号',inputString);
  {     with form1.adoquery1 do
           begin
           close;
           sql.Clear;
           sql.add('select * from Checkin where 员工编号=:员工编号');
           parameters[0].Value:=inputString;
           // sql.add('select * from employees where 员工编号 :='+inputString);
           form1.ADOQuery1.Active:=true;
           execsql; 
       end;       }
   end
   else  if combobox2.Text='全勤天数'  then
            begin
            FindData:=inputbox('查询数据','请输入全勤天数','');
               if FindData<>'' then begin
                   self.Button4.Enabled:=true;
                  // self.Label5.Caption:='你所输入的是：'+FindData+',请按查询键！';   end;
                  statusbar1.Panels[0].Text:='你所输入的是：'+FindData+',请按查询键！';   end;
           { with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from Checkin order by 全勤天数 asc where 全勤天数=:全勤天数');
                parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
                end;        }
            end
    else   if combobox2.Text='事假天数'  then
              begin
            FindData:=inputbox('查询数据','请输入事假天数','');
               if FindData<>'' then begin
                   self.Button4.Enabled:=true;
                  // self.Label5.Caption:='你所输入的是：'+FindData+',请按查询键！';   end;
                  statusbar1.Panels[0].Text:='你所输入的是：'+FindData+',请按查询键！';   end;
          {  with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from Checkin order by 事假天数 asc where 事假天数=:事假天数 ');
                parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
                end;           }
            end
    else    if combobox2.Text='旷工天数'  then
              begin
            FindData:=inputbox('查询数据','请输入旷工天数','');
               if FindData<>'' then begin
                   self.Button4.Enabled:=true;
                   //self.Label5.Caption:='你所输入的是：'+FindData+',请按查询键！';   end;
                   statusbar1.Panels[0].Text:='你所输入的是：'+FindData+',请按查询键！';   end;
         {   with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from Checkin order by 旷工天数 asc 旷工天数=:旷工天数');
                parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
                end;   }
            end
    else    if combobox2.Text='迟到天数'  then
              begin
            FindData:=inputbox('查询数据','请输入迟到天数','');
               if FindData<>'' then begin
                   self.Button4.Enabled:=true;
                  // self.Label5.Caption:='你所输入的是：'+FindData+',请按查询键！';   end;
                  statusbar1.Panels[0].Text:='你所输入的是：'+FindData+',请按查询键！';   end;
          {  with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from Checkin order by 迟到天数 asc where 迟到天数=:迟到天数');
                parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
                end;         }
            end
     else    if combobox2.Text='早退天数'  then
              begin
            FindData:=inputbox('查询数据','请输入早退天数','');
               if FindData<>'' then begin
                   self.Button4.Enabled:=true;
                  // self.Label5.Caption:='你所输入的是：'+FindData+',请按查询键！';   end;
                  statusbar1.Panels[0].Text:='你所输入的是：'+FindData+',请按查询键！';   end;
           { with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from Checkin order by 早退天数 asc  where 早退天数=:早退天数');
                parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
                end;        }
            end
     else     if combobox2.Text='休假天数'  then
              begin
            FindData:=inputbox('查询数据','请输入休假天数','');
               if FindData<>'' then begin
                   self.Button4.Enabled:=true;
                   //self.Label5.Caption:='你所输入的是：'+FindData+',请按查询键！';   end;
                   statusbar1.Panels[0].Text:='你所输入的是：'+FindData+',请按查询键！';   end;
          {  with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from Checkin order by 休假天数 asc where 休假天数=:休假天数');
                parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
                end;    }
            end
     else     if combobox2.Text='日常加班天数'  then
              begin
            FindData:=inputbox('查询数据','请输入日常加班天数','');
               if FindData<>'' then begin
                   self.Button4.Enabled:=true;
                  // self.Label5.Caption:='你所输入的是：'+FindData+',请按查询键！';   end;
                  statusbar1.Panels[0].Text:='你所输入的是：'+FindData+',请按查询键！';   end;
           { with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from Checkin order by 日常加班天数 asc where 日常加班天数=:日常加班天数');
                parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
                end;   }
            end
     else     if combobox2.Text='法定节假日加班天数'  then
              begin
            FindData:=inputbox('查询数据','请输入法定节假日加班天数','');
               if FindData<>'' then begin
                   self.Button4.Enabled:=true;
                   //self.Label5.Caption:='你所输入的是：'+FindData+',请按查询键！';   end;
                   statusbar1.Panels[0].Text:='你所输入的是：'+FindData+',请按查询键！';   end;
           { with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from Checkin order by 法定节假日加班 asc where 法定节假日加班=:法定节假日加班');
                parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
                end;       }
            end
     else      if combobox2.Text='周末加班天数'  then
              begin
            FindData:=inputbox('查询数据','请输入周末加班','');
               if FindData<>'' then begin
                   self.Button4.Enabled:=true;
                   //self.Label5.Caption:='你所输入的是：'+FindData+',请按查询键！';   end;
                   statusbar1.Panels[0].Text:='你所输入的是：'+FindData+',请按查询键！';   end;
          {  with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from Checkin order by 周末加班加班 asc where 周末加班=:周末加班');
                parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
                end;  }     end
              else
              begin
              showmessage('请先选择查询统计方式！');
              end;

end;

procedure TForm16.ComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13  then
combobox2change(sender);
end;