frmbasetonew.frm

金算盘软件代码

        If Format(CalDate.Text, "yyyy-mm-dd") < Format(recUser!strStartDate, "yyyy-mm-dd") Then
            strMsg = "结转日期不能小于帐套启用日期！"
        End If
    End If
    recUser.Close
    
    If strMsg = "" Then
        strSql = "SELECT * FROM " & mstrOldUser & ".AccountPeriod " _
            & "WHERE strStartDate<='" & Format(CalDate.Text, "yyyy-mm-dd") & "' " _
            & "AND strEndDate>='" & Format(CalDate.Text, "yyyy-mm-dd") & "' "
        Set recUser = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        If recUser.EOF Then
            strMsg = "结转日期没有对应的会计年度和期间！"
        Else
            CalDate.Text = recUser!strStartDate
            mintTurnYear = recUser!intYear
            mbytTurnPeriod = recUser!bytPeriod
        End If
        recUser.Close
    End If
            
    If strMsg = "" Then
        strSql = "SELECT * FROM " & mstrOldUser & ".AccountPeriod " _
            & "WHERE strStartDate<='" & Format(CDate(CalDate.Text) - 1, "yyyy-mm-dd") & "' " _
            & "AND strEndDate>='" & Format(CDate(CalDate.Text) - 1, "yyyy-mm-dd") & "' "
        Set recUser = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        If Not recUser.EOF Then
            If recUser!lngPostID = 0 And Format(CDate(CalDate.Text) - 1, "yyyy-mm-dd") >= mstrStartDate Then
                strMsg = "结转日期必须是某结帐期间后的第一天！"
            End If
        End If
        recUser.Close
    End If
    Set recUser = Nothing
    
    If strMsg <> "" Then
        ShowMsg hwnd, strMsg, vbExclamation + vbOKOnly, Caption
    Else
        mstrTurnDate = Format(CalDate.Text, "yyyy-mm-dd")
        ValidDate = True
    End If
End Function

'修改数据库
Private Function OldBaseTurnToNewBase() As Boolean
    Dim strSql As String
    Dim recDetail As rdoResultset
    Dim recOther As rdoResultset
    
    On Error Resume Next
    
    '''''''''''''''''''''''''''''
    '一 编码
    ''''''''''''''''''''''''''''
    '会计期间
    strSql = "DELETE FROM " & mstrNewUser & ".AccountYear"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".AccountYear SELECT * FROM " & mstrOldUser & ".AccountYear WHERE intYear>=" & mintTurnYear
    gclsBase.ExecSQL strSql
    
    strSql = "DELETE FROM " & mstrNewUser & ".AccountPeriod"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".AccountPeriod SELECT * FROM " & mstrOldUser & ".AccountPeriod WHERE intYear>=" & mintTurnYear
    gclsBase.ExecSQL strSql
    
    '操作员表
    strSql = "DELETE FROM " & mstrNewUser & ".Operator"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".Operator SELECT * FROM " & mstrOldUser & ".Operator"
    gclsBase.ExecSQL strSql
    
    strSql = "DELETE FROM " & mstrNewUser & ".OperatorGroup"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".OperatorGroup SELECT * FROM " & mstrOldUser & ".OperatorGroup"
    gclsBase.ExecSQL strSql
    
    strSql = "DELETE FROM " & mstrNewUser & ".OperatorRight"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".OperatorRight SELECT * FROM " & mstrOldUser & ".OperatorRight"
    gclsBase.ExecSQL strSql
    
    '付款条件
    strSql = "DELETE FROM " & mstrNewUser & ".Term"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".Term SELECT * FROM " & mstrOldUser & ".Term"
    gclsBase.ExecSQL strSql
    
    '付款方式
    strSql = "DELETE FROM " & mstrNewUser & ".PayMethod"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".PayMethod SELECT * FROM " & mstrOldUser & ".PayMethod"
    gclsBase.ExecSQL strSql
    
    '币种表
    strSql = "DELETE FROM " & mstrNewUser & ".Currencys"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".Currencys SELECT * FROM " & mstrOldUser & ".Currencys"
    gclsBase.ExecSQL strSql
    
    strSql = "DELETE FROM " & mstrNewUser & ".Rate"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".Rate SELECT * FROM " & mstrOldUser & ".Rate"
    gclsBase.ExecSQL strSql
    
    '科目表
    strSql = "DELETE FROM " & mstrNewUser & ".Account"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".Account SELECT * FROM " & mstrOldUser & ".Account"
    gclsBase.ExecSQL strSql
    
    strSql = "DELETE FROM " & mstrNewUser & ".AccountCurrency"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".AccountCurrency SELECT * FROM " & mstrOldUser & ".AccountCurrency"
    gclsBase.ExecSQL strSql
    
    strSql = "DELETE FROM " & mstrNewUser & ".AccountType"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".AccountType SELECT * FROM " & mstrOldUser & ".AccountType"
    gclsBase.ExecSQL strSql
    
    '单位表
    strSql = "DELETE FROM " & mstrNewUser & ".Customer"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".Customer SELECT * FROM " & mstrOldUser & ".Customer"
    gclsBase.ExecSQL strSql
    
    strSql = "DELETE FROM " & mstrNewUser & ".CustomerAddress"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".CustomerAddress SELECT * FROM " & mstrOldUser & ".CustomerAddress"
    gclsBase.ExecSQL strSql
    
    strSql = "DELETE FROM " & mstrNewUser & ".CustomerBank"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".CustomerBank SELECT * FROM " & mstrOldUser & ".CustomerBank"
    gclsBase.ExecSQL strSql
    
    strSql = "DELETE FROM " & mstrNewUser & ".CustomerType"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".CustomerType SELECT * FROM " & mstrOldUser & ".CustomerType"
    gclsBase.ExecSQL strSql
    
    '部门表
    strSql = "DELETE FROM " & mstrNewUser & ".Department"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".Department SELECT * FROM " & mstrOldUser & ".Department"
    gclsBase.ExecSQL strSql
    
    '职员表
    strSql = "DELETE FROM " & mstrNewUser & ".Employee"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".Employee SELECT * FROM " & mstrOldUser & ".Employee"
    gclsBase.ExecSQL strSql
    
    strSql = "DELETE FROM " & mstrNewUser & ".EmployeeType"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".EmployeeType SELECT * FROM " & mstrOldUser & ".EmployeeType"
    gclsBase.ExecSQL strSql
    
    '统计表
    strSql = "DELETE FROM " & mstrNewUser & ".Class1"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".Class1 SELECT * FROM " & mstrOldUser & ".Class1"
    gclsBase.ExecSQL strSql
    
    '项目表
    strSql = "DELETE FROM " & mstrNewUser & ".Class2"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".Class2 SELECT * FROM " & mstrOldUser & ".Class2"
    gclsBase.ExecSQL strSql
    
    '工程表
    strSql = "DELETE FROM " & mstrNewUser & ".Job"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".Job SELECT * FROM " & mstrOldUser & ".Job"
    gclsBase.ExecSQL strSql
    
    strSql = "DELETE FROM " & mstrNewUser & ".JobStatus"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".JobStatus SELECT * FROM " & mstrOldUser & ".JobStatus"
    gclsBase.ExecSQL strSql
    
    strSql = "DELETE FROM " & mstrNewUser & ".JobType"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".JobType SELECT * FROM " & mstrOldUser & ".JobType"
    gclsBase.ExecSQL strSql
    
    '(固定资产)类别
    strSql = "DELETE FROM " & mstrNewUser & ".FixedType"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".FixedType SELECT * FROM " & mstrOldUser & ".FixedType"
    gclsBase.ExecSQL strSql
    
    '(固定资产)自定项目
    strSql = "DELETE FROM " & mstrNewUser & ".FixedCustom"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".FixedCustom SELECT * FROM " & mstrOldUser & ".FixedCustom"
    gclsBase.ExecSQL strSql
    
    '(固定资产)变动方式
    strSql = "DELETE FROM " & mstrNewUser & ".FixedMethod"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".FixedMethod SELECT * FROM " & mstrOldUser & ".FixedMethod"
    gclsBase.ExecSQL strSql
    
    '(邮电)工程项目表
    strSql = "DELETE FROM " & mstrNewUser & ".Project"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".Project SELECT * FROM " & mstrOldUser & ".Project"
    gclsBase.ExecSQL strSql
    
    '(邮电)付款方表
    strSql = "DELETE FROM " & mstrNewUser & ".PayCustomer"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".PayCustomer SELECT * FROM " & mstrOldUser & ".PayCustomer"
    gclsBase.ExecSQL strSql
    
    '(保险)
    
    '(商品)
    
    
    
    
    '''''''''''''''''''''''''''''
    '一 业务
    ''''''''''''''''''''''''''''
    '凭证表
    strSql = "DELETE FROM " & mstrNewUser & ".Voucher"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".Voucher SELECT * FROM " & mstrOldUser & ".Voucher " _
        & "WHERE intYear*100+bytPeriod>=" & CLng(mintTurnYear) * 100 + mbytTurnPeriod
    gclsBase.ExecSQL strSql
    
    strSql = "DELETE FROM " & mstrNewUser & ".VoucherDetail"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".VoucherDetail SELECT VoucherDetail.* " _
        & "FROM " & mstrOldUser & ".VoucherDetail," & mstrOldUser & ".Voucher " _
        & "WHERE " & mstrOldUser & ".VoucherDetail.lngVoucherID=" & mstrOldUser & ".Voucher.lngVoucherID " _
        & "intYear*100+bytPeriod>=" & CLng(mintTurnYear) * 100 + mbytTurnPeriod
    gclsBase.ExecSQL strSql
    
    VoucherDataToInit
    AddAccountBalance
    
    strSql = "DELETE FROM " & mstrNewUser & ".AccountDaily"
    gclsBase.ExecSQL strSql
    strSql = "INSERT INTO " & mstrNewUser & ".AccountDaily SELECT * FROM " & mstrOldUser & ".AccountDaily WHERE strDate>=" & mstrTurnDate
    gclsBase.ExecSQL strSql
    
    
    '通用转帐
    strSql = "DELETE FROM " & mstrNewUser & ".TransVoucher"
    gclsBase.ExecSQL strSql