unit uy_qtdz;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ImgList, ComCtrls, StdCtrls, ExtCtrls, ToolWin, Grids, DBGrids,
  Db, DBTables, dxExEdtr, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid,
  dxCntner, se_controls, KsSkinForms;

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;
    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;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1cdbh: TdxDBGridMaskColumn;
    dxDBGrid1ycrq: TdxDBGridDateColumn;
    dxDBGrid1ycsj: TdxDBGridDateColumn;
    dxDBGrid1th: TdxDBGridMaskColumn;
    dxDBGrid1tht: TdxDBGridMaskColumn;
    dxDBGrid1yylx: TdxDBGridMaskColumn;
    dxDBGrid1yylx1: TdxDBGridLookupColumn;
    dxDBGrid1srlb: TdxDBGridMaskColumn;
    dxDBGrid1srlb1: TdxDBGridLookupColumn;
    dxDBGrid1fwyh: TdxDBGridMaskColumn;
    dxDBGrid1skyh: TdxDBGridMaskColumn;
    dxDBGrid1zj: TdxDBGridMaskColumn;
    dxDBGrid1xj: TdxDBGridMaskColumn;
    dxDBGrid1fwf: TdxDBGridMaskColumn;
    dxDBGrid1zkf: TdxDBGridMaskColumn;
    dxDBGrid1zsje: TdxDBGridMaskColumn;
    dxDBGrid1jzfs: TdxDBGridMaskColumn;
    dxDBGrid1qdjz: TdxDBGridMaskColumn;
    dxDBGrid1krs: TdxDBGridMaskColumn;
    SeSkinForm1: TSeSkinForm;
    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,'系統(tǒng)不能按所設(shè)的時(shí)間段設(shè)置進(jìn)行查詢(xún)！','系統(tǒng)提示信息',MB_OK+MB_ICONWARNING);
    exit;
  end;
 g_xtxx:=tg_xtxx.Create(self);
 g_xtxx.show;
 g_xtxx.m1.Caption:='系統(tǒng)正在查詢(xún)時(shí)間段內(nèi)的數(shù)據(jù)!請(qǐng)稍侯......';
 g_xtxx.Update;
 s_mess:='系統(tǒng)查詢(xún)時(shí)間段內(nèi)的數(shù)據(jù)失敗';
 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')
//          sql.add('SELECT cdbh,ycrq,ycsj,th,tht,zj,fwf,zkf,xj,zsje,jzfs,qdjz,ssje,yylx,srlb,fwyh,skyh,krs FROM cd1')
        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').value:=tp1.date;
      ParamByName('d_tp2').value:=tp2.date;
      active:=true;
      EnableControls;
   end;
 g_xtxx.m1.Caption:='系統(tǒng)正在計(jì)算匯總查詢(xún)到的數(shù)據(jù)!請(qǐng)稍侯......';
 g_xtxx.Update;
 s_mess:='系統(tǒng)計(jì)算匯總數(shù)據(jù)失敗';
 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_all,sum(zj) as zj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all,sum(krs) as krs_all FROM cd1 where ycrq>=:d_tp1 and ycrq<=:d_tp2')
        else
         begin
           sql.add('SELECT count(cdbh) as ds_all,sum(zj) as zj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all,sum(krs) as krs_all  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').value:=tp1.date;
      ParamByName('d_tp2').value:=tp2.date;
      active:=true;
      EnableControls;
      ds.caption:=floattostr(fieldbyname('ds_all').value);
      zjze.caption:=Format('%*.*f', [8, 2,fieldbyname('zj_all').ascurrency]);
      sb.panels[2].text:=Format('%*.*f', [8, 2,fieldbyname('xj_all').ascurrency]);
      sb.panels[4].text:=Format('%*.*f', [8, 2,fieldbyname('fwf_all').ascurrency]);
      sb.panels[6].text:=Format('%*.*f', [8, 2,fieldbyname('zkf_all').ascurrency]);
      sb.panels[8].text:=Format('%*.*f', [8, 2,fieldbyname('zsje_all').ascurrency]);
      sb.panels[10].text:=inttostr(fieldbyname('krs_all').asinteger);
     end;
  except
   g_xtxx.close;
   messagebox(handle,pchar(s_mess),'系統(tǒng)提示信息',MB_OK+MB_ICONWARNING);
   exit;
 end;
 g_xtxx.ProgressBar1.StepBy(20);
 g_xtxx.ProgressBar1.StepBy(20);
 g_xtxx.ProgressBar1.StepBy(20);
 g_xtxx.close;
 //showmessage(q_dz.ParamByName('s_jzfs').asstring);
end;

procedure Ty_qtdz.cdClick(Sender: TObject);
begin
 if trim(q_dz.FieldByName('cdbh').asstring)='' then
   begin
     messagebox(handle,'請(qǐng)確認(rèn)將要顯示的結(jié)帳單!','系統(tǒng)提示信息',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);
 tp1.Date:=date;
 tp2.Date:=date;
 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.