Delphi文章
文章平均质量分 76
zhaochanghua
这个作者很懒,什么都没留下…
展开
-
一段权限管理的代码!
首先申明:我是做公司原有软件的一个外挂程序,所以每个用户权限可以在原系统中定义,主要分为: 1、超级用户:享有自己开发的外挂程序的所有使用权限; 2、本人权限:可以分为:新增、查询、修改、删除、审核、撤消审核、打印等权限控制,但只能处理本人的业务单据; 2、本人所属组权限:可以分为:新增、查询、修改、删除、审核、撤消审核等权限控制,可以处理本人所属组其他成员的业务单据; 2、本人所属组组之外权限转载 2008-11-14 11:13:00 · 591 阅读 · 0 评论 -
数组与枚举
type TMyEnum = (Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); {定义枚举}var weekArr: array[TMyEnum] of string; {定义数组} myEnum: TMyEnum; {定义枚举变量}begin {数组赋转载 2008-11-14 15:14:00 · 371 阅读 · 0 评论 -
Delphi ListView的用法
//增加 i := ListView1.Items.Count; with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:= IntToStr(i); ListItem.SubItems.Add(第 +IntToStr(i)+ 行); ListItem.SubItems.Add(第三列内容转载 2009-03-05 14:53:00 · 856 阅读 · 0 评论