📄 mrsjbf.pas

📁 这是用Delphi编写的汽车配件管理系统。主要功能有基础信息管理
💻 PAS
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
        end;
     4:begin
        time1.Locate('bian','ck5',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     end;
    label7.caption:=inttostr(shu);
    label8.caption:=datetostr(time1.fieldbyname('time').asdatetime);
ru:=true;
showmessage('数据备份成功。');
except on exception do showmessage('数据有误，不能备份。');
end;
end;
end
else begin
try
table5.First;
while not table5.eof do begin
   table5.delete;
end;
table2.first;
while not table2.Eof do begin
   table5.Insert;
   table5.fieldbyname('cpbh').asstring:=
      table2.fieldbyname('cpbh').asstring;
   table5.fieldbyname('cpmc').asstring:=
      table2.fieldbyname('cpmc').asstring;
   table5.fieldbyname('cpxh').asstring:=
      table2.fieldbyname('cpxh').asstring;
   table5.fieldbyname('cpbs').asstring:=
      table2.fieldbyname('cpbs').asstring;
   table5.fieldbyname('jsr').asstring:=
      table2.fieldbyname('jsr').asstring;
   table5.fieldbyname('rdate').asdatetime:=
      table2.fieldbyname('rdate').asdatetime;
   table5.fieldbyname('dan').asstring:=
      table2.fieldbyname('dan').asstring;
   table5.fieldbyname('shuliang').asstring:=
      table2.fieldbyname('shuliang').asstring;
   table5.fieldbyname('cx').asstring:=
      table2.fieldbyname('cx').asstring;
   table5.fieldbyname('cd').asstring:=
      table2.fieldbyname('cd').asstring;
   table5.fieldbyname('khbh').asstring:=
      table2.fieldbyname('khbh').asstring;
   table5.fieldbyname('khqc').asstring:=
      table2.fieldbyname('khqc').asstring;
   table5.fieldbyname('lxdh').asstring:=
      table2.fieldbyname('lxdh').asstring;
   table5.fieldbyname('je').asinteger:=
      table2.fieldbyname('je').asinteger;
   table5.fieldbyname('ying').asinteger:=
      table2.fieldbyname('ying').asinteger;
   table5.fieldbyname('bei').asstring:=combobox2.text;
     table5.post;
     table2.next;
     shu:=shu+1;
   end;
   case combobox2.ItemIndex of
     0:begin
        time1.Locate('bian','ck1',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     1:begin
        time1.locate('bian','ck2',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.post;
        end;
     2:begin
        time1.Locate('bian','ck3',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     3:begin
        time1.Locate('bian','ck4',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     4:begin
        time1.Locate('bian','ck5',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     end;
    label7.caption:=inttostr(shu);
    label8.caption:=datetostr(time1.fieldbyname('time').asdatetime);
   ru:=true;
   showmessage('数据备份成功。');
except on exception do showmessage('数据有误，不能备份。');
end;
end;
end;

procedure TSJBF.BitBtn6Click(Sender: TObject);
begin
if table5.Locate('bei',combobox2.text,[lopartialkey]) then begin
if application.MessageBox('恢复记录将覆盖现有的所有的记录，'+#13+'  您确定吗？',
   '提醒',mb_yesno)=idyes then begin
      try
      table2.First;
      while not table2.eof do begin
           table2.delete;
       end;
      table5.first;
      while not table5.eof do begin
         table2.insert;
   table2.fieldbyname('cpbh').asstring:=
      table5.fieldbyname('cpbh').asstring;
   table2.fieldbyname('cpmc').asstring:=
      table5.fieldbyname('cpmc').asstring;
   table2.fieldbyname('cpxh').asstring:=
      table5.fieldbyname('cpxh').asstring;
   table2.fieldbyname('cpbs').asstring:=
      table5.fieldbyname('cpbs').asstring;
   table2.fieldbyname('jsr').asstring:=
      table5.fieldbyname('jsr').asstring;
   table2.fieldbyname('rdate').asdatetime:=
      table5.fieldbyname('rdate').asdatetime;
   table2.fieldbyname('dan').asstring:=
      table5.fieldbyname('dan').asstring;
   table2.fieldbyname('shuliang').asstring:=
      table5.fieldbyname('shuliang').asstring;
   table2.fieldbyname('cx').asstring:=
      table5.fieldbyname('cx').asstring;
   table2.fieldbyname('cd').asstring:=
      table5.fieldbyname('cd').asstring;
   table2.fieldbyname('khbh').asstring:=
      table5.fieldbyname('khbh').asstring;
   table2.fieldbyname('khqc').asstring:=
      table5.fieldbyname('khqc').asstring;
   table2.fieldbyname('lxdh').asstring:=
      table5.fieldbyname('lxdh').asstring;
   table2.fieldbyname('je').asinteger:=
      table5.fieldbyname('je').asinteger;
   table2.fieldbyname('ying').asinteger:=
      table5.fieldbyname('ying').asinteger;
     table2.post;
     table5.next;
  end;
  showmessage('数据恢复完毕。');
  except on exception do showmessage('数据错误无法恢复。');
  end;

end; end
else begin
   showmessage('备份库中无纪录。');
   end;


end;

procedure TSJBF.BitBtn9Click(Sender: TObject);
begin
if table6.Locate('bei',combobox3.text,[lopartialkey]) then begin
if application.MessageBox('恢复记录将覆盖现有的所有的记录，'+#13+'  您确定吗？',
   '提醒',mb_yesno)=idyes then begin
      try
      table3.First;
      while not table3.eof do begin
           table3.delete;
       end;
      table6.first;
      while not table6.eof do begin
         table3.insert;
   table3.fieldbyname('cpbh').asstring:=
      table6.fieldbyname('cpbh').asstring;
   table3.fieldbyname('cpmc').asstring:=
      table6.fieldbyname('cpmc').asstring;
   table3.fieldbyname('cpxh').asstring:=
      table6.fieldbyname('cpxh').asstring;
   table3.fieldbyname('cpbs').asstring:=
      table6.fieldbyname('cpbs').asstring;
   table3.fieldbyname('jsr').asstring:=
      table6.fieldbyname('jsr').asstring;
   table3.fieldbyname('rdate').asdatetime:=
      table6.fieldbyname('rdate').asdatetime;
   table3.fieldbyname('dan').asstring:=
      table6.fieldbyname('dan').asstring;
   table3.fieldbyname('shuliang').asstring:=
      table6.fieldbyname('shuliang').asstring;
   table3.fieldbyname('cx').asstring:=
      table6.fieldbyname('cx').asstring;
   table3.fieldbyname('cd').asstring:=
      table6.fieldbyname('cd').asstring;
   table3.fieldbyname('khbh').asstring:=
      table6.fieldbyname('khbh').asstring;
   table3.fieldbyname('khqc').asstring:=
      table6.fieldbyname('khqc').asstring;
   table3.fieldbyname('lxdh').asstring:=
      table6.fieldbyname('lxdh').asstring;
   table3.fieldbyname('je').asinteger:=
      table6.fieldbyname('je').asinteger;
   table3.fieldbyname('ying').asinteger:=
      table6.fieldbyname('ying').asinteger;
   table3.fieldbyname('shi').asinteger:=
      table6.fieldbyname('shi').asinteger;
   table3.FieldByName('tui').asstring:=
      table6.fieldbyname('tui').asstring;
   table3.fieldbyname('tdate').asdatetime:=
      table6.fieldbyname('tdate').asdatetime;
     table3.post;
     table6.next;
  end;
  showmessage('数据恢复完毕。');
  except on exception do showmessage('数据错误无法恢复。');
  end;

end; end
else begin
   showmessage('备份库中无纪录。');
   end;


end;

procedure TSJBF.BitBtn8Click(Sender: TObject);
var shu:integer;
begin
shu:=0;
if table6.Locate('bei',combobox3.text,[lopartialkey]) then begin
if application.messagebox('此库中已有备份记录，是否覆盖？','提醒',mb_yesno)
   =idyes then begin

try
table6.First;
while not table6.eof do begin
   table6.delete;
end;
table3.first;
while not table3.Eof do begin
   table6.Insert;
   table6.fieldbyname('cpbh').asstring:=
      table3.fieldbyname('cpbh').asstring;
   table6.fieldbyname('cpmc').asstring:=
      table3.fieldbyname('cpmc').asstring;
   table6.fieldbyname('cpxh').asstring:=
      table3.fieldbyname('cpxh').asstring;
   table6.fieldbyname('cpbs').asstring:=
      table3.fieldbyname('cpbs').asstring;
   table6.fieldbyname('jsr').asstring:=
      table3.fieldbyname('jsr').asstring;
   table6.fieldbyname('rdate').asdatetime:=
      table3.fieldbyname('rdate').asdatetime;
   table6.fieldbyname('dan').asstring:=
      table3.fieldbyname('dan').asstring;
   table6.fieldbyname('shuliang').asstring:=
      table3.fieldbyname('shuliang').asstring;
   table6.fieldbyname('cx').asstring:=
      table3.fieldbyname('cx').asstring;
   table6.fieldbyname('cd').asstring:=
      table3.fieldbyname('cd').asstring;
   table6.fieldbyname('khbh').asstring:=
      table3.fieldbyname('khbh').asstring;
   table6.fieldbyname('khqc').asstring:=
      table3.fieldbyname('khqc').asstring;
   table6.fieldbyname('lxdh').asstring:=
      table3.fieldbyname('lxdh').asstring;
   table6.fieldbyname('je').asinteger:=
      table3.fieldbyname('je').asinteger;
   table6.fieldbyname('ying').asinteger:=
      table3.fieldbyname('ying').asinteger;
   table6.fieldbyname('shi').asinteger:=
      table3.fieldbyname('shi').asinteger;
   table6.FieldByName('tui').asstring:=
      table3.fieldbyname('tui').asstring;
   table6.fieldbyname('tdate').asdatetime:=
      table3.fieldbyname('tdate').asdatetime;
   table6.FieldByName('bei').asstring:=combobox3.text;
     table6.post;
     table3.next;
       shu:=shu+1;
   end;
   case combobox3.ItemIndex of
     0:begin
        time1.Locate('bian','th1',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     1:begin
        time1.locate('bian','th2',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.post;
        end;
     2:begin
        time1.Locate('bian','th3',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     3:begin
        time1.Locate('bian','th4',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     4:begin
        time1.Locate('bian','th5',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     end;
    label11.caption:=inttostr(shu);
    label12.caption:=datetostr(time1.fieldbyname('time').asdatetime);
tui:=true;
showmessage('数据备份成功。');
except on exception do showmessage('数据有误，不能备份。');
end;
end;
end
else begin
try
table6.First;
while not table6.eof do begin
   table6.delete;
end;
table3.first;
while not table3.Eof do begin
   table6.Insert;
   table6.fieldbyname('cpbh').asstring:=
      table3.fieldbyname('cpbh').asstring;
   table6.fieldbyname('cpmc').asstring:=
      table3.fieldbyname('cpmc').asstring;
   table6.fieldbyname('cpxh').asstring:=
      table3.fieldbyname('cpxh').asstring;
   table6.fieldbyname('cpbs').asstring:=
      table3.fieldbyname('cpbs').asstring;
   table6.fieldbyname('jsr').asstring:=
      table3.fieldbyname('jsr').asstring;
   table6.fieldbyname('rdate').asdatetime:=
      table3.fieldbyname('rdate').asdatetime;
   table6.fieldbyname('dan').asstring:=
      table3.fieldbyname('dan').asstring;
   table6.fieldbyname('shuliang').asstring:=
      table3.fieldbyname('shuliang').asstring;
   table6.fieldbyname('cx').asstring:=
      table3.fieldbyname('cx').asstring;
   table6.fieldbyname('cd').asstring:=
      table3.fieldbyname('cd').asstring;
   table6.fieldbyname('khbh').asstring:=
      table3.fieldbyname('khbh').asstring;
   table6.fieldbyname('khqc').asstring:=
      table3.fieldbyname('khqc').asstring;
   table6.fieldbyname('lxdh').asstring:=
      table3.fieldbyname('lxdh').asstring;
   table6.fieldbyname('je').asinteger:=
      table3.fieldbyname('je').asinteger;
   table6.fieldbyname('ying').asinteger:=
      table3.fieldbyname('ying').asinteger;
   table6.fieldbyname('shi').asinteger:=
      table3.fieldbyname('shi').asinteger;
   table6.FieldByName('tui').asstring:=
      table3.fieldbyname('tui').asstring;
   table6.fieldbyname('tdate').asdatetime:=
      table3.fieldbyname('tdate').asdatetime;
   table6.FieldByName('bei').asstring:=combobox3.text;
     table6.post;
     table3.next;
     shu:=shu+1;
   end;
   case combobox3.ItemIndex of
     0:begin
        time1.Locate('bian','th1',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     1:begin
        time1.locate('bian','th2',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.post;
        end;
     2:begin
        time1.Locate('bian','th3',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     3:begin
        time1.Locate('bian','th4',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     4:begin
        time1.Locate('bian','th5',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     end;
    label11.caption:=inttostr(shu);
    label12.caption:=datetostr(time1.fieldbyname('time').asdatetime);
   tui:=true;
   showmessage('数据备份成功。');
except on exception do showmessage('数据有误，不能备份。');
end;
end;

end;

end.
上一页 1 23
💿 文件大小 1324 K
👤 上传用户 cocoplus
📂 所属分类 *行业应用
🏷️ 相关标签

#Delphi #编写 #汽车配件 #信息管理
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -