querytransinformation.~pas

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

unit QueryTransInformation;

interface

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

type
  TForm14 = class(TForm)
    DBGrid1: TDBGrid;
    Button3: TButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    MaskEdit1: TMaskEdit;
    Edit1: TEdit;
    Button2: TButton;
    StatusBar1: TStatusBar;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InputClear;
    { Public declarations }
  end;

var
  Form14: TForm14;

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

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

procedure TForm14.Button3Click(Sender: TObject);
begin
form14.Close;
end;

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

procedure TForm14.FormShow(Sender: TObject);
begin
form1.ADOQuery1.SQL.Clear;
//self.Edit1.Enabled:=false;
if  form2.user_name<>'adm' then
begin
self.Button2.Enabled:=false;
self.Button4.Enabled:=false;
self.GroupBox1.Enabled:=false;
statusbar1.Panels[0].Text:='欢迎使用查询考勤操作!     ***以上信息为你的个人信息';
with Form1.adoquery1 do
begin
   close;
   sql.clear;

    sql.add('select * from Transfer where 员工编号=:员工编号');
   parameters[0].Value:=form2.worker_no;

   if form1.ADOQuery1.Active=false  then
       form1.ADOQuery1.Active:=true;
   open;
end;
end;

if  form2.user_name='adm' then
begin
self.Button2.Enabled:=true;
self.Button4.Enabled:=true;
statusbar1.Panels[0].Text:='欢迎使用查询考勤操作!';
self.MaskEdit1.Enabled:=false;
self.MaskEdit1.Color:=clBtnFace;
with Form1.adoquery1 do
begin
   close;
   sql.clear;
   sql.add('select * from Transfer');
   if form1.ADOQuery1.Active=false  then
       form1.ADOQuery1.Active:=true;
   open;
end;
end;
end;

procedure TForm14.RadioButton1Click(Sender: TObject);
begin
InputClear;
self.Edit1.Color:=clWindow;
self.Edit1.Enabled:=true;
self.MaskEdit1.Enabled:=false;
self.MaskEdit1.Color:=clBtnFace;
 statusbar1.Panels[0].Text:='你选择的是"按员工号查询"，请输入员工号！';
end;

procedure TForm14.RadioButton2Click(Sender: TObject);
begin
InputClear;
self.Edit1.Color:=clBtnFace;
self.Edit1.Enabled:=false;
self.MaskEdit1.Enabled:=true;
self.MaskEdit1.Color:=clWindow;
 statusbar1.Panels[0].Text:='你选择的是"按调动日期查询"，请输入调动日期！';
end;

procedure TForm14.Button4Click(Sender: TObject);
begin
with Form1.adoquery1 do
begin
   close;
   sql.clear;
   sql.add('select * from Transfer');
   form1.ADOQuery1.Active:=false ;
       form1.ADOQuery1.Active:=true;
   open;  //youfanhui
end;
statusbar1.Panels[0].Text:='所有人员考勤信息！';
inputclear;
end;

procedure TForm14.Button2Click(Sender: TObject);
var
check_no:String[5];
check_date:String;
fuck_date:String;
begin
         if form1.ADOQuery1.Active=false then
           form1.ADOQuery1.Active:=true;
if self.RadioButton1.Checked then  /////按员工号查询
   begin
    check_no:=self.Edit1.Text;
   if check_no<>'' then
   begin
      // inputString:=inputbox('查询数据','请输入员工的编号','');
       with form1.adoquery1 do
           begin
           close;
           sql.Clear;
           sql.add('select * from Transfer where 员工编号=:员工编号');
           parameters[0].Value:=check_no;
          //  if form1.ADOQuery1.Active=false then
         //  form1.ADOQuery1.Active:=true;
           execsql;
         statusbar1.Panels[0].Text:='以上为你所查询的结果！';
         exit;
       end;
       end
       else showmessage('请先输入员工号！');
   end
else if  self.RadioButton2.Checked then ///按调动日期查询
begin
   if self.MaskEdit1.Text<>'  -  -  ' then
   begin
   /////////////////////////////////////////////////////////
   ////////////////////Lindean公司研发的超安全日期保护系统/////////////////////////////////
       check_date:=self.MaskEdit1.Text;
      Fuck_date:=check_date[4]+check_date[5];
      if (StrToInt(Fuck_date)>12) or (StrToInt(Fuck_date)<1) then
      begin
      showmessage(Fuck_date);
      //showmessage('fuck you the month!');
      showmessage('你的月份填写有误，操作失败!');
      //self.MaskEdit1.Text:='';
      exit;
      end;
      //////////////////////////////////////////
       Fuck_date:=check_date[7]+check_date[8];
       if (StrToInt(Fuck_date)>31) or (StrToInt(Fuck_date)<1) then
      begin
      //showmessage('fuck you the Day!');
       showmessage('你的日号填写有误，操作失败!');
      //self.MaskEdit1.Text:='';
      exit;
      end;
      //////////////////////////////////////////////
      //////////////////////////////////////////
      showmessage(self.MaskEdit1.Text);
          with form1.adoquery1 do
                begin
                close;
                sql.Clear;
                sql.add('select * from Transfer where 调动日期=:调动日期');
                parameters[0].Value:='20'+self.MaskEdit1.Text;   ///绝招来的小心点
                  //  showmessage('20'+self.MaskEdit1.Text);
  //              if form1.ADOQuery1.Active=false then
//                     form1.ADOQuery1.Active:=true;
                execsql;
                         statusbar1.Panels[0].Text:='以上为你所查询的结果！';
                   exit;
                end;
                end
                else showmessage('请先输入调动日期！');

end;
end;

procedure TForm14.InputClear;
begin
self.Edit1.Text:='';
self.MaskEdit1.Text:='';

end;

end.