ufrmtrybalancerep.pas

小银行系统

unit UfrmTryBalanceRep;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_print, DosMove, StdCtrls, Buttons, Mask, DB, DBClient,
  Provider, ADODB, QuickRpt, QRCtrls, ExtCtrls;

type
  TfrmTryBalanceRep = class(TF_print)
    Label24: TLabel;
    Edtyymmdd: TMaskEdit;
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel6: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel8: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRShape1: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape11: TQRShape;
    QRShape4: TQRShape;
    QRBand2: TQRBand;
    QRShape17: TQRShape;
    QRShape19: TQRShape;
    QRShape20: TQRShape;
    QRShape22: TQRShape;
    QRShape23: TQRShape;
    QRDBText1: TQRDBText;
    QRDBText6: TQRDBText;
    QRLabel3: TQRLabel;
    QRSysData2: TQRSysData;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRLabel5: TQRLabel;
    QRShape10: TQRShape;
    QRLabel9: TQRLabel;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRDBText7: TQRDBText;
    QRLabel19: TQRLabel;
    QRLabelCre_date: TQRLabel;
    QRBand3: TQRBand;
    QRLabel4: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabelOUT_money: TQRLabel;
    QRLabelIN_money: TQRLabel;
    QRBand4: TQRBand;
    QRShape5: TQRShape;
    QRShape18: TQRShape;
    QRShape21: TQRShape;
    QRLabel2: TQRLabel;
    QRLabelCur_rem_money: TQRLabel;
    QRLabelPre_rem_money: TQRLabel;
    ADOStoredProc1: TADOStoredProc;
    QRShape9: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRLabel10: TQRLabel;
    QRLabel14: TQRLabel;
    QRShape24: TQRShape;
    QRShape25: TQRShape;
    QRShape26: TQRShape;
    QRShape27: TQRShape;
    QRShape28: TQRShape;
    QRLabelSOUT_money: TQRLabel;
    QRLabelSIN_money: TQRLabel;
    QRLabelPers: TQRLabel;
    ADOStoredProc1Cdate: TStringField;
    ADOStoredProc1Fac_no: TStringField;
    ADOStoredProc1Sec_no: TStringField;
    ADOStoredProc1Fac_nm: TStringField;
    ADOStoredProc1Sec_nm: TStringField;
    ADOStoredProc1In_Money: TBCDField;
    ADOStoredProc1Out_Money: TBCDField;
    ADOStoredProc1Rem_Money: TBCDField;
    ADOStoredProc1Pers: TIntegerField;
    QRShape29: TQRShape;
    QRShape30: TQRShape;
    QRShape31: TQRShape;
    QRLabel7: TQRLabel;
    QRDBText2: TQRDBText;
    QRLabel1Cancel_pers: TQRLabel;
    QRLabelREM_money: TQRLabel;
    QRLabelSREM_money: TQRLabel;
    ADOStoredProc1sRem_Money: TBCDField;
    ADOStoredProc1Pre_In_Money: TBCDField;
    ADOStoredProc1Pre_Out_Money: TBCDField;
    ADOStoredProc1Pre_Rem_Money: TBCDField;
    ADOStoredProc1Cancel_Pers: TIntegerField;
    QRShape32: TQRShape;
    QRLabel16: TQRLabel;
    QRShape33: TQRShape;
    QRShape34: TQRShape;
    QRShape35: TQRShape;
    QRShape36: TQRShape;
    QRShape37: TQRShape;
    QRShape38: TQRShape;
    QRLabelSpREM_money: TQRLabel;
    ADOStoredProc1sPre_Rem_Money: TBCDField;
    ADOStoredProc1pPers: TIntegerField;
    ADOStoredProc1pCancel_Pers: TIntegerField;
    QRGroup1: TQRGroup;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure EdtACC_NOKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure QRBand2BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure EdtyymmddKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure QRBand4BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
    procedure FormShow(Sender: TObject);
    procedure QRBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QRGroup1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
   //今日总存款 今日总取款  总余额  今日发生借贷之余额  昨日发生借贷之余额,昨日总余额
    sIN_money,sOUT_money,sSREM_money,sREM_money,sPre_Rem_Money,sSPre_REM_money:Real;
    sPers,sCancel_Pers:integer;
  public
    { Public declarations }
  end;

var
  frmTryBalanceRep: TfrmTryBalanceRep;
 
implementation
uses U_main,UDM,ufrmreport;

{$R *.dfm}

procedure TfrmTryBalanceRep.BitBtn1Click(Sender: TObject);
var sqlstr:string;
begin
  inherited;
  try
  Screen.Cursor:=crHourGlass;
  self.ADOStoredProc1.Active :=false ;
  self.ADOStoredProc1.Parameters.ParamByName('@Cdate').Value :=Edtyymmdd.Text ;
  self.ADOStoredProc1.Active :=true ;
  finally
      Screen.Cursor:=crDefault;
  end;

  if not self.ADOStoredProc1.Eof then
  begin
     QRLabelCre_date.Caption :=Edtyymmdd.Text ;
     QuickRep1.Preview;
  end
  else
  begin
     MessageDlg('无符合条件资料,请重输...',mtinformation,[mbok],0);
     Edtyymmdd.SetFocus;
  end;

end;

procedure TfrmTryBalanceRep.EdtACC_NOKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key=13 then BitBtn1.SetFocus ;

end;

procedure TfrmTryBalanceRep.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  action:=cafree;
  frmTryBalanceRep :=nil;

end;

procedure TfrmTryBalanceRep.QRBand2BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  inherited;
  if self.ADOStoredProc1OUT_money.Value >0 then
     QRLabelOUT_money.Caption :=Formatfloat('##,###,##0.00',self.ADOStoredProc1OUT_money.AsFloat)
  else
     QRLabelOUT_money.Caption :='';

  if self.ADOStoredProc1IN_money.Value >0 then
     QRLabelIN_money.Caption :=Formatfloat('##,###,##0.00',self.ADOStoredProc1IN_money.AsFloat)
  else
     QRLabelIN_money.Caption :='';

  if self.ADOStoredProc1sREM_money.Value >0 then
     QRLabelREM_money.Caption :=Formatfloat('##,###,##0.00',self.ADOStoredProc1sRem_Money.AsFloat)
  else
     QRLabelREM_money.Caption :='';

  sIN_money  :=sIN_money +self.ADOStoredProc1In_Money.Value ;
  sOUT_money :=sOUT_money+self.ADOStoredProc1Out_Money.Value ;
  sSREM_money:=sSREM_money+self.ADOStoredProc1SREM_Money.Value ;
  sSPre_REM_money:=sSPre_REM_money+self.ADOStoredProc1SPre_REM_Money.Value ;
  sREM_money :=sREM_money+self.ADOStoredProc1REM_Money.Value ;
  sPre_Rem_Money :=sPre_Rem_Money +self.ADOStoredProc1Pre_REM_Money.Value ;
  sPers      :=sPers +self.ADOStoredProc1Pers.Value ;
  sCancel_Pers :=sCancel_Pers +self.ADOStoredProc1Cancel_Pers.Value ;

end;

procedure TfrmTryBalanceRep.EdtyymmddKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if key=13 then BitBtn1.SetFocus ;
end;

procedure TfrmTryBalanceRep.QRBand4BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var
  vPre_Balance,vBalance:Real;
begin
  inherited;
  QRLabelSOUT_money.Caption :=Formatfloat('##,###,##0.00',SOUT_money) ;
  QRLabelSIN_money.Caption  :=Formatfloat('##,###,##0.00',SIN_money) ;
  QRLabel1Cancel_pers.Caption:=Formatfloat('####',sCancel_pers) ;
  QRLabelPers.Caption       :=Formatfloat('####',SPers) ;
  QRLabelSREM_money.Caption :=Formatfloat('##,###,##0.00',sSREM_money) ;
  QRLabelSpREM_money.Caption:=Formatfloat('##,###,##0.00',sSPre_REM_money) ;

  QRLabelPre_rem_money.Caption :=Formatfloat('##,###,##0.00',sPre_rem_money);
  QRLabelCur_rem_money.Caption:=Formatfloat('##,###,##0.00',sREM_money);
end;

procedure TfrmTryBalanceRep.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  inherited;
  sIN_money   :=0 ;
  sOUT_money  :=0 ;
  sSREM_money :=0 ;
  sSPre_REM_money :=0 ;
  sREM_money  :=0 ;
  sPre_Rem_Money :=0 ;
  sPers :=0 ;
  sCancel_Pers :=0 ;
end;

procedure TfrmTryBalanceRep.FormShow(Sender: TObject);
begin
  inherited;
  Edtyymmdd.SetFocus ;

end;

procedure TfrmTryBalanceRep.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  inherited;
  QRLabel18.Caption :=  self.ADOStoredProc1Fac_nm.AsString ;
end;

procedure TfrmTryBalanceRep.QRGroup1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  inherited;
  sIN_money   :=0 ;
  sOUT_money  :=0 ;
  sSREM_money :=0 ;
  sSPre_REM_money :=0 ;
  sREM_money  :=0 ;
  sPre_Rem_Money :=0 ;
  sPers :=0 ;
  sCancel_Pers :=0 ;

end;

procedure TfrmTryBalanceRep.FormCreate(Sender: TObject);
begin
  inherited;
  Edtyymmdd.Text :=f_main.vTodayDate ;
end;

end.