gmselusr.pas

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

unit GMselUsr;

interface

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

type
  TSelUser = 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
  SelUser: TSelUser;

implementation
uses GMMSmain;

{$R *.DFM}

procedure TSelUser.FormCreate(Sender: TObject);
var
  i:Integer;
begin
  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 TSelUser.CancelBtnClick(Sender: TObject);
begin
  Close;
end;

procedure TSelUser.OKBtnClick(Sender: TObject);
var
  SetRight:TSetRight;
begin
  security.Open;
  security.SetKey;
  security.FieldByName('UserName').AsString:=UserList.Text;
  if security.GotoKey then
    begin
      gmUserName:=security.FieldByName('UserName').AsString;
      gmPassword:=security.FieldByName('Password').AsString;
      gmUnRight:=security.FieldByName('UnRight').AsString;
      SetRight:=TSetRight.Create(Self);
      SetRight.ShowModal;
    end
  else
    Application.MessageBox('没有本用户的信息！','错误',mb_OK+mb_ICONQUESTION);
  security.Close;
end;

end.