mdlsubmain.bas

本系统可用于医院和专业体检中心的健康体检管理

                        & " ADD ContactPhone VARCHAR(50)" _
                        & ",WWWSite VARCHAR(200)"
                GCon.Execute strSQL
                
                '在表SET_SYSTEM中插入一条记录，表示是否打印网址与联系电话
                strSQL = "insert into SET_SYSTEM(SYSTEMNAME,SYSTEMPROPERTY)" _
                        & " values('ShowPhoneAndWWW','0')"
                GCon.Execute strSQL
            Else
                '检索是否打印网址与联系电话
                strSQL = "select * from SET_SYSTEM" _
                        & " where SYSTEMNAME='ShowPhoneAndWWW'"
                rstemp.Close
                Set rstemp = New ADODB.Recordset
                rstemp.Open strSQL, GCon, adOpenForwardOnly, adLockReadOnly
                If rstemp.EOF Then
                    g_blnPrintPhoneAndWWW = False
                Else
                    g_blnPrintPhoneAndWWW = CBool(rstemp("SYSTEMPROPERTY"))
                End If
            End If
            If Not rstemp.EOF Then rstemp.Close
        End If
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '检查是否添加了光盘刻录的菜单
    dtmModifyDate = DateValue("2004-11-20")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        strSQL = "select Count(*) from SET_MNU_Data" _
                & " where mnuName='mnuGPKL'"
        Set rstemp = New ADODB.Recordset
        rstemp.Open strSQL, GCon, adOpenForwardOnly, adLockReadOnly
        If rstemp(0) < 1 Then
            '尚未添加
            '单机版中的“光盘刻录”
            strSQL = "insert into SET_MNU_Data(mnuID,mnuName,mnuCaption,mnuType,FatherID,Display)" _
                    & " values(110,'mnuGPKL','光盘刻录','ZYBBZBPJB',76,1)"
            GCon.Execute strSQL
            
            '网络版中的“光盘刻录”
            strSQL = "insert into SET_MNU_Data(mnuID,mnuName,mnuCaption,mnuType,FatherID,Display)" _
                    & " values(111,'mnuQF_GPKL','光盘刻录','QF',15,1)"
            GCon.Execute strSQL
        End If
        rstemp.Close
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '更改数据库中菜单名称
    dtmModifyDate = DateValue("2004-11-21")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        strSQL = "update SET_MNU_Data set" _
                & " mnuCaption='阳性查询'" _
                & " where mnuName='mnuDWYXHZ'"
        GCon.Execute strSQL
        
        strSQL = "update SET_MNU_Data set" _
                & " mnuCaption='阳性查询'" _
                & " where mnuName='mnuQF_DWYXHZ'"
        GCon.Execute strSQL
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '检查是否添加了财务汇总、代金卡发放/充值的菜单
    '创建代金卡总表、消费记录表
    dtmModifyDate = DateValue("2004-12-09")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        strSQL = "select Count(*) from SET_MNU_Data" _
                & " where mnuName='mnuQF_CWHZ'"
        Set rstemp = New ADODB.Recordset
        rstemp.Open strSQL, GCon, adOpenForwardOnly, adLockReadOnly
        If rstemp(0) < 1 Then
            '尚未添加
            '网络版中的“财务汇总”
            strSQL = "insert into SET_MNU_Data(mnuID,mnuName,mnuCaption,mnuType,FatherID,Display)" _
                    & " values(97300,'mnuQF_CWHZ','财务汇总','QF',97,1)"
            GCon.Execute strSQL
            
            '网络版中的“代金卡发放/充值”
            strSQL = "insert into SET_MNU_Data(mnuID,mnuName,mnuCaption,mnuType,FatherID,Display)" _
                    & " values(97400,'mnuQF_DJKFF','代金卡发放/充值','QF',97,1)"
            GCon.Execute strSQL
        End If
        rstemp.Close
        
        '创建代金卡总表
        strSQL = "CREATE TABLE [dbo].[SET_MONEYCARD] ( " _
                    & vbCrLf & "[CardID] [varchar] (25) COLLATE Chinese_PRC_CI_AS NOT NULL , " _
                    & vbCrLf & "[HealthID] [varchar] (20) COLLATE Chinese_PRC_CI_AS NULL ," _
                    & vbCrLf & "[CardBalance] [money] NULL ," _
                    & vbCrLf & "[CardType] [varchar] (5) COLLATE Chinese_PRC_CI_AS NULL , " _
                    & vbCrLf & "[SendTime] [datetime] NULL , " _
                    & vbCrLf & "[StopTime] [datetime] NULL ," _
                    & vbCrLf & "[EmployeeID] [int] NULL " _
                & vbCrLf & ") ON [PRIMARY]"
        '创建代金卡总表的主键
        strSQLAppend = "ALTER TABLE [dbo].[SET_MONEYCARD] WITH NOCHECK ADD " _
                    & vbCrLf & "CONSTRAINT [PK_SET_MONEYCARD] PRIMARY KEY  CLUSTERED " _
                    & vbCrLf & "( " _
                        & vbCrLf & "[CardID] " _
                    & vbCrLf & ")  ON [PRIMARY]"
        Call CreateTable("SET_MONEYCARD", False, strSQL, strSQLAppend)
            
        '创建消费信息表
        strSQL = "CREATE TABLE [dbo].[SET_MONEYCARD_CONSUME] (" _
                    & vbCrLf & "[CardID] [varchar] (25) COLLATE Chinese_PRC_CI_AS NOT NULL ," _
                    & vbCrLf & "[ConsumeMoney] [money] NULL ," _
                    & vbCrLf & "[ConsumeTime] [datetime] NOT NULL ," _
                    & vbCrLf & "[GUID] [bigint] NULL ," _
                    & vbCrLf & "[IsAppend] [bit] NULL ," _
                    & vbCrLf & "[Memo] [varchar] (500) COLLATE Chinese_PRC_CI_AS NULL ," _
                    & vbCrLf & "[EmployeeID] [int] NULL " _
                & vbCrLf & ") ON [PRIMARY]"
        '创建消费信息表的主键
        strSQLAppend = "ALTER TABLE [dbo].[SET_MONEYCARD_CONSUME] WITH NOCHECK ADD " _
                    & vbCrLf & "CONSTRAINT [DF_SET_MONEYCARD_CONSUME_IsAppend] DEFAULT (0) FOR [IsAppend]," _
                    & vbCrLf & "CONSTRAINT [PK_SET_MONEYCARD_CONSUME] PRIMARY KEY  CLUSTERED " _
                    & vbCrLf & "(" _
                        & vbCrLf & "[CardID]," _
                        & vbCrLf & "[ConsumeTime]," _
                    & vbCrLf & ")  ON [PRIMARY] "
        Call CreateTable("SET_MONEYCARD_CONSUME", False, strSQL, strSQLAppend)
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '修改财务汇总、代金卡发放/充值的菜单标题
    dtmModifyDate = DateValue("2004-12-16")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        '修改法财务汇总的标题
        strSQL = "update SET_MNU_Data set" _
                & " mnuCaption='财务报表'" _
                & " where mnuName='mnuQF_CWHZ'"
        GCon.Execute strSQL
        
        '修改代金卡发放/充值的标题
        strSQL = "update SET_MNU_Data set" _
                & " mnuCaption='代金卡管理'" _
                & " where mnuName='mnuQF_DJKFF'"
        GCon.Execute strSQL
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '在单位信息中增加“简称”字段
    dtmModifyDate = DateValue("2004-12-18")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        Call AlterTable("SET_DW", "ShortName", "VARCHAR(50) NULL")
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '在系统设置中增加总检后可以修改的最长天数
    dtmModifyDate = DateValue("2004-12-19")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        Call SetSystemProperty("ZJModifyDays", "7", Add)
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '在加长总检结论和总检建议的字段长度
    dtmModifyDate = DateValue("2004-12-22")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        '总检结论表
        strSQL = "ALTER TABLE DATA_ZJJL" _
                & " ALTER COLUMN JLValue VARCHAR(8000)"
        GCon.Execute strSQL
        
        '总检建议表
        strSQL = "ALTER TABLE DATA_ZJJY" _
                & " ALTER COLUMN JYValue VARCHAR(8000)"
        GCon.Execute strSQL
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '创建新表SET_GRXX_VIDEO，用于存放个人影像数据
    dtmModifyDate = DateValue("2004-12-24")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        '创建新表
        strSQL = "CREATE TABLE [dbo].[SET_GRXX_VIDEO] (" _
                    & vbCrLf & "[GUID] [bigint] NOT NULL ," _
                    & vbCrLf & "[Photo_IDCard] [image] NULL ," _
                    & vbCrLf & "[Photo_Person] [image] NULL " _
                & vbCrLf & ") ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]"
        '创建主键
        strSQLAppend = "ALTER TABLE [dbo].[SET_GRXX_VIDEO] WITH NOCHECK ADD " _
                    & vbCrLf & "CONSTRAINT [PK_SET_GRXX_VIDEO] PRIMARY KEY  CLUSTERED " _
                    & vbCrLf & "(" _
                        & vbCrLf & "[GUID]" _
                    & vbCrLf & ")  ON [PRIMARY] " _
                    & vbCrLf & ""
        Call CreateTable("SET_GRXX_VIDEO", False, strSQL, strSQLAppend)
        
        '加入默认设置
        Call SetSystemProperty("IDCardAndPerson", "0", Add)
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '生成科室小结时是否带上项目名称
    dtmModifyDate = DateValue("2004-12-25")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        Call SetSystemProperty("KSXJWithXMu", "1", Add)
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '生成科室小结时是否带上项目名称
    dtmModifyDate = DateValue("2004-12-29")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        Call AlterTable("SET_XX", "HavePhoto", "bit NULL", 0)
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '在系统设置中增加录入模式
    dtmModifyDate = DateValue("2004-12-30")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        Call SetSystemProperty("InputMode", CStr(CENTRALIZE_INPUT), Add)
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '支付方式关联团体支付；个人费用明细表里面增加标识
    dtmModifyDate = DateValue("2005-01-03")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        '增加字段，以使支付方式与团体支付关联
        Call AlterTable("SET_ZFFS", "UnitPay", "bit NULL", 0)
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '集中录入时，在未录入的科室，是否默认显示当前登录人员
    dtmModifyDate = DateValue("2005-01-05")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        Call SetSystemProperty("ShowCurrentManager", "0", Add)
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '在SET_BC里面，增加一个字段，用以描述条形码宽度
    dtmModifyDate = DateValue("2005-01-07")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        '探测是否存在该字段
        strSQL = "select top 1 BCWidth from SET_BC"
        Set rstemp = New ADODB.Recordset
        '关闭错误跟踪
        On Error Resume Next
        rstemp.Open strSQL, GCon, adOpenForwardOnly, adLockReadOnly
        If Err.Number <> 0 Then
            Err.Clear
            '增加新字段
            strSQL = "ALTER TABLE SET_BC" _
                    & " ADD BCWidth [numeric](10, 2) NULL" _
                    & ",IsUse bit null"
            GCon.Execute strSQL
            
            '更新已有数据
            strSQL = "update SET_BC set" _
                    & " BCWidth=35" _
                    & " where BCProperty='BarCode'"
            GCon.Execute strSQL
            
            strSQL = "update SET_BC set" _
                    & " IsUse=1" _
                    & " where BCProperty<>'BarCode'"
            GCon.Execute strSQL
        Else
            If Not rstemp.EOF Then rstemp.Close
        End If
        On Error GoTo ErrMsg
        
        '写入新日期
        Call WriteCurrentVersion(CStr(dtmModifyDate))
    End If
    
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    '条形码编码内容。0表示自定义档案号，1表示系统档案号
    dtmModifyDate = DateValue("2005-01-08")
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    If dtmCurrentVersion < dtmModifyDate Then
        '条码编码内容
        Call SetSystemProperty("BarCodeContents", "0", Add)
        
        '个人预约里面的条码打印按钮