freg.pas

来自「delphi代码格式化,最新汉化版」· PAS 代码 · 共 52 行

unit Freg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, PrivLvls;

type
  TregF = class (TForm)
    Label1 : TLabel;
    Label2 : TLabel;
    nameE : TEdit;
    pswE : TEdit;
    Panel1 : TPanel;
    LoginBB : TBitBtn;
    LogoutBB : TBitBtn;
    CancelBB : TBitBtn;
    procedure CancelClick (Sender : TObject);
    procedure LogInClick (Sender : TObject);
    //    procedure FormActivate(Sender: TObject);
    procedure LogOutClick (Sender : TObject);
  private
    procedure LogIn (lvl : TPrivLevel);
    { Private declarations }
  public

    { Public declarations }
  end;

function fRegShow : TPrivLevel;
var
  regF    : TregF;
  pl      : TPrivLevel;


implementation
//     uses
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          {dm ,}{sns,}{MainUnit;}
{$R *.DFM}

function fRegShow : TPrivLevel;
begin
  regF.ShowModal;
  result := pl;
end;


procedure TregF.CancelClick (Sender : TObject);
begin
  //
  //ShowMessage('绣汨耱疣鲨