2020-03-02 powerbuilder单窗口应用程序实例

powerbuilder学习记录一，实例第一个非数据库操作的单窗口应用程序

一、界面设计

一个窗口，一个菜单，界面如下：

窗口1.png
菜单视图.png

---

二、菜单事件脚本

1、菜单new的click事件代码如下：

file_name="未命名"
w_sdi.title="正在编辑_"+file_name
w_sdi.mle_1.text=""

file_name变量会在整个程序多处使用，所以单独定义成global类型

2、菜单open的click事件代码如下：

string docname,named
integer val,rc,fd
long flength
val=GetFileOpenName("open file",docname,named,"txt",+"Text Files (*.TXT),*.TXT,"+"All Files (*.*),*.*")

if val=1 then
    flength=FileLength(docname) //filelength一般会放在fileopen前
    fd=FileOpen(docname,StreamMode!)
    if flength<32767 then   //fileread函数默认一次读取32765个chars
        rc=FileRead(fd,w_sdi.mle_1.text)
        FileClose(fd)
        file_name=docname
        w_sdi.title="正在编辑_"+file_name
    end if
end if

• GetFileOpenName函数：

格式- GetFileOpenName ( title, pathname, filename {, extension {, filter { , initdir { , aFlag } } } } )

函数作用是显示打开文件对话框

返回值为一个整型变量，1表示成功，0表示取消显示，-1表示有错误，NULL表示参数有NULL；

然后伴随返回docname和named两个字符串变量，docname是文件路径和文件名，named是文件名或者文件名序列。注意：如果选择打开单个文档，docname就直接是路径加文件名，如果选择打开多个文档，docname就只是路径，文件名存储在named中。

• FileOpen函数

li_FileNum = FileOpen("C:\DEPT\EMPLOYEE.DAT", StreamMode!, Write!, LockWrite!, Replace!)

文件名，打开方式（按行或者全部留），写还是读，锁定模式，写模式时是后面append还是直接overwrite

• fileread函数

FileRead ( file#, variable )，从fileopen得到的file#读取内容到variable定义的地方，例如本实例中的多行文本框。

3、菜单save的click事件代码如下：

integer fd
fd=fileopen(file_name,StreamMode!,write!,LockWrite!, Append!) //这里file_name是一个全局变量哦
filewrite(fd,w_sdi.mle_1.text)
fileclose(fd)

• filewrite函数

FileWrite ( file#, variable )，从variable定义的地方取出内容写入fileopen得到的file#中，例如本实例中的多行文本框。
4、菜单save as的click事件代码如下：

string docname,named
integer val,rc,fd
long flength
val=GetFileSaveName("save file",docname,named,"txt",+"Text Files (*.TXT),*.TXT,"+"All Files (*.*),*.*")

if val=1 then
    flength=FileLength(docname)
    fd=FileOpen(docname,StreamMode!,Write!, LockWrite!, Append!)
    if flength<32767 then
        rc=FileWrite(fd,w_sdi.mle_1.text)
        FileClose(fd)
        file_name=docname
        w_sdi.title="正在编辑_"+file_name
    end if
end if

• GetFileSaveName函数

和GetFileOpenName函数作用类似，docname存放的是输入的文件名，然后用fileopen打开并用filewrite写入即可。

5、菜单exit的click事件代码如下：

integer fd
string wjj
fd=fileopen(file_name,StreamMode!,Read!)
fileread(fd,wjj)
fileclose(fd)
    
if wjj = w_sdi.mle_1.text then
    close(w_sdi)
else
    messagebox("注意！","请先保存！")
end if

打开文件，内容保存到wjj变量中，然后和mle文本框中的内容进行比较，如果不同，就弹出一个messagebox提示。否则就直接退出。这里遗留一个问题，用户可以选择是否保存，这个交互的操作后面再补充，这里还不会哈