onlinecheck.pas

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

unit OnlineCheck;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BASEWIN, ComCtrls, XPMenu, Menus, ActnList, ImgList,
  TFlatButtonUnit, ExtCtrls, Grids, DBGrids, DB, RxMemDS;

type
  TOnlineCheck_frm = class(Tbasewin_frm)
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid5: TDBGrid;
    RMD5: TRxMemoryData;
    RMD5psseno: TStringField;
    RMD5psname: TStringField;
    RMD5iscode: TStringField;
    RMD5opcode: TStringField;
    RMD5opdate: TStringField;
    RMD5procflg: TStringField;
    RMD5ckcode: TStringField;
    RMD5ckdate: TStringField;
    RMD5notes: TStringField;
    RMD5yearno: TStringField;
    RMD2: TRxMemoryData;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    StringField6: TStringField;
    StringField7: TStringField;
    StringField8: TStringField;
    StringField9: TStringField;
    StringField10: TStringField;
    DataSource6: TDataSource;
    RMD1: TRxMemoryData;
    StringField11: TStringField;
    StringField12: TStringField;
    StringField13: TStringField;
    StringField14: TStringField;
    StringField15: TStringField;
    StringField16: TStringField;
    StringField17: TStringField;
    StringField18: TStringField;
    StringField19: TStringField;
    StringField20: TStringField;
    RMD3: TRxMemoryData;
    StringField22: TStringField;
    StringField23: TStringField;
    StringField24: TStringField;
    StringField25: TStringField;
    StringField26: TStringField;
    StringField27: TStringField;
    StringField28: TStringField;
    StringField29: TStringField;
    StringField30: TStringField;
    DBGrid4: TDBGrid;
    RMD4: TRxMemoryData;
    StringField31: TStringField;
    StringField32: TStringField;
    StringField33: TStringField;
    StringField34: TStringField;
    StringField35: TStringField;
    StringField36: TStringField;
    StringField37: TStringField;
    StringField38: TStringField;
    StringField39: TStringField;
    StringField40: TStringField;
    TabSheet6: TTabSheet;
    DBGrid6: TDBGrid;
    RMD6: TRxMemoryData;
    StringField21: TStringField;
    StringField41: TStringField;
    StringField42: TStringField;
    StringField43: TStringField;
    StringField44: TStringField;
    StringField45: TStringField;
    StringField46: TStringField;
    StringField47: TStringField;
    StringField48: TStringField;
    TabSheet7: TTabSheet;
    DBGrid7: TDBGrid;
    DataSource7: TDataSource;
    RMD7: TRxMemoryData;
    StringField50: TStringField;
    StringField51: TStringField;
    StringField52: TStringField;
    StringField53: TStringField;
    StringField54: TStringField;
    StringField55: TStringField;
    StringField56: TStringField;
    StringField57: TStringField;
    StringField58: TStringField;
    TabSheet8: TTabSheet;
    DBGrid8: TDBGrid;
    DataSource8: TDataSource;
    RMD8: TRxMemoryData;
    StringField49: TStringField;
    StringField59: TStringField;
    StringField60: TStringField;
    StringField61: TStringField;
    StringField62: TStringField;
    StringField63: TStringField;
    StringField64: TStringField;
    StringField65: TStringField;
    StringField66: TStringField;
    procedure FlatButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OnlineCheck_frm: TOnlineCheck_frm;

implementation

uses datashare, Main;

{$R *.dfm}

procedure TOnlineCheck_frm.FlatButton1Click(Sender: TObject);
begin
  pagecontrol1.ActivePageIndex :=0;   //sbdz_pswgcase里的upflag 1在职人员,2中断人员,3异地转放,4中断增加 5中断挂帐人员
  with DataShare_frm.Query1 do
    begin
      close;
      sql.Clear ;                                             // procflg=2 and
      sql.Add('select psseno,yearno,opdate from sbdz_pswgcase where  (upflag=1 or upflag=2)') ;
      prepare;
      open;
      {if recordcount<1 then
        begin
          application.MessageBox('最近没有缴费工资更新汇总业务','恩普软件',mb_iconinformation+mb_ok);
          exit;
        end;}
    end;
end;

procedure TOnlineCheck_frm.FormCreate(Sender: TObject);
var
  s,s1:string;
begin
  inherited;
  with Datashare_frm.Query1 do
    begin
      close;
      sql.Clear ;                     // yearno,                                                                                                                                //                        //
      sql.Add('select distinct psseno,psname,iscode,opcode,dateformat(opdate,'+Quotedstr('yyyy-mm-dd')+') as opdate,procflg,ckcode,dateformat(ckdate,'+Quotedstr('yyyy-mm-dd')+') as ckdate ,notpassnotes from sbdz_pswgcase where (upflag=1 or upflag=2) order by procflg');
      prepare;
      open ;
      RMD1.Close ;
      RMD1.Open ;
      while not eof do
        begin
          s:='';s1:=trim(Fieldbyname('procflg').AsString);
          if s1 <>'' then
             if s1='1' then s:='待申报'
             else if s1='2' then s:='已申报'
             else if s1='4' then s:='申报通过'
             else if s1='6' then s:='申报未通过'; //Fieldbyname('yearno').AsString
          RMD1.AppendRecord(['2004',Fieldbyname('psseno').AsString,Fieldbyname('psname').AsString,
                            Fieldbyname('iscode').AsString ,Fieldbyname('opcode').AsString,Fieldbyname('opdate').AsString,
                          s,Fieldbyname('ckcode').AsString,Fieldbyname('ckdate').AsString,Fieldbyname('notpassnotes').AsString]);
          next;
        end;
    end;

  with Datashare_frm.Query1 do
    begin
      close;
      sql.Clear ;
      sql.Add('select distinct A.psseno,A.yearno,B.psname,B.iscode,A.opcode,A.opdate,A.procflg,A.ckcode,A.ckdate,A.notpassnotes from ');
      sql.Add('sbdz_psagacct A,sbdb_psarch B where a.psseno=b.psseno order by A.procflg');
      prepare;
      open ;
      RMD2.Close ;
      RMD2.Open ;
      while not eof do
        begin
          s:='';s1:=trim(Fieldbyname('procflg').AsString);
          if s1 <>'' then
             if s1='1' then s:='待申报'
             else if s1='2' then s:='已申报'
             else if s1='4' then s:='申报通过'
             else if s1='6' then s:='申报未通过';
          RMD2.AppendRecord([Fieldbyname('yearno').AsString,Fieldbyname('psseno').AsString,Fieldbyname('psname').AsString,
                            Fieldbyname('iscode').AsString ,Fieldbyname('opcode').AsString,Fieldbyname('opdate').AsString,
                          s,Fieldbyname('ckcode').AsString,Fieldbyname('ckdate').AsString,Fieldbyname('notpassnotes').AsString]);
          next;
        end;
    end;

  with Datashare_frm.Query1 do
    begin
      close;
      sql.Clear ;
      sql.Add('select distinct psseno,psname,iscode,opcode,dateformat(opdate,'+Quotedstr('yyyy-mm-dd')+') as opdate,procflg,ckcode,dateformat(ckdate,'+quotedstr('yyyy-mm-dd')+') as ckdate,notpassnotes from sbdz_htarch order by procflg');
      prepare;
      open ;
      RMD3.Close ;
      RMD3.Open ;
      while not eof do
        begin
          s:='';s1:=trim(Fieldbyname('procflg').AsString);
          if s1 <>'' then
             if s1='1' then s:='待申报'
             else if s1='2' then s:='已申报'
             else if s1='4' then s:='申报通过'
             else if s1='6' then s:='申报未通过';
          RMD3.AppendRecord([Fieldbyname('psseno').AsString,Fieldbyname('psname').AsString,
                             Fieldbyname('iscode').AsString,Fieldbyname('opcode').AsString,Fieldbyname('opdate').AsString,
                          s,Fieldbyname('ckcode').AsString,Fieldbyname('ckdate').AsString,Fieldbyname('notpassnotes').AsString]);
          next;
        end;
    end;

   with Datashare_frm.Query1 do
    begin
      close;
      sql.Clear ;
      sql.Add('select distinct psseno,psname,iscode,opcode,opdate,procflg,ckcode,ckdate,notpassnotes from sbdz_pspause order by procflg');
      prepare;
      open ;
      RMD4.Close ;
      RMD4.Open ;
      while not eof do
        begin
          s:='';s1:=trim(Fieldbyname('procflg').AsString);
          if s1 <>'' then
             if s1='1' then s:='待申报'
             else if s1='2' then s:='已申报'
             else if s1='4' then s:='申报通过'
             else if s1='6' then s:='申报未通过';
          RMD4.AppendRecord(['' , Fieldbyname('psseno').AsString,Fieldbyname('psname').AsString,
                            Fieldbyname('iscode').AsString ,Fieldbyname('opcode').AsString,Fieldbyname('opdate').AsString,
                          s,Fieldbyname('ckcode').AsString,Fieldbyname('ckdate').AsString,Fieldbyname('notpassnotes').AsString]);
          next;
        end;
    end;

  with Datashare_frm.Query1 do
    begin
      close;
      sql.Clear ;
      sql.Add('select distinct psseno,yearno,psname,iscode,opcode,dateformat(opdate,'+quotedstr('yyyy-mm-dd')+') as opdate,procflg,ckcode,dateformat(ckdate,'+quotedstr('yyyy-mm-dd')+') as ckdate,notpassnotes from sbdz_rtacct order by procflg');
      prepare;
      open ;
      RMD5.Close ;
      RMD5.Open ;
      while not eof do
        begin
          s:='';s1:=trim(Fieldbyname('procflg').AsString);
          if s1 <>'' then
             if s1='1' then s:='待申报'
             else if s1='2' then s:='已申报'
             else if s1='4' then s:='申报通过'
             else if s1='6' then s:='申报未通过';
          RMD5.AppendRecord([Fieldbyname('yearno').AsString,Fieldbyname('psseno').AsString,Fieldbyname('psname').AsString,
                            Fieldbyname('iscode').AsString ,Fieldbyname('opcode').AsString,Fieldbyname('opdate').AsString,
                          s,Fieldbyname('ckcode').AsString,Fieldbyname('ckdate').AsString,Fieldbyname('notpassnotes').AsString]);
          next;
        end;
    end;
  with Datashare_frm.Query1 do
    begin
      close;
      sql.Clear ;
      sql.Add('select distinct psseno,psname,iscode,opcode,dateformat(opdate,'+quotedstr('yyyy-mm-dd')+') as opdate,procflg,ckcode,dateformat(ckdate,'+quotedstr('yyyy-mm-dd')+') as ckdate, notpassnotes from sbdz_InEsiis order by procflg');
      prepare;
      open ;
      RMD6.Close ;
      RMD6.Open ;
      while not eof do
        begin
          s:='';s1:=trim(Fieldbyname('procflg').AsString);
          if s1 <>'' then
             if s1='1' then s:='待申报'
             else if s1='2' then s:='已申报'
             else if s1='4' then s:='申报通过'
             else if s1='6' then s:='申报未通过';
          RMD6.AppendRecord([Fieldbyname('psseno').AsString,Fieldbyname('psname').AsString,
                            Fieldbyname('iscode').AsString ,Fieldbyname('opcode').AsString,Fieldbyname('opdate').AsString,
                          s,Fieldbyname('ckcode').AsString,Fieldbyname('ckdate').AsString,Fieldbyname('notpassnotes').AsString]);
          next;
        end;
    end;
  with Datashare_frm.Query1 do
    begin
      close;
      sql.Clear ;
      sql.Add('select distinct psseno,psname,iscode,opcode,dateformat(opdate,'+quotedstr('yyyy-mm-dd')+') as opdate,procflg,ckcode,dateformat(ckdate,'+quotedstr('yyyy-mm-dd')+') as ckdate,notpassnotes from account_moving order by procflg');
      prepare;
      open ;
      RMD7.Close ;
      RMD7.Open ;
      while not eof do
        begin
          s:='';s1:=trim(Fieldbyname('procflg').AsString);
          if s1 <>'' then
             if s1='1' then s:='待申报'
             else if s1='2' then s:='已申报'
             else if s1='4' then s:='申报通过'
             else if s1='6' then s:='申报未通过';
          RMD7.AppendRecord([Fieldbyname('psseno').AsString,Fieldbyname('psname').AsString,
                            Fieldbyname('iscode').AsString ,Fieldbyname('opcode').AsString,Fieldbyname('opdate').AsString,
                          s,Fieldbyname('ckcode').AsString,Fieldbyname('ckdate').AsString,Fieldbyname('notpassnotes').AsString]);
          next;
        end;
    end;
   with Datashare_frm.Query1 do
    begin
      close;
      sql.Clear ;
      sql.Add('select distinct psseno,psname,iscode,opcode,dateformat(opdate,'+quotedstr('yyyy-mm-dd')+') as opdate,procflg,ckcode,dateformat(ckdate,'+quotedstr('yyyy-mm-dd')+') as ckdate,notpassnotes from sbdz_rtwage order by procflg');
      prepare;
      open ;
      RMD8.Close ;
      RMD8.Open ;
      while not eof do
        begin
          s:='';s1:=trim(Fieldbyname('procflg').AsString);
          if s1 <>'' then
             if s1='1' then s:='待申报'
             else if s1='2' then s:='已申报'
             else if s1='4' then s:='申报通过'
             else if s1='6' then s:='申报未通过';
          RMD8.AppendRecord([Fieldbyname('psseno').AsString,Fieldbyname('psname').AsString,
                            Fieldbyname('iscode').AsString ,Fieldbyname('opcode').AsString,Fieldbyname('opdate').AsString,
                          s,Fieldbyname('ckcode').AsString,Fieldbyname('ckdate').AsString,Fieldbyname('notpassnotes').AsString]);
          next;
        end;
    end;
end;

end.