sdsrvlog.pas

来自「SQLDirect Component Library is a light-w」· PAS 代码 · 共 63 行

{*******************************************************}
{							}
{       Delphi SQLDirect Component Library		}
{       Server Login Dialog	    			}
{                                                       }
{       Copyright (c) 1997,2005 by Yuri Sheino		}
{                                                       }
{*******************************************************}

unit SDSrvLog;

interface

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

type
  TSDSrvLoginDlg = class(TForm)
    pnlInput: TPanel;
    Label2: TLabel;
    lblServerName: TLabel;
    ServerName: TLabel;
    Bevel: TBevel;
    Password: TEdit;
    btOk: TButton;
    btCancel: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SDSrvLoginDlg: TSDSrvLoginDlg;

function SrvLoginDialog(const AServerName: string; var APassword: string): Boolean;

implementation

{$R *.DFM}

function SrvLoginDialog(const AServerName: string; var APassword: string): Boolean;
var
  Dlg: TSDSrvLoginDlg;
begin
  Application.CreateForm(TSDSrvLoginDlg, Dlg);
  with Dlg do try
    ServerName.Caption := AServerName;

    Result := ShowModal = mrOk;
    if Result then
      APassword := Password.Text;
  finally
    Free;
  end;
end;

end.