怎样动态创建一个计算字段????

hansonboy 2003-08-30 11:54:08
怎样动态创建一个计算字段????
...全文
25 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
ManagerMan 2003-09-09
  • 打赏
  • 举报
回复
利用adoquery的field对象的属性、事件
Shiyl 2003-09-09
  • 打赏
  • 举报
回复
用table控件
var newfield:Tfielddef;
begin
table1.active:=True;
newfield:=table1.fielddefs.addfielddef;
with newfield do
begin
name:='fieldname';
datatype:=ftstring;
size:=16;
required:=False;//是否必填
end;
table.active:=False;
table.createtable;
end;
用ADO,放置ADOTABLE和ADOQUERY,DATASOURCE的DATASET设为ADOTABLE
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Active := not ADOTable1.Active;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('Alter table MainTable Add NewField char(16)');
Prepared;
ExecSQL;
end;
end;
hansonboy 2003-09-09
  • 打赏
  • 举报
回复
up
lean77 2003-09-03
  • 打赏
  • 举报
回复
只用过手工生成的,没有过代码生成的...
hansonboy 2003-09-03
  • 打赏
  • 举报
回复
up
hansonboy 2003-08-31
  • 打赏
  • 举报
回复
这个我知道,但我是想用代码生成计算字段
hansonboy 2003-08-31
  • 打赏
  • 举报
回复
真的没有帮到我吗
hansonboy 2003-08-30
  • 打赏
  • 举报
回复
帮帮我吧
flyingwolf_1980 2003-08-30
  • 打赏
  • 举报
回复
你先要在你所用的访问组件(如TTable,Tquery等)中加入一个计算字段,
然后在该组件的oncalcue事件中编程即可实现。
hansonboy 2003-08-30
  • 打赏
  • 举报
回复
up
hansonboy 2003-08-30
  • 打赏
  • 举报
回复
up
hansonboy 2003-08-30
  • 打赏
  • 举报
回复
那是怎样呢给点代码看看好吗?
fhuibo 2003-08-30
  • 打赏
  • 举报
回复
和静态的一样
用代码实现吧

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧