accreditfrm.pas

考勤管理是企业内部管理的重要环节和基础

unit AccreditFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  SDIfrm, ExtCtrls, Grids, Outline, StdCtrls, ComCtrls, ImgList, DBGrids;

resourcestring
  sdelete='不能删除系统管理员!';
  sdelete1= '确实要删除此操作员吗?';
  smodify='不能修改系统管理员的权限!';
  sunPassword='真的要撤消口令吗?';

type
  TAccreditForm = class(TSDIForm)
    btAdd: TButton;
    btChange: TButton;
    btDelete: TButton;
    btAccredit: TButton;
    btQuash: TButton;
    btClose: TButton;
    tvAccredit: TTreeView;
    ImageList1: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure btAddClick(Sender: TObject);
    procedure btChangeClick(Sender: TObject);
    procedure btDeleteClick(Sender: TObject);
    procedure btAccreditClick(Sender: TObject);
    procedure btQuashClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AccreditForm: TAccreditForm;

implementation

uses dialog, Globals, unDM2, AddUserFrm, ChangeNameFrm, ModiAccreditFrm;

{$R *.DFM}

procedure TAccreditForm.FormCreate(Sender: TObject);
begin
  inherited;
  DM2.tblLogo.Close;
  DM2.tblLogo.Open;
  DM2.tblLogo.First;
  tvAccredit.Items.Add(nil,DM2.tblLogoUserName.Value);
  Dm2.tblLogo.Next;
  while not DM2.tblLogo.Eof do begin
    tvAccredit.Items.Add(nil,DM2.tblLogoUserName.Value);
    Dm2.tblLogo.Next;
  end;
  tvAccredit.Items.Item[0].selected:=true;
end;

procedure TAccreditForm.btCloseClick(Sender: TObject);
begin
  inherited;
  AccreditForm.Close;
end;

procedure TAccreditForm.btAddClick(Sender: TObject);
var
  CurrentNode: TTreeNode;
begin
  inherited;
  AddUserForm:=TAddUserForm.Create(self);
  if AddUserForm.ShowModal = mrOk then
  begin
    DM2.tblLogo.Last;
    DM2.tblLogo.Append;
    DM2.tblLogoUserName.Value := AddUserForm.UserName;
    DM2.tblLogoPassWord.Value := AddUserForm.PassWord;
    DM2.tblLogo.Post;
    CurrentNode:=tvAccredit.Selected;
    tvAccredit.Items.Add(CurrentNode,AddUserForm.UserName);
    DM2.tblLogo.Refresh;
  end;
end;

procedure TAccreditForm.btChangeClick(Sender: TObject);
Var
  OldName:String;
begin
  inherited;
//  DM2.tblLogo.Close;
  DM2.tblLogo.Open;
  OldName:=tvAccredit.Selected.Text;
  DM2.tblLogo.First;
  DM2.tblLogo.MoveBy(tvAccredit.Selected.Index);
  ChangeNameForm:=TChangeNameForm.Create(self);
  ChangeNameForm.OldName:=DM2.tblLogoUserName.Value;
  if ChangeNameForm.Showmodal=mrYes then begin
    DM2.tblLogo.Edit;
    DM2.tblLogoUserName.Value:=ChangeNameForm.NewName;
    DM2.tblLogo.Post;
    tvAccredit.Selected.Text:=ChangeNameForm.NewName;
  end;
end;

procedure TAccreditForm.btDeleteClick(Sender: TObject);
begin
  inherited;
//  DM2.tblLogo.Close;
//  DM2.tblLogo.Open;
  if tvAccredit.Selected.Index=1 then
    messagedlg(Pchar(sDelete),mtError,[mbOK],0)
  else begin
    if messagedlg(Pchar(sDelete1),mtConfirmation,[mbYes,mbNo],0)=mrNo then
      Abort
    else begin
      DM2.tblLogo.Open;
      DM2.tblLogo.First;
      DM2.tblLogo.MoveBy(tvAccredit.Selected.Index);
      DM2.tblLogo.Delete;
      tvAccredit.Selected.Delete;
    end;
  end;
end;

procedure TAccreditForm.btAccreditClick(Sender: TObject);
begin
  inherited;
  if tvAccredit.Selected.Index=0 then
    messagedlg(Pchar(sModify),mtError,[mbOK],0)
  else begin
    ModiAccreditForm:=TModiAccreditForm.Create(self);
//    DM2.tblLogo.Close;
    DM2.tblLogo.Open;
    DM2.tblLogo.First;
    DM2.tblLogo.MoveBy(tvAccredit.Selected.Index);
    ModiAccreditForm.FAccredit:=DM2.tblLogoLiberty.Value;
    if ModiAccreditForm.ShowModal=mrOK then begin
      DM2.tblLogo.Edit;
      DM2.tblLogoLiberty.Value:=ModiAccreditForm.FAccredit;
      DM2.tblLogo.Post;
    end;
  end;
end;

procedure TAccreditForm.btQuashClick(Sender: TObject);
begin
  inherited;
  if messagedlg(Pchar(sunPassword),mtConfirmation,[mbYes,mbNo],0)<>mrYes then
    Abort
  else begin
    DM2.tblLogo.Open;
    DM2.tblLogo.First;
    DM2.tblLogo.MoveBy(tvAccredit.Selected.Index);
    DM2.tblLogo.Edit;
    DM2.tblLogoPassWord.Value:='';
    DM2.tblLogo.Post;
  end;
end;

end.