说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

开 发 基 于ORACLE7 数 据 库 的 管 理 信 息 系 统-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
开 发 基 于ORACLE7 数 据 库 的 管 理 信 息 系 统-Delphi资料

1 前 言

开 发 高 水 平 的“ 管 理 信 息 系 统”, 选 择 性 能 优 越 的 数 据 库 是 最 重 要 的 一 环, 我 们 经 过 多 方 面 的 调 研 和 分 析, 选 择 了ORACLE7 数 据 库, 成 功 地 开 发 了 本 系 统。 实 践 证 明, 本 系 统 设 计 科 学、 合 理、 运 行 稳 定, 本 文 将 具 体 阐 述 一 下 系 统 中 应 用ORACLE7 数 据 库 的 方 法 和 技 术。

2 系 统 的 开 发、 运 行 环 境

本 系 统 在CLIENT/SERVER 结 构 上 运 行,SERVER 为CDC 4360 小 型 机, 和 快 速FDDI 环 网 相 接, 内 装 有UNIX 操 作 系 统 和ORACLE7 数 据 库, 系 统 总 体 网 络 协 议 为TCP/IP 。

CLIENT 端 为486 以 上 微 机,16M 以 上 内 存, 硬 盘 足 够 大, 通 过HUB、 路 由 器、MODEM 和SERVER 连 接。 开 发、 运 行 平 台 是WIN95, 安 装 了 网 络 软 件ONNET、ORACLE CDE 产 品 SQL*NET V2。 开 发 工 具 是POWERBULDER5.0( 以 下 简 称PB5)、VB4 等。

3 ORACLE7 在 系 统 中 的 各 种 应 用

3.1 一 般 性 的 数 据 管 理

一 般 性 的 数 据 管 理 用 数 据 窗 口 管 理 最 方 便, 可 以 在 数 据 窗 口 中 进 行 表 的 增、 删、 改、 查 询 等 操 作, 下 边 是 一 些 具 体 例 子(PB5):

3 .1 .1 连 通ORACLE 库, 并 将 数 据 装 入 数 据 窗 口:

dw_1.SetTransObject(sqlca)

dw_1.Retrieve()

3 .1 .2 增 加 一 条 记 录

dw_1.InsertRow(dw_1.GetRow( ) + 1)

3 .1 .3 删 除 一 条 记 录( 当 前 记 录)

dw_1.DeleteRow(0)

3 .1 .4 将 数 据 提 交 入 库( 存 盘)

dw_1.Update( )

commit;

3 .1 .5 打 印 数 据 窗 口( 表) 中 的 数 据

dw_1.print()

3 .2 文 字 类 数 据 管 理

3 .2 .1 文 本 入 库 和 查 询

文 本 入 库 和 查 询 可 采 用PB5 的MLE( 多 行 编 辑 器) 作 界 面, 编 辑 完 成 后 存 入ORACLE7 的LONG 字 段 中, 查 询 时 从LONG 字 段 中 取 出, 放 入MLE 中 查 询, 下 边 是 一 个 例 子:

//文本的预处理(以去除文本文件中的回车换行符为例说明)

//将文件读入BLOB型变量

text中fn=fileopen(txtname

streammode!)

if fn< > -1 then

fileread(fn

text)

fileclose(fn)

// 并 转 换 为 文 本

article=string(text)

s=len(article)

for v=1 to s

t=pos(article

char(13)+char(10)

v)

if t >0 then

article=replace(article

t

2

)

else

end if

next

mle_1.text=article

//将处理后的文件c:\bb.txt存盘,

文件中的回车换行符已全部去掉

text1=blob(article)

filname="c:\bb.txt"

fn=fileopen(filname

streammode!

write!

lockwrite!

replace!)

if fn< >-1 then

filewrite(fn

text1)

fileclose(fn)

end if

//文本入库

nr1=blob(mle_1.text)

updateblob gljwj set nr=:nr1 where bh=:pass_parm

and zwrq=:fsj and wjbs=:fl5 using sqlca;

commit;

// 放 入MLE 中 查 询

selectblob nr into :nr1 from gljwj where bh=:pass_parm

and wjbs=:fl5 and zwrq=:fsj using sqlca;

mle_1.text=blob(nr1)

3 .2 .2 从 库 中 重 新 生 成 文 本 文 件filename.txt 并 存 盘

select nr into :filen from fwgs where bh=:bh1

and lwrq=:zwrq1 using sqlca;

fname="c:\filename.txt"

fh=fileopen(fname

streammode!

write!

lockwrite!

replace!)

if fh< >-1 then

filewrite(fh

filen)

fileclose(fh)

end if

3 .3 处 理 图 象 文 件( 大 的 二 进 制 文 件)

图 象 文 件( 一 般 为BMP 位 图 文 件) 是 二 进 制 文 件, 将 其 以 数 据 流 方 式 存 入ORACLE7 的LONG 字 段 中, 查 询 时 从LONG 字 段 中 取 出, 放 入 图 象 框( 如p_1) 中 查 询, 下 边 是 一 个 例 子:

// 将 图 象 文 件 读 入BLOB 型 变 量pict 中

fn=fileopen(picname

streammode!)

if fn< > -1 then

fileread(fn

pict)

fileclose(fn)

// 将 图 象 放 入 图 象 框p_1 内 查 看

setpicture(p_1

pict)

end if

// 将 图 象 存 入 表pic 的LONG 字 段bmpt 中

updateblob pic set bmpt=:pict ;

commit;

较 大 的 图 象 文 件 一 次 不 能 入 库, 可 采 取 分 割 图 形 的 方 式, 分 块 存 入, 因 为LONG 字 段 所 存 放 的 数 据 大 小 一 般 是 没 限 制 的( 可 存 放2G 的 内 容)。

4 开 发 应 用 经 验

4 .1 建 议CLIENT 端 通 过SQL*NET V2 进 行ORACLE 数 据 通 信( 不 用SQL*NET TCP V1 产 品)

因 为 在ORACLE7 推 出 以 后,SQL*NET V1 就 没 有 做 一 些 改 进 工 作, 继 续 支 持 到ORACLE7.2

ORACLE7.3 以 后 的 产 品 将 不 支 持SQL*NET TCP V1, 所 以,ORACLE7 用 户 应 立 即 改 用SQL*NET V2, 不 然 会 影 响 到 库 的 运 行 稳 定 性。

ORACLE CDE2 和Developer 2000 提 供 了CLIENT 端ORACLE 产 品 的 安 装 程 序ORAINST.EXE, 运 行 该 文 件 来 安 装SQL*NET V2, 选 择 的 产 品 有:

a ORACLE TCP/IP ADPTER 2.1.4.1.3

b sql*net 2.1.4.1.4

在WIN95 下

网 络 软 件 产 品(Tcp/IP Vendor) 选 择Microsoft windows NT Tcp/IP 3.1

按 提 示 说 明 装 入 就 可 以 了, 另 外 还 要 做 以 下 工 作:

将SERVER 上 的tnsnames.ora 文 件 复 制 到CLIENT 端c:\orawin\network\admin 目 录 下:

ora7=(DESCRIPTION=

(ADDRESS=

(PROTOCOL=TCP)

(HOST=111.1.1.1)

(PORT=1521)

)

(CONNECT_DATA=(SID=ora7))

)

可 在SQLPLUS 下 键 入 连 接 命 令scott/tiger@ora7 测 试 连 接 情 况。

首 先 要 作 好 这 三 件 工 作:

4 .2 采 取 数 据 加 密 技 术

对 用 户 来 说, 查 询 信 息 是 有 权 限 的, 若 想 查 询 某 项 保 密 数 据, 需 正 确 地 键 入 密 码, 才 能 查 到。 面 对 同 一 台 微 机, 谁 能 正 确 地 键 入 密 码, 谁 就 能 做 查 询, 该 系 统 通 过 自 定 义 一 些 复 杂 的 函 数 运 算 产 生 密 码, 从 表(TABLE) 中 找 不 到 密 码 数 据, 通 过 这 种 精 密 的 设 计 处 理, 达 到 了 数 据 保 密 要 求。 下 边 是 密 码 修 改 和 识 别 的 一 段 程 序(PB5) :

password=sle_1.text

a8=pos(sle_1.text

/

)

if a8 >=1 then

password=left(sle_1.text

a8 - 1)

newpassword=mid(sle_1.text

a8+1

len(sle_1.text) - a8)

end if

select dwbm into :dm from dw where mm=:password;

sle_1.text=""

if sqlca.sqlcode< >0 then

messagebox(" 警 告:"

口 令 错 !

)

pw=pw+1

if pw >=3 then

close(w_bg_main)

end if

else

mm=dm

if a8 >=1 then

a7=messagebox("提示信息"

确定要修改口令吗(y/n)?

information!

YesNo!

2)

if a7=1 then

select dwbm into :a9 from dw where mm=:newpassword;

if sqlca.sqlcode< >100 or newpassword="" then

messagebox(" 提 示 信 息"

新 口 令 错 !

)

goto end1

else

update dw set mm=:newpassword

where mm=:password;

messagebox("请记住新口令"

string(newpassword))

commit;

end if

end if

end if

4 .3 用EXCEL 输 出 精 美 表 格

用VC 或PB5 将ORACLE 库 中 的 数 据 生 成 文 本 或EXCEL 文 件, 再 通 过EXCEL 的 数 据 链 接, 将 对 应 数 据 调 入 事 先 定 义 好 的EXCEL 标 准 输 出 表 中, 按 用 户 的 要 求 输 出。

PB5 生 成EXCEL 格 式 文 件 的SCRIPT 语 句 举 例 如 下:

dw_1.SaveAs("c:\glxx.xls"

excel!

true)

4 .4 正 确 使 用 日 期 型 数 据

在 库 操 作 过 程 中, 若 日 期 变 量 的 值 定 义 错 了, 将 提 示SQL 语 句 出 错 信 息, 错 误 现 象 非 常 隐 蔽, 不 好 察 觉, 这 是 编 程 过 程 中 的 常 见 错 误, 在 此 特 别 强 调 一 下。 举 一 个 例 子:

若 日 期 数 据 为 常 量, 要 按 下 列 格 式 赋 值( 用 一update 语 句 说 明):

update tab set rq='1-Feb-96';

commit;

5 结 束 语

该 系 统 的 开 发 和 应 用, 使 我 们 更 加 体 会 到 了ORACLE 数 据 库 的 优 越 性, 本 系 统 的 开 发 成 功 与 此 是 分 不 开 的, 我 们 将 做 进 一 步 探 索, 用 先 进 的 开 发 工 具 和 升 级 的ORACLE8 开 发 面 向 网 络 的 和 多 媒 体 的“ 管 理 信 息 系 统”。

【走近院士】李兰娟:云计算与大数据将成为医疗改革利器 迭代不等于学习,聚类分析也不等于机器学习 Office大肆杀戮,已攻下Chrome Web Store Bug都补好了?Google发布Android 4.4.3更新 微软被传收购Xamarin 强势推进移动新战略 挑战传统金融业务 Facebook进军移动支付领域 亚马逊AWS需解决的五项问题 腾讯自曝:大数据平台的秘密 继Cloudera之后,MapR宣布对Spark的完全支持 企业实施商务智能的6个致命错误 《近匠》HBuilder:如何用JS调用几十万原生API? littleBits新推Cloud Module,普通人也能DIY智能硬件 如何创建浮动式标签模式? Office 365正式落地中国——移动为先,云为先 .NET Native:C++的性能 C#的产能? Arduino联合创始人Tom Igoe:创客,因何而创 【走近院士】高文:多媒体大数据的影响及面临的挑战 微软SQL Server 2014三大新特性:集成内存OLTP、BI和混合云搭建 Linux将会统治桌面端的7个原因 Intel首席科学家Randolph Wang:详解Edison AMD Mantle再添新作,引发下代GPU架构猜想 谈DAM决策,自建还是SaaS 证据显示:Linux战争已经转移到OpenStack RestKit:iOS开发必备,告别众多无聊代码 技术新突破:手机和平板可远程控制PC,Chrome Remote Desktop亮相 物联网高速公路上,快数据如何驱动分析 苹果或将使用雅虎的搜索引擎,抛弃谷歌 百万用户规模的系统如何扩展 大数据需要软件定义存储 倒计36小时!2014中国Spark技术峰会即将召开! 设计师专宠,Startup强大的UI设计框架 看看这个错误。有关ADO 连接sybase 数据库的问题。30分在线等待。 请大侠将char *destination,*source while (*destination++==*source++); 详细分解成容易的循环语句 我装了三个系统windows98,win200,windows xp.后win2000起不来了,提示<windows root>什么文件<winnt/system32/hal.dll>文件损坏,拷一个 怎么样在页面中定位控件的绝对位置。 kv3000的A盘是怎么加密的? 看看印度人开发软件的方式吧.(转贴) 在ADO.NET中如何返回多表联合查询的结果? 如何获得分给本机的所有IP地址? 揭下网上广泛流传所谓真实网友照片的铁幕,,,,,,,,, 如何启动与关闭外部程序. 怎么样删除某一个目录下的文件~~~~~急 请问在WIN2000PRO上安装PcAnyWhere Ver.10后经常死机,会是咩原因造成? 如何在SQLNET中配置配置命名服务器? 我做的鉤子,為什麼不能截獲WM_DESTROY消息 有谁用过java+Dimino开发过项目? vcl的类的析构函数怎么继承? 紧急求助!在线等待! DELPHI怎样通过ADO来对DBASE3的数据库表进行物理删除?高手请进 如何使用C给FOX的DBF库加上索引. Encrypt加密源码 将桌面存为图像文件? DIRECTX3D问题 如何统计字符串中的字符数量! 怎样知道自己电脑的声卡是什么型号?并安装相应的驱动程序? 跳转窗口的时候如何消除工具栏 使用cuteftp时出的错! 怎么能添加一个链接 寻求使用rtp/rtcp的实时视频传输例子!! 输入法与文字处理程序间的关系是怎样? 如何使数据窗口的全部数据默认选定!? 请问,Delphi中有类似VC的静态变量吗? 想要一个用jsp做的新闻发布系统 请问ORACLE的凭证检索失败是怎么回事?--谢谢 char *mdd=5 内存中进行了什么动作?可否解释一下 我想问多下,那wininet.dll 文件是不是nt的系统都有噶? 搞得我头都大了的"多媒体"问题??????????? 重新调用一个方法。 Query的问题? active report作出的报表地下怎么会有这个公司的广告呀? 求救:关于树在建立游戏模型上的应用,及说明 Win2000下屏蔽Win键 怎么把字符串拷到另一个字符串数组里 Delphi_Li(Delphi Li) ,lincanwen(海) ,Focus(老鱼) 刚才关于opengl的帖子手一发抖就给结了,对不住,麻烦来领分,谢谢各位 请教大家关于 认证考试 的问题 更改窗口标题条文字 jsp连接domino数据库? 帮我分析一下!!!!!!!!!!!!! 关于oracle的问题,很急 capDriverConnect函数和capDriveDisconnect函数疑问 crystal report 的问题 Delphi调用win32函数的帮助borland公司提供了吗? 谁能帮我算一下这个横截面积和长度?直径或断面尺寸:4.11 4.02 4.03 请高手指教这3个直径的冷拔钢丝的断面积和长度分别是多少.方便的话告诉我一下计算公式, 图式白化病的遗传系谱,已知性状和白化病分别由基因A和a控制,它们符合分离定律III-1和III-2基因型是 和 III-1和III-2夫妇再生育一个孩子,这个孩子患白化病的概率是IV-3可能的基因型是 ,她为杂 寒地水稻一般需要多少积温 为什么体积除以横截面积等于长度要具体的原理不要公式 上善若水,道家、儒家,佛学,还有西方哲学如何解释 休闲运动磁场怎么样 怎么根据工作电流的大小算电线的横截面积的大小? 计算下面物体的表面积和体积- -发不了图片 加Q1186574187 给你看 对的加10分 当北京处在高温多雨的季节时,在南极大陆我们能看到什么?A极光现象B极昼现象C极夜现象D北极熊 已知横街面积和体积,怎么求长度(横截面积、长度、体积的关系) 某溶液有NA2SO4与AL2(SO4)3,C(NA+)=0.1MOL/L,C(SO42-)=0.2MOL/L则C(AL3+)=? 洗衣机的注水选择脱水侧是干什么的? 下雨前动物会有哪些有趣的反应 计算下面各物体的表面积和体积 在小天鹅全自动洗衣机上单独脱水如何操作? 某AL2(SO4)3溶液VmL中,含有AL3+ c mol L -1次方 取出V/2mL溶液稀释成2VmL后,硫酸根离子的物质的量浓度 同体积,同物质的量浓度的Na2SO4,MgSO4,Al2(SO4)3溶液中的硫酸根离子的个数比为——? 为什么夏天的太阳那么热? 命里有时终须有,命里无是莫强求,出自哪首诗 红绿色盲遗传符合基因的分离定律为毛 为什么夏天的太阳比冬天的热. 命里有时终须有 命里无时莫强求是什么意思 什么是命重?定义 夏天的太阳为什么会比冬天的热为什么夏天的太阳温度要比冬天的太阳温度要高呢 命里无时,莫强求.命里有时,终须有. 多基因遗传符合自由组合和基因分离定律吗 为什么太阳在夏天会变的很热为什么一到夏天,就很热很热,热的受不了 命里有时总需有,命里无时莫强求 其命维新”这句话的含义. 黑龙江省五常市2010年预测积温是多少?最好别说?的数字. 热的地方气压低,冷的地方气压高.照理空气由高压向低压流动那为什么在有热源的地方空气由高温(低压)向低温(高压)流动? 八大行星中,地球的特殊性表现在哪里?(A.有自转和公转/B.是太阳系中唯一有高级智慧生物的行星就是这样 小学学过的运算有哪些规定注意是规定!不是有哪些运算(说运算也行,但一定要说有哪些规定) 一架飞机在南半球自东向西飞行,飞行员的左侧是高压,即可判定( )A 顺风飞行 B逆风飞行C飞机在西风带中 D风从北测吹来答案选择的是A,可是我想问一下,地转偏向力是南半球左偏,北半球右 太阳系中八大行星的自转和公转的方向是啥谢谢了求求各位了!急用 我们已经学过什么和什么的什么运算 物体的体积和表面积各是怎么算的 为什么高、低气压“高”、“低”比较的前提条件是都在同一海拔高度上,而不能够垂直比较呢?(不要说的那么复杂啦,要不看不懂) 求太阳系九个行星距太阳距离,公转周期,各自质量、自转周期.及太阳质量及自转周期.请注意问题内容,我不要无用的说明,要有全部数据再回答,如不全请不必回答。 为什么金字塔要造在埃及首都开罗西南面的金黄色的沙漠中呢? 0.2mol Al2(SO4)3中含有Al3+____mol,SO4^2-____g,共含有____mol质子.前两空我都知道,但是质子要怎么算呢,我算出来和别人不一样.还有一道:8g氧气为____mol;0.1mol氧气含有____mol质子,含有____mol电子. 计算下面这个物体的表面积和体积 求文档: 埃及金字塔位于开罗首都(?)西南面金黄色的沙漠中 请举个例子:比如:一个物体,长18厘米,高12厘米,宽10厘米.体积是:18×12×10=2160,那么底面积乘以高 饲养场养小鸡400只,比母鸡只数的5分之3少80只,饲养场养的母鸡和小鸡共多少只 埃及金字塔 在埃及首都开罗西南面金黄色的沙漠中,可以看到一座座巨大的角锥形建筑物.它们巍然屹立,傲对埃及金字塔在埃及首都开罗西南面金黄色的沙漠中,可以看到一座座巨大的角锥形 0.2mol Al2(SO4)3的核外电子是多少mol? 养鸡场共养3200只小鸡,其中公鸡占1/8,母鸡占3/5,小鸡有多少只? 矗立 屹立 伫立 挺立 埃及金字塔( )在埃及首都开罗西南面金黄色的沙漠中,傲对碧空.东方明珠像擎天柱一般( )在上海黄浦江边.冬天,百花凋零,唯有红梅傲然( 独占枝头。 AL(SO4)3中AL3-有1mol,Al2(SO4)3几mol,硫酸根几mol 怎样通过图看出气压高低和温度高低?等压线有什么特点? 一颗质量为m的人造地球卫星绕地球做匀速圆周运动,卫星到地面的高度为H,地球半径为R,已知引力长量G,和地球质量M,求地球对卫星的万有引力的大小和卫星的速度 在Al2(SO4)3、K2SO4和明矾的混合溶液中,如果c(SO4 2-)=0.2mol/L,当加入等体积的02.mol/L的KOH溶液时,恰好完全沉淀,则原混合溶液中K+的物质的量浓度为?mol/LA.0.2 B.0.25 C.0.45 D.0.225求详细解释 为什么北半球锋面气旋图,闭合等压线分布一定是四周气压高中心气压低?那如何判断多条闭合等压线的气压大小 一颗人造卫星的质量为m,离地面的高度为h,卫星做匀速圆周运动,已知地球半径为R,地球表面重力加速度为g,求(1)该卫星饶地球一圈所需的时间,(2)H 基因分离定律表明,杂合子能否稳定遗传,自交后代有无性状分离? 秋天了 为什么跟夏天一样热 声音的传播速度与风速是否有关? 用科学解释爱情和用佛学解释爱情! 秋天为什么比夏天还热
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘