uy_qtdz.pas

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

unit uy_qtdz;

interface

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

type
  Ty_qtdz = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    dz: TToolButton;
    yl: TToolButton;
    dy: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Q1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    ToolButton6: TToolButton;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    tp1: TDateTimePicker;
    tp2: TDateTimePicker;
    Label4: TLabel;
    ds: TLabel;
    jzfs: TComboBox;
    label8: TLabel;
    zjze: TLabel;
    sb: TStatusBar;
    cd: TToolButton;
    ToolButton5: TToolButton;
    N9: TMenuItem;
    ToolButton9: TToolButton;
    N10: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    S1: TMenuItem;
    q_dz: TQuery;
    q_dzcdbh: TStringField;
    q_dzycrq: TDateTimeField;
    q_dzycsj: TDateTimeField;
    q_dzth: TStringField;
    q_dztht: TStringField;
    q_dzyylx: TStringField;
    q_dzyylx1: TStringField;
    q_dzsrlb: TStringField;
    q_dzsrlb1: TStringField;
    q_dzfwyh: TStringField;
    q_dzskyh: TStringField;
    q_dzzj: TFloatField;
    q_dzxj: TFloatField;
    q_dzfwf: TFloatField;
    q_dzzkf: TFloatField;
    q_dzzsje: TFloatField;
    q_dzjzfs: TStringField;
    q_dzqdjz: TStringField;
    q_dzkrs: TIntegerField;
    dq_dz: TDataSource;
    srlb: TTable;
    srlbBH: TStringField;
    srlbSrlb: TStringField;
    srlbD_yn: TBooleanField;
    d_srlb: TDataSource;
    yylx: TTable;
    yylxBH: TStringField;
    yylxYylx: TStringField;
    yylxSJ1: TDateTimeField;
    yylxSJ2: TDateTimeField;
    yylxD_yn: TBooleanField;
    d_yylx: TDataSource;
    N11: TMenuItem;
    N12: TMenuItem;
    procedure tcClick(Sender: TObject);
    procedure dzClick(Sender: TObject);
    procedure cdClick(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure ylClick(Sender: TObject);
    procedure dyClick(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  y_qtdz: Ty_qtdz;

implementation

uses uxtxx, u_main, ug_dcd, uabout, ug_wait, uyp_1;

{$R *.DFM}

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

procedure Ty_qtdz.dzClick(Sender: TObject);
begin
 if tp1.date>tp2.date then
  begin
    messagebox(handle,'系统不能按所设的时间段设置进行查询！','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
  end;
 g_xtxx.show;
 g_xtxx.m1.Caption:='系统正在查询时间段内的数据!请稍侯......';
 g_xtxx.Update;
 s_mess:='系统查询时间段内的数据失败';
 g_xtxx.ProgressBar1.StepBy(20);
 try
  with q_dz do
    begin
      DisableControls;
      active:=false;
      sql.Clear;
      if copy(jzfs.text,1,1)='0' then
          sql.add('SELECT cdbh,ycrq,ycsj,th,tht,zj,fwf,zkf,xj,zsje,jzfs,qdjz,ssje,yylx,srlb,fwyh,skyh,krs FROM cd1 where  ycrq>=:d_tp1 and ycrq<=:d_tp2')
        else
         begin
          sql.add('SELECT cdbh,ycrq,ycsj,th,tht,zj,fwf,zkf,xj,zsje,jzfs,qdjz,ssje,yylx,srlb,fwyh,skyh,krs FROM cd1 where jzfs=:s_jzfs and ycrq>=:d_tp1 and ycrq<=:d_tp2');
          ParamByName('s_jzfs').asstring:=copy(jzfs.text,1,1);
         end;
      ParamByName('d_tp1').asdate:=tp1.date;
      ParamByName('d_tp2').asdate:=tp2.date;
      active:=true;
      EnableControls;
   end;
 g_xtxx.m1.Caption:='系统正在计算汇总查询到的数据!请稍侯......';
 g_xtxx.Update;
 s_mess:='系统计算汇总数据失败';
 g_xtxx.ProgressBar1.StepBy(20);
   with main.query1 do
     begin
      DisableControls;
      active:=false;
      sql.Clear;
      if copy(jzfs.text,1,1)='0' then
           sql.add('SELECT count(cdbh) as ds,sum(zj) as zj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje,sum(krs) as krs FROM cd1 where ycrq>=:d_tp1 and ycrq<=:d_tp2')
        else
         begin
           sql.add('SELECT count(cdbh) as ds,sum(zj) as zj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje,sum(krs) as krs  FROM cd1 where jzfs=:s_jzfs and ycrq>=:d_tp1 and ycrq<=:d_tp2');
           ParamByName('s_jzfs').asstring:=copy(jzfs.text,1,1);
         end;
      ParamByName('d_tp1').asdate:=tp1.date;
      ParamByName('d_tp2').asdate:=tp2.date;
      active:=true;
      EnableControls;
      ds.caption:=floattostr(fieldbyname('ds').value);
      zjze.caption:=Format('%*.*f', [8, 2,fieldbyname('zj').ascurrency]);
      sb.panels[2].text:=Format('%*.*f', [8, 2,fieldbyname('xj').ascurrency]);
      sb.panels[4].text:=Format('%*.*f', [8, 2,fieldbyname('fwf').ascurrency]);
      sb.panels[6].text:=Format('%*.*f', [8, 2,fieldbyname('zkf').ascurrency]);
      sb.panels[8].text:=Format('%*.*f', [8, 2,fieldbyname('zsje').ascurrency]);
      sb.panels[10].text:=inttostr(fieldbyname('krs').asinteger);
     end;
  except
   g_xtxx.close;
   messagebox(handle,pchar(s_mess),'系统提示信息',MB_OK+MB_ICONWARNING);
   exit;
 end;
 g_xtxx.ProgressBar1.StepBy(20);
 g_xtxx.ProgressBar1.StepBy(20);
 g_xtxx.ProgressBar1.StepBy(20);
 g_xtxx.close;
end;

procedure Ty_qtdz.cdClick(Sender: TObject);
begin
 if trim(q_dz.FieldByName('cdbh').asstring)='' then
   begin
     messagebox(handle,'请确认将要显示的结帐单!','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
 if g_dcd=NIL then g_dcd:=Tg_dcd.Create(self);
 with q_dz do
  begin
   c_zj:=FieldByName('zj').ascurrency;
   c_xj:=FieldByName('xj').ascurrency;
   c_fwf:=FieldByName('fwf').ascurrency;
   c_zkf:=FieldByName('zkf').ascurrency;
   c_zsje:=FieldByName('zsje').ascurrency;
   s_th:=FieldByName('th').asstring;
   s_tht:=FieldByName('tht').asstring;
   s_krs:=FieldByName('krs').asstring;
   s_ycrq:=formatdatetime('yyyy.mm.dd',FieldByName('ycrq').value);
   s_ycsj:=formatdatetime('hh:mm',FieldByName('ycsj').value);
   s_fwyh:=FieldByName('fwyh').asstring;
   g_dcd.cdmx1.Filter:='cdbh='+FieldByName('cdbh').asstring;
  end;
 g_dcd.db.datasource:=g_dcd.d_cdmx1;
 g_dcd.showmodal;
end;

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

procedure Ty_qtdz.ylClick(Sender: TObject);
begin
 yp_1.QuickRep2.preview;
end;

procedure Ty_qtdz.dyClick(Sender: TObject);
begin
 yp_1.QuickRep2.print;
end;

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

procedure Ty_qtdz.S1Click(Sender: TObject);
begin
PrinterSetup.Execute;
end;

procedure Ty_qtdz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 y_qtdz:=NIL;
 yp_1.release;
 yp_1:=NIL;
end;

procedure Ty_qtdz.FormShow(Sender: TObject);
begin
 if not srlb.Active then srlb.Active:=true;
 if not yylx.Active then yylx.Active:=true;
 if yp_1=NIL then yp_1:=Typ_1.Create(self);
 g_wait.close;
end;

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

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

end.