begin
with table1 do
loginform.Table1.Open;
loginform.table1.Active:=true;
loginform.table1.First;
while not Table1.Eof do
begin
if edit1.Text=table1.FieldByName('username').Value then
begin
if edit2.Text=table1.FieldByName('password').Value then
begin
loginform.Close;
form1.Enabled:=true;
break;
end
else
begin
messagedlg('密码错误',mterror,[mbok],0);
break;
end;
end
else if table1.Eof then
begin
messagedlg('操作员错误',mterror,[mbok],0);
break;
end;
else next;
end;
end;
with table1 do
loginform.Table1.Open;
loginform.table1.Active:=true;
loginform.table1.First;
while not Table1.Eof do
begin
if edit1.Text=table1.FieldByName('username').Value then
begin
if edit2.Text=table1.FieldByName('password').Value then
begin
loginform.Close;
form1.Enabled:=true;
break;
end
else
begin
messagedlg('密码错误',mterror,[mbok],0);
break;
end;
end
else if table1.Eof then
begin
messagedlg('操作员错误',mterror,[mbok],0);
break;
end;
else next;
end;
end;
解决方案 »
- 很怪异的问题,高手进来帮忙分析分析是什么原因。
- 如何才能求得本地网关地址?
- stringGrid中怎样获取当前选中单元的行索引和列索引????(在线等待)
- 升级了!散分了!
- 妹妹考大学 (2) 推荐一个非陕西省的二类本科院校 , 帮忙了不胜感激 !
- 三层休系中运行客户端程序时,请问各位对自动产生的 remote login 窗口如何处理的?如user name ,password 如何控制客户端的登陆?
- 谁有解Rar文件密码的工具!(要能用!)
- 有多少人用MTS啊?
- Word文件处理,急,谢谢!
- 视频播放器开发外包
- 求教一个关于access的问题
- 小问题,如何将String转换成 Char 试过可行就结贴 谢谢!!
loginform.Table1.Open;
loginform.table1.First;
while not Table1.Eof do
begin
if edit1.Text=table1.FieldByName('username').Value then
begin
if edit2.Text=table1.FieldByName('password').Value then
begin
loginform.Hide;
form1.Show;
break;
end
else
begin
messagedlg('密码错误',mterror,[mbok],0);
break;
end;
end
else if table1.Eof then
begin
messagedlg('操作员错误',mterror,[mbok],0);
break;
end;
else table1.next;
end;
end;