UC知道用delphi statusbar 的控件 怎么连接数据库表把当前登录的用户名显示出来？
来源：百度知道 编辑：UC知道 时间：2024/07/02 19:22:44
procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='用户名:'+..............;
end;
+........后的语句怎么表达
下面语句是登录窗体的部分语句
procedure TForm16.SpeedButton1Click(Sender: TObject);
var sqlstr:string;
begin
howClose:=1;
if (edit1.Text='')then
begin
application.MessageBox('用户名或密码不能为空','错误提示',0+64);
exit;
end;
sqlstr:='select * From t_user where loginID='+chr(39)+edit1.Text+chr(39);
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add(sqlstr);
ADOquery1.Open;
if adoQuery1.recordcount<>1 then
begin
application.MessageBox('你输入的用户名不存在','错误提示',0+64);
edit2.Clear;
edit1.SetFocus;
edit1.SelectAll;
howClose:=0;
exit;
end;
if trim(adoQuery1.FieldValues['passw
begin
StatusBar1.Panels[0].Text:='用户名:'+..............;
end;
+........后的语句怎么表达
下面语句是登录窗体的部分语句
procedure TForm16.SpeedButton1Click(Sender: TObject);
var sqlstr:string;
begin
howClose:=1;
if (edit1.Text='')then
begin
application.MessageBox('用户名或密码不能为空','错误提示',0+64);
exit;
end;
sqlstr:='select * From t_user where loginID='+chr(39)+edit1.Text+chr(39);
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add(sqlstr);
ADOquery1.Open;
if adoQuery1.recordcount<>1 then
begin
application.MessageBox('你输入的用户名不存在','错误提示',0+64);
edit2.Clear;
edit1.SetFocus;
edit1.SelectAll;
howClose:=0;
exit;
end;
if trim(adoQuery1.FieldValues['passw
lz好像问过一个类似的问题,
这个问题很简单,登陆窗口判断用户正确后,打开主窗体的时候,讲当前登陆的用户名赋给主窗体就是了
如以下代码:
Fmain是主窗体,这些代码是登陆窗口判断后执行的...
if (password.Text<>Q.Fields[0].AsString) then
begin
Application.MessageBox('用户密码错误','警告',MB_ICONWARNING);
exit;
end;
//将用户名赋给主窗体的一个全程变量,以后这个值可以在其他地方再做引用.
Fmain.username:=username.Text;
//将其他信息赋给主窗体的相应变量,
Fmain.teamname:=Q.Fields[1].AsString;
Fmain.fullname:=Q.Fields[2].AsString;
//将当前用户信息赋给主窗体的StatusBar
Fmain.sb.Panels[1].Text:=username.Text+'['+Fmain.fullname+','+Fmain.teamname+']';
Q.Close;
//关闭登陆窗体
close;
如果还不明白,hi我,我给你发一个例子...
1：建立一个表，专门用来存储登陆信息，表列名：帐号，登陆机器，登陆时间等
主窗体显示的时候根据机器名或IP来搜索帐号
2：直接引用登陆窗体edit1.text，这里面不是你登陆的帐号吗？
3：定义全局变量，主窗体引用
4：写INI文件来保存登陆帐号
5：文本文件
6
7
8
.
..
...
等等等，方法很多很多，只要你能想的到，要学会变通
1楼说得很清楚了。