jgsearchdkgrmx.pas

ProviceSystem-公积金监管系统中心端

unit JGSearchDkGrMx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, ToolWin, Grids;

type
  TJGSearchDkGrMxGL = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ImageList1: TImageList;
    ImageList2: TImageList;
    StatusBar1: TStatusBar;
    SGGr: TStringGrid;
    procedure ToolButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure RefreshGrMx;
  end;

var
  JGSearchDkGrMxGL: TJGSearchDkGrMxGL;

implementation

{$R *.dfm}
uses UserFace, DataModule;

procedure TJGSearchDkGrMxGL.ToolButton4Click(Sender: TObject);
begin
  close;
end;

procedure TJGSearchDkGrMxGl.RefreshGrMx;
var
  i:smallint;
//  l:integer;
  d: double;
  c: string;
begin
  SGGr.RowCount := 2;
  for i:=0 to 7 do
    SGGr.Cells[i,1]:='';
  i:=1;
  DM.Sp_DkGrMx.First;
  While not Dm.Sp_DkGrMx.Eof do
  begin
    SGGr.Cells[0,i]:=datetostr(DM.Sp_DkGrMx.FieldByName('rq').AsDateTime);
    SGGr.Cells[1,i]:=DM.Sp_DkGrMx.FieldByName('hkqc').AsString;
    d:= DM.Sp_DkGrMx.FieldByName('dkje').AsFloat;
    Str(d:11:2,c);
    SGGr.Cells[2,i]:= c;
    d:= DM.Sp_DkGrMx.FieldByName('dklx').AsFloat;
    Str(d:11:2,c);
    SGGr.Cells[3,i]:= c;
    d:= DM.Sp_DkGrMx.FieldByName('yhje').AsFloat;
    Str(d:11:2,c);
    SGGr.Cells[4,i]:= c;
    d:= DM.Sp_DkGrMx.FieldByName('yhlx').AsFloat;
    Str(d:11:2,c);
    SGGr.Cells[5,i]:= c;
    d:= DM.Sp_DkGrMx.FieldByName('yqfx').AsFloat;
    Str(d:11:2,c);
    SGGr.Cells[6,i]:= c;
    d:= DM.Sp_DkGrMx.FieldByName('dkye').AsFloat;
    Str(d:11:2,c);
    SGGr.Cells[7,i]:= c;
    d:= DM.Sp_DkGrMx.FieldByName('lxye').AsFloat;
    Str(d:11:2,c);
    SGGr.Cells[8,i]:= c;
    inc(i);
    SGGr.RowCount:= SGGr.RowCount+1;
    DM.Sp_DkGrMx.Next;
  end;
  if SGGr.RowCount>2 then SGGr.RowCount:= SGGr.RowCount-1;
end;

procedure TJGSearchDkGrMxGL.FormCreate(Sender: TObject);
begin
  SGGr.Cells[0,0]:= '日期';
  SGGr.Cells[1,0]:= '偿还期次';
  SGGr.Cells[2,0]:= '贷款金额';
  SGGr.Cells[3,0]:= '贷款利息';
  SGGr.Cells[4,0]:= '已还金额';
  SGGr.Cells[5,0]:= '已还利息';
  SGGr.Cells[6,0]:= '逾期罚息';
  SGGr.Cells[7,0]:= '本金余额';
  SGGr.Cells[8,0]:= '利息余额';
  RefreshGrMx;
end;

end.