winpost.pas

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

          If Data_Upd() = True Then
          begin
            messagebox.Show('数据已修改完成。', '考勤管理系统');
          end
          Else
          begin
            messagebox.Show('数据修改失败。', '考勤管理系统');
          End;
        End;  
        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;
      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 twinpost.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
      messagebox.Show('TWinpost.Data_Ent : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据修改
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function twinpost.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
      messagebox.Show('TWinpost.Data_upd: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据删除
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function twinpost.data_del():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 + ' DELETE FroM 职务表';
     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
      messagebox.Show('TWinpost.Data_Del : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  ButFind_Click
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinpost.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('TWinpost.butfind_click : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据查看
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function twinpost.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 职务名称,备注 FROM 职务表';

     w_sqlwhere:='';
     if w_textnameF <> '' then
     begin
       w_sqlwhere := w_sqlwhere + ' AND 职务名称='+chr(39) + W_TextnameF +chr(39);
     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
         textname.Text:=clsmain.TClass1.Create.getItemValueS(DGDS,0,'职务名称').ToString;
         textbeizhu.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('TWinpost.Data_Get : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  DataGrid1_CurrentCellChanged
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinpost.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('TWinpost.DataGrid1_CurrentCellChanged : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  TabControl1_SelectedIndexChanged
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinpost.TabControl1_SelectedIndexChanged(sender: TObject;
  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;







end.