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

开 发 基 于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 开 发 面 向 网 络 的 和 多 媒 体 的“ 管 理 信 息 系 统”。

一个轻量级的JavaScript库:Reactor.js [探讨] 用户体验设计师现在面临怎样的机遇和挑战? PPT集萃(二):淘宝、CloudStack等分享的架构经验与最佳实践 2013中国云计算榜单之二:64家云主机+云存储,错综复杂! 看Java技术基础的eBay如何评价他们的Node.js首次尝鲜 Jolla发布首款Sailfish系统手机 无缝兼容Android应用 NPD:全球智能手机出货量2013年将首次超过功能手机 聚合数据左磊:不走寻常路 做国内最好的数据聚合平台 从程序员到软件商 需要注意些什么? 共享软件海外营销策略与实战(上海站) 直接拿来用!最火的Android开源项目(完结篇) 一步加入云生态系统 参加第五届中国云计算大会的十大理由 传苹果iOS7将深度整合Flickr 用户受益最大 Chrome 27来了:页面加载快5% 可同步数据到Google Drive 微软发布新一代游戏主机Xbox One 搭配全新Kinect 2.0体感系统 Unity游戏引擎向iOS与Android开发者免费 Twitter获“下拉刷新”专利 开发者仍可自由使用 复杂产品的响应式设计【流程篇】 使用Javassist库为Bytecode Instrumentation开发JVM Agent 内容解析创业公司Stremor推出4款API 2013中国云计算榜单之三:174家云应用服务商,繁花似锦! 盘点各大云服务提供商:麦当劳=AWS,汉堡王=? BlackBerry Jam亚洲开发者大会9月将在香港开幕 把服务器搬进来:Splashtop在中国搭建Bridging Cloud Web框架全对比第五期 新增Windows环境 前Tumblr首席开发者回忆录:一个人也能开发出好产品 测试者和开发者,为何我们不能友好地相处? 讲师秀之11:何刚谈京东的云机遇 讲师秀之10:武汉大学张焕国教授,可信计算是云计算之成败关键 【上海直播】Windows Azure+世纪互联:中国云计算“烈火烹油” 最新版Chrome浏览器推出全新语音搜索功能 请问如何将IE控件中当前显示的页面保存到文件当中去? 用recordset对象怎样能返回个个层次记录集,连接的是SQLSERVR2000 求救:关于表格中单元格合并拆分的问题! 关于注册热键热键和使用键盘钩子的问题,有劳各位出个主意? 很菜的问题,关于SDI中修改打开对话框的问题! 国外有那些比较著名的新闻组? 前几天我在书店看到一本书名叫《远程控制编程技术》 没人回答吗?再问一次,请问如何在代码里确定按钮的选中或者未选中状态? 什么是xp任务栏假死? 十万火急!装D6 PACK2之前能用的取临时文件夹的函数现在不能用了。怎么回事? ini文件如何一次性读写多行,多段? 两块硬盘安装2000后的问题 请问如何向C***App类发送消息 如何去掉IE的标题后面的文字? 如何在VB下将DBF表转化成ACCESS或SQL库(多谢指教) 我想写个可以读EXCEL文件的JSP文件 寻找源代码, 100分相赠,求在VC下,如何打开一个目录(相当于Delphi下的目录对话框),然后枚举它下面的所有文件和子目录?? 我太笨了!! 我想到上海去发展,不知道那里的革命形势如何?( 关于一个制作压缩文件的问题!!请大侠进来看看!!! 如何锁住DataGird的前面几列,当点击水平滚条时 看:VB《葵花宝典》--指针技术有不懂的地方?请各位指教? COM,DCOM过时了吗? 快救命啊,否则我自杀了!!!! dbgrid的问题? 主从表中, 主表移动记录时,相应的从表对应的记录都会显示出来。 关于一个制作压缩文件的问题!!请大侠进来看看!!! 帮帮忙吧!exchange 2000 server安装后的问题! test 怎么反編譯.mde COM,DCOM过时了吗? to 各位高手,数组遍历问题 神呀救救我吧 怎样让combobox显示items的第一项值? 第一次约会的时候,她对我说:爱情是有保质期的。 ★★★快来抢100分★★★:在bcb6里,我打开它自带的任何例程都会出错,总提示[Linker Fatal Error] ,why? Midas服务器无法在另一台计算机上运行,只能在本机运行,请问是什么原因? 请问如何知道数据库中有哪些表存在?在线等待 怎样在主框架类里调用文档类指针,以便获得文档类数据? 兄弟,帮个忙! 怎样实现ftp客户端功能 java中如何象windows那样拦截其他窗口的消息? 告别CSDN,第一个全部进入全部给分 同一个submit可否和如何递交给不同的服务器端的不同的action处理? 一个关于tomcat中servlet的棘手问题。。。。。 谁有jbuilder6的license keys或serial number? 請教:vb里dim oRs as ADODB.Recordset與dim oRs as new ADODB.Recordset的區別在哪里? 请大家指点下在深圳哪里可以办个边防证?谢谢 在程序中如何得到一网页中的按钮焦点? 用vc生成曲面要用到那些类? 有關微軟的MCSE認証 以10m/s的速度前进的汽车,刹车后5s停下来,则汽车的加速度等于多少? 资本主义社会的社会制度是什么样的? 下列物质溶解于水时,溶液的温度无明显变化的是 A,浓硫酸 B,氢氧化钠固体 C,氧化钙固体 D,硝酸钾晶体选D 请问为什么 (2011年淄博中考题) 中国现行的究竟是什么性质的社会制度?根据马克思主义的原理,社会主义是在资本主义高度发展并在其薄弱环节中突破并建立起来,社会主义继承了资本主义的优良元素,同时也拥有资本主义所 为提高百米赛跑运动员的成绩,教练员分析了运动员跑百米全程的录象带,测得:运动员在前7S跑了61米,7S末到7.1S末跑了0.92米,跑到终点共用了10.8S,则选对的答案:A运动员在百米全过程的平均速 溴乙烷水解到底生成乙醇还是乙烯 氯化镁和盐酸与氢氧化钠在氯化镁和盐酸的混合溶液中,不断滴入氢氧化钠溶液至过量,那么PH怎么变化呢?是否有沉淀 某质点沿半径R=5cm的圆形轨道以恒定的速率运动,经过10S运动了2圆周,问该物体10S内平均速度大小是多少?瞬时速度大小是多少?我要有思路分路分析! 氢氧化钠、浓硫酸、硝酸钾晶体、氧化钙溶解在水中,溶液温度无明显变化的是哪个? 氢氧化钠溶液滴入盐酸、氯化镁混合溶液法应同时发生还是有先后顺序?为什么? 加速度的方向为什么和速度变化的方向一致,而不和平均速度方向一致? 化学有机物烷烃的命名看结构式命名的一个口诀有么?顺便有比较容易记的肯定不成立的错误命名么?就是书上写的不明不白的才来问的~我们老师都说教材改的越来越不像样了~该有的都删了或 盐酸,氯化镁和氢氧化钠反应的化学方程式 不明白平均速度和平均速率,以及瞬时速度和瞬时速率?V=S/T 和 V=L/T到底怎么用的?我们老师说:假设一个人在操场跑一圈,问他的平均速度是没有意义的.我不懂为什么,最好附上个例题 化学有机物烷烃的命名 急(CH3)2CCH(CH3)CH2CH(CH2)CH(C2H5)2的名字是什么啊?太多了我分不清啊~括号外面的和字母前面的是小标~达人帮下忙 ①浓硫酸②浓盐酸③生石灰④氢氧化钠固体露置在空气中质量变大且不变质的是(),质量变小的是()质量变大且不变质的是()溶于水且放出热量的是()溶质的质量分数变小的是() 以54km/h的速度行驶的汽车,因故需要中途停车.若减速的加速度大小是0.3m/s^2,停留时间是1分钟,启动时的加速度大小是0.5/m^2.求汽车因临时停车所延误的时间. 化学有机物烷烃的命名的小疑惑2-甲基-4,5-二乙基己烷 名称是否正确?我觉得没什么问题可答案说是错误的,是2,5-二甲基-4-乙基庚烷,非常奇怪这道题没有图的,考的是命名上是否有原则上的错 社会主义国家与资本主义国家的区别,美国的经济危机能威胁到中国吗 近现代以来的中国的社会制度1840年以来腐败的社会制度导致了旧中国在反侵略战争中屡战屡败,那么那腐败的社会制度是如何产生和导致的结果是什么?请用论文的方式写出来 约2500字 汽车关闭油门的瞬时速度是什么 资本主义与社会主义的优越性比较?以中国和美国进行比较 中国的社会制度好不?外国的制度和中国的有什么差距?美国和中国的社会制度哪个好?简答,希望识者告诉我? 关闭油门,汽车会慢慢停下来 受到了什么力? 中国的社会主义制度与美国的资本主义有什么区别? 我国的根本社会制度是什么 为什么汽车关闭油门时的瞬时速度比行驶中的速度大 铜和氯化钠的导电能力谁比较强 中国经历的社会制度和起止时间中国经历的社会制度和每种制度的起止时间,大致时间就可以了. 质量为m的汽车经过A点时速度为v0,这时关闭油门,恰能冲上高度为H的斜坡,求汽车在冲上斜坡的过程中克服摩擦力所做的功 对导电能力相同的铜和氯化钠溶液分别加热,哪个导电能力大? 火车初速度为10米秒,关闭油门后前进150米,速度减为5米每秒,再经过30秒,火车前进的距离为多少 如何处理温表水银,温度计摔坏了? 对导电能力相同的铜和氯化钠溶液分别加热,结果导电能力是哪个强 憎水玻璃的作用是什么呢, 在正常情况下,火车以54km/h的速度开过一个小站,现在因故需在该站停留1min.若已知火车进站过程中减速的位移为375m,出站过程中加速的位移为225m.出站加速后即恢复了正常行驶速度.假说火车进 中国社会制度有哪些问题?这几天奥运会也关注了吧,看见跳水、乒乓这些中国的强项运动,但是又反过来看足球就迷惑了.百度上搜索大部分人说是体制问题(各种其他经济、民生也都这样说) 火车的初速度为10m/s,关闭发动机后前进150m,速度减为5m/s,求火车的加速度/ 火车沿平直轨道匀加速前进,通过某段路标,速度为10.8km/h,1min后变为54km/h,还需要经多少时 中国都经历了哪些社会制度 初速10m/s,关油门后前进150m,速度减为5m/s,求再过30s,前进的距离?若用  150=10+1/2at^2   ,5=10-at 怎么算,和正确答案不一样啊就是用x=v+1/2at^2 vt=v0+at 检验氢氧化钠中的杂质氧化钙 我国的社会制度 在平直轨道上行驶的火车初速度为20m/s,关闭油门后前进100m停止,求火车速度减小过程中加速度的大小为 (在平直轨道上行驶的火车初速度为20m/s,关闭油门后前进100m停止,求火车速度减小过程 氢氧化钠和氧化钙的变质是怎么回事?和空气中的水和二氧化碳都有关吗? 中国经理过哪些社会制度?从5000年前到现代(公元2007年12月29日),我国经理过哪些社会制度?如:封建、社会主义、原始社会……………… 红墨水与生石灰,熟石灰,浓硫酸,氢氧化钠,食盐哪种能反应 NaCl溶液能导电是因为溶液中有Na+和Cl-为什么这句话不正确? 乙二醇 密度 中国以后有没有可能走资本主义路线?我不太懂政治,所以我问一下,因为我有点疑问.现在的中国,跟周边的国家差不多一样,但是又分为资本主义与社会主义,我搞不懂,中国与周边的国家没什么 古代官僚制度弊端 为什么皇帝都称呼自己是朕? 在醋酸、熟石灰、烧碱、浓硫酸、食盐中选择适当的物质填空(写化学式)用作调味品和防腐剂的是 ?除去家中热水瓶里水垢的是 ?用于改良土壤酸性的是 ?能洗去油腻物质的是 官僚制度是什么 为什么皇帝称自己“朕、寡人、孤”等不同称号?不同时期称号也不同啊,那分别是什么时期这样称自己呢? 目前世界上除了社会主义和资本主义还有什么社会制度社会主义和资本主义制度区别在哪 不要书本上的套话 说些容易懂 某温度时,向一定量的的饱和氢氧化钠溶液中加入少量生石灰,再回复到原温,下列各相关的变化图像正确的是 BC是否都正确? 为什么皇帝称自己“朕、寡人、孤”等不同称号?不同时期称号也不同,请问分别是什么时期这样称自己呢? 中国的社会制度真的比资本主义优秀么? 氢氧化钠晶体和生石灰溶于水都能使混合物的温度升高,这两者的原理是否完全相同?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘