ufrminterrestrep.pas

小银行系统

unit UfrmInterRestRep;

interface

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

type
  TfrmInterRestRep = class(TForm)
    PanTop: TPanel;
    Label5: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label9: TLabel;
    BitBtn_query: TBitBtn;
    Edtper_na: TEdit;
    BitBtn1: TBitBtn;
    EdtStartyymm: TMaskEdit;
    EdtACC_NO: TEdit;
    BitBtn_Print: TBitBtn;
    EdtEndyymm: TMaskEdit;
    ScrollBox1: TScrollBox;
    Memo1: TMemo;
    Grid1: TDBGridEh;
    ADODataSet1: TADODataSet;
    DataSetProvider1: TDataSetProvider;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    ClientDataSet1Start_yymm: TStringField;
    ClientDataSet1End_yymm: TStringField;
    ClientDataSet1Acc_no: TStringField;
    ClientDataSet1Interest_Money: TBCDField;
    ClientDataSet1Not_Mature: TStringField;
    ClientDataSet1Per_na: TStringField;
    ClientDataSet1Per_no: TStringField;
    ClientDataSet1fac_no: TStringField;
    ClientDataSet1sec_no: TStringField;
    ClientDataSet1fac_nm: TStringField;
    ClientDataSet1sec_nm: TStringField;
    DosMove1: TDosMove;
    ClientDataSet1Pre_rest_Money: TBCDField;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure EdtStartyymmExit(Sender: TObject);
    procedure BitBtn_queryClick(Sender: TObject);
    procedure BitBtn_PrintClick(Sender: TObject);
  private
    { Private declarations }
    procedure refresh1;
  public
    { Public declarations }
  end;

var
  frmInterRestRep: TfrmInterRestRep;
  frmFirst,confirm :boolean;

implementation
uses U_main,UDM,U_sele,user_func,fuct_server,ufrmreport;

{$R *.dfm}

procedure TfrmInterRestRep.BitBtn1Click(Sender: TObject);
begin
  close ;

end;

procedure TfrmInterRestRep.FormCreate(Sender: TObject);
begin
  frmFirst :=true;
  confirm :=false ;

end;

procedure TfrmInterRestRep.FormActivate(Sender: TObject);
begin
  if frmFirst=true then
  begin
     EdtStartyymm.SetFocus ;
     frmFirst :=false;
  end;
end;

procedure TfrmInterRestRep.EdtStartyymmExit(Sender: TObject);
begin
  EdtEndyymm.Text:=COPY(DateToStr(StrToDate(EdtStartyymm.Text+'-01')+70),1,7);
end;

procedure TfrmInterRestRep.BitBtn_queryClick(Sender: TObject);
var sqlstr:string;
begin
  sqlstr :='';
  if EdtACC_NO.Text <>''   then
     sqlstr :=sqlstr +' and A.Acc_no='''+edtAcc_no.Text +'''' ;
  sqlstr :=sqlstr +' and A.Start_yymm='''+EdtStartyymm.Text +'''' ;
  sqlstr :=sqlstr +' and A.End_yymm='''+EdtEndyymm.Text +'''' ;
  sqlstr := copy(sqlstr,6,length(sqlstr)-5);
  if trim(sqlstr)<>'' then
     sqlstr := ' where '+sqlstr ;

  sqlstr :='SELECT A.*,B.Per_na,B.Per_no,B.fac_no,B.sec_no,C.fac_nm,D.sec_nm '+
  ' FROM InterestMaster  A '+
  ' INNER JOIN Account  B ON A.Acc_no = B.Acc_no '+
  ' INNER JOIN factory  C ON B.fac_no = C.fac_no '+
  ' INNER JOIN Sec  D ON B.sec_no = D.Sec_no '+ sqlstr+
  ' ORDER  BY  A.Acc_no ' ;

  self.ClientDataSet1.Active :=false;
  ADODataSet1.CommandText :=sqlstr;
  self.ClientDataSet1.Active :=true;

end;

procedure TfrmInterRestRep.refresh1;
begin

end;

procedure TfrmInterRestRep.BitBtn_PrintClick(Sender: TObject);
var sqlstr,sTitle:string;
begin
  inherited;
  sqlstr:='';
  sTitle :=EdtStartyymm.Text +'至'+EdtEndyymm.Text +'利息表';
  //预览报表
  with TfrmReport.Create(nil) do
  begin
    //改变光标
    Screen.Cursor := crHourGlass;
    F1Report.ClearClipboard;
    Print_InterRest('利息表.vts',sTitle,sqlstr,ClientDataSet1);
    F1Report.ClearClipboard;
    Screen.Cursor := crArrow;
    F1Report.AllowSelections := false;
    ShowModal;
    free;
  end;    // with

end;

end.