博文
名片管理练习——系统错误提示窗口制作2-2(2006-08-17 10:25:00)
摘要：系统错误提示窗口Open事件代码：
String ls_ErrMsg
String ls_log_file, ls_text
Integer li_file_no
If Error.Number = 0 Then Return
Choose Case Error.Number
Case 1
ls_ErrMsg = '除数为零'
Case 2
ls_ErrMsg = '引用空对象'
Case 3
ls_ErrMsg = '数组越界'
Case 4
ls_ErrMsg = '枚举值超出函数范围'
Case 5
......
名片管理练习——系统错误提示窗口制作2-1(2006-08-17 09:23:00)
摘要：⒍系统错误提示窗口
软件有时会因为人为操作的原因或程序本身漏洞的原因或者其它原因出现错误，这时PB的提示信息是英文的，对于我们使用中文的人来说，这肯定会是件非常头痛的事件，而且会有损良好的人机交互界面……
所以接下来先制作一个系统出错时的提示窗口，这样在设计和调试程序时有许多错误可以通过提示窗口中文化信息看到。
①首先，先制作一个“数据窗口（DataWindow）”，在“新建窗口”中选择“DataWindow”项，选择“FreeForm”，点击“OK”按钮，在接下来的窗口中选择“External”,按“Next”，在下面这个窗口中，需要设计5个变量(如下图表：)
字段变量名
变量类型
变量大小
中文含义
Err_number
String
10
错误号
Err_message
String
255
错误信息
Err_where
String
255
出错窗口/菜单
Err_object
String
255
出错对象
Err_event
String
255
出错事件
Err_line
string
255
出错代码行
在下一个窗口中选择“Background Color”为“Button Face”，“Text”项的“Border”为“Raised”，点击“next”，然后点击“Finish”，进入数据窗口设计窗口中，调整相应的属性设置（如下图：）。
调整完成后保存为“d_system_error”。
②接下来可以制作“系统错误提示窗口”了。
新建一个窗口，设置如下的一些窗口属性：
Title（标题）：系统错误提示
WindowType(窗口类型)：Response!
然后在窗口上放置如下控件：
⑴1个GroupBox：清空其Text属性内容
⑵2个StaticText：st_1.Text = “警告：”；
&......
名片管理系统练习4——主窗口(2006-08-13 14:18:00)
摘要：⒌创建MDIHELP主窗口。
①点New按钮，选择下图中的Window项，点击OK，新建一个窗体。
②设置窗体属性：
在“Title”属性处输入窗口标题“名片管理系统”，因为是主窗口，所以选择“MenuName”，将前面做的主菜单放到这里，点击“MenuName”编辑框右边的“…”按钮可以选择已经存在的菜单。
然后在“WindowType”选择窗口类型为“mdihelp!”，并且选择“WindowState”为“maximized!”最大化。如图所示：
③接下来，选择“Declare Global Variables”，定义一个全部变量GS_USERID，用来保存登录的用户ID信息。（如下图：）
在“EventList”中用鼠标右键点“Add”或选择菜单（如图）增加一个自定义事件“ue_open”。
在出现如下图所示的窗口中输入“Event Name”事件名称为“ue_open”。
接下来就可以在Open事件中输入如下图代码：
这里可以用This.PostEvent (‘ue_open’)的方式，也用This.TriggerEvent(‘ue_open’)的方式执行ue_open事件的代码，执行的效果有何区别呢？下面用两幅图来说明：
PostEvent方式执行的效果图（显示登录窗口，同时主窗口也已经打开，只是不登录不能操作）：
TriggerEvent方式执行的效果图(只出现登录窗口)：
④好了，下面输入“ue_open”事件代码，具体如下图所示：
注意：因为没有事先建立好“w_login”这个窗口，所以编译时会出错，这里可以先行注释掉，等建立好该窗口后再行去掉注释标记。
完成以上操作后，点击保存图标进行保存，在出现如下图所示的窗口中输入窗口名称“w_main”，并在“Comments”中输入注释信......
名片管理系统练习3——菜单制作(2006-08-13 14:09:00)
摘要：
⒋制作主菜单：
① 点击New按钮，选择New窗口中“PB Object”项下的“Menu”项，点击OK。
② 在打开的菜单编辑窗口画笔中在“untiled0”上点击鼠标右键，选择弹出菜单“Insert Submenu Item”插入子菜单项，并在框中输入“名片输入”，依次增加“名片查询”、“系统维护”、“其它”等菜单项（如下图：）
在输入项的菜单属性窗口中分别按顺序依次在name编辑框中输入m_1、m_2……，并勾选“Lock Name”项，这样可以避免该菜单项名称随着“Text”内容变动。
③ 然后选择“名片输入”菜单项，用同样的方法添加其菜单项下的子菜单“名片录入”、“名片修改”。
为新插入的属性修改为：
◇ Name：菜单的名称。输入“m_input”。
◇ Lock Name：选中该项。
◇ Text：输入“名片录入”。
◇ MicroHelp：输入“将名片数据输入到名片信息表中”
◇ ToolbarItemText：输入“录入”。
◇ &nb......
名片管理系统练习2——数据库创建(2006-08-13 13:34:00)
摘要：⒊在这一步先进行数据库的创建。
创建的过程如下：
① 点击Database图标按钮或菜单项（Tools——Database Painter）或按快捷键Shift+F7，打开数据库画笔窗口；
② 窗然后双击如图所示的“Create ASA Database”。
③ 显示如图，点击“Database Name”项右边的按钮，在打开的窗口中选择数据库存在的文件夹，并输入数据库文件名mpgl.db确定，返回到本图所示窗口，其它项设置先用默认选项（注意默认时，数据库的UserID为DBA，Password为SQL，不区分大小写），再点击OK按钮，PB9就开始创建该数据库了，创建成功后，自动连接到该数据库；接下来的工作就是要设计添加前面我们准备的2张数据表。
④ 点击工具栏上的新建数据表图标按钮，按下图所示输入相应的字段及相关信息，点击保存按钮，输入数据表名users即可。
⑤ 保存完成后，在Object Layout中自动添加了users表，如图所示，
下一步就是设置其各项属性，用鼠标右键单击各字段或表名，在属性对话框中输入相应的中文注释信息或字段的标签、标题等信息。（如下图：分别输入相应内容）
依此类推，设置好所有字段的相应信息。
⑥ &nbs......
名片管理系统练习1(2006-08-13 13:26:00)
摘要：（参考北京达通兴电脑科技开发有限公司——郭宝利老师写的PB项目开发实例《名片管理》）
一、主要功能：
⒈实现名片的录入、修改、查询（打印）功能；
⒉实现用户和权限的简单管理；
二、数据库设计（使用SQL AnyWhere 8.0数据库，数据库文件名为：mpglxt.db）：
⒈用户信息表(users)
字段名
数据类型
长度
是否允许空值
含义
主键或索引
userid
Char
10
Not
用户ID
主键
password
Char
20
Not
密码
Username
Char
20
Yes
用户名
privelege
Char
60
Yes
权限
⒉名片信息表(mpgl)
字段名
数据类型
长度
是否允许空值
含义
主键或索引
Bh
Char
10
Not
编号
主键
Xm
Char
20
Yes
姓名
Zw
Char
20
Yes
职务
Gs
Char
60
Yes
公司
Dh
char
40
Yes
电话
Cz
Char
40
Yes
传真
Dz
Char
60
Yes
地址
Yb
Char
6
Yes
邮编
Email
Char
30
Yes
E-mail
Yw
Char
300
Yes
业务
Bz
Char
300
Yes
备注
......