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

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

Android性能优化典范 专访Google涂鸦首席设计师Ryan Germick:为什么世界需要Doodle? 不炒作就会死!小米乐视生态布局的那些爱恨情仇 100个iOS开发/设计面试题汇总,你将如何作答? 王巍:关于Swift学习和Apple Watch开发的一些建议 微软发全息影像头戴装置HoloLens 体验很真实 相爱相杀?盘点迎新年的移动互联网撕逼大战 HealthKit开发教程:用Swift编写个健康应用! 真的不够用!Apple Watch常规使用续航3.5小时 Activiti实战 百度BAE携手科技寺助力应用一站式部署 不仅仅是高速传输,Qualcomm演示骁龙810处理器功能 利用JS高效开发原生游戏 Cocos 2d-JS中文版API文档正式上线 同行代码审查实战分析 在Swift中使用JavaScript的方法和技巧 增强用户体验 让网站和APP更具动感的几点建议 《近匠》蒲公英:一站式免费应用内测平台 用Swift开发iOS 8新应用:斯坦福免费课程上线iTunes U Swift开发必备技巧:static和class的使用 你可能没听过的11个Python库 移动Web技术的春天来了?Facebook发布React Native,用JavaScript开发移动原生应用 开发不易!2015年移动应用开发趋势总结 .NET开发者必备的工具箱 热情不减!七款Swift应用开源项目推荐 如何给苹果提交Bug或功能需求? 深入钻研Augular两年 谈谈其究竟适用于哪些场合 唐巧:谈谈React Native 在Swift中,如何更优雅地处理网络返回数据? Spark生态系统解析及基于Redis的开源分布式服务Codis 阿里巴巴技术专家杨晓明:基于Hadoop技术进行地理空间分析 Bowery为什么放弃Node.js,转向Go? 这句什么意思:on error resume next? 实现界面重定义的问题! USB应用程序问题(有关设备名字操作)。想不通!!! Longhorn与WINDOWS2003是何关系? 请教Linux 远程登录(rlogin)的问题 tidtcpserver中的execute事件有什么用啊???小女子初入门,多多指教!! 如何才能叫斑竹封了那个乱吠的IShellFolder()? 20分,一个很简单的问题 Longhorn与WINDOWS2003是何关系? 关于NullPointerException异常,谢谢! 一个查询问题 高手关注:为什么收不到 WM_NCLBUTTONUP 消息? 毕业设计的问题(急) 关于SQLSERVER的BACKUPLOG 关于qq菜单的问题 GD绘图输出问题? 怎样在数据窗口中设置打印,要求实现自定义纸张??? 关于初学做练习的问题请教! 实现界面重定义的问题 有关对话框显示前的... 关于photoshop中的问题! 在CXXXApp里如何调用CXXXDoc里的变量? 关于ADO对象的用法? .x文件中animation set中的rotation是弧度,还是? [php版]公告:关于删除 IShellFolder 发贴的通知! 有了seq server基础,想深入学习一下,改怎么做? 请问高手,有关数据导入导出的问题! 高分求《VC技术内幕》第5版 求源码!!!!!! 出大问题了 notes designer的问题(在线等候.....)急!! 关于csdn上的网络道德问题!大家的网络需要大家共同来支持!(每一个真正的程序员都应来声援!) 高分回报:一条简单的SQL语句写法,谢谢各位大侠, asp中寫Response.cookies ("ITEM1")("SUBA")="Standy"在dotnet(C#)中如何讀出 在局域网内。知道一个机器的IP地址。如果获取这台机器的名字 带外数据具体有何用途?(在线等) 加了一个三角,高兴,散分! 请问一个三位重构的问题,哪里有这羊的的示例程序? 显卡显示有阴影??? 有挑战性的翻译,请翻译下列C++名词,并请举例说明 麻烦大哥们看看!关于wab应用中在datagrid中取值的问题 如何实现CSDN这样回答问题的效果? 初级问题,请各位大侠帮忙! 数据结构中关于二叉排序树的生成问题 请教高手:如何在一区域找到找到指定颜色的点?? 一个关于窗口的问题 如何在数据窗口实现编辑、修改等后的撤消、复制、粘贴、剪切功能! exec,sp_executesql语句,中字符串变量的问题 急~~~~(请赐教)! window.showModaldialog()问题 关于Internet Explorer不能打开链接的问题 求助 求购:中国地质大学(京)网络历年考研题复习资料 Longhorn与WINDOWS2003是何关系? 空在那的,2分钟给的给好评 扩句(至少2处)(1)纸上出现了文字.(2)音乐吸引着观众. 一道生物题如下 智能温室无土栽培,易于管理,优质高产.该技术广泛用于现代农业(1)无土栽培所用营养液中的无机盐在植物体内的作用是( )和( ).植物因种类和生长发育阶段不同对 伯父摸了摸自己的鼻子,笑着说:“我小的时侯,鼻子跟你爸爸的一样,也是又高又直的.”改转述句. 扩句(3处或2处)(1)小鸟飞翔(2)飞机飞行(3)奶奶买菜(4)丁香花开放 语文六年级下学期一单元作文假文盲取什么名字好? 改成转述句:我对伯父说:"大伯,你和父亲哪儿都像,就是有不像." 写人的身边的几件小事,比如鲁迅写藤野先生的那几件事. 内力能不能改变质点系的动能? 我对伯父说:“大伯,您和爸爸哪儿都想,就是有一点不像.”改成转述句 英语作文:How to improve your English in the new term.尽量用上——“Try (not) to.../Why don't you.../ How about.../It's a good idea to.../You should...” .70~80词左右,不要太少了, 内力如何改变系统的总动能?能不能举个例子? 英语翻译[ar:justin bieber][ti:eenie meenie][00:01.66]Catch a bad chick by her toe[00:03.59]If she holla (if if if she holla) let her go[00:08.03]She's indecisive[00:08.96]She cant decide[00:11.53]She keeps on lookin[00:13.52]From left to right[00 中华人民共和国宪法第56条规定 公民有依照法律纳税的义务 添加标点 关于master 和slave我的主板上两个ide接口,一条连着ide硬盘,另一条连着一个dvd和cd,现在ide硬盘从bios中查看为slave,为从盘(只有一个硬盘),有没有必要换到master上,是ide数据线的引出(到硬盘上 英语翻译是格雷克大卫Eenie Meenie这首英文歌的翻译 (高二物理)关于动量变化率的问题动量变化率可表示 (P’-P)/t 式中(P’-P)为动量的变化量,但 t 是什么呢?我知道t是动量变化所需的时间,但是不知道它在数值上和什么相等呢?为什么? 为什么选B呢? 伯父摸了摸自己的鼻子,笑着说:我小的时候,鼻子跟你爸爸的一样,也是又高又直的.改为第三人称转述 动量的变化率是什么?大神们帮帮忙最好是能用公式表达出来. 高中函数求最值.. 伯父摸了摸自己的鼻子,笑着说:"我小的时候,鼻子跟你爸爸的一样,也是又高又直的."(改为间接叙述) 六年级英语作文是关于我的好朋友,30单词左右.我还要汉语意思关于我的好朋友的,现在要.不要乱复制别人的,那些没用! 高中求函数最值问题. 求S的最大值方法越简单越好! ’’伯父摸了摸自己的鼻子,笑着说:“我小的时候,鼻子跟你爸爸的一样,也是又高又直.(改转述句) 伯父摸摸自己的胡子,笑着说:“我小的时候,鼻子跟你爸爸一样,也是又高又直的.”(改为转述句) 高中函数有几大类 eenie meenie歌词的中文 意思 章振邦 新编英语语法教程最近自学这本书 希望好心人给我发一下这本书的课后习题答案~ 高中函数的最值(题不难)设f(x)=x^2+mx+n,若f(x)的最小值为0,则n=_______n有两个值 奥的扩词 还有20天左右的时间就要开学了 ,我想在暑假里面把 章振邦《 新编英语语法教程》看完 包括也具备了教师用书( 作用就是习题答案) 但是我7月份很长时间,感觉没什么效果,也很枯燥,怎么 父亲说,这是他对我们的希望.(改为引用句)大家帮帮忙!快啊!急啊!好的给额外啊! 赞美九月的句子 古文《智子疑邻》的意思本文是 智子疑邻宋有富人,天雨墙坏.其子曰:“不筑,必将有盗.”其邻人之父亦云.暮而果大亡其财.其家甚智其子而疑邻人之父. 雨来问爸爸说:“爸爸,远不远?”改成第三人称转述句 Shorty is a eenie meenie miney mo lova'什么意思? 七年级上学期生物哪些是重点 雪 雪 飘飘洒洒,纷纷扬扬,蹁跹(xiān)起舞,像鸟一样疾,像烟一样轻,像银一样白啊.雪飘飘洒洒,纷纷扬扬,蹁跹(xiān)起舞,像鸟一样疾,像烟一样轻,像银一样白啊.亲吻着久别的大地,拥抱着可爱的 我们的主题是我爱我家,不知道大家有没有一些好的题目可供我们参考,主题:我爱我家还有一点:我们讲的是关于感情的,我们原本想起的题目是“真情”,现在我们想改一个关于家的情感的题 把人们赞美居里夫人.扩句 动量是怎么从一个物体到另一个物体,是靠物体间的内力吗 以下词语各代表什么样性格特点的人呢?以下词语各代表什么样性格特点的人呢?例:应声虫:随声附和的人 Rt.Justin Bieber~eenie meenie~中:eenie meenie miney mo lova 是什么语?什么文?是黑白配的意思么? 内力可以改变质点的动量吗?为什么 怎么做?好评,空着的. 求ax/(b+cx^2)的最值求ax/(b+cx^2)的最值 无土栽培是不是生物技术 生物的七大基本特征 已知代数式ax+b/cx^2+d,当x=1,0,-1时的值分别为1,-2,2,而且d不等于0,问当x=2时该代数式的值为? 要摆算式已知|a|=2,|b|=3,求ab 生物七大特征 已知:(x^2+ax+b)^10≡(x+5)^20-(cx+d)^20,求a,b,c,d的值 1.将40分成6个素数之和,要求最小的素数尽量大,那么最小的素数是几?(数字可以重复)2.有2个素数,它们的和是小于100的奇数,并且也是17的倍数,求这两个素数. 有哪些生物具有七大基本特征 已知:(x^2+ax-b)^2≡(x-1)^4-(cx+d)^4,求a,b,c的值. 某养殖场有8万只鸡 假设有一只鸡得了禽流感.如果不采取任何防治措施,那么到第2天将新增病鸡10只到第3天将新增病鸡100只以后每天新增病鸡数依次类推(1)请问:到第4天共有多少只鸡得了禽流 生物七大类中哪个是最大的? 英语作文how to improve the four english skills开头:How can we improve the English skills ? In my opinion, ...初中普通水平 字数保持60字左右 要用截面积为48平方毫米的圆钢条锻造成长 宽 高 分别为25毫米 8毫米 15毫米的长方形钢胚,需要这种圆钢条多少米?某城市按以下规定收取每月煤气费,用煤气如果不超过60立方米,按每立方米0.8 万圣节郭美美杨贵妃妆扮吓呆网友 称最南京市农委加大监测 确保市民吃上放心“农家乐”食品安全存隐患 南京农委表中国部分军事设施现安全隐患 影响武器女子因口角棍击刀捅杀死丈夫 分尸蒸煮10月全国平均气温较常年偏高 呈现“从对等的不了解开始对话欧元区面临通胀过低威胁二成美国人称见过鬼 女性比男性更易“美国万圣节迎购物潮 商家赠特色礼品揽纳粹盖世太保头目被指埋葬于柏林犹太人二成美国人称见过鬼 女性比男性更易“美国万圣节迎购物潮 商家赠特色礼品揽美国多地举行万圣节游行 街头惊现“包日本政府拟制定相关措施援助海外核爆受德银:离岸人民币外汇期权市场迅速发展日本防相:监视中国海军演习符合国际法北京一周内两发空气重污染蓝色预警黑龙江青年支教山西10余年 月俸仅6国家卫计委公布社会抚养费相关行政复议中纪委:严禁公款购买印制寄送贺年卡等多图 | 没有长腿帅脸,就得放弃毛呢遇到猪队友,乐视超级手机跑分惨遭完全明日花开:汇洁股份 内衣卖出新天地“手滑”点赞国王PS照片,泰国一小伙美与多国撕破脸,原油多头春天不远矣John Elliott + Co 大蜜言金:明日大盘已成定局域名交易量和成交总额走向相反女友说为你好删你网游帐号 你将何去何马辛米:我喜欢看忍者神龟杜兰特:威少要我打得更有侵略性期待不止于此 心耀大话盛典完美落幕时代周刊2015年度图片精选SSSS的服务态度真心很烂打嗝总不停应排查胃癌对投毒案的反思不可能烟消云散黄光裕再获一年减刑,但晚点出狱反而是12小时6万多场,最终1.1亿,《万《灵魂武器》日服12月18日开启不限缘定三生,只为等你回眸!缘也!缘也!日本公布2020奥运主会场新设计图
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘