2006各位看到此贴的前辈们，你好，
我是从事安利营销的，因为部门发展到有一定的规模，为了使得某些资料更安全，所以我们决定自己开发一个小程序。由于大多数人都是文科毕业的，都不懂编程。在开发上是存在一定的难度，因而几乎每一步都需要看着网上的一些不是很清楚的教程。后来发现洪恩网这里有个示例是非常适合我们的，就是在DELPHI简介里的 “使用Edit控件的这些特性编写一个简单的“身份验证”程序”
具体代码如下：http://www.hongen.com/pc/program/tutors/delphi/delp0102.htm
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;//关闭窗体
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.text:='';     //创建窗体时，让编辑框为空
Edit2.text:='';
BitBtn1.Enabled:=false;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin    //当编辑框Edit1中为6个字符时，输入焦点跳到Edit2
if length(edit1.Text)=6 then
form1.FocusControl(Edit2);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin  //如果两个编辑框中的输入是正确的，Ok按钮被被激活并获得输入焦点
if (Edit2.Text='123456') and (Edit1.Text='950755') then
begin
  bitbtn1.Enabled:=true;
  form1.FocusControl(bitBtn1);
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
showmessage('您通过了身份验证。');
close;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin //限制编辑框的输入，只接收数字;
if not (key in['0'..'9',#8])then
begin
key:=#0;
messagebeep(1);
end;
end;

end.

我想问的地方只有一个，如何才可以实现支持输入多个用户名，且每个用户的权限都不一样的呢？

简单举例来说，当账号密码为函数X1，相应焦点为Y1
X1＝Y1
。
。
。
Xn＝Yn

我只是要用户在登陆之后看到showmessage项里一两句话或者几个数字即可

这是个很常见的程序现象吧，只是我一直都弄不好，
希望热心人士有时间的话，花几分钟给我编一个囖，
如果实在没什么心机的话也请给在下指点一下方向。

如蒙大恩，不胜感激。。。


雷特夫斯基
baiaitg@126.com

静候佳音。。