procedure TF_main.FormShow(Sender: TObject);
begin
t_teacher_info.Filter:='ID='''+f_login.i_user.Text+'''';
t_teacher_info.Filtered:=true;
t_teacher_info.Open;
f_main.Caption:='课程管理系统用户----用户:'+t_teacher_info['name'];最后一行应该是
f_main.Caption:='课程管理系统用户----用户:'+t_teacher_info['name'].AsString;
begin
t_teacher_info.Filter:='ID='''+f_login.i_user.Text+'''';
t_teacher_info.Filtered:=true;
t_teacher_info.Open;
f_main.Caption:='课程管理系统用户----用户:'+t_teacher_info['name'];最后一行应该是
f_main.Caption:='课程管理系统用户----用户:'+t_teacher_info['name'].AsString;
解决方案 »
- 实在搞不定了, 有代码(win32form及activeform差异?)麻烦帮看看。
- 多个线程调用问题
- delphi中media player的用法
- 高分,求桌面精灵控件.类似于杀毒软件退出时的动画和office助手的东东.
- 兄弟我用ADO+ACCESS写了个软件,在当前工作目录下链接数据库完全正常,但是用主程序的快捷方式访问却无法链接数据库,为何,有什么解决
- 怎样在fastreport的报表的数据字段显示是中文件的
- 用quickreport 设计,为何列表标题不能显示,而且详细列表只显示一行?
- ??? delphi升级到6了,但使用的dbgrideheh控件报错 ???
- Table控件,用什么方法筛选包含某字符串的记录?
- 为什么vcl.vclxx.com不能去了?
- d6中如何在用SQL语句增加记录时让时间字段的值为空?用null通不过。
- Socket通讯和HTTP通讯方式有什么利弊?
begin
t_teacher_info.Filter:='ID='''+f_login.i_user.Text+'''';
t_teacher_info.Filtered:=true;
t_teacher_info.Open;
f_main.Caption:='课程管理系统用户----用户:'+t_teacher_info['name'];=====》》改为
f_main.Caption:='课程管理系统用户----用户:'+t_teacher_info['name'].asstring; 试试 可以吗??
转换成integer类型的用.asinteger
以此类推,具体看help,或用format强制转换也可