attendmanage.pas

需要使用Delphi 7.0及以上版本才能将它们打开

unit AttendManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, ExtCtrls, Mask;

type
  TAttendManageFrm = class(TForm)
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label6: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    Label8: TLabel;
    DBEdit7: TDBEdit;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    Label10: TLabel;
    DBEdit9: TDBEdit;
    Label11: TLabel;
    DBEdit10: TDBEdit;
    Label12: TLabel;
    DBEdit11: TDBEdit;
    Label13: TLabel;
    DBEdit12: TDBEdit;
    Label14: TLabel;
    DBEdit13: TDBEdit;
    Label15: TLabel;
    DBEdit14: TDBEdit;
    Label16: TLabel;
    Label17: TLabel;
    CheckBox11: TCheckBox;
    Label18: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Button8: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
   // procedure Button9Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
   // procedure Button10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AttendManageFrm: TAttendManageFrm;

implementation
   uses PersonnelDataDM,AttendManageSQL;
{$R *.dfm}


//最前按钮
procedure TAttendManageFrm.Button1Click(Sender: TObject);
begin
    PersonnelData.Attend_infoADOTable.First;
end;

//下一个按钮
procedure TAttendManageFrm.Button2Click(Sender: TObject);
begin
    PersonnelData.Attend_infoADOTable.Next;
end;

//上一个按钮
procedure TAttendManageFrm.Button3Click(Sender: TObject);
begin
     PersonnelData.Attend_infoADOTable.Prior;
end;

//最后按钮
procedure TAttendManageFrm.Button4Click(Sender: TObject);
begin
    PersonnelData.Attend_infoADOTable.Last;
end;

//编辑按钮
procedure TAttendManageFrm.Button6Click(Sender: TObject);
begin
    //判断是否有新增考勤项目
    if  (CheckBox1.Checked=false)  and  (CheckBox2.Checked=false)  and  (CheckBox3.Checked=false) and (CheckBox4.Checked=false)  and  (CheckBox5.Checked=false)  and  (CheckBox6.Checked=false)
      and (CheckBox7.Checked=false)  and  (CheckBox8.Checked=false)  and  (CheckBox9.Checked=false)  and(CheckBox10.Checked=false)  and  (CheckBox11.Checked=false) then
      MessageDlg('请选择新增考勤项目',mtinformation,[mbOK],0)
      else
      begin
    PersonnelData.Attend_infoADOTable.edit;
    //指定选择选项的新值
    PersonnelData.Attend_infoADOTable['Time']:=DBEdit3.Text;
    if CheckBox1.Checked=true then
       PersonnelData.Attend_infoADOTable['Late']:=PersonnelData.Attend_infoADOTable['Late']+1;
    if CheckBox2.Checked=true then
       PersonnelData.Attend_infoADOTable['Leave_early']:=PersonnelData.Attend_infoADOTable['Leave_early']+1;
    if CheckBox3.Checked=true then
       PersonnelData.Attend_infoADOTable['S_leave']:=PersonnelData.Attend_infoADOTable['S_leave']+1;
    if CheckBox4.Checked=true then
       PersonnelData.Attend_infoADOTable['Pa_leave']:=PersonnelData.Attend_infoADOTable['Pa_leave']+1;
    if CheckBox5.Checked=true then
       PersonnelData.Attend_infoADOTable['W_leave']:=PersonnelData.Attend_infoADOTable['W_leave']+1;
    if CheckBox6.Checked=true then
       PersonnelData.Attend_infoADOTable['M_leave']:=PersonnelData.Attend_infoADOTable['M_leave']+1;
    if CheckBox7.Checked=true then
       PersonnelData.Attend_infoADOTable['Holiday']:=PersonnelData.Attend_infoADOTable['Holiday']+1;
    if CheckBox8.Checked=true then
       PersonnelData.Attend_infoADOTable['Job_wound']:=PersonnelData.Attend_infoADOTable['Job_wound']+1;
    if CheckBox9.Checked=true then
       PersonnelData.Attend_infoADOTable['H_leave']:=PersonnelData.Attend_infoADOTable['H_leave']+1;
    if CheckBox10.Checked=true then
       PersonnelData.Attend_infoADOTable['F_leave']:=PersonnelData.Attend_infoADOTable['F_leave']+1;
    if CheckBox11.Checked=true then
       PersonnelData.Attend_infoADOTable['Absence']:=PersonnelData.Attend_infoADOTable['Absence']+1;
    if Application.MessageBox('确定增加新考勤？','注意',MB_YESNO+MB_ICONQUESTION)=IDYES then
   //改变位置方法将数据写入数据库
    PersonnelData.Attend_infoADOTable.Next
    else
       //取消数据的修改
       begin
        PersonnelData.Attend_infoADOTable.Cancel;
        PersonnelData.Attend_infoADOTable.Next;
       end;

    //恢复选项框
    CheckBox1.Checked:=false;
    CheckBox2.Checked:=false;
    CheckBox3.Checked:=false;
    CheckBox4.Checked:=false;
    CheckBox5.Checked:=false;
    CheckBox6.Checked:=false;
    CheckBox7.Checked:=false;
    CheckBox8.Checked:=false;
    CheckBox9.Checked:=false;
    CheckBox10.Checked:=false;
    CheckBox11.Checked:=false;
    
    //回到原来位置
    PersonnelData.Attend_infoADOTable.Prior;
   end;
end;

//删除按钮
procedure TAttendManageFrm.Button7Click(Sender: TObject);
begin
  if not PersonnelData.Personnel_infoADOTable.Eof then
    begin
     //判断是否有新增考勤项目
    if  (CheckBox1.Checked=false)  and  (CheckBox2.Checked=false)  and  (CheckBox3.Checked=false) and (CheckBox4.Checked=false)  and  (CheckBox5.Checked=false)  and  (CheckBox6.Checked=false)
      and (CheckBox7.Checked=false)  and  (CheckBox8.Checked=false)  and  (CheckBox9.Checked=false)  and(CheckBox10.Checked=false)  and  (CheckBox11.Checked=false) then
              MessageDlg('请选择删除的考勤项目',mtinformation,[mbOK],0)
              else
              begin
    PersonnelData.Attend_infoADOTable.edit;
    //指定选择选项的新值
    if CheckBox1.Checked=true then
       PersonnelData.Attend_infoADOTable['Late']:=PersonnelData.Attend_infoADOTable['Late']-1;
    if CheckBox2.Checked=true then
       PersonnelData.Attend_infoADOTable['Leave_early']:=PersonnelData.Attend_infoADOTable['Leave_early']-1;
    if CheckBox3.Checked=true then
       PersonnelData.Attend_infoADOTable['S_leave']:=PersonnelData.Attend_infoADOTable['S_leave']-1;
    if CheckBox4.Checked=true then
       PersonnelData.Attend_infoADOTable['Pa_leave']:=PersonnelData.Attend_infoADOTable['Pa_leave']-1;
    if CheckBox5.Checked=true then
       PersonnelData.Attend_infoADOTable['W_leave']:=PersonnelData.Attend_infoADOTable['W_leave']-1;
    if CheckBox6.Checked=true then
       PersonnelData.Attend_infoADOTable['M_leave']:=PersonnelData.Attend_infoADOTable['M_leave']-1;
    if CheckBox7.Checked=true then
       PersonnelData.Attend_infoADOTable['Holiday']:=PersonnelData.Attend_infoADOTable['Holiday']-1;
    if CheckBox8.Checked=true then
       PersonnelData.Attend_infoADOTable['Job_wound']:=PersonnelData.Attend_infoADOTable['Job_wound']-1;
    if CheckBox9.Checked=true then
       PersonnelData.Attend_infoADOTable['H_leave']:=PersonnelData.Attend_infoADOTable['H_leave']-1;
    if CheckBox10.Checked=true then
       PersonnelData.Attend_infoADOTable['F_leave']:=PersonnelData.Attend_infoADOTable['F_leave']-1;
    if CheckBox11.Checked=true then
       PersonnelData.Attend_infoADOTable['Absence']:=PersonnelData.Attend_infoADOTable['Absence']-1;
    if Application.MessageBox('确定删除考勤？','注意',MB_YESNO+MB_ICONQUESTION)=IDYES then
   //改变位置方法将数据写入数据库
    PersonnelData.Attend_infoADOTable.Next
    else
       //取消数据的修改
       begin
        PersonnelData.Attend_infoADOTable.Cancel;
        PersonnelData.Attend_infoADOTable.Next;
       end;
    //恢复选项框
    CheckBox1.Checked:=false;
    CheckBox2.Checked:=false;
    CheckBox3.Checked:=false;
    CheckBox4.Checked:=false;
    CheckBox5.Checked:=false;
    CheckBox6.Checked:=false;
    CheckBox7.Checked:=false;
    CheckBox8.Checked:=false;
    CheckBox9.Checked:=false;
    CheckBox10.Checked:=false;
    CheckBox11.Checked:=false;

    //回到原来位置
    PersonnelData.Attend_infoADOTable.Prior;
   end;
   end;
end;
{
//新增按钮
procedure TAttendManageFrm.Button8Click(Sender: TObject);
begin
   //对表preson_info进行添加
     PersonnelData.Personnel_infoADOTable.Insert;
     //对表depart_info进行添加
     PersonnelData.Depart_infoADOTable.Insert;
     //对表wage_manage进行添加
     PersonnelData.Wage_manageADOTable.Insert;
     //对表attend_info进行添加
     PersonnelData.Attend_infoADOTable.Insert;
end;   }

{//保存按钮
procedure TAttendManageFrm.Button9Click(Sender: TObject);
begin
   if Application.MessageBox('确定增加这笔数据？','注意',MB_YESNO+MB_ICONQUESTION)=IDYES then
   //改变位置方法将数据写入数据库
    begin
     //对表attend_info进行添加

    PersonnelData.Attend_infoADOTable.Next;

    //对表depart_info进行添加
    PersonnelData.Depart_infoADOTable.Edit;
    PersonnelData.Depart_infoADOTable['EmployeeID']:=DBEdit1.Text;
    PersonnelData.Depart_infoADOTable['Name']:=DBEdit2.Text;
    PersonnelData.Depart_infoADOTable.Next;

    //对表wage_manage进行添加
     PersonnelData.Wage_manageADOTable.Edit;
     PersonnelData.Wage_manageADOTable['EmployeeID']:=DBEdit1.Text;
     PersonnelData.Wage_manageADOTable['Name']:=DBEdit2.Text;
     PersonnelData.Wage_manageADOTable.Next;

     //对表preson_info进行添加
      PersonnelData.Personnel_infoADOTable.Edit;
      PersonnelData.Personnel_infoADOTable['EmployeeID']:=DBEdit1.Text;
      PersonnelData.Personnel_infoADOTable['Name']:=DBEdit2.Text;
      PersonnelData.Personnel_infoADOTable.Next;
      end
    else
       //取消数据的增加
       begin
         //对表attend_info进行添加的取消
        PersonnelData.Attend_infoADOTable.Cancel;
        PersonnelData.Attend_infoADOTable.Next;

        //对表depart_info进行添加的取消
        PersonnelData.Depart_infoADOTable.Cancel;
        PersonnelData.Depart_infoADOTable.Next;

        //对表wage_manage进行添加的取消
        PersonnelData.Wage_manageADOTable.Cancel;
        PersonnelData.Wage_manageADOTable.Next;

        //对表depart_info进行添加的取消
        PersonnelData.Personnel_infoADOTable.Cancel;
        PersonnelData.Personnel_infoADOTable.Next;
       end;
     PersonnelData.Attend_infoADOTable.Prior;
     PersonnelData.Depart_infoADOTable.Prior;
     PersonnelData.Wage_manageADOTable.Prior;
     PersonnelData.Personnel_infoADOTable.Prior;
end;    }

//返回按钮
procedure TAttendManageFrm.Button5Click(Sender: TObject);
begin
    AttendManageFrm.Close;
end;

procedure TAttendManageFrm.Button8Click(Sender: TObject);
begin
    if AttendManageSQLFrm=nil then
    Application.CreateForm(TAttendManageSQLFrm, AttendManageSQLFrm); //创建窗口
    AttendManageSQLFrm.Show;
end;

end.