ux_sjbf.pas

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

 with t_cl,clrec do
  begin
  first;
  for i:=0 to recordcount-1 do
   begin
    fbz:='cp1';
    clh:=fieldbyname('clh').asstring;
    clm:=fieldbyname('clm').asstring;
    dzl:=fieldbyname('dzl').ascurrency;
    lbh:=fieldbyname('lbh').asstring;
    seek(cl,i);
    write(cl,clrec);
    next;
    g_xtxx.ProgressBar1.StepBy(i);
   end;
  end;
 with t_cy,cyrec do
  begin
  first;
  for i:=0 to recordcount-1 do
   begin
    fbz:='cp2';
    ch:=fieldbyname('ch').asstring;
    clh:=fieldbyname('clh').asstring;
    mc:=fieldbyname('mc').asstring;
    zjm:=fieldbyname('zjm').asstring;
    gg:=fieldbyname('gg').asstring;
    dj:=fieldbyname('dj').ascurrency;
    dzl:=fieldbyname('dzl').ascurrency;
    bz:=fieldbyname('bz').asstring;
    lbh:=fieldbyname('lbh').asstring;
    seek(cy,i);
    write(cy,cyrec);
    g_xtxx.ProgressBar1.StepBy(t_cl.recordcount+i);
    next;
   end;
  end;
  except
    closefile(cl);
    closefile(cy);
    g_xtxx.close;
    messagebox(handle,'营业菜谱数据备份失败！','系统提示信息',MB_OK+MB_ICONWARNING);
  end;
 closefile(cl);
 closefile(cy);
 g_xtxx.close;
 messagebox(handle,'营业菜谱数据备份成功！','系统提示信息',MB_OK+MB_ICONWARNING);
end;

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

 F_Name := ChangeFileExt(f_name, '.HB1');
 AssignFile(cy,F_name);
 try
   Reset(cy);
  except
   On EInOutError do
    if FileExists(F_Name) = False then
      begin
       messagebox(handle,'配置备份文件没有找到！','系统提示信息',MB_OK+MB_ICONWARNING);
       closefile(cl);
       exit;
      end
     else
      begin
       messagebox(handle,'配置备份文件不能打开！','系统提示信息',MB_OK+MB_ICONWARNING);
       closefile(cl);
       exit;
      end;
  end;
 R_Count2 := FileSize(cy);
 if r_count2=0 then
   begin
    messagebox(handle,'配置备份文件为空！','系统提示信息',MB_OK+MB_ICONWARNING);
    closefile(cl);
    closefile(cy);
    exit;
   end;
 seek(cy,0);
 Read(cy,cyRec);
 if cyRec.fbz<>'cp2' then
   begin
    messagebox(handle,'此文件不是营业菜谱配置备份文件！','系统提示信息',MB_OK+MB_ICONWARNING);
    closefile(cl);
    closefile(cy);
    exit;
   end;

 if (t_cl.recordcount<>0) or (t_cy.recordcount<>0) then
   if messagebox(handle,'有部分或全部数据已存在!,覆盖吗?！','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK  then
     begin
      main.h_del('delete from cl');
      main.h_del('delete from cy');
     end
    else
     begin
      closefile(cl);
      closefile(cy);
      exit;
     end;
 g_xtxx.show;
 g_xtxx.ProgressBar1.max:=R_count1+R_count2;
 g_xtxx.m1.caption:='正在恢复营业菜谱数据, 请稍侯...';
 g_xtxx.Update;
 try
 with t_cl,clrec do
  begin
   first;
   for i:=0 to R_count1-1 do
    begin
     append;
     seek(cl,i);
     Read(cl,clRec);
     fieldbyname('clh').value:=clh;
     fieldbyname('clm').value:=clm;
     fieldbyname('dzl').value:=dzl;
     fieldbyname('lbh').value:=lbh;
     g_xtxx.ProgressBar1.StepBy(i);
     g_xtxx.Update;
    end;
   post;
  end;
 with t_cy,cyrec do
  begin
   first;
   for i:=0 to r_count2-1 do
    begin
     append;
     seek(cy,i);
     Read(cy,cyRec);
     fieldbyname('ch').value:=ch;
     fieldbyname('clh').value:=clh;
     fieldbyname('mc').value:=mc;
     fieldbyname('zjm').value:=zjm;
     fieldbyname('gg').value:=gg;
     fieldbyname('dj').value:=dj;
     fieldbyname('dzl').value:=dzl;
     fieldbyname('bz').value:=bz;
     fieldbyname('lbh').value:=lbh;
     g_xtxx.ProgressBar1.StepBy(R_count1+i);
     g_xtxx.Update;
    end;
   post;
  end;
  except
    closefile(cl);
    closefile(cy);
    g_xtxx.close;
    messagebox(handle,'营业数据数据恢复失败！','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
  end;
 closefile(cl);
 closefile(cy);
 g_xtxx.close;
 messagebox(handle,'营业数据数据恢复成功！','系统提示信息',MB_OK+MB_ICONWARNING);
end;

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

 g_xtxx.show;
 g_xtxx.ProgressBar1.max:=t_yhyd.recordcount+t_yhydcd.recordcount;
 g_xtxx.m1.caption:='正在备份宴会预定数据, 请稍侯...';
 g_xtxx.Update;
 try
 with t_yhyd,yhydrec do
  begin
  first;
  for i:=0 to recordcount-1 do
   begin
    fbz:='yhyd1';
    yddh:=fieldbyname('yddh').asstring;
    ydrq:=fieldbyname('ydrq').asdatetime;
    yhrq:=fieldbyname('yhrq').asstring;
    yhsj:=fieldbyname('yhsj').asstring;
    tht:=fieldbyname('tht').asstring;
    thts:=fieldbyname('thts').asstring;
    ckbh:=fieldbyname('ckbh').asstring;
    dw:=fieldbyname('dw').asstring;
    dz:=fieldbyname('dz').asstring;
    lxr:=fieldbyname('lxr').asstring;
    zw:=fieldbyname('zw').asstring;
    dh:=fieldbyname('dh').asstring;
    krzs:=fieldbyname('krzs').asinteger;
    ydzs:=fieldbyname('ydzs').asinteger;
    yhbz:=fieldbyname('yhbz').ascurrency;
    dj:=fieldbyname('dj').ascurrency;
    jzfs:=fieldbyname('jzfs').asstring;
    jdr:=fieldbyname('jdr').asstring;
    cbr:=fieldbyname('cbr').asstring;
    kryq:=fieldbyname('kryq').asstring;
    sjrs:=fieldbyname('sjrs').asinteger;
    xhs:=fieldbyname('xhs').asinteger;
    czyh:=fieldbyname('czyh').asstring;
    fwfl:=fieldbyname('fwfl').ascurrency;
    dzl:=fieldbyname('dzl').ascurrency;
    yhje:=fieldbyname('yhje').ascurrency;
    sjje:=fieldbyname('sjje').ascurrency;
    bz:=fieldbyname('bz').asstring;
    seek(yhyd,i);
    write(yhyd,yhydRec);
    next;
    g_xtxx.ProgressBar1.StepBy(i);
   end;
  end;
 with t_yhydcd,yhydcdrec do
  begin
  first;
  for i:=0 to recordcount-1 do
   begin
    fbz:='yhyd2';
    bh:=fieldbyname('bh').asinteger;
    yddh:=fieldbyname('yddh').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;
    lbh:=fieldbyname('lbh').asstring;
    seek(yhydcd,i);
    write(yhydcd,yhydcdrec);
    g_xtxx.ProgressBar1.StepBy(t_yhyd.recordcount+i);
    next;
   end;
  end;
  except
    closefile(yhyd);
    closefile(yhydcd);
    g_xtxx.close;
    messagebox(handle,'宴会预定数据备份失败！','系统提示信息',MB_OK+MB_ICONWARNING);
  end;
 closefile(yhyd);
 closefile(yhydcd);
 g_xtxx.close;
 messagebox(handle,'宴会预定数据备份成功！','系统提示信息',MB_OK+MB_ICONWARNING);
end;

procedure Tx_sjbf.yhyd_hfClick(Sender: TObject);
var
 i:integer;
begin
 OpenDialog1.Title:='打开宴会预定备份文件:';
 if OpenDialog1.Execute then  F_Name := OpenDialog1.FileName  else exit;
 AssignFile(yhyd,F_name);
 try
   Reset(yhyd);
  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(yhyd);
 if r_count1=0 then
   begin
    messagebox(handle,'备份文件为空！','系统提示信息',MB_OK+MB_ICONWARNING);
    closefile(yhyd);
    exit;
   end;

 seek(yhyd,0);
 Read(yhyd,yhydRec);
 if yhydRec.fbz<>'yhyd1' then
   begin
    messagebox(handle,'此文件不是宴会预定备份文件！','系统提示信息',MB_OK+MB_ICONWARNING);
    closefile(yhyd);
    exit;
   end;

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

 if (t_yhyd.recordcount<>0) or (t_yhydcd.recordcount<>0) then
   if messagebox(handle,'有部分或全部数据已存在!,覆盖吗?！','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK  then
     begin
      main.h_del('delete from yhyd');
      main.h_del('delete from yhydcd');
     end
    else
     begin
      closefile(yhyd);
      closefile(yhydcd);
      exit;
     end;

 g_xtxx.show;
 g_xtxx.ProgressBar1.max:=R_count1+R_count2;
 g_xtxx.m1.caption:='正在恢复宴会预定数据, 请稍侯...';
 g_xtxx.Update;
 try
 with t_yhyd,yhydrec do
  begin
   first;
   for i:=0 to R_count1-1 do
    begin
     append;
     seek(yhyd,i);
     Read(yhyd,yhydRec);
     fieldbyname('yddh').value:=yddh;
     fieldbyname('ydrq').value:=ydrq;
     fieldbyname('yhrq').value:=yhrq;
     fieldbyname('yhsj').value:=yhsj;
     fieldbyname('tht').value:=tht;
     fieldbyname('thts').value:=thts;
     fieldbyname('ckbh').value:=ckbh;
     fieldbyname('dw').value:=dw;
     fieldbyname('dz').value:=dz;
     fieldbyname('lxr').value:=lxr;
     fieldbyname('zw').value:=zw;
     fieldbyname('dh').value:=dh;
     fieldbyname('krzs').value:=krzs;
     fieldbyname('ydzs').value:=ydzs;
     fieldbyname('yhbz').value:=yhbz;
     fieldbyname('dj').value:=dj;
     fieldbyname('jzfs').value:=jzfs;
     fieldbyname('jdr').value:=jdr;
     fieldbyname('cbr').value:=cbr;
     fieldbyname('kryq').value:=kryq;
     fieldbyname('sjrs').value:=sjrs;
     fieldbyname('xhs').value:=xhs;
     fieldbyname('czyh').value:=czyh;
     fieldbyname('fwfl').value:=fwfl;
     fieldbyname('dzl').value:=dzl;
     fieldbyname('yhje').value:=yhje;
     fieldbyname('sjje').value:=sjje;
     fieldbyname('bz').value:=bz;
     g_xtxx.ProgressBar1.StepBy(i);
     g_xtxx.Update;
    end;
   post;
  end;
 with t_yhydcd,yhydcdrec do
  begin
   first;
   for i:=0 to r_count2-1 do
    begin
     append;