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

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

企业管理

开发平台：

Visual Basic

F_GeRenSuoDeShui.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form F_GeRenSuoDeShui 
  3.    Caption         =   "个人所得税"
  4.    ClientHeight    =   5835
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   8820
  8.    ControlBox      =   0   'False
  9.    LinkTopic       =   "Form1"
  10.    Moveable        =   0   'False
  11.    ScaleHeight     =   5835
  12.    ScaleWidth      =   8820
  13.    StartUpPosition =   2  'CenterScreen
  14.    WindowState     =   2  'Maximized
  15.    Begin VB.TextBox Text1 
  16.       Height          =   285
  17.       Left            =   840
  18.       TabIndex        =   3
  19.       Top             =   120
  20.       Width           =   1455
  21.    End
  22.    Begin VB.TextBox Text2 
  23.       Height          =   285
  24.       Left            =   3480
  25.       TabIndex        =   2
  26.       Top             =   120
  27.       Width           =   1455
  28.    End
  29.    Begin VB.CommandButton cmdPrint 
  30.       Caption         =   "打印预览"
  31.       Height          =   300
  32.       Left            =   5280
  33.       TabIndex        =   1
  34.       Top             =   120
  35.       Width           =   1095
  36.    End
  37.    Begin VB.CommandButton cmdClose 
  38.       Caption         =   "关闭"
  39.       Height          =   300
  40.       Left            =   6480
  41.       TabIndex        =   0
  42.       Top             =   120
  43.       Width           =   1095
  44.    End
  45.    Begin VB.Label Label1 
  46.       Caption         =   "年度"
  47.       Height          =   255
  48.       Left            =   120
  49.       TabIndex        =   5
  50.       Top             =   120
  51.       Width           =   1095
  52.    End
  53.    Begin VB.Label Label2 
  54.       Caption         =   "月份"
  55.       Height          =   255
  56.       Left            =   2520
  57.       TabIndex        =   4
  58.       Top             =   120
  59.       Width           =   975
  60.    End
  61. End
  62. Attribute VB_Name = "F_GeRenSuoDeShui"
  63. Attribute VB_GlobalNameSpace = False
  64. Attribute VB_Creatable = False
  65. Attribute VB_PredeclaredId = True
  66. Attribute VB_Exposed = False
  67. Private Sub cmdClose_Click()
  68. RSGL.Enabled = True
  69. Unload Me
  71. End Sub
  73. Private Sub cmdPrint_Click()
  74. Dim NianDu As Integer
  75. Dim YueFen As Integer
  77. If IsNumeric(Text1) And IsNumeric(Text2) Then
  78.   NianDu = CDbl(Text1)
  79.   YueFen = CDbl(Text2)
  83. DataEnvironment1.Commands("Cmd_个人所得税 ").Parameters("param1").Value = NianDu
  84. DataEnvironment1.Commands("Cmd_个人所得税 ").Parameters("param2").Value = YueFen
  85. DRP_个人所得税.Show
  88. End If
  89. End Sub