Oracle技术网—MIS中的图像应用技术 - [ oracle知识库 ] - 在线原生手册

目录搜索

文字

构造全中文界面的Developer/2000应用

摘自：中国计算机报社

李刚

　　用Oracle的Developer/2000构造的中文界面的应用程序，存在着许多西文的信息。具体表现在：

　　1. 在运行时多文档主窗口的缺省标题是：Forms 4.5 (Runform)，但在设计时找不到可对该标题进行设置的可视属性。

　　2. 当系统成功地完成某一项操作时，将在状态栏上提示英文信息。例如，当查询时不存在满足条件的记录，系统将提示：FRM-40301:Query caused no records to be retrieved .Re-enter。

　　3. 当系统执行过程中检测到某项操作错误时，也将在状态栏上提示英文信息。例如，当已到第一条记录时，若用户仍企图继续查看上一条记录，系统将提示：FRM-40110:At first record。

　　4. 当用户修改数据后，并未保存数据就企图进行其他操作，如进行查询、记录翻页或退出程序，系统将自动弹出一个英文的Alert窗口，出现以下提示：“DO YOU HAVE WANT TO SAVE THE CHANGES YOU HAVE MADE?”；并要求用户在YES、 NO、 CANCEL三个按钮间进行选择。

　　5. 运行时菜单项总有一个英文的WINDOW项，即使将FORM的MENU MODULE属性置为空白也无济于事。

　　以上这些情况的出现，破坏了中文应用程序的整体效果，并使用户操作时感到困惑。针对这些问题，下面分别给出解决的方法。

　　一、设置中文的主窗口标题

　　在FORM级的TRIGGERS：WHEN-NEW-FORM-INSTANCE中加入以下代码：

　　SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW,TITLE,

　　'CAAC计算中心业务信息系统( V1.0 )');

　　该命令将多文档主窗口的标题设置为“CAAC计算中心业务信息系统( V1.0 )”。运行时该标题将替代缺省的标题“Forms4.5”。

　　附带提一下，用SET_WINDOW_PROPERTY命令还可完成对多文档的主窗口和子窗口许多属性的设置。例如，假如多文档子窗口为window0，下面的命令将使文档主窗口和子窗口在运行时自动最大化：

　　SET_WINDOW_PROPERTY(FORMS MDI WINDOW, WINDOW STATE, MAXIMIZE);

　　SET_WINDOW_PROPERTY('window0', WINDOW STATE, MAXIMIZE);

　　二、汉化西文的提示信息

　　Oracle的提示信息分为两类：一类是操作成功的提示信息，如前面提到的第二种情况；一类是操作错误的提示信息，如前面提到的第三种情况。前者将以消息（Message)的形式，自动触发FORM级的TRIGGER:ON-MESSAGE;后者将触发FORM级的TRIGGER：ON-ERROR。因此，我们可以在这两个触发器中，捕捉并汉化英文的提示信息。

　　汉化英文信息的基本思想是建立一个汉化信息表，在表中存储系统的信息编号和对应的中文汉化信息。当利用触发器捕捉到系统信息时，查询该表，取出中文信息，显示在状态栏上。下面是汉化以消息的形式出现的系统信息的步骤：

　　1. 在SQL-PLUS中创建汉化信息表：

　　Create table chi_errmsg(

　　msgno NOT NULL VARCHAR2(6),

　　chinesemsg VARCHAR2(60),

　　PRIMARY KEY ( msgno)

　　);

　　表chi_errmsg中，msgno字段用以记录系统的信息编号，我们约定该字段的记录方法为：前缀（1位）+信息编号（5位）。其中前缀‘M’表示该信息为系统消息；‘E’表示该信息为系统错误消息。chinesemsg是编号相对应的中文提示信息。

　　2. 在FORM级的触发器ON-MESSAGE中写入如下代码：

　　DECLARE

　　Mesgno varchar(6);

　　Errormesg varchar2(60);

　　Msg_frm varchar2(200);

　　BEGIN

　　

　　Msg_frm:=MESSAGE_TYPE||'-'||TO_CHAR(MESSAGE_CODE)||':'||MESSAGE_TEXT;

　　

　　Mesgno := 'M'||TO_CHAR(MESSAGE_CODE);

　　

　　SELECT chinesemsg INTO

　　Errormesg

　　FROM chi_errmsg

　　WHERE msgno = Mesgno;

　　

　　MESSAGE(MESSAGE_TYPE||'-'||TO_CHAR(MESSAGE_CODE)||':'||Errormesg,NO_ACKNOWLEDGE);

　　EXCEPTION

　　WHEN others THEN

　　

　　MESSAGE(Err_frm,NO_ACKNOWLEDGE);

　　END;

　　在上面的代码中，MESSAGE_TYPE、MESSAGE_CODE、MESSAGE_TEXT三个系统变量记载了消息的类型、编号及内容。以本文开始提到的第二种情况为例，当出现“FRM-40301:Query caused no records to be retrieved .Re-enter”消息时，

　　MESSAGE_TYPE="FRM";

　　MESSAGE_CODE="40301";

　　MESSAGE_TEXT="Query caused no records to be retrieved .Re-enter"。

　　由于每一个消息都有一个唯一的编号，因此可依据该编号来查找对应的中文信息。

　　3.充实汉化信息表的内容

　　通过上面两步，我们已完成了对系统消息的捕捉和汉化工作。接下来的工作就是在应用开发的过程中，针对应用中可能出现的西文信息，捕捉一个，汉化一个。例如，我们需要对“FRM-40301:Query caused no records to be retrieved .Re-enter”汉化，只需要在chi_errmsg表中加入一条记录即可：

　　insert into chi_errmsg values('M40301','本次查询没有取出符合条件的记录！请再试');

　　对系统错误信息的汉化与消息汉化的思想相同，下面给出在ON-ERROR触发器中的代码供读者参考：

　　DECLARE

　　Mesgno varchar(6);

　　Errormesg varchar2(60);

　　Err_frm varchar2(200);

　　BEGIN

　　Errfrm :=ERROR_TYPE||'-'||TO_CHAR(ERROR_CODE)||':'||ERROR TEXT;

　　Mesgno := 'E'||TO_CHAR(ERROR_CODE);

　　SELECT chinesemsg INTO

　　Errormesg

　　FROM chi_errmsg

　　WHERE msgno = Mesgno;

　　MESSAGE(ERROR_TYPE||'-'||TO_CHAR(ERROR_CODE)||':'||Errormesg, NO ACKNOWLEDGE);

　　EXCEPTION

　　WHEN others THEN

　　MESSAGE(Err_frm,NO_ACKNOWLEDGE);

　　END;

　　针对"FRM-40110:At first record"错误，在chi_errmsg表中插入：

　　insert into chi_errmsg values('E40100','已到第一条记录！');

　　最后提醒读者，一个系统提示信息类型究竟是“ERROR”还是“MESSAGE”，可查阅Developer/2000的参考手册。

　　三、替换西文Alert窗口

　　设计的基本思想是建立一个中文的Alert，并在可能出现西文Alert的地方加上代码触发中文的Alert警告，提醒用户进行存储。

　　例如，针对本文开始提到的第四种情况，为使系统退出时不再出现西文Alert窗口，可在FORM级的TRIGGER：KEY-EXIT中加入如下代码：

　　DECLARE

　　return_value number;

　　alert_id Alert;

　　BEGIN

　　IF :SYSTEM.FORM_STATUS= 'CHANGED' THEN

　　alert_id := Find_Alert('stop_alert');

　　SET_ALERT_PROPERTY(alert_id,alert_message_text,'数据已经改变！确认是否存储？');

　　return_value := SHOW_ALERT( alert_id );

　　IF return_value = ALERT_BUTTON1 THEN

　　COMMIT_FORM;

　　ELSE

　　CLEAR_FORM(NO_COMMIT);

　　END IF;

　　ELSE

　　CLEAR_FORM(NO_COMMIT);

　　END IF;

　　EXIT_FORM;

　　END;

　　这段代码的基本思想是当记录值发生改变时，弹出中文的Alert，提醒用户存储。'stop_alert'是我们自制的中文Alert,它有两个按钮：确认、取消。当返回第一个按钮（即确认按钮）时，系统提交对数据的修改，否则取消修改。这样，当执行EXIT_FORM命令时，将不会出现原有的西文Alert。

　　四、消除菜单中的Window项

　　用户程序有两种情况，一种是不需要菜单；一种是具有中文的菜单。这两种情况下消除Window项的方法为：

　　（一）用户程序不需要菜单

　　1. FORM中的MENU MODULE属性：为空。

　　2. Window中的MODAL属性：TRUE。

　　（二）用户程序有中文菜单

　　1. 在用户菜单中建立一个Item,命名为WINDOW。

　　2. 设置该Item属性如下:

　　Menu Item Type:Magic

　　Command Type:Null

　　Magic Item:Window

　　Lable:为空