系统开发过中,2分钟之内搞定数据字典表文档的更新

原创 2004年03月16日 10:01:00

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

系统开发过中,数据字典表的更新

 

你们是否发现,

在系统开发过程中,你的数据库在不停的改变,最初发给每个开发人员的数据表定义,

已经变得面目全非了,如果你这个这个项目开发的负责人,下面的人老师说,怎么数据表又变了

怎么也不通知我们呢,有时候工作繁忙,也不一定能够通知到所有的开发人员。

为此,我特地作了一个自动化的工具,每当数据表又大的变动时,你不需要再次去修改原始数据字典文档了

你只要按照我的步骤来做,保证这一切在2分钟之内,帮你搞定数据字典文档的更新。

注意本方法,只针对MS SQL Server 2000。很遗憾,这一切,还没有做到完全自动化,谁有这个兴趣,完善它,我相信到时候,这一切会在1分钟之内搞定。

1.     在你的系统数据库中,创建以下存储过程

   该存储过程是获取数据字典信息

 

create Procedure GetAllTableInfo As

begin

       DECLARE @au_id varchar(11), @strName varchar(50), @Tid int,@strOwner varchar(50)

      

       --获取所有的用户表信息

       DECLARE All_Tables CURSOR

          FOR select convert(varchar,Name),ID from sysobjects where xtypE='U' order by Name

      

       Create Table #ColInfo

       (

              TName varchar(50),               --表名称

              ColName varchar(50),              --列名称

              REMARK sql_variant,              --注释

              Type varchar(50),              --数据类型

              DefaultValue varchar(255),   --缺省值

              IsAllowNull varchar(10),       --是否允许为空

              IsPrimaryKey char(2)           --是否为主键,用*标记

       )

       --主键信息

       Create Table #PkInfo

       (

              TABLE_QUALIFIER varchar(50),

              TABLE_OWNER varchar(50),

              TABLE_NAME varchar(50),

              COLUMN_NAME varchar(50),

              KEY_SEQ int,

              PK_NAME varchar(50)

       )

      

       set @strOwner=user_name()

      

       OPEN All_Tables

       FETCH NEXT FROM All_Tables into @strName,@Tid

       while @@FETCH_STATUS = 0

       begin

              --插入表及其注释信息

              Insert Into #ColInfo

              SELECT @StrName,'',isnull(Value,''),'','','',''

              FROM (select @strName TName) A left join

                     ::fn_listextendedproperty('MS_Description', N'USER', N'dbo', N'Table', @strName, NULL, NULL)  --表的注释信息

                    ON 1=1

              --插入列信息

              insert into #ColInfo

              select @strName,C.name CName,convert(varchar,R.value)+(case c.status when 0x80 then char(13)+char(10)+'自动增长列' else '' end),

                     (case when (C.xtype>=34 and C.xtype<=58) or C.xtype in (61,98,99,104,127,189) then T.name when c.xtype in (59,60,106,108,122) then T.name+'('+convert(varchar,C.xprec)+','+convert(varchar,C.xscale)+')' else T.name+'('+convert(varchar,C.length)+')' end),

                     isnull(Def.text,''),

                     case isnullable when 1 then '' else '' end,

                     ''

              from (systypes T

                   inner join

                   (

                        syscolumns C

                        left join

                        SysComments Def

                        on C.cdefault=Def.id and 1=Def.colid

                   )

                   on T.xtype=C.xtype and T.xusertype=C.xusertype

                     )

                   left join

                     ::fn_listextendedproperty('MS_Description', N'USER', N'dbo', N'Table', @strName, N'Column', NULL) R --列的注释信息

                   on convert(varchar,R.objname)=convert(varchar,C.Name)

              where C.id=object_id(@strName)

 

             

              insert into #PkInfo EXEC [dbo].[sp_pkeys] @strName,@strOwner, DEFAULT

             

              fetch next from All_Tables into @strName,@Tid

       end

      

       --更新主键信息

       update #ColInfo

        set IsPrimaryKey=''

        from #PkInfo

       where #PkInfo.TABLE_NAME=#ColInfo.TName and #PkInfo.COLUMN_NAME=#ColInfo.ColName

 

       Close All_Tables

       DEALLOCATE All_Tables

      

       select '%%%%' ObjName,'' REMARK,'' Col1,'' Col2,'' Col3,'' Col4,TName,0 flag

       from #ColInfo

       where ColName=''

       union

       select  '表名:'+TName,REMARK,'','','','',TName,1 flag

       from #ColInfo

       where ColName=''

       union

       select '列名','注释','数据类型','缺省值','是否允许空','主键',TName,2

       from #ColInfo

       where ColName=''

       union

       select ColName,REMARK,Type,DefaultValue,IsAllowNull,

              IsPrimaryKey,TName,3

       from #ColInfo

       where ColName<>''

      

       order by 7,8,3

 

       drop table #PkInfo

       drop table #ColInfo 

end

 

2.     MS SQL Sever 提供的查询分析器中,

Exec GetAllTableInfo

3.     将查询结果信息,复制到MS Excel Sheet

4.     MS Excel Sheet中,删除掉最后两列

5.     全选Sheet信息,复制到MS Word中,执行下面 Word宏命令

Sub Macro1()

'

' Macro1 Macro

' 宏在 2004-3-12 徐侠君 录制

'

A:

    Selection.Find.ClearFormatting

    With Selection.Find

        .Text = "%%%%"

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchByte = True

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    If Selection.Find.Execute Then

   

        Selection.Delete Unit:=wdCharacter, Count:=1

       

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

       

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

       

        Selection.Cells.Merge

        Selection.MoveDown Unit:=wdLine, Count:=1

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

        Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

        Selection.Font.Bold = wdToggle

        Selection.MoveRight Unit:=wdCharacter, Count:=1

        Selection.SelectCell

        Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend

        Selection.Cells.Merge

        Selection.MoveDown Unit:=wdLine, Count:=1

        Selection.HomeKey Unit:=wdLine, Extend:=wdExtend

        Selection.MoveLeft Unit:=wdCharacter, Count:=2

        Selection.HomeKey Unit:=wdLine

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

        Selection.Font.Bold = wdToggle

        Selection.MoveDown Unit:=wdLine, Count:=2

        GoTo A

    Else

        MsgBox "修改各是成功"

    End If

   

End Sub

 

1.     如果还发现那些地方不符合你的要求,请自己完善

ER图,数据建模与数据字典

需求分析是做项目中的极为重要的一环,而作为整个项目中的'血液'--数据,更是重中之重。viso,workbench,phpmyadmin等软件可以帮我们更好的处理数据分析问题。 ER图  E-...
  • GarfieldEr007
  • GarfieldEr007
  • 2017年01月12日 23:02
  • 1574

数据库设计--数据字典

数据字典定义数据字典(data dictionary)是对于数据模型中的数据对象或者项目的描述的集合,这样做有利于程序员和其他需要参考的人。...
  • baidu_37107022
  • baidu_37107022
  • 2017年06月20日 16:06
  • 1008

蓝的成长记——追逐DBA(20):何故缘起,建库护航 (二次发布-练习使用markdown编辑)

体现本文更好浏览效果请访问源地址: http://blog.csdn.net/huangyanlong/article/details/48776573原创作品,出自 “深蓝的blog” 博客,欢迎...
  • huangyanlong
  • huangyanlong
  • 2015年10月14日 00:52
  • 1417

使用Navicat快速生成数据库字典

多互联网创业型公司前期都不太规范,新人来了,没有太多的设计文档、需求文档,也没有ER图、数据字典这些东西。所以,熟悉业务需要不少时间,很多简单的问题(如数据表中状态值的含义)不得不问老员工,因为没有注...
  • maquealone
  • maquealone
  • 2017年03月07日 14:46
  • 2612

PowerDesigner 生成数据字典

以下为自己的一个例子,有包清单,表清单,表的列清单。 打开 PowerDesigner 打开一个数据模型 CDM 或 PDM 选择 Report → Reports 点击 New R...
  • xixi_666
  • xixi_666
  • 2013年12月30日 14:31
  • 1757

JAVA中的数据字典

在开发大型的工程的时候,需要“数据字典”——常用的字符串、常量等等全部都定义在数据字典中。能够解释在数据库中存储的数据表示是神马含义,能够让代码与业务联系起来有着尤为重要的作用   例如,地区码为...
  • hbiao68
  • hbiao68
  • 2013年12月04日 09:56
  • 4152

查询数据字典基表

查询动态性能视图基表(V$PROCESS) 注:动态性能视图的基表是不能通过DBA_VIEWS查看的,而是V$FIXED_VIEW_DEFINITION SQL> select * from v$f...
  • gumengkai
  • gumengkai
  • 2016年11月17日 15:39
  • 737

数据字典及其使用

1      数据字典 1.1     什么是数据字典 将如下这些具有相同类型的配置项,配置到系统的数据字典表中,方便系统维护,由超级管理员统一在后台进行数据字典维护,如果用户需求要增加变更配置项...
  • u012373815
  • u012373815
  • 2015年11月01日 00:33
  • 24322

数据字典的主要作用是什么?

数据字典是指对数据的数据项、数据结构、数据流、数据存储、处理逻辑、外部实体等进行定义和描述,其目的是对数据流程图中的各个元素做出详细的说明。 数据字典(Data dictionary)是一种用户可以访...
  • u012881904
  • u012881904
  • 2016年05月21日 10:52
  • 16318

数据字典项设计实现方案

最近被安排做数据字典的设计,本人一头雾水啊,没弄过啊,网上搜索一下,这个老兄写的很好,原文链接:http://blog.csdn.net/stevene/article/details/575142?...
  • pcxbest
  • pcxbest
  • 2013年12月31日 11:22
  • 14473
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:系统开发过中,2分钟之内搞定数据字典表文档的更新
举报原因:
原因补充:

(最多只允许输入30个字)