数据库设计完整流程

从ToolBar类继承制作自己的工具栏，添加按钮，图片资源可以从FTP得到。

设置Showwindow属性值为“在顶层表单中”。

因为工具栏是与表单一级的对象，所以表单中不能容纳工具栏，所以需要建立一个表单集来放置表单与工具栏，打开主表单，使用“表单”菜单中的“新建表单集”建立表单集对象，这时我们使用代码的方式把工具栏加入到主表单中去，设置表单集的init事件。 PUBLIC isCreateToolbar isCreateToolbar=0 再在Activate事件中添加如下代码： IF isCreateToolbar=0 isCreateToolbar=1 *加载类 SET CLASSLIB TO lib\\myclass *使用类创建对象 this.AddObject(\this.tool1.show *把工具栏停放在表单的上部 this.tool1.dock(0) endif 这时运行主表单，效果如下：

四、

编写管理员管理代码

控件 属性 Name 表格 Enabled Recordsource 表单 BufferMode 值 gmanager False Manager 1 Caption Name Showwindow 打开表单的数据环境，选择manager表。设置其属性。

操作员管理 frmmanager 在顶层表单中

buffermodeOveride：2，Exlusive：True 添加按钮的click事件：

thisform.gManager.Enabled= .T. APPEND BLANK GO bottom thisform.gManager.coLUMN1.text1.SetFocus thisform.Refresh 修改按钮的click事件：

thisform.gManager.Enabled=.t. 保存按钮的click事件：

YN=MESSAGEBOX(\确定保存\企业员工管理系统\IF YN=6 then IF TABLEUPDATE(.f.)=.f. then MESSAGEBOX(\保存出错\ ELSE thisform.Refresh ENDIF ENDIF thisform.gmanager.Enabled=.f. 取消按钮的click事件：

IF MESSAGEBOX(\确认取消\企业员工管理系统\ TABLEREVERT(.f.) ENDIF thisform.gmanager.Enabled=.f. thisform.Refresh 删除按钮的click事件：

IF MESSAGEBOX(\确定删除\企业员工管理系统\ SELECT manager DELETE thisform.gmanager.RecordSource=null PACK thisform.gmanager.RecordSource=\ IF EOF() SKIP -1 ELSE IF BOF() SKIP ENDIF ENDIF thisform.Refresh endif 五、

提示信息添加代码

控件 Date and timer picker 文本域 属性 Name name 值 msgdate msgcontent