windiploma.pas

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

          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(' TWindiploma.ToolBar1_ButtonClick: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据添加
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function twindiploma.data_ent():boolean;
var
  w_sql:string;

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

    w_textname:=textname.Text.Trim();
    w_textmemo:=textmemo.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_textmemo+'''';
    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('twindiploma.data_ent(: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据修改
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function twindiploma.data_upd():boolean;
var
  w_sql:string;

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

    w_textname:=textname.Text.Trim();
    w_textmemo:=textmemo.Text.Trim();
    w_sql :='';
    w_sql := w_sql + ' UPDATE 学历表 SET';

    w_sql := w_sql + ' 学历名称='''+w_textname+''',';
    w_sql := w_sql + ' 备注='''+w_textmemo+'''';
    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('twindiploma.data_ent(: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据删除
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function twindiploma.data_del():boolean;
var
  w_sql:string;

  w_textname:string;
  w_textmemo:string;
begin

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

    w_textname:=textname.Text.Trim();
    w_textmemo:=textmemo.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);
    clsmain.TClass1.Create.commit;
    //设置当前光标为默认状态
    self.Cursor:=cursors.Default;
    //返回值设定
    result:= True;
  except
    on ex:Exception do
    begin
      messagebox.Show('twindiploma.data_del(: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;

procedure TWindiploma.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('TWindiploma.Butfind_Click:(' + ex.Message + ')' ,'考勤管理系统');
      end;
   end;
end;
//****************************************************************
//*  数据查看
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function twindiploma.data_get():boolean;
var
  w_sql:string;
  w_sqlwhere:string;

  w_cmbxl:string;
begin
   try
     self.Cursor:=cursors.WaitCursor;

     w_cmbxl:=cmbxl.Text.Trim();
     w_sql :='';
     w_sql := w_sql + ' SELECT 学历名称,备注';
     //w_sql := w_sql + '备注';
     w_sql := w_sql + ' FROM 学历表 ';

     w_SQLWhere:='';
     if w_cmbxl <> '' then
     begin
        w_sqlwhere := w_sqlwhere + ' AND 学历名称= ''' + w_cmbxl + '''';
     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;
           textmemo.Text:=clsmain.TClass1.Create.getItemValueS(dgds,0,'备注').ToString;
        end
        else
        begin

          textname.Text:='';
        end;
     end;
     //DataGrid控件装载数据
     datagrid1.DataSource:=dgds.Tables[0];
     self.Cursor:=cursors.Default;
     result:=true;
  except
    on ex:Exception do
    begin
      messagebox.Show('twindiploma.data_get(: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  DataGrid1_CurrentCellChanged
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWindiploma.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;
    end;
  except
    on ex:Exception do
    begin
      messagebox.Show('TWindiploma.DataGrid1_CurrentCellChanged : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  TabControl1_SelectedIndexChanged
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWindiploma.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;    //删除按钮可用
      end;
   end;
 except
    on ex:Exception do
    begin
      messagebox.Show('TWindiploma.TabControl1_SelectedIndexChanged : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;








end.