clsBDStaff

This class object allows for the management of staff records.

Property Description
Property EOFStaff As Boolean; read-only  
Property EOFStaffDataprotect As Boolean; read-only  
Property EOFStaffProgram As Boolean; read-only  
Property EOFStaffProgramCfg As Boolean; read-only  
Property ErrorNumber As Long; read-only  
Property ErrorString As String; read-only  
Property FoundStaff As Boolean; read-only  
Property FoundStaffDataprotect As Boolean; read-only  
Property FoundStaffProgram As Boolean; read-only  
Property FoundStaffProgramCfg As Boolean; read-only  
Property IsError As Boolean  
Property IsStaffDataprotectDirty As Boolean  
Property IsStaffDirty As Boolean  
Property IsStaffProgramCfgDirty As Boolean  

Property IsStaffProgramDirty As Boolean

 
Property RSStaff As Recordset; read-only  
Property RSStaffDataprotect As Recordset; read-only  
Property RSStaffProgram As Recordset; read-only  
Property RSStaffProgramCfg As Recordset; read-only  
Property Security As clsSecurity  
Property Staff As clsBOStaff; read-only  
Property StaffColumns As Variant  
Property StaffDataprotectColumns As Variant  
Property StaffDataprotectDirtyReadOccured As Boolean; read-only  
Property StaffDataprotectFieldItem(sFieldname); read-only  
Property StaffDataprotectListKey As String  
Property StaffDataprotectOut As Recordset; read-only  
Property StaffDataprotectRows As Long; read-only  
Property StaffDirtyReadOccured As Boolean; read-only  
Property StaffFieldItem(sFieldname); read-only  
Property StaffListKey As String  
Property StaffOut As Recordset; read-only  
Property StaffProgram As clsBOStaffProgram; read-only  
Property StaffProgramCfg As clsBOStaffProgramCfg; read-only  
Property StaffProgramCfgColumns As Variant  
Property StaffProgramCfgDirtyReadOccrred As Boolean; read-only  
Property StaffProgramCfgFieldItem(sFieldname); read-only  
Property StaffProgramCfgListKey As String  
Property StaffProgramCfgOut As Recordset; read-only  
Property StaffProgramCfgRows As Long; read-only  
Property StaffProgramColumns As Variant  
Property StaffProgramDirtyReadOccrred As Boolean; read-only  
Property StaffProgramFieldItem(sFieldname); read-only  
Property StaffProgramListKey As String  
Property StaffProgramOut As Recordset; read-only  
Property StaffProgramRows As Long; read-only  
Property StaffRows As Long; read-only  
Property VBErrorNumber As Long; read-only  

 

Method Description
Sub AddStaff()  
Sub AddStaffDataprotect()  
Sub AddStaffProgram()  
Sub AddStaffProgramCfg()  
Sub CopyStaff(sFrom As String, sTo As String)  
Sub CopyStaffDataprotect(sFrom As String, sTo As String)  
Sub CopyStaffProgram(sKey1 As String, sFrom As String, sTo As String)  
Sub CopyStaffProgramCfg(sKey1 As String, sKey2 As String, sFrom As String, sTo As String)  
Sub DeleteStaff([sSqlIn As String])  
Sub DeleteStaffDataprotect([sSqlIn As String])  
Sub DeleteStaffProgram([sSqlIn As String])  
Sub DeleteStaffProgramCfg([sSqlIn As String])  
Sub FindStaff(sCode As String, [bUpdate As Boolean = True])  
Sub FindStaffDataprotect(sCode As String, [bUpdate As Boolean = True])  
Sub FindStaffProgram(sCode As String, [bUpdate As Boolean = True])  
Sub FindStaffProgramCfg(sCode As String, [bUpdate As Boolean = True])  
Sub OpenRsStaff([sSqlIn As String])  
Sub OpenRsStaffDataprotect([sSqlIn As String])  
Sub OpenRsStaffProgram([sSqlIn As String])  
Sub OpenRsStaffProgramCfg([sSqlIn As String])  
Sub SaveStaff([bDirtyReadStat As Boolean = False])  
Sub SaveStaffDataprotect([bDirtyReadStat As Boolean = False])  
Sub SaveStaffProgram([bDirtyReadStat As Boolean = False])  
Sub SaveStaffProgramCfg([bDirtyReadStat As Boolean = False])  
Sub SkipStaff([lSkip As Long = 1])  
Sub SkipStaffDataprotect([lSkip As Long = 1])  
Sub SkipStaffProgram([lSkip As Long = 1])  
Sub SkipStaffProgramCfg([lSkip As Long = 1])  
Sub StaffDataprotectList([lNoRecs As Long = -1])  
Sub StaffDataprotectOutCreate()  
Sub StaffList([lNoRecs As Long = -1])  
Sub StaffOutCreate()  
Sub StaffProgramCfgList([lNoRecs As Long = -1])  
Sub StaffProgramCfgOutCreate()  
Sub StaffProgramList([lNoRecs As Long = -1])  
Sub StaffProgramOutCreate()