如何取得sqlserver2000的时间？？？？

Question

function GetDateTime(
 ): TDateTime;begin
  //得到服务器的时间
  frmComm.comQry.close;
  frmComm.comQry.sql.Clear;
  frmComm.comQry.SQL.Add('Select GetDate() as NowDate ');
  frmComm.comQry.Open;  Result := StrToDateTime(FormatDateTime('yyyy-mm-dd hh:mm:ss',      frmComm.comQry.FieldByName('NowDate').AsDateTime));end;

Answer 1

请详细一点，就是edit怎么取那个时间呢？
一定加分

Answer 2

先编写getdatetime()函数；
 然后：
    edit.text := datetimetostr(GetDateTime());
 就可以拉！ 

Answer 3

谢谢你，但现在还是有问题？
那个query1为什么说我没有申明呢？
还有一个
edit.text := datetimetostr(GetDateTime());
在什么事件里面写明呢？我的程序如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
 uses Unit2;
{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
//Form1.Edit2.Text := FormatDateTime('yyyy-mm-dd hh:nn:ss',Now);
//Form2.Memo1.Clear;
//Form2.Memo1.Add(Form1.Edit1.Text);
//Form2.Memo1.Add(Form1.Edit2.Text);
//Form2.Show; //之前写
end;
function GetDateTime(
): TDateTime;begin
  //得到服务器的时间
Query1.close;
Query1.sql.Clear;
Query1.SQL.Add('Select GetDate() as NowDate ');
Query1.Open;
Result := StrToDateTime(FormatDateTime('yyyy-mm-dd hh:mm:ss',Query1.FieldByName('NowDate').AsDateTime));
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
edit.text := datetimetostr(GetDateTime());end;end.

Answer 4

query1你可以自己定义啊！function GetDateTime(
): TDateTime;begin
  //得到服务器的时间
  query1.close;
  query1.sql.Clear;
  query1.SQL.Add('Select GetDate() as NowDate ');
  query1.Open;  Result := StrToDateTime(FormatDateTime('yyyy-mm-dd hh:mm:ss',       query1.FieldByName('NowDate').AsDateTime));end; 至于你什么时候要edit显示系统时间就什么时间调用一下该函数就可以拉！
 edit.text := datetimetostr(GetDateTime());

Answer 5

但它就是编译不过去呀，我加了query1的，是为什么呢？
请指教
是不是要在public里面申明函数呀，怎么申明呢？

Answer 6

是啊！
 函数在public里面申明：
  function GetDateTime(): TDateTime;
 就可以了！

Answer 7

实在是对不起大家
我还是很笨的呀
那个query1还是说没有申明呀
函数我已经申明了呀

Answer 8

在你的from中加一个query控件啊！
 取名字为：query1就可以了！

Answer 9

我刚刚临时做了一个，都编译成功了！
 你在看看是否query1的名字啊！或是其它的什么原因了！

Answer 10

你新建一个From，然后在新的from中做一遍！

Answer 11

好的，我还想问问，那个
function GetDateTime(
): TDateTime;begin
  //得到服务器的时间
  query1.close;
  query1.sql.Clear;
  query1.SQL.Add('Select GetDate() as NowDate ');
  query1.Open;  Result := StrToDateTime(FormatDateTime('yyyy-mm-dd hh:mm:ss',      query1.FieldByName('NowDate').AsDateTime));end; 这样用的话，它旧说query没有申明，但是我把加在一个事件里面旧好了，
这是为什么？

Answer 12

在你query1前面加上：本from的名称！