增加字段:
procedure TForm5.Button1Click(Sender: TObject);
begin
query1.close;
Query1.SQL.Clear;
Query1.SQL.Add('ALTER TABLE COLOR ADD CDFX CHAR(8)');
Query1.ExecSQL;
end;
删除字段:
procedure TForm5.Button2Click(Sender: TObject);
begin
query1.close;
Query1.SQL.Clear;
Query1.SQL.Add('ALTER TABLE COLOR DROP CDFX');
Query1.ExecSQL;
end;