userfrm.~pas

delphi 编制的服务器程序

unit UserFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DbChildFrm, DB, ADODB, ImgList, StdCtrls, Grids, DBGrids,
  ComCtrls, Buttons, ExtCtrls;

type
  TUserForm = class(TDbChildForm)
    ADOQuery1User_ID: TAutoIncField;
    ADOQuery1UserCode: TWideStringField;
    ADOQuery1UserName: TWideStringField;
    ADOQuery1Enterpass: TWideStringField;
    procedure sbqueryClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserForm: TUserForm;

implementation

uses MainDm, AuthGrantFrm;

{$R *.dfm}

procedure TUserForm.sbqueryClick(Sender: TObject);
var
  UserID,UserName: string;
begin
  //inherited;     QueryMain2  是从原AuthManagerFrm拷贝而来 原为QueryMain
//  if SystemInfo.isSuper = '0' then Exit;
  UserID := QueryMain.FieldByName('user_id').AsString;
  UserName := QueryMain.FieldByName('username').AsString;
  if UserID<> '' then
     CallAuthGrantForm(UserId,UserName);
end;

end.