module1.vb

由VB编寫的人員排班系统主要模式包括（1）人員排班系统：排班處理；出勤人數；分析（2）維護系统：管理員登錄、管理員管理、數據資料庫的設置置等.

Module Module1
    ' Evolver functions

    Public Declare Sub EvLockDll Lib "EVLIB32.DLL" ()

    Public Declare Sub EvUnlockDll Lib "EVLIB32.DLL" ()

    Public Declare Function EvInit% Lib "EVLIB32.DLL" (ByVal baseIndex%, ByVal idebugFlags%)

    Public Declare Function EvFree% Lib "EVLIB32.DLL" ()

    Public Declare Function EvSetDebugMode Lib "EVLIB32.DLL" (ByVal idebugFlags As Int16) As Int16


    Public Declare Function EvGetDebugMode Lib "EVLIB32.DLL" () As Int16

    Public Declare Function EvGetEdition% Lib "EVLIB32.DLL" ()

    Public Declare Function EvGetVersion% Lib "EVLIB32.DLL" (ByVal version$, ByVal maxVersionLen%)

    Public Declare Function EvGetUsageCount Lib "EVLIB32.DLL" () As Int16

    Public Declare Function EvGetPopCount% Lib "EVLIB32.DLL" ()

    Public Declare Function EvGetNthPopHandle% Lib "EVLIB32.DLL" (ByVal n%, ByRef popHandle As Int16)

    Public Declare Function EvGetGlobalChangeCount# Lib "EVLIB32.DLL" ()

    Public Declare Sub EvGetSizeLimits Lib "EVLIB32.DLL" (ByRef maxOrgsPerPop As Int16, ByRef maxChromosomesPerOrg As Int16, ByRef maxGenesPerChromosome As Int16, ByRef maxGenesPerOrg As Int16)

    Public Declare Function EvGetDllPath% Lib "EVLIB32.DLL" (ByVal dllPath$, ByVal maxPathLen%)

    Public Declare Function EvGetErrorText% Lib "EVLIB32.DLL" (ByVal errCode%, ByVal errMsg$, ByVal maxErrLen%)

    Public Declare Sub EvGetDefaultMutationMode Lib "EVLIB32.DLL" (ByRef mutationMode%, ByRef mutationRate#)

    Public Declare Function EvGetDefaultCrossoverRate# Lib "EVLIB32.DLL" ()

    Public Declare Function EvGetDefaultBacktrackRate# Lib "EVLIB32.DLL" ()

    Public Declare Function EvReadTempData% Lib "EVLIB32.DLL" (ByVal channel%, ByRef outData As VariantType, ByVal numBytes%)

    Public Declare Function EvWriteTempData% Lib "EVLIB32.DLL" (ByVal channel%, ByRef inData As VariantType, ByVal numBytes%)

    Public Declare Function EvCallParentSolvingMethod% Lib "EVLIB32.DLL" (ByVal theCommand As Int16, ByVal message As Int16, ByVal options As Int16, ByVal moreOptions As Int16, ByRef returnValue As Int16)

    ' Pop -- population functions
    Public Declare Function EvPopCreate% Lib "EVLIB32.DLL" (ByVal numOrganisms As Int16, ByVal numChromosomes As Int16, ByVal minMaxClosest%, ByVal targetValue#, ByVal seed As Int16, ByRef popHandle As Int16)

    Public Declare Function EvPopCreateWithSingleChromosome Lib "EVLIB32.DLL" (ByVal numOrganisms As Int16, ByVal minMaxClosest%, ByVal targetValue#, ByVal seed As Int16, ByVal solvingMethod$, ByVal numGenes As Int16, ByRef originalValues#, ByRef popHandle As Int16) As Integer

    Public Declare Function EvPopDefineChromosome% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal solvingMethod$, ByVal numGenes As Int16, ByRef originalValues#)

    Public Declare Function EvPopDestroy% Lib "EVLIB32.DLL" (ByVal popHandle As Int16)

    Public Declare Function EvPopConstructEvalOrg% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByRef theGenes#)

    Public Declare Function EvPopSetName% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal popName$)

    Public Declare Function EvPopGetName% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal popName$, ByVal maxNameLen%)

    Public Declare Function EvPopSetOwnerTask% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal taskId As Int16)

    Public Declare Function EvPopGetOwnerTask% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByRef taskId As Int16)

    Public Declare Function EvPopIsValid% Lib "EVLIB32.DLL" (ByVal popHandle As Int16)

    Public Declare Function EvPopGetOrganismCount Lib "EVLIB32.DLL" (ByVal popHandle As Int16) As Int16

    Public Declare Function EvPopGetChromosomesPerOrganismCount Lib "EVLIB32.DLL" (ByVal popHandle As Int16) As Int16

    Public Declare Function EvPopGetGenesPerOrganismCount Lib "EVLIB32.DLL" (ByVal popHandle As Int16) As Int16

    Public Declare Function EvPopGetMinMaxClosest% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByRef targetValue#)

    Public Declare Function EvPopGetTrialCount# Lib "EVLIB32.DLL" (ByVal popHandle As Int16)

    Public Declare Function EvPopGetRecalcCount# Lib "EVLIB32.DLL" (ByVal popHandle As Int16)

    Public Declare Function EvPopGetChangeCount# Lib "EVLIB32.DLL" (ByVal popHandle As Int16)

    Public Declare Function EvPopGetSeed Lib "EVLIB32.DLL" (ByVal popHandle As Int16) As Int16

    Public Declare Function EvPopSetRunStatus% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal runStatus%)


    Public Declare Function EvPopGetRunStatus% Lib "EVLIB32.DLL" (ByVal popHandle As Int16)

    Public Declare Function EvPopRandomDouble# Lib "EVLIB32.DLL" (ByVal popHandle As Int16)

    Public Declare Function EvPopRandomInteger Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal limit As Int16) As Int16

    Public Declare Function EvPopGetTrialsSinceProgress# Lib "EVLIB32.DLL" (ByVal popHandle As Int16)

    Public Declare Function EvPopGetProgressStepCount Lib "EVLIB32.DLL" (ByVal popHandle As Int16) As Int16

    Public Declare Function EvPopGetProgressStep% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal theStepNum As Int16, ByRef trialNum#, ByRef tickCount As Int16, ByRef theValue#, ByRef averagePopResult#)

    Public Declare Function EvPopGetAverageResult% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByRef averageValue#)

    Public Declare Function EvPopGetCreationTickCount% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByRef tickCount As Int16)

    Public Declare Function EvPopSetTimerState% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal timerState%)

    Public Declare Function EvPopGetTimerState% Lib "EVLIB32.DLL" (ByVal popHandle As Int16)

    Public Declare Function EvPopSetTimerValue% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal timerValue As Int16)

    Public Declare Function EvPopGetTimerValue Lib "EVLIB32.DLL" (ByVal popHandle As Int16) As Int16

    Public Declare Function EvPopGetBacktrackLevel Lib "EVLIB32.DLL" (ByVal popHandle As Int16) As Int16

    Public Declare Function EvPopReturnResult% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal resultWithoutPenalties#, ByRef penaltyArray As VariantType, ByRef returnedFlags As Int16)

    Public Declare Function EvPopGetConstraintCount Lib "EVLIB32.DLL" (ByVal popHandle As Int16) As Int16

    Public Declare Function EvPopGetParents% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByRef parent1 As Int16, ByRef parent2 As Int16)

    ' Org -- organism functions
    Public Declare Function EvOrgGetGenes% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal orgNum As Int16, ByRef geneArray#)

    Public Declare Function EvOrgSetGenes% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal orgNum As Int16, ByRef geneArray#)

    Public Declare Function EvOrgEqualGenes% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal orgNum1 As Int16, ByVal orgNum2 As Int16, ByVal precision#)

    Public Declare Function EvOrgGetResult% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal orgNum As Int16, ByRef resultWithPenalties#, ByRef resultWithoutPenalties#, ByRef penaltyArray As VariantType, ByRef theFlag%)

    Public Declare Function EvOrgSetResult% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal orgNum As Int16, ByVal resultWithoutPenalties#, ByRef penaltyArray As VariantType, ByVal resultFlag%)

    Public Declare Function EvChrSetName% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal chromosomeName$)

    Public Declare Function EvChrGetName% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal chromosomeName$, ByVal maxNameLen%)

    Public Declare Function EvChrSetMutationMode% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal mutationMode%, ByVal mutationRate#)

    Public Declare Function EvChrGetMutationMode% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByRef mutationMode%, ByRef mutationRate#)

    Public Declare Function EvChrGetCurrentMutationRate# Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16)

    Public Declare Function EvChrSetCrossoverRate% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal crossoverRate#)

    Public Declare Function EvChrGetCrossoverRate# Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16)

    Public Declare Function EvChrSetBacktrackRate% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal backtrackRate#)

    Public Declare Function EvChrGetBacktrackRate# Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16)

    Public Declare Function EvChrSetConstraints% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByRef constraintParameters As VariantType, ByRef constraintTable#)

    Public Declare Function EvChrGetGenes% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal orgNum As Int16, ByRef geneArray#)

    Public Declare Function EvChrSetGenes% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal orgNum As Int16, ByRef geneArray#)

    Public Declare Function EvChrEqualGenes% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal orgNum1 As Int16, ByVal orgNum2 As Int16, ByVal precision#)

    Public Declare Function EvChrGetGeneCount Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16) As Int16

    Public Declare Function EvChrGetSolvingMethodIndex% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16)

    Public Declare Function EvChrGetSolvingMethodName% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal solvingMethodName$, ByVal maxNameLen%)

    Public Declare Function EvChrOperIsCompatible% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal operIndex%)

    Public Declare Function EvChrOperAdd% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal operIndex%)

    Public Declare Function EvChrOperRemove% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal operIndex%)

    Public Declare Function EvChrOperIsAdded% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal operIndex%)

    Public Declare Function EvChrOperIsUsed% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal operIndex%)

    Public Declare Function EvChrOperGetEffectiveness% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByRef usageArray#)


    ' Gene -- gene functions
    Public Declare Function EvGeneSetName% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal geneNum As Int16, ByVal geneName$)

    Public Declare Function EvGeneGetName% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal geneNum As Int16, ByVal geneName$, ByVal maxNameLen%)

    Public Declare Function EvGeneGetValue% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal orgNum As Int16, ByVal geneNum As Int16, ByRef geneValue#)

    Public Declare Function EvGeneSetValue% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal orgNum As Int16, ByVal geneNum As Int16, ByVal geneValue#)

    Public Declare Function EvGeneSetRange% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal geneNum As Int16, ByVal minValue#, ByVal maxValue#, ByVal mustBeInteger%)

    Public Declare Function EvGeneGetRange% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal geneNum As Int16, ByRef minValue#, ByRef maxValue#, ByRef mustBeInteger%)

    ' Constraint -- constraint functions
    Public Declare Function EvConstraintAdd Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal constraintName$, ByVal hardOrSoft%) As Int16

    Public Declare Function EvConstraintGetParams% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal constraintNum As Int16, ByRef hardOrSoft%)

    Public Declare Function EvConstraintGetName% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal constraintNum As Int16, ByVal constraintName$, ByVal maxNameLen%)

    Public Declare Function EvConstraintGetRecalcsMetCount# Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal constraintNum As Int16)

    Public Declare Function EvConstraintGetTrialsMetCount# Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal constraintNum As Int16)


    Public Declare Function EvVarSetDouble% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal smOrOper%, ByVal smOrOperIndex%, ByVal varNum%, ByVal varValue#)

    Public Declare Function EvVarGetDouble% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal smOrOper%, ByVal smOrOperIndex%, ByVal varNum%, ByRef varValue#)

    Public Declare Function EvVarClearDouble% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal smOrOper%, ByVal smOrOperIndex%, ByVal varNum%)

    Public Declare Function EvVarSetLong% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal smOrOper%, ByVal smOrOperIndex%, ByVal varNum%, ByVal varValue As Int16)

    Public Declare Function EvVarGetLong% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal smOrOper%, ByVal smOrOperIndex%, ByVal varNum%, ByRef varValue As Int16)

    Public Declare Function EvVarClearLong% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal smOrOper%, ByVal smOrOperIndex%, ByVal varNum%)

    Public Declare Function EvVarCopyDataToLong% Lib "EVLIB32.DLL" (ByVal popHandle As Int16, ByVal chromosomeNum As Int16, ByVal smOrOper%, ByVal smOrOperIndex%, ByVal varNum%, ByVal numBytes As Int16, ByRef theData As VariantType)

    Public Declare Function EvSmGetDirPath% Lib "EVLIB32.DLL" (ByVal smDirPath$, ByVal maxPathLen%)

    Public Declare Function EvSmGetCount% Lib "EVLIB32.DLL" ()

    Public Declare Function EvSmGetVersion% Lib "EVLIB32.DLL" (ByVal smIndex%, ByVal version$, ByVal maxVersionLen%)

    Public Declare Function EvSmGetId% Lib "EVLIB32.DLL" (ByVal smIndex%)

    Public Declare Function EvSmGetParentId% Lib "EVLIB32.DLL" (ByVal smIndex%)

    Public Declare Function EvSmGetIndexFromName% Lib "EVLIB32.DLL" (ByVal smName$)

    Public Declare Function EvSmGetName% Lib "EVLIB32.DLL" (ByVal smIndex%, ByVal smName$, ByVal maxNameLen%)

    Public Declare Function EvSmGetHandledMessages% Lib "EVLIB32.DLL" (ByVal smIndex%, ByRef smMessages As Int16)

    Public Declare Function EvOperGetDirPath% Lib "EVLIB32.DLL" (ByVal operDirPath$, ByVal maxPathLen%)

    Public Declare Function EvOperGetCount% Lib "EVLIB32.DLL" ()

    Public Declare Function EvOperGetVersion% Lib "EVLIB32.DLL" (ByVal operIndex%, ByVal version$, ByVal maxVersionLen%)

    Public Declare Function EvOperGetIndexFromName% Lib "EVLIB32.DLL" (ByVal operName$)

    Public Declare Function EvOperGetName% Lib "EVLIB32.DLL" (ByVal operIndex%, ByVal operName$, ByVal maxNameLen%)

    Public Declare Function EvOperGetHandledMessages% Lib "EVLIB32.DLL" (ByVal operIndex%, ByRef operMessages As Int16)

    Public Declare Function EvOperIsCompatibleWithSolvingMethod% Lib "EVLIB32.DLL" (ByVal operIndex%, ByVal smIndex%)


    ' #ifndef __EV_TYPES_H__