winuser.~pas

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

      begin
        Flg := '';
        //项目Check
        If Item_Check() = False Then
        begin
          Exit;
        End;
        If ToolBar1.Buttons[0].Enabled = True Then
        begin
          //数据添加
          If Data_Ent() = True Then
          begin
            messagebox.Show('数据已添加完成。', '考勤管理系统');
          end
          Else
          begin
            messagebox.Show('数据添加失败。' , '考勤管理系统');
          end;
        end
        Else
        begin
          //数据修改
          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 TextUser.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 TWinuser.Data_Ent: boolean;
var
  w_SQL:String;
  w_TextUser:String;
  w_TextPass:String;
  w_CmbQuanXian:String;
begin
   try
    //设置当前光标为忙等待状态
    self.Cursor:=cursors.WaitCursor;
    w_TextUser := TextUser.Text.trim;
    w_TextPass := TextPass.Text.trim;
    if CmbQuanXian.Text.trim='高级用户' then
    begin
      w_CmbQuanXian := '1';
    end
    else
    begin
      w_CmbQuanXian := '0';
    end;

    w_SQL := '';
    w_SQL := w_SQL + 'INSERT INTO 用户表(';
    w_SQL := w_SQL + '用户名,';
    w_SQL := w_SQL + '密码,';
    w_SQL := w_SQL + '权限';
    w_SQL := w_SQL + ' )VALUES(';
    w_SQL := w_SQL + ''''+w_TextUser+''',';
    w_SQL := w_SQL + ''''+w_TextPass+''',';
    w_SQL := w_SQL + ''''+w_CmbQuanXian+'''';
    w_SQL := w_SQL + ')';

    clsmain.TClass1.Create.begintrans();            //开始事务
    clsmain.TClass1.Create.Cmn_Ado_Execute(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('TWinUser.Data_Ent : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据删除
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function TWinuser.Data_Del: boolean;
var
  w_SQL:String;
  w_TextUser:String;
begin
   try
    //设置当前光标为忙等待状态
    self.Cursor:=cursors.WaitCursor;
    w_TextUser := TextUser.Text.trim;

    w_SQL := '';
    w_SQL := w_SQL + ' DELETE FROM 用户表';
    w_SQL := w_SQL + ' WHERE 用户名='''+w_TextUser+'''';

    clsmain.TClass1.Create.BeginTrans();            //开始事务
    clsmain.TClass1.Create.Cmn_Ado_Execute(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('TWinUser.Data_Del : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;


//****************************************************************
//*  数据修改
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function TWinuser.Data_Upd: boolean;
 var
  w_SQL:String;
  w_TextUser:String;
  w_TextPass:String;
  w_CmbQuanXian:String;
begin
   try
    //设置当前光标为忙等待状态
    self.Cursor:=cursors.WaitCursor;
    w_TextUser := TextUser.Text.trim;
    w_TextPass := TextPass.Text.trim;
    if CmbQuanXian.Text.trim='高级用户' then
    begin
      w_CmbQuanXian := '1';
    end
    else
    begin
      w_CmbQuanXian := '0';
    end;

    w_SQL := '';
    w_SQL := w_SQL + ' UPDATE 用户表 SET';
    w_SQL := w_SQL + ' 用户名='''+w_TextUser+''',';
    w_SQL := w_SQL + ' 密码='''+w_TextPass+''',';
    w_SQL := w_SQL + ' 权限='''+w_CmbQuanXian+'''';
    w_SQL := w_SQL + ' WHERE 用户名='''+w_TextUser+'''';

    clsmain.TClass1.Create.BeginTrans();            //开始事务
    clsmain.TClass1.Create.Cmn_Ado_Execute(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('TWinUser.Data_Upd : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  ButFind_Click
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinuser.Butfind_Click(sender: System.Object; e: System.EventArgs);
begin
  try
    //项目Check
    If Item_CheckF() = False Then
    begin
      Exit;
    end;

    //数据查看
    Data_Get();
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinUser.ButFind_Click : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据查看
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function TWinuser.Data_Get: boolean;
var
  w_SQL:String;
  w_SQLWhere:String;
  w_TextUserF:String;
  w_TextPassF:String;
  w_CmbQuanXianF:String;
begin
  try
    //设置当前光标为忙等待状态
    self.Cursor:=cursors.WaitCursor;
    w_TextUserF := TextUserF.Text.trim;
    w_TextPassF := TextPassF.Text.trim;
    if CmbQuanXianF.Text.trim='高级用户' then
    begin
      w_CmbQuanXianF := '1';
    end
    else if CmbQuanXianF.Text.trim='普通用户' then
    begin
      w_CmbQuanXianF := '0';
    end;

    w_SQL := '';
    w_SQL := w_SQL + ' SELECT 用户名,';
    w_SQL := w_SQL + ' 密码,';
    w_SQL := w_SQL + ' 权限';
    w_SQL := w_SQL + ' From 用户表';

    w_SQLWhere:='';
    If w_TextUserF <> '' Then
    begin
      w_SQLWhere := w_SQLWhere + ' AND 用户名=''' + w_TextUserF +'''';
    End;
    If w_TextPassF <> '' Then
    begin
      w_SQLWhere := w_SQLWhere + ' AND 密码=''' + w_TextPassF +'''';
    End;
    If w_CmbQuanXianF <> '' Then
    begin
      w_SQLWhere := w_SQLWhere + ' AND 权限=''' + w_CmbQuanXianF +'''';
    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
        TextUser.Text := clsmain.TClass1.Create.getItemValueS(DGDs, 0, '用户名').ToString;
        TextPass.Text := clsmain.TClass1.Create.getItemValueS(DGDs, 0, '密码').ToString;
       if clsmain.TClass1.Create.getItemValueS(DGDs, 0, '权限').ToString='1' then
       begin
          CmbQuanXian.Text := '高级用户';
        end
       else if clsmain.TClass1.Create.getItemValueS(DGDs, 0, '权限').ToString='0' then
        begin
          CmbQuanXian.Text := '普通用户';
        end;
      end
      Else
      begin
        TextUser.Text := '';
        TextPass.Text := '';
        CmbQuanXian.Text := '';
      End;
    End;
    //DataGrid控件装载数据
    DataGrid1.DataSource := DGDs.Tables[0];
    //设置当前光标为默认状态
    self.Cursor := Cursors.Default;
    //返回值设定
    result:= True;
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinUser.Data_Get : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  TabControl1_SelectedIndexChanged
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinuser.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('TWinUser.TabControl1_SelectedIndexChanged : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;

//****************************************************************
//*  DataGrid1_CurrentCellChanged
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************

procedure TWinuser.DataGrid1_CurrentCellChanged(sender: System.Object; e: System.EventArgs);
begin
  try
    If Flg <> '添加' Then
    begin
      TextUser.Text := clsmain.TClass1.Create.getItemValueS(DGDs, DataGrid1.CurrentCell.RowNumber, '用户名').ToString;
      TextPass.Text := clsmain.TClass1.Create.getItemValueS(DGDs, DataGrid1.CurrentCell.RowNumber, '密码').ToString;
      if clsmain.TClass1.Create.getItemValueS(DGDs, DataGrid1.CurrentCell.RowNumber, '权限').ToString='1' then
      begin
        CmbQuanXian.Text := '高级用户';
      end
      else if clsmain.TClass1.Create.getItemValueS(DGDs, DataGrid1.CurrentCell.RowNumber, '权限').ToString='0' then
      begin
        CmbQuanXian.Text := '普通用户';
      end;
    End;
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinUser.DataGrid1_CurrentCellChanged : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;



               
end.