zljlong的专栏

本实例源码主要是讲了TCP/remote的分布式开发 效果还是不错了 改变了以往COM+的实施麻烦的问题 适合三层应用程序的开发 1.系统服务端开发 采用delphi2007及remobjects SDK 最新版本。 2.客户端的数据访问已经封装在Dll目录下的DllDataAccessObject.dll中， 所以新用户开发时不需要再安装delphi2007及remobjects SDK ， 其他版本也可以。 3.用户开发时只要写个SQL就可以进行远程传输数据。 4.ERP模型使用DELPHI7开发，用户在开发时需引用commom目录下的UnitRemoteLibary单元，集成了远程REMOTE访问数据库 服务端已经考虑了事务，所以不用担心。 5.请仔细研究源码吧...谢谢！ 例：查询数据 procedure TMainForm.Button1Click(Sender: TObject); var vDatas:OleVariant; begin FRServerAddress:=Edit1.Text; Fiport:=StrToInt(Edit2.Text); vDatas:='select * from tbspda'; if Getdatas(FRServerAddress,Fiport,vDatas) then Cds.Data:=vDatas else ShowVarError(Handle,vDatas,'查询时出错!'); end; 执行数据： procedure TMainForm.Button2Click(Sender: TObject); var vDatas:OleVariant; begin FRServerAddress:=Edit1.Text; Fiport:=StrToInt(Edit2.Text); vDatas:='insert into tbdev(mycode)values(''100'')'; if not Setdatas(FRServerAddress,Fiport,vDatas) then ShowVarError(Handle,vDatas,'保存失败!'); end;

DBX 三层 CobblerDemo, //公共的查询 function GetSearchData(const SqlStr:string;var V1:OleVariant):Integer; function ExecSQLStr(const SqlStr:string):Integer; //返回单表数据集 function GetSimpleData(const SqlStr:string;var V1:OleVariant):Integer; //主从巢状 function GetMasterDetailData(const MasterSQL,DetailSQL,KeyFields:string;var V:OleVariant):Integer; //保存单表 function SaveSimpleData(const SimpleTable:string;const SaveData:OleVariant):Integer; //保存主从数据 function SaveMasterDetailData(const MasterTable,DetailTable,KeyFields:string;const SaveData:OleVariant):Integer;

车辆管理系统，delphi的源码，可以看看，参考下！

龙口矿务局工资管理系统,在网上下载的，能调试通，功能太一般，换点份

程序开发：古城童话 联系ＱＱ：382511147 欢迎各位.Net技术爱好者与本人交流！ 个人网站：http://www.baseshow.com/netcs/ 　　　　　http://www.baseshow.com 　　　　　 　　　　　 程序说明： db.cs　为数据库连接类 数据库文件名保存在 web.config中，请自行修改设置 Operate.cs　为操作类，新留言的保存操作由此类完成 GuestBook.cs　为留言内容的实体类