【胜天进销存】源代码/com+的群星医药源码/大赠送!只希望共同研究和共享!!! (100分)

  • 主题发起人 主题发起人 laoli
  • 开始时间 开始时间
to skyzerobase :
装EHLIB3.0时出错:(
[Warning] DclEhLib70.dpk(4): File not found: 'EhLibReg.dcr'
[Fatal Error] EhLib70.dpk(52): File not found: 'DBSumLst.dcu'

怎么解决?
 
呵呵,网站空间大就是好,80多M的完整代码,俺也看了好半天:~)
因为ftp空间和我的web空间是一样的,如果大家到
http://www.2ccc.com/article.asp?articleid=120
能够下载,我想删除ftp的东西了,因为重复了嘛。
全部都是本地下载。
 
To javanewbird,
应该是EHLIB3.0的搜索路径未加上去!
即Delphi =>Tool=>Environment Options=>Lrbrary=>Lrbrary Path
加上这文件的所在目录.
 
请问胜天的主界面的导航是用什么控件现实的,里面都是第三方控件我无法看到,因电脑速度太慢无法下载那么多的第三方控件。
 
To c3411080
请看看山泉的帖子啦!
 
我也想看一下,谢谢
 
to skyzerobase
请问山泉的贴子在哪
 
To c3411080
在楼楼上啊!胜天的主界面是网页来的!你看看源码目录就会看见啦!
 
很好:)学习中.......在此谢过!
 
楼主能发这份源代码给我吗?谢谢了
我的email: xyq407@163.com
 
在syspublic.pas中

function SetSkinEngineFile(sFile: string): Boolean;
begin
Result := False;
if sFile = '' then
begin
with frmData do
SeSkinEngine.SkinFile := sFile;
end
else
begin
sFile := GetSystemDir + FILE_SKINS + '/' + sFile;
MessageDlg(sFile, mtWarning, [mbOK], 0);
//加入mess,看skin皮肤应该放在哪里,然后把st/winskins目录拷到哪里就可以换肤了。
if not FileExists(sFile) then
Exit;
frmData.SeSkinEngine.SkinFile := sFile;
end;
Result := True;
end;


另外大家说他用了很多第三方工具,其实不然
他主要用: devexpressBar(可用5.1替换),skinengine3.4.7,devexpressGrid3.22,
reportmachine2.6(是这个控件需要 infopower,ehlib,rx2.75
rm26也可以不要infopower,在rm.inc中修改。
而不是程序本身需要。 )
还有:刚开始我rm3.0 ,结果他的报表格式和2.6的不合,又装2.6才行。
据说rm2.6不够稳定,而rm3.0和2.6格式不合,升级困难,rmswitch.exe也不好用。

 

在syspublic.pas中

function SetSkinEngineFile(sFile: string): Boolean;
begin
Result := False;
if sFile = '' then
begin
with frmData do
SeSkinEngine.SkinFile := sFile;
end
else
begin
// sFile := GetSystemDir + FILE_SKINS + '/' + sFile;
sFile := GetExePath + FILE_SKINS + '/' + sFile; <=GetSystemDir改为GetExePath
这样换肤才可以生效

MessageDlg(sFile, mtWarning, [mbOK], 0);
//加入mess,看skin皮肤应该放在哪里,然后把st/winskins目录拷到哪里就可以换肤了。
if not FileExists(sFile) then
Exit;
frmData.SeSkinEngine.SkinFile := sFile;
end;
Result := True;
end

多谢tt8
 
为什么RxLibD7Setup.EXE安装时是显示乱码?安装后不能正常使用?
 
to skyzerobase

应该是EHLIB3.0的搜索路径未加上去!

我马上试试,谢谢:)
 
问题多多啊,我的SKIN3安装也有问题,:(
手动安装时出现"because it is not a design time package"
 
安装 Skin3:
先双击'se_db_dsgn_dX.dpk',选择Compile;
再双击'se_db_dX.dpk', 选择Install;

 
谢谢mantousoft,终于上去下载了![:)][:)]顺便看到好多好东西,下载了先,呵呵!
 
安装SKIN 3时出现"package d:/test/borland/delphi7/projects/bpl/se_db_d7.bpl can't be installed because it is not a design time package."还是不行啊:(
 
To javanewbird
请著述Skin3安装过程.
你先双击了[ 那个[ 包 ]
 

Similar threads

D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
559
import
I
后退
顶部