软件官网:http://www.ezdml.com/
EZDML
EZDML是一个数据库建表的软件。
可快速的进行数据库表结构设计,建立数据模型。
类似大家常用的数据库建模工具如 PowerDesigner、ERWIN、ER-Studio 和 Rational-Rose 等的超级精简版。
该软件是从 2006 年 4 月开发至今仍然在维护,最近在 2017 年 8 月 5 日 更新了 V2.15 版本。
作者的精神值得我们学习。
包含功能:
1. 表结构设计:创建表、字段、主键、外键、索引和注释;
2. 表描述:可直接编辑文字描述快速生成表结构,爱用键盘的人会喜欢这个功能;
3. 模型图:自动生成模型图;可设计和显示物理/逻辑视图,支持自动布局、平移、缩小放大等操作;
4. 导入数据库:导入数据库中的已有对象,即所谓的逆向工程(支持ORACLE、MYSQL、SQLSERVER和ODBC);
5. 生成数据库:可生成直接创建数据库的SQL脚本;也可与现有数据库比较,然后生成同步脚本的功能,不至于丢失现有数据;
6. 生成代码:目前可生成C++、Pas、C#和Java的简单类定义代码;
7. 导出EXCEL。
使用说明:
模型图中可 按加减号放大缩小,方向键平移,R复原,F居中;
表的描述字中,可以输入简写字母代替数据类型,S,I,F,D,Y,E,B分别代表文本,整数,浮点数,时间,真假,枚举,文件,如
测试表
--------
ID PK
RID FK
标题 S(200)
数量 I
单价 F(10,2)
日期 D
注释 S
外键关系目前可以在模型图上创建显示,或在字段的关联表字段里设置;
导入生成功能可支持ORACLE、MYSQL、SQLSERVER和ODBC数据库;
生成功能在未连接数据库时,生成的是创建数据库的初始化SQL;只有连接了数据库,才会与数据库进行比对生成升级SQL;
为避免数据丢失,同步数据库时不会删除字段,但仍然会生成注释形式的相应SQL;
修改INI文件自定义配置(菜单:工具|修改INI配置):
[DefaultFieldTypes] ——修改缺省数据类型对应的物理类型
1=String:VARSTR(2000) ——修改逻辑类型名为String的物理类型名为VARSTR,默认长度为2000
2=Integer:DECIMAL ——修改逻辑类型名为Integer的物理类型名为DECIMAL,无默认长度
[CustFieldTypes] ——添加额外的数据类型到类型下拉列表
1=BigInt
2=Decimal
3=TestUnk
[CustDataTypeReplaces] ——指定替换字段类型
1=VARCHAR2:NVARCHAR2 ——将VARCHAR2替换为NVARCHAR2(全字匹配)
2=NUMBER(10):DECIMAL ——将NUMBER(10)替换为DECIMAL(全字匹配)
3=%TEXT%:NCLOB ——将TEXT替换为NCLOB(模糊匹配,类似SQL中的like操作)
4=%RAW:BLOB ——将RAW替换为BLOB(左边模糊匹配,右边精确匹配,类似SQL中的like操作)
[Options]
AutoSaveMinutes=5 ——定时每5分钟自动保存,保存为同目录.tmp文件(打开时自动加载tmp,想恢复加载原始文件的话要先删除tmp),为0则不保存
FieldNameMaxDrawSize=64 ——在模型图上允许显示的最大字段名长度
FieldTypeMaxDrawSize=48 ——在模型图上允许显示的最大字段类型长度
CreateSeqForOracle=0 ——禁止为ORACLE表生成序列号
OCIDLL=D:\oracle\ora112\instantclient\oci.dll ——指定OCI.dll的路径(用于instant client或装了多个ORACLE client时)
还有一些快捷的小操作:
/ 键 缩放至最佳大小
在一个模型内,按表名的第一个字母的键,会直接打开该表的描述界面。
接下来讲一下我认为能对我们日常开发有很大帮助的的功能,那就是他的脚本。
脚本语言是 pascal 语言,一个已经凉了的语言。所以不建议大家在上面花费精力。
而且该软件的语言似乎和普通的 pascal 语言规则不太一样,pascal是有几种版本的,这里我也懒得深入研究了。
下面这个就是 C# 的实体类脚本,在软件的默认基础上修剪改造的。大家可以简单理解一下,语言的语法都是相通的。
function DEF_CTMETAFIELD_DATATYPE_NAMES_CSHARP(idx: TCtFieldDataType): string;
begin
case Integer(idx) of
0: Result := 'unknown';
1: Result := 'string';
2: Result := 'int';
3: Result := 'decimal';//替换double
4: Result := 'DateTime?';//可空类型
5: Result := 'bool';
6: Result := 'enum';
7: Result := 'var';
8: Result := 'object';
9: Result := 'List';
10: Result := 'function';
11: Result := 'EventHnadler';
12: Result := 'type';
else
Result := 'unknown';
end;
end;
//获取属性名
function getPublicName(N: string): string;
begin
Result := N;
if (Result <> '') then
if Result[1] >= 'a' then
if Result[1] <= 'z' then
Result[1] := Chr(Ord(Result[1]) - (Ord('a') - Ord('A')));
end;
function GetDesName(p, n: string): string;
begin
if p = '' then
Result := n
else
Result := p;
end;
var
I, L: Integer;
clsName, S, T, V, FT: string;
f: TCtMetaField;
//获取字段名
function GFieldName(Fld: TCtMetaField): string;
begin
Result := GetDesName(f.Name, f.DisplayName);
end;
//获取字段类型
function GFieldType(Fld: TCtMetaField): string;
begin
Result := DEF_CTMETAFIELD_DATATYPE_NAMES_CSHARP(f.DataType);
end;
//程序开始
procedure AddFieldInfo;
begin
S := GetDesName(f.Name, f.DisplayName);
begin
FT := DEF_CTMETAFIELD_DATATYPE_NAMES_CSHARP(f.DataType);
S := 'public ' + FT + ' ' + getPublicName(S)
+ '{'
+ 'get;'
+ 'set;'
+ '}' + #13#10;
end;
T := F.GetFieldComments;
if T <> '' then
begin
S :='/// <summary>' + #13#10
+ '///' + T + #13#10
+ '/// </summary>' + #13#10
+ S;
end;
CurOut.Add(' ' + StringReplace(S, #13#10, #13#10' ', [rfReplaceAll]));
end;
begin
with CurTable do
begin
S := GetTableComments;
CurOut.Add('');
CurOut.Add('using System;');
CurOut.Add('using System.Text;');
CurOut.Add('');
CurOut.Add('namespace ' + Name);
CurOut.Add('{');
S := GetTableComments;
if S <> '' then
begin
S := StringReplace(S, '}', '%7D', [rfReplaceAll]);
CurOut.Add(' //' + StringReplace(S, #13#10, #13#10' ', [rfReplaceAll]));
end;
L := 0;
for I := 0 to MetaFields.Count - 1 do
begin
f := MetaFields[I];
S := GetDesName(f.Name, f.DisplayName);
if L < Length(S) then
L := Length(S);
end;
//表名
clsName := Name;
CurOut.Add(' [NPoco.TableName("' + clsName + '")]');
CurOut.Add(' [NPoco.PrimaryKey("Id", AutoIncrement = true)]');
CurOut.Add(' public class ' + clsName);
CurOut.Add(' {');
CurOut.Add('');
//构造函数
CurOut.Add(' public ' + clsName + '()');
CurOut.Add(' {');
CurOut.Add(' }');
for I := 0 to MetaFields.Count - 1 do
begin
f := MetaFields[I];
AddFieldInfo;
end;
CurOut.Add(' }');
CurOut.Add('}');
end;
end.