frmviewclassedit.frm

考勤机管理软件,用于统计某段时间某个部门或者某个员工在某段内迟到与早退次数.

VERSION 5.00
Object = "{809F5ECB-E545-4F7D-A8A8-CBFF5617AADC}#1.0#0"; "xCombox.ocx"
Object = "{7DE2015C-ABB4-4432-9634-EA5170D02672}#1.0#0"; "sTextBox.ocx"
Object = "{811B8E4F-88E3-4162-88A6-CC4C86342FB1}#1.0#0"; "sDTPicker.ocx"
Begin VB.Form frmViewClassEdit 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Form1"
   ClientHeight    =   4770
   ClientLeft      =   45
   ClientTop       =   450
   ClientWidth     =   4065
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4770
   ScaleWidth      =   4065
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin XCOMBOXLib.XCombox cmbEndTime 
      Height          =   300
      Left            =   1350
      TabIndex        =   15
      Top             =   2070
      Width           =   2310
      _Version        =   65536
      _ExtentX        =   4075
      _ExtentY        =   300
      _StockProps     =   68
   End
   Begin XCOMBOXLib.XCombox cmbBeginTime 
      Height          =   300
      Left            =   1350
      TabIndex        =   14
      Top             =   1710
      Width           =   2310
      _Version        =   65536
      _ExtentX        =   4075
      _ExtentY        =   300
      _StockProps     =   68
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "取消"
      Height          =   375
      Left            =   2340
      TabIndex        =   13
      Top             =   4050
      Width           =   1185
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Height          =   375
      Left            =   450
      TabIndex        =   12
      Top             =   4050
      Width           =   1185
   End
   Begin STEXTBOXLib.STextBox txtMemo 
      Height          =   960
      Left            =   1350
      TabIndex        =   5
      Top             =   2790
      Width           =   2310
      _Version        =   65536
      _ExtentX        =   4075
      _ExtentY        =   1693
      _StockProps     =   68
      ScrollBars      =   2
      MultiLine       =   -1  'True
   End
   Begin XCOMBOXLib.XCombox cmbTimeMode 
      Height          =   300
      Left            =   1350
      TabIndex        =   4
      Top             =   1350
      Width           =   2310
      _Version        =   65536
      _ExtentX        =   4075
      _ExtentY        =   300
      _StockProps     =   68
   End
   Begin SDTPICKERLib.SDTPicker dtpBeginTime 
      Height          =   300
      Left            =   1350
      TabIndex        =   3
      Top             =   630
      Width           =   2310
      _Version        =   65536
      _ExtentX        =   4075
      _ExtentY        =   300
      _StockProps     =   68
   End
   Begin SDTPICKERLib.SDTPicker dtpEndTime 
      Height          =   300
      Left            =   1350
      TabIndex        =   2
      Top             =   990
      Width           =   2310
      _Version        =   65536
      _ExtentX        =   4075
      _ExtentY        =   300
      _StockProps     =   68
   End
   Begin XCOMBOXLib.XCombox cmbEmployee 
      Height          =   300
      Left            =   1350
      TabIndex        =   1
      Top             =   270
      Width           =   2310
      _Version        =   65536
      _ExtentX        =   4075
      _ExtentY        =   300
      _StockProps     =   68
   End
   Begin XCOMBOXLib.XCombox cmbClass 
      Height          =   300
      Left            =   1350
      TabIndex        =   0
      Top             =   2430
      Width           =   2310
      _Version        =   65536
      _ExtentX        =   4075
      _ExtentY        =   300
      _StockProps     =   68
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      Caption         =   "结束日期："
      Height          =   195
      Left            =   360
      TabIndex        =   17
      Top             =   990
      Width           =   900
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      Caption         =   "开始日期："
      Height          =   195
      Left            =   360
      TabIndex        =   16
      Top             =   630
      Width           =   900
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "备　　注："
      Height          =   195
      Left            =   360
      TabIndex        =   11
      Top             =   2835
      Width           =   900
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "所属班次："
      Height          =   195
      Left            =   360
      TabIndex        =   10
      Top             =   2460
      Width           =   900
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "结束时间："
      Height          =   195
      Left            =   360
      TabIndex        =   9
      Top             =   2085
      Width           =   900
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "开始时间："
      Height          =   195
      Left            =   360
      TabIndex        =   8
      Top             =   1725
      Width           =   900
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "时间模式："
      Height          =   195
      Left            =   360
      TabIndex        =   7
      Top             =   1365
      Width           =   900
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "员工名称："
      Height          =   195
      Left            =   360
      TabIndex        =   6
      Top             =   285
      Width           =   900
   End
End
Attribute VB_Name = "frmViewClassEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim m_Edit As Boolean

Private Sub cmbClass_BtnsClick(ByVal nIndex As Integer)
    Select Case nIndex
        Case 0

            rstClass.Requery
            bufClass.DataSource = rstClass
            Set cmbClass.DataSource = bufClass
            
    End Select
End Sub

Private Sub cmbEmployee_BtnsClick(ByVal nIndex As Integer)
    rstEmployee.Requery
    bufEmployee.DataSource = rstEmployee
    cmbEmployee.DataSource = bufEmployee
End Sub

Private Sub Form_Load()
    Me.Icon = MDI.Icon
    Me.Caption = "排班登记-新增"
    
    
    cmbBeginTime.ShowHeadScale = "0,20"
    cmbBeginTime.ShowHeadValue = "DataID,星期几"
    cmbBeginTime.ShowIndex = 1
    cmbBeginTime.Type = tNormal
    cmbBeginTime.DropWidth = cmbTimeMode.Width \ 15
    
    cmbEndTime.ShowHeadScale = "0,20"
    cmbEndTime.ShowHeadValue = "DataID,星期几"
    cmbEndTime.ShowIndex = 1
    cmbEndTime.Type = tNormal
    cmbEndTime.DropWidth = cmbTimeMode.Width \ 15
    
    
    
'======员工
    cmbEmployee.ShowHeadScale = "0,20,20,20"
    cmbEmployee.ShowHeadValue = "EmployeeID,编号,名称,卡号"
    cmbEmployee.ShowIndex = 2
    cmbEmployee.Type = tStatic
    cmbEmployee.SetBtns "刷新"
    cmbEmployee.ButtonHeight = 20
'    cmbEmployee.DropWidth = cmbClass.Width \ 15
    cmbEmployee.DataSource = bufEmployee
    
    
    
'======班次
    cmbClass.ShowHeadScale = "0,20"
    cmbClass.ShowHeadValue = "ClassID,名称"