⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 uz_yhyd.pas

📁 恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001
💻 PAS
字号:
🔍 
unit uz_yhyd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Menus, ComCtrls, ExtCtrls, ToolWin,u_main,
  ImgList, DBCtrls, Db, DBTables;

type
  Tz_yhyd = class(TForm)
    sb: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    xz: TToolButton;
    bj: TToolButton;
    sc: TToolButton;
    mb: TToolButton;
    dy: TToolButton;
    xs: TToolButton;
    yl: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    MainMenu1: TMainMenu;
    MenuItem11: TMenuItem;
    mz_yhyd_xz: TMenuItem;
    mz_yhyd_bj: TMenuItem;
    mz_yhyd_sc: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem18: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    DBGrid1: TDBGrid;
    CoolBar2: TCoolBar;
    ToolBar2: TToolBar;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    ImageList1: TImageList;
    fg1: TToolButton;
    fg2: TToolButton;
    fg3: TToolButton;
    G1: TMenuItem;
    z_yhyd_mb: TMenuItem;
    X1: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    zl: TToolButton;
    ToolButton2: TToolButton;
    z_yhyd_zl: TMenuItem;
    N1: TMenuItem;
    P1: TMenuItem;
    yhyd: TTable;
    yhydYddh: TStringField;
    yhydYdrq: TDateTimeField;
    yhydYhrq: TStringField;
    yhydYhsj: TStringField;
    yhydTht: TStringField;
    yhydThts: TStringField;
    yhydCkbh: TStringField;
    yhydDw: TStringField;
    yhydDz: TStringField;
    yhydLxr: TStringField;
    yhydZw: TStringField;
    yhydDh: TStringField;
    yhydKrzs: TIntegerField;
    yhydYdzs: TIntegerField;
    yhydYhbz: TFloatField;
    yhydDj: TFloatField;
    yhydJzfs: TStringField;
    yhydjzfs1: TStringField;
    yhydJdr: TStringField;
    yhydCbr: TStringField;
    yhydKryq: TStringField;
    yhydSjrs: TIntegerField;
    yhydXhs: TIntegerField;
    yhydCzyh: TStringField;
    yhydFwfl: TFloatField;
    yhydDzl: TFloatField;
    yhydYhje: TFloatField;
    yhydSjje: TFloatField;
    yhydBz: TStringField;
    yhydY_n: TBooleanField;
    d_yhyd: TDataSource;
    yhydcd: TTable;
    yhydcdBh: TIntegerField;
    yhydcdYDDh: TStringField;
    yhydcdCh: TStringField;
    yhydcdCm: TStringField;
    yhydcdGg: TStringField;
    yhydcdDj: TFloatField;
    yhydcdSl: TFloatField;
    yhydcdDzl: TFloatField;
    yhydcdHj: TFloatField;
    yhydcdClh: TStringField;
    yhydcdLbh: TStringField;
    d_yhydcd: TDataSource;
    jzfs: TTable;
    jzfsBh: TStringField;
    jzfsJzfs: TStringField;
    d_jzfs: TDataSource;
    GroupBox3: TGroupBox;
    Label3: TLabel;
    c_mb: TComboBox;
    Image1: TImage;
    Image2: TImage;
    Label2: TLabel;
    Label4: TLabel;
    PopupMenu1: TPopupMenu;
    dqydk: TMenuItem;
    dqydkcd: TMenuItem;
    N4: TMenuItem;
    dqsyydd: TMenuItem;
    PopupMenu2: TPopupMenu;
    dqydk1: TMenuItem;
    dqydcd1: TMenuItem;
    MenuItem3: TMenuItem;
    dqsyydd1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure xzClick(Sender: TObject);
    procedure tcClick(Sender: TObject);
    procedure bjClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure xsClick(Sender: TObject);
    procedure mbClick(Sender: TObject);
    procedure scClick(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure bzClick(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure zlClick(Sender: TObject);
    procedure c_mbChange(Sender: TObject);
    procedure MenuItem76Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure yhydcdSlChange(Sender: TField);
    procedure yhydcdAfterPost(DataSet: TDataSet);
    procedure dqsyyddClick(Sender: TObject);
    procedure dqydkClick(Sender: TObject);
    procedure dqydkcdClick(Sender: TObject);
    procedure dqydk1Click(Sender: TObject);
    procedure dqydcd1Click(Sender: TObject);
    procedure dqsyydd1Click(Sender: TObject);
    procedure MenuItem74Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_yhyd: Tz_yhyd;

implementation

uses uz_yhyd_xz, uz_yhyd_xs,ug_mb, uabout, uz_yhyd_ck, uz_yhyd_xzt, ug_dc, ug_ckcx, ug_wait,
  uzp_yh, uzp_ck, uy_yyt_rt;

{$R *.DFM}


procedure Tz_yhyd.xzClick(Sender: TObject);
begin
  y_n:=1;
  z_yhyd_xz.showmodal;
end;

procedure Tz_yhyd.tcClick(Sender: TObject);
begin
 close;
end;

procedure Tz_yhyd.bjClick(Sender: TObject);
begin
 if yhyd.fieldbyname('yddh').asstring='' then exit;
 if yhyd.fieldbyname('y_n').asboolean=false then
   begin
    y_n:=0;
    z_yhyd_xz.showmodal;
   end
  else
    z_yhyd_ck.showmodal;
end;


procedure Tz_yhyd.ComboBox1Change(Sender: TObject);
begin
with yhyd do
 begin
  case  ComboBox1.itemindex of
   0:IndexName:='yhyd_yhdh';
   1:IndexName:='yhyd_ydrq';
   2:IndexName:='yhyd_yhrq';
   3:IndexName:='yhyd_krbh';
   4:IndexName:='yhyd_ckbh';
   5:IndexName:='yhyd_dw';
   6:IndexName:='yhyd_lxr';
   7:IndexName:='yhyd_zw';
   8:IndexName:='yhyd_krzs';
   9:IndexName:='yhyd_ydzs';
   10:IndexName:='yhyd_yhbz';
   11:IndexName:='yhyd_dj';
   12:IndexName:='yhyd_jzfs';
   13:IndexName:='yhyd_jdr';
   14:IndexName:='yhyd_cbr';
   15:IndexName:='yhyd_czyh';
   16:IndexName:='yhyd_yhje';
   17:IndexName:='yhyd_sjje';
   end;
  end;
end;


procedure Tz_yhyd.xsClick(Sender: TObject);
begin
  z_yhyd_xs.showmodal;
end;

procedure Tz_yhyd.mbClick(Sender: TObject);
var
 st:string;
begin
 if not mb.Down then
  begin
   mb.Down:=true;
   z_yhyd_mb.Checked:=true;
  end;
 y_n:=0;
 g_mb.showmodal;
 if y_n=0 then
  begin
   zl.Down:=true;
   z_yhyd_zl.Checked:=true;
   exit;
  end; 
 st:=g_mb.mb.fieldbyname('bh').asstring+'.'+g_mb.mb.fieldbyname('mbmc').asstring;
 g_mb.mb.first;
 c_mb.Items.Clear;
 while not g_mb.mb.Eof do
  begin
    c_mb.Items.Add(g_mb.mb.fieldbyname('bh').asstring+'.'+g_mb.mb.fieldbyname('mbmc').asstring);
    g_mb.mb.next;
  end;
 c_mb.ItemIndex:=c_mb.Items.IndexOf(st);
 c_mbChange(sender);
end;

procedure Tz_yhyd.scClick(Sender: TObject);
begin
 if messagebox(handle,'您真的要删除此预定单吗?','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
   begin
    s_sql:='delete from yhydcd where yddh="'+yhyd.fieldbyname('yddh').asstring+'"';
    main.h_del(s_sql);
    yhyd.delete;
   end;
end;

procedure Tz_yhyd.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if yhyd.fieldbyname('y_n').value='1' then
   begin
    DBGrid1.Canvas.Brush.Color:=clMenu;
    DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
   end;
 if (yhyd.fieldbyname('yddh').asstring='') or (yhyd.RecordCount=0)  then
   begin
     bj.Enabled:=false;
     sc.Enabled:=false;
     mz_yhyd_bj.Enabled:=false;
     mz_yhyd_sc.Enabled:=false;
   end
  else
   begin
     bj.Enabled:=true;
     sc.Enabled:=true;
     mz_yhyd_bj.Enabled:=true;
     mz_yhyd_sc.Enabled:=true;
   end;
end;

procedure Tz_yhyd.bzClick(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpJump('tasyhyd');
end;

procedure Tz_yhyd.MenuItem18Click(Sender: TObject);
begin
  PrinterSetup.Execute;
end;

procedure Tz_yhyd.FormShow(Sender: TObject);
begin
 if not jzfs.active then jzfs.active:=true;
 if not yhyd.active then yhyd.active:=true;
 if not yhydcd.active then yhydcd.active:=true;
 if y_yyt_rt=NIL then y_yyt_rt:=Ty_yyt_rt.Create(self);
 if g_mb=NIL then g_mb:=Tg_mb.Create(self);
 if g_dc=NIL then g_dc:=Tg_dc.Create(self);
 if z_yhyd_ck=NIL then z_yhyd_ck:=Tz_yhyd_ck.Create(self);
 if z_yhyd_xs=NIL then z_yhyd_xs:=Tz_yhyd_xs.Create(self);
 if z_yhyd_xz=NIL then z_yhyd_xz:=Tz_yhyd_xz.Create(self);
 if g_ckcx=NIL then g_ckcx:=Tg_ckcx.Create(self);
 if z_yhyd_xzt=NIL then z_yhyd_xzt:=Tz_yhyd_xzt.Create(self);
 if zp_yh=NIL then zp_yh:=Tzp_yh.Create(self);
 with main.query1 do
  begin
   active:=false;
   sql.Clear;
   sql.Add('select count(yddh) as ds,sum(ydzs) as ydzs,sum(yhje) as yhje,sum(sjje) as sjje,sum(krzs) as krzs from yhyd');
   active:=true;
   sb.Panels[2].text:=fieldbyname('ds').asstring;
   sb.Panels[4].text:=fieldbyname('ydzs').asstring;
   sb.panels[8].text:=Format('%*.*f', [8, 2,fieldbyname('yhje').ascurrency]);
   sb.panels[8].text:=Format('%*.*f', [8, 2,fieldbyname('sjje').ascurrency]);
   sb.Panels[10].text:=fieldbyname('krzs').asstring;
  end;
 with g_mb.mb do
  begin
   s_mb:='02';
   filter:='bm='+s_mb;
   first;
   c_mb.Items.Clear;
   while not Eof do
    begin
      c_mb.Items.Add(fieldbyname('bh').asstring+'.'+fieldbyname('mbmc').asstring);
      next;
    end;
  end;
 g_wait.close;
end;

procedure Tz_yhyd.zlClick(Sender: TObject);
begin
 yhyd.filter:='';
 if not zl.Down then
  begin
   zl.Down:=true;
   z_yhyd_zl.Checked:=true;
  end;
 FormShow(Sender);
end;

procedure Tz_yhyd.c_mbChange(Sender: TObject);
var
 i,ii,i_ydzs,i_krzs:integer;
 s_filter:string;
 c_yhje,c_sjje:currency;
begin
 i:=1;ii:=1;i_ydzs:=0;i_krzs:=0;c_yhje:=0;c_sjje:=0;
 repeat
   try
     strtoint(copy(c_mb.text,i,i+1));
     i:=i+1;
    except
      ii:=0;
   end;
 until ii = 0;
 if not g_mb.mb.FindKey([copy(c_mb.text,1,i)]) then
   begin
     messagebox(handle,'模板查询操作有误!请删除此模板，然后重新生成！','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
 s_filter:=yhyd.Filter;  
 try
   yhyd.Filter:=g_mb.mb.fieldbyname('mbnr2').asstring;
  except
   messagebox(handle,'模板查询操作有误!请删除此模板，然后重新生成！','系统提示信息',MB_OK+MB_ICONWARNING);
   yhyd.Filter:=s_filter;
 end;
 with yhyd do
  begin
   DisableControls;
   first;
   while not eof do
     begin
      i_krzs:=i_krzs+fieldbyname('krzs').asinteger;
      i_ydzs:=i_ydzs+fieldbyname('ydzs').asinteger;
      c_yhje:=c_yhje+fieldbyname('yhje').ascurrency;
      c_sjje:=c_sjje+fieldbyname('sjje').ascurrency;
      next;
     end;
    sb.panels[2].text:=inttostr(recordcount);
    sb.panels[4].text:=inttostr(i_ydzs);
    sb.panels[6].text:=Format('%*.*f', [8, 2,c_yhje]);
    sb.panels[8].text:=Format('%*.*f', [8, 2,c_sjje]);
    sb.panels[10].text:=inttostr(i_krzs);
   EnableControls
  end;
 mb.Down:=true;
 z_yhyd_mb.Checked:=true; 
end;

procedure Tz_yhyd.MenuItem76Click(Sender: TObject);
begin
 if about=NIL then about:=Tabout.Create(self);
 about.showmodal;
end;

procedure Tz_yhyd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release; z_yhyd:=NIL;
 y_yyt_rt.Release; y_yyt_rt:=NIL;
 g_dc.Release; g_dc:=NIL;
 z_yhyd_ck.Release; z_yhyd_ck:=NIL;
 z_yhyd_xs.Release; z_yhyd_xs:=NIL;
 z_yhyd_xz.Release; z_yhyd_xz:=NIL;
 g_ckcx.Release; g_ckcx:=NIL;
 z_yhyd_xzt.Release;z_yhyd_xzt:=NIL;
 g_mb.release; g_mb:=NIL;
 zp_yh.release;     zp_yh:=NIL;
end;

procedure Tz_yhyd.yhydcdSlChange(Sender: TField);
begin
 if main.fdxx.fieldbyname('ydcldz').asboolean then
   yhydcd.fieldbyname('hj').value:=yhydcd.fieldbyname('dj').value*yhydcd.fieldbyname('sl').value-yhydcd.fieldbyname('dj').value*yhydcd.fieldbyname('sl').value*yhydcd.fieldbyname('dzl').value
  else
   yhydcd.fieldbyname('hj').value:=yhydcd.fieldbyname('dj').value*yhydcd.fieldbyname('sl').value;

end;

procedure Tz_yhyd.yhydcdAfterPost(DataSet: TDataSet);
begin
 if main.fdxx.fieldbyname('ydcldz').asboolean then
   begin
    yhydcd.edit;
    yhydcd.fieldbyname('hj').value:=yhydcd.fieldbyname('dj').value*yhydcd.fieldbyname('sl').value-yhydcd.fieldbyname('dj').value*yhydcd.fieldbyname('sl').value*yhydcd.fieldbyname('dzl').value;
   end 
  else
   begin
    yhydcd.edit;
    yhydcd.fieldbyname('hj').value:=yhydcd.fieldbyname('dj').value*yhydcd.fieldbyname('sl').value;
   end; 

end;

procedure Tz_yhyd.dqsyyddClick(Sender: TObject);
begin
 zp_yh.QuickRep1.preview;
end;

procedure Tz_yhyd.dqydkClick(Sender: TObject);
begin
 zp_yh.QuickRep2.preview;
end;

procedure Tz_yhyd.dqydkcdClick(Sender: TObject);
begin
 zp_yh.QuickRep3.preview;
end;

procedure Tz_yhyd.dqydk1Click(Sender: TObject);
begin
 zp_yh.QuickRep2.print;
end;

procedure Tz_yhyd.dqydcd1Click(Sender: TObject);
begin
 zp_yh.QuickRep3.print;
end;

procedure Tz_yhyd.dqsyydd1Click(Sender: TObject);
begin
 zp_yh.QuickRep1.print;
end;

procedure Tz_yhyd.MenuItem74Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_Finder,0);
end;

procedure Tz_yhyd.N3Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_PartialKey,0);
end;

end.

⌨️ 快捷键说明

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