EmirSoft_Esdelphi
所属分类：Pascal/Delphi编程
开发工具：Delphi
文件大小：685KB
下载次数：27
上传日期：2010-03-10 19:50:15
上 传 者：
emirsoft
说明： 我正在找工作，薪金要求：最少6K以上，否则勿访；电13316624198
QQ：307180242
仿Delphi工具或控件(开发平台)，源码delphi7编译通过
如果在您的项目中，具有一个类似Delphi的开发平台，你认为如何？
支持对项目的源代码存取数据库，
完全可以运行期设计操作或编译子模块，
也可以像Delphi一样打开相关项目文件操作
(QQ：307180242
仿Delphi工具或控件(开发平台)，源码delphi7编译通过
如果在您的项目中，具有一个类似Delphi的开发平台，你认为如何？
支持对项目的源代码存取数据库，
完全可以运行期设计操作或编译子模块，
也可以像Delphi一样打开相关项目文件操作)
文件列表:
Edelphi\clean.bat (53, 2004-02-07)
Edelphi\DBREG.DCR (10664, 1996-02-10)
Edelphi\dcc32.cfg (174, 2009-05-23)
Edelphi\DesignerMainUnit.dfm (626198, 2005-10-23)
Edelphi\DesignerMainUnit.pas (7173, 2005-10-23)
Edelphi\EDelphi.dpr (1337, 2006-06-03)
Edelphi\EDelphi.res (3372, 2008-03-19)
Edelphi\Editor.dfm (1123, 2006-02-22)
Edelphi\Editor.pas (11843, 2006-04-11)
Edelphi\ESoftFrmProp.ini (262, 2009-06-07)
Edelphi\execute.bat (30, 2006-02-17)
Edelphi\jcl.inc (3856, 2003-06-30)
Edelphi\JEDI.INC (16837, 2003-05-12)
Edelphi\JVCL.inc (2924, 2003-05-15)
Edelphi\JvCtlConst.pas (4536, 2003-04-05)
Edelphi\JvEditor.pas (194458, 2003-06-25)
Edelphi\JvHLEditor.pas (56509, 2003-04-05)
Edelphi\JvHLParser.pas (15937, 2003-05-23)
Edelphi\JvStrUtil.pas (13383, 2003-05-23)
Edelphi\JvStrUtils.pas (29861, 2003-05-12)
Edelphi\JvTypes.pas (7965, 2003-04-05)
Edelphi\Main.dfm (3705, 2003-04-22)
Edelphi\PicEdit.dfm (2629, 2002-08-20)
Edelphi\PicEdit.pas (8728, 2002-08-20)
Edelphi\Proxies.pas (200, 2006-04-14)
Edelphi\Pubfuncu.pas (2050, 2006-01-25)
Edelphi\STDREG.DCR (19036, 1996-02-10)
Edelphi\SYSREG.DCR (3168, 1996-02-10)
Edelphi\ucompile.dfm (490, 1998-07-07)
Edelphi\ucompile.pas (639, 1998-02-08)
Edelphi\uconst.pas (599, 2008-03-10)
Edelphi\UnitCollectionsEditor.dfm (22671, 2006-02-16)
Edelphi\UnitCollectionsEditor.pas (18899, 2006-02-22)
Edelphi\UnitEmpty.dfm (737, 2006-04-26)
Edelphi\UnitEmpty.pas (18648, 2006-04-26)
Edelphi\UnitPackageInfo.pas (5827, 2006-04-17)
Edelphi\UnitPictureEditor.dfm (1942, 2005-10-22)
Edelphi\UnitPictureEditor.pas (1583, 2003-04-21)
Edelphi\UnitPropEditors.pas (5782, 2003-04-21)
Edelphi\UnitSetEditor.dfm (1075, 2003-04-21)
... ...
本人正在找工作，要求薪金6K以上；非诚勿扰！
133166241***郑生 QQ:307180242 E-mail:bink@emirsoft.cn
// *****************************************************************
// * Edelphi 系统 *
// * *
// * Copyright(c) 19***-2008 HongYi Info Tech Co., LTD. *
// * *
// * *
// *公司名称：弘乙软件科技有限公司 *
// *公司地址：东莞市学院路鸿裕二街二巷三号(EmirSoft开发组工作中心) *
// *公司电话：0769-23103069 22873486 133166241*** *
// *公司传真：0769-22468949 *
// *公司网址：http://www.emirsoft.cn www.hy-it.com *
// *****************************************************************
// 版权宣告：
// 本软件、及与本软件相关之档案，其智慧财产权皆属於弘乙公司所有。
//在共同签订的合约之下，本公司允许使用者在本公司授权范围内正常应用
//该软件。
// 本公司对本软件保有着作权，任何修改或是扩充本软件之程式内容的行
// 为，在未获得本公司之允许之前，皆属违法之行为，本公司保留追诉的权力。
// *****************************************************************
注意
编译器：调用Delphi7的编译器 DCC32.EXE
请修改DCC32.cfg配置文件 或直接 COPY Delphi7目录下的DCC32.cfg
如果需要在程序运行期调用EDelphi，请安装VDesign.dpk到您的IDE，并
且在您项目窗体中加入一个TVDesign控件和一个存取源码的数据集。调用方式如下：
procedure T<#MainForm>.atnDesignBeginExecute(Sender: TObject);
var
Fname:string;
begin
with cdsVDesign do
begin
FetchParams;
close;
Params.ParamByName('MoldName').Value:='<#PrgName>';//模块名称
Open;
end;
Fname:= Screen.ActiveForm.Name;
FEmirDesign:=TVDesign.Create(Screen.ActiveForm);
FEmirDesign.FrmName:=Fname; //文件名
FEmirDesign.UnitName:=Fname;
FEmirDesign.DataField:='FrmStr'; //存Dfm字段
FEmirDesign.PasField:='UnitStr'; //存Pas字段
FEmirDesign.KeyField:='FrmName'; //主键字段
FEmirDesign.DataSource:=dsVDesign;
FEmirDesign.BeginDesign;
end;
procedure T<#MainForm>.atnDesignEndExecute(Sender: TObject);
var
I:Integer;
begin
with Screen.ActiveForm do
begin
for I:=0 to ComponentCount-1 do
begin
if Components[I].InheritsFrom(TClientDataSet) then
if not (Components[I]=cdsVDesign) and TClientDataSet(Components[I]).Active then TClientDataSet(Components[I]).Active:=False
end;
end;
FEmirDesign.EndDesign;
if Application.MessageBox(Es_GetLang(11,LanguageID),Es_GetLang(10006,LanguageID),MB_YESNO )=IDYES then
cdsVDesign.ApplyUpdates(-1);
end;
近期下载者：
相关文件：
收藏者：