企业员工信息查询系统软件附edb转xls模块

.如果真 (键代码 ＝ #Del键)
.如果真 (程_光标行号 ＜ 1 或 程_光标行号 ＝ 高级表格1.行数 － 1)
返回 ()
.如果真结束
.判断开始 (数据库连接1.执行SQL (“DELETE FROM 姓名表 WHERE id= ” ＋ 到文本 (程_员工_ID [程_光标行号])) ＝ 真)
显示员工信息 ()
姓名to树型框 ()
.默认
信息框 (“删除失败！”, 0, )

.如果真 (程_光标行号 ＝ 高级表格1.行数 － 1)
返回 ()
.如果真结束
记录集1.打开 (“SELECT * FROM 姓名表 WHERE id=” ＋ 到文本 (程_员工_ID [程_光标行号]), #SQL语句)
记录集1.读文本 (“姓名”, 姓名)
记录集1.读字节集 (“相片”, 相片)
画板1.底图 ＝ 相片
标签1.标题 ＝ 姓名
高级表格_交替色显示 (高级表格1)
高级表格1.置单元格背景颜色 (程_光标行号, 0, 程_光标行号, 7, 16767678)