windepart.pas

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

      end;
      4://删除
      begin
        If Textname.Text = '' Then
        begin
          messagebox.Show('无删除数据。', '考勤管理系统');
        end
        else
        begin
          //是否删除数据?
          if MessageBox.Show('真的要删除该条记录吗？','提示',MessageBoxButtons.OKCancel,MessageboxIcon.Information) =
            System.Windows.Forms.DialogResult.OK then
          begin
            Flg :='';
            //数据删除
            If Data_Del() = True Then
            begin
              messagebox.Show('数据已删除完成。', '考勤管理系统');
            end
            Else
            begin
              messagebox.Show('数据删除失败。', '考勤管理系统');
            End;
            Item_Clear();
            RefreshEnabled(False, False);
          end;
        end;
      end;
      5://取消
      begin
        Flg := '';
        ToolBar1.Buttons[0].Enabled := True; //添加按钮可用
        ToolBar1.Buttons[1].Enabled := True; //编辑按钮可用
        ToolBar1.Buttons[2].Enabled := False;//保存按钮不可用
        ToolBar1.Buttons[3].Enabled := True; //删除按钮可用
        Item_Clear();
        RefreshEnabled(False, False);
      end;
    end; 
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinUser.ToolBar1_ButtonClick : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据添加
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function twindepart.Data_Ent():boolean;
var
  w_sql:string;

  w_textname:string;
  w_textbeizhu:string;
begin
   try
      self.Cursor:=cursors.WaitCursor;

      w_textname:=textname.Text.Trim();
      w_textbeizhu:=textbeizhu.Text.Trim();

      w_sql :='';
      w_sql := w_sql + ' INSERT INTO 部门表(';
      w_sql := w_sql + ' 部门名称, ';
      w_sql := w_sql + ' 备注 ';
      w_sql := w_sql + ' )VALUES(';
      w_sql := w_sql + ''''+w_textname+''',';
      w_sql := w_sql + ''''+w_textbeizhu+'''';
      w_sql := w_sql + ')';

      clsmain.TClass1.Create.begintrans();          //开始事务
      clsmain.TClass1.Create.cmn_ado_select(w_sql);  //执行SQL语句
      clsmain.TClass1.Create.commit();            //提交事务
      //设置当前光标为默认状态
      self.Cursor:=cursors.Default;
      //返回值设定
      result:=true;
  except
    on ex:Exception do
    begin
       //事务回滚
      clsmain.TClass1.Create.Rollback();
      //设置当前光标为默认状态
      self.Cursor := Cursors.Default;
      messagebox.Show('TWindepart.Data_Ent : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据修改
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function twindepart.data_upd():boolean;
var
  w_sql:string;
  w_textname:string;
  w_textbeizhu:string;
begin
   try
      self.Cursor:=cursors.WaitCursor;

      w_textname:=textname.Text.Trim();
      w_textbeizhu:=textbeizhu.Text.Trim();

      w_sql :='';
      w_sql := w_sql + ' UPDATE 部门表 set';
      w_sql := w_sql + ' 部门名称='''+w_textname+''',';
      w_sql := w_sql + ' 备注='''+w_textbeizhu+''',';
      w_sql := w_sql + ' WHERE 部门名称='''+w_textname+'''';
     
      clsmain.TClass1.Create.begintrans();          //开始事务
      clsmain.TClass1.Create.cmn_ado_select(w_sql);  //执行SQL语句
      clsmain.TClass1.Create.commit();            //提交事务
      //设置当前光标为默认状态
      self.Cursor:=cursors.Default;
      //返回值设定
      result:=true;
  except
    on ex:Exception do
    begin
       //事务回滚
      clsmain.TClass1.Create.Rollback();
      //设置当前光标为默认状态
      self.Cursor := Cursors.Default;
      messagebox.Show('TWindepart.Data_Ent : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据删除
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function twindepart.data_del():boolean;
var
  w_sql:string;
  w_textname:string;
begin
  try
    w_textname:=textname.Text.Trim();
    self.Cursor:=cursors.WaitCursor;
    w_sql :='';
    w_sql := w_sql + ' DELETE FroM 部门表';
    w_sql := w_sql + ' WHERE 部门名称='''+w_textname+'''';
    clsmain.TClass1.Create.begintrans();
    clsmain.TClass1.Create.cmn_ado_select(w_sql);
    clsmain.TClass1.Create.commit();
    self.Cursor:=cursors.Default;
    result:=true;
  except
    on ex:Exception do
    begin
        //事务回滚
      clsmain.TClass1.Create.Rollback();
      //设置当前光标为默认状态
      self.Cursor := Cursors.Default;
      messagebox.Show('TWindepart.Data_del : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  ButFind_Click
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWindepart.Butfind_Click(sender: System.Object; e: System.EventArgs);
begin
   try
     //项目查看
     if item_checkF()=false then
     begin
       exit;
     end;
     //数据查看
     data_get();
  except
    on ex:Exception do
    begin
      messagebox.Show('TWindepart.butfind_click : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据查看
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function twindepart.data_get():boolean;
var
  w_sql:string;
  w_sqlwhere:string;

  w_textnameF:string;
begin
   try
     //设置当前光标为忙等待状态            
     self.Cursor:=cursors.WaitCursor;

     w_textnameF:=textnameF.Text.Trim();
     w_sql :='';
     w_sql := w_sql + ' SELECT 部门名称,';
     w_sql := w_sql + ' 备注';
     w_sql := w_sql + ' FROM 部门表';


     if w_textnameF <> '' then
     begin
       w_sqlwhere := w_sqlwhere + ' AND 部门名称=''' + W_TextnameF +'''';
     end;
     if w_sqlwhere <> '' Then
     begin
       w_sqlwhere := ' WHERE 部门名称<>'''''+W_SQLwhere;
       w_sql := w_sql + w_sqlwhere;
     end;
    //执行SQL语句并把记录集返回
    DGDS:=clsmain.TClass1.Create.cmn_ado_select(w_sql);
    if flg <> '添加' then
    begin
       if dgds.Tables[0].Rows.count <>0 then
       begin
        // textbianhao.Text:=clsmain.TClass1.Create.getItemValueS(DGDS,0,'部门编号').ToString;
         textname.Text:=clsmain.TClass1.Create.getItemValueS(DGDS,0,'部门名称').ToString;
       end
       else
       begin
         textname.Text:='';
         textbeizhu.Text:='';
       end;
   end;
    //DataGrid控件装载数据
     datagrid1.DataSource:=dgds.Tables[0];
     self.Cursor:=cursors.Default;
     result:=true;
  except
    on ex:Exception do
    begin
      messagebox.Show('TWindepart.Data_Get : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;

end;
//****************************************************************
//*  DataGrid1_CurrentCellChanged
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWindepart.DataGrid1_CurrentCellChanged(sender: System.Object; e: System.EventArgs);
begin
  try
     if flg <> '添加' then
     begin
        textname.Text:=clsmain.TClass1.Create.getItemValueS(dgds,datagrid1.Currentcell.rownumber, '部门名称').ToString;
        textbeizhu.Text:=clsmain.TClass1.Create.getItemValueS(dgds,datagrid1.CurrentCell.rownumber,'备注').ToString;
     end;
 except
    on ex:Exception do
    begin
      messagebox.Show('TWindepart.DataGrid1_CurrentCellChanged : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  TabControl1_SelectedIndexChanged
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWindepart.TabControl1_SelectedIndexChanged(sender: System.Object;
  e: System.EventArgs);
begin
   try
     if flg <> '添加' then
     begin
        if tabcontrol1.SelectedTab.Name='tabpage1' then
        begin
           Toolbar1.Buttons[0].Enabled:=true;    //添加按钮可用
           toolbar1.Buttons[1].Enabled:=true;    //编辑按钮可用
           Toolbar1.Buttons[2].Enabled:=false;   //保存按钮不可用
           toolbar1.Buttons[3].Enabled:=true;    //删除按钮可用
           refreshenabled(false,false);
        end;
     end;
  except
    on ex:Exception do
    begin
      messagebox.Show('TWindepart.TabControl1_SelectedIndexChanged : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;




end;

procedure TWindepart.Label2_Click(sender: TObject; e: System.EventArgs);
begin

end;














end.