powerbuilder学习记录一，实例第一个非数据库操作的单窗口应用程序
一、界面设计
一个窗口，一个菜单，界面如下：
二、菜单事件脚本
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提示。否则就直接退出。这里遗留一个问题，用户可以选择是否保存，这个交互的操作后面再补充，这里还不会哈