Oracle辅导：Oracle数据库开发经验谈（2）

会计考友

----④ 当显示多条记录且数据项特别多时，如何组织录入及显示界面:
　　---- PRN代码及设备代码在画布1(CONTENT型)上，其它数据项在画布2(STACK型)上，所有数据项为一个表的列或一个块的数据项。在拉动水平滚动条时或用TAB或敲回车键时，将看到全部数据项。这种排布方法适用于数据项特别多又想显示多条记录时用。主要制作顺序为：先建立两个画布，画布 1(CONTENT型)，画布2(STACK型)，然后建立块，选画布时用画布1，这样所有项都显示在画布1上，然后选中除PRN代码及设备代码之外的所有数据项，选TOOLS菜单下的PROPERTIES选项，将这些数据项的CANVAS属性选为画布2(STACK型)，然后调整整体位置就可以了。
5 Z/ E$ P: d  y# e7 f! Z　　----⑤ 如何在FORM的受限触发子中提交保存数据
　　----在FORM中很多触发子是不能用COMMIT WORK语句的，当你在该触发子中使用了UPDATE，DELETE等操作并想立即存盘时，就需要COMMIT WORK语句了。首先在服务器端建立DB_SQL_COMMIT这个过程。
" }% q0 v2 j8 u9 ?$ {- p　　----然后在FORM中该触发子中调用过程DB_SQL_COMMIT;就可以了，当然你可以根据自己需要将该过程加入参数，这样通过参数可以得到执行DML语句的权限。
9 b+ H$ ]8 A5 _5 e% x　　----⑥ 如何在FORM中实现某数据项自动按记录序号加一操作
　　----设块名为VO,要操作的数据项为VO_ID,在该块中建立块级触发子WHEN-CREATE- RECORD，加入如下代码：
7 m- L& G9 f$ \) Z7 D　　:VO_ID:=:System.Trigger_Record;
9 R: j) f6 o% b$ Z/ q* k$ A/ O　　----这样每当生成新记录时VO_ID就会自动加一了。
2 l- Y0 U/ n" `* k8 b# {: X1 a　　----⑦ 如何在一个FORM中调用另一个FORM，或在一个块中调用另一个块时显示特定的记录有时用户会要求在调用另一个FORM时，只显示相关的记录，举例如下，在一个FORM的块中有一个按钮，在按钮触发子中加入如下代码：
7 ]* h8 ~" Z) C/ ?/ m3 f9 ^2 l* ]* n　　DECLARE
　　PM
" e# x! P. \/ ~- G　　PARAMLIST;
　　BEGIN
　　PM:=GET_PARAMETER_LIST('PM');
2 e7 c, W- B* Z3 q6 V( i7 V5 ^　　IF NOT ID_NULL(PM) THEN
6 _! @4 _; e1 ^. D+ \, S　　DESTROY_PARAMETER_LIST('PM');
7 G, q7 ?; v) l% G$ O　　END IF;
　　PM:=CREATE_PARAMETER_LIST('PM');
, B1 k: y* F3 z2 A　　......................
9 J: @8 z) E. d$ M4 L　　ADD_PARAMETER(PM,'THE_WHERE',
　　TEXT_PARAMETER,'EM_NAME=''EM4''
' |2 E& y  K4 P' ?　　AND EM_PROJECT_NAME=''支架预制''');
　　OPEN_FORM('PAYMENT',ACTIVATE,SESSION,PM);
2 U0 X. y/ [! B9 Z　　END;　　
5 F6 b, {$ g# y8 W　　----其中EM_NAME，EM_PROJECT_NAME为本FORM某块的数据项，PAYMENT为要调用的FORM模块。这样通过传递参数列表就可以得到想要的结果。在FORM. PAYMENT.FMB中，建立一参数THE_WHERE，CHAR型，长1000，然后在PAYMENT.FMB中建立FORM级触发子WHEN- NEW-FORM-INSTANCE，在该触发子中加入以下语句：
　　IF :PARAMETER.THE_WHERE IS NOT NULL THEN
$ m6 y' p) e* F$ }0 O1 a; ~# e　　SET_BLOCK_PROPERTY('PAYMENT',
　　DEFAULT_WHERE,:PARAMETER.THE_WHERE);
　　END IF;
4 M' _0 t5 k2 D3 |; Q" I　　----其中PAYMENT为要显示的块，这样通过参数传递就得到想要的某些特定条件的数据了。
　　----⑧ 在FORM中当有主从块时，连续输入记录如何避免被不断的提示保存：
, A3 t' S; T0 ?5 u9 _5 ?* t! [　　----每输入一条主记录和若干条该主记录的从记录后，此时再导航到主块输下一条记录，FORM就会提示你是否要保存记录，而你并不希望 FORM提示，让它自动保存，此时你可以到Program Units中找到过程PROCEDURE Clear_All_Master_Details，然后在这个过程中找到语句
　　三.数据库管理
　　----① 在删除一个表中的全部数据时，须使用TRUNCATE TABLE 表名;因为用DROP TABLE，DELETE * FROM 表名时，TABLESPACE表空间该表的占用空间并未释放，反复几次DROP，DELETE操作后，该TABLESPACE上百兆的空间就被耗光了。
, D* q0 e9 q: t9 a+ G. b+ H) Q　　----② 数据库文件的移动方法
3 p4 ]; P: j, B  o　　----当想将数据库文件移动到另外一个目录下时，可以用ALTER DATABASE命令来移动(比ALTER TABLESPACE适用性强)：
8 r2 S( |3 V) J; U　　----1. 使用SERVER MANAGER关闭实例.
　　SVRMGR > connect internal;
% @3 B# o$ k7 K4 S6 P* H- g- N& z　　SVRMGR > shutdown;
" `2 N* _) _; |8 N6 U& V　　SVRMGR >exit;
1 i1 e5 c; V9 _+ S4 Q　　 　　----2. 使用操作系统命令来移动数据库文件位置(假设这里操作系统为SOLARIS 2.6). 在UNIX中用 mv命令可以把文件移动到新的位置，
* m: d! }. |- v　　#mv /ora13/orarun/document.dbf /ora12/orarun
1 K4 X4 }: f. u" P3 h4 K! t　　----3. 装载数据库并用alter database命令来改变数据库中的文件名.
. G5 ^9 ]# S& \$ ]7 A　　SVRMGR > connect internal;
$ ^/ v" B* T) S# b! a1 u　　SVRMGR > startup mount RUN73;
　　SVRMGR > alter database rename file
　　> ‘/ ora13/orarun/document.dbf’
　　> ‘/ ora12/orarun/document.dbf’;
　　----4. 启动实例.
　　SVRMGR > alter database open;