F_KYGongZiTiao.frm
上传用户:xiao_xia32
上传日期:2022-07-21
资源大小:1174k
文件大小:2k
源码类别:

企业管理

开发平台:

Visual Basic

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