unit4.~pas

自己做的一个人力资源管理

unit Unit4;

interface

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

type
  Tchuqing_people = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label6: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label5: TLabel;
    ComboBox2: TComboBox;
    Label7: TLabel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ComboBox3: TComboBox;
    Image1: TImage;
    Label4: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    procedure ComboBox2Change(Sender: TObject);
    procedure Show();
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  chuqing_people: Tchuqing_people;
  pase:string;
implementation

uses Unit10, Unit3, Unit5, Unit8, Unit1;

{$R *.dfm}

procedure Tchuqing_people.ComboBox2Change(Sender: TObject);
begin
        if  ComboBox2.Text='基本信息' then  base_people.ShowModal;
       // if  ComboBox17.Text='考勤信息' then  chuqing_people.ShowModal;
        if  ComboBox2.Text='奖惩信息' then  jiangfa_people.ShowModal;
        if  ComboBox2.Text='工资信息' then  money_people.ShowModal;
end;

procedure Tchuqing_people.Show();
begin
           combobox3.Text:='';
           DateTimePicker1.DateTime:=now;
           if   dm.TJobMade.Fields[5].AsString='1'  then
           begin
                   Image1.Visible:=false;
                   ToolButton6.Enabled:=true;
           end
           else
           begin
                   Image1.Visible:=true;
                   ToolButton6.Enabled:=false;
           end;
           edit1.Text:=dm.TJobMade.Fields[0].AsString;
           edit2.Text:=dm.TJobMade.Fields[1].AsString;
           ComboBox1.Text:=dm.TJobMade.Fields[2].AsString;
           DateTimePicker1.DateTime:=dm.TJobMade.Fields[3].AsDateTime;
           combobox3.Text:=dm.TJobMade.Fields[4].AsString;
           ToolButton1.Enabled:=true;
           ToolButton2.Enabled:=true;
           ToolButton3.Enabled:=true;
           ToolButton4.Enabled:=true;
           ToolButton5.Enabled:=true;
           ToolButton6.Enabled:=true;
           ToolButton7.Enabled:=false;
           ToolButton8.Enabled:=true;
           DateTimePicker1.Enabled:=false;
           // 屏蔽
           edit1.Enabled:=false;
           edit2.Enabled:=false;
           ComboBox1.Enabled:=false;
           DateTimePicker1.Enabled:=false;
           ComboBox3.Enabled:=false;
           ToolButton6.Enabled:=true;
           if login_people.ComboBox1.ItemIndex=0 then
            begin
                ToolButton5.Enabled:=false;
                ToolButton6.Enabled:=false;
                ToolButton8.Enabled:=false;
             end;



end;

procedure Tchuqing_people.ToolButton2Click(Sender: TObject);
begin
         if not  dm.TJobMade.Bof then
         begin
                   dm.TJobMade.Prior;
                   Show;
         end
         else   showmessage('已是首记录');
end;

procedure Tchuqing_people.ToolButton1Click(Sender: TObject);
begin
         if not  dm.TJobMade.Bof then
         begin
                   dm.TJobMade.First;
                   Show;
         end
         else   showmessage('已是首记录');
end;

procedure Tchuqing_people.ToolButton3Click(Sender: TObject);
begin
         if not  dm.TJobMade.Eof then
         begin
                    dm.TJobMade.Next;
                    Show;
         end
         else   showmessage('已是尾记录');
end;

procedure Tchuqing_people.ToolButton4Click(Sender: TObject);
begin
         if not  dm.TJobMade.Eof then
         begin
                   dm.TJobMade.Last;
                   Show;
         end
         else   showmessage('已是尾记录');
end;

procedure Tchuqing_people.ToolButton5Click(Sender: TObject);
begin
             pase:='1';
             DateTimePicker1.Date:=now;
             combobox3.Text:='';
             combobox1.Text:='';
             ToolButton1.Enabled:=false;
             ToolButton2.Enabled:=false;
             ToolButton3.Enabled:=false;
             ToolButton4.Enabled:=false;
             ToolButton5.Enabled:=false;
             ToolButton6.Enabled:=false;
             ToolButton7.Enabled:=true;
             ToolButton8.Enabled:=false;
             DateTimePicker1.Enabled:=true;
             edit1.Enabled:=true;
             edit2.Enabled:=true;
             ComboBox1.Enabled:=true;
             DateTimePicker1.Enabled:=true;
             ComboBox3.Enabled:=true;
end;

procedure Tchuqing_people.ToolButton9Click(Sender: TObject);
begin
           close;
end;

procedure Tchuqing_people.ToolButton6Click(Sender: TObject);
begin
           pase:='0';
           ToolButton1.Enabled:=false;
           ToolButton2.Enabled:=false;
           ToolButton3.Enabled:=false;
           ToolButton4.Enabled:=false;
           ToolButton5.Enabled:=false;
           ToolButton6.Enabled:=false;
           DateTimePicker1.Enabled:=false;
           ToolButton7.Enabled:=true;
           ToolButton8.Enabled:=false;
           edit1.Enabled:=true;
           edit2.Enabled:=true;
           ComboBox1.Enabled:=true;
           DateTimePicker1.Enabled:=true;
           ComboBox3.Enabled:=true;
end;

procedure Tchuqing_people.ToolButton7Click(Sender: TObject);
var date:string;
var a:string;
var b:string;
var c:string;
begin
           if  pase='1' then
           begin
                 if   (edit1.Text='') or (edit2.Text='') or ( ComboBox1.ItemIndex=-1)or(ComboBox3.ItemIndex=-1)
                 then
                 begin
                           showmessage('信息不完整');
                           exit;
                 end;

                 //判断是否存在
                 with DM.QPerson do
                 begin
                        close;
                        sql.Clear;
                        sql.Add('select EMPID,EMPNAME,EMPDEPT from Person');
                        open;
                end;
                while not dm.QPerson.Eof do
                begin
                      a:=dm.QPerson.Fields[0].AsString;
                      b:=dm.QPerson.Fields[1].AsString;
                      c:=dm.QPerson.Fields[2].AsString;
                      if (a=edit1.Text) and  (b=edit2.Text)and (c=combobox1.Text)
                      then break;
                      dm.QPerson.Next;
                end;
                if  dm.QPerson.Eof   and  (a<>edit1.Text) and  (b<>edit2.Text)and (c<>combobox1.Text)
                then
                begin showmessage('  ');
                     exit;
                end;





                //检查时间
                with DM.QJobMade do
                begin
                        close;
                        sql.Clear;
                        sql.Add('select JOBDDATE from JobMade');
                        sql.Add('where EMPID=:EMPID');
                        ParamByName('EMPID').AsString:=edit1.Text;
                        open;
               end;

               while not dm.QJobMade.Eof do
               begin
                      date:=datetostr(dm.QJobMade.Fields[0].AsDateTime);
                      if date=datetostr(DateTimePicker1.Date) then
                      begin
                            showmessage('时间错误!');
                            exit;
                      end;
                      dm.QJobMade.Next;
               end;


               with DM.QJobMade do
               begin
                        close;
                        sql.Clear;
                        sql.Add('insert JobMade values (:EMPID,:EMPNAME,:EMPDEPT,:JOBDDATE,:JOBMADE,:DELECT)');
                        ParamByName('EMPID').AsString:=edit1.Text;
                        ParamByName('EMPNAME').AsString:=Edit2.Text;
                        ParamByName('EMPDEPT').AsString:=ComboBox1.Text;
                        ParamByName('JOBDDATE').AsDateTime:=strtodate(datetostr(DateTimePicker1.Date));
                        ParamByName('JOBMADE').AsString:=COMBOBOX3.Text;
                        ParamByName('DELECT').AsString:='1';
                        prepare;
                        execsql;
               end;
               with DM.TJobMade do
               begin
                         close;
                         open;
               end;
           end;
           if  pase='0' then
           begin
                       if   (edit1.Text='')or (edit2.Text='') or ( ComboBox1.ItemIndex=-1)or (ComboBox3.ItemIndex=-1)
                       then
                       begin
                              showmessage('信息不完整');
                              exit;
                       end;
                       with DM.QJobMade do
                       begin
                              close;
                              sql.Clear;
                              sql.Add('update JobMade set JOBMADE=:JOBMADE ');
                              sql.Add('where JOBDDATE=:JOBDDATE');
                              ParamByName('JOBDDATE').AsDate:=DateTimePicker1.Date;
                              ParamByName('JOBMADE').AsString:=ComboBox3.Text;
                              prepare;
                              execsql;
                       end;
                       with DM.TJobMade do
                       begin
                              close;
                              open;
                       end;
           end;
           close;

end;

procedure Tchuqing_people.ToolButton8Click(Sender: TObject);
begin
         if messagebox (0,'请问是从数据库中删除（数据库中将无此记录，Yes），还是标记该记录为删除（数据库中仍有该记录,No）?','删除提示!',mb_yesno)=mryes
         then
              begin
              with DM.QJobMade do
              begin
                        close;
                        sql.Clear;
                        sql.Add('delete from JobMade ');
                        sql.Add('where JOBDDATE=:JOBDDATE');
                        ParamByName('JOBDDATE').AsDateTime:=strtodate(datetostr(dm.TJobMade.Fields[3].AsDateTime));
                        prepare;
                        execsql;
               end;
               with DM.TJobMade do
               begin
                         close;
                         open;
               end;
               showmessage('已将该记录从数据库中删除!');
              end
         else
              begin
              with  DM.QJobMade do
              begin
                        close;
                        sql.Clear;
                        sql.Add('update JobMade set DELECT=:DELECT');
                        sql.Add('where JOBDDATE=:JOBDDATE');
                        ParamByName('JOBDDATE').AsDateTime:=strtodate(datetostr(dm.TJobMade.Fields[3].AsDateTime));
                        ParamByName('DELECT').AsString:='0';
                        prepare;
                        execsql;
               end;
               with DM.TJobMade do
               begin
                         close;
                         open;
               end;
               showmessage('已将该记录标记为删除!');
               end;
               close;


end;

procedure Tchuqing_people.FormShow(Sender: TObject);
begin
          show;
end;

procedure Tchuqing_people.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
         if not(key in['0'..'9',#8])then key:=#0;
end;

procedure Tchuqing_people.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
             if (key in[' '..'~'])then key:=#0;
end;

end.