ux_sjbf.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

 closefile(cdmx);
 g_xtxx.close;
 messagebox(handle,'营业数据恢复成功！','系统提示信息',MB_OK+MB_ICONWARNING);
end;

procedure Tx_sjbf.yysj_bfClick(Sender: TObject);
var
 i:integer;
begin
{
 if p_yysj_sd.Visible then
  if (yysj_d1.date>yysj_d2.date) then
   begin
    messagebox(handle,'请重新设置时间段','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
   end;
}
 SaveDialog1.Title:='把营业数据备份到:';
 if SaveDialog1.Execute then  F_Name := SaveDialog1.FileName  else exit;
 AssignFile(cd,F_name);
 if FileExists(F_Name) = true then
   if messagebox(handle,'备份文件已存在!,覆盖此文件吗?！','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK  then
     begin
      if DeleteFile(f_name)=false then
        begin
         messagebox(handle,'不能覆盖原文件！','系统提示信息',MB_OK+MB_ICONWARNING);
         exit;
        end;
     end
    else
     exit;
 try
   ReWrite(cd);
  except
   On EInOutError do
   begin
    messagebox(handle,'备份文件不能创建！','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
   end;
 end;
 F_Name := ChangeFileExt(f_name, '.HB1');
 AssignFile(cdmx,F_name);
 if FileExists(F_Name) = true then
   if DeleteFile(f_name)=false  then
     begin
       messagebox(handle,'不能覆盖原配置备份文件！','系统提示信息',MB_OK+MB_ICONWARNING);
       closefile(cd);
       exit;
     end;
 try
  ReWrite(cdmx);
 except
  On EInOutError do
  begin
   messagebox(handle,'配置备份文件不能创建！','系统提示信息',MB_OK+MB_ICONWARNING);
   closefile(cd);
   exit;
  end;
 end;

 g_xtxx.show;
 g_xtxx.ProgressBar1.max:=cd1.recordcount+cdmx1.recordcount;
 g_xtxx.m1.caption:='正在备份营业数据, 请稍侯...';
 g_xtxx.Update;
 try
 with cd1,cdrec do
  begin
  first;
  for i:=0 to recordcount-1 do
   begin
    fbz:='yysj1';
    cdbh:=fieldbyname('cdbh').asstring;
    fdbh:=fieldbyname('fdbh').asstring;
    ycrq:=fieldbyname('ycrq').asdatetime;
    ycsj:=fieldbyname('ycsj').asdatetime;
    yylx:=fieldbyname('yylx').asstring;
    srlb:=fieldbyname('srlb').asstring;
    th:=fieldbyname('th').asstring;
    tht:=fieldbyname('tht').asstring;
    krs:=fieldbyname('krs').asinteger;
    fwyh:=fieldbyname('fwyh').asstring;
    skyh:=fieldbyname('skyh').asstring;
    zj:=fieldbyname('zj').ascurrency;
    xj:=fieldbyname('xj').ascurrency;
    fwf:=fieldbyname('fwf').ascurrency;
    zkf:=fieldbyname('zkf').ascurrency;
    zsje:=fieldbyname('zsje').ascurrency;
    ssje:=fieldbyname('ssje').ascurrency;
    jzrq:=fieldbyname('jzrq').asdatetime;
    jzsj:=fieldbyname('jzsj').asdatetime;
    jzfs:=fieldbyname('jzfs').asstring;
    qdjz:=fieldbyname('qdjz').asstring;
    skje:=fieldbyname('skje').ascurrency;
    zt:=fieldbyname('zt').asstring;
    skth:=fieldbyname('skth').asstring;
    pzrh:=fieldbyname('pzrh').asstring;
    qdrm:=fieldbyname('qdrm').asstring;
    ckbh:=fieldbyname('ckbh').asstring;
    dbxm:=fieldbyname('dbxm').asstring;
    seek(cd,i);
    write(cd,cdrec);
    next;
    g_xtxx.ProgressBar1.StepBy(i);
   end;
  end;
 with cdmx1,cdmxrec do
  begin
  first;
  for i:=0 to recordcount-1 do
   begin
    fbz:='yysj2';
    bh:=fieldbyname('bh').asinteger;
    cdbh:=fieldbyname('cdbh').asstring;
    clh:=fieldbyname('clh').asstring;
    ch:=fieldbyname('ch').asstring;
    cm:=fieldbyname('cm').asstring;
    dj:=fieldbyname('dj').ascurrency;
    sl:=fieldbyname('sl').ascurrency;
    hj:=fieldbyname('hj').ascurrency;
    dzl:=fieldbyname('dzl').ascurrency;
    gg:=fieldbyname('gg').asstring;
    srlb:=fieldbyname('srlb').asstring;
    cz:=fieldbyname('cz').asstring;
    tcyyh:=fieldbyname('tcyyh').asstring;
    tcyy:=fieldbyname('tcyy').asstring;
    pzrh:=fieldbyname('pzrh').asstring;
    tsl:=fieldbyname('tsl').ascurrency;
    lbh:=fieldbyname('lbh').asstring;
    seek(cdmx,i);
    write(cdmx,cdmxrec);
    g_xtxx.ProgressBar1.StepBy(cd1.recordcount+i);
    next;
   end;
  end;
 except
   g_xtxx.close;
   messagebox(handle,'营业数据备份失败！','系统提示信息',MB_OK+MB_ICONWARNING);
   closefile(cd);
   closefile(cdmx);
 end;
 closefile(cd);
 closefile(cdmx);
 g_xtxx.close;
 messagebox(handle,'营业数据备份成功！','系统提示信息',MB_OK+MB_ICONWARNING);
end;

procedure Tx_sjbf.yysj_qbClick(Sender: TObject);
begin
  p_yysj_sd.Visible:=false;
end;

procedure Tx_sjbf.yysj_sdClick(Sender: TObject);
begin
  p_yysj_sd.Visible:=true;
end;

procedure Tx_sjbf.ctbz_bfClick(Sender: TObject);
var
 i:integer;
begin
 SaveDialog1.Title:='把餐厅布置数据备份到:';
 if SaveDialog1.Execute then  F_Name := SaveDialog1.FileName  else exit;
 AssignFile(t,F_name);
 if FileExists(F_Name) = true then
   if messagebox(handle,'备份文件已存在!,覆盖此文件吗?！','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK  then
    begin
     if DeleteFile(f_name)=false then
       begin
         messagebox(handle,'不能覆盖原文件！','系统提示信息',MB_OK+MB_ICONWARNING);
         exit;
       end;
    end
   else
    exit;
 try
   ReWrite(t);
  except
   On EInOutError do
   begin
    messagebox(handle,'备份文件不能创建！','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
   end;
 end;
 F_Name := ChangeFileExt(f_name, '.HB1');
 AssignFile(tai,F_name);
 if FileExists(F_Name) = true then
   if DeleteFile(f_name)=false  then
     begin
       messagebox(handle,'不能覆盖原配置备份文件！','系统提示信息',MB_OK+MB_ICONWARNING);
       closefile(t);
       exit;
     end;
 try
  ReWrite(tai);
 except
  On EInOutError do
  begin
   messagebox(handle,'配置备份文件不能创建！','系统提示信息',MB_OK+MB_ICONWARNING);
   closefile(t);
   exit;
  end;
 end;

 g_xtxx.show;
 g_xtxx.ProgressBar1.max:=t_t.recordcount+t_tai.recordcount;
 g_xtxx.m1.caption:='正在备份餐厅布置数据, 请稍侯...';
 g_xtxx.Update;
 try
 with t_t,trec do
  begin
  first;
  for i:=0 to recordcount-1 do
   begin
    fbz:='ct1';
    fdbh:=fieldbyname('fdbh').asstring;
    th:=fieldbyname('th').asstring;
    tm:=fieldbyname('tm').asstring;
    sfbj:=fieldbyname('sfbj').asstring;
    seek(t,i);
    write(t,trec);
    next;
    g_xtxx.ProgressBar1.StepBy(i);
   end;
  end;
 with t_tai,tairec do
  begin
  first;
  for i:=0 to recordcount-1 do
   begin
    fbz:='ct2';
    th:=fieldbyname('th').asstring;
    tht:=fieldbyname('tht').asstring;
    fdbh:=fieldbyname('fdbh').asstring;
    zws:=fieldbyname('zws').asinteger;
    fwfl:=fieldbyname('fwfl').ascurrency;
    dzl:=fieldbyname('dzl').ascurrency;
    sfbz:=fieldbyname('sfbz').ascurrency;
    zdxf:=fieldbyname('zdxf').ascurrency;
    fwyh:=fieldbyname('fwyh').asstring;
    fwym:=fieldbyname('fwym').asstring;
    sfbj:=fieldbyname('sfbj').asstring;
    zt:=fieldbyname('zt').asstring;
    seek(tai,i);
    write(tai,tairec);
    g_xtxx.ProgressBar1.StepBy(t_t.recordcount+i);
    next;
   end;
  end;
  except
    closefile(t);
    closefile(tai);
    g_xtxx.close;
    messagebox(handle,'餐厅布置数据备份失败！','系统提示信息',MB_OK+MB_ICONWARNING);
  end;
 closefile(t);
 closefile(tai);
 g_xtxx.close;
 messagebox(handle,'餐厅布置数据备份成功！','系统提示信息',MB_OK+MB_ICONWARNING);
end;

procedure Tx_sjbf.ctbz_hfClick(Sender: TObject);
var
 i:integer;
begin
 OpenDialog1.Title:='打开餐厅布置数据备份文件:';
 if OpenDialog1.Execute then  F_Name := OpenDialog1.FileName  else exit;
 AssignFile(t,F_name);
 try
   Reset(t);
  except
   On EInOutError do
    if FileExists(F_Name) = False then
      begin
       messagebox(handle,'备份文件没有找到！','系统提示信息',MB_OK+MB_ICONWARNING);
       exit;
      end
     else
      begin
       messagebox(handle,'备份文件不能打开！','系统提示信息',MB_OK+MB_ICONWARNING);
       exit;
      end;
  end;
 R_Count1 := FileSize(t);
 if r_count1=0 then
   begin
    messagebox(handle,'备份文件为空！','系统提示信息',MB_OK+MB_ICONWARNING);
    closefile(t);
    exit;
   end;

 seek(t,0);  //判断文件标志
 Read(t,tRec);
 if tRec.fbz<>'ct1' then 
   begin
    messagebox(handle,'此文件不是餐厅布置备份文件！','系统提示信息',MB_OK+MB_ICONWARNING);
    closefile(t);
    exit;
   end;

 F_Name := ChangeFileExt(f_name, '.HB1');
 AssignFile(tai,F_name);
 try
   Reset(tai);
  except
   On EInOutError do
    if FileExists(F_Name) = False then
      begin
       messagebox(handle,'配置备份文件没有找到！','系统提示信息',MB_OK+MB_ICONWARNING);
       closefile(t);
       exit;
      end
     else
      begin
       messagebox(handle,'配置备份文件不能打开！','系统提示信息',MB_OK+MB_ICONWARNING);
       closefile(t);
       exit;
      end;
  end;
 R_Count2 := FileSize(tai);
 if r_count2=0 then
   begin
    messagebox(handle,'配置备份文件为空！','系统提示信息',MB_OK+MB_ICONWARNING);
    closefile(t);
    closefile(tai);
    exit;
   end;

 seek(tai,0);  //判断文件标志
 Read(tai,taiRec);
 if taiRec.fbz<>'ct2' then
   begin
    messagebox(handle,'配置备份文件已改变！','系统提示信息',MB_OK+MB_ICONWARNING);
    closefile(t);
    closefile(tai);
    exit;
   end;

 if (t_t.recordcount<>0) or (t_tai.recordcount<>0) then
   if messagebox(handle,'有部分或全部数据已存在!,覆盖吗?！','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK  then
     begin
      main.h_del('delete from t');
      main.h_del('delete from tai');
     end
    else
     begin
      closefile(t);
      closefile(tai);
      exit;
     end;
 g_xtxx.show;
 g_xtxx.ProgressBar1.max:=R_count1+R_count2;
 g_xtxx.m1.caption:='正在恢复营业数据主表, 请稍侯...';
 g_xtxx.Update;
 try
 with t_t,trec do
  begin
   first;
   for i:=0 to R_count1-1 do
    begin
     append;
     seek(t,i);
     Read(t,tRec);
     fieldbyname('fdbh').value:=fdbh;
     fieldbyname('th').value:=th;
     fieldbyname('tm').value:=tm;
     fieldbyname('sfbj').value:=sfbj;
     g_xtxx.ProgressBar1.StepBy(i);
     g_xtxx.Update;
    end;
   post;
  end;
 with t_tai,tairec do
  begin
   first;
   for i:=0 to r_count2-1 do
    begin
     append;
     seek(tai,i);
     Read(tai,taiRec);
     fieldbyname('th').value:=th;
     fieldbyname('tht').value:=tht;
     fieldbyname('fdbh').value:=fdbh;
     fieldbyname('zws').value:=zws;
     fieldbyname('fwfl').value:=fwfl;
     fieldbyname('dzl').value:=dzl;
     fieldbyname('sfbz').value:=sfbz;
     fieldbyname('zdxf').value:=zdxf;
     fieldbyname('fwyh').value:=fwyh;
     fieldbyname('fwym').value:=fwym;
     fieldbyname('sfbj').value:=sfbj;
     fieldbyname('zt').value:=zt;
     g_xtxx.ProgressBar1.StepBy(R_count1+i);
     g_xtxx.Update;
    end;
   post;
  end;
  except
   closefile(t);
   closefile(tai);
   g_xtxx.close;
   messagebox(handle,'餐厅布置数据恢复失败！','系统提示信息',MB_OK+MB_ICONWARNING);
   exit;
  end;
 closefile(t);
 closefile(tai);
 g_xtxx.close;
 messagebox(handle,'餐厅布置数据恢复成功！','系统提示信息',MB_OK+MB_ICONWARNING);
end;

procedure Tx_sjbf.yycp_bfClick(Sender: TObject);
var
 i:integer;
begin
 SaveDialog1.Title:='把营业菜谱数据备份到:';
 if SaveDialog1.Execute then  F_Name := SaveDialog1.FileName  else exit;
 AssignFile(cl,F_name);
 if FileExists(F_Name) = true then
   if messagebox(handle,'备份文件已存在!,覆盖此文件吗?！','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK  then
    begin
     if DeleteFile(f_name)=false then
       begin
         messagebox(handle,'不能覆盖原文件！','系统提示信息',MB_OK+MB_ICONWARNING);
         exit;
       end;
    end
   else
    exit;
 try
   ReWrite(cl);
  except
   On EInOutError do
   begin
    messagebox(handle,'备份文件不能创建！','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
   end;
 end;
 F_Name := ChangeFileExt(f_name, '.HB1');
 AssignFile(cy,F_name);
 if FileExists(F_Name) = true then
   if DeleteFile(f_name)=false  then
     begin
       messagebox(handle,'不能覆盖原配置备份文件！','系统提示信息',MB_OK+MB_ICONWARNING);
       closefile(cl);
       exit;
     end;
 try
  ReWrite(cy);
 except
  On EInOutError do
  begin
   messagebox(handle,'配置备份文件不能创建！','系统提示信息',MB_OK+MB_ICONWARNING);
   closefile(cl);
   exit;
  end;
 end;

 g_xtxx.show;
 g_xtxx.ProgressBar1.max:=t_cl.recordcount+t_cy.recordcount;
 g_xtxx.m1.caption:='正在备份营业菜谱数据, 请稍侯...';
 g_xtxx.Update;
 try