winchuqin.pas

考勤管理 考勤管理 考勤管理

  except
    on ex:exception do
      begin
        messagebox.Show('TWinchuqin_Load:('+ ex.Message+')','考勤管理系统');
      end;
  end;
end;
//****************************************************************
//*  窗体项目清空
//*
//*  [参数]
//*      无
//*  [返回]
//*      无
//****************************************************************
procedure twinchuqin.item_clear();
begin
  try
    self.txtbianhao.Text:='';
    self.txtbumen.Text:='';
    self.txtname.Text:='';
    self.txtbeizhu.Text :='';
    self.dtpriqi.Text:='';
    self.dtpup.Text:='';
    self.dtpdown.text:='';
    self.dtpQingJia.Text:='';
    self.dtpJiaBan.Text:='';
    self.cmbqingjia.Text:='';
    self.cmbchuchai.Text:='';
    self.dtpriqiF.text:='';
    self.cmbbumenF.Text:='';
    self.cmbbianhaoF.Text:='';
    self.cmbnameF.Text:='';
    if clsmain.quanxian<>'1' then
    begin
      tabcontrol1.TabPages[0].Enabled:=false;
    end;
  except
      on ex:exception do
      begin
        messagebox.Show('TWinchuqin.item_clear:('+ ex.Message+')','考勤管理系统');
      end;
  end;
end;
 //****************************************************************
//*  TWinUser_KeyDown
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinchuqin.TabControl1_KeyDown(sender: System.Object; e: System.Windows.Forms.KeyEventArgs);
begin
  try
    Case e.KeyCode of
    //--- F7 按下=焦点移动到"信息维护"选项卡页
    Keys.F7:
      begin
        e.Handled := False;
        TabControl1.SelectedTab := TabControl1.TabPages[0];
      end;
    //--- F9 按下=焦点移动到"信息查询"选项卡页
    Keys.F9:
      begin
        e.Handled := False;
        TabControl1.SelectedTab := TabControl1.TabPages[1];
      end;
    end;
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinchuqin.TabControl1_KeyDown : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  TWinUser_KeyPress
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinchuqin.TabControl1_KeyPress(sender: System.Object; e: System.Windows.Forms.KeyPressEventArgs);
begin
  try
    Case e.KeyChar of
    char(13):
      begin
        e.Handled := False;
        SendKeys.Send('{Tab}');
      end;
    end;
  except
    on ex:Exception do
    begin
      messagebox.Show('TabControl1_KeyPress : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;

//****************************************************************
//*  项目Check
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function TWinchuqin.item_check: boolean;
begin
   try
    //上班下班时间
    If Check_DtpUpDownWork()=False Then
    begin
      self.DtpUp.Focus();
      Exit;
    End;
    //备注
    If Check_Txtbeizhu()=False Then
    begin
      self.Txtbeizhu.Focus();
      Exit;
    End;
    //返回值设定
    result:= True;  //正常返回设定
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinchuqin.item_check : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  上班\下班时间 项目Check
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function TWinchuqin.Check_DtpUpDownWork: boolean;
var
  w_dtpup:string;
  w_dtpdown:string;
begin
    try
    w_DtpUp := DtpUp.Text.Trim();
    w_DtpDown := DtpDown.Text.Trim();

    //上班时间\下班时间Check
    If w_DtpUp > w_DtpDown Then
    begin
      messagebox.Show('上班时间不能大于下班时间！请注意!','出勤管理');;
      result:= false;
      Exit;
    End;

    //返回值设定
    result:= True;  //正常返回设定
  except
    on ex:Exception do
    begin
      result:=false;
      messagebox.Show('TWinChuQin.Check_DtpUpDownWork : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  备注 项目Check
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function TWinchuqin.Check_Txtbeizhu: boolean;
var
  w_txtbeizhu:string;
begin
   try
    w_Txtbeizhu := Txtbeizhu.Text.Trim();

    //输入位数Check
    If w_Txtbeizhu.Length >60 Then
    begin
      messagebox.Show('输入长度超出最大范围,请重新输入!','出勤管理');
      result:= false;
      Exit;
    End;

    //返回值设定
    result:= True;  //正常返回设定
  except
    on ex:Exception do
    begin
      result:=false;
      messagebox.Show('TWinChuQin.Check_Textbeizhu: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  窗体项目检查F
//*
//*  [参数]
//*      无
//*  [返回]
//*      无
//****************************************************************
function TWinchuqin.Item_CheckF: boolean;
begin
  try
    if check_cmbbianhaoF()=false then
    begin
      self.cmbbianhaoF.Focus;
      exit;
    end;
    result:=true;
  except
    on ex:Exception do
    begin
      result:=false;
      messagebox.Show(' TWinchuqin.Item_CheckF:(' + ex.message + ') ' , '考勤管理系统');
    end
  end;
end;
//****************************************************************
//*  项目 check_cmbbianhaoF:
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************

function TWinchuqin.check_cmbbianhaoF: boolean;
var
  w_cmbbianhaoF:string;
begin
  try
    w_cmbbianhaoF:=cmbbianhaoF.Text.Trim();
    if  w_cmbbianhaoF.Length>8 then
    begin
      messagebox.Show('输入长度超出最大范围','出勤管理');
      result:= false;
      Exit;
    end;
    //返回值设定
    result:= True;  //正常返回设定
  except
    on ex:Exception do
    begin
      result:=false;
      messagebox.Show('TWinchuqin.check_cmbbianhaoF : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;

//****************************************************************
//*  ToolBar1_ButtonClick
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinchuqin.ToolBar2_ButtonClick(sender: System.Object; e: System.Windows.Forms.ToolBarButtonClickEventArgs);
begin
    try
    Case strtoint(e.Button.Tag.ToString) of
      1://编辑
      begin
        if txtbianhao.Text ='' then
        begin
          messagebox.Show('无数据可编辑。', '考勤管理系统');
        end
        else
        begin
           Flg := '编辑';
           ToolBar2.Buttons[0].Enabled := False; //编辑按钮不可用
           ToolBar2.Buttons[1].Enabled := True;  //保存按钮可用
           ToolBar2.Buttons[2].Enabled := true; //取消按钮可用
           RefreshEnabled(false, True);
        end;
      end;
       
      2://保存
      begin
        Flg := '';
        //项目Check
        If Item_Check() = False Then
        begin
          Exit;
        End;
        If ToolBar2.Buttons[0].Enabled = false Then
        begin
          //数据修改
          If Data_Upd() = True Then
          begin
            messagebox.Show('数据已修改完成。', '考勤管理系统');
          end
          Else
          begin
            messagebox.Show('数据修改失败。', '考勤管理系统');
          End;
        End;  
        ToolBar2.Buttons[0].Enabled := True; //添加按钮可用
        ToolBar2.Buttons[1].Enabled := False;//保存按钮不可用
        ToolBar2.Buttons[2].Enabled := True; //删除按钮可用
        Item_Clear();
        RefreshEnabled(False, False);
      end;

     3://取消
      begin
        Flg := '';
        ToolBar2.Buttons[0].Enabled := True; //编辑按钮可用
        ToolBar2.Buttons[1].Enabled := False;//保存按钮不可用
        Toolbar2.Buttons[2].Enabled := true;
        Item_Clear();
        RefreshEnabled(False, False);
      end;
    end; 
  except
    on ex:Exception do
    begin
      messagebox.Show(' TWinchuqin.ToolBar2_ButtonClick : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据修改
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function TWinchuqin.data_upd: boolean;
var
  w_SQL:String;
  w_txtbianhao:string;
  w_txtname:string;
  w_txtbumen:string;
  w_dtpriqi:string;
  w_dtpup:String;
  w_dtpdown:String;
  w_Cmbqingjia:String;
  w_dtpqingjia:string;
  w_dtpjiaban:string;
  w_cmbchuchai:string;
  w_txtbeizhu:string;
  w_chidao:string;
  w_zaotui:string;
begin
   try
     //设置当前光标为忙等待状态
     self.Cursor:=cursors.WaitCursor;
     w_txtbianhao:=txtbianhao.Text.Trim();
     w_txtname:=txtname.Text.Trim();
     w_txtbumen:=txtbumen.Text.Trim();
     w_dtpriqi:=dtpriqi.Text.Trim();
     w_dtpup := dtpup.Text.Trim;
     w_dtpdown := dtpdown.Text.Trim;
     w_cmbqingjia:=cmbqingjia.Text.Trim();
     w_dtpqingjia:=dtpqingjia.Text.Trim();
     w_dtpjiaban:=dtpjiaban.Text.Trim();
     w_cmbchuchai:=cmbchuchai.Text.Trim();
     w_txtbeizhu:=txtbeizhu.Text.Trim();
     w_SQL := '';
     w_SQL := w_SQL + ' SELECT *';
     w_SQL := w_SQL + ' From 工作时间表';