以下程序要实现定时从数据表中显示查询记录,并且把查询时间也显示出来
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Query1: TQuery;
Session1: TSession;
Panel1: TPanel;
Button1: TButton;
DBGrid1: TDBGrid;
StatusBar1: TStatusBar;
Button2: TButton;
Timer1: TTimer; procedure Form1Create(Sender: TObject); procedure button1click(sender:TObject); procedure button2click(sender:tobject); private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Form1Create(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into 学生信息(查询时间)values');
query1.active:=true;
end;
procedure tform1.button1click(sender:tobject);
begin
timer1.enabled:=true;
query1.SQL.add('update 学生信息 set 查询时间=timetostr(now)');
query1.SQL.add('select * from 学生信息');
query1.active:=true;
end;
procedure tform1.button2click(sender:tobject);
begin
timer1.Enabled:=false;
end;
end.
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Query1: TQuery;
Session1: TSession;
Panel1: TPanel;
Button1: TButton;
DBGrid1: TDBGrid;
StatusBar1: TStatusBar;
Button2: TButton;
Timer1: TTimer; procedure Form1Create(Sender: TObject); procedure button1click(sender:TObject); procedure button2click(sender:tobject); private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Form1Create(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into 学生信息(查询时间)values');
query1.active:=true;
end;
procedure tform1.button1click(sender:tobject);
begin
timer1.enabled:=true;
query1.SQL.add('update 学生信息 set 查询时间=timetostr(now)');
query1.SQL.add('select * from 学生信息');
query1.active:=true;
end;
procedure tform1.button2click(sender:tobject);
begin
timer1.Enabled:=false;
end;
end.
解决方案 »
- 怎么样让dbgrid中的某条数据根据条件不停闪烁啊
- 快帮忙解决 ado 传参数右截断
- tdxpageControlForD7不能同cxGrid一起安装?
- 哪位大侠有泄漏的windows源码?能否提供一份?愿意出钱购买。若有,请留下您的邮件地址,万分感谢!还有,我在深圳!
- 在DELPHI中连接interbase用ADO,什么OLEDB比较好?
- 诚邀:Delphi + OpenGL 开发桌面游戏
- PopupMenu为什么单击右键不能出现弹出菜单呢?
- ComboBox中如何把一天的時間段全部加進去呢(時間的間隔符是按系統來的)?
- 如何将窗体动态嵌入到另一个窗体中。
- 用Delphi/C++怎样编卸载程序
- 关于日期的问题。。。
- 为什么我在SQL Expolor中运行正常的语名到DELPHI程序中就不行了?
query1.SQL.add('update 学生信息 set 查询时间=timetostr(now)');
能通过吗??query1.SQL.add('update 学生信息 set 查询时间='''+timetostr(now)+''''); ?????
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Query1: TQuery;
Session1: TSession;
Panel1: TPanel;
Button1: TButton;
DBGrid1: TDBGrid;
StatusBar1: TStatusBar;
Button2: TButton;
Timer1: TTimer;// procedure Form1Create(Sender: TObject); procedure button1click(sender:TObject); procedure button2click(sender:tobject); private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}{procedure TForm1.Form1Create(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into 学生信息(查询时间)values');
query1.active:=true;
end;}procedure tform1.button1click(sender:tobject);
begin
timer1.enabled:=true;
query1.SQL.text:='select getdate() as searchdatetime,* from 学生信息');
query1.open;
end;procedure tform1.button2click(sender:tobject);
begin
timer1.Enabled:=false;
end;
end.