accountmoving.pas

企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务

unit AccountMoving;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BASEWIN, XPMenu, Menus, ActnList, ImgList, TFlatButtonUnit,
  ExtCtrls, StdCtrls, ComCtrls, QRCtrls, QuickRpt, fcTreeView,
  TFlatComboBoxUnit, DB, RxMemDS, TFlatPanelUnit, TFlatEditUnit,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  ztvregister, ztvBase, ztvUnZip, Grids, DBGrids;
  
const screenwidth=1024;
const screenheight=768;
type
  TAccountMoving_frm = class(Tbasewin_frm)                            
    ScrollBox1: TScrollBox;
    Panel2: TPanel;
    Label1: TLabel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Bevel6: TBevel;
    Label2: TLabel;
    Bevel7: TBevel;
    Bevel8: TBevel;
    Bevel9: TBevel;
    Bevel10: TBevel;
    Bevel11: TBevel;
    Bevel12: TBevel;
    Bevel13: TBevel;
    Bevel14: TBevel;
    Bevel15: TBevel;
    Bevel16: TBevel;
    Bevel17: TBevel;
    Bevel18: TBevel;
    Bevel19: TBevel;
    Bevel20: TBevel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    L09: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    l10: TLabel;
    l12: TLabel;
    Bevel21: TBevel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    l11: TLabel;
    l13: TLabel;
    Label25: TLabel;
    Bevel22: TBevel;
    Label26: TLabel;
    Bevel23: TBevel;
    Bevel24: TBevel;
    Bevel25: TBevel;
    Bevel26: TBevel;
    Label27: TLabel;
    Bevel27: TBevel;
    Label28: TLabel;
    Bevel28: TBevel;
    Label29: TLabel;
    Bevel29: TBevel;
    Label30: TLabel;
    Bevel30: TBevel;
    Label31: TLabel;
    Label32: TLabel;
    Bevel31: TBevel;
    Label33: TLabel;
    Bevel32: TBevel;
    Bevel33: TBevel;
    Label34: TLabel;
    Label35: TLabel;
    Bevel34: TBevel;
    Label36: TLabel;
    Label37: TLabel;
    Bevel35: TBevel;
    Bevel36: TBevel;
    Bevel37: TBevel;
    Label38: TLabel;
    Bevel39: TBevel;
    Bevel40: TBevel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Splitter1: TSplitter;
    Panel3: TPanel;
    TreeView: TfcTreeView;
    FlatComboBox1: TFlatComboBox;
    RMD: TRxMemoryData;
    RMDpsname: TStringField;
    RMDidcode: TStringField;
    RMDjfyearno: TStringField;
    RMDstjfyearno: TStringField;
    RMDout_unit: TStringField;
    RMDin_unit: TStringField;
    RMDDeadDate: TStringField;
    RMDsalary: TStringField;
    RMDout_esiis: TStringField;
    RMDout_account_name: TStringField;
    RMDout_zip: TStringField;
    RMDout_account: TStringField;
    RMDout_address: TStringField;
    RMDin_esiis: TStringField;
    RMDin_account_name: TStringField;
    RMDin_zip: TStringField;
    RMDin_account: TStringField;
    RMDin_address: TStringField;
    Bevel38: TBevel;
    Label47: TLabel;
    Label48: TLabel;
    Bevel41: TBevel;
    Label49: TLabel;
    Label50: TLabel;
    Bevel42: TBevel;
    Bevel43: TBevel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Bevel44: TBevel;
    Bevel45: TBevel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    l28: TLabel;
    FlatComboBox2: TFlatComboBox;
    FlatComboBox3: TFlatComboBox;
    RMDAccount_1: TStringField;
    RMDpsseno: TIntegerField;
    RMDAccount_3: TStringField;
    RMDAccount_2: TStringField;
    RMDAccount_4: TStringField;
    RMDAccount_5: TStringField;
    RMDAccount_6: TStringField;
    RMDAccount_7: TStringField;
    RMDAccount_8: TStringField;
    RMDAccount_9: TStringField;
    L02: TLabel;
    l03: TLabel;
    l04: TLabel;
    l05: TLabel;
    l06: TLabel;
    l07: TLabel;
    l08: TLabel;
    l14: TLabel;
    l15: TLabel;
    l16: TLabel;
    l17: TLabel;
    l18: TLabel;
    l19: TLabel;
    l20: TLabel;
    l21: TLabel;
    l22: TLabel;
    l23: TLabel;
    l24: TLabel;
    l25: TLabel;
    l26: TLabel;
    l27: TLabel;
    RMDAccount_setup: TStringField;
    Panel4: TPanel;
    FlatButton2: TFlatButton;
    FlatButton1: TFlatButton;
    Edit06: TFlatEdit;
    Edit14: TFlatEdit;
    Edit15: TFlatEdit;
    Edit16: TFlatEdit;
    Edit17: TFlatEdit;
    Edit18: TFlatEdit;
    IdHTTP1: TIdHTTP;
    UnZip: TUnZip;
    RMDlabel: TMemoField;
    FlatButton5: TFlatButton;
    RMD0: TRxMemoryData;
    RMD0c01: TStringField;
    RMD0c02: TStringField;
    RMD0c03: TStringField;
    RMD0c04: TStringField;
    RMD0c05: TStringField;
    RMD0c06: TStringField;
    RMD0c07: TStringField;
    RMD0c08: TStringField;
    RMD0c09: TStringField;
    RMD0c10: TStringField;
    RMD0c11: TStringField;
    RMD0c12: TStringField;
    RMD0c13: TStringField;
    RMD0c14: TStringField;
    RMD0c15: TStringField;
    RMD0c16: TStringField;
    RMD0c17: TStringField;
    RMD0c18: TStringField;
    RMD0c20: TStringField;
    RMD0c21: TStringField;
    RMD0c22: TStringField;
    RMD0c23: TStringField;
    RMD0c00: TStringField;
    RMD0c19: TStringField;
    RMDmemo: TMemoField;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    FlatEdit3: TFlatEdit;
    RMDoperator: TStringField;
    RMDtel: TStringField;
    RMDoper_date: TStringField;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    FlatEdit4: TFlatEdit;
    FlatEdit5: TFlatEdit;
    RMD0c24: TIntegerField;
    procedure FormCreate(Sender: TObject);
    procedure onprint(Sender: TObject);
    procedure TreeViewClick(Sender: TObject);
    procedure FlatComboBox1Change(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    unit_name:widestring;
    QRlabel :array[1..5] of widestring;
    procedure init;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AccountMoving_frm: TAccountMoving_frm;

implementation

uses datashare,  OnlineOperation_service, Main, imp, onlinelogin,
  QRAccountMoving;

{$R *.dfm}
procedure TAccountMoving_frm.init ;
begin
   l02.Caption :=''; l03.Caption :=''; l04.Caption :='';l05.Caption :=''; l06.Caption :='';
   l07.Caption :=''; l08.Caption :=''; //l09.Caption :='';l10.Caption :=''; l11.Caption :='';
   //l12.Caption :=''; l13.Caption :='';
                                      l14.Caption :='';l15.Caption :=''; l16.Caption :='';
   l17.Caption :=''; l18.Caption :=''; l19.Caption :='';l20.Caption :=''; l21.Caption :='';
   l22.Caption :=''; l23.Caption :=''; l24.Caption :='';l25.Caption :=''; l26.Caption :='';
   l27.Caption :='';
   l28.Caption :='结息时间:至   年  月底止.    截止缴费时间是指末次缴费时间';
   edit06.Text :='';edit14.Text :=''; edit15.Text :='';
   edit16.Text :=''; edit17.Text :='';edit18.Text :='';

   flatedit1.Text:='';
   flatedit2.Text:='';
   flatedit3.Text:='';
   flatedit4.Text :='';
   FlatEdit5.Text :='';

   radiobutton1.Checked :=false;
   radiobutton2.Checked :=false;
   RMD.Close ;
   RMD.Open ;
end;

procedure TAccountMoving_frm.FormCreate(Sender: TObject);
var
  node,node1:TfcTreenode;
begin
  inherited;
  //QuickRep.Visible:=false;
  //QuickRep1.Visible :=false;
  idHTTP1.ProxyParams.ProxyServer:=proxyserver;
  idHTTP1.ProxyParams.ProxyPort:=proxyport;

  flatbutton1.Enabled :=false;
  flatbutton2.Enabled :=false;
  flatbutton5.Enabled :=false; 

  QRlabel[1]:='第'+chr(vk_return)+chr(vk_return)+'一'+chr(vk_return)+chr(vk_return)+'联'+chr(vk_return)+chr(vk_return)+chr(vk_return)+chr(vk_return)+
       '转'+chr(vk_return)+chr(vk_return)+'出'+chr(vk_return)+chr(vk_return)+'地'+chr(vk_return)+chr(vk_return)+
       '业'+chr(vk_return)+chr(vk_return)+'务'+chr(vk_return)+chr(vk_return)+'留'+chr(vk_return)+chr(vk_return)+'存';
  QRlabel[2]:='第'+chr(vk_return)+chr(vk_return)+'二'+chr(vk_return)+chr(vk_return)+'联'+chr(vk_return)+chr(vk_return)+chr(vk_return)+chr(vk_return)+
       '转'+chr(vk_return)+chr(vk_return)+'出'+chr(vk_return)+chr(vk_return)+'地'+chr(vk_return)+chr(vk_return)+
       '财'+chr(vk_return)+chr(vk_return)+'务'+chr(vk_return)+chr(vk_return)+'留'+chr(vk_return)+chr(vk_return)+'存';
  QRlabel[3]:='第'+chr(vk_return)+chr(vk_return)+'三'+chr(vk_return)+chr(vk_return)+'联'+chr(vk_return)+chr(vk_return)+chr(vk_return)+chr(vk_return)+
       '省'+chr(vk_return)+chr(vk_return)+'社'+chr(vk_return)+chr(vk_return)+'保'+chr(vk_return)+chr(vk_return)+
       '中'+chr(vk_return)+chr(vk_return)+'心'+chr(vk_return)+chr(vk_return)+'留'+chr(vk_return)+chr(vk_return)+'存';
   QRlabel[4]:='第'+chr(vk_return)+chr(vk_return)+'四'+chr(vk_return)+chr(vk_return)+'联'+chr(vk_return)+chr(vk_return)+chr(vk_return)+chr(vk_return)+
       '转'+chr(vk_return)+chr(vk_return)+'入'+chr(vk_return)+chr(vk_return)+'地'+chr(vk_return)+chr(vk_return)+
       '社'+chr(vk_return)+chr(vk_return)+'保'+chr(vk_return)+chr(vk_return)+'机'+chr(vk_return)+chr(vk_return)+
       '构'+chr(vk_return)+chr(vk_return)+'留'+chr(vk_return)+chr(vk_return)+'存';
    QRlabel[5]:='第'+chr(vk_return)+chr(vk_return)+'五'+chr(vk_return)+chr(vk_return)+'联'+chr(vk_return)+chr(vk_return)+chr(vk_return)+chr(vk_return)+
       '转'+chr(vk_return)+chr(vk_return)+'入'+chr(vk_return)+chr(vk_return)+'单'+chr(vk_return)+chr(vk_return)+
       '位'+chr(vk_return)+chr(vk_return)+'留'+chr(vk_return)+chr(vk_return)+'存';
  with DataShare_frm.Query1 do
  begin
    close;
    sql.Clear ;
    //sql.Add('select cpseno,cpname from sbdb_cparch');
    sql.Add('select cpname,cpseno from sbdb_cparch where cpseno in (select distinct cmcpseno from sbdb_cparch)'); 
    prepare;
    open;
    node:=treeview.GetNodeAt(0,0);
    if node=nil then
      begin
        node1:=treeview.Items.AddChildFirst(node,Fieldbyname('cpname').AsString);