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

  • 主题发起人 主题发起人 laoli
  • 开始时间 开始时间
To nhuangjr
请下载:胜龙源码030915.rar
出错只是程序把Maindb.mdb删除了!上边个无问题! ^-^
 
To nhuangjr
请Sysbulic

function ResSaveMainDB(sPath, sRcName, sFileName: string): boolean;
begin
{
Result := false;
if ResSave(sPath, sRcName) then
begin
Result := CopyFile(pchar(sPath + FILE_ACCESS_DLL), pchar(sFileName), False);
DeleteFile(sPath + FILE_ACCESS_DLL);
end;
}
//jack modify 2003-06-03]
result:=true;
try
application.MessageBox(pchar(sPath + FILE_ACCESS_DLL),'测试',0);
Result := CopyFile(pchar(sPath + FILE_ACCESS_DLL), pchar(sFileName), False);
//DeleteFile(sPath + FILE_ACCESS_DLL); <=加//
except
result:=false;
end;
end;
 
function TfrmLoginFromEdit.SaveMdbFile: Boolean;
begin
Result := True;
//我下载的好像这行有问题的 多了个"/"
if Result and not ResSaveMainDB(GetExePath+'[red]/[/red]data/', 'MainDB.mdb', edtPath.Text) then
begin
MsgBox('新建账套失败,请重新选择路径!', '提示', MB_OK);
Result := False;
end;
end;
 
上传版本:胜天源码20030916.rar
上边问题解决了!
 
[严重错误] SysPublic.pas(617): File not found: 'RxGIF.dcu'
怎么办??
 
To adda:

'RxGIF.dcu' 应该是Rxlib的搜索路径未加上去!
即Delphi =>Tool=>Environment Options=>Lrbrary=>Lrbrary Path
加上这文件的所在目录.
 
在哪有“胜天源码030915”下呀

 
To Adang:
ftp://202.97.194.147/ 维维软件园的FTP服务器
帮人买下广告先, ^-^
 
编译成功,但原代码有很多问题啊
 
skyzerobase

030915是你改的吧? dex控件用4.5不用3.22的可以吗?
有什么变化?

thanks.



 
To tt8
是小弟改的!不过只该了很小问题
包括:帮助啦!小助手!Web界面!帐套路径问题!选订单啦!
源码已经是20030916了!希望有高手上传更改了的!只因小弟只才疏学浅啊!
dex控件用4.5就少了个控件!好象是XXXgrid!



 
这事好象和江湖争端有关系。。。
 
to:skyzerobase,

ftp://202.97.194.147/
不能下载。。。。。。。。。。。。。。
 
To zhksoft:
是啊!需要密码啊!那怎样给你啊!共100M啊!
 
ftp://202.97.194.147/
好象不需要密码了!可以进去了!
 
我下了,可以呀,先谢skyzerobase
我现在也打算在胜天的基础上重新开发一套进销存系统。
有兴趣的同志可以多联系。
MSN:Adangliang764@hotmail.com
 
月结、年界、另存为不行。
感觉整个软件构架不错。思想良好。
但好象外部控件太多。感觉对数据库依赖性比较大
 
什么人为什么把它的源码给放出来了?
各位有什么好的研究成果?说来看看
 
在Delphi7装VCLZip2时报错:
Undeclared indentifier:'SListIndexError'是什么原因?
 
能不能做个简化,用这么多控件,干脆做个只用必需的控件的吧
 

Similar threads

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