简单问题,高分!!!

chenliang2001 2004-04-20 09:45:21
请问如何调用帮助文件,比如
form1.n1click;
begin
此处如何写
end
还有我用adoq.sql.text:='select * from emp where id='+eid.text+' and name='+ename.text;查询怎么不行啊,请指教
...全文
38 16 打赏 收藏 转发到动态 举报
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
南京自由人 2004-04-21
  • 打赏
  • 举报
回复
如果你是用help workshop编辑的帮助文件的话,可以用delphi自身的机制运行你的帮助文件。
“project-->Options-->Application-->help file: ”浏览到你的帮助文件,并在程序加入相应帮助菜单(myhelp)。

procedure Tform1.myhelpClick(Sender:TObject)

begin
Application.helpCommand(HELP_CONTENTS,0)
end;



另外
借用“qingenerp(真爱不息)” 的发言:
uses
ShellApi


begin
ShellExecute(handle, 'open', '帮助文件.chm', Nil, Nil, SW_SHOWNORMAL);
end

sql.add('select * from emp where id='''+eid.text+''' and name='''+ename.text+'''');
zhuangjunx 2004-04-21
  • 打赏
  • 举报
回复
up
WuChenCan 2004-04-21
  • 打赏
  • 举报
回复
1. 你可以用,shellexcute()函数
2. adoq.sql.text:='select * from emp ';
adoq.sql.add('where id='+eid.text+' and name='''+ename.text+'''');
Efeis 2004-04-21
  • 打赏
  • 举报
回复
学习
exia 2004-04-21
  • 打赏
  • 举报
回复
不懂,学习中,帮你顶一下!!
qingenerp 2004-04-21
  • 打赏
  • 举报
回复
uses
ShellApi


begin
ShellExecute(handle, 'open', '帮助文件.chm', Nil, Nil, SW_SHOWNORMAL);
end

sql.add('select * from emp where id='''+eid.text+''' and name='''+ename.text+'''');
insert2003 2004-04-21
  • 打赏
  • 举报
回复
uses
ShellApi


begin
ShellExecute(handle, 'open', '帮助文件.chm', Nil, Nil, SW_SHOWNORMAL);

end



sql.add('select * from emp where id='''+eid.text+''' and name='''+ename.text+'''');
  • 打赏
  • 举报
回复
1.
if FileExists('help.hlp') then
begin
Application.HelpFile :='help.hlp';
Application.HelpCommand(HELP_FINDER, 0);
end
else
Application.MessageBox('帮助文件不存在!','信息提示',mb_iconError+mb_OK);
2.
adoq.sql.add('select * from emp ');
adoq.sql.add('where id='''+eid.text+''' and name='''+ename.text+'''');

2.
qizhanfeng 2004-04-21
  • 打赏
  • 举报
回复
adoq.sql.text:='select * from emp where id='+QuotedStr(eid.text)+' and name='+QuotedStr(ename.text)
hezhiwenyy2008 2004-04-21
  • 打赏
  • 举报
回复
up,学习
ekin 2004-04-20
  • 打赏
  • 举报
回复
调用帮助文件
ShellExecute(handle, "open", 'myhelp.chm', Nil, Nil, SW_SHOWNORMAL);
Winexec('hh.exe '+Path+'myhelp.chm',sw_normal);
myart 2004-04-20
  • 打赏
  • 举报
回复
你可以用,shellexcute()函数

adoq.sql.add('select * from emp ');
adoq.sql.add('where id='''+eid.text+''' and name='''+ename.text+'''');
只要用到条件的时候是不是都得用两个单引号
zhouxiaochenchina 2004-04-20
  • 打赏
  • 举报
回复
你可以用,shellexcute()函数

adoq.sql.add('select * from emp ');
adoq.sql.add('where id='+eid.text+' and name='''+ename.text+'''');
zfang 2004-04-20
  • 打赏
  • 举报
回复
调用外部程序,你可以用API函数拉
太空11 2004-04-20
  • 打赏
  • 举报
回复
1. 你可以用,shellexcute()函数
2. adoq.sql.text:='select * from emp ';
adoq.sql.text :='where id='+eid.text+' and name='''+ename.text+'''';
zhlwyy 2004-04-20
  • 打赏
  • 举报
回复
对于第二个问题:
adoq.sql.text:='select * from emp ';
adoq.sql.text :='where id='+eid.text+' and name='+ename.text';

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧