frm_addgroup.pas

是一个用delphi设计的考勤系统

{
***************************************************************
*  说明：新增权限组                                         *
*  时间：2003/02/20                                        *
*  作者：杨泉清                                               *
***************************************************************
}
unit Frm_AddGroup;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ModalForm, StdCtrls, Menus, ExtCtrls, YLabelButton, ChangeImage,
   DB, ADODB;

type
   TAddGroup = class(TMyModalForm)
      Label1: TLabel;
      edtzm: TEdit;
      ChangeImg15: TChangeImg;
      LabelB16: TLabelB;
      ChangeImg16: TChangeImg;
      LabelB17: TLabelB;
      AdoStp: TADOStoredProc;
      procedure ChangeImg16Click(Sender: TObject);
      procedure imgCloseButtonClick(Sender: TObject);
      procedure edtzmKeyDown(Sender: TObject; var Key: Word;
         Shift: TShiftState);
      procedure ChangeImg15Click(Sender: TObject);
      procedure FormActivate(Sender: TObject);
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   AddGroup: TAddGroup;

implementation
uses
   DM_DataModal;
{$R *.dfm}

procedure TAddGroup.ChangeImg16Click(Sender: TObject);
begin
   inherited;
   ModalResult := MrOk;
end;

procedure TAddGroup.imgCloseButtonClick(Sender: TObject);
begin
   ModalResult := MrOk;
end;

procedure TAddGroup.edtzmKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
   inherited;
   if key = 13 then
      ChangeImg15Click(nil);
end;

procedure TAddGroup.ChangeImg15Click(Sender: TObject);
var
   Msg: string;
begin
   inherited;
   if length(trim(edtzm.Text)) = 0 then
   begin
      application.MessageBox('组名不能为空！', '提示信息', mb_ok + mb_iconwarning);
      exit;
   end;
   with ADOstp do
   begin
      Parameters.parambyname('@Optmode').Value := 1;
      Parameters.parambyname('@Groupname').Value := trim(edtzm.Text);
      try
         execproc;
         msg := Parameters.parambyname('@retmsg').Value;
         application.MessageBox(pchar(msg), '提示信息', mb_ok + mb_iconwarning);
         Edtzm.Text := '';
      except
         application.MessageBox('新增组失败', '提示信息', mb_ok + mb_iconwarning);
      end;
   end;
end;

procedure TAddGroup.FormActivate(Sender: TObject);
begin
   inherited;
   EdtZm.Text := '';
end;

end.