frmcheckman.frm

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

         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   10320
      MouseIcon       =   "FrmCheckMan.frx":2251
      MousePointer    =   99  'Custom
      TabIndex        =   6
      Top             =   8040
      Width           =   615
   End
   Begin VB.Image Image4 
      Height          =   300
      Left            =   9720
      Picture         =   "FrmCheckMan.frx":255B
      Top             =   8040
      Width           =   300
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "选择部门"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   8400
      TabIndex        =   9
      Top             =   960
      Width           =   1020
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "选择月份"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   3240
      TabIndex        =   8
      Top             =   960
      Width           =   1020
   End
End
Attribute VB_Name = "FrmCheckMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Refresh_Check()
    
    '    If CurDep.Dep_Id <= 0 Then
    '      DataGrid1.Visible = False
    '      Exit Sub
    '    End If
    '    DataGrid1.Visible = True
    Adodc1.RecordSource = "SELECT e.Emp_Id as 员工编号," _
                           + "e.Emp_Name as 员工姓名, c.DaysOfMonth as 当月天数, c.qqDays as 全勤天数," _
                           + "c.bjDays as 病假天数, c.sjDays as 事假天数, c.kgDays as 旷工天数," _
                           + "c.fdxjDays as 法定休假天数, c.nxjDays as 年休假天数, c.dxjDays as 倒休假天数," _
                           + "c.cxDays as 出差天数, c.cdDays as 迟到天数, c.ZtDays as 早退天数," _
                           + "c.Ot1Days as 一类加班天数, c.Ot2Days as 二类加班天数, c.Ot3Days as 三类加班天数" _
                           + " FROM Employees e, Checkin c WHERE c.CheckinMonth='" _
                           + ComboY.Text + "-" + ComboM.Text + "' And e.Emp_Id=c.Emp_Id" _
                           + " And e.Dep_Id=" + Trim(Str(CurDep.Dep_Id))
    
    '  Else
    '    Adodc1.RecordSource = "SELECT e.Emp_Id as 员工编号," _
    '        + "e.Emp_Name as 员工姓名, c.DaysOfMonth as 当月天数, c.qqDays as 全勤天数," _
    '        + "c.bjDays as 病假天数, c.sjDays as 事假天数, c.kgDays as 旷工天数," _
    '        + "c.fdxjDays as 法定休假天数, c.nxjDays as 年休假天数, c.dxjDays as 倒休假天数," _
    '        + "c.cxDays as 出差天数, c.cdDays as 迟到天数, c.ZtDays as 早退天数," _
    '        + "c.Ot1Days as 一类加班天数, c.Ot2Days as 二类加班天数, c.Ot3Days as 三类加班天数" _
    '        + " FROM Employees e, Checkin c WHERE c.CheckinMonth='" _
    '        + ComboY.Text + "-" + ComboM.Text + "' And e.Emp_Id=c.Emp_Id" _
    '        + " And (e.Emp_Id=" + Trim(Str(CurUser.Emp_Id)) + " Or e.UpperId=" _
    '        + Trim(Str(CurUser.Emp_Id)) + " And e.UpperId<>0)"
    '  End If
    
    Adodc1.Refresh
    
    If ComboDep.Text <> "" Then
        LblAdd.Enabled = True
        LblModify.Enabled = True
        LblDelete.Enabled = True
        
    End If
End Sub
Private Sub ComboDep_GotFocus()
    ComboY.SetFocus
    '设置frmdepsel窗体的位置
    FrmDepSel.Left = Me.Left + ComboDep.Left + 350 - FrmDepSel.Width
    FrmDepSel.Top = Me.Top + ComboDep.Top + ComboDep.Height + 450
    FrmDepSel.Show 1
    '将选择的员工姓名显示到ComboUpper控件中
    ComboDep.Text = CurDep.Dep_name
    Refresh_Check
End Sub

Private Sub ComboM_Click()
    Refresh_Check
End Sub

Private Sub ComboY_Click()
    Refresh_Check
End Sub

Private Sub Form_Load()
    Adodc1.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=ERP"
    Adodc1.RecordSource = "SELECT * FROM Checkin"
    Adodc1.Refresh
    
    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
    ComboDep.Text = ""
    
    
    LblAdd.Enabled = False
    LblModify.Enabled = False
    LblDelete.Enabled = False
    
    Refresh_Check
    
End Sub

Private Sub LblAdd_Click()
    Dim mm As Integer
    FrmCheckEdit.lblMonth = ComboY.Text + "-" + ComboM.Text
    mm = Val(ComboM.Text)
    Select Case mm
        Case 1, 3, 5, 7, 8, 10, 12
            FrmCheckEdit.lblDays = 31
        Case 4, 6, 9, 11
            FrmCheckEdit.lblDays = 30
        Case 2
            If IsDate(lblMonth + "-29") = True Then
                FrmCheckEdit.lblDays = 29
            Else
                FrmCheckEdit.lblDays = 28
            End If
    End Select
    UpperEmp.Init
    FrmCheckEdit.ComboName.Text = ""
    FrmCheckEdit.ComboQq.ListIndex = 0
    FrmCheckEdit.ComboBj.ListIndex = 0
    FrmCheckEdit.ComboSj.ListIndex = 0
    FrmCheckEdit.ComboKg.ListIndex = 0
    FrmCheckEdit.ComboFdxj.ListIndex = 0
    FrmCheckEdit.ComboNxj.ListIndex = 0
    FrmCheckEdit.ComboDxj.ListIndex = 0
    FrmCheckEdit.ComboCx.ListIndex = 0
    FrmCheckEdit.ComboCd.ListIndex = 0
    FrmCheckEdit.ComboZt.ListIndex = 0
    FrmCheckEdit.ComboOt1.ListIndex = 0
    FrmCheckEdit.ComboOt2.ListIndex = 0
    FrmCheckEdit.ComboOt3.ListIndex = 0
    FrmCheckEdit.Modify = False
    FrmCheckEdit.Show 1
    If FrmCheckEdit.TmpOk = True Then
        ComboDep.Text = CurDep.Dep_name
        Refresh_Check
    End If
End Sub

Private Sub LblBack_Click()
    Unload Me
End Sub

Private Sub LblDelete_Click()
    Dim TmpId As Long
    If Adodc1.Recordset.BOF = True Then
        MsgBox "请选择记录"
        Exit Sub
    End If
    
    TmpId = Adodc1.Recordset.Fields(0)
    If MsgBox("是否删除当前行?", vbYesNo, "确认") = vbYes Then
        Call MyCheck.Delete(ComboY.Text + "-" + ComboM.Text, TmpId)
    End If
    Refresh_Check
End Sub

Private Sub LblModify_Click()
    If Adodc1.Recordset.BOF = True Then
        MsgBox "请选择记录"
        Exit Sub
    End If
    '初始化FrmCheckEdit信息
    FrmCheckEdit.lblMonth = ComboY.Text + "-" + ComboM.Text
    FrmCheckEdit.OriEmpId = Adodc1.Recordset.Fields(0)
    UpperEmp.Emp_Id = FrmCheckEdit.OriEmpId
    UpperEmp.GetInfo (UpperEmp.Emp_Id)
    FrmCheckEdit.ComboName.Text = UpperEmp.Emp_Name
    
    FrmCheckEdit.lblDays = Adodc1.Recordset.Fields(2)
    FrmCheckEdit.ComboQq.Text = Adodc1.Recordset.Fields(3)
    FrmCheckEdit.ComboBj.Text = Adodc1.Recordset.Fields(4)
    FrmCheckEdit.ComboSj.Text = Adodc1.Recordset.Fields(5)
    FrmCheckEdit.ComboKg.Text = Adodc1.Recordset.Fields(6)
    FrmCheckEdit.ComboFdxj.Text = Adodc1.Recordset.Fields(7)
    FrmCheckEdit.ComboNxj.Text = Adodc1.Recordset.Fields(8)
    FrmCheckEdit.ComboDxj.Text = Adodc1.Recordset.Fields(9)
    FrmCheckEdit.ComboCx.Text = Adodc1.Recordset.Fields(10)
    FrmCheckEdit.ComboCd.Text = Adodc1.Recordset.Fields(11)
    FrmCheckEdit.ComboZt.Text = Adodc1.Recordset.Fields(12)
    FrmCheckEdit.ComboOt1.Text = Adodc1.Recordset.Fields(13)
    FrmCheckEdit.ComboOt2.Text = Adodc1.Recordset.Fields(14)
    FrmCheckEdit.ComboOt3.Text = Adodc1.Recordset.Fields(15)
    FrmCheckEdit.Modify = True
    FrmCheckEdit.Show 1
    If FrmCheckEdit.TmpOk = True Then
        ComboDep.Text = CurDep.Dep_name
        Refresh_Check
    End If
End Sub