gmdelusr.pas

来自「delphi通用信息管理系统源码 供学习使用」· PAS 代码 · 共 70 行

unit GMdelUsr;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Buttons;

type
  TDelUser = class(TForm)
    Label1: TLabel;
    UserList: TComboBox;
    OKBtn: TBitBtn;
    CancelBtn: TBitBtn;
    Security: TTable;
    procedure FormCreate(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DelUser: TDelUser;

implementation
uses GMMSmain;

{$R *.DFM}

procedure TDelUser.FormCreate(Sender: TObject);
var
  i:Integer;
begin
  security.DatabaseName:=gmSysPath;
  security.Open;
  security.First;
  for i:=1 to security.RecordCount do
    begin
      UserList.Items.Add(security.FieldByName('UserName').AsString);
      security.Next;
    end;
  security.Close;
end;

procedure TDelUser.CancelBtnClick(Sender: TObject);
begin
  Close;
end;

procedure TDelUser.OKBtnClick(Sender: TObject);
begin
  security.Open;
  security.SetKey;
  security.FieldByName('UserName').AsString:=UserList.Text;
  if security.GotoKey then
    begin
      security.Edit;
      security.Delete;
      security.Post;
    end
  else
    Application.MessageBox('没有找到用户！','出错',mb_OK+mb_ICONQUESTION);
  security.Close;
end;

end.