F_KYGongZiTiao.frm
资源名称:dbbase.rar [点击查看]
上传用户:xiao_xia32
上传日期:2022-07-21
资源大小:1174k
文件大小:2k
源码类别:
企业管理
开发平台:
Visual Basic
- VERSION 5.00
- Begin VB.Form F_KYGongZiTiao
- BorderStyle = 3 'Fixed Dialog
- Caption = "工资条"
- ClientHeight = 4590
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 7890
- ControlBox = 0 'False
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- Moveable = 0 'False
- ScaleHeight = 4590
- ScaleWidth = 7890
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- WindowState = 2 'Maximized
- Begin VB.CommandButton cmdClose
- Caption = "关闭"
- Height = 300
- Left = 6480
- TabIndex = 5
- Top = 240
- Width = 1095
- End
- Begin VB.CommandButton cmdPrint
- Caption = "打印预览"
- Height = 300
- Left = 5280
- TabIndex = 4
- Top = 240
- Width = 1095
- End
- Begin VB.TextBox Text2
- Height = 285
- Left = 3480
- TabIndex = 3
- Top = 240
- Width = 1455
- End
- Begin VB.TextBox Text1
- Height = 285
- Left = 840
- TabIndex = 1
- Top = 240
- Width = 1455
- End
- Begin VB.Label Label2
- Caption = "月份"
- Height = 255
- Left = 2520
- TabIndex = 2
- Top = 240
- Width = 975
- End
- Begin VB.Label Label1
- Caption = "年度"
- Height = 255
- Left = 120
- TabIndex = 0
- Top = 240
- Width = 1095
- End
- End
- Attribute VB_Name = "F_KYGongZiTiao"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub cmdClose_Click()
- RSGL.Enabled = True
- Unload Me
- End Sub
- Private Sub cmdPrint_Click()
- Dim NianDu As Integer
- Dim YueFen As Integer
- If IsNumeric(Text1) And IsNumeric(Text2) Then
- NianDu = CDbl(Text1)
- YueFen = CDbl(Text2)
- DataEnvironment1.Commands("Cmd_工资条").Parameters("param1").Value = NianDu
- DataEnvironment1.Commands("Cmd_工资条").Parameters("param2").Value = YueFen
- DRP_工资条.Show
- End If
- End Sub