home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd2.bin / Borland / interbase / IBConsole_src.ZIP / ibconsole / frmuModifyServerAlias.pas < prev    next >
Pascal/Delphi Source File  |  2000-07-24  |  2KB  |  85 lines
  1. {
  2.  * The contents of this file are subject to the InterBase Public License
  3.  * Version 1.0 (the "License"); you may not use this file except in
  4.  * compliance with the License.
  5.  * 
  6.  * You may obtain a copy of the License at http://www.Inprise.com/IPL.html.
  7.  * 
  8.  * Software distributed under the License is distributed on an "AS IS"
  9.  * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
  10.  * the License for the specific language governing rights and limitations
  11.  * under the License.  The Original Code was created by Inprise
  12.  * Corporation and its predecessors.
  13.  * 
  14.  * Portions created by Inprise Corporation are Copyright (C) Inprise
  15.  * Corporation. All Rights Reserved.
  16.  * 
  17.  * Contributor(s): ______________________________________.
  18. }
  19.  
  20. unit frmuModifyServerAlias;
  21.  
  22. interface
  23.  
  24. uses
  25.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  26.   ExtCtrls, StdCtrls, frmuDlgClass;
  27.  
  28. type
  29.   TfrmModifyServerAlias = class(TDialog)
  30.     Label1: TLabel;
  31.     edtAliasName: TEdit;
  32.     Label2: TLabel;
  33.     Label3: TLabel;
  34.     edtServerName: TEdit;
  35.     edtUsername: TEdit;
  36.     cbProtocol: TComboBox;
  37.     Label4: TLabel;
  38.     Button1: TButton;
  39.     Button2: TButton;
  40.     stMessage: TStaticText;
  41.     imgError: TImage;
  42.   private
  43.     { Private declarations }
  44.   public
  45.     { Public declarations }
  46.   end;
  47.  
  48.   function DisplayModifyAlias (const aliasName: String; var server, username: String;
  49.                                var protocol: integer;
  50.                                ErrMsg: String): integer;
  51.  
  52. implementation
  53.  
  54. {$R *.DFM}
  55.  
  56. function DisplayModifyAlias (const aliasName: String; var server, username: String;
  57.                              var protocol: integer;
  58.                              ErrMsg: String): integer;
  59.  
  60. var
  61.   frmModifyAlias: TfrmModifyServerAlias;
  62.  
  63. begin
  64.   frmModifyAlias := TfrmModifyServerAlias.Create (Application);
  65.   with frmModifyAlias do begin
  66.     stMessage.Caption := Format ('Error Reading alias %s:'#13#10'%s',[AliasName, ErrMsg]);
  67.     edtAliasName.Text := AliasName;
  68.     edtServerName.Text := Server;
  69.     edtUserName.Text := UserName;
  70.     cbProtocol.ItemIndex := protocol;
  71.     result := ShowModal;
  72.  
  73.     if result = mrOK then
  74.     begin
  75.       Server := edtServerName.Text;
  76.       UserName := edtUserName.Text;
  77.       Protocol := cbProtocol.ItemIndex;
  78.     end;
  79.   end;
  80.   frmModifyAlias.Free;
  81. end;
  82.  
  83.  
  84. end.
  85.