queryinformation.pas

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

unit QueryInformation;

interface

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

type
  TForm6 = class(TForm)
    DBGrid1: TDBGrid;
    Button4: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Button2: TButton;
    StatusBar1: TStatusBar;
    Label2: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
  FindData:String;
   function zxcv(const filder_name:string; var inputString1:string):string;
  published
    { Public declarations }
  end;

var
  Form6: TForm6;
  
implementation
 uses MainMenu, WelcomePicture, LoginDailog;
{$R *.dfm}

function tform6.zxcv(const filder_name:string; var inputString1:string):string;
begin
               with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from employees where'+filder_name +':='+inputString1);
               // parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
                end;
end;

procedure TForm6.Button2Click(Sender: TObject);
begin
if combobox1.Text='按员工编号查询'  then
   begin
       //zxcv('员工编号',inputString);
       with form1.adoquery1 do
           begin
           close;
           sql.Clear;
          if  form2.user_name<>'adm' then begin
         // showmessage('form2.user_name<>adm');
           sql.add('select 姓名,部门名称 from employees where 员工编号=:员工编号');
            end else begin
            sql.add('select * from employees where 员工编号=:员工编号');
           end;
           parameters[0].Value:=FindData;
            //sql.add('select * from employees where 员工编号 :='+inputString);
           form1.ADOQuery1.Active:=true;
           execsql;
  statusbar1.Panels[0].Text:='以上为你所查询的结果！';
         exit;
       end;
   end
   else  if combobox1.Text='按员工姓名查询'  then
            begin
            //inputString:=inputbox('查询数据','请输入员工的姓名','');
            with form1.adoquery1 do
                begin
                close;
                sql.Clear;
             if  form2.user_name<>'adm' then begin
         // showmessage('form2.user_name<>adm');
           sql.add('select 姓名,部门名称 from employees where 员工编号=:员工编号');
            end else begin
            sql.add('select * from employees where 员工编号=:员工编号');
           end;
                parameters[0].Value:=FindData;
                form1.ADOQuery1.Active:=true;
                execsql;
           statusbar1.Panels[0].Text:='以上为你所查询的结果！';
         exit;
                end;
            end

    else    if combobox1.Text='按工作证号查询'  then
              begin
            //inputString:=inputbox('查询数据','请输入工作证号','');
            with form1.adoquery1 do
                begin
                close;
                sql.Clear;
             if  form2.user_name<>'adm' then begin
         // showmessage('form2.user_name<>adm');
           sql.add('select 姓名,部门名称 from employees where 工作证号=:工作证号');
            end else begin
            sql.add('select * from employees where 工作证号=:工作证号'); end;
                parameters[0].Value:=FindData;
                form1.ADOQuery1.Active:=true;
                execsql;
            statusbar1.Panels[0].Text:='以上为你所查询的结果！';
         exit;
                end;
            end

     else     if combobox1.Text='按当前状况查询'  then
              begin
           // FindData:=inputbox('查询数据','请输入当前状况','');
            with form1.adoquery1 do
                begin
                close;
                sql.Clear;
             if  form2.user_name<>'adm' then begin
    
           sql.add('select 姓名,部门名称 from employees where 员工状态=:员工状态');
            end else begin
            sql.add('select * from employees where 员工状态=:员工状态');  end;
                parameters[0].Value:=FindData;
                form1.ADOQuery1.Active:=true;
                execsql;
             statusbar1.Panels[0].Text:='以上为你所查询的结果！';
         exit;
                end;
            end
     else     if combobox1.Text='按所属部门查询'  then
              begin
           // FindData:=inputbox('查询数据','请输入当前状况','');
            with form1.adoquery1 do
                begin
                close;
                sql.Clear;
             if  form2.user_name<>'adm' then begin
    
           sql.add('select 姓名,部门名称 from employees where 部门名称=:部门名称');
            end else begin
            sql.add('select * from employees where 部门名称=:部门名称');  end;
                parameters[0].Value:=FindData;
                form1.ADOQuery1.Active:=true;
                execsql;
             statusbar1.Panels[0].Text:='以上为你所查询的结果！';
         exit;
                end;
            end

        else  if  combobox1.Text='查询全部员工'  then
        begin
with Form1.adoquery1 do
begin
   close;
   sql.clear;
             if  form2.user_name<>'adm' then begin
           sql.add('select 姓名,部门名称 from employees ');
            end else begin
            sql.add('select * from employees '); end;
   if form1.ADOQuery1.Active=false  then
       form1.ADOQuery1.Active:=true;
   open;  //youfanhui
            statusbar1.Panels[0].Text:='以上为你所查询的结果！';
         exit;
end;
end;
end;

procedure TForm6.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13  then
combobox1change(sender);
end;

procedure TForm6.ComboBox1Change(Sender: TObject);
begin
if combobox1.Text='按员工编号查询'  then
   begin
       FindData:=inputbox('查询数据','请输入员工的编号','');
       self.Button2.Enabled:=true;
      statusbar1.Panels[0].Text:='你所输入：'+FindData+',请按查询键！';
       exit;

   end
   else  if combobox1.Text='按员工姓名查询'  then
            begin
            FindData:=inputbox('查询数据','请输入员工的姓名','');
                   if FindData<>'' then begin
                   self.Button2.Enabled:=true;
                   statusbar1.Panels[0].Text:='你所输入的是：'+FindData+',请按查询键！';
                   exit;
                    end;
            end

    else    if combobox1.Text='按工作证号查询'  then
              begin
            FindData:=inputbox('查询数据','请输入工作证号','');
                  if FindData<>'' then begin
                   self.Button2.Enabled:=true;
                   statusbar1.Panels[0].Text:='你所输入的是：'+FindData+',请按查询键！';
                   exit;
                   end;

            end

     else     if combobox1.Text='按当前状况查询'  then
              begin
            FindData:=inputbox('查询数据','请输入员工当前状况(在职，退休，待聘等)','');
                    if FindData<>'' then begin
                   self.Button2.Enabled:=true;
                   statusbar1.Panels[0].Text:='你所输入是：'+FindData+',请按查询键！';
                   exit;
                   end;

            end
                 else     if combobox1.Text='按所属部门查询'  then
              begin
            FindData:=inputbox('查询数据','请输入员工所属部门','');
                    if FindData<>'' then begin
                   self.Button2.Enabled:=true;
                   statusbar1.Panels[0].Text:='你所输入是：'+FindData+',请按查询键！';
                   exit;
                   end;

            end
                 else     if combobox1.Text='查询全部员工'  then
              begin
               // FindData='' then begin
              self.Button2.Enabled:=true;
              statusbar1.Panels[0].Text:='请按查询键！';
              exit;
            

              end
                 else   if (combobox1.Text='(请选择)') or  (combobox1.Text='') then
              begin
              showmessage('请先选择查询方式');
              end;

end;

procedure TForm6.Button4Click(Sender: TObject);
begin
form6.Close;
end;

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.ADOQuery1.SQL.Clear;
form3.Enabled:=true;
end;

procedure TForm6.FormShow(Sender: TObject);
begin
//self.DBGrid1.
form1.ADOQuery1.SQL.Clear;
self.Button2.Enabled:=false;
statusbar1.Panels[0].Text:='欢迎使用员工信息查询操作! ';
with Form1.adoquery1 do
begin
   close;
   sql.clear;
             if  form2.user_name<>'adm' then begin
           sql.add('select 姓名,部门名称 from employees ');
            end else begin
            sql.add('select * from employees '); end;
   if form1.ADOQuery1.Active=false  then
       form1.ADOQuery1.Active:=true;
   open;  //youfanhui
        ///    statusbar1.Panels[0].Text:='以上为你所查询的结果！';
        // exit;
end;
end;

end.