UC知道用delphi statusbar 的控件 怎么显示当前登录的用户名？
来源：百度知道 编辑：UC知道 时间：2024/05/20 22:16:48
指的是，登录成功后进入界面，在状态栏显示当然登录的用户名
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;
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;
这里的sb就是statusbar 的控件.
sb.Panels[0].Text:='Ready';
sb.Panels[1].Text:='当前用户:'+username;
设计时候,你双击statusbar控件,会有个设计器,你可以把statusbar分成几个区域, 每个区域可以设置宽度. 那么Panels[0] 就是第一个,,下面依次类推..
【补充:
建议你的sql不要select * 用到什么字段就取什么字段。
sqlstr:='select username,usertel From t_user where loginID='+chr(39)+edit1.Text+chr(39);
Adoquery1.SQL.Add(sqlstr);
ADOquery1.Open;
if (AdoQuery1.recordcount>0) then
StatusBar1.Panels[0].Text:='用户名:'+Adoquery.fields[0].AsString;
//这里的fields[0]就是取select 的第一个字段的值，以此类推。。