设计带记忆的数据录入窗口[2]

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

(*把新增数据的自动编号存到列表中 *)

IDListAdd(FieldByName(ID)AsString);

end;

ADODataSetRequery();

GBxListEnabled := False;

BtnSaveEnabled := False;

BtnNewEnabled := True;

ShowMessage(数据保存成功);

end;

procedure TFrmSaveButtonClick(Sender: TObject);

var

i: Integer;

ID Number Name JoinDate: String;

Old TelePhone DepartMent Sex: String;

begin

MemoLinesClear;

for i := to IDListCount do

begin

ID := IDListStrings[i];

ADODataSetLocate(ID ID []);

Number := ADODataSetFieldByName(Number)AsString;

Name := ADODataSetFieldByName(Name)AsString;

Old := ADODataSetFieldByName(Old)AsString;

Sex := ADODataSetFieldByName(Sex)AsString;

TelePhone := ADODataSetFieldByName(TelePhone)AsString;

DepartMent := ADODataSetFieldByName(DepartMent)AsString;

JoinDate := ADODataSetFieldByName(JoinDate)AsString;

with MemoLines do

begin

Add(LBNameCaption + Number);

Add(LBNameCaption + Name);

Add(LbOldCaption + Old);

Add(LbSexCaption + Sex);

Add(LbPhoneCaption + TelePhone);

Add(LbPartCaption + DepartMent);

Add(LbDateCaption + JoinDate);

Add();

end;

end;

end;

end

right>[http://developcsaicn/delphi/htm>] []