动态添加字段
Query1.SQL.Text := 'ALTER TABLE TableName ADD COLUMN Name VARCHAR(30)';
Query1.SQL.Text := 'ALTER TABLE TableName ADD COLUMN ' + Edit1.Text +' VARCHAR(30)';
为添加添加值
sql.Add(' insert into s1m (ID) ');
sql.add('values('+quotedstr(trim(edit1.text))+')');