monthreport.~pa

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

           begin
                self.txtDeadPawnNum.Text:=inttostr(dqHeadUn.RecordCount);
                dqHeadUn.First;
                while not dqHeadUn.Eof do
                begin
                     PawnMoney:=PawnMoney+dqHeadUn.fieldbyName('TotalPawnMoney').Value;
                     dqHeadUn.Next;
                end;
           end
           else
           begin
                txtDeadPawnNum.Text:='0';
           end;
           self.txtDeadPawnMoney.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('%10.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;
           PawnMoney:=0;
           if dqHeadUn.IsEmpty=False then
           begin
                //self.txtLast.Text:=inttostr(dqHeadUn.RecordCount);
                dqHeadUn.First;
                while not dqHeadUn.Eof do
                begin
                     PawnMoney:=PawnMoney+dqHeadUn.fieldbyName('TotalPawnMoney').Value;
                     dqHeadUn.Next;
                end;
           end;
           self.txtLastMonth.Text:=format('%12.1f',[PawnMoney]);
           //统计现金收入即客户赎回所得的金额之和
           if txtRansomMoney.Text='' then
              txtRansomMoney.Text:='0';
           //if txtOutRansomMoney.Text='' then
              //txtOutRansomMoney.Text:='0';
           PawnMoney:=0;
           PawnMoney:=strtofloat(txtRansomMoney.Text);//+strtofloat(txtOutRansomMoney.Text);
           txtGotCash.Text:=format('%12.1f',[PawnMoney]);

           //统计现金支付的金额即今日典当和续当的金额总和
           if txtPawnMoney.Text='' then
              txtPawnMoney.Text:='0';
           if txtRePawnMoney.Text='' then
              txtRePawnMoney.Text:='0';
           //if txtOutRePMoney.Text='' then
              //txtOutRePMoney.Text:='0';
           if txtLastMonth.Text='' then
              txtLastMonth.Text:='0';
           if txtPayCash.Text='' then
              txtPayCash.Text:='0';
           if txtGotCash.Text='' then
              txtGotCash.Text:='0';
           txtPayCash.Text:=format('%12.1f',[strtofloat(txtPawnMoney.text)
                        +strtofloat(txtRePawnMoney.Text)]);
                        //+strtofloat(txtOutRePMoney.Text)]);
           //统计本日结余即结存+支付-收入
           txtMonth.Text:=format('%12.1f',[strtofloat(trim(txtLastMonth.text))
                      +strtofloat(trim(txtPayCash.text))
                      -strtofloat(trim(txtGotCash.text))]);
           //统计营业收入即：赎当时的服务费+赎当的利息+续当或新当时的综合费用
           dqHeadUn.Close;
           dqHeadUn.SQL.Clear;
           Sql:='Select MonthRate,ServiceMoney from RansomMoney_Tbl ';
           Sql:=Sql+ 'where RansomDate>=:NowDate and RansomDate<=:NextDate';
           dqHeadUn.SQL.Add(Sql);
           dqHeadUn.ParamByName('NowDate').asDateTime:=NowDate;
           dqHeadUn.ParamByName('NextDate').asDateTime:=NextDate;                                                 
           dqHeadUn.Open;
           PawnMoney:=0;
           if dqHeadUn.IsEmpty=False then
           begin
                //self.txtLast.Text:=inttostr(dqHeadUn.RecordCount);
                dqHeadUn.First;
                while not dqHeadUn.Eof do
                begin
                     GotMoney:=dqHeadUn.fieldByName('MonthRate').asfloat+
                               dqHeadUn.FieldByName('ServiceMoney').asfloat;
                     PawnMoney:=PawnMoney+GotMoney;
                     dqHeadUn.Next;
                end;
           end;
           //续当或新当时的综合费用
           dqHeadUn.Close;
           dqHeadUn.SQL.Clear;
           Sql:='Select ServiceMoney from PawnMoney_Tbl ';
           Sql:=Sql+'where PawnDate>=:NowDate and PawnDate<=:NextDate';
           dqHeadUn.SQL.Add(Sql);
           dqHeadUn.ParamByName('NowDate').asDateTime:=NowDate;
           dqHeadUn.ParamByName('NextDate').asDateTime:=NextDate;
           dqHeadUn.Open;
           GotMoney:=0;
           if dqHeadUn.IsEmpty=False then
           begin
                //self.txtLast.Text:=inttostr(dqHeadUn.RecordCount);
                dqHeadUn.First;
                while not dqHeadUn.Eof do
                begin
                     GotMoney:=dqHeadUn.FieldByName('ServiceMoney').asfloat;
                     PawnMoney:=PawnMoney+GotMoney;
                     dqHeadUn.Next;
                end;
           end;
           self.txtPawnGot.Text:=format('%12.1f',[PawnMoney]);
           //统计绝当物品处理的原价及处理价
           dqHeadUn.Close;
           dqHeadUn.SQL.Clear;
           Sql:='Select PawnMoney,SellMoney from Handle_Tbl ';
           Sql:=Sql+ 'where HandleDate>=:NowDate and HandleDate<=:NextDate ';
           dqHeadUn.SQL.Add(Sql);
           dqHeadUn.ParamByName('NowDate').asDateTime:=NowDate;
           dqHeadUn.Open;
           //现价
           PawnMoney:=0;
           GotMoney:=0;
           if dqHeadUn.IsEmpty=False then
           begin
                dqHeadUn.First;
                while not dqHeadUn.Eof do
                begin
                     GotMoney:=dqHeadUn.FieldByName('PawnMoney').asfloat;
                     PawnMoney:=PawnMoney+GotMoney;
                     dqHeadUn.Next;
                end;
           end;
           self.txtPreMoney.Text:=format('%12.1f',[PawnMoney]);
           //处理价
           PawnMoney:=0;
           GotMoney:=0;
           if dqHeadUn.IsEmpty=False then
           begin
                dqHeadUn.First;
                while not dqHeadUn.Eof do
                begin
                     GotMoney:=dqHeadUn.FieldByName('SellMoney').asfloat;
                     PawnMoney:=PawnMoney+GotMoney;
                     dqHeadUn.Next;
                end;
           end;
           self.txtNowMoney.Text:=format('%12.1f',[PawnMoney]);
      end;
end;

procedure TfrmMonthRep.cmdCacuClick(Sender: TObject);
var
   NowDate,NextDate:TDateTime;
   NYear,NMonth,NDay:word;
   DayObject:TDayClass;  //自定义的类 in GlobalVar
   //DaysElapsed:TDateTime;
   NextMonthDay:integer;
begin

     NowDate:=EncodeDate(txtBeginYear.value,
                         txtBeginMonth.Value,1);//1表示一个月的第一天
     //DaysElapsed:=NowDate-10;
     DayObject:=TDayClass.Create;
     NextMonthDay:=DayObject.GetDays(txtBeginMonth.Value,1);
     NextDate:=EncodeDate(txtBeginYear.Value,txtBeginMonth.Value,NextMonthDay);
     //DecodeDate(DaysElapsed,NYear,NMonth,NDay);
     //NowToTen:=EncodeDate(NYear,NMonth,NDay);
     ShowReport(NowDate,NextDate);
end;

procedure TfrmMonthRep.cmdExitClick(Sender: TObject);
begin
     close;
end;

procedure TfrmMonthRep.FormShow(Sender: TObject);
var
   Year,Month,Day:word;
begin
     DecodeDate(Now,Year,Month,Day);
     txtBeginYear.Value:=Year;
     txtBeginMonth.Value:=Month;
     txtBeginDay.Value:=1;
     cmdCacuClick(Sender);
end;

end.