一个关于Delphi和Sql Server 6.5结合的Web编程问题
我是一个Web编程的初学者,在用Delphi进行ISAPI编程时,用本地数据库进行处理都没问题,但是当数据库用像SQL Server这样的远程数据库,常常出错,下面是我用来处理供应商查询的一段源程序,其功能是当用户在主页上输入供应商查询条件时,返回满足条件的数据记录:
unit UnitAll;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp, DBWeb, Db, DBTables;
type
TWebModule1 = class(TWebModule)
Session1: TSession;
QrySaler: TQuery;
QueryTableProducer1: TQueryTableProducer;
QrySalerSalerNo: TStringField;
QrySalerSaler: TStringField;
QrySalerLinkMan: TStringField;
QrySalerPhone: TStringField;
QrySalerFax: TStringField;
QrySalerLxmanzw: TStringField;
procedure WebModule1dllSalerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
procedure Session1Password(Sender: TObject; var Continue: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.WebModule1dllSalerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
With QueryTableProducer1 do
Begin
Caption:='供应商查询结果';
Header.Add('<html>');
Header.Add('<body>');
Footer.Add('</body>');
Footer.Add('</html>');
Query:=QrySaler;
Query.Open;
Response.Content:=Content;
Query.Close;
End;
end;
procedure TWebModule1.Session1Password(Sender: TObject;
var Continue: Boolean);
begin
Session1.AddPassword('111111');
Continue:=true;
end;
end.
前端主页文件:
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>供应商资料查询</title>
</head>
<body bgcolor="#FCECF4">
<p align="center"><font color="#0000FF" size="5" face="隶书">供应商资料查询</font>
</p>
<hr width="90%">
<p align="center"> </p>
<p align="left">请输入查询条件:</p>
<form action="Http://bydsv03/scripts/PrjHeadLink.dll/Saler"
method="GET" name="form1">
<p align="center">供应商编码 <input type="text"
size="20" maxlength="6" name="Bh"> <br>
供应商名称 <input type="text" size="20" maxlength="22"
name="Name"> <br>
联 系 人 <input type="text" size="20" maxlength="10"
name="Man"> <br>
联系电话: <input type="text" size="20" name="Phone"> <br>
传 真: <input type="text" size="20" name="Fax"> </p>
<p align="center"><input type="submit" value="开始查询">
<input type="reset" value="清除条件"> </p>
</form>
<p align="center"> </p>
<hr width="90%">
<p align="left"> </p>
</body>
</html>
运行后出现以下错误信息:
Internal Server Error 500
-------------------------------------------------------------------------
Exception: EDBEngineError
Message: Alias is not currently opened. [Microsoft][ODBC SQL Server Driver][SQL Server]Login failed- User: _ Reason: Not defined as a valid user of a trusted SQL General SQL error. Server connection. Alias: BYDDB
我头都大了,请问哪位高手能帮我解决问题?