|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> //检查checkbox状态判断是否给该用户客户资料维护权限 if checkboxChecked then begin order:=strtoint(MaxNumber)+; str:=inttostr(order); adocommandCommandText:=insert into 权限清单([权限序号][用户编号][权限名称]) values(+str+++UserNumber+++checkboxCaption++); adocommandExecute; end; //检查checkbox状态判断是否给该用户进货单访问权限 if checkboxChecked then begin order:=strtoint(MaxNumber)+; str:=inttostr(order); adocommandCommandText:=insert into 权限清单([权限序号][用户编号][权限名称]) values(+str+++UserNumber+++checkboxCaption++); adocommandExecute; end; //检查checkbox状态判断是否给该用户销售单访问权限 if checkboxChecked then begin order:=strtoint(MaxNumber)+; str:=inttostr(order); adocommandCommandText:=insert into 权限清单([权限序号][用户编号][权限名称]) values(+str+++UserNumber+++checkboxCaption++); adocommandExecute; end; //检查checkbox状态判断是否给该用户库存查询权限 if checkboxChecked then begin order:=strtoint(MaxNumber)+; str:=inttostr(order); adocommandCommandText:=insert into 权限清单([权限序号][用户编号][权限名称]) values(+str+++UserNumber+++checkboxCaption++); adocommandExecute; end; //检查checkbox状态判断是否给该权限管理权限 if checkboxChecked then begin order:=strtoint(MaxNumber)+; str:=inttostr(order); right>[http://developcsaicn/delphi/htm>] [] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] |
