保存数据当ADO循环删除数据时需要注意的问题

——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥ 购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

使用赋值方式保存数据

本例通过ADO赋值方式把员工的信息存入到数据库中主要代码如下

procedure TFrmTransBtnSaveClick(Sender: TObject);

begin

with ADODataSet do

begin

FieldByName(Number)AsString := Trim(EDNumberText);

FieldByName(Name)AsString := Trim(EDNameText);

FieldByName(Old)AsInteger := StrToIntDef(Trim(EdOldText) );

if CBxSexText = 男 then

FieldByName(Sex)AsInteger :=

else

FieldByName(Sex)AsInteger := ;

FieldByName(TelePhone)AsString := Trim(EdTelePhoneText);

FieldByName(DepartMent)AsString := Trim(CBXdePartMentText);

FieldByName(JoinDate)AsDateTime := DTPJoinDateDate;

Post;

end;

ADODataSetRequery();

GBxListEnabled := False;

BtnSaveEnabled := False;

BtnNewEnabled := True;

ShowMessage(数据保存成功);

end;

当ADO循环删除数据时需要注意的问题

当使用ADO循环删除数据时在循环中不要使用ADONext方法因为在ADOdelete删除数据后光标自动移动到下一行如果使用ADONext方法光标将继续向下移动这样会出现隔行删除的情况代码如下

while not ADODataSetEOF do

begin

ADODataSetDelete;

//ADODataSetNext; 记录集不手动向下移动

end;