provincesearchdetailed.pas

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

unit ProvinceSearchDetailed;

interface

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

type
  TFrmSearchDetailed = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ToolButton1: TToolButton;
    StatusBar1: TStatusBar;
    DGMx: TDBGrid;
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    sURL, sCityNum, sDate, sOther, sMonth: String;
    nType, nTypeItem: Integer;
    dOther: Double;
    procedure LoadDetailed;
  end;

var
  FrmSearchDetailed: TFrmSearchDetailed;

implementation

{$R *.dfm}
uses uDMFunc;

procedure TFrmSearchDetailed.LoadDetailed;
var
  i: smallint;
begin
  SearchSurveillanceDetailed(sURL,sDate,nType,nTypeItem,sOther,dOther,DGMx);
  for i:=0 to DGMx.Columns.Count-1 do
  begin
    if DGMx.Columns.Items[i].FieldName ='KMDM' then
      DGMx.Columns.Items[i].Title.Caption :='科目代码'
    else
    if DGMx.Columns.Items[i].FieldName ='KMMC' then
      DGMx.Columns.Items[i].Title.Caption :='科目名称'
    else
    if DGMx.Columns.Items[i].FieldName ='JF' then
      DGMx.Columns.Items[i].Title.Caption :='借方发生额'
    else
    if DGMx.Columns.Items[i].FieldName ='DF' then
      DGMx.Columns.Items[i].Title.Caption :='贷方发生额'
    else
    if DGMx.Columns.Items[i].FieldName ='ZY' then
      DGMx.Columns.Items[i].Title.Caption :='摘要'
    else
    if DGMx.Columns.Items[i].FieldName ='YE' then
      DGMx.Columns.Items[i].Title.Caption :='余额'
    else
    if DGMx.Columns.Items[i].FieldName ='JZRQ' then
      DGMx.Columns.Items[i].Title.Caption :='记帐日期'
    else
    if DGMx.Columns.Items[i].FieldName ='YHMC' then
      DGMx.Columns.Items[i].Title.Caption :='银行名称'
    else
    if DGMx.Columns.Items[i].FieldName ='YHZH' then
      DGMx.Columns.Items[i].Title.Caption :='银行帐号'
    else
    if DGMx.Columns.Items[i].FieldName ='ZHMC' then
      DGMx.Columns.Items[i].Title.Caption :='专户名称'
    else
    if DGMx.Columns.Items[i].FieldName ='KHSJ' then
      DGMx.Columns.Items[i].Title.Caption :='开户时间'
    else
    if DGMx.Columns.Items[i].FieldName ='CKYE' then
      DGMx.Columns.Items[i].Title.Caption :='存款余额'
    else
    if DGMx.Columns.Items[i].FieldName ='KHRS' then
      DGMx.Columns.Items[i].Title.Caption :='开户人数'
    else
    if DGMx.Columns.Items[i].FieldName ='ZCJCRS' then
      DGMx.Columns.Items[i].Title.Caption :='正常缴存人数'
    else
    if DGMx.Columns.Items[i].FieldName ='FCRS' then
      DGMx.Columns.Items[i].Title.Caption :='封存人数'
    else
    if DGMx.Columns.Items[i].FieldName ='' then
      DGMx.Columns.Items[i].Title.Caption :='还款方式'
    else
    if DGMx.Columns.Items[i].FieldName ='e029' then
      DGMx.Columns.Items[i].Title.Caption :='签定日期'
    else
    if DGMx.Columns.Items[i].FieldName ='e023' then
      DGMx.Columns.Items[i].Title.Caption :='贷款金额'
    else
    if DGMx.Columns.Items[i].FieldName ='e061' then
      DGMx.Columns.Items[i].Title.Caption :='正常还款日期'
    else
    if DGMx.Columns.Items[i].FieldName ='hqll' then
      DGMx.Columns.Items[i].Title.Caption :='活期利率'
    else
    if DGMx.Columns.Items[i].FieldName ='dqll' then
      DGMx.Columns.Items[i].Title.Caption :='定期利率'
    else
    if DGMx.Columns.Items[i].FieldName ='ye' then
      DGMx.Columns.Items[i].Title.Caption :='余额'
    else
    if DGMx.Columns.Items[i].FieldName ='dkqx' then
      DGMx.Columns.Items[i].Title.Caption :='中心贷款年限'
    else
    if DGMx.Columns.Items[i].FieldName ='lldx' then
      DGMx.Columns.Items[i].Title.Caption :='中心贷款利率'
    else
    if DGMx.Columns.Items[i].FieldName ='gdlldx' then
      DGMx.Columns.Items[i].Title.Caption :='规定贷款利率'
    else
    if DGMx.Columns.Items[i].FieldName ='yhbm' then
      DGMx.Columns.Items[i].Title.Caption :='银行编码'
    else
    if DGMx.Columns.Items[i].FieldName ='yhmc' then
      DGMx.Columns.Items[i].Title.Caption :='银行名称'
    else
    if DGMx.Columns.Items[i].FieldName ='rq' then
      DGMx.Columns.Items[i].Title.Caption :='日期'
    else
    if DGMx.Columns.Items[i].FieldName ='jffse' then
      DGMx.Columns.Items[i].Title.Caption :='借方发生额'
    else
    if DGMx.Columns.Items[i].FieldName ='dffse' then
      DGMx.Columns.Items[i].Title.Caption :='贷方发生额'
    else
    if DGMx.Columns.Items[i].FieldName ='khzh' then
      DGMx.Columns.Items[i].Title.Caption :='帐户帐号'
    else
    if DGMx.Columns.Items[i].FieldName ='zy' then
      DGMx.Columns.Items[i].Title.Caption :='摘要';
  end;
  DGMx.Refresh;
end;

procedure TFrmSearchDetailed.ToolButton1Click(Sender: TObject);
begin
  close;
end;

end.