frmcheckqury.frm

这是一个利用VB编写的中小企业ERP。功能比较全

Version 5.00
Begin VB.Form FrmCheckQury
    Caption = "考勤查询"
    ClientHeight = 2295
    ClientLeft = 60
    ClientTop = 510
    ClientWidth = 5220
    Icon = "FrmCheckQury.frx":0000
    LinkTopic = "Form1"
    ScaleHeight = 2295
    ScaleWidth = 5220
    StartUpPosition = 2 'CenterScreen
    Begin VB.ComboBox ComboY
        Height = 315
        Left = 1440
        TabIndex = 0
        Text = "Combo1"
        Top = 840
        Width = 1095
    End
    Begin VB.ComboBox ComboM
        Height = 315
        Left = 3120
        TabIndex = 1
        Text = "Combo1"
        Top = 840
        Width = 735
    End
    Begin VB.Label Label1
        Caption = "请选择要查询的月份："
        BeginProperty Font
        Name = "宋体"
        Size = 15
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 375
        Left = 360
        TabIndex = 4
        Top = 240
        Width = 3375
    End
    Begin VB.Label LblOK
        BackStyle = 0 'Transparent
        Caption = "确 定"
        BeginProperty Font
        Name = "宋体"
        Size = 12
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 255
        Left = 1560
        MouseIcon = "FrmCheckQury.frx":0CCA
        MousePointer = 99 'Custom
        TabIndex = 2
        Top = 1560
        Width = 735
    End
    Begin VB.Image Image3
        Height = 300
        Left = 960
        Picture = "FrmCheckQury.frx":0FD4
        Top = 1560
        Width = 300
    End
    Begin VB.Label LblCancel
        BackStyle = 0 'Transparent
        Caption = "取 消"
        BeginProperty Font
        Name = "宋体"
        Size = 12
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 255
        Left = 3600
        MouseIcon = "FrmCheckQury.frx":13F0
        MousePointer = 99 'Custom
        TabIndex = 3
        Top = 1560
        Width = 855
    End
    Begin VB.Image Image4
        Height = 300
        Left = 3000
        Picture = "FrmCheckQury.frx":16FA
        Top = 1560
        Width = 300
    End
End
Attribute VB_Name = "FrmCheckQury"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
    Dim yy, mm As Integer
    '初始化窗体控件
    For i = 1999 To 2100
        ComboY.AddItem Trim(Str(i))
    Next
    For i = 1 To 12
        ComboM.AddItem Trim(Str(i))
    Next
    yy = Year(Now)
    If yy > 1998 And yy < 2101 Then
        ComboY.Text = Trim(Str(yy))
    End If
    mm = Month(Now)
    If mm > 0 And mm < 13 Then
        ComboM.Text = Trim(Str(mm))
    End If
    
End Sub

Private Sub LblCancel_Click()
    Unload Me
    
End Sub

Private Sub LblOK_Click()
    DataEnvironmentManpower.CmdCheck (Trim(ComboY.Text + "-" + ComboM.Text))
    DataReportCheckin.Show 1
    DataEnvironmentManpower.rsCmdCheck.Close
    Unload Me
End Sub