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

📄 uz_yhyd.pas

📁 阳光餐饮收银管理系统源码
💻 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, se_controls, KsSkinForms, dxExEdtr,
  dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner;

type
  Tz_yhyd = class(TForm)
    sb: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    xz: TToolButton;
    bj: TToolButton;
    sc: TToolButton;
    dy: TToolButton;
    yl: 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;
    ImageList1: TImageList;
    fg2: TToolButton;
    fg3: TToolButton;
    G1: TMenuItem;
    z_yhyd_mb: TMenuItem;
    X1: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    z_yhyd_zl: TMenuItem;
    N1: TMenuItem;
    P1: TMenuItem;
    d_yhyd: TDataSource;
    d_yhydcd: TDataSource;
    jzfs: TTable;
    jzfsBh: TStringField;
    jzfsJzfs: TStringField;
    d_jzfs: TDataSource;
    PopupMenu1: TPopupMenu;
    dqydk: TMenuItem;
    dqydkcd: TMenuItem;
    N4: TMenuItem;
    dqsyydd: TMenuItem;
    PopupMenu2: TPopupMenu;
    dqydk1: TMenuItem;
    dqydcd1: TMenuItem;
    MenuItem3: TMenuItem;
    dqsyydd1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    yhyd: TQuery;
    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;
    yhydJdr: TStringField;
    yhydCbr: TStringField;
    yhydKryq: TStringField;
    yhydBz: TStringField;
    yhydSjrs: TIntegerField;
    yhydXhs: TIntegerField;
    yhydCzyh: TStringField;
    yhydFwfl: TFloatField;
    yhydDzl: TFloatField;
    yhydYhje: TFloatField;
    yhydSjje: TFloatField;
    yhydY_n: TBooleanField;
    yhydjzfs1: TStringField;
    yhydcd: TQuery;
    yhydcdBh: TIntegerField;
    yhydcdYDDh: TStringField;
    yhydcdClh: TStringField;
    yhydcdCh: TStringField;
    yhydcdCm: TStringField;
    yhydcdSl: TFloatField;
    yhydcdDj: TFloatField;
    yhydcdDzl: TFloatField;
    yhydcdHj: TFloatField;
    yhydcdGg: TStringField;
    yhydcdLbh: TStringField;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Yddh: TdxDBGridMaskColumn;
    dxDBGrid1Ydrq: TdxDBGridDateColumn;
    dxDBGrid1Yhrq: TdxDBGridMaskColumn;
    dxDBGrid1Yhsj: TdxDBGridMaskColumn;
    dxDBGrid1Tht: TdxDBGridMaskColumn;
    dxDBGrid1Thts: TdxDBGridMaskColumn;
    dxDBGrid1Ckbh: TdxDBGridMaskColumn;
    dxDBGrid1Dw: TdxDBGridMaskColumn;
    dxDBGrid1Dz: TdxDBGridMaskColumn;
    dxDBGrid1Lxr: TdxDBGridMaskColumn;
    dxDBGrid1Zw: TdxDBGridMaskColumn;
    dxDBGrid1Dh: TdxDBGridMaskColumn;
    dxDBGrid1Krzs: TdxDBGridMaskColumn;
    dxDBGrid1Ydzs: TdxDBGridMaskColumn;
    dxDBGrid1Yhbz: TdxDBGridMaskColumn;
    dxDBGrid1Dj: TdxDBGridMaskColumn;
    dxDBGrid1Jzfs: TdxDBGridMaskColumn;
    dxDBGrid1Jdr: TdxDBGridMaskColumn;
    dxDBGrid1Cbr: TdxDBGridMaskColumn;
    dxDBGrid1Kryq: TdxDBGridMaskColumn;
    dxDBGrid1Bz: TdxDBGridMaskColumn;
    dxDBGrid1Sjrs: TdxDBGridMaskColumn;
    dxDBGrid1Xhs: TdxDBGridMaskColumn;
    dxDBGrid1Czyh: TdxDBGridMaskColumn;
    dxDBGrid1Fwfl: TdxDBGridMaskColumn;
    dxDBGrid1Dzl: TdxDBGridMaskColumn;
    dxDBGrid1Yhje: TdxDBGridMaskColumn;
    dxDBGrid1Sjje: TdxDBGridMaskColumn;
    dxDBGrid1Y_n: TdxDBGridCheckColumn;
    dxDBGrid1jzfs1: TdxDBGridLookupColumn;
    SeSkinForm1: TSeSkinForm;
    procedure xzClick(Sender: TObject);
    procedure tcClick(Sender: TObject);
    procedure xsClick(Sender: TObject);
    procedure scClick(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure FormShow(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);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure dxDBGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
      ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
      var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
      var ADone: Boolean);
  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:=tz_yhyd_xz.create(self);
  z_yhyd_xz.showmodal;
end;

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

procedure Tz_yhyd.xsClick(Sender: TObject);
begin
  z_yhyd_xs.showmodal;
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.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.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; }
 action:=cafree;
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; 
  dataset.Close;
  dataset.Open;
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;

procedure Tz_yhyd.dxDBGrid1DblClick(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:=tz_yhyd_xz.Create(self);
    z_yhyd_xz.showmodal;
   end
  else
   begin
    z_yhyd_ck:=tz_yhyd_ck.Create(self);
    z_yhyd_ck.showmodal;
   end; 
end;

procedure Tz_yhyd.dxDBGrid1CustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
  if ANode.Index mod 2 = 0 then
    AColor := clInfoBk
  else
    AColor := clAqua;
  if aselected=true then
    AColor :=$D8A19A;{ 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;

end.

⌨️ 快捷键说明

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