delphi总是说未声明!懂得来看看!

来源:百度知道 编辑:UC知道 时间:2024/09/28 11:16:16
代码如下

implementation

function TMainForm.getnettime:string; //服务器时间函数
begin
with TQuery.Create(nil) do
begin
try
Close;
SessionName:=MainForm.Database1.SessionName;
DatabaseName:=MainForm.Database1.DatabaseName;
SQL.Clear;
SQL.Add('select getdate() as aa');
Open;
result:=FieldByName('aa').AsString;
finally Free;
end;
end;
end;

//创建日志过程
procedure TMainForm.addlog(var name,czsj,czlog: string);
var sqlstr:string;
begin
sqlstr:='insert into t_log (name.czsj.czlog) values ("'+name+'","'+czsj+'","'+czlog+'")';
with TQuery.Create(nil) do
begin
try
Close;
SessionName:=MainForm.Database1.SessionName;
DatabaseName:=MainForm.Dat

第一次报告getnettime没定义是在下面这个地方吧:
function TMainForm.getnettime:string; //服务器时间函数

因为这个函数你没有在前面INTERFACE里面的TMainForm的类定义里面定义这个函数,你需要在类定义里面添加这一行。