请问如何调用帮助文件,比如
form1.n1click;
begin
此处如何写
end
还有我用adoq.sql.text:='select * from emp where id='+eid.text+' and name='+ename.text;查询怎么不行啊,请指教
form1.n1click;
begin
此处如何写
end
还有我用adoq.sql.text:='select * from emp where id='+eid.text+' and name='+ename.text;查询怎么不行啊,请指教
adoq.sql.text:='select * from emp ';
adoq.sql.text :='where id='+eid.text+' and name='+ename.text';
2. adoq.sql.text:='select * from emp ';
adoq.sql.text :='where id='+eid.text+' and name='''+ename.text+'''';
adoq.sql.add('where id='+eid.text+' and name='''+ename.text+'''');
adoq.sql.add('where id='''+eid.text+''' and name='''+ename.text+'''');
只要用到条件的时候是不是都得用两个单引号
ShellExecute(handle, "open", 'myhelp.chm', Nil, Nil, SW_SHOWNORMAL);
Winexec('hh.exe '+Path+'myhelp.chm',sw_normal);
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.
ShellApi
begin
ShellExecute(handle, 'open', '帮助文件.chm', Nil, Nil, SW_SHOWNORMAL);endsql.add('select * from emp where id='''+eid.text+''' and name='''+ename.text+'''');
ShellApi
begin
ShellExecute(handle, 'open', '帮助文件.chm', Nil, Nil, SW_SHOWNORMAL);
endsql.add('select * from emp where id='''+eid.text+''' and name='''+ename.text+'''');
2. adoq.sql.text:='select * from emp ';
adoq.sql.add('where id='+eid.text+' and name='''+ename.text+'''');
“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);
endsql.add('select * from emp where id='''+eid.text+''' and name='''+ename.text+'''');