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

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

为了能让用户对历史的信息进行查看,所以本设计中包含了一个对历史信息进行记录的功能,主要是创建一个记事本文件对信息进行复制保存,以下就是历史信息记录的代码:
procedure Tdetailform.RecorBBtnClick(Sender: TObject);
begin
    if  SavRecorDia.Execute  then
  begin
     RecorEd.Text:=SavRecorDia.FileName;
  end;
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;
end;
 
 
上一篇:毕业论文“基于工作流引擎的系统框架设计开发 ——工作流引擎子

下一篇:没有了

学生网页设计作业成品怎么发送呢
. 邮箱传送
. Q Q 传送
. 旺旺传送
学生网页设计作业成品有什么保障呢
. 官方优质模板
. 描述100%一致
. 诚信服务
. 安全交易
. 售后保障
学生网页设计作业成品有什么服务呢
. 协助修改页面信息
. 多渠道沟通
. 1:1售后指导
学生网页设计作业成品怎么支付呢
. 在线支付
. 线下汇款
. 财付通
. 支付宝
帮我作业网服务介绍
. 大学生作业模板
. 定制大学生作业
. 商家信息发布
. 学生作业任务发布

2005-2022 版权所有:帮我作业网 并保留所有权利

冀ICP备18007408号 E-mail: 2656895362@qq.com ,1826816020@qq.com

乘车路线:2路 11路 38路珠江道路南国际新源大厦B座1104

联系帮我作业网 联系帮我作业网2656895362 帮我作业网 work85

收缩
  • 联系帮我作业网客服