本人想编写一个用户登录窗口,比如输入用户名:user1,密码123456
数据库是admin,表是username和password.而我自己编写的是用sa的权限登录,可是我想在admin数据库的username和password表里保存登录的用户名和密码,如何实现...万一很多人同时在登录,最好有加载条显示,否则会以为卡了.晚辈对Delphi的面向数据库编程不太熟悉,请各位前辈们指教!
数据库是admin,表是username和password.而我自己编写的是用sa的权限登录,可是我想在admin数据库的username和password表里保存登录的用户名和密码,如何实现...万一很多人同时在登录,最好有加载条显示,否则会以为卡了.晚辈对Delphi的面向数据库编程不太熟悉,请各位前辈们指教!
解决方案 »
- single类型的数据如何用十六进制表示!
- 我想静态调用动态连接库DLL,但是在运行时总是报错,说找不到指点的模;
- Delphi6中“SERVERS”栏内的Office2000控件看起来很诱人,但怎么用呢?(提供资料者有分)
- !1000分!我要一个算法,使用任何高级语言描述都行,要快!答对给1000分,UP的同志则平分100分。
- 初学delphi,请教一个问题
- 我想做一个类似XP Form的模板,请问窗体改变尺寸的消息是什么?谢谢!
- 一个关于DBGrid的问题
- 哪里有RMACHINE控件下载(报表控件)
- 程序员大本营2000中Delphi的ADO 补丁可否适用于Enterprise企业版?
- 请教有关时间的问题(给分的哟)
- 如何在dbgrid中动态加一列按钮?
- 获取数据库中timestamp类型的小时部分的sql语句有吗
1、新建一表 表名:USESID 内含“用户名”“密码”“权限1........字段
2、新建登录窗体
3、读USESID值,比较登录值。一样进入MAINFROM,否则退出。
procedure TForm1.btn1Click(Sender: TObject)
var
SQLStr:string;
begin
SQLStr := 'insert into admin([ID],[UserName],[Password]) values (''%s'',''%s'',''%s'')';
SQLStr := Format(SQLStr,[edit1.text,edit2.text,edit3.text]);
with adoquerey do
begin
close;
sql.clear;
sql.text := SQLStr;
execsql;
end;