modinit.bas

医院门诊医生工作站,vb6 SqlServer

Attribute VB_Name = "modInit"
Option Explicit

Public Function SySInit()

    gfnGetFig
    mpdGetCurSysConfig
    Set gPatientTypesObj = New clsPatientTypes
    Set gSickPatientTypesObj = New clsSickPatientTypes
    Set gADVFreqsObj = New clsADVFreqs
    Set gSexObj = New clsGenlCodes
    gSexObj.Make "Sex"
    Set gMarryObj = New clsGenlCodes
    gMarryObj.Make "Marry"
    Set gTsObj = New clsDrugTS
    Set gADVUsagesObj = New clsGenerals
    If gDbObj.GetRs("SELECT UsId,Des FROM m_ADVUsage") >= 1 Then
        Do Until gDbObj.Rs.EOF
            gADVUsagesObj.Add gDbObj.Rs!UsID, gDbObj.Rs!Des, gDbObj.Rs!UsID
            gDbObj.Rs.MoveNext
        Loop
    End If
    If gDbObj.GetRs("select *from House_BusMain where 1=2") >= 0 Then
        If UCase(gDbObj.Rs.Fields(gDbObj.Rs.Fields.Count - 1).Name) = "FOOTMONTH" Then
            gtydSysConfig.IFFoot = True
        End If
    End If

    SySInit = True
    
End Function

Public Sub setmenu()
'
End Sub