ORACLE+Midas的远程数据模块配置过程[2004年4月18日 10:17]

原创 2004年07月11日 02:57:00

/////////////////////////////////////////////
//            服务端
//////////////////////////////////////////////
1.Oracle中创建表
  登陆system/manager
  Create table Customer(
   CustID integer,
   CustName varchar(20),
   Memo varchar(200)
   );
2.BCB中File/New/Multitier
CoClassName:CustInfoSvr
3.控件Data Access/DataBase
DataBaseName: CUSTINFO
DriverName:ORACLE
LoginPrompt:false
Params:
SERVER NAME=ORCL
USER NAME=SYSTEM
PASSWORD=MANAGER
4.控件Data Access/UpdateSQL:
Name:CustInfoUpdateSQL
DeleteSQL:delete Customer where CustID=:old_CustID
InsertSQL:insert into Customer values (:CustID,:CustName,:Memo)
ModifySQL:update Customer set
CustID=:CustID, CustName=:CustNamename,Memo=:Memo where
CustID=:old_CustID
5.控件Data Access/TQuery:
Name:CustInfoQuery
UpdateObject:CustInfoUpdateSQL
UpdateMode:UpdateWhereKeyOnly
DatabaseName:CUSTINFO
6.控件Midas/DataSetProvider:
Name:CustInfoProvider
Options< DataSet:CustInfoQuery
UpdateMode:upWhereKeyOnly
7.Main窗体中构造函数
    CustInfoSvr = new TCustInfoSvr (Application);
    if (FindWindow (NULL, "Borland Socket Server") == NULL)
        WinExec (AnsiString (ExtractFilePath(Application->ExeName)
+ "Scktsrvr.exe").c_str(), SW_SHOW);
打开Borland Socket Server并添加端口27241
程序将通过BCB的Socket Server在这个端口发布服务
//////////////////////////////////////////
///                客户端
///////////////////////////////////////////
1.File/New/Data Modules
Name:CustInfoData
2.Midas/SocketConnection
Name:CustInfoConnection
Address:127.0.0.1
Port:27241
ServerName:DataModuleSvr.CustInfoSvr
              //注:需打开客户端和Socket Server才能选择ServerName
3.Midas/ClientDataSet
Name:CustInfoCds
RemoteServer:CustInfoConnection
ProviderName:CustInfoProvider
4.Data Access/DataSource
Name:CustInfoSource
DataSet:CustInfoCds
5.MainForm构造函数
        try
        {
            CustInfoData->CustInfoCds->Open();
            DataSource = CustInfoData->CustInfoSource;
            DBGrid1->DataSource = CustInfoData->CustInfoSource;
        }
        catch(Exception &e)
        {
            ShowMessage(e.Message);
        }
//配置结束
这个程序主要通过DataSetProvider来提供服务
还没有深入了解DCOM,不过我想这应该就是DCOM的一个应用
DataSetProvider只要提供一个数据集就可以提供远程调用

2007年4月17日 星期二

哈哈,签下债了,要写的这天也什么事,借来的笔记本还给人家了,呵呵,没的玩了     没分配什么活,签的合同公司盖了章发下来了,还发了个卡,让上下班打卡,哈哈,下了班尝了尝鲜,就这样开始了我的民工生活,...
  • liusping
  • liusping
  • 2008年08月25日 22:03
  • 175

2006年3月18日,农历2月19,我将结婚了:)

这么多年,和女朋友走到今天,其实也不是很顺利,两个人也是经常的吵架,现在也终于是准备结婚了,虽然还没有在心理上真正做好准备,呵呵,但我希望我们能开开心心的一起走过这辈子:)...
  • tolimit
  • tolimit
  • 2005年12月19日 15:04
  • 522

1_2017年12月26日USDJPY分析

2017年12月26日USDJPY分析周线分析见图分析:1.趋势:趋势是一个比较不典型,但可以算是横盘 2.布林通道:还是一个横着的通道,开口稍微有一点点向上 3.上方压力点:现在已经差不多到了上...
  • qq_33781658
  • qq_33781658
  • 2017年12月26日 18:09
  • 111

2004年2月28日,星期六(2)

    我感叹中国人之多,中国贫富差距之大,中国不平等之广泛。    唉,不感叹了,我上火车后,我知道我没有座位,然后朝火车的尾部走去,按照惯例,火车尾部总有一节车厢是机动的。呵呵,我的判断是正确的。...
  • sun_DouDou
  • sun_DouDou
  • 2006年08月09日 17:21
  • 880

2017.03.18【NOIP 普及组】模拟赛C组 剪草 题解

原题:http://172.16.0.132/junior/#contest/show/1376/3题目描述:有N棵小草,编号0至N-1。奶牛Bessie不喜欢小草,所以Bessie要用剪刀剪草,目标...
  • mi_joe
  • mi_joe
  • 2017年03月24日 19:34
  • 267

微软Visual J++常见问题解答

微软Visual J++常见问题解答Microsoft CorporationLast Updated: December 9, 1997Visual J++是什么?Microsoft® Visual...
  • Tunix126
  • Tunix126
  • 2006年10月11日 17:18
  • 1053

2010年4月18日

de>linux2.6.20 sd/mmc卡驱动学习日记1(基于s3c2440)   首先,我们来看Makefile文件吧,Makefile中文件的目标文件...
  • tszy208
  • tszy208
  • 2017年07月07日 09:23
  • 51

【热门】2004年十大网络流行语征集ing

每一种文化都有自己的语言特色,网络文化的语言特色是什么?伴随着网络的普及和网民的增加,网络上流行的语言甚至已经进入了人们的现实生活,开始改变了人们的生活习惯。想准确知道2004年你周围的最流行的网络语...
  • xtigmh
  • xtigmh
  • 2004年11月21日 19:33
  • 1452

微软仍计划在2017年发布两次Windows 10系统升级

微软本月重申,今年将发布两次Windows 10系统升级,这相当于2016年的两倍。但他们对公司的原定目标仍有顾虑。 在11天前澳大利亚举行的微软技术会议上项目管理主管比尔·卡拉古尼斯指出,后续...
  • Harriet666
  • Harriet666
  • 2017年02月24日 15:00
  • 1829

2015年12月18日技术工作日志

不知道该写什么了。心里很乱。因为事情很多。索性,从今天开始,我每天记录一下当天发生的事情吧。尤其是工作当中值得分享的东西。 早上的天气很好,寒冷的冬天,竟然没有那么刺骨。伴着窗前柔和的阳光,我的一天...
  • houerfei
  • houerfei
  • 2015年12月18日 16:55
  • 384
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ORACLE+Midas的远程数据模块配置过程[2004年4月18日 10:17]
举报原因:
原因补充:

(最多只允许输入30个字)