zoukankan      html  css  js  c++  java
  • pdm中字段大小写转化

    1.大写转小写

    Option Explicit
    ValidationMode = True
    InteractiveMode = im_Batch

    Dim mdl ' the current model

    ' 取得当前Model
    Set mdl = ActiveModel
    If (mdl Is Nothing) Then
    MsgBox "There is no current Model"
    ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
    MsgBox "The current model is not an Physical Data model."
    Else
    ProcessFolder mdl
    End If

    Private sub ProcessFolder(folder)
    '处理表
    Dim Tab
    for each Tab in folder.tables
    tab.code = LCase(tab.code)
    '修改字段名
    Dim col
    for each col in tab.columns
    col.code= LCase(col.code)
    next
    '修改索引名
    Dim idx
    for each idx in tab.indexes
    idx.code= LCase(idx.code)
    next
    '修改主键名
    Dim key
    for each key in tab.keys
    key.code= LCase(key.code)
    next
    next

    ' 同理处理视图
    ' Dim view
    ' for each view in folder.Views
    ' if not view.isShortcut then
    ' view.code = view.name
    ' end if
    ' next

    ' go into the sub-packages
    Dim f ' running folder
    For Each f In folder.Packages
    if not f.IsShortcut then
    ProcessFolder f
    end if
    Next
    end sub

    2.小写转大写

    Option Explicit
    ValidationMode = True
    InteractiveMode = im_Batch

    Dim mdl ' the current model

    ' 取得当前Model
    Set mdl = ActiveModel
    If (mdl Is Nothing) Then
    MsgBox "There is no current Model"
    ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
    MsgBox "The current model is not an Physical Data model."
    Else
    ProcessFolder mdl
    End If

    Private sub ProcessFolder(folder)
    '处理表
    Dim Tab
    for each Tab in folder.tables
    tab.code = UCase(tab.code)
    '修改字段名
    Dim col
    for each col in tab.columns
    col.code= UCase(col.code)
    next
    '修改索引名
    Dim idx
    for each idx in tab.indexes
    idx.code= UCase(idx.code)
    next
    '修改主键名
    Dim key
    for each key in tab.keys
    key.code= UCase(key.code)
    next
    next

    ' 同理处理视图
    ' Dim view
    ' for each view in folder.Views
    ' if not view.isShortcut then
    ' view.code = view.name
    ' end if
    ' next

    ' go into the sub-packages
    Dim f ' running folder
    For Each f In folder.Packages
    if not f.IsShortcut then
    ProcessFolder f
    end if
    Next
    end sub

  • 相关阅读:
    macOS Big Sur 关闭 SIP 正确方法
    绕过CDN寻找真实IP的8种方法
    mycat 链接mysql提示ERROR 3009 (HY000): java.lang.IllegalArgumentExceptio解决方式
    【SpringBoot】SpringBoot 内嵌容器及性能
    【Java】基于NIO的聊天室
    【Java】基于BIO的聊天室
    【ZooKeeper】ZooKeeper源码编译
    【SpringBoot】 使用外部Tomcat方法及启动原理
    【Java】深入理解SPI机制
    【SpringBoot】SpringBoot 自动配置原理
  • 原文地址:https://www.cnblogs.com/god-monk/p/9025451.html
Copyright © 2011-2022 走看看