dayreport.~pa

一个典当行的业务管理系统程序

unit DayReport;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Spin;

type
  TfrmDayReport = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    txtPawnNum: TEdit;
    txtPawnMoney: TEdit;
    Label2: TLabel;
    txtRepawnNum: TEdit;
    txtRepawnMoney: TEdit;
    Label3: TLabel;
    txtOutRePNum: TEdit;
    txtOutRePMoney: TEdit;
    txtOutRansomNum: TEdit;
    txtOutRansomMoney: TEdit;
    Panel2: TPanel;
    Label7: TLabel;
    txtLastday: TEdit;
    txtGotCash: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    txtPayCash: TEdit;
    txtToday: TEdit;
    Label11: TLabel;
    cmdExit: TButton;
    Label12: TLabel;
    Label4: TLabel;
    txtRansomNum: TEdit;
    txtRansomMoney: TEdit;
    GroupBox1: TGroupBox;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    cmdCacu: TButton;
    Label13: TLabel;
    txtPawnGot: TEdit;
    txtBeginYear: TSpinEdit;
    txtBeginMonth: TSpinEdit;
    txtBeginDay: TSpinEdit;
    Panel3: TPanel;
    Label14: TLabel;
    txtPreMoney: TEdit;
    txtNowMoney: TEdit;
    Label15: TLabel;
    Label16: TLabel;
    procedure FormShow(Sender: TObject);
    procedure cmdExitClick(Sender: TObject);
    procedure txtBeginYearKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtBeginYearExit(Sender: TObject);
    procedure txtBeginMonthKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtBeginDayKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cmdCacuClick(Sender: TObject);
  private
    { Private declarations }
    procedure ShowReport(NowDate,NowToTen:TDateTime);
  public
    { Public declarations }
  end;

var
  frmDayReport: TfrmDayReport;

implementation

uses dmPawn;

{$R *.DFM}

procedure TfrmDayReport.ShowReport(NowDate,NowToTen:TDateTime);
var
   Sql:string;
   PawnMoney:Double;
   GotMoney:Double;
begin
      with dmPawnFrm do
      begin
           //统计当日典当的笔数、金额
           dqHeadUn.Close;
           dqHeadUn.SQL.Clear;
           Sql:='SELECT h1.TotalPawnMoney FROM PHHistory_Tbl AS h ';
           Sql:=Sql+'INNER JOIN PawnHead_Tbl AS h1 ';
           Sql:=Sql+'ON h.PawnTicketCode=h1.PawnTicketCode ';
           Sql:=Sql+ 'WHERE True and h.CreateDate=:NowDate ';
           //Sql:=Sql+'and h.CreateDate<>h.ModifyDateTime ';
           Sql:=Sql+ 'and h.PrePawnTicketCode='''' ';
           Sql:=Sql+ 'and h.Status=''未赎'' ';
           dqHeadUn.SQL.Add(Sql);
           dqHeadUn.ParamByName('NowDate').asDateTime:=NowDate;
           //dqHeadUn.ParamByName('Code').asstring:='null';
           dqHeadUn.Open;
           PawnMoney:=0;
           if dqHeadUn.IsEmpty=False then
           begin
                txtPawnNum.Text:=inttostr(dqHeadUn.RecordCount);
                dqHeadUn.First;
                while not dqHeadUn.Eof do
                begin
                     PawnMoney:=PawnMoney+dqHeadUn.fieldbyName('TotalPawnMoney').Value;
                     dqHeadUn.Next;
                end;
           end
           else
           begin
                txtPawnNum.Text:='0';
           end;
           txtPawnMoney.Text:=format('%10.1f',[PawnMoney]);
           //统计当日续当的笔数、金额
           dqHeadUn.Close;
           dqHeadUn.SQL.Clear;
           Sql:='SELECT h.PawnBeginDate,h1.PawnEndDate,h1.TotalPawnMoney FROM PHHistory_Tbl AS h ';
           Sql:=Sql+'INNER JOIN PawnHead_Tbl AS h1 ';
           Sql:=Sql+'ON h.PawnTicketCode=h1.PawnTicketCode ';
           Sql:=Sql+ 'WHERE True and h.CreateDate=:NowDate ';
           //Sql:=Sql+'and h.CreateDate<>h.ModifyDateTime ';
           Sql:=Sql+ 'and h.PrePawnTicketCode<>'''' ';
           Sql:=Sql+ 'and h.Status=''未赎'' ';
           //Sql:=Sql+' and h.PawnEndDate>=:NowDate ';
           Sql:=Sql+'and h.PawnBeginDate<=h1.PawnEndDate ';
           dqHeadUn.SQL.Add(Sql);
           dqHeadUn.ParamByName('NowDate').asDateTime:=NowDate;
           //dqHeadUn.ParamByName('Code').asstring:='';
           dqHeadUn.Open;
           PawnMoney:=0;
           if dqHeadUn.IsEmpty=False then
           begin
                txtRepawnNum.Text:=inttostr(dqHeadUn.RecordCount);
                dqHeadUn.First;
                while not dqHeadUn.Eof do
                begin
                     PawnMoney:=PawnMoney+dqHeadUn.fieldbyName('TotalPawnMoney').Value;
                     dqHeadUn.Next;
                end;
           end
           else
               txtRepawnNum.Text:='0';
           txtRepawnMoney.Text:=format('%12.1f',[PawnMoney]);
           //统计逾期续当的笔数、金额
           dqHeadUn.Close;
           dqHeadUn.SQL.Clear;
           Sql:='SELECT h.PawnBeginDate,h1.PawnEndDate,h1.TotalPawnMoney FROM PHHistory_Tbl AS h ';
           Sql:=Sql+'INNER JOIN PawnHead_Tbl AS h1 ';
           Sql:=Sql+'ON h.PawnTicketCode=h1.PawnTicketCode ';
           Sql:=Sql+'WHERE True and h.CreateDate=:NowDate ';
           Sql:=Sql+'and h.PawnBeginDate>h1.PawnEndDate ';
           Sql:=Sql+ 'and h.PrePawnTicketCode<>'''' ';
           //Sql:=Sql+'and h.CreateDate<>h.ModifyDateTime ';
           //Sql:=Sql+'and h.PawnBeginDate<NowDate ';//and h1.PawnEndDate<:NowToTen) ';
           Sql:=Sql+ 'and h.Status=''未赎'' ';
           dqHeadUn.SQL.Add(Sql);
           dqHeadUn.ParamByName('NowDate').asDateTime:=NowDate;
           //dqHeadUn.ParamByName('Code').asstring:='';
           //dqHeadUn.ParamByName('NowToTen').asDateTime:=NowToTen;
           dqHeadUn.Open;
           PawnMoney:=0;
           if dqHeadUn.IsEmpty=False then
           begin
                self.txtOutRePNum.Text:=inttostr(dqHeadUn.RecordCount);
                dqHeadUn.First;
                while not dqHeadUn.Eof do
                begin
                     PawnMoney:=PawnMoney+dqHeadUn.fieldbyName('TotalPawnMoney').Value;
                     dqHeadUn.Next;
                end;
           end
           else
           begin
                txtOutRePNum.Text:='0';
           end;
           self.txtOutRePMoney.Text:=format('%12.1f',[PawnMoney]);
           //统计赎回的笔数、金额

           dqHeadUn.Close;
           dqHeadUn.SQL.Clear;
           Sql:='select TotalPawnMoney from PawnHead_Tbl where True ';
           Sql:=Sql+ 'and Status=:Status ';
           Sql:=Sql+'and CreateDate=:NowDate '; // and PawnEndDate>:NowToTen ';
           Sql:=Sql+'and PawnEndDate>=:NowDate ';
           dqHeadUn.SQL.Add(Sql);
           dqHeadUn.ParamByName('NowDate').asDateTime:=NowDate;
           dqHeadUn.ParamByName('Status').asstring:='赎回';
           //dqHeadUn.ParamByName('NowToTen').asDateTime:=NowToTen;
           dqHeadUn.Open;
           PawnMoney:=0;
           if dqHeadUn.IsEmpty=False then
           begin
                self.txtRansomNum.Text:=inttostr(dqHeadUn.RecordCount);
                dqHeadUn.First;
                while not dqHeadUn.Eof do
                begin
                     PawnMoney:=PawnMoney+dqHeadUn.fieldbyName('TotalPawnMoney').Value;
                     dqHeadUn.Next;
                end;

           end
           else
           begin
                txtRansomNum.Text:='0';
           end;
           self.txtRansomMoney.Text:=format('%12.1f',[PawnMoney]);
           //统计逾期赎回的笔数、金额
           dqHeadUn.Close;
           dqHeadUn.SQL.Clear;
           Sql:='select TotalPawnMoney from PawnHead_Tbl where True ';
           Sql:=Sql+ 'and Status=:Status ';
           Sql:=Sql+'and CreateDate=:NowDate ';
           //Sql:=Sql+'and PawnEndDate<:NowToTen ';
           Sql:=Sql+'and PawnEndDate<:NowDate ';
           dqHeadUn.SQL.Add(Sql);
           dqHeadUn.ParamByName('NowDate').asDateTime:=NowDate;
           dqHeadUn.ParamByName('Status').asstring:='赎回';
           //dqHeadUn.ParamByName('NowToTen').asDateTime:=NowToTen;
           dqHeadUn.Open;
           PawnMoney:=0;
           if dqHeadUn.IsEmpty=False then
           begin
                self.txtOutRansomNum.Text:=inttostr(dqHeadUn.RecordCount);
                dqHeadUn.First;
                while not dqHeadUn.Eof do
                begin
                     PawnMoney:=PawnMoney+dqHeadUn.fieldbyName('TotalPawnMoney').Value;
                     dqHeadUn.Next;
                end;
           end
           else
           begin
                txtOutRansomNum.Text:='0';
           end;
           self.txtOutRansomMoney.Text:=format('%12.1f',[PawnMoney]);
           //统计上日结存即上日库存金额
           dqHeadUn.Close;
           dqHeadUn.SQL.Clear;
           Sql:='SELECT h.TotalPawnMoney FROM PawnHead_Tbl AS h ';
           Sql:=Sql+ 'INNER JOIN Stockpile_Tbl AS s ON s.PawnCode=h.PawnTicketCode ';
           Sql:=Sql+ 'WHERE True and h.CreateDate<:NowDate;';
           dqHeadUn.SQL.Add(Sql);
           dqHeadUn.ParamByName('NowDate').asDateTime:=NowDate;
           dqHeadUn.Open;