毕业程序设计中如何设计历史信息记录功能_学生网页设计制作作业_网页制作作业成品_网页设计作业_计算机毕业设计_php作业_asp作业_网页模板

当前位置：帮我工作网 > 网页作业知识 >

热点资讯更多

毕业程序设计中如何设计历史信息记录功能

为了能让用户对历史的信息进行查看，所以本设计中包含了一个对历史信息进行记录的功能，主要是创建一个记事本文件对信息进行复制保存，以下就是历史信息记录的代码：

procedure Tdetailform.RecorBBtnClick(Sender: TObject);

begin

if SavRecorDia.Execute then

begin

RecorEd.Text:=SavRecorDia.FileName;

end;

procedure Tdetailform.Button3Click(Sender: TObject);

var F:textfile;

begin

showmessage(RecorEd.Text);

assignfile(f,RecorEd.Text);

rewrite(F);

closefile(F);

end;

…………

begin

if detailform.RecorEd.Text<>'' then

begin

Assignfile(f,detailform.RecorEd.Text);

if fileexists(detailform.RecorEd.Text)then append(f)

else rewrite(F);

writeln(f,'=====================================');

writeln(f,'发往：'+_ToIp);

if SealCheckBox.Checked then

writeln(f,'时间：'+datetostr(now)+timetostr(now))

else

writeln(f,'时间：'+datetostr(now)+timetostr(now));

writeln(f,'-------------------------------------');

writeln(f,SRMemo.Lines.Text);

writeln(f,'=====================================');

closefile(f);

end;

上一篇：毕业论文“基于工作流引擎的系统框架设计开发 ——工作流引擎子

下一篇：毕业论文“基于局域网的信息收发系统的设计与实现”中如何写好摘

分享到： QQ空间新浪微博腾讯微博人人网更多

. 邮箱传送 . Q Q 传送 . 旺旺传送

. 官方优质模板 . 描述100%一致 . 诚信服务 . 安全交易 . 售后保障

. 协助修改页面信息 . 多渠道沟通 . 1：1售后指导

. 在线支付 . 线下汇款 . 财付通 . 支付宝

. 大学生作业模板 . 定制大学生作业 . 商家信息发布 . 学生作业任务发布

相关栏目更多

最近动态更多

热点资讯更多