当前位置:首页 > 数据库设计完整流程
从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
共分享92篇相关文档