ux_sjbf.pas

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

     seek(yhydcd,i);
     Read(yhydcd,yhydcdRec);
     fieldbyname('bh').value:=bh;
     fieldbyname('yddh').value:=yddh;
     fieldbyname('clh').value:=clh;
     fieldbyname('ch').value:=ch;
     fieldbyname('cm').value:=cm;
     fieldbyname('dj').value:=dj;
     fieldbyname('sl').value:=sl;
     fieldbyname('hj').value:=hj;
     fieldbyname('dzl').value:=dzl;
     fieldbyname('gg').value:=gg;
     fieldbyname('lbh').value:=lbh;
     g_xtxx.ProgressBar1.StepBy(R_count1+i);
     g_xtxx.Update;
    end;
   post;
  end;
  except
   closefile(yhyd);
   closefile(yhydcd);
   g_xtxx.close;
   messagebox(handle,'宴会预定数据恢复失败！','系统提示信息',MB_OK+MB_ICONWARNING);
   exit;
  end;
 closefile(yhyd);
 closefile(yhydcd);
 g_xtxx.close;
 messagebox(handle,'宴会预定数据恢复成功！','系统提示信息',MB_OK+MB_ICONWARNING);
end;

procedure Tx_sjbf.bz_bfClick(Sender: TObject);
var
 i:integer;
begin
 SaveDialog1.Title:='把包桌数据主表备份到:';
 if SaveDialog1.Execute then  F_Name := SaveDialog1.FileName  else exit;
 AssignFile(bzc,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(bzc);
  except
   On EInOutError do
   begin
    messagebox(handle,'备份文件不能创建！','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
   end;
 end;
 F_Name := ChangeFileExt(f_name, '.HB1');
 AssignFile(bzccd,F_name);
 if FileExists(F_Name) = true then
   if DeleteFile(f_name)=false  then
     begin
       messagebox(handle,'不能覆盖原配置备份文件！','系统提示信息',MB_OK+MB_ICONWARNING);
       closefile(bzc);
       exit;
     end;
 try
  ReWrite(bzccd);
 except
  On EInOutError do
  begin
   messagebox(handle,'配置备份文件不能创建！','系统提示信息',MB_OK+MB_ICONWARNING);
   closefile(bzc);
   exit;
  end;
 end;

 g_xtxx.show;
 g_xtxx.ProgressBar1.max:=t_bzc.recordcount+t_bzccd.RecordCount;
 g_xtxx.m1.caption:='正在备份包桌数据, 请稍侯...';
 g_xtxx.Update;
 try
 with t_bzc,bzcRec do
  begin
  first;
  for i:=0 to recordcount-1 do
   begin
    fbz:='bzc1';
    bzbh:=fieldbyname('bzbh').asstring;
    bzmc:=fieldbyname('bzmc').asstring;
    bzbz:=fieldbyname('bzbz').ascurrency;
    zzr:=fieldbyname('zzr').asstring;
    zzrq:=fieldbyname('zzrq').asdatetime;
    bz:=fieldbyname('bz').asstring;
    seek(bzc,i);
    write(bzc,bzcrec);
    next;
    g_xtxx.ProgressBar1.StepBy(i);
   end;
  end;
 with t_bzccd,bzccdrec do
  begin
  first;
  for i:=0 to recordcount-1 do
   begin
    fbz:='bzc2';
    bh:=fieldbyname('bh').asinteger;
    bzbh:=fieldbyname('bzbh').asstring;
    ch:=fieldbyname('ch').asstring;
    cm:=fieldbyname('cm').asstring;
    gg:=fieldbyname('gg').asstring;
    sl:=fieldbyname('sl').ascurrency;
    dj:=fieldbyname('dj').ascurrency;
    hj:=fieldbyname('hj').ascurrency;
    dzl:=fieldbyname('dzl').ascurrency;
    clh:=fieldbyname('clh').asstring;
    lbh:=fieldbyname('lbh').asstring;
    seek(bzccd,i);
    write(bzccd,bzccdrec);
    g_xtxx.ProgressBar1.StepBy(t_bzc.RecordCount+i);
    next;
   end;
  end;
  except
    closefile(bzc);
    closefile(bzccd);
    g_xtxx.close;
    messagebox(handle,'包桌菜数据备份失败！','系统提示信息',MB_OK+MB_ICONWARNING);
  end;
 closefile(bzc);
 closefile(bzccd);
 g_xtxx.close;
 messagebox(handle,'包桌菜数据备份成功！','系统提示信息',MB_OK+MB_ICONWARNING);
end;

procedure Tx_sjbf.bz_hfClick(Sender: TObject);
var
 i:integer;
begin
 OpenDialog1.Title:='打开包桌数据备份文件:';
 if OpenDialog1.Execute then  F_Name := OpenDialog1.FileName  else exit;
 AssignFile(bzc,F_name);
 try
   Reset(bzc);
  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;
 seek(bzc,0);
 Read(bzc,bzcRec);
 if bzcRec.fbz<>'bzc1' then
   begin
    messagebox(handle,'此文件不是包桌菜数据备份文件！','系统提示信息',MB_OK+MB_ICONWARNING);
    closefile(bzc);
    exit;
   end;
 R_Count1 := FileSize(bzc);
 if r_count1=0 then
   begin
    messagebox(handle,'备份文件为空！','系统提示信息',MB_OK+MB_ICONWARNING);
    closefile(bzc);
    exit;
   end;

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

 if (t_bzc.recordcount<>0) or (t_bzccd.recordcount<>0) then
   if messagebox(handle,'有部分或全部数据已存在!,覆盖吗?！','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK  then
     begin
      main.h_del('delete from bzc');
      main.h_del('delete from bzccd');
     end
   else 
     begin
      closefile(bzc);
      closefile(bzccd);
      exit;
     end;
 g_xtxx.show;
 g_xtxx.ProgressBar1.max:=R_count1+R_count2;
 g_xtxx.m1.caption:='正在恢复包桌数据, 请稍侯...';
 g_xtxx.Update;
 try
 with t_bzc,bzcrec do
  begin
   for i:=0 to R_count1-1 do
    begin
     append;
     seek(bzc,i);
     Read(bzc,bzcRec);
     fieldbyname('bzbh').value:=bzbh;
     fieldbyname('bzmc').value:=bzmc;
     fieldbyname('bzbz').value:=bzbz;
     fieldbyname('zzr').value:=zzr;
     fieldbyname('zzrq').value:=zzrq;
     fieldbyname('bz').value:=bz;
     g_xtxx.ProgressBar1.StepBy(i);
     g_xtxx.Update;
    end;
   post;
  end;
 with t_bzccd,bzccdRec do
  begin
   for i:=0 to r_count2-1 do
    begin
     append;
     seek(bzccd,i);
     Read(bzccd,bzccdRec);
     fieldbyname('bh').value:=bh;
     fieldbyname('bzbh').value:=bzbh;
     fieldbyname('clh').value:=clh;
     fieldbyname('ch').value:=ch;
     fieldbyname('cm').value:=cm;
     fieldbyname('dj').value:=dj;
     fieldbyname('sl').value:=sl;
     fieldbyname('hj').value:=hj;
     fieldbyname('dzl').value:=dzl;
     fieldbyname('gg').value:=gg;
     fieldbyname('lbh').value:=lbh;
     g_xtxx.ProgressBar1.StepBy(R_count1+i);
     g_xtxx.Update;
    end;
   post;
  end;
  except
   closefile(bzc);
   closefile(bzccd);
   g_xtxx.close;
   messagebox(handle,'包桌数据恢复失败！','系统提示信息',MB_OK+MB_ICONWARNING);
   exit;
  end;
 closefile(bzc);
 closefile(bzccd);
 g_xtxx.close;
 messagebox(handle,'包桌数据恢复成功！','系统提示信息',MB_OK+MB_ICONWARNING);
end;

procedure Tx_sjbf.ckzl_bfClick(Sender: TObject);
var
 i:integer;
begin
 SaveDialog1.Title:='把常客资料数据备份到:';
 if SaveDialog1.Execute then  F_Name := SaveDialog1.FileName  else exit;
 AssignFile(ckzl,F_name);
 if FileExists(F_Name) = true then
   if messagebox(handle,'文件已存在!,覆盖此文件吗?！','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK  then
     DeleteFile(f_name) else exit;
 try
    ReWrite(ckzl);
   except
    On EInOutError do
     begin
      messagebox(handle,'文件不能创建！','系统提示信息',MB_OK+MB_ICONWARNING);
      exit;
     end;
  end;

 g_xtxx.show;
 g_xtxx.ProgressBar1.max:=T_ckzl.recordcount;
 g_xtxx.m1.caption:='正在备份常客资料数据, 请稍侯...';
 g_xtxx.Update;
 try
 with t_ckzl,ckzlRec do
  begin
  first;
  for i:=0 to recordcount-1 do
   begin
    fbz:='ckzl';
    ckbh:=fieldbyname('ckbh').asstring;
    dwmc:=fieldbyname('dwmc').asstring;
    zjm:=fieldbyname('zjm').asstring;
    xfcs:=fieldbyname('xfcs').asinteger;
    xfze:=fieldbyname('xfze').ascurrency;
    xydj:=fieldbyname('xydj').asstring;
    dwxz:=fieldbyname('dwxz').asstring;
    dwdz:=fieldbyname('dwdz').asstring;
    yzbm:=fieldbyname('yzbm').asstring;
    khyh:=fieldbyname('khyh').asstring;
    zh:=fieldbyname('zh').asstring;
    dbxm:=fieldbyname('dbxm').asstring;
    xb:=fieldbyname('xb').asstring;
    dh:=fieldbyname('dh').asstring;
    chh:=fieldbyname('chh').asstring;
    sj:=fieldbyname('sj').asstring;
    email:=fieldbyname('email').asstring;
    csrq:=fieldbyname('csrq').asdatetime;
    qldj:=fieldbyname('qldj').asstring;
    zw:=fieldbyname('zw').asstring;
    seek(ckzl,i);
    write(ckzl,ckzlRec);
    next;
    g_xtxx.ProgressBar1.StepBy(i);
   end;
  end;
  except
    closefile(ckzl);
    g_xtxx.close;
    messagebox(handle,'常客资料数据备份失败！','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
  end;
 closefile(ckzl);
 g_xtxx.close;
 messagebox(handle,'常客资料数据备份成功！','系统提示信息',MB_OK+MB_ICONWARNING);
end;

procedure Tx_sjbf.ckzl_hfClick(Sender: TObject);
var
 i:integer;
begin
 OpenDialog1.Title:='打开常客资料备份文件:';
 if OpenDialog1.Execute then  F_Name := OpenDialog1.FileName  else exit;
 AssignFile(ckzl,F_name);
 try
   Reset(ckzl);
  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(ckzl);
 if r_count1=0 then
   begin
    messagebox(handle,'常客资料备份文件为空！','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
   end;
//判断文件标志
 seek(ckzl,0);
 Read(ckzl,ckzlRec);
 if ckzlRec.fbz<>'ckzl' then
   begin
    messagebox(handle,'此文件不是常客资料备份文件！','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
   end;

 if t_ckzl.recordcount<>0 then
   if messagebox(handle,'有部分或全部数据已存在!,覆盖吗?！','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK  then
     begin
      main.h_del('delete from ckzl');
     end
    else
     begin
      closefile(ckzl);
      exit;
     end;
 try
 g_xtxx.show;
 g_xtxx.ProgressBar1.max:=R_count1;
 g_xtxx.m1.caption:='正在恢复常客资料数据, 请稍侯...';
 g_xtxx.Update;
 with t_ckzl,ckzlRec do
  begin
   first;
   for i:=0 to R_count1-1 do
    begin
     append;
     seek(ckzl,i);
     Read(ckzl,ckzlRec);
     fieldbyname('ckbh').value:=ckbh;
     fieldbyname('dwmc').value:=dwmc;
     fieldbyname('zjm').value:=zjm;
     fieldbyname('xfcs').value:=xfcs;
     fieldbyname('xfze').value:=xfze;
     fieldbyname('xydj').value:=xydj;
     fieldbyname('dwxz').value:=dwxz;
     fieldbyname('dwdz').value:=dwdz;
     fieldbyname('yzbm').value:=yzbm;
     fieldbyname('khyh').value:=khyh;
     fieldbyname('zh').value:=zh;
     fieldbyname('dbxm').value:=dbxm;
     fieldbyname('xb').value:=xb;
     fieldbyname('dh').value:=dh;
     fieldbyname('chh').value:=chh;
     fieldbyname('sj').value:=sj;
     fieldbyname('email').value:=email;
     fieldbyname('csrq').value:=csrq;
     fieldbyname('qldj').value:=qldj;
     fieldbyname('zw').value:=zw;
     g_xtxx.ProgressBar1.StepBy(i);
     g_xtxx.Update;
    end;
   post;
  end;
  except
    g_xtxx.close;
    closefile(ckzl);
    messagebox(handle,'常客资料数据恢复失败！','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
  end;
 g_xtxx.close;
 closefile(ckzl);
 messagebox(handle,'常客资料数据恢复成功！','系统提示信息',MB_OK+MB_ICONWARNING);
end;

procedure Tx_sjbf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 x_sjbf.Release;
 x_sjbf:=NIl;
end;

procedure Tx_sjbf.BitBtn3Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpJump('tassjbf');
end;

end.