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

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

可以设计带记忆的数据录入窗口这样可以很方便地修改或删除本次录入的记录大大提高了工作效率本例实现单击记忆本次录入数据按钮在列表中显示本次录入的全部数据的功能如图所示

http://developcsaicn/delphi/images/jpg>

图 带记忆的数据录入窗口

把新增数据的编号添加到TList中单击记忆本次录入数据按钮时循环Tlist中的编号通过ADO的Locate方法定位到编号所在的记录提取相关数据显示在列表中主要代码如下

private

IDList: TStringList;

procedure ClearItem;

{ Private declarations }

end;

var

FrmSave: TFrmSave;

implementation

{$R *dfm}

procedure TFrmSaveFormShow(Sender: TObject);

begin

ADODataSetActive := False;

ADODataSetActive := True;

IDList := TStringListCreate;

end;

procedure TFrmSaveBtnSaveClick(Sender: TObject);

begin

with ADODataSet do

begin

Edit;

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;

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