怎样创建动态字段以及利用这些字段？(50分)

我是初学DELPHI女孩，恳请您的帮助！
我在编一个小程序，用的是ACCESS数据库。其中表的字段要动态维护--删除修改增加等，
而且还需要统计这些字段的值，我该怎么办？等待各位大虾的详细解答！
还有DBIGETOBJFORMOBJ（）和DBIDORESTRUCTURE（）函数怎么用？

热烈欢迎新来的小妹
用的是ACCESS数据库。其中表的字段要动态维护--删除修改增加等，
----你真的要动态维护"字段"吗?是记录吧?
而且还需要统计这些字段的值，我该怎么办？
----怎么个统计法?细一点好吗?
还有DBIGETOBJFORMOBJ（）和DBIDORESTRUCTURE（）函数怎么用？
----这是BDE API, 你一般用不到的.(第一个是不是写错了)

谢谢笑大哥！
我想做一个工资管理系统，里面的“工资表的工资条目”可能需要动态填加，计算总工资，
然后还得统计这些条目的全年总和（例如要统计全年新加的一条‘岗位工资’）或者用它来做报表！
有什么办法吗？请你帮帮我！

初学DELPHI女孩会用到DBIDORESTRUCTURE（）函数
你也太谦虚了吧

把工资项目列到一个库的一个字段里，修改此库，根据此库的字段生成新库

这是hubdog整理的关于怎样动态添加，删除字段的程序！
procedure TForm1.Button2Click(Sender: TObject);
var
T: TStringField;
begin
Query1.Close;
T := TStringField.Create(Self);
T.FieldName := 'CO_NAME';
T.Name := Query1.Name + T.FieldName;
T.Index := Query1.FieldCount;
T.DataSet := Query1;
Query1.FieldDefs.UpDate;
Query1.Open;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
TC: TComponent;
begin
TC := FindComponent('Query1CO_NAME');
if not (TC = nil) then begin
Query1.Close;
TC.Free;
Query1.Open;
end;
end;

接受答案了.

接受答案了.