如何更好的写dephi程序的登录窗口？

Question

数据库里放一个Memo(Text)类型的字段
比如:采购商品=True
销售商品=False
录入资料=True

Answer 1

with TStringList.Create do try
  Values['采购商品'] := 'True';
  Values['销售商品'] := 'False;
  Values['录入资料'] := 'True';
  Table1.Edit;
  Table1['权限'] := Text;
finally
  Free;
end;with TStringList.Create do try
  Text := Table1.FieldByName('权限').AsString;
  Button1.Visible := Values['采购商品'] = 'True';
  Button2.Visible := Values['销售商品'] := 'False';
  Button3.Visible := Values['录入资料'] := 'True';
finally
  Free;
end;

Answer 2

如果你要用权限，用Taction呀，你那个问题只是小菜，，，

Answer 3

最好还是用数据库 分类,字段 用户名,密码,权限.
在登陆时用户名:XXXX  密码:********
然后到库中搜索用户名为XXXX的用户,确定密码是否正确,再读出XXXX的权限
就可以!