jgbbcalc.pas

公积金监管系统客户端,是新疆公积金监管系统的客户端软件

unit JGBbCalc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, JGMap, Menus, ComCtrls, StdCtrls, jpeg, ExtCtrls, ToolWin,
  ImgList, CheckLst;

type
  TJGBbCalcGL = class(TJGMaps)
    ImageList1: TImageList;
    ImageList2: TImageList;
    Panel6: TPanel;
    LblRQ: TLabel;
    DT: TDateTimePicker;
    Panel5: TPanel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton2: TToolButton;
    CboML: TComboBox;
    Label17: TLabel;
    ToolButton5: TToolButton;
    procedure Label1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JGBbCalcGL: TJGBbCalcGL;

implementation

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

procedure TJGBbCalcGL.Label1Click(Sender: TObject);
var
  FormJGBbSjLr:TFormJGBbSjLr;
  FormJGBbSjTj:TFormJGBbSjTj;
  nY,nM,nD: word;
  cDb,bbfilename:string;
begin
  inherited;
    with DM do
    begin
      if Qry_User.Active =true then Qry_User.Close;
      Qry_User.SQL.Clear;
      Qry_User.SQL.Add('select cwdb1 from bm_dsbmb where dsbh=:ds');
      Qry_User.Parameters.ParamByName('ds').Value:= cCityNum;
      Qry_User.Open;
      cDb:= Qry_User.FieldByName('cwdb1').AsString;
      Qry_User.Close;
      if cDb='' then
      begin
        Application.MessageBox('未设置地市的公积金财务数据库，不能查询！',MsgCaption,48);
        exit;
      end;
      //连接财务数据库
      if not DM.F_CwConnect(DatabaseType(INISYSTEMTYPE),ConnectServer(INISYSTEMTYPE),cDb) then
      begin
        Application.MessageBox('无法连接公积金财务数据库，不能查询！',MsgCaption,48);
        exit;
      end;
    end;
  //DT.OnChange(sender);
  if ToolButton5.Down then
  begin
  //导入报表
  end
  else
  if ToolButton1.Down then
  begin
  //统计报表
    bbfilename:=ExtractFilePath(Paramstr(0))+BbFileGS+copy(trim(CboML.Text),1,2)+'.cll';
    if not fileexists(bbfilename) then
      begin
        showmessage('报表文件不存在，请确定报表位置！');
        exit;
      end;
    FormJGBbSjTj:=TFormJGBbSjTj.create(application);
    FormJGBbSjTj.BbFN:= bbfilename;
    FormJGBbSjTj.cCNum:= cCityNum;
    FormJGBbSjTj.cCName:= cCityName;
    FormJGBbSjTj.JGBb_Bbbh:= copy(trim(CboML.Text),1,2);
    FormJGBbSjTj.Caption:= '报表数据统计( '+trim(CboML.Text)+' )';
    FormJGBbSjTj.StatusBar1.Panels[0].Text:='当前地市： '+ FormJGBbSjTj.cCName;
    DecodeDate(DT.Date ,nY,nM,nD);
    FormJGBbSjTj.JGBb_date:=DT.date;
    FormJGBbSjTj.JGBb_Ny:= trim(inttostr(nY))+padl(trim(inttostr(nM)),2,'0');
    FormJGBbSjTj.StatusBar1.Panels[1].Text:='数据所属年月： '+ FormJGBbSjTj.JGBb_Ny;
    FormJGBbSjTj.showmodal;
  end
  else
  if ToolButton4.Down then
  begin
    //修改报表
    bbfilename:=ExtractFilePath(Paramstr(0))+BbFileGS+copy(trim(CboML.Text),1,2)+'.cll';
    if not fileexists(bbfilename) then
      begin
        showmessage('报表文件不存在，请确定报表位置！');
        exit;
      end;
    FormJGBbSjLr:=TFormJGBbSjLr.create(application);
    //---------------FormJGBbSjLr.BbFN:= bbfilename;
    //---------------FormJGBbSjLr.cCNum:= cCityNum;
    //---------------FormJGBbSjLr.cCName:= cCityName;
    //---------------FormJGBbSjLr.JGBb_Bbbh:= copy(trim(CboML.Text),1,2);
    //---------------FormJGBbSjLr.Lrbbdm:= DM.F_GetBbdm(copy(trim(CboML.Text),1,2));
    FormJGBbSjLr.Caption:= '报表数据录入( '+trim(CboML.Text)+' )';
    //---------------FormJGBbSjLr.StatusBar1.Panels[0].Text:='当前地市： '+ FormJGBbSjLr.cCName;
    DecodeDate(DT.Date ,nY,nM,nD);
    //---------------FormJGBbSjLr.JGBb_Ny:= trim(inttostr(nY))+padl(trim(inttostr(nM)),2,'0');
    //---------------FormJGBbSjLr.StatusBar1.Panels[1].Text:='数据所属年月： '+ FormJGBbSjLr.JGBb_Ny;
    FormJGBbSjLr.showmodal;
  end;
end;

procedure TJGBbCalcGL.FormCreate(Sender: TObject);
begin
  inherited;
  DT.Date := date();
  DM.P_BbmlInfo;
  DM.Qry_Bbml.First;
  while not DM.Qry_Bbml.Eof do
  begin
    CboMl.Items.Add(Dm.Qry_Bbml.FieldByName('bbbh').AsString+' | '+Dm.Qry_Bbml.FieldByName('bbmc').AsString);
    Dm.Qry_Bbml.Next;
  end;
  DM.Qry_Bbml.Close;
  CboML.ItemIndex:=0;
end;

procedure TJGBbCalcGL.ToolButton3Click(Sender: TObject);
begin
  inherited;
  close;
end;

end.