如题!
已经有一个 FlatEdit 和一个按钮,只要按下按钮,就可以把FlatEdit中的数据添加到数据库,下面的代码该怎么写? 谢谢! procedure TForm5.FlatButton1Click(Sender: TObject);
begin
str:=FlatEdit1.Text;
end;
已经有一个 FlatEdit 和一个按钮,只要按下按钮,就可以把FlatEdit中的数据添加到数据库,下面的代码该怎么写? 谢谢! procedure TForm5.FlatButton1Click(Sender: TObject);
begin
str:=FlatEdit1.Text;
end;
ADOTable.FieldByName('字段名').asstring := FlatEdit1.Text; //str
ADOTable.FieldByName('字段名').asinteger :=strtoint(FlatEdit1.Text);
ADOTable.FieldByName('字段名').assdatetime :=strtodatetime(FlatEdit1.Text);
......
平你的想象吧
ADOTable.Fields[i].asstring := FlatEdit1.Text;
adotable.post;
ADOTable.FieldByName('字段名').asstring :=XXXXX;
ADOTable.FieldByName('字段名').asstring :=XXXXXXXX;
ADOTable.FieldByName('字段名').asstring :=XXXXXXXXX;
......
adotable.post;
ADOTable.Fields[i].asstring := FlatEdit1.Text;
adotable.post;