querygradeinformation.~pas

来自「本系统是一个基于delphi7环境开发的人事管理系统」· ~PAS 代码 · 共 146 行

unit QueryGradeInformation;

interface

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

type
  TForm12 = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

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

procedure TForm12.Button1Click(Sender: TObject);
begin
with Form1.adoquery1 do
begin
   close;
   sql.clear;
   sql.add('select * from Evaluation');
   if form1.ADOQuery1.Active=false  then
       form1.ADOQuery1.Active:=true;
   open;  //youfanhui
end;
end;

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

procedure TForm12.ComboBox1Change(Sender: TObject);
var
inputString:String;
begin
if combobox1.Text='员工编号'  then
   begin
       inputString:=inputbox('查询数据','请输入员工的编号','');
       if inputString='' then exit;
       with form1.adoquery1 do
           begin
           close;
           sql.Clear;
           sql.add('select * from employees where 员工编号=:员工编号');
           parameters[0].Value:=inputString;
           form1.ADOQuery1.Active:=true;
           execsql; 
       end;
   end
   else  if combobox1.Text='部门名称'  then
            begin
            inputString:=inputbox('查询数据','请输入部门名称','');
             if inputString='' then exit;
            with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from employees where 部门名称=:部门名称');
                parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
                end;
            end
    else    if combobox1.Text='总体考评'  then
              begin
            inputString:=inputbox('查询数据','请输入总体考评','');
             if inputString='' then exit;
            with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from employees where 总体考评=:总体考评');
                parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
                end;
            end
    else    if combobox1.Text='考评日期'  then
              begin
            inputString:=inputbox('查询数据','请输入考评日期','');
             if inputString='' then exit;
            with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from employees where 考评日期=:考评日期');
                parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
            end;
            end;

end;

procedure TForm12.Button3Click(Sender: TObject);
begin
form12.Close;
end;

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

procedure TForm12.FormShow(Sender: TObject);
begin
form1.ADOQuery1.SQL.Clear;
          //  inputString:=inputbox('查询数据','请输入考评日期','');
            with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from employees ');
               // parameters[0].Value:=inputString;
                form1.ADOQuery1.Active:=true;
                execsql;
            end;
end;

end.