L
lwlnic
Unregistered / Unconfirmed
GUEST, unregistred user!
1。用sql语言向某个表格中添加字段,可以如下写:
procedure TForm1.addbtnClick(Sender: TObject);
var
add_field :TField;
count :integer;
name :string;
begin
name :=edit1.Text;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('alter table FieldEditTable add '+name+' int null');
Adoquery1.ExecSQL;
//刷新dbgride中的内容;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from FieldEditTable');
Adoquery1.Open;
end;
我想问的是如何在指定的位置添加字段,(比如在第一个字段前);如何使
添加的字段名称没有重复。(80分)
2。如何判断tfilestream类型文件已经读完了。
用delphi中的eof函数是不可以的。应该怎么样完成这个判断?(20分)
环境是win98+D5。
procedure TForm1.addbtnClick(Sender: TObject);
var
add_field :TField;
count :integer;
name :string;
begin
name :=edit1.Text;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('alter table FieldEditTable add '+name+' int null');
Adoquery1.ExecSQL;
//刷新dbgride中的内容;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from FieldEditTable');
Adoquery1.Open;
end;
我想问的是如何在指定的位置添加字段,(比如在第一个字段前);如何使
添加的字段名称没有重复。(80分)
2。如何判断tfilestream类型文件已经读完了。
用delphi中的eof函数是不可以的。应该怎么样完成这个判断?(20分)
环境是win98+D5。