开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
frm_失业保险记录.frm
资源名称：dbbase.rar　[点击查看]
上传用户：xiao_xia32
上传日期：2022-07-21
资源大小：1174k
文件大小：19k
源码类别：

企业管理

开发平台：

Visual Basic

frm_失业保险记录.frm：源码内容
  1. VERSION 5.00
  2. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  3. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  4. Begin VB.Form frm_SYBXJL 
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "失业保险记录"
  7.    ClientHeight    =   5505
  8.    ClientLeft      =   1095
  9.    ClientTop       =   330
  10.    ClientWidth     =   8130
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   5505
  16.    ScaleWidth      =   8130
  17.    Begin VB.Frame Frame1 
  18.       Height          =   5535
  19.       Left            =   30
  20.       TabIndex        =   0
  21.       Top             =   -30
  22.       Width           =   8085
  23.       Begin TabDlg.SSTab SSTab1 
  24.          Height          =   5115
  25.          Left            =   150
  26.          TabIndex        =   1
  27.          Top             =   360
  28.          Width           =   7845
  29.          _ExtentX        =   13838
  30.          _ExtentY        =   9022
  31.          _Version        =   393216
  32.          Style           =   1
  33.          Tabs            =   2
  34.          TabHeight       =   520
  35.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.             Name            =   "宋体"
  37.             Size            =   9
  38.             Charset         =   134
  39.             Weight          =   400
  40.             Underline       =   0   'False
  41.             Italic          =   0   'False
  42.             Strikethrough   =   0   'False
  43.          EndProperty
  44.          TabCaption(0)   =   "录入"
  45.          TabPicture(0)   =   "frm_失业保险记录.frx":0000
  46.          Tab(0).ControlEnabled=   -1  'True
  47.          Tab(0).Control(0)=   "lblLabels(1)"
  48.          Tab(0).Control(0).Enabled=   0   'False
  49.          Tab(0).Control(1)=   "lblLabels(2)"
  50.          Tab(0).Control(1).Enabled=   0   'False
  51.          Tab(0).Control(2)=   "lblLabels(3)"
  52.          Tab(0).Control(2).Enabled=   0   'False
  53.          Tab(0).Control(3)=   "lblLabels(4)"
  54.          Tab(0).Control(3).Enabled=   0   'False
  55.          Tab(0).Control(4)=   "lblLabels(5)"
  56.          Tab(0).Control(4).Enabled=   0   'False
  57.          Tab(0).Control(5)=   "lblLabels(6)"
  58.          Tab(0).Control(5).Enabled=   0   'False
  59.          Tab(0).Control(6)=   "lblLabels(7)"
  60.          Tab(0).Control(6).Enabled=   0   'False
  61.          Tab(0).Control(7)=   "lblLabels(8)"
  62.          Tab(0).Control(7).Enabled=   0   'False
  63.          Tab(0).Control(8)=   "TXT_ND"
  64.          Tab(0).Control(8).Enabled=   0   'False
  65.          Tab(0).Control(9)=   "TXT_GZZE"
  66.          Tab(0).Control(9).Enabled=   0   'False
  67.          Tab(0).Control(10)=   "TXT_YJZJ"
  68.          Tab(0).Control(10).Enabled=   0   'False
  69.          Tab(0).Control(11)=   "TXT_DWYJE"
  70.          Tab(0).Control(11).Enabled=   0   'False
  71.          Tab(0).Control(12)=   "TXT_JFRS"
  72.          Tab(0).Control(12).Enabled=   0   'False
  73.          Tab(0).Control(13)=   "TXT_GRYJE"
  74.          Tab(0).Control(13).Enabled=   0   'False
  75.          Tab(0).Control(14)=   "TXT_YJJE"
  76.          Tab(0).Control(14).Enabled=   0   'False
  77.          Tab(0).Control(15)=   "cmdUpdate"
  78.          Tab(0).Control(15).Enabled=   0   'False
  79.          Tab(0).Control(16)=   "cmdRefresh"
  80.          Tab(0).Control(16).Enabled=   0   'False
  81.          Tab(0).Control(17)=   "cmdClose"
  82.          Tab(0).Control(17).Enabled=   0   'False
  83.          Tab(0).Control(18)=   "Picture1"
  84.          Tab(0).Control(18).Enabled=   0   'False
  85.          Tab(0).Control(19)=   "RQ"
  86.          Tab(0).Control(19).Enabled=   0   'False
  87.          Tab(0).ControlCount=   20
  88.          TabCaption(1)   =   "列表"
  89.          TabPicture(1)   =   "frm_失业保险记录.frx":001C
  90.          Tab(1).ControlEnabled=   0   'False
  91.          Tab(1).ControlCount=   0
  92.          Begin MSComCtl2.DTPicker RQ 
  93.             Height          =   315
  94.             Left            =   4710
  95.             TabIndex        =   21
  96.             Top             =   1590
  97.             Width           =   1515
  98.             _ExtentX        =   2672
  99.             _ExtentY        =   556
  100.             _Version        =   393216
  101.             Format          =   24838145
  102.             CurrentDate     =   36305
  103.          End
  104.          Begin VB.PictureBox Picture1 
  105.             BackColor       =   &H00808000&
  106.             Height          =   3165
  107.             Left            =   120
  108.             ScaleHeight     =   3105
  109.             ScaleWidth      =   2295
  110.             TabIndex        =   20
  111.             Top             =   1140
  112.             Width           =   2355
  113.          End
  114.          Begin VB.CommandButton cmdClose 
  115.             Caption         =   "关闭"
  116.             BeginProperty Font 
  117.                Name            =   "宋体"
  118.                Size            =   9
  119.                Charset         =   134
  120.                Weight          =   400
  121.                Underline       =   0   'False
  122.                Italic          =   0   'False
  123.                Strikethrough   =   0   'False
  124.             EndProperty
  125.             Height          =   390
  126.             Left            =   6810
  127.             TabIndex        =   19
  128.             Top             =   4650
  129.             Width           =   915
  130.          End
  131.          Begin VB.CommandButton cmdRefresh 
  132.             Caption         =   "刷新"
  133.             BeginProperty Font 
  134.                Name            =   "宋体"
  135.                Size            =   9
  136.                Charset         =   134
  137.                Weight          =   400
  138.                Underline       =   0   'False
  139.                Italic          =   0   'False
  140.                Strikethrough   =   0   'False
  141.             EndProperty
  142.             Height          =   390
  143.             Left            =   5715
  144.             TabIndex        =   18
  145.             Top             =   4650
  146.             Width           =   915
  147.          End
  148.          Begin VB.CommandButton cmdUpdate 
  149.             Caption         =   "保存"
  150.             BeginProperty Font 
  151.                Name            =   "宋体"
  152.                Size            =   9
  153.                Charset         =   134
  154.                Weight          =   400
  155.                Underline       =   0   'False
  156.                Italic          =   0   'False
  157.                Strikethrough   =   0   'False
  158.             EndProperty
  159.             Height          =   390
  160.             Left            =   4650
  161.             TabIndex        =   17
  162.             Top             =   4650
  163.             Width           =   915
  164.          End
  165.          Begin VB.TextBox TXT_YJJE 
  166.             DataField       =   "全年应缴金额"
  167.             BeginProperty DataFormat 
  168.                Type            =   1
  169.                Format          =   """￥""#,##0.00"
  170.                HaveTrueFalseNull=   0
  171.                FirstDayOfWeek  =   0
  172.                FirstWeekOfYear =   0
  173.                LCID            =   2052
  174.                SubFormatType   =   2
  175.             EndProperty
  176.             DataSource      =   "datPrimaryRS"
  177.             BeginProperty Font 
  178.                Name            =   "宋体"
  179.                Size            =   9
  180.                Charset         =   134
  181.                Weight          =   400
  182.                Underline       =   0   'False
  183.                Italic          =   0   'False
  184.                Strikethrough   =   0   'False
  185.             EndProperty
  186.             Height          =   285
  187.             Left            =   4710
  188.             TabIndex        =   16
  189.             Top             =   4035
  190.             Width           =   2895
  191.          End
  192.          Begin VB.TextBox TXT_GRYJE 
  193.             DataField       =   "季度个人应缴额"
  194.             BeginProperty DataFormat 
  195.                Type            =   1
  196.                Format          =   """￥""#,##0.00"
  197.                HaveTrueFalseNull=   0
  198.                FirstDayOfWeek  =   0
  199.                FirstWeekOfYear =   0
  200.                LCID            =   2052
  201.                SubFormatType   =   2
  202.             EndProperty
  203.             DataSource      =   "datPrimaryRS"
  204.             BeginProperty Font 
  205.                Name            =   "宋体"
  206.                Size            =   9
  207.                Charset         =   134
  208.                Weight          =   400
  209.                Underline       =   0   'False
  210.                Italic          =   0   'False
  211.                Strikethrough   =   0   'False
  212.             EndProperty
  213.             Height          =   285
  214.             Left            =   4710
  215.             TabIndex        =   14
  216.             Top             =   3195
  217.             Width           =   2895
  218.          End
  219.          Begin VB.TextBox TXT_JFRS 
  220.             DataField       =   "季度缴费人数"
  221.             DataSource      =   "datPrimaryRS"
  222.             BeginProperty Font 
  223.                Name            =   "宋体"
  224.                Size            =   9
  225.                Charset         =   134
  226.                Weight          =   400
  227.                Underline       =   0   'False
  228.                Italic          =   0   'False
  229.                Strikethrough   =   0   'False
  230.             EndProperty
  231.             Height          =   285
  232.             Left            =   4710
  233.             TabIndex        =   12
  234.             Top             =   2400
  235.             Width           =   2895
  236.          End
  237.          Begin VB.TextBox TXT_DWYJE 
  238.             DataField       =   "季度单位应缴额"
  239.             BeginProperty DataFormat 
  240.                Type            =   1
  241.                Format          =   """￥""#,##0.00"
  242.                HaveTrueFalseNull=   0
  243.                FirstDayOfWeek  =   0
  244.                FirstWeekOfYear =   0
  245.                LCID            =   2052
  246.                SubFormatType   =   2
  247.             EndProperty
  248.             DataSource      =   "datPrimaryRS"
  249.             BeginProperty Font 
  250.                Name            =   "宋体"
  251.                Size            =   9
  252.                Charset         =   134
  253.                Weight          =   400
  254.                Underline       =   0   'False
  255.                Italic          =   0   'False
  256.                Strikethrough   =   0   'False
  257.             EndProperty
  258.             Height          =   285
  259.             Left            =   4710
  260.             TabIndex        =   10
  261.             Top             =   2775
  262.             Width           =   2895
  263.          End
  264.          Begin VB.TextBox TXT_YJZJ 
  265.             DataField       =   "季度应缴总计"
  266.             BeginProperty DataFormat 
  267.                Type            =   1
  268.                Format          =   """￥""#,##0.00"
  269.                HaveTrueFalseNull=   0
  270.                FirstDayOfWeek  =   0
  271.                FirstWeekOfYear =   0
  272.                LCID            =   2052
  273.                SubFormatType   =   2
  274.             EndProperty
  275.             DataSource      =   "datPrimaryRS"
  276.             BeginProperty Font 
  277.                Name            =   "宋体"
  278.                Size            =   9
  279.                Charset         =   134
  280.                Weight          =   400
  281.                Underline       =   0   'False
  282.                Italic          =   0   'False
  283.                Strikethrough   =   0   'False
  284.             EndProperty
  285.             Height          =   285
  286.             Left            =   4710
  287.             TabIndex        =   8
  288.             Top             =   3615
  289.             Width           =   2895
  290.          End
  291.          Begin VB.TextBox TXT_GZZE 
  292.             DataField       =   "应缴职工年工资总额"
  293.             BeginProperty DataFormat 
  294.                Type            =   0
  295.                Format          =   """￥""#,##0.00"
  296.                HaveTrueFalseNull=   0
  297.                FirstDayOfWeek  =   0
  298.                FirstWeekOfYear =   0
  299.                LCID            =   2052
  300.                SubFormatType   =   0
  301.             EndProperty
  302.             DataSource      =   "datPrimaryRS"
  303.             BeginProperty Font 
  304.                Name            =   "宋体"
  305.                Size            =   9
  306.                Charset         =   134
  307.                Weight          =   400
  308.                Underline       =   0   'False
  309.                Italic          =   0   'False
  310.                Strikethrough   =   0   'False
  311.             EndProperty
  312.             Height          =   285
  313.             Left            =   4710
  314.             TabIndex        =   6
  315.             Top             =   2010
  316.             Width           =   2895
  317.          End
  318.          Begin VB.TextBox TXT_ND 
  319.             DataField       =   "年度"
  320.             DataSource      =   "datPrimaryRS"
  321.             BeginProperty Font 
  322.                Name            =   "宋体"
  323.                Size            =   9
  324.                Charset         =   134
  325.                Weight          =   400
  326.                Underline       =   0   'False
  327.                Italic          =   0   'False
  328.                Strikethrough   =   0   'False
  329.             EndProperty
  330.             Height          =   285
  331.             Left            =   4710
  332.             TabIndex        =   3
  333.             Top             =   1215
  334.             Width           =   2895
  335.          End
  336.          Begin VB.Label lblLabels 
  337.             Caption         =   "全年应缴金额:"
  338.             BeginProperty Font 
  339.                Name            =   "宋体"
  340.                Size            =   9
  341.                Charset         =   134
  342.                Weight          =   400
  343.                Underline       =   0   'False
  344.                Italic          =   0   'False
  345.                Strikethrough   =   0   'False
  346.             EndProperty
  347.             Height          =   255
  348.             Index           =   8
  349.             Left            =   2790
  350.             TabIndex        =   15
  351.             Top             =   4035
  352.             Width           =   1725
  353.          End
  354.          Begin VB.Label lblLabels 
  355.             Caption         =   "季度个人应缴额:"
  356.             BeginProperty Font 
  357.                Name            =   "宋体"
  358.                Size            =   9
  359.                Charset         =   134
  360.                Weight          =   400
  361.                Underline       =   0   'False
  362.                Italic          =   0   'False
  363.                Strikethrough   =   0   'False
  364.             EndProperty
  365.             Height          =   255
  366.             Index           =   7
  367.             Left            =   2790
  368.             TabIndex        =   13
  369.             Top             =   3255
  370.             Width           =   1725
  371.          End
  372.          Begin VB.Label lblLabels 
  373.             Caption         =   "季度缴费人数:"
  374.             BeginProperty Font 
  375.                Name            =   "宋体"
  376.                Size            =   9
  377.                Charset         =   134
  378.                Weight          =   400
  379.                Underline       =   0   'False
  380.                Italic          =   0   'False
  381.                Strikethrough   =   0   'False
  382.             EndProperty
  383.             Height          =   255
  384.             Index           =   6
  385.             Left            =   2790
  386.             TabIndex        =   11
  387.             Top             =   2460
  388.             Width           =   1725
  389.          End
  390.          Begin VB.Label lblLabels 
  391.             Caption         =   "季度单位应缴额:"
  392.             BeginProperty Font 
  393.                Name            =   "宋体"
  394.                Size            =   9
  395.                Charset         =   134
  396.                Weight          =   400
  397.                Underline       =   0   'False
  398.                Italic          =   0   'False
  399.                Strikethrough   =   0   'False
  400.             EndProperty
  401.             Height          =   255
  402.             Index           =   5
  403.             Left            =   2790
  404.             TabIndex        =   9
  405.             Top             =   2835
  406.             Width           =   1725
  407.          End
  408.          Begin VB.Label lblLabels 
  409.             Caption         =   "季度应缴总计:"
  410.             BeginProperty Font 
  411.                Name            =   "宋体"
  412.                Size            =   9
  413.                Charset         =   134
  414.                Weight          =   400
  415.                Underline       =   0   'False
  416.                Italic          =   0   'False
  417.                Strikethrough   =   0   'False
  418.             EndProperty
  419.             Height          =   255
  420.             Index           =   4
  421.             Left            =   2790
  422.             TabIndex        =   7
  423.             Top             =   3645
  424.             Width           =   1725
  425.          End
  426.          Begin VB.Label lblLabels 
  427.             Caption         =   "应缴职工年工资总额:"
  428.             BeginProperty Font 
  429.                Name            =   "宋体"
  430.                Size            =   9
  431.                Charset         =   134
  432.                Weight          =   400
  433.                Underline       =   0   'False
  434.                Italic          =   0   'False
  435.                Strikethrough   =   0   'False
  436.             EndProperty
  437.             Height          =   255
  438.             Index           =   3
  439.             Left            =   2790
  440.             TabIndex        =   5
  441.             Top             =   2070
  442.             Width           =   1725
  443.          End
  444.          Begin VB.Label lblLabels 
  445.             Caption         =   "日期："
  446.             BeginProperty Font 
  447.                Name            =   "宋体"
  448.                Size            =   9
  449.                Charset         =   134
  450.                Weight          =   400
  451.                Underline       =   0   'False
  452.                Italic          =   0   'False
  453.                Strikethrough   =   0   'False
  454.             EndProperty
  455.             Height          =   255
  456.             Index           =   2
  457.             Left            =   2790
  458.             TabIndex        =   4
  459.             Top             =   1665
  460.             Width           =   1725
  461.          End
  462.          Begin VB.Label lblLabels 
  463.             Caption         =   "年度:"
  464.             BeginProperty Font 
  465.                Name            =   "宋体"
  466.                Size            =   9
  467.                Charset         =   134
  468.                Weight          =   400
  469.                Underline       =   0   'False
  470.                Italic          =   0   'False
  471.                Strikethrough   =   0   'False
  472.             EndProperty
  473.             Height          =   255
  474.             Index           =   1
  475.             Left            =   2790
  476.             TabIndex        =   2
  477.             Top             =   1290
  478.             Width           =   1725
  479.          End
  480.       End
  481.    End
  482. End
  483. Attribute VB_Name = "frm_SYBXJL"
  484. Attribute VB_GlobalNameSpace = False
  485. Attribute VB_Creatable = False
  486. Attribute VB_PredeclaredId = True
  487. Attribute VB_Exposed = False
  488. Private Sub cmdClose_Click()
  489.     RSGL.Enabled = True
  490.     Unload Me
  491. End Sub
  493. Private Sub Form_Load()
  494.     RQ = Date
  495.     TXT_ND = Year(RQ)
  496.     SQL = "SELECT * FROM 员工基本信息 where 档案转入时间<'" & TXT_ND & "'"
  497.     Set rs = ConnWZ.Execute(SQL)
  498.     If rs.EOF Then Exit Sub
  499.     TXT_JFRS = rs.RecordCount
  500.     
  501.     SQL = "select * from 比例基数维护表 where 年度=" & Val(TXT_ND) & ""
  502.     Set rs = ConnWZ.Execute(SQL)
  503.     If rs.EOF Then Exit Sub
  504.     TXT_GZZE = rs("年工资总额")
  505.     TXT_DWYJE = FormatCurrency(Val(TXT_GZZE) * rs("失业单位比例") / 4)
  506.     TXT_GRYJE = FormatCurrency(Val(rs("失业保险扣款") * Val(TXT_JFRS) * 3))
  507.     TXT_YJZJ = FormatCurrency(Val(Format(TXT_GRYJE)) + Val(Format(TXT_DWYJE)))
  508.     TXT_YJJE = FormatCurrency(Val(Format(TXT_YJZJ)) * 4)
  509. End Sub