时间组件:timer
enabled: 是否可用
lnterval: 设置间隔时间
事件介绍:
onTimer: 当时间改变的时候
案例说明:
动态给Tedit赋值
// onTimeser 事件
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// 第一种
// edit1.Text:= datetimetostr( now());
// 第二种
edit1.Text:= FormatDateTime('yyyy年mm月dd日 hh点nn分ss秒zzz', now());
代码解释
// system.sysutils.formatdatetime j将时间格式化成字符串
// formatdatetime('yyyy-mm-dd hh:nn:ss',now()); 年月日 时分秒
// formatdatetime('yyyy-mm-dd hh:nn:ss:zzz',now()); 年月日 时分秒毫秒
// application.ProcessMessages; 使程序在做完一次循环后,就去处理它收到的消息。虽然不能实时响应系统消息,至少
也不会延迟太长时间。时时处理得到的数据,不让他延时过长。
end;
多行文本域 Tmemo
memo1.lines.count //记录行数,返回整型
数据库组件介绍
TFDConnection 数据库配置组件
属性介绍
params 数据库配置信息
Database 数据库名称
DriverID 数据库类型
Password 数据库密码
Server 数据库IP地址
UserName 数据库用户名
port 数据库端口
动态配置数据库信息
// 方式一:
connection.params.database := 'test';
connection.params.username:= 'test';
connection.params.password:= 'test';
// 方式二:
connection.Params.Add('Database=test');
connection.Params.Add('UserName=test');
将数据库信息显示到表格
需要的组件
Tfdquery
属性配置 connection :connection 的name值
Tdatesource
属性配置
dateset : query的name值
Tdbgrid
属性配置
datesource :datesource 属性值